![[BACK]](/icons/back.gif){kind=icon}
Return to main.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / src / usr.bin / m4|
Return to main.c CVS log | Up to [local] / src / usr.bin / m4 |
| version 1.8, 1998/04/25 18:47:20 | version 1.9, 1998/06/02 15:05:02 | ||
|---|---|---|---|
|
|
||
| cycle { | cycle { | ||
| t = gpbc(); | t = gpbc(); | ||
| s = token; | |||
| if (t == '_' || isalpha(t)) { | if (t == '_' || isalpha(t)) { | ||
| putback(t); | putback(t); | ||
| if ((p = inspect(s = token)) == nil) { | if ((p = inspect(s)) == nil) { | ||
| if (sp < 0) | if (sp < 0) | ||
| while (*s) | while (*s) | ||
| putc(*s++, active); | putc(*s++, active); |