/[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.29 by camm, Thu Oct 13 21:27:07 2005 UTC revision 1.30 by camm, Thu Oct 13 21:40:29 2005 UTC
# Line 698  constant_case(object x) { Line 698  constant_case(object x) {
698  }  }
699            
700  static int  static int
 all_dots(object x) {  
     
   fixnum i;  
   
   for (i=0;i<x->s.s_fillp && x->s.s_self[i]=='.';i++);  
     
   return i==x->s.s_fillp;  
   
 }  
   
 static int  
701  needs_escape (object x) {  needs_escape (object x) {
702    
703    fixnum i;    fixnum i;
704    
 /*   if (x->s.s_fillp && *x->s.s_self==' ') */  
 /*     return 1; */  
   
705    for (i=0;i<x->s.s_fillp;i++)    for (i=0;i<x->s.s_fillp;i++)
706      switch(x->s.s_self[i]) {      switch(x->s.s_self[i]) {
707      case ' ':      case ' ':
# Line 743  needs_escape (object x) { Line 729  needs_escape (object x) {
729          return 1;          return 1;
730    }    }
731    
732    if (potential_number_p(x, PRINTbase)||all_dots(x))    if (potential_number_p(x, PRINTbase))
733      return 1;      return 1;
734    
735    return !x->s.s_fillp;    return !x->s.s_fillp;

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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