72 |
|
|
73 |
extern object coerce_stream(object,int); |
extern object coerce_stream(object,int); |
74 |
|
|
75 |
void |
static void |
76 |
flush_queue(int); |
flush_queue(int); |
77 |
|
|
78 |
void |
static void |
79 |
writec_queue(c) |
writec_queue(c) |
80 |
int c; |
int c; |
81 |
{ |
{ |
88 |
qc++; |
qc++; |
89 |
} |
} |
90 |
|
|
91 |
void |
static void |
92 |
flush_queue(int force) |
flush_queue(int force) |
93 |
{ |
{ |
94 |
int c, i, j, k, l, i0; |
int c, i, j, k, l, i0; |
231 |
write_ch(*s++); |
write_ch(*s++); |
232 |
} |
} |
233 |
|
|
234 |
void |
static void |
235 |
write_decimal1(int); |
write_decimal1(int); |
236 |
|
|
237 |
void |
static void |
238 |
write_decimal(i) |
write_decimal(i) |
239 |
int i; |
int i; |
240 |
{ |
{ |
245 |
write_decimal1(i); |
write_decimal1(i); |
246 |
} |
} |
247 |
|
|
248 |
void |
static void |
249 |
write_decimal1(i) |
write_decimal1(i) |
250 |
int i; |
int i; |
251 |
{ |
{ |
255 |
write_ch(i%10 + '0'); |
write_ch(i%10 + '0'); |
256 |
} |
} |
257 |
|
|
258 |
void |
static void |
259 |
write_addr(x) |
write_addr(x) |
260 |
object x; |
object x; |
261 |
{ |
{ |
272 |
} |
} |
273 |
} |
} |
274 |
|
|
275 |
void |
static void |
276 |
write_base(void) |
write_base(void) |
277 |
{ |
{ |
278 |
if (PRINTbase == 2) |
if (PRINTbase == 2) |
375 |
s[n] = '\0'; |
s[n] = '\0'; |
376 |
} |
} |
377 |
|
|
378 |
void |
static void |
379 |
write_double(d, e, shortp) |
write_double(d, e, shortp) |
380 |
double d; |
double d; |
381 |
int e; |
int e; |
453 |
write_decimal(exp); |
write_decimal(exp); |
454 |
} |
} |
455 |
|
|
456 |
void |
static void |
457 |
call_structure_print_function(x, level) |
call_structure_print_function(x, level) |
458 |
object x; |
object x; |
459 |
int level; |
int level; |
587 |
object copy_big(); |
object copy_big(); |
588 |
object coerce_big_to_string(object,int); |
object coerce_big_to_string(object,int); |
589 |
|
|
590 |
bool |
static bool |
591 |
potential_number_p(object,int); |
potential_number_p(object,int); |
592 |
|
|
593 |
void |
void |
1395 |
|
|
1396 |
char travel_push_type[32]; |
char travel_push_type[32]; |
1397 |
|
|
1398 |
void |
static void |
1399 |
travel_push_object(x) |
travel_push_object(x) |
1400 |
object x; |
object x; |
1401 |
{ |
{ |
1435 |
} |
} |
1436 |
} |
} |
1437 |
|
|
1438 |
void |
static void |
1439 |
setupPRINTcircle(x,dogensyms) |
setupPRINTcircle(x,dogensyms) |
1440 |
object x; |
object x; |
1441 |
int dogensyms; |
int dogensyms; |
1526 |
flush_queue(TRUE); |
flush_queue(TRUE); |
1527 |
} |
} |
1528 |
|
|
1529 |
void |
/*static void |
1530 |
write_object_by_default(x) |
write_object_by_default(x) |
1531 |
object x; |
object x; |
1532 |
{ |
{ |
1534 |
write_object(x, 0); |
write_object(x, 0); |
1535 |
flush_stream(PRINTstream); |
flush_stream(PRINTstream); |
1536 |
CLEANUP_PRINT_DEFAULT; |
CLEANUP_PRINT_DEFAULT; |
1537 |
} |
}*/ |
1538 |
|
|
1539 |
void |
/*static void |
1540 |
terpri_by_default() |
terpri_by_default() |
1541 |
{ |
{ |
1542 |
PRINTstream = symbol_value(sLAstandard_outputA); |
PRINTstream = symbol_value(sLAstandard_outputA); |
1543 |
if (type_of(PRINTstream) != t_stream) |
if (type_of(PRINTstream) != t_stream) |
1544 |
FEwrong_type_argument(sLstream, PRINTstream); |
FEwrong_type_argument(sLstream, PRINTstream); |
1545 |
WRITEC_NEWLINE(PRINTstream); |
WRITEC_NEWLINE(PRINTstream); |
1546 |
} |
}*/ |
1547 |
|
|
1548 |
bool |
static bool |
1549 |
potential_number_p(strng, base) |
potential_number_p(strng, base) |
1550 |
object strng; |
object strng; |
1551 |
int base; |
int base; |
2017 |
|
|
2018 |
} |
} |
2019 |
|
|
2020 |
|
/* |
2021 |
void |
static void |
2022 |
pp(x) |
pp(x) |
2023 |
object x; |
object x; |
2024 |
{ |
{ |
2025 |
princ(x,Cnil); |
princ(x,Cnil); |
2026 |
flush_stream(symbol_value(sLAstandard_outputA)); |
flush_stream(symbol_value(sLAstandard_outputA)); |
2027 |
} |
}*/ |
2028 |
|
|
2029 |
object |
static object |
2030 |
set_line_length(n) |
set_line_length(n) |
2031 |
int n; |
int n; |
2032 |
{ |
{ |