xref: /csrg-svn/usr.bin/pascal/src/gram (revision 14637)
1"@(#)gram 1.4 08/15/83"
2/yyval/s/int/union semstack/
3s/ 0//
4/yypv/s/int/union semstack/
5/\*yysterm\[]/,$d
61;/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.
131;/^##/-w! y.tab.h
14/^int yylval 0/d
15/extern int yychar,/s//extern/
16/yyclearin/d
17/yyerrok/d
181;/^##/d
19/yyact/s\[]/& =/
20/yypact/s\[]/& =/
21/yyr1/s\[]/& =/
22/yyr2/s\[]/& =/
23/yygo/s\[]/& =/
24/yypgo/s\[]/& =/
25$a
26
27yyEactr(__np__, var)
28int __np__;
29char *var;
30{
31switch(__np__) {
32default:
33return (1);
34.
35g/case.*@@/s/@@//\
36.m$
37g/@@/ka\
38'a;?case?,?case?t$\
39'am$\
40a\
41}\
42break;
43$a
44}
45}
46.
471,$s/@@//
48/int nterms/d
49/int nnonter/d
50/int nstate/d
51/int yyerrval/d
52w!
53q
54