ack/lang/cem/cemcom/make.tokcase

cat <<'--EOT--'
/* Generated by make.tokcase */
/* $Header: */
#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--