1985-01-08 09:59:28 +00:00
|
|
|
: '$Header$'
|
|
|
|
|
grep '^#' y.tab.h >tokendefs
|
1991-08-27 09:09:49 +00:00
|
|
|
ed - $1 <<'!Funky!Stuff!'
|
1985-01-08 09:59:28 +00:00
|
|
|
g/^#/d
|
|
|
|
|
1,$s/\([^ ]*\)[ ][ ]*\(.*\)/ sy_p=lookup("\1",symkeyw,newsymbol);sy_p->sy_value.syv_keywno=\2;/
|
|
|
|
|
1i
|
|
|
|
|
#include "lookup.h"
|
|
|
|
|
.
|
|
|
|
|
.r tokendefs
|
|
|
|
|
a
|
|
|
|
|
|
|
|
|
|
enterkeyw() {
|
|
|
|
|
register symbol *sy_p;
|
|
|
|
|
|
|
|
|
|
.
|
|
|
|
|
$a
|
|
|
|
|
}
|
|
|
|
|
.
|
|
|
|
|
w enterkeyw.c
|
|
|
|
|
q
|
|
|
|
|
!Funky!Stuff!
|
|
|
|
|
rm tokendefs
|
