2006-07-18 17:20:46 +00:00
|
|
|
#!/bin/sh
|
1994-06-24 11:31:16 +00:00
|
|
|
: '$Id$'
|
2006-07-18 17:20:46 +00:00
|
|
|
|
2016-07-26 21:35:30 +00:00
|
|
|
grep '^#' $2 >tokendefs
|
|
|
|
|
ed -s $1 > $3 <<'!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
|
|
|
|
|
}
|
|
|
|
|
.
|
2016-07-26 21:35:30 +00:00
|
|
|
,p
|
1985-01-08 09:59:28 +00:00
|
|
|
q
|
|
|
|
|
!Funky!Stuff!
|
|
|
|
|
rm tokendefs
|
2016-07-26 21:35:30 +00:00
|
|
|
|
