23 lines
312 B
Plaintext
23 lines
312 B
Plaintext
|
: '$Header$'
|
||
|
|
grep '^#' y.tab.h >tokendefs
|
||
|
|
ed - keywords <<'!Funky!Stuff!'
|
||
|
|
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
|