/[gcl]/gcl/o/print.d
ViewVC logotype

Diff of /gcl/o/print.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by camm, Mon Jan 13 01:37:23 2003 UTC revision 1.14 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 72  object sSAprint_structureA; Line 72  object sSAprint_structureA;
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  {  {
# Line 88  int c; Line 88  int c;
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;
# Line 231  char *s; Line 231  char *s;
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  {  {
# Line 245  int i; Line 245  int i;
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  {  {
# Line 255  int i; Line 255  int i;
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  {  {
# Line 272  object x; Line 272  object x;
272          }          }
273  }  }
274    
275  void  static void
276  write_base(void)  write_base(void)
277  {  {
278          if (PRINTbase == 2)          if (PRINTbase == 2)
# Line 375  int *ep; Line 375  int *ep;
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;
# Line 453  bool shortp; Line 453  bool shortp;
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;
# Line 587  L: Line 587  L:
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
# Line 1395  int level; Line 1395  int level;
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  {  {
# Line 1435  BEGIN: Line 1435  BEGIN:
1435          }          }
1436  }  }
1437    
1438  void  static void
1439  setupPRINTcircle(x,dogensyms)  setupPRINTcircle(x,dogensyms)
1440       object x;       object x;
1441       int dogensyms;       int dogensyms;
# Line 1526  cleanupPRINT(void) Line 1526  cleanupPRINT(void)
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  {  {
# Line 1534  object x; Line 1534  object x;
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;
# Line 2017  object sym; Line 2017  object sym;
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  {  {

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26