xref: /csrg-svn/usr.bin/pascal/src/gram (revision 14637)
1*14637Sthien"@(#)gram 1.4 08/15/83"
2*14637Sthien/yyval/s/int/union semstack/
3*14637Sthiens/ 0//
4*14637Sthien/yypv/s/int/union semstack/
5797Speter/\*yysterm\[]/,$d
6797Speter1;/yyactr/ka
7797Speter'a,$s/yypv/yyYpv/g
8797Speter'aa
9*14637Sthien	register union semstack *yyYpv;
10*14637Sthien	register struct tnode *p, *q;
11797Speter	yyYpv = yypv;
12797Speter.
13807Speter1;/^##/-w! y.tab.h
14797Speter/^int yylval 0/d
15797Speter/extern int yychar,/s//extern/
16797Speter/yyclearin/d
17797Speter/yyerrok/d
18797Speter1;/^##/d
19*14637Sthien/yyact/s\[]/& =/
20*14637Sthien/yypact/s\[]/& =/
21*14637Sthien/yyr1/s\[]/& =/
22*14637Sthien/yyr2/s\[]/& =/
23*14637Sthien/yygo/s\[]/& =/
24*14637Sthien/yypgo/s\[]/& =/
25797Speter$a
26797Speter
27797SpeteryyEactr(__np__, var)
28797Speterint __np__;
29797Speterchar *var;
30797Speter{
31797Speterswitch(__np__) {
32797Speterdefault:
33797Speterreturn (1);
34797Speter.
35805Speterg/case.*@@/s/@@//\
36797Speter.m$
37805Speterg/@@/ka\
38797Speter'a;?case?,?case?t$\
39797Speter'am$\
40797Spetera\
41797Speter}\
42797Speterbreak;
43797Speter$a
44797Speter}
45797Speter}
46797Speter.
47805Speter1,$s/@@//
48797Speter/int nterms/d
49797Speter/int nnonter/d
50797Speter/int nstate/d
51797Speter/int yyerrval/d
52807Speterw!
53797Speterq
54