1 /* -*-C-*- Note some compilers choke on comments on `#line' lines. */
3 /* This file comes from bison-@bison_version@. */
5 /* Skeleton output parser for bison,
6 Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2, or (at your option)
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
23 /* As a special exception, when this file is copied by Bison into a
24 Bison output file, you may use that output file without restriction.
25 This special exception was added by the Free Software Foundation
26 in version 1.24 of Bison. */
28 /* This is the parser code that is written into each bison parser
29 when the %semantic_parser declaration is not specified in the grammar.
30 It was written by Richard Stallman by simplifying the hairy parser
31 used when %semantic_parser is specified. */
33 #ifndef YYSTACK_USE_ALLOCA
35 # define YYSTACK_USE_ALLOCA
36 # else /* alloca not defined */
38 # define YYSTACK_USE_ALLOCA
39 # define alloca __builtin_alloca
40 # else /* not GNU C. */
41 # if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) || (defined (__sun) && defined (__i386))
42 # define YYSTACK_USE_ALLOCA
44 # else /* not sparc */
45 /* We think this test detects Watcom and Microsoft C. */
46 /* This used to test MSDOS, but that is a bad idea since that
47 symbol is in the user namespace. */
48 # if (defined (_MSDOS) || defined (_MSDOS_)) && !defined (__TURBOC__)
50 /* No need for malloc.h, which pollutes the namespace; instead,
51 just don't use alloca. */
54 # else /* not MSDOS, or __TURBOC__ */
56 /* I don't know what this was needed for, but it pollutes the
57 namespace. So I turned it off. rms, 2 May 1997. */
58 /* #include <malloc.h> */
60 # define YYSTACK_USE_ALLOCA
61 # else /* not MSDOS, or __TURBOC__, or _AIX */
63 /* haible@ilog.fr says this works for HPUX 9.05 and up, and on
64 HPUX 10. Eventually we can turn this on. */
66 # define YYSTACK_USE_ALLOCA
67 # define alloca __builtin_alloca
70 # endif /* not _AIX */
71 # endif /* not MSDOS, or __TURBOC__ */
72 # endif /* not sparc */
73 # endif /* not GNU C */
74 # endif /* alloca not defined */
75 #endif /* YYSTACK_USE_ALLOCA not defined */
77 #ifdef YYSTACK_USE_ALLOCA
78 # define YYSTACK_ALLOC alloca
80 # define YYSTACK_ALLOC malloc
83 /* Note: there must be only one dollar sign in this file.
84 It is replaced by the list of actions, each action
85 as one case of the switch. */
87 #define yyerrok (yyerrstatus = 0)
88 #define yyclearin (yychar = YYEMPTY)
91 #define YYACCEPT goto yyacceptlab
92 #define YYABORT goto yyabortlab
93 #define YYERROR goto yyerrlab1
94 /* Like YYERROR except do call yyerror.
95 This remains here temporarily to ease the
96 transition to the new meaning of YYERROR, for GCC.
97 Once GCC version 2 has supplanted version 1, this can go. */
98 #define YYFAIL goto yyerrlab
99 #define YYRECOVERING() (!!yyerrstatus)
100 #define YYBACKUP(token, value) \
102 if (yychar == YYEMPTY && yylen == 1) \
103 { yychar = (token), yylval = (value); \
104 yychar1 = YYTRANSLATE (yychar); \
109 { yyerror ("syntax error: cannot back up"); YYERROR; } \
113 #define YYERRCODE 256
116 #define YYLEX yylex()
122 #define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
124 #define YYLEX yylex(&yylval, &yylloc)
126 #else /* not YYLSP_NEEDED */
128 #define YYLEX yylex(&yylval, YYLEX_PARAM)
130 #define YYLEX yylex(&yylval)
132 #endif /* not YYLSP_NEEDED */
135 /* If nonreentrant, generate the variables here */
139 int yychar; /* the lookahead symbol */
140 YYSTYPE yylval; /* the semantic value of the */
141 /* lookahead symbol */
144 YYLTYPE yylloc; /* location data for the lookahead */
148 int yynerrs; /* number of parse errors so far */
149 #endif /* not YYPURE */
152 int yydebug; /* nonzero means print parse trace */
153 /* Since this is uninitialized, it does not stop multiple parsers
157 /* YYINITDEPTH indicates the initial size of the parser's stacks */
160 #define YYINITDEPTH 200
163 /* YYMAXDEPTH is the maximum size the stacks can grow to
164 (effective only if the built-in stack extension method is used). */
171 #define YYMAXDEPTH 10000
174 /* Define __yy_memcpy. Note that the size argument
175 should be passed with type unsigned int, because that is what the non-GCC
176 definitions require. With GCC, __builtin_memcpy takes an arg
177 of type size_t, but it can handle unsigned int. */
179 #if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
180 #define __yy_memcpy(TO,FROM,COUNT) __builtin_memcpy(TO,FROM,COUNT)
181 #else /* not GNU C or C++ */
184 /* This is the most reliable way to avoid incompatibilities
185 in available built-in functions on various systems. */
187 __yy_memcpy (to, from, count)
192 register char *f = from;
193 register char *t = to;
194 register int i = count;
200 #else /* __cplusplus */
202 /* This is the most reliable way to avoid incompatibilities
203 in available built-in functions on various systems. */
205 __yy_memcpy (char *to, char *from, unsigned int count)
207 register char *t = to;
208 register char *f = from;
209 register int i = count;
218 #line 217 "bison.simple"
220 /* The user can define YYPARSE_PARAM as the name of an argument to be passed
221 into yyparse. The argument should have type void *.
222 It should actually point to an object.
223 Grammar actions can access the variable by casting it
224 to the proper pointer type. */
228 #define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
229 #define YYPARSE_PARAM_DECL
230 #else /* not __cplusplus */
231 #define YYPARSE_PARAM_ARG YYPARSE_PARAM
232 #define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
233 #endif /* not __cplusplus */
234 #else /* not YYPARSE_PARAM */
235 #define YYPARSE_PARAM_ARG
236 #define YYPARSE_PARAM_DECL
237 #endif /* not YYPARSE_PARAM */
239 /* Prevent warning if -Wstrict-prototypes. */
242 int yyparse (void *);
249 yyparse(YYPARSE_PARAM_ARG)
252 register int yystate;
254 register short *yyssp;
255 register YYSTYPE *yyvsp;
256 int yyerrstatus; /* number of tokens to shift before error messages enabled */
257 int yychar1 = 0; /* lookahead token as an internal (translated) token number */
259 short yyssa[YYINITDEPTH]; /* the state stack */
260 YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */
262 short *yyss = yyssa; /* refer to the stacks thru separate pointers */
263 YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */
266 YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */
267 YYLTYPE *yyls = yylsa;
270 #define YYPOPSTACK (yyvsp--, yyssp--, yylsp--)
272 #define YYPOPSTACK (yyvsp--, yyssp--)
275 int yystacksize = YYINITDEPTH;
276 int yyfree_stacks = 0;
287 YYSTYPE yyval; /* the variable used to return */
288 /* semantic values from the action */
295 fprintf(stderr, "Starting parse\n");
301 yychar = YYEMPTY; /* Cause a token to be read. */
303 /* Initialize stack pointers.
304 Waste one element of value and location stack
305 so that they stay on the same level as the state stack.
306 The wasted elements are never initialized. */
314 /* Push a new state, which is found in yystate . */
315 /* In all cases, when you get here, the value and location stacks
316 have just been pushed. so pushing a state here evens the stacks. */
321 if (yyssp >= yyss + yystacksize - 1)
323 /* Give user a chance to reallocate the stack */
324 /* Use copies of these so that the &'s don't force the real ones into memory. */
325 YYSTYPE *yyvs1 = yyvs;
328 YYLTYPE *yyls1 = yyls;
331 /* Get the current used size of the three stacks, in elements. */
332 int size = yyssp - yyss + 1;
335 /* Each stack pointer address is followed by the size of
336 the data in use in that stack, in bytes. */
338 /* This used to be a conditional around just the two extra args,
339 but that might be undefined if yyoverflow is a macro. */
340 yyoverflow("parser stack overflow",
341 &yyss1, size * sizeof (*yyssp),
342 &yyvs1, size * sizeof (*yyvsp),
343 &yyls1, size * sizeof (*yylsp),
346 yyoverflow("parser stack overflow",
347 &yyss1, size * sizeof (*yyssp),
348 &yyvs1, size * sizeof (*yyvsp),
352 yyss = yyss1; yyvs = yyvs1;
356 #else /* no yyoverflow */
357 /* Extend the stack our own way. */
358 if (yystacksize >= YYMAXDEPTH)
360 yyerror("parser stack overflow");
372 if (yystacksize > YYMAXDEPTH)
373 yystacksize = YYMAXDEPTH;
374 #ifndef YYSTACK_USE_ALLOCA
377 yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
378 __yy_memcpy ((char *)yyss, (char *)yyss1,
379 size * (unsigned int) sizeof (*yyssp));
380 yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
381 __yy_memcpy ((char *)yyvs, (char *)yyvs1,
382 size * (unsigned int) sizeof (*yyvsp));
384 yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
385 __yy_memcpy ((char *)yyls, (char *)yyls1,
386 size * (unsigned int) sizeof (*yylsp));
388 #endif /* no yyoverflow */
390 yyssp = yyss + size - 1;
391 yyvsp = yyvs + size - 1;
393 yylsp = yyls + size - 1;
398 fprintf(stderr, "Stack size increased to %d\n", yystacksize);
401 if (yyssp >= yyss + yystacksize - 1)
407 fprintf(stderr, "Entering state %d\n", yystate);
413 /* Do appropriate processing given the current state. */
414 /* Read a lookahead token if we need one and don't already have one. */
417 /* First try to decide what to do without reference to lookahead token. */
419 yyn = yypact[yystate];
423 /* Not known => get a lookahead token if don't already have one. */
425 /* yychar is either YYEMPTY or YYEOF
426 or a valid token in external form. */
428 if (yychar == YYEMPTY)
432 fprintf(stderr, "Reading a token: ");
437 /* Convert token to internal form (in yychar1) for indexing tables with */
439 if (yychar <= 0) /* This means end of input. */
442 yychar = YYEOF; /* Don't call YYLEX any more */
446 fprintf(stderr, "Now at end of input.\n");
451 yychar1 = YYTRANSLATE(yychar);
456 fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
457 /* Give the individual parser a way to print the precise meaning
458 of a token, for further debugging info. */
460 YYPRINT (stderr, yychar, yylval);
462 fprintf (stderr, ")\n");
468 if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
473 /* yyn is what to do for this token type in this state.
474 Negative => reduce, -yyn is rule number.
475 Positive => shift, yyn is new state.
476 New state is final state => don't bother to shift,
478 0, or most negative number => error. */
493 /* Shift the lookahead token. */
497 fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
500 /* Discard the token being shifted unless it is eof. */
509 /* count tokens shifted since error; after three, turn off error status. */
510 if (yyerrstatus) yyerrstatus--;
515 /* Do the default action for the current state. */
518 yyn = yydefact[yystate];
522 /* Do a reduction. yyn is the number of a rule to reduce with. */
526 yyval = yyvsp[1-yylen]; /* implement default value of the action */
533 fprintf (stderr, "Reducing via rule %d (line %d), ",
536 /* Print the symbols being reduced, and their result. */
537 for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
538 fprintf (stderr, "%s ", yytname[yyrhs[i]]);
539 fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
543 $ /* the action file gets copied in in place of this dollarsign */
544 #line 543 "bison.simple"
555 short *ssp1 = yyss - 1;
556 fprintf (stderr, "state stack now");
557 while (ssp1 != yyssp)
558 fprintf (stderr, " %d", *++ssp1);
559 fprintf (stderr, "\n");
569 yylsp->first_line = yylloc.first_line;
570 yylsp->first_column = yylloc.first_column;
571 yylsp->last_line = (yylsp-1)->last_line;
572 yylsp->last_column = (yylsp-1)->last_column;
577 yylsp->last_line = (yylsp+yylen-1)->last_line;
578 yylsp->last_column = (yylsp+yylen-1)->last_column;
582 /* Now "shift" the result of the reduction.
583 Determine what state that goes to,
584 based on the state we popped back to
585 and the rule number reduced by. */
589 yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
590 if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
591 yystate = yytable[yystate];
593 yystate = yydefgoto[yyn - YYNTBASE];
597 yyerrlab: /* here on detecting error */
600 /* If not already recovering from an error, report this error. */
604 #ifdef YYERROR_VERBOSE
605 yyn = yypact[yystate];
607 if (yyn > YYFLAG && yyn < YYLAST)
614 /* Start X at -yyn if nec to avoid negative indexes in yycheck. */
615 for (x = (yyn < 0 ? -yyn : 0);
616 x < (sizeof(yytname) / sizeof(char *)); x++)
617 if (yycheck[x + yyn] == x)
618 size += strlen(yytname[x]) + 15, count++;
619 msg = (char *) malloc(size + 15);
622 strcpy(msg, "parse error");
627 for (x = (yyn < 0 ? -yyn : 0);
628 x < (sizeof(yytname) / sizeof(char *)); x++)
629 if (yycheck[x + yyn] == x)
631 strcat(msg, count == 0 ? ", expecting `" : " or `");
632 strcat(msg, yytname[x]);
641 yyerror ("parse error; also virtual memory exceeded");
644 #endif /* YYERROR_VERBOSE */
645 yyerror("parse error");
649 yyerrlab1: /* here on error raised explicitly by an action */
651 if (yyerrstatus == 3)
653 /* if just tried and failed to reuse lookahead token after an error, discard it. */
655 /* return failure if at end of input */
661 fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
667 /* Else will try to reuse lookahead token
668 after shifting the error token. */
670 yyerrstatus = 3; /* Each real token shifted decrements this */
674 yyerrdefault: /* current state does not do anything special for the error token. */
677 /* This is wrong; only states that explicitly want error tokens
678 should shift them. */
679 yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/
680 if (yyn) goto yydefault;
683 yyerrpop: /* pop the current state because it cannot handle the error token */
685 if (yyssp == yyss) YYABORT;
695 short *ssp1 = yyss - 1;
696 fprintf (stderr, "Error: state stack now");
697 while (ssp1 != yyssp)
698 fprintf (stderr, " %d", *++ssp1);
699 fprintf (stderr, "\n");
705 yyn = yypact[yystate];
710 if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
729 fprintf(stderr, "Shifting error token, ");
741 /* YYACCEPT comes here. */
753 /* YYABORT comes here. */