home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / opcodes / maketrdata < prev    next >
Encoding:
Text File  |  1980-02-17  |  676 b   |  73 lines
  1. ed - trdata
  2. v/    .*    /d
  3. 1,$s/.*    .*    //
  4. 1,$s/.*/    "&",/
  5. $s/,//
  6. 1i
  7. #ifdef PI1
  8. char    *opnames[]
  9. {
  10.     0,
  11. .
  12. $a
  13. };
  14. #endif
  15. .
  16. w .foefum
  17. e trdata
  18. v/./d
  19. g/    .*    /s/    [^    ]*$//
  20. g/^[^    ]*    /s///
  21. g/"/s//\\"/
  22. 1,$s/.*/    "&",/
  23. $s/,//
  24. 1i
  25. char    *trdesc[]
  26. {
  27.     0,
  28. .
  29. $a
  30. };
  31. .
  32. $r .foefum
  33. w .foefum
  34. e trdata
  35. v/./d
  36. 1,$s/    .*//
  37. 1,$s/.*/    "&",/
  38. $s/,//
  39. 1i
  40. #include "whoami"
  41. #include "0.h"
  42. #ifdef    PI1
  43. #ifdef    DEBUG
  44. char    *trnames[]
  45. {
  46.     0,
  47. .
  48. $a
  49. };
  50. #endif
  51. #endif
  52.  
  53. .
  54. $r .foefum
  55. !rm .foefum
  56. w TRdata.c
  57. e trdata
  58. v/./d
  59. g/    .*/s///
  60. w .foefum
  61. !grep -n "^" .foefum >.fiefum
  62. e .fiefum
  63. 1,$s/\([0123456789]*\):\(.*\)/#define T_\2 \1/
  64. w tree.h
  65. !rm .fiefum .foefum
  66. q
  67. ed - TRdata.c
  68. /opnames/;/^}/w x.c
  69. q
  70. cc -O -c x.c 
  71. mv x.o TRdata.o
  72. : rm x.c
  73.