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