xref: /csrg-svn/usr.bin/pascal/src/gram (revision 797)
1*797Speter"@(#)gram 1.1 08/27/80"
2*797Speter/yyval/s//*&/
3*797Speter/\*yysterm\[]/,$d
4*797Speter1;/yyactr/ka
5*797Speter'a,$s/yypv/yyYpv/g
6*797Speter'aa
7*797Speter	register int **yyYpv;
8*797Speter	register int *p, *q;
9*797Speter	yyYpv = yypv;
10*797Speter.
11*797Speter1;/^##/-w y.tab.h
12*797Speter/^int yylval 0/d
13*797Speter/extern int yychar,/s//extern/
14*797Speter/yyclearin/d
15*797Speter/yyerrok/d
16*797Speter1;/^##/d
17*797Speter$a
18*797Speter
19*797SpeteryyEactr(__np__, var)
20*797Speterint __np__;
21*797Speterchar *var;
22*797Speter{
23*797Speterswitch(__np__) {
24*797Speterdefault:
25*797Speterreturn (1);
26*797Speter.
27*797Speterg/case.*@/s/@//\
28*797Speter.m$
29*797Speterg/@/ka\
30*797Speter'a;?case?,?case?t$\
31*797Speter'am$\
32*797Spetera\
33*797Speter}\
34*797Speterbreak;
35*797Speter$a
36*797Speter}
37*797Speter}
38*797Speter.
39*797Speter1,$s/@//
40*797Speter/int nterms/d
41*797Speter/int nnonter/d
42*797Speter/int nstate/d
43*797Speter/int yyerrval/d
44*797Speterw
45*797Speterq
46