ack/lang/basic/src/maketokentab

#!/bin/sh

ed -s "${1:-Lpars.h}" <<'+'
1d
1,$s/# *define //
1,$s/ ...$//
1,$s/^/	"/
1,$-1s/$/",/
$s/$/"/
0a
char *tokentab[] = {
.
$a
};
.
w tokentab.h
q
+
Added the appropriate #! magic at the beginning of shell scripts. (Some modern shells don't like scripts to be without it.) 2006-07-18 16:45:57 +00:00			`#!/bin/sh`

Adjusted to allow the path of the Lpars.h file to be given on the command line. 2006-07-26 23:05:52 +00:00			`ed -s "${1:-Lpars.h}" <<'+'`
Initial revision 1988-07-04 11:45:41 +00:00			`1d`
Fixed for change in LLgen 1993-06-09 10:34:48 +00:00			`1,$s/# *define //`
use an ed script instead of an ex script; more portable 1989-02-07 17:54:33 +00:00			`1,$s/ ...$//`
			`1,$s/^/ "/`
			`1,$-1s/$/",/`
			`$s/$/"/`
Initial revision 1988-07-04 11:45:41 +00:00			`0a`
			`char *tokentab[] = {`
			`.`
use an ed script instead of an ex script; more portable 1989-02-07 17:54:33 +00:00			`$a`
Initial revision 1988-07-04 11:45:41 +00:00			`};`
			`.`
use an ed script instead of an ex script; more portable 1989-02-07 17:54:33 +00:00			`w tokentab.h`
Initial revision 1988-07-04 11:45:41 +00:00			`q`
			`+`