123456789101112131415161718192021222324252627282930313233343536 |
- cat <<'--EOT--'
- /* Generated by make.tokcase */
- /* $Id$ */
- #include "Lpars.h"
- char *
- symbol2str(tok)
- int tok;
- {
- #define SIZBUF 8
- /* allow for a few invocations in f.i. an argument list */
- static char buf[SIZBUF] = { '\'', 0, '\'', 0, '\'', 0, '\'', 0};
- static int index = 1;
- switch (tok) {
- --EOT--
- sed '
- /{[A-Z]/!d
- s/.*{\(.*\),.*\(".*"\).*$/ case \1 :\
- return \2;/
- '
- cat <<'--EOT--'
- default:
- if (tok <= 0) return "end of file";
- if (tok == '\n') return "<newline>";
- if (tok < 040 || tok >= 0177) {
- return "bad token";
- }
- index = (index+4) & (SIZBUF-1);
- buf[index] = tok;
- return &buf[index-1];
- }
- }
- --EOT--
|