xref: /csrg-svn/usr.bin/pascal/src/gram (revision 805)
1*805Speter"@(#)gram 1.2 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.
11797Speter1;/^##/-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.
27*805Speterg/case.*@@/s/@@//\
28797Speter.m$
29*805Speterg/@@/ka\
30797Speter'a;?case?,?case?t$\
31797Speter'am$\
32797Spetera\
33797Speter}\
34797Speterbreak;
35797Speter$a
36797Speter}
37797Speter}
38797Speter.
39*805Speter1,$s/@@//
40797Speter/int nterms/d
41797Speter/int nnonter/d
42797Speter/int nstate/d
43797Speter/int yyerrval/d
44797Speterw
45797Speterq
46