2 #define YYERROR goto yyerrlab
3 #define YYACCEPT return(0)
4 #define YYABORT return(1)
5 #define yyclearin yychar = -1
6 #define yyerrok yyerrflag = 0
12 static const char* yytoknames[1]; /* for debugging */
13 static const char* yystates[1]; /* for debugging */
16 /* parser for yacc output */
18 #define yynerrs yyarg->yynerrs
19 #define yyerrflag yyarg->yyerrflag
20 #define yyval yyarg->yyval
21 #define yylval yyarg->yylval
23 int yynerrs = 0; /* number of errors */
24 int yyerrflag = 0; /* error recovery flag */
32 if(yyc > 0 && yyc <= sizeof(yytoknames)/sizeof(yytoknames[0]))
34 return yytoknames[yyc-1];
35 sprintf(x, "<%d>", yyc);
44 if(yys >= 0 && yys < sizeof(yystates)/sizeof(yystates[0]))
47 sprintf(x, "<%d>\n", yys);
53 yylex1(struct Yyarg *yyarg)
63 yychar = yylex(yyarg);
71 if(yychar < sizeof(yytok1)/sizeof(yytok1[0])) {
75 if(yychar >= YYPRIVATE)
76 if(yychar < YYPRIVATE+sizeof(yytok2)/sizeof(yytok2[0])) {
77 c = yytok2[yychar-YYPRIVATE];
80 for(t3p=yytok3;; t3p+=2) {
93 c = yytok2[1]; /* unknown char */
95 printf("lex %.4lX %s\n", yychar, yytokname(c));
101 yyparse(struct Yyarg *yyarg)
110 } yys[YYMAXDEPTH], *yyp, *yypt;
112 int yyj, yym, yystate, yyn, yyg;
115 YYSTYPE save1, save2;
150 /* put a state and value onto the stack */
152 printf("char %s in %s", yytokname(yychar), yystatname(yystate));
155 if(yyp >= &yys[YYMAXDEPTH]) {
156 yyerror("yacc stack overflow");
163 yyn = yypact[yystate];
165 goto yydefault; /* simple state */
168 yychar = yylex1(yyarg);
173 if(yyn < 0 || yyn >= YYLAST)
176 if(yychk[yyn] == yychar) { /* valid shift */
186 /* default state action */
187 yyn = yydef[yystate];
191 yychar = yylex1(yyarg);
196 /* look through exception table */
197 for(yyxi=yyexca;; yyxi+=2)
198 if(yyxi[0] == -1 && yyxi[1] == yystate)
200 for(yyxi += 2;; yyxi += 2) {
202 if(yyn < 0 || yyn == yychar)
210 /* error ... attempt to resume parsing */
212 case 0: /* brand new error */
213 yyerror("syntax error");
215 printf("%s", yystatname(yystate));
216 printf("saw %s\n", yytokname(yychar));
223 case 2: /* incompletely recovered error ... try again */
226 /* find a state where "error" is a legal shift action */
228 yyn = yypact[yyp->yys] + YYERRCODE;
229 if(yyn >= 0 && yyn < YYLAST) {
230 yystate = yyact[yyn]; /* simulate a shift of "error" */
231 if(yychk[yystate] == YYERRCODE)
235 /* the current yyp has no shift onn "error", pop stack */
237 printf("error recovery pops state %d, uncovers %d\n",
238 yyp->yys, (yyp-1)->yys );
241 /* there is no state on the stack with an error shift ... abort */
244 case 3: /* no shift yet; clobber input char */
245 if(yydebug >= YYEOFCODE)
246 printf("error recovery discards %s\n", yytokname(yychar));
247 if(yychar == YYEOFCODE)
250 goto yynewstate; /* try again in the same state */
254 /* reduction by production yyn */
256 printf("reduce %d in:\n\t%s", yyn, yystatname(yystate));
260 yyval = (yyp+1)->yyv;
263 /* consult goto table to find next state */
266 yyj = yyg + yyp->yys + 1;
268 if(yyj >= YYLAST || yychk[yystate=yyact[yyj]] != -yyn)
269 yystate = yyact[yyg];
273 goto yystack; /* stack new state and value */