cvtkeywords 303 B

12345678910111213141516171819202122
  1. : '$Id$'
  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. enterkeyw() {
  12. register symbol *sy_p;
  13. .
  14. $a
  15. }
  16. .
  17. w enterkeyw.c
  18. q
  19. !Funky!Stuff!
  20. rm tokendefs