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 ' ': |
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; |