xref: /csrg-svn/usr.bin/pascal/src/gram (revision 14699)
1"@(#)gram 1.7 08/18/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$a
20
21yyEactr(__np__, var)
22int __np__;
23char *var;
24{
25switch(__np__) {
26default:
27return (1);
28.
29g/case.*@@/s/@@//\
30.m$
31g/@@/ka\
32'a;?case?,?case?t$\
33'am$\
34a\
35}\
36$a
37}
38}
39.
401,$s/@@//
41/int nterms/d
42/int nnonter/d
43/int nstate/d
44/int yyerrval/d
45/yyact\[/s/ {/ = {/
46/yypact/s/ {/ = {/
47/yyr1/s/ {/ = {/
48/yyr2/s/ {/ = {/
49/yygo/s/ {/ = {/
50/yypgo/s/ {/ = {/
51/static/i
52\#ifndef lint
53.
54/static/a
55\#endif
56w!
57q
58