mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-03 03:00:34 -08:00
Code Issues Projects Releases Packages Wiki Activity

Hide a lot of functions. Official interface for printer is made of

Browse source 
setupPRINT() and write_object().
This commit is contained in:
jjgarcia 2002-09-07 15:30:51 +00:00
parent 0d168a1aa5
commit 9eb9d3bc88
2 changed files with 9 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/c/print.d
View file

@ -119,6 +119,7 @@ static void write_decimal1 (int i);
static void travel_push_object (cl_object x);
static cl_index searchPRINTcircle(cl_object x);
static bool doPRINTcircle(cl_object x);
static bool potential_number_p(cl_object s, int base);
static cl_object
stream_or_default_output(cl_object stream)
@ -130,7 +131,7 @@ stream_or_default_output(cl_object stream)
return stream;
}
void
static void
writec_PRINTstream(int c)
{
if (c == INDENT || c == INDENT1)
@ -286,14 +287,14 @@ write_ch(int c)
writec_stream(c, PRINTstream);
}
void
static void
write_str(char *s)
{
while (*s != '\0')
write_ch(*s++);
}
void
static void
write_decimal(int i)
{
if (i == 0) {
@ -312,7 +313,7 @@ write_decimal1(int i)
write_ch(i%10 + '0');
}
void
static void
write_addr(cl_object x)
{
cl_fixnum i, j;
@ -407,7 +408,7 @@ edit_double(int n, double d, int *sp, char *s, int *ep)
}
void
static void
write_double(double d, int e, bool shortp)
{
int sign;
@ -590,7 +591,7 @@ call_structure_print_function(cl_object x, int level)
if (eflag) unwind(nlj_fr, nlj_tag);
}
void
static void
write_fixnum(cl_fixnum i)
{
short digits[16];
@ -602,7 +603,7 @@ write_fixnum(cl_fixnum i)
write_ch(digits[j]);
}
void
static void
write_bignum(cl_object x)
{
cl_fixnum str_size = mpz_sizeinbase(x->big.big_num, PRINTbase);
@ -1478,7 +1479,7 @@ write_object_with_escape(cl_object x, bool escape)
PRINTescape = oldescape;
}
bool
static bool
potential_number_p(cl_object strng, int base)
{
int i, l, c; bool dc;

8
src/h/external.h
View file

@ -647,19 +647,11 @@ extern cl_object PRINTstream;
#endif
extern int interactive_writec_stream(int c, cl_object stream);
extern void flush_interactive_stream(cl_object stream);
extern void write_ch(int c);
extern void write_str(char *s);
extern void write_decimal(int i);
extern void write_addr(cl_object x);
extern void edit_double(int n, double d, int *sp, char *s, int *ep);
extern void write_double(double d, int e, bool shortp);
extern void write_fixnum(cl_fixnum i);
extern void write_bignum(cl_object x);
extern void write_object(cl_object x);
extern void write_object_with_escape(cl_object, bool escape);
extern void setupPRINT(cl_object strm);
extern void cleanupPRINT(void);
extern bool potential_number_p(cl_object strng, int base);
extern cl_object princ(cl_object obj, cl_object strm);
extern cl_object prin1(cl_object obj, cl_object strm);
extern cl_object print(cl_object obj, cl_object strm);