41 lines
633 B
Text
Executable file
41 lines
633 B
Text
Executable file
cat <<'--EOT--'
|
|
/* Generated by make.tokcase */
|
|
/* $Header$ */
|
|
#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];
|
|
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--
|