Ultrix-3.1/src/cmd/awk/tokenscript

e awk.h
g/sccsid = @(#)tokenscript 3.0/
1,$s/# *define *//
1,$s/^/"/
1,$s/ /", /
1,$s/$/,/
w temp
e token.c
/= *{$/+1,/^};$/-1d
-r temp
w token.c
q