xref: /csrg-svn/usr.bin/pascal/src/gram (revision 807) 
1*807Speter"@(#)gram 1.3 08/27/80"
2797Speter/yyval/s//*&/
3797Speter/\*yysterm\[]/,$d
4797Speter1;/yyactr/ka
5797Speter'a,$s/yypv/yyYpv/g
6797Speter'aa
7797Speter	register int **yyYpv;
8797Speter	register int *p, *q;
9797Speter	yyYpv = yypv;
10797Speter.
11*807Speter1;/^##/-w! y.tab.h
12797Speter/^int yylval 0/d
13797Speter/extern int yychar,/s//extern/
14797Speter/yyclearin/d
15797Speter/yyerrok/d
16797Speter1;/^##/d
17797Speter$a
18797Speter
19797SpeteryyEactr(__np__, var)
20797Speterint __np__;
21797Speterchar *var;
22797Speter{
23797Speterswitch(__np__) {
24797Speterdefault:
25797Speterreturn (1);
26797Speter.
27805Speterg/case.*@@/s/@@//\
28797Speter.m$
29805Speterg/@@/ka\
30797Speter'a;?case?,?case?t$\
31797Speter'am$\
32797Spetera\
33797Speter}\
34797Speterbreak;
35797Speter$a
36797Speter}
37797Speter}
38797Speter.
39805Speter1,$s/@@//
40797Speter/int nterms/d
41797Speter/int nnonter/d
42797Speter/int nstate/d
43797Speter/int yyerrval/d
44*807Speterw!
45797Speterq
46