cvtkeywords 314 B

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