#!/bin/sh : '$Id$' grep '^#' y.tab.h >tokendefs ed -s $1 <<'!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