ack/lang/basic/src/maketokentab

ed - Lpars.h <<'+'
1d
1,$s/# define //
1,$s/ ...$//
1,$s/^/	"/
1,$-1s/$/",/
$s/$/"/
0a
char *tokentab[] = {
.
$a
};
.
w tokentab.h
q
+
use an ed script instead of an ex script; more portable 1989-02-07 17:54:33 +00:00			`ed - Lpars.h <<'+'`
Initial revision 1988-07-04 11:45:41 +00:00			`1d`
use an ed script instead of an ex script; more portable 1989-02-07 17:54:33 +00:00			`1,$s/# define //`
			`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`
			`+`