1990-08-31 18:22:53 +00:00
|
|
|
cat <<'--EOT--'
|
|
|
|
|
/* Generated by make.tokcase */
|
1994-06-24 11:31:16 +00:00
|
|
|
/* $Id$ */
|
1990-08-31 18:22:53 +00:00
|
|
|
#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--
|
