version 1.47, 2001/09/18 20:59:32 |
version 1.48, 2001/09/19 13:14:18 |
|
|
if (sp < 0) |
if (sp < 0) |
putc(l, active); |
putc(l, active); |
else |
else |
chrsave(l); |
CHRSAVE(l); |
} |
} |
} |
} |
} |
} |
|
|
} |
} |
if (t == EOF) |
if (t == EOF) |
break; |
break; |
chrsave(t); |
CHRSAVE(t); |
} |
} |
} else |
} else |
chrsave(t); /* stack the char */ |
CHRSAVE(t); /* stack the char */ |
break; |
break; |
} |
} |
} |
} |
|
|
putc(*s++, active); |
putc(*s++, active); |
else |
else |
while (*s) |
while (*s) |
chrsave(*s++); |
CHRSAVE(*s++); |
} |
} |
|
|
/* |
/* |
|
|
|
|
while ((isalnum(c = gpbc()) || c == '_') && tp < etp) |
while ((isalnum(c = gpbc()) || c == '_') && tp < etp) |
h = (h << 5) + h + (*tp++ = c); |
h = (h << 5) + h + (*tp++ = c); |
putback(c); |
PUTBACK(c); |
*tp = EOS; |
*tp = EOS; |
/* token is too long, it won't match anything, but it can still |
/* token is too long, it won't match anything, but it can still |
* be output. */ |
* be output. */ |
|
|
if (sp < 0) |
if (sp < 0) |
putc(c, active); |
putc(c, active); |
else |
else |
chrsave(c); |
CHRSAVE(c); |
} |
} |
*name = EOS; |
*name = EOS; |
return nil; |
return nil; |