2006-07-20 23:02:37 +00:00
|
|
|
#!/bin/sh
|
|
|
|
|
|
1987-01-06 15:16:53 +00:00
|
|
|
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--
|
