xref: /original-bsd/usr.bin/pascal/src/gram (revision c3e32dec)
1"@(#)gram 8.1 06/06/93"
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);
28break;
29.
30g/case.*@@/s/@@//\
31.m$
32g/@@/ka\
33'a;?case?,?case?t$\
34'am$\
35a\
36}\
37break;
38$a
39}
40/*NOTREACHED*/
41}
42.
431,$s/@@//
44/int nterms/d
45/int nnonter/d
46/int nstate/d
47/int yyerrval/d
48/yyact\[/s/ {/ = {/
49/yypact/s/ {/ = {/
50/yyr1/s/ {/ = {/
51/yyr2/s/ {/ = {/
52/yygo/s/ {/ = {/
53/yypgo/s/ {/ = {/
54/static/i
55#ifndef lint
56.
57/static/a
58#endif
59.
60w!
61q
62