util/ncgg/cvtkeywords

   1 : '$Id: cvtkeywords,v 0.4 1995/08/14 15:09:59 ceriel Exp $'
   2 grep '^#' y.tab.h >tokendefs
   3 ed -s $1 <<'!Funky!Stuff!'
   4 g/^#/d
   5 1,$s/\([^       ]*\)[   ][      ]*\(.*\)/       sy_p=lookup("\1",symkeyw,newsymbol);sy_p->sy_value.syv_keywno=\2;/
   6 1i
   7 #include "lookup.h"
   8 .
   9 .r tokendefs
  10 a
  11
  12 enterkeyw() {
  13         register symbol *sy_p;
  14
  15 .
  16 $a
  17 }
  18 .
  19 w enterkeyw.c
  20 q
  21 !Funky!Stuff!
  22 rm tokendefs