ack/lang/m2/comp/make.tokcase

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--