35 lines
439 B
Plaintext
35 lines
439 B
Plaintext
|
cat <<'--EOT--'
|
||
|
|
#include "Lpars.h"
|
||
|
|
|
||
|
|
char *
|
||
|
|
symbol2str(tok)
|
||
|
|
int tok;
|
||
|
|
{
|
||
|
|
static char buf[2] = { '\0', '\0' };
|
||
|
|
|
||
|
|
if (040 <= tok && tok < 0177) {
|
||
|
|
buf[0] = tok;
|
||
|
|
buf[1] = '\0';
|
||
|
|
return buf;
|
||
|
|
}
|
||
|
|
switch (tok) {
|
||
|
|
--EOT--
|
||
|
|
sed '
|
||
|
|
/{[A-Z]/!d
|
||
|
|
s/.*{\(.*\),.*\(".*"\).*$/ case \1 :\
|
||
|
|
return \2;/
|
||
|
|
'
|
||
|
|
cat <<'--EOT--'
|
||
|
|
case '\n':
|
||
|
|
case '\f':
|
||
|
|
case '\v':
|
||
|
|
case '\r':
|
||
|
|
case '\t':
|
||
|
|
buf[0] = tok;
|
||
|
|
return buf;
|
||
|
|
default:
|
||
|
|
return "bad token";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
--EOT--
|