home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / pascal / src / gram < prev    next >
Encoding:
Text File  |  1984-03-31  |  739 b   |  62 lines
  1. "@(#)gram 2.1 2/8/84"
  2. /yyval/s/int/union semstack/
  3. s/ 0//
  4. /yypv/s/int/union semstack/
  5. /\*yysterm\[]/,$d
  6. 1;/yyactr/ka
  7. 'a,$s/yypv/yyYpv/g
  8. 'aa
  9.     register union semstack *yyYpv;
  10.     register struct tnode *p, *q;
  11.     yyYpv = yypv;
  12. .
  13. 1;/^##/-w! y.tab.h
  14. /^int yylval 0/d
  15. /extern int yychar,/s//extern/
  16. /yyclearin/d
  17. /yyerrok/d
  18. 1;/^##/d
  19. $a
  20.  
  21. yyEactr(__np__, var)
  22. int __np__;
  23. char *var;
  24. {
  25. switch(__np__) {
  26. default:
  27. return (1);
  28. break;
  29. .
  30. g/case.*@@/s/@@//\
  31. .m$
  32. g/@@/ka\
  33. 'a;?case?,?case?t$\
  34. 'am$\
  35. a\
  36. }\
  37. break;
  38. $a
  39. }
  40. /*NOTREACHED*/
  41. }
  42. .
  43. 1,$s/@@//
  44. /int nterms/d
  45. /int nnonter/d
  46. /int nstate/d
  47. /int yyerrval/d
  48. /yyact\[/s/ {/ = {/
  49. /yypact/s/ {/ = {/
  50. /yyr1/s/ {/ = {/
  51. /yyr2/s/ {/ = {/
  52. /yygo/s/ {/ = {/
  53. /yypgo/s/ {/ = {/
  54. /static/i
  55. #ifndef lint
  56. .
  57. /static/a
  58. #endif
  59. .
  60. w!
  61. q
  62.