1 /* A Bison parser, made by GNU Bison 2.6.5.63-3ada. */
3 /* Bison implementation for Yacc-like parsers in C
5 Copyright (C) 1984, 1989-1990, 2000-2012 Free Software Foundation, Inc.
7 This program is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
20 /* As a special exception, you may create a larger work that contains
21 part or all of the Bison parser skeleton and distribute that work
22 under terms of your choice, so long as that work isn't itself a
23 parser generator using the skeleton or a modified version thereof
24 as a parser skeleton. Alternatively, if you modify or redistribute
25 the parser skeleton itself, you may (at your option) remove this
26 special exception, which will cause the skeleton and the resulting
27 Bison output files to be licensed under the GNU General Public
28 License without this special exception.
30 This special exception was added by the Free Software Foundation in
31 version 2.2 of Bison. */
33 /* C LALR(1) parser skeleton written by Richard Stallman, by
34 simplifying the original so-called "semantic" parser. */
36 /* All symbols defined below should begin with yy or YY, to avoid
37 infringing on user name space. This should be done even for local
38 variables, as they might otherwise be expanded by user macros.
39 There are some unavoidable exceptions within include files to
40 define necessary library symbols; they are noted "INFRINGES ON
41 USER NAME SPACE" below. */
43 /* Identify Bison output. */
47 #define YYBISON_VERSION "2.6.5.63-3ada"
50 #define YYSKELETON_NAME "yacc.c"
61 /* Substitute the type names. */
62 #define YYSTYPE GRAM_STYPE
63 #define YYLTYPE GRAM_LTYPE
64 /* Substitute the variable and function names. */
65 #define yyparse gram_parse
66 #define yylex gram_lex
67 #define yyerror gram_error
68 #define yylval gram_lval
69 #define yychar gram_char
70 #define yydebug gram_debug
71 #define yynerrs gram_nerrs
72 #define yylloc gram_lloc
74 /* Copy the first part of user declarations. */
75 /* Line 360 of yacc.c */
76 #line 1 "parse-gram.y"
77 /* Bison Grammar Parser -*- C -*-
79 Copyright (C) 2002-2012 Free Software Foundation, Inc.
81 This file is part of Bison, the GNU Compiler Compiler.
83 This program is free software: you can redistribute it and/or modify
84 it under the terms of the GNU General Public License as published by
85 the Free Software Foundation, either version 3 of the License, or
86 (at your option) any later version.
88 This program is distributed in the hope that it will be useful,
89 but WITHOUT ANY WARRANTY; without even the implied warranty of
90 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
91 GNU General Public License for more details.
93 You should have received a copy of the GNU General Public License
94 along with this program. If not, see <http://www.gnu.org/licenses/>. */
100 #include "complain.h"
101 #include "conflicts.h"
105 #include "muscle-tab.h"
106 #include "named-ref.h"
107 #include "quotearg.h"
110 #include "scan-gram.h"
111 #include "scan-code.h"
112 #include "xmemdup0.h"
114 #define YYLLOC_DEFAULT(Current, Rhs, N) (Current) = lloc_default (Rhs, N)
115 static YYLTYPE
lloc_default (YYLTYPE
const *, int);
117 #define YY_LOCATION_PRINT(File, Loc) \
118 location_print (File, Loc)
120 static void version_check (location
const *loc
, char const *version
);
122 /* Request detailed syntax error messages, and pass them to GRAM_ERROR.
123 FIXME: depends on the undocumented availability of YYLLOC. */
125 #define yyerror(Msg) \
126 gram_error (&yylloc, Msg)
127 static void gram_error (location
const *, char const *);
129 static char const *char_name (char);
131 /** Add a lex-param or a parse-param.
133 * \param type \a lex_param or \a parse_param
134 * \param decl the formal argument
135 * \param loc the location in the source.
137 static void add_param (char const *type
, char *decl
, location loc
);
140 static symbol_class current_class
= unknown_sym
;
141 static uniqstr current_type
= NULL
;
142 static symbol
*current_lhs_symbol
;
143 static location current_lhs_location
;
144 static named_ref
*current_lhs_named_ref
;
145 static int current_prec
= 0;
147 /** Set the new current left-hand side symbol, possibly common
148 * to several right-hand side parts of rule.
152 current_lhs(symbol
*sym
, location loc
, named_ref
*ref
)
154 current_lhs_symbol
= sym
;
155 current_lhs_location
= loc
;
156 /* In order to simplify memory management, named references for lhs
157 are always assigned by deep copy into the current symbol_list
158 node. This is because a single named-ref in the grammar may
159 result in several uses when the user factors lhs between several
160 rules using "|". Therefore free the parser's original copy. */
161 free (current_lhs_named_ref
);
162 current_lhs_named_ref
= ref
;
166 #define YYTYPE_INT16 int_fast16_t
167 #define YYTYPE_INT8 int_fast8_t
168 #define YYTYPE_UINT16 uint_fast16_t
169 #define YYTYPE_UINT8 uint_fast8_t
171 /* Line 360 of yacc.c */
172 #line 173 "parse-gram.c"
175 # if defined __cplusplus && 201103L <= __cplusplus
176 # define YY_NULL nullptr
182 /* Enabling verbose error messages. */
183 #ifdef YYERROR_VERBOSE
184 # undef YYERROR_VERBOSE
185 # define YYERROR_VERBOSE 1
187 # define YYERROR_VERBOSE 1
190 /* In a future release of Bison, this section will be replaced
191 by #include "parse-gram.h". */
192 #ifndef YY_GRAM_Y_TAB_H_INCLUDED
193 # define YY_GRAM_Y_TAB_H_INCLUDED
194 /* Enabling traces. */
198 # define GRAM_DEBUG 1
200 # define GRAM_DEBUG 0
202 # else /* ! defined YYDEBUG */
203 # define GRAM_DEBUG 1
204 # endif /* ! defined YYDEBUG */
205 #endif /* ! defined GRAM_DEBUG */
207 extern int gram_debug
;
211 #ifndef GRAM_TOKENTYPE
212 # define GRAM_TOKENTYPE
213 /* Put the tokens into the symbol table, so that GDB and other debuggers
215 enum gram_tokentype
{
222 PERCENT_DESTRUCTOR
= 263,
223 PERCENT_PRINTER
= 264,
226 PERCENT_NONASSOC
= 267,
232 PERCENT_DEFAULT_PREC
= 273,
233 PERCENT_DEFINE
= 274,
234 PERCENT_DEFINES
= 275,
235 PERCENT_ERROR_VERBOSE
= 276,
236 PERCENT_EXPECT
= 277,
237 PERCENT_EXPECT_RR
= 278,
238 PERCENT_FILE_PREFIX
= 279,
239 PERCENT_GLR_PARSER
= 280,
240 PERCENT_INITIAL_ACTION
= 281,
241 PERCENT_LANGUAGE
= 282,
242 PERCENT_LEX_PARAM
= 283,
243 PERCENT_LOCATIONS
= 284,
244 PERCENT_NAME_PREFIX
= 285,
245 PERCENT_NO_DEFAULT_PREC
= 286,
246 PERCENT_NO_LINES
= 287,
247 PERCENT_NONDETERMINISTIC_PARSER
= 288,
248 PERCENT_OUTPUT
= 289,
249 PERCENT_PARSE_PARAM
= 290,
250 PERCENT_PURE_PARSER
= 291,
251 PERCENT_REQUIRE
= 292,
252 PERCENT_SKELETON
= 293,
254 PERCENT_TOKEN_TABLE
= 295,
255 PERCENT_VERBOSE
= 296,
264 PERCENT_PERCENT
= 305,
278 #define PERCENT_TOKEN 260
279 #define PERCENT_NTERM 261
280 #define PERCENT_TYPE 262
281 #define PERCENT_DESTRUCTOR 263
282 #define PERCENT_PRINTER 264
283 #define PERCENT_LEFT 265
284 #define PERCENT_RIGHT 266
285 #define PERCENT_NONASSOC 267
286 #define PERCENT_PREC 268
287 #define PERCENT_DPREC 269
288 #define PERCENT_MERGE 270
289 #define PERCENT_CODE 271
290 #define PERCENT_DEBUG 272
291 #define PERCENT_DEFAULT_PREC 273
292 #define PERCENT_DEFINE 274
293 #define PERCENT_DEFINES 275
294 #define PERCENT_ERROR_VERBOSE 276
295 #define PERCENT_EXPECT 277
296 #define PERCENT_EXPECT_RR 278
297 #define PERCENT_FILE_PREFIX 279
298 #define PERCENT_GLR_PARSER 280
299 #define PERCENT_INITIAL_ACTION 281
300 #define PERCENT_LANGUAGE 282
301 #define PERCENT_LEX_PARAM 283
302 #define PERCENT_LOCATIONS 284
303 #define PERCENT_NAME_PREFIX 285
304 #define PERCENT_NO_DEFAULT_PREC 286
305 #define PERCENT_NO_LINES 287
306 #define PERCENT_NONDETERMINISTIC_PARSER 288
307 #define PERCENT_OUTPUT 289
308 #define PERCENT_PARSE_PARAM 290
309 #define PERCENT_PURE_PARSER 291
310 #define PERCENT_REQUIRE 292
311 #define PERCENT_SKELETON 293
312 #define PERCENT_START 294
313 #define PERCENT_TOKEN_TABLE 295
314 #define PERCENT_VERBOSE 296
315 #define PERCENT_YACC 297
316 #define BRACED_CODE 298
317 #define BRACKETED_ID 299
323 #define PERCENT_PERCENT 305
326 #define SEMICOLON 308
328 #define TYPE_TAG_ANY 310
329 #define TYPE_TAG_NONE 311
330 #define PERCENT_UNION 312
334 #if ! defined GRAM_STYPE && ! defined GRAM_STYPE_IS_DECLARED
335 typedef union GRAM_STYPE
337 /* Line 376 of yacc.c */
338 #line 115 "parse-gram.y"
347 unsigned char character
;
348 named_ref
*named_ref
;
351 /* Line 376 of yacc.c */
352 #line 353 "parse-gram.c"
354 # define GRAM_STYPE_IS_TRIVIAL 1
355 # define gram_stype GRAM_STYPE /* obsolescent; will be withdrawn */
356 # define GRAM_STYPE_IS_DECLARED 1
359 #if ! defined GRAM_LTYPE && ! defined GRAM_LTYPE_IS_DECLARED
360 typedef struct GRAM_LTYPE
367 # define gram_ltype GRAM_LTYPE /* obsolescent; will be withdrawn */
368 # define GRAM_LTYPE_IS_DECLARED 1
369 # define GRAM_LTYPE_IS_TRIVIAL 1
374 #if defined __STDC__ || defined __cplusplus
375 int gram_parse (void *YYPARSE_PARAM
);
379 #else /* ! YYPARSE_PARAM */
380 #if defined __STDC__ || defined __cplusplus
381 int gram_parse (void);
385 #endif /* ! YYPARSE_PARAM */
387 #endif /* !YY_GRAM_Y_TAB_H_INCLUDED */
389 /* Copy the second part of user declarations. */
391 /* Line 379 of yacc.c */
392 #line 393 "parse-gram.c"
399 typedef YYTYPE_UINT8 yytype_uint8
;
401 typedef unsigned char yytype_uint8
;
405 typedef YYTYPE_INT8 yytype_int8
;
406 #elif (defined __STDC__ || defined __C99__FUNC__ \
407 || defined __cplusplus || defined _MSC_VER)
408 typedef signed char yytype_int8
;
410 typedef short int yytype_int8
;
414 typedef YYTYPE_UINT16 yytype_uint16
;
416 typedef unsigned short int yytype_uint16
;
420 typedef YYTYPE_INT16 yytype_int16
;
422 typedef short int yytype_int16
;
426 # ifdef __SIZE_TYPE__
427 # define YYSIZE_T __SIZE_TYPE__
428 # elif defined size_t
429 # define YYSIZE_T size_t
430 # elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
431 || defined __cplusplus || defined _MSC_VER)
432 # include <stddef.h> /* INFRINGES ON USER NAME SPACE */
433 # define YYSIZE_T size_t
435 # define YYSIZE_T unsigned int
439 #define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
442 # if defined YYENABLE_NLS && YYENABLE_NLS
444 # include <libintl.h> /* INFRINGES ON USER NAME SPACE */
445 # define YY_(Msgid) dgettext ("bison-runtime", Msgid)
449 # define YY_(Msgid) Msgid
453 /* Suppress unused-variable warnings by "using" E. */
454 #if ! defined lint || defined __GNUC__
455 # define YYUSE(E) ((void) (E))
457 # define YYUSE(E) /* empty */
460 /* Identity function, used to suppress warnings about constant conditions. */
464 #if (defined __STDC__ || defined __C99__FUNC__ \
465 || defined __cplusplus || defined _MSC_VER)
480 /* The parser invokes alloca or malloc; define the necessary symbols. */
482 # ifdef YYSTACK_ALLOC
483 /* Pacify GCC's `empty if-body' warning. */
484 # define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
485 # ifndef YYSTACK_ALLOC_MAXIMUM
486 /* The OS might guarantee only one guard page at the bottom of the stack,
487 and a page size can be as small as 4096 bytes. So we cannot safely
488 invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
489 to allow for a few compiler-allocated temporary stack slots. */
490 # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
493 # define YYSTACK_ALLOC YYMALLOC
494 # define YYSTACK_FREE YYFREE
495 # ifndef YYSTACK_ALLOC_MAXIMUM
496 # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
498 # if (defined __cplusplus && ! defined EXIT_SUCCESS \
499 && ! ((defined YYMALLOC || defined malloc) \
500 && (defined YYFREE || defined free)))
501 # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
502 # ifndef EXIT_SUCCESS
503 # define EXIT_SUCCESS 0
507 # define YYMALLOC malloc
508 # if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
509 || defined __cplusplus || defined _MSC_VER)
510 void *malloc (YYSIZE_T
); /* INFRINGES ON USER NAME SPACE */
515 # if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
516 || defined __cplusplus || defined _MSC_VER)
517 void free (void *); /* INFRINGES ON USER NAME SPACE */
521 # define YYCOPY_NEEDED 1
525 #if (! defined yyoverflow \
526 && (! defined __cplusplus \
527 || (defined GRAM_LTYPE_IS_TRIVIAL && GRAM_LTYPE_IS_TRIVIAL \
528 && defined GRAM_STYPE_IS_TRIVIAL && GRAM_STYPE_IS_TRIVIAL)))
530 /* A type that is properly aligned for any stack member. */
533 yytype_int16 yyss_alloc
;
538 /* The size of the maximum gap between one aligned stack and the next. */
539 # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
541 /* The size of an array large to enough to hold all stacks, each with
543 # define YYSTACK_BYTES(N) \
544 ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \
545 + 2 * YYSTACK_GAP_MAXIMUM)
547 # define YYCOPY_NEEDED 1
549 /* Relocate STACK from its old location to the new one. The
550 local variables YYSIZE and YYSTACKSIZE give the old and new number of
551 elements in the stack, and YYPTR gives the new location of the
552 stack. Advance YYPTR to a properly aligned location for the next
554 # define YYSTACK_RELOCATE(Stack_alloc, Stack) \
557 YYSIZE_T yynewbytes; \
558 YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
559 Stack = &yyptr->Stack_alloc; \
560 yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
561 yyptr += yynewbytes / sizeof (*yyptr); \
567 #if defined YYCOPY_NEEDED && YYCOPY_NEEDED
568 /* Copy COUNT objects from SRC to DST. The source and destination do
571 # if defined __GNUC__ && 1 < __GNUC__
572 # define YYCOPY(Dst, Src, Count) \
573 __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
575 # define YYCOPY(Dst, Src, Count) \
579 for (yyi = 0; yyi < (Count); yyi++) \
580 (Dst)[yyi] = (Src)[yyi]; \
585 #endif /* !YYCOPY_NEEDED */
587 /* YYFINAL -- State number of the termination state. */
589 /* YYLAST -- Last index in YYTABLE. */
592 /* YYNTOKENS -- Number of terminals. */
594 /* YYNNTS -- Number of nonterminals. */
596 /* YYNRULES -- Number of rules. */
598 /* YYNRULES -- Number of states. */
599 #define YYNSTATES 148
601 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
603 #define YYMAXUTOK 312
605 #define YYTRANSLATE(YYX) \
606 ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
608 /* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
609 static const yytype_uint8 yytranslate
[] =
611 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
612 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
613 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
614 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
615 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
616 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
617 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
618 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
619 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
620 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
621 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
622 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
623 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
624 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
625 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
626 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
627 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
628 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
629 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
630 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
631 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
632 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
633 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
634 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
635 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
636 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
637 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
638 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
639 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
640 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
641 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
646 /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
648 static const yytype_uint16 yyprhs
[] =
650 0, 0, 3, 8, 9, 12, 14, 16, 18, 22,
651 24, 27, 29, 32, 35, 38, 42, 44, 47, 50,
652 53, 55, 58, 62, 64, 66, 69, 73, 76, 78,
653 81, 84, 86, 88, 90, 92, 94, 96, 99, 103,
654 107, 109, 111, 114, 118, 119, 121, 125, 126, 130,
655 131, 135, 139, 143, 145, 147, 149, 150, 152, 154,
656 157, 159, 162, 164, 167, 169, 172, 174, 176, 178,
657 180, 182, 184, 187, 190, 194, 196, 199, 201, 204,
658 206, 209, 212, 213, 218, 220, 224, 227, 228, 232,
659 236, 240, 244, 248, 249, 251, 253, 255, 256, 258,
660 260, 262, 264, 266, 268, 270, 272, 274, 275
663 /* YYRHS -- A `-1'-separated list of the rules' RHS. */
664 static const yytype_int8 yyrhs
[] =
666 59, 0, -1, 60, 50, 77, 91, -1, -1, 60,
667 61, -1, 62, -1, 52, -1, 17, -1, 19, 84,
668 85, -1, 20, -1, 20, 3, -1, 21, -1, 22,
669 4, -1, 23, 4, -1, 24, 3, -1, 24, 47,
670 3, -1, 25, -1, 26, 43, -1, 27, 3, -1,
671 28, 43, -1, 29, -1, 30, 3, -1, 30, 47,
672 3, -1, 32, -1, 33, -1, 34, 3, -1, 34,
673 47, 3, -1, 35, 43, -1, 36, -1, 37, 3,
674 -1, 38, 3, -1, 40, -1, 41, -1, 42, -1,
675 53, -1, 67, -1, 64, -1, 39, 89, -1, 8,
676 43, 73, -1, 9, 43, 73, -1, 18, -1, 31,
677 -1, 16, 86, -1, 16, 48, 86, -1, -1, 48,
678 -1, 57, 63, 86, -1, -1, 6, 65, 76, -1,
679 -1, 5, 66, 76, -1, 7, 54, 72, -1, 68,
680 69, 70, -1, 10, -1, 11, -1, 12, -1, -1,
681 54, -1, 71, -1, 70, 71, -1, 89, -1, 89,
682 4, -1, 89, -1, 72, 89, -1, 74, -1, 73,
683 74, -1, 89, -1, 54, -1, 55, -1, 56, -1,
684 54, -1, 87, -1, 87, 4, -1, 87, 90, -1,
685 87, 4, 90, -1, 75, -1, 76, 75, -1, 78,
686 -1, 77, 78, -1, 79, -1, 62, 53, -1, 1,
687 53, -1, -1, 88, 83, 80, 81, -1, 82, -1,
688 81, 51, 82, -1, 81, 53, -1, -1, 82, 89,
689 83, -1, 82, 43, 83, -1, 82, 13, 89, -1,
690 82, 14, 4, -1, 82, 15, 54, -1, -1, 44,
691 -1, 48, -1, 3, -1, -1, 48, -1, 3, -1,
692 43, -1, 48, -1, 45, -1, 49, -1, 87, -1,
693 90, -1, 3, -1, -1, 50, 46, -1
696 /* YYRLINE[YYN] -- source line where rule number YYN was defined. */
697 static const yytype_uint16 yyrline
[] =
699 0, 230, 230, 238, 240, 244, 245, 255, 256, 261,
700 262, 267, 268, 269, 270, 271, 272, 277, 286, 287,
701 288, 289, 290, 291, 292, 293, 294, 295, 296, 311,
702 312, 336, 337, 338, 339, 343, 344, 345, 349, 361,
703 373, 377, 381, 388, 403, 404, 408, 420, 420, 425,
704 425, 430, 441, 456, 457, 458, 462, 463, 468, 470,
705 475, 476, 481, 483, 488, 489, 493, 494, 495, 496,
706 501, 506, 511, 517, 523, 534, 535, 544, 545, 551,
707 552, 553, 560, 560, 568, 569, 570, 575, 577, 579,
708 581, 583, 585, 590, 592, 603, 604, 609, 610, 611,
709 620, 640, 642, 651, 656, 657, 662, 669, 671
713 #if GRAM_DEBUG || YYERROR_VERBOSE || 1
714 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
715 First, the terminals, then, starting at YYNTOKENS, nonterminals. */
716 static const char *const yytname
[] =
718 "\"end of file\"", "error", "$undefined", "\"string\"", "\"integer\"",
719 "\"%token\"", "\"%nterm\"", "\"%type\"", "\"%destructor\"",
720 "\"%printer\"", "\"%left\"", "\"%right\"", "\"%nonassoc\"", "\"%prec\"",
721 "\"%dprec\"", "\"%merge\"", "\"%code\"", "\"%debug\"",
722 "\"%default-prec\"", "\"%define\"", "\"%defines\"", "\"%error-verbose\"",
723 "\"%expect\"", "\"%expect-rr\"", "\"%file-prefix\"", "\"%glr-parser\"",
724 "\"%initial-action\"", "\"%language\"", "\"%lex-param\"",
725 "\"%locations\"", "\"%name-prefix\"", "\"%no-default-prec\"",
726 "\"%no-lines\"", "\"%nondeterministic-parser\"", "\"%output\"",
727 "\"%parse-param\"", "\"%pure-parser\"", "\"%require\"", "\"%skeleton\"",
728 "\"%start\"", "\"%token-table\"", "\"%verbose\"", "\"%yacc\"",
729 "\"{...}\"", "\"[identifier]\"", "\"char\"", "\"epilogue\"", "\"=\"",
730 "\"identifier\"", "\"identifier:\"", "\"%%\"", "\"|\"", "\"%{...%}\"",
731 "\";\"", "\"type\"", "\"<*>\"", "\"<>\"", "\"%union\"", "$accept",
732 "input", "prologue_declarations", "prologue_declaration",
733 "grammar_declaration", "union_name", "symbol_declaration", "$@1", "$@2",
734 "precedence_declaration", "precedence_declarator", "type.opt",
735 "symbols.prec", "symbol.prec", "symbols.1", "generic_symlist",
736 "generic_symlist_item", "symbol_def", "symbol_defs.1", "grammar",
737 "rules_or_grammar_declaration", "rules", "$@3", "rhses.1", "rhs",
738 "named_ref.opt", "variable", "content.opt", "braceless", "id",
739 "id_colon", "symbol", "string_as_id", "epilogue.opt", YY_NULL
744 /* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
746 static const yytype_uint16 yytoknum
[] =
748 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
749 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
750 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
751 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
752 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
753 305, 306, 307, 308, 309, 310, 311, 312
757 /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
758 static const yytype_uint8 yyr1
[] =
760 0, 58, 59, 60, 60, 61, 61, 61, 61, 61,
761 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,
762 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,
763 61, 61, 61, 61, 61, 62, 62, 62, 62, 62,
764 62, 62, 62, 62, 63, 63, 62, 65, 64, 66,
765 64, 64, 67, 68, 68, 68, 69, 69, 70, 70,
766 71, 71, 72, 72, 73, 73, 74, 74, 74, 74,
767 75, 75, 75, 75, 75, 76, 76, 77, 77, 78,
768 78, 78, 80, 79, 81, 81, 81, 82, 82, 82,
769 82, 82, 82, 83, 83, 84, 84, 85, 85, 85,
770 86, 87, 87, 88, 89, 89, 90, 91, 91
773 /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
774 static const yytype_uint8 yyr2
[] =
776 0, 2, 4, 0, 2, 1, 1, 1, 3, 1,
777 2, 1, 2, 2, 2, 3, 1, 2, 2, 2,
778 1, 2, 3, 1, 1, 2, 3, 2, 1, 2,
779 2, 1, 1, 1, 1, 1, 1, 2, 3, 3,
780 1, 1, 2, 3, 0, 1, 3, 0, 3, 0,
781 3, 3, 3, 1, 1, 1, 0, 1, 1, 2,
782 1, 2, 1, 2, 1, 2, 1, 1, 1, 1,
783 1, 1, 2, 2, 3, 1, 2, 1, 2, 1,
784 2, 2, 0, 4, 1, 3, 2, 0, 3, 3,
785 3, 3, 3, 0, 1, 1, 1, 0, 1, 1,
786 1, 1, 1, 1, 1, 1, 1, 0, 2
789 /* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM.
790 Performed when YYTABLE doesn't specify something else to do. Zero
791 means the default is an error. */
792 static const yytype_uint8 yydefact
[] =
794 3, 0, 0, 1, 49, 47, 0, 0, 0, 53,
795 54, 55, 0, 7, 40, 0, 9, 11, 0, 0,
796 0, 16, 0, 0, 0, 20, 0, 41, 23, 24,
797 0, 0, 28, 0, 0, 0, 31, 32, 33, 0,
798 6, 34, 44, 4, 5, 36, 35, 56, 0, 0,
799 0, 0, 0, 100, 0, 42, 96, 95, 97, 10,
800 12, 13, 14, 0, 17, 18, 19, 21, 0, 25,
801 0, 27, 29, 30, 106, 102, 101, 104, 37, 105,
802 0, 103, 0, 0, 77, 79, 93, 45, 0, 57,
803 0, 70, 75, 50, 71, 48, 51, 62, 67, 68,
804 69, 38, 64, 66, 39, 43, 99, 98, 8, 15,
805 22, 26, 81, 80, 0, 78, 2, 94, 82, 46,
806 52, 58, 60, 76, 72, 73, 63, 65, 108, 87,
807 59, 61, 74, 83, 84, 87, 86, 0, 0, 0,
808 93, 93, 85, 90, 91, 92, 89, 88
811 /* YYDEFGOTO[NTERM-NUM]. */
812 static const yytype_int16 yydefgoto
[] =
814 -1, 1, 2, 43, 82, 88, 45, 49, 48, 46,
815 47, 90, 120, 121, 96, 101, 102, 92, 93, 83,
816 84, 85, 129, 133, 134, 118, 58, 108, 55, 77,
820 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
822 #define YYPACT_NINF -91
823 static const yytype_int16 yypact
[] =
825 -91, 3, 103, -91, -91, -91, -36, 2, 10, -91,
826 -91, -91, 9, -91, -91, 32, 60, -91, 65, 67,
827 27, -91, 41, 73, 51, -91, 39, -91, -91, -91,
828 40, 52, -91, 93, 95, 33, -91, -91, -91, 15,
829 -91, -91, 53, -91, -91, -91, -91, 46, 43, 43,
830 33, 11, 11, -91, 61, -91, -91, -91, 35, -91,
831 -91, -91, -91, 100, -91, -91, -91, -91, 102, -91,
832 113, -91, -91, -91, -91, -91, -91, -91, -91, -91,
833 64, -91, 94, 1, -91, -91, 62, -91, 61, -91,
834 33, -91, -91, 43, 86, 43, 33, -91, -91, -91,
835 -91, 11, -91, -91, 11, -91, -91, -91, -91, -91,
836 -91, -91, -91, -91, 72, -91, -91, -91, -91, -91,
837 33, -91, 142, -91, 145, -91, -91, -91, -91, -91,
838 -91, -91, -91, 17, 34, -91, -91, 33, 146, 97,
839 62, 62, 34, -91, -91, -91, -91, -91
842 /* YYPGOTO[NTERM-NUM]. */
843 static const yytype_int16 yypgoto
[] =
845 -91, -91, -91, -91, 147, -91, -91, -91, -91, -91,
846 -91, -91, -91, 37, -91, 106, -60, -33, 105, -91,
847 69, -91, -91, -91, 24, -48, -91, -91, -49, -20,
851 /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
852 positive, shift that token. If negative, reduce the rule which
853 number is the opposite. If YYTABLE_NINF, syntax error. */
854 #define YYTABLE_NINF -108
855 static const yytype_int16 yytable
[] =
857 78, -107, 80, 3, 125, 105, 4, 5, 6, 7,
858 8, 9, 10, 11, 74, 97, 80, 12, 50, 14,
859 4, 5, 6, 7, 8, 9, 10, 11, 94, 94,
860 62, 12, 27, 14, 132, 56, 74, 74, 106, 119,
861 35, 127, 67, 69, 127, 51, 27, 137, 138, 139,
862 81, 114, 53, 52, 35, 122, 75, 54, 42, 76,
863 123, 126, 123, 59, 81, 98, 99, 100, 135, 60,
864 136, 61, 42, 94, 63, 94, 65, 140, 75, 75,
865 57, 76, 76, 107, 64, 122, 68, 70, 75, 74,
866 124, 76, 146, 147, 66, 71, 72, 91, 73, 141,
867 89, 87, 143, 109, 53, 110, 117, 141, 4, 5,
868 6, 7, 8, 9, 10, 11, 111, 112, 128, 12,
869 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
870 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
871 33, 34, 35, 36, 37, 38, 131, 113, 74, 44,
872 144, 145, 115, 39, 95, 40, 41, 130, 104, 142,
876 #define yypact_value_is_default(Yystate) \
877 (!!((Yystate) == (-91)))
879 #define yytable_value_is_error(Yytable_value) \
882 static const yytype_uint8 yycheck
[] =
884 35, 0, 1, 0, 94, 54, 5, 6, 7, 8,
885 9, 10, 11, 12, 3, 50, 1, 16, 54, 18,
886 5, 6, 7, 8, 9, 10, 11, 12, 48, 49,
887 3, 16, 31, 18, 124, 3, 3, 3, 3, 88,
888 39, 101, 3, 3, 104, 43, 31, 13, 14, 15,
889 49, 50, 43, 43, 39, 90, 45, 48, 57, 48,
890 93, 96, 95, 3, 49, 54, 55, 56, 51, 4,
891 53, 4, 57, 93, 47, 95, 3, 43, 45, 45,
892 48, 48, 48, 48, 43, 120, 47, 47, 45, 3,
893 4, 48, 140, 141, 43, 43, 3, 54, 3, 134,
894 54, 48, 137, 3, 43, 3, 44, 142, 5, 6,
895 7, 8, 9, 10, 11, 12, 3, 53, 46, 16,
896 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
897 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
898 37, 38, 39, 40, 41, 42, 4, 53, 3, 2,
899 4, 54, 83, 50, 49, 52, 53, 120, 52, 135,
903 /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
904 symbol of state STATE-NUM. */
905 static const yytype_uint8 yystos
[] =
907 0, 59, 60, 0, 5, 6, 7, 8, 9, 10,
908 11, 12, 16, 17, 18, 19, 20, 21, 22, 23,
909 24, 25, 26, 27, 28, 29, 30, 31, 32, 33,
910 34, 35, 36, 37, 38, 39, 40, 41, 42, 50,
911 52, 53, 57, 61, 62, 64, 67, 68, 66, 65,
912 54, 43, 43, 43, 48, 86, 3, 48, 84, 3,
913 4, 4, 3, 47, 43, 3, 43, 3, 47, 3,
914 47, 43, 3, 3, 3, 45, 48, 87, 89, 90,
915 1, 49, 62, 77, 78, 79, 88, 48, 63, 54,
916 69, 54, 75, 76, 87, 76, 72, 89, 54, 55,
917 56, 73, 74, 89, 73, 86, 3, 48, 85, 3,
918 3, 3, 53, 53, 50, 78, 91, 44, 83, 86,
919 70, 71, 89, 75, 4, 90, 89, 74, 46, 80,
920 71, 4, 90, 81, 82, 51, 53, 13, 14, 15,
921 43, 89, 82, 89, 4, 54, 83, 83
924 #define yyerrok (yyerrstatus = 0)
925 #define yyclearin (yychar = YYEMPTY)
929 #define YYACCEPT goto yyacceptlab
930 #define YYABORT goto yyabortlab
931 #define YYERROR goto yyerrorlab
934 /* Like YYERROR except do call yyerror. This remains here temporarily
935 to ease the transition to the new meaning of YYERROR, for GCC.
936 Once GCC version 2 has supplanted version 1, this can go. However,
937 YYFAIL appears to be in use. Nevertheless, it is formally deprecated
938 in Bison 2.4.2's NEWS entry, where a plan to phase it out is
941 #define YYFAIL goto yyerrlab
943 /* This is here to suppress warnings from the GCC cpp's
944 -Wunused-macros. Normally we don't worry about that warning, but
945 some users do, and we want to make it easy for users to remove
946 YYFAIL uses, which will produce warnings from Bison 2.5. */
949 #define YYRECOVERING() (!!yyerrstatus)
951 #define YYBACKUP(Token, Value) \
953 if (yychar == YYEMPTY) \
957 YYPOPSTACK (yylen); \
959 YY_LAC_DISCARD ("YYBACKUP"); \
964 yyerror (YY_("syntax error: cannot back up")); \
969 /* Error token number */
971 #define YYERRCODE 256
974 /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
975 If N is 0, then set CURRENT to the empty location which ends
976 the previous symbol: RHS[0] (always defined). */
978 #ifndef YYLLOC_DEFAULT
979 # define YYLLOC_DEFAULT(Current, Rhs, N) \
983 (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
984 (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
985 (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
986 (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
990 (Current).first_line = (Current).last_line = \
991 YYRHSLOC (Rhs, 0).last_line; \
992 (Current).first_column = (Current).last_column = \
993 YYRHSLOC (Rhs, 0).last_column; \
998 #define YYRHSLOC(Rhs, K) ((Rhs)[K])
1001 /* YY_LOCATION_PRINT -- Print the location on the stream.
1002 This macro was not mandated originally: define only if we know
1003 we won't break user code: when these are the locations we know. */
1005 #ifndef YY_LOCATION_PRINT
1006 # if defined GRAM_LTYPE_IS_TRIVIAL && GRAM_LTYPE_IS_TRIVIAL
1007 # define YY_LOCATION_PRINT(File, Loc) \
1009 fprintf (File, "%d.%d", (Loc).first_line, (Loc).first_column); \
1010 if ((Loc).first_line < (Loc).last_line) \
1011 fprintf (File, "-%d.%d", (Loc).last_line, (Loc).last_column - 1); \
1012 else if ((Loc).first_column < (Loc).last_column - 1) \
1013 fprintf (File, "-%d", (Loc).last_column - 1); \
1016 # define YY_LOCATION_PRINT(File, Loc) ((void) 0)
1021 /* YYLEX -- calling `yylex' with the right arguments. */
1023 # define YYLEX yylex (&yylval, &yylloc, YYLEX_PARAM)
1025 # define YYLEX yylex (&yylval, &yylloc)
1028 /* Enable debugging if requested. */
1032 # include <stdio.h> /* INFRINGES ON USER NAME SPACE */
1033 # define YYFPRINTF fprintf
1036 # define YYDPRINTF(Args) \
1042 # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
1046 YYFPRINTF (stderr, "%s ", Title); \
1047 yy_symbol_print (stderr, \
1048 Type, Value, Location); \
1049 YYFPRINTF (stderr, "\n"); \
1054 /*--------------------------------.
1055 | Print this symbol on YYOUTPUT. |
1056 `--------------------------------*/
1059 #if (defined __STDC__ || defined __C99__FUNC__ \
1060 || defined __cplusplus || defined _MSC_VER)
1062 yy_symbol_value_print (FILE *yyoutput
, int yytype
, YYSTYPE
const * const yyvaluep
, YYLTYPE
const * const yylocationp
)
1065 yy_symbol_value_print (yyoutput
, yytype
, yyvaluep
, yylocationp
)
1068 YYSTYPE
const * const yyvaluep
;
1069 YYLTYPE
const * const yylocationp
;
1072 FILE *yyo
= yyoutput
;
1076 YYUSE (yylocationp
);
1078 if (yytype
< YYNTOKENS
)
1079 YYPRINT (yyoutput
, yytoknum
[yytype
], *yyvaluep
);
1085 case 3: /* "string" */
1086 /* Line 812 of yacc.c */
1087 #line 205 "parse-gram.y"
1088 { fputs (quotearg_style (c_quoting_style
, ((*yyvaluep
).chars
)), stderr
); };
1089 /* Line 812 of yacc.c */
1090 #line 1091 "parse-gram.c"
1092 case 4: /* "integer" */
1093 /* Line 812 of yacc.c */
1094 #line 217 "parse-gram.y"
1095 { fprintf (stderr
, "%d", ((*yyvaluep
).integer
)); };
1096 /* Line 812 of yacc.c */
1097 #line 1098 "parse-gram.c"
1099 case 43: /* "{...}" */
1100 /* Line 812 of yacc.c */
1101 #line 207 "parse-gram.y"
1102 { fprintf (stderr
, "{\n%s\n}", ((*yyvaluep
).code
)); };
1103 /* Line 812 of yacc.c */
1104 #line 1105 "parse-gram.c"
1106 case 44: /* "[identifier]" */
1107 /* Line 812 of yacc.c */
1108 #line 212 "parse-gram.y"
1109 { fprintf (stderr
, "[%s]", ((*yyvaluep
).uniqstr
)); };
1110 /* Line 812 of yacc.c */
1111 #line 1112 "parse-gram.c"
1113 case 45: /* "char" */
1114 /* Line 812 of yacc.c */
1115 #line 199 "parse-gram.y"
1116 { fputs (char_name (((*yyvaluep
).character
)), stderr
); };
1117 /* Line 812 of yacc.c */
1118 #line 1119 "parse-gram.c"
1120 case 46: /* "epilogue" */
1121 /* Line 812 of yacc.c */
1122 #line 207 "parse-gram.y"
1123 { fprintf (stderr
, "{\n%s\n}", ((*yyvaluep
).chars
)); };
1124 /* Line 812 of yacc.c */
1125 #line 1126 "parse-gram.c"
1127 case 48: /* "identifier" */
1128 /* Line 812 of yacc.c */
1129 #line 211 "parse-gram.y"
1130 { fputs (((*yyvaluep
).uniqstr
), stderr
); };
1131 /* Line 812 of yacc.c */
1132 #line 1133 "parse-gram.c"
1134 case 49: /* "identifier:" */
1135 /* Line 812 of yacc.c */
1136 #line 213 "parse-gram.y"
1137 { fprintf (stderr
, "%s:", ((*yyvaluep
).uniqstr
)); };
1138 /* Line 812 of yacc.c */
1139 #line 1140 "parse-gram.c"
1141 case 52: /* "%{...%}" */
1142 /* Line 812 of yacc.c */
1143 #line 207 "parse-gram.y"
1144 { fprintf (stderr
, "{\n%s\n}", ((*yyvaluep
).chars
)); };
1145 /* Line 812 of yacc.c */
1146 #line 1147 "parse-gram.c"
1148 case 54: /* "type" */
1149 /* Line 812 of yacc.c */
1150 #line 214 "parse-gram.y"
1151 { fprintf (stderr
, "<%s>", ((*yyvaluep
).uniqstr
)); };
1152 /* Line 812 of yacc.c */
1153 #line 1154 "parse-gram.c"
1155 case 71: /* symbol.prec */
1156 /* Line 812 of yacc.c */
1157 #line 220 "parse-gram.y"
1158 { fprintf (stderr
, "%s", ((*yyvaluep
).symbol
)->tag
); };
1159 /* Line 812 of yacc.c */
1160 #line 1161 "parse-gram.c"
1162 case 84: /* variable */
1163 /* Line 812 of yacc.c */
1164 #line 211 "parse-gram.y"
1165 { fputs (((*yyvaluep
).uniqstr
), stderr
); };
1166 /* Line 812 of yacc.c */
1167 #line 1168 "parse-gram.c"
1169 case 85: /* content.opt */
1170 /* Line 812 of yacc.c */
1171 #line 207 "parse-gram.y"
1172 { fprintf (stderr
, "{\n%s\n}", ((*yyvaluep
).chars
)); };
1173 /* Line 812 of yacc.c */
1174 #line 1175 "parse-gram.c"
1176 case 86: /* braceless */
1177 /* Line 812 of yacc.c */
1178 #line 207 "parse-gram.y"
1179 { fprintf (stderr
, "{\n%s\n}", ((*yyvaluep
).chars
)); };
1180 /* Line 812 of yacc.c */
1181 #line 1182 "parse-gram.c"
1184 /* Line 812 of yacc.c */
1185 #line 220 "parse-gram.y"
1186 { fprintf (stderr
, "%s", ((*yyvaluep
).symbol
)->tag
); };
1187 /* Line 812 of yacc.c */
1188 #line 1189 "parse-gram.c"
1190 case 88: /* id_colon */
1191 /* Line 812 of yacc.c */
1192 #line 221 "parse-gram.y"
1193 { fprintf (stderr
, "%s:", ((*yyvaluep
).symbol
)->tag
); };
1194 /* Line 812 of yacc.c */
1195 #line 1196 "parse-gram.c"
1197 case 89: /* symbol */
1198 /* Line 812 of yacc.c */
1199 #line 220 "parse-gram.y"
1200 { fprintf (stderr
, "%s", ((*yyvaluep
).symbol
)->tag
); };
1201 /* Line 812 of yacc.c */
1202 #line 1203 "parse-gram.c"
1204 case 90: /* string_as_id */
1205 /* Line 812 of yacc.c */
1206 #line 220 "parse-gram.y"
1207 { fprintf (stderr
, "%s", ((*yyvaluep
).symbol
)->tag
); };
1208 /* Line 812 of yacc.c */
1209 #line 1210 "parse-gram.c"
1217 /*--------------------------------.
1218 | Print this symbol on YYOUTPUT. |
1219 `--------------------------------*/
1221 #if (defined __STDC__ || defined __C99__FUNC__ \
1222 || defined __cplusplus || defined _MSC_VER)
1224 yy_symbol_print (FILE *yyoutput
, int yytype
, YYSTYPE
const * const yyvaluep
, YYLTYPE
const * const yylocationp
)
1227 yy_symbol_print (yyoutput
, yytype
, yyvaluep
, yylocationp
)
1230 YYSTYPE
const * const yyvaluep
;
1231 YYLTYPE
const * const yylocationp
;
1234 if (yytype
< YYNTOKENS
)
1235 YYFPRINTF (yyoutput
, "token %s (", yytname
[yytype
]);
1237 YYFPRINTF (yyoutput
, "nterm %s (", yytname
[yytype
]);
1239 YY_LOCATION_PRINT (yyoutput
, *yylocationp
);
1240 YYFPRINTF (yyoutput
, ": ");
1241 yy_symbol_value_print (yyoutput
, yytype
, yyvaluep
, yylocationp
);
1242 YYFPRINTF (yyoutput
, ")");
1245 /*------------------------------------------------------------------.
1246 | yy_stack_print -- Print the state stack from its BOTTOM up to its |
1248 `------------------------------------------------------------------*/
1250 #if (defined __STDC__ || defined __C99__FUNC__ \
1251 || defined __cplusplus || defined _MSC_VER)
1253 yy_stack_print (yytype_int16
*yybottom
, yytype_int16
*yytop
)
1256 yy_stack_print (yybottom
, yytop
)
1257 yytype_int16
*yybottom
;
1258 yytype_int16
*yytop
;
1261 YYFPRINTF (stderr
, "Stack now");
1262 for (; yybottom
<= yytop
; yybottom
++)
1264 int yybot
= *yybottom
;
1265 YYFPRINTF (stderr
, " %d", yybot
);
1267 YYFPRINTF (stderr
, "\n");
1270 # define YY_STACK_PRINT(Bottom, Top) \
1273 yy_stack_print ((Bottom), (Top)); \
1277 /*------------------------------------------------.
1278 | Report that the YYRULE is going to be reduced. |
1279 `------------------------------------------------*/
1281 #if (defined __STDC__ || defined __C99__FUNC__ \
1282 || defined __cplusplus || defined _MSC_VER)
1284 yy_reduce_print (YYSTYPE
*yyvsp
, YYLTYPE
*yylsp
, int yyrule
)
1287 yy_reduce_print (yyvsp
, yylsp
, yyrule
)
1293 int yynrhs
= yyr2
[yyrule
];
1295 unsigned long int yylno
= yyrline
[yyrule
];
1296 YYFPRINTF (stderr
, "Reducing stack by rule %d (line %lu):\n",
1298 /* The symbols being reduced. */
1299 for (yyi
= 0; yyi
< yynrhs
; yyi
++)
1301 YYFPRINTF (stderr
, " $%d = ", yyi
+ 1);
1302 yy_symbol_print (stderr
, yyrhs
[yyprhs
[yyrule
] + yyi
],
1303 &(yyvsp
[(yyi
+ 1) - (yynrhs
)])
1304 , &(yylsp
[(yyi
+ 1) - (yynrhs
)]) );
1305 YYFPRINTF (stderr
, "\n");
1309 # define YY_REDUCE_PRINT(Rule) \
1312 yy_reduce_print (yyvsp, yylsp, Rule); \
1315 /* Nonzero means print parse trace. It is left uninitialized so that
1316 multiple parsers can coexist. */
1318 #else /* !GRAM_DEBUG */
1319 # define YYDPRINTF(Args)
1320 # define YY_SYMBOL_PRINT(Title, Type, Value, Location)
1321 # define YY_STACK_PRINT(Bottom, Top)
1322 # define YY_REDUCE_PRINT(Rule)
1323 #endif /* !GRAM_DEBUG */
1326 /* YYINITDEPTH -- initial size of the parser's stacks. */
1328 # define YYINITDEPTH 200
1331 /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
1332 if the built-in stack extension method is used).
1334 Do not make this value too large; the results are undefined if
1335 YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
1336 evaluated with infinite-precision integer arithmetic. */
1339 # define YYMAXDEPTH 10000
1342 /* Given a state stack such that *YYBOTTOM is its bottom, such that
1343 *YYTOP is either its top or is YYTOP_EMPTY to indicate an empty
1344 stack, and such that *YYCAPACITY is the maximum number of elements it
1345 can hold without a reallocation, make sure there is enough room to
1346 store YYADD more elements. If not, allocate a new stack using
1347 YYSTACK_ALLOC, copy the existing elements, and adjust *YYBOTTOM,
1348 *YYTOP, and *YYCAPACITY to reflect the new capacity and memory
1349 location. If *YYBOTTOM != YYBOTTOM_NO_FREE, then free the old stack
1350 using YYSTACK_FREE. Return 0 if successful or if no reallocation is
1351 required. Return 1 if memory is exhausted. */
1353 yy_lac_stack_realloc (YYSIZE_T
*yycapacity
, YYSIZE_T yyadd
,
1355 char const *yydebug_prefix
,
1356 char const *yydebug_suffix
,
1358 yytype_int16
**yybottom
,
1359 yytype_int16
*yybottom_no_free
,
1360 yytype_int16
**yytop
, yytype_int16
*yytop_empty
)
1362 YYSIZE_T yysize_old
=
1363 *yytop
== yytop_empty
? 0 : *yytop
- *yybottom
+ 1;
1364 YYSIZE_T yysize_new
= yysize_old
+ yyadd
;
1365 if (*yycapacity
< yysize_new
)
1367 YYSIZE_T yyalloc
= 2 * yysize_new
;
1368 yytype_int16
*yybottom_new
;
1369 /* Use YYMAXDEPTH for maximum stack size given that the stack
1370 should never need to grow larger than the main state stack
1371 needs to grow without LAC. */
1372 if (YYMAXDEPTH
< yysize_new
)
1374 YYDPRINTF ((stderr
, "%smax size exceeded%s", yydebug_prefix
,
1378 if (YYMAXDEPTH
< yyalloc
)
1379 yyalloc
= YYMAXDEPTH
;
1381 (yytype_int16
*) YYSTACK_ALLOC (yyalloc
* sizeof *yybottom_new
);
1384 YYDPRINTF ((stderr
, "%srealloc failed%s", yydebug_prefix
,
1388 if (*yytop
!= yytop_empty
)
1390 YYCOPY (yybottom_new
, *yybottom
, yysize_old
);
1391 *yytop
= yybottom_new
+ (yysize_old
- 1);
1393 if (*yybottom
!= yybottom_no_free
)
1394 YYSTACK_FREE (*yybottom
);
1395 *yybottom
= yybottom_new
;
1396 *yycapacity
= yyalloc
;
1401 /* Establish the initial context for the current lookahead if no initial
1402 context is currently established.
1404 We define a context as a snapshot of the parser stacks. We define
1405 the initial context for a lookahead as the context in which the
1406 parser initially examines that lookahead in order to select a
1407 syntactic action. Thus, if the lookahead eventually proves
1408 syntactically unacceptable (possibly in a later context reached via a
1409 series of reductions), the initial context can be used to determine
1410 the exact set of tokens that would be syntactically acceptable in the
1411 lookahead's place. Moreover, it is the context after which any
1412 further semantic actions would be erroneous because they would be
1413 determined by a syntactically unacceptable token.
1415 YY_LAC_ESTABLISH should be invoked when a reduction is about to be
1416 performed in an inconsistent state (which, for the purposes of LAC,
1417 includes consistent states that don't know they're consistent because
1418 their default reductions have been disabled). Iff there is a
1419 lookahead token, it should also be invoked before reporting a syntax
1420 error. This latter case is for the sake of the debugging output.
1422 For parse.lac=full, the implementation of YY_LAC_ESTABLISH is as
1423 follows. If no initial context is currently established for the
1424 current lookahead, then check if that lookahead can eventually be
1425 shifted if syntactic actions continue from the current context.
1426 Report a syntax error if it cannot. */
1427 #define YY_LAC_ESTABLISH \
1429 if (!yy_lac_established) \
1431 YYDPRINTF ((stderr, \
1432 "LAC: initial context established for %s\n", \
1433 yytname[yytoken])); \
1434 yy_lac_established = 1; \
1436 int yy_lac_status = \
1437 yy_lac (yyesa, &yyes, &yyes_capacity, yyssp, yytoken); \
1438 if (yy_lac_status == 2) \
1439 goto yyexhaustedlab; \
1440 if (yy_lac_status == 1) \
1446 /* Discard any previous initial lookahead context because of Event,
1447 which may be a lookahead change or an invalidation of the currently
1448 established initial context for the current lookahead.
1450 The most common example of a lookahead change is a shift. An example
1451 of both cases is syntax error recovery. That is, a syntax error
1452 occurs when the lookahead is syntactically erroneous for the
1453 currently established initial context, so error recovery manipulates
1454 the parser stacks to try to find a new initial context in which the
1455 current lookahead is syntactically acceptable. If it fails to find
1456 such a context, it discards the lookahead. */
1458 # define YY_LAC_DISCARD(Event) \
1460 if (yy_lac_established) \
1463 YYFPRINTF (stderr, "LAC: initial context discarded due to " \
1465 yy_lac_established = 0; \
1469 # define YY_LAC_DISCARD(Event) yy_lac_established = 0
1472 /* Given the stack whose top is *YYSSP, return 0 iff YYTOKEN can
1473 eventually (after perhaps some reductions) be shifted, return 1 if
1474 not, or return 2 if memory is exhausted. As preconditions and
1475 postconditions: *YYES_CAPACITY is the allocated size of the array to
1476 which *YYES points, and either *YYES = YYESA or *YYES points to an
1477 array allocated with YYSTACK_ALLOC. yy_lac may overwrite the
1478 contents of either array, alter *YYES and *YYES_CAPACITY, and free
1479 any old *YYES other than YYESA. */
1481 yy_lac (yytype_int16
*yyesa
, yytype_int16
**yyes
,
1482 YYSIZE_T
*yyes_capacity
, yytype_int16
*yyssp
, int yytoken
)
1484 yytype_int16
*yyes_prev
= yyssp
;
1485 yytype_int16
*yyesp
= yyes_prev
;
1486 YYDPRINTF ((stderr
, "LAC: checking lookahead %s:", yytname
[yytoken
]));
1487 if (yytoken
== YYUNDEFTOK
)
1489 YYDPRINTF ((stderr
, " Always Err\n"));
1494 int yyrule
= yypact
[*yyesp
];
1495 if (yypact_value_is_default (yyrule
)
1496 || (yyrule
+= yytoken
) < 0 || YYLAST
< yyrule
1497 || yycheck
[yyrule
] != yytoken
)
1499 yyrule
= yydefact
[*yyesp
];
1502 YYDPRINTF ((stderr
, " Err\n"));
1508 yyrule
= yytable
[yyrule
];
1509 if (yytable_value_is_error (yyrule
))
1511 YYDPRINTF ((stderr
, " Err\n"));
1516 YYDPRINTF ((stderr
, " S%d\n", yyrule
));
1522 YYSIZE_T yylen
= yyr2
[yyrule
];
1523 YYDPRINTF ((stderr
, " R%d", yyrule
- 1));
1524 if (yyesp
!= yyes_prev
)
1526 YYSIZE_T yysize
= yyesp
- *yyes
+ 1;
1539 yyesp
= yyes_prev
-= yylen
;
1544 int yylhs
= yyr1
[yyrule
] - YYNTOKENS
;
1545 yystate
= yypgoto
[yylhs
] + *yyesp
;
1546 if (yystate
< 0 || YYLAST
< yystate
1547 || yycheck
[yystate
] != *yyesp
)
1548 yystate
= yydefgoto
[yylhs
];
1550 yystate
= yytable
[yystate
];
1552 if (yyesp
== yyes_prev
)
1559 if (yy_lac_stack_realloc (yyes_capacity
, 1,
1563 yyes
, yyesa
, &yyesp
, yyes_prev
))
1565 YYDPRINTF ((stderr
, "\n"));
1570 YYDPRINTF ((stderr
, " G%d", yystate
));
1579 # if defined __GLIBC__ && defined _STRING_H
1580 # define yystrlen strlen
1582 /* Return the length of YYSTR. */
1583 #if (defined __STDC__ || defined __C99__FUNC__ \
1584 || defined __cplusplus || defined _MSC_VER)
1586 yystrlen (const char *yystr
)
1594 for (yylen
= 0; yystr
[yylen
]; yylen
++)
1602 # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
1603 # define yystpcpy stpcpy
1605 /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
1607 #if (defined __STDC__ || defined __C99__FUNC__ \
1608 || defined __cplusplus || defined _MSC_VER)
1610 yystpcpy (char *yydest
, const char *yysrc
)
1613 yystpcpy (yydest
, yysrc
)
1619 const char *yys
= yysrc
;
1621 while ((*yyd
++ = *yys
++) != '\0')
1630 /* Copy to YYRES the contents of YYSTR after stripping away unnecessary
1631 quotes and backslashes, so that it's suitable for yyerror. The
1632 heuristic is that double-quoting is unnecessary unless the string
1633 contains an apostrophe, a comma, or backslash (other than
1634 backslash-backslash). YYSTR is taken from yytname. If YYRES is
1635 null, do not copy; instead, return the length of what the result
1638 yytnamerr (char *yyres
, const char *yystr
)
1643 char const *yyp
= yystr
;
1650 goto do_not_strip_quotes
;
1654 goto do_not_strip_quotes
;
1667 do_not_strip_quotes
: ;
1671 return yystrlen (yystr
);
1673 return yystpcpy (yyres
, yystr
) - yyres
;
1677 /* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
1678 about the unexpected token YYTOKEN for the state stack whose top is
1679 YYSSP. In order to see if a particular token T is a
1680 valid looakhead, invoke yy_lac (YYESA, YYES, YYES_CAPACITY, YYSSP, T).
1682 Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
1683 not large enough to hold the message. In that case, also set
1684 *YYMSG_ALLOC to the required number of bytes. Return 2 if the
1685 required number of bytes is too large to store or if
1686 yy_lac returned 2. */
1688 yysyntax_error (YYSIZE_T
*yymsg_alloc
, char **yymsg
,
1689 yytype_int16
*yyesa
, yytype_int16
**yyes
,
1690 YYSIZE_T
*yyes_capacity
, yytype_int16
*yyssp
, int yytoken
)
1692 YYSIZE_T yysize0
= yytnamerr (YY_NULL
, yytname
[yytoken
]);
1693 YYSIZE_T yysize
= yysize0
;
1695 enum { YYERROR_VERBOSE_ARGS_MAXIMUM
= 5 };
1696 /* Internationalized format string. */
1697 const char *yyformat
= YY_NULL
;
1698 /* Arguments of yyformat. */
1699 char const *yyarg
[YYERROR_VERBOSE_ARGS_MAXIMUM
];
1700 /* Number of reported tokens (one for the "unexpected", one per
1704 /* There are many possibilities here to consider:
1705 - Assume YYFAIL is not used. It's too flawed to consider. See
1706 <http://lists.gnu.org/archive/html/bison-patches/2009-12/msg00024.html>
1707 for details. YYERROR is fine as it does not invoke this
1709 - If this state is a consistent state with a default action, then
1710 the only way this function was invoked is if the default action
1711 is an error action. In that case, don't check for expected
1712 tokens because there are none.
1713 - The only way there can be no lookahead present (in yychar) is if
1714 this state is a consistent state with a default action. Thus,
1715 detecting the absence of a lookahead is sufficient to determine
1716 that there is no unexpected or expected token to report. In that
1717 case, just report a simple "syntax error".
1718 - Don't assume there isn't a lookahead just because this state is a
1719 consistent state with a default action. There might have been a
1720 previous inconsistent state, consistent state with a non-default
1721 action, or user semantic action that manipulated yychar.
1722 In the first two cases, it might appear that the current syntax
1723 error should have been detected in the previous state when yy_lac
1724 was invoked. However, at that time, there might have been a
1725 different syntax error that discarded a different initial context
1726 during error recovery, leaving behind the current lookahead.
1728 if (yytoken
!= YYEMPTY
)
1730 int yyn
= yypact
[*yyssp
];
1731 YYDPRINTF ((stderr
, "Constructing syntax error message\n"));
1732 yyarg
[yycount
++] = yytname
[yytoken
];
1733 if (!yypact_value_is_default (yyn
))
1737 for (yyx
= 0; yyx
< YYNTOKENS
; ++yyx
)
1738 if (yyx
!= YYTERROR
&& yyx
!= YYUNDEFTOK
)
1741 int yy_lac_status
= yy_lac (yyesa
, yyes
, yyes_capacity
,
1743 if (yy_lac_status
== 2)
1745 if (yy_lac_status
== 1)
1748 if (yycount
== YYERROR_VERBOSE_ARGS_MAXIMUM
)
1754 yyarg
[yycount
++] = yytname
[yyx
];
1755 yysize1
= yysize
+ yytnamerr (YY_NULL
, yytname
[yyx
]);
1756 if (! (yysize
<= yysize1
1757 && yysize1
<= YYSTACK_ALLOC_MAXIMUM
))
1764 YYFPRINTF (stderr
, "No expected tokens.\n");
1770 # define YYCASE_(N, S) \
1774 YYCASE_(0, YY_("syntax error"));
1775 YYCASE_(1, YY_("syntax error, unexpected %s"));
1776 YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
1777 YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
1778 YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
1779 YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
1783 yysize1
= yysize
+ yystrlen (yyformat
);
1784 if (! (yysize
<= yysize1
&& yysize1
<= YYSTACK_ALLOC_MAXIMUM
))
1788 if (*yymsg_alloc
< yysize
)
1790 *yymsg_alloc
= 2 * yysize
;
1791 if (! (yysize
<= *yymsg_alloc
1792 && *yymsg_alloc
<= YYSTACK_ALLOC_MAXIMUM
))
1793 *yymsg_alloc
= YYSTACK_ALLOC_MAXIMUM
;
1797 /* Avoid sprintf, as that infringes on the user's name space.
1798 Don't have undefined behavior even if the translation
1799 produced a string with the wrong number of "%s"s. */
1803 while ((*yyp
= *yyformat
) != '\0')
1804 if (*yyp
== '%' && yyformat
[1] == 's' && yyi
< yycount
)
1806 yyp
+= yytnamerr (yyp
, yyarg
[yyi
++]);
1817 #endif /* YYERROR_VERBOSE */
1819 /*-----------------------------------------------.
1820 | Release the memory associated to this symbol. |
1821 `-----------------------------------------------*/
1824 #if (defined __STDC__ || defined __C99__FUNC__ \
1825 || defined __cplusplus || defined _MSC_VER)
1827 yydestruct (const char *yymsg
, int yytype
, YYSTYPE
*yyvaluep
, YYLTYPE
*yylocationp
)
1830 yydestruct (yymsg
, yytype
, yyvaluep
, yylocationp
)
1834 YYLTYPE
*yylocationp
;
1838 YYUSE (yylocationp
);
1842 YY_SYMBOL_PRINT (yymsg
, yytype
, yyvaluep
, yylocationp
);
1859 #ifdef YYPARSE_PARAM
1860 #if (defined __STDC__ || defined __C99__FUNC__ \
1861 || defined __cplusplus || defined _MSC_VER)
1863 yyparse (void *YYPARSE_PARAM
)
1866 yyparse (YYPARSE_PARAM
)
1867 void *YYPARSE_PARAM
;
1869 #else /* ! YYPARSE_PARAM */
1870 #if (defined __STDC__ || defined __C99__FUNC__ \
1871 || defined __cplusplus || defined _MSC_VER)
1881 /* The lookahead symbol. */
1885 #if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
1886 /* Suppress an incorrect diagnostic about yylval being uninitialized. */
1887 # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
1888 _Pragma ("GCC diagnostic push") \
1889 _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\
1890 _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
1891 # define YY_IGNORE_MAYBE_UNINITIALIZED_END \
1892 _Pragma ("GCC diagnostic pop")
1894 /* Default value used for initialization, for pacifying older GCCs
1895 or non-GCC compilers. */
1896 static YYSTYPE yyval_default
;
1897 # define YY_INITIAL_VALUE(Value) = Value
1899 #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
1900 # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
1901 # define YY_IGNORE_MAYBE_UNINITIALIZED_END
1903 #ifndef YY_INITIAL_VALUE
1904 # define YY_INITIAL_VALUE(Value) /* Nothing. */
1907 /* The semantic value of the lookahead symbol. */
1908 YYSTYPE yylval
YY_INITIAL_VALUE(yyval_default
);
1910 /* Location data for the lookahead symbol. */
1912 # if defined GRAM_LTYPE_IS_TRIVIAL && GRAM_LTYPE_IS_TRIVIAL
1918 /* Number of syntax errors so far. */
1922 /* Number of tokens to shift before error messages enabled. */
1925 /* The stacks and their tools:
1926 `yyss': related to states.
1927 `yyvs': related to semantic values.
1928 `yyls': related to locations.
1930 Refer to the stacks through separate pointers, to allow yyoverflow
1931 to reallocate them elsewhere. */
1933 /* The state stack. */
1934 yytype_int16 yyssa
[YYINITDEPTH
];
1936 yytype_int16
*yyssp
;
1938 /* The semantic value stack. */
1939 YYSTYPE yyvsa
[YYINITDEPTH
];
1943 /* The location stack. */
1944 YYLTYPE yylsa
[YYINITDEPTH
];
1948 /* The locations where the error started and ended. */
1949 YYLTYPE yyerror_range
[3];
1951 YYSIZE_T yystacksize
;
1953 yytype_int16 yyesa
[20];
1955 YYSIZE_T yyes_capacity
;
1957 int yy_lac_established
= 0;
1960 /* Lookahead token as an internal (translated) token number. */
1962 /* The variables used to return semantic value and location from the
1968 /* Buffer for error messages, and its allocated size. */
1970 char *yymsg
= yymsgbuf
;
1971 YYSIZE_T yymsg_alloc
= sizeof yymsgbuf
;
1974 #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N))
1976 /* The number of symbols on the RHS of the reduced rule.
1977 Keep to zero when no symbol should be popped. */
1980 yyssp
= yyss
= yyssa
;
1981 yyvsp
= yyvs
= yyvsa
;
1982 yylsp
= yyls
= yylsa
;
1983 yystacksize
= YYINITDEPTH
;
1986 yyes_capacity
= sizeof yyesa
/ sizeof *yyes
;
1987 if (YYMAXDEPTH
< yyes_capacity
)
1988 yyes_capacity
= YYMAXDEPTH
;
1990 YYDPRINTF ((stderr
, "Starting parse\n"));
1995 yychar
= YYEMPTY
; /* Cause a token to be read. */
1997 /* User initialization code. */
1998 /* Line 1560 of yacc.c */
1999 #line 107 "parse-gram.y"
2001 /* Bison's grammar can initial empty locations, hence a default
2002 location is needed. */
2003 boundary_set (&yylloc
.start
, current_file
, 1, 1);
2004 boundary_set (&yylloc
.end
, current_file
, 1, 1);
2006 /* Line 1560 of yacc.c */
2007 #line 2008 "parse-gram.c"
2011 /*------------------------------------------------------------.
2012 | yynewstate -- Push a new state, which is found in yystate. |
2013 `------------------------------------------------------------*/
2015 /* In all cases, when you get here, the value and location stacks
2016 have just been pushed. So pushing a state here evens the stacks. */
2022 if (yyss
+ yystacksize
- 1 <= yyssp
)
2024 /* Get the current used size of the three stacks, in elements. */
2025 YYSIZE_T yysize
= yyssp
- yyss
+ 1;
2029 /* Give user a chance to reallocate the stack. Use copies of
2030 these so that the &'s don't force the real ones into
2032 YYSTYPE
*yyvs1
= yyvs
;
2033 yytype_int16
*yyss1
= yyss
;
2034 YYLTYPE
*yyls1
= yyls
;
2036 /* Each stack pointer address is followed by the size of the
2037 data in use in that stack, in bytes. This used to be a
2038 conditional around just the two extra args, but that might
2039 be undefined if yyoverflow is a macro. */
2040 yyoverflow (YY_("memory exhausted"),
2041 &yyss1
, yysize
* sizeof (*yyssp
),
2042 &yyvs1
, yysize
* sizeof (*yyvsp
),
2043 &yyls1
, yysize
* sizeof (*yylsp
),
2050 #else /* no yyoverflow */
2051 # ifndef YYSTACK_RELOCATE
2052 goto yyexhaustedlab
;
2054 /* Extend the stack our own way. */
2055 if (YYMAXDEPTH
<= yystacksize
)
2056 goto yyexhaustedlab
;
2058 if (YYMAXDEPTH
< yystacksize
)
2059 yystacksize
= YYMAXDEPTH
;
2062 yytype_int16
*yyss1
= yyss
;
2063 union yyalloc
*yyptr
=
2064 (union yyalloc
*) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize
));
2066 goto yyexhaustedlab
;
2067 YYSTACK_RELOCATE (yyss_alloc
, yyss
);
2068 YYSTACK_RELOCATE (yyvs_alloc
, yyvs
);
2069 YYSTACK_RELOCATE (yyls_alloc
, yyls
);
2070 # undef YYSTACK_RELOCATE
2072 YYSTACK_FREE (yyss1
);
2075 #endif /* no yyoverflow */
2077 yyssp
= yyss
+ yysize
- 1;
2078 yyvsp
= yyvs
+ yysize
- 1;
2079 yylsp
= yyls
+ yysize
- 1;
2081 YYDPRINTF ((stderr
, "Stack size increased to %lu\n",
2082 (unsigned long int) yystacksize
));
2084 if (yyss
+ yystacksize
- 1 <= yyssp
)
2088 YYDPRINTF ((stderr
, "Entering state %d\n", yystate
));
2090 if (yystate
== YYFINAL
)
2100 /* Do appropriate processing given the current state. Read a
2101 lookahead token if we need one and don't already have one. */
2103 /* First try to decide what to do without reference to lookahead token. */
2104 yyn
= yypact
[yystate
];
2105 if (yypact_value_is_default (yyn
))
2108 /* Not known => get a lookahead token if don't already have one. */
2110 /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
2111 if (yychar
== YYEMPTY
)
2113 YYDPRINTF ((stderr
, "Reading a token: "));
2117 if (yychar
<= YYEOF
)
2119 yychar
= yytoken
= YYEOF
;
2120 YYDPRINTF ((stderr
, "Now at end of input.\n"));
2124 yytoken
= YYTRANSLATE (yychar
);
2125 YY_SYMBOL_PRINT ("Next token is", yytoken
, &yylval
, &yylloc
);
2128 /* If the proper action on seeing token YYTOKEN is to reduce or to
2129 detect an error, take that action. */
2131 if (yyn
< 0 || YYLAST
< yyn
|| yycheck
[yyn
] != yytoken
)
2139 if (yytable_value_is_error (yyn
))
2146 /* Count tokens shifted since error; after three, turn off error
2151 /* Shift the lookahead token. */
2152 YY_SYMBOL_PRINT ("Shifting", yytoken
, &yylval
, &yylloc
);
2154 /* Discard the shifted token. */
2156 YY_LAC_DISCARD ("shift");
2159 YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
2161 YY_IGNORE_MAYBE_UNINITIALIZED_END
2166 /*-----------------------------------------------------------.
2167 | yydefault -- do the default action for the current state. |
2168 `-----------------------------------------------------------*/
2170 yyn
= yydefact
[yystate
];
2176 /*-----------------------------.
2177 | yyreduce -- Do a reduction. |
2178 `-----------------------------*/
2180 /* yyn is the number of a rule to reduce with. */
2183 /* If YYLEN is nonzero, implement the default value of the action:
2186 Otherwise, the following line sets YYVAL to garbage.
2187 This behavior is undocumented and Bison
2188 users should not rely upon it. Assigning to YYVAL
2189 unconditionally makes the parser a bit smaller, and it avoids a
2190 GCC warning that YYVAL may be used uninitialized. */
2191 yyval
= yyvsp
[1-yylen
];
2193 /* Default location. */
2194 YYLLOC_DEFAULT (yyloc
, (yylsp
- yylen
), yylen
);
2195 YY_REDUCE_PRINT (yyn
);
2197 int yychar_backup
= yychar
;
2201 /* Line 1778 of yacc.c */
2202 #line 246 "parse-gram.y"
2204 code_props plain_code
;
2205 code_props_plain_init (&plain_code
, (yyvsp
[(1) - (1)].chars
), (yylsp
[(1) - (1)]));
2206 code_props_translate_code (&plain_code
);
2207 gram_scanner_last_string_free ();
2208 muscle_code_grow (union_seen
? "post_prologue" : "pre_prologue",
2209 plain_code
.code
, (yylsp
[(1) - (1)]));
2210 code_scanner_last_string_free ();
2215 /* Line 1778 of yacc.c */
2216 #line 255 "parse-gram.y"
2221 /* Line 1778 of yacc.c */
2222 #line 257 "parse-gram.y"
2224 muscle_percent_define_insert ((yyvsp
[(2) - (3)].uniqstr
), (yylsp
[(2) - (3)]), (yyvsp
[(3) - (3)].chars
),
2225 MUSCLE_PERCENT_DEFINE_GRAMMAR_FILE
);
2230 /* Line 1778 of yacc.c */
2231 #line 261 "parse-gram.y"
2232 { defines_flag
= true; }
2236 /* Line 1778 of yacc.c */
2237 #line 263 "parse-gram.y"
2239 defines_flag
= true;
2240 spec_defines_file
= xstrdup ((yyvsp
[(2) - (2)].chars
));
2245 /* Line 1778 of yacc.c */
2246 #line 267 "parse-gram.y"
2247 { error_verbose
= true; }
2251 /* Line 1778 of yacc.c */
2252 #line 268 "parse-gram.y"
2253 { expected_sr_conflicts
= (yyvsp
[(2) - (2)].integer
); }
2257 /* Line 1778 of yacc.c */
2258 #line 269 "parse-gram.y"
2259 { expected_rr_conflicts
= (yyvsp
[(2) - (2)].integer
); }
2263 /* Line 1778 of yacc.c */
2264 #line 270 "parse-gram.y"
2265 { spec_file_prefix
= (yyvsp
[(2) - (2)].chars
); }
2269 /* Line 1778 of yacc.c */
2270 #line 271 "parse-gram.y"
2271 { spec_file_prefix
= (yyvsp
[(3) - (3)].chars
); }
2275 /* Line 1778 of yacc.c */
2276 #line 273 "parse-gram.y"
2278 nondeterministic_parser
= true;
2284 /* Line 1778 of yacc.c */
2285 #line 278 "parse-gram.y"
2288 code_props_symbol_action_init (&action
, (yyvsp
[(2) - (2)].code
), (yylsp
[(2) - (2)]));
2289 code_props_translate_code (&action
);
2290 gram_scanner_last_string_free ();
2291 muscle_code_grow ("initial_action", action
.code
, (yylsp
[(2) - (2)]));
2292 code_scanner_last_string_free ();
2297 /* Line 1778 of yacc.c */
2298 #line 286 "parse-gram.y"
2299 { language_argmatch ((yyvsp
[(2) - (2)].chars
), grammar_prio
, (yylsp
[(1) - (2)])); }
2303 /* Line 1778 of yacc.c */
2304 #line 287 "parse-gram.y"
2305 { add_param ("lex_param", (yyvsp
[(2) - (2)].code
), (yylsp
[(2) - (2)])); }
2309 /* Line 1778 of yacc.c */
2310 #line 288 "parse-gram.y"
2311 { locations_flag
= true; }
2315 /* Line 1778 of yacc.c */
2316 #line 289 "parse-gram.y"
2317 { spec_name_prefix
= (yyvsp
[(2) - (2)].chars
); }
2321 /* Line 1778 of yacc.c */
2322 #line 290 "parse-gram.y"
2323 { spec_name_prefix
= (yyvsp
[(3) - (3)].chars
); }
2327 /* Line 1778 of yacc.c */
2328 #line 291 "parse-gram.y"
2329 { no_lines_flag
= true; }
2333 /* Line 1778 of yacc.c */
2334 #line 292 "parse-gram.y"
2335 { nondeterministic_parser
= true; }
2339 /* Line 1778 of yacc.c */
2340 #line 293 "parse-gram.y"
2341 { spec_outfile
= (yyvsp
[(2) - (2)].chars
); }
2345 /* Line 1778 of yacc.c */
2346 #line 294 "parse-gram.y"
2347 { spec_outfile
= (yyvsp
[(3) - (3)].chars
); }
2351 /* Line 1778 of yacc.c */
2352 #line 295 "parse-gram.y"
2353 { add_param ("parse_param", (yyvsp
[(2) - (2)].code
), (yylsp
[(2) - (2)])); }
2357 /* Line 1778 of yacc.c */
2358 #line 297 "parse-gram.y"
2360 /* %pure-parser is deprecated in favor of `%define api.pure', so use
2361 `%define api.pure' in a backward-compatible manner here. First, don't
2362 complain if %pure-parser is specified multiple times. */
2363 if (!muscle_find_const ("percent_define(api.pure)"))
2364 muscle_percent_define_insert ("api.pure", (yylsp
[(1) - (1)]), "",
2365 MUSCLE_PERCENT_DEFINE_GRAMMAR_FILE
);
2366 /* In all cases, use api.pure now so that the backend doesn't complain if
2367 the skeleton ignores api.pure, but do warn now if there's a previous
2368 conflicting definition from an actual %define. */
2369 if (!muscle_percent_define_flag_if ("api.pure"))
2370 muscle_percent_define_insert ("api.pure", (yylsp
[(1) - (1)]), "",
2371 MUSCLE_PERCENT_DEFINE_GRAMMAR_FILE
);
2376 /* Line 1778 of yacc.c */
2377 #line 311 "parse-gram.y"
2378 { version_check (&(yylsp
[(2) - (2)]), (yyvsp
[(2) - (2)].chars
)); }
2382 /* Line 1778 of yacc.c */
2383 #line 313 "parse-gram.y"
2385 char const *skeleton_user
= (yyvsp
[(2) - (2)].chars
);
2386 if (mbschr (skeleton_user
, '/'))
2388 size_t dir_length
= strlen (current_file
);
2389 char *skeleton_build
;
2390 while (dir_length
&& current_file
[dir_length
- 1] != '/')
2392 while (dir_length
&& current_file
[dir_length
- 1] == '/')
2395 xmalloc (dir_length
+ 1 + strlen (skeleton_user
) + 1);
2398 memcpy (skeleton_build
, current_file
, dir_length
);
2399 skeleton_build
[dir_length
++] = '/';
2401 strcpy (skeleton_build
+ dir_length
, skeleton_user
);
2402 skeleton_user
= uniqstr_new (skeleton_build
);
2403 free (skeleton_build
);
2405 skeleton_arg (skeleton_user
, grammar_prio
, (yylsp
[(1) - (2)]));
2410 /* Line 1778 of yacc.c */
2411 #line 336 "parse-gram.y"
2412 { token_table_flag
= true; }
2416 /* Line 1778 of yacc.c */
2417 #line 337 "parse-gram.y"
2418 { report_flag
|= report_states
; }
2422 /* Line 1778 of yacc.c */
2423 #line 338 "parse-gram.y"
2424 { yacc_flag
= true; }
2428 /* Line 1778 of yacc.c */
2429 #line 346 "parse-gram.y"
2431 grammar_start_symbol_set ((yyvsp
[(2) - (2)].symbol
), (yylsp
[(2) - (2)]));
2436 /* Line 1778 of yacc.c */
2437 #line 350 "parse-gram.y"
2440 code_props_symbol_action_init (&code
, (yyvsp
[(2) - (3)].code
), (yylsp
[(2) - (3)]));
2441 code_props_translate_code (&code
);
2444 for (list
= (yyvsp
[(3) - (3)].list
); list
; list
= list
->next
)
2445 symbol_list_destructor_set (list
, &code
);
2446 symbol_list_free ((yyvsp
[(3) - (3)].list
));
2452 /* Line 1778 of yacc.c */
2453 #line 362 "parse-gram.y"
2456 code_props_symbol_action_init (&code
, (yyvsp
[(2) - (3)].code
), (yylsp
[(2) - (3)]));
2457 code_props_translate_code (&code
);
2460 for (list
= (yyvsp
[(3) - (3)].list
); list
; list
= list
->next
)
2461 symbol_list_printer_set (list
, &code
);
2462 symbol_list_free ((yyvsp
[(3) - (3)].list
));
2468 /* Line 1778 of yacc.c */
2469 #line 374 "parse-gram.y"
2471 default_prec
= true;
2476 /* Line 1778 of yacc.c */
2477 #line 378 "parse-gram.y"
2479 default_prec
= false;
2484 /* Line 1778 of yacc.c */
2485 #line 382 "parse-gram.y"
2487 /* Do not invoke muscle_percent_code_grow here since it invokes
2488 muscle_user_name_list_grow. */
2489 muscle_code_grow ("percent_code()", (yyvsp
[(2) - (2)].chars
), (yylsp
[(2) - (2)]));
2490 code_scanner_last_string_free ();
2495 /* Line 1778 of yacc.c */
2496 #line 389 "parse-gram.y"
2498 muscle_percent_code_grow ((yyvsp
[(2) - (3)].uniqstr
), (yylsp
[(2) - (3)]), (yyvsp
[(3) - (3)].chars
), (yylsp
[(3) - (3)]));
2499 code_scanner_last_string_free ();
2504 /* Line 1778 of yacc.c */
2505 #line 403 "parse-gram.y"
2510 /* Line 1778 of yacc.c */
2511 #line 404 "parse-gram.y"
2512 { muscle_code_grow ("union_name", (yyvsp
[(1) - (1)].uniqstr
), (yylsp
[(1) - (1)])); }
2516 /* Line 1778 of yacc.c */
2517 #line 409 "parse-gram.y"
2520 muscle_code_grow ("stype", (yyvsp
[(3) - (3)].chars
), (yylsp
[(3) - (3)]));
2521 code_scanner_last_string_free ();
2526 /* Line 1778 of yacc.c */
2527 #line 420 "parse-gram.y"
2528 { current_class
= nterm_sym
; }
2532 /* Line 1778 of yacc.c */
2533 #line 421 "parse-gram.y"
2535 current_class
= unknown_sym
;
2536 current_type
= NULL
;
2541 /* Line 1778 of yacc.c */
2542 #line 425 "parse-gram.y"
2543 { current_class
= token_sym
; }
2547 /* Line 1778 of yacc.c */
2548 #line 426 "parse-gram.y"
2550 current_class
= unknown_sym
;
2551 current_type
= NULL
;
2556 /* Line 1778 of yacc.c */
2557 #line 431 "parse-gram.y"
2561 for (list
= (yyvsp
[(3) - (3)].list
); list
; list
= list
->next
)
2562 symbol_type_set (list
->content
.sym
, (yyvsp
[(2) - (3)].uniqstr
), (yylsp
[(2) - (3)]));
2563 symbol_list_free ((yyvsp
[(3) - (3)].list
));
2568 /* Line 1778 of yacc.c */
2569 #line 442 "parse-gram.y"
2573 for (list
= (yyvsp
[(3) - (3)].list
); list
; list
= list
->next
)
2575 symbol_type_set (list
->content
.sym
, current_type
, (yylsp
[(2) - (3)]));
2576 symbol_precedence_set (list
->content
.sym
, current_prec
, (yyvsp
[(1) - (3)].assoc
), (yylsp
[(1) - (3)]));
2578 symbol_list_free ((yyvsp
[(3) - (3)].list
));
2579 current_type
= NULL
;
2584 /* Line 1778 of yacc.c */
2585 #line 456 "parse-gram.y"
2586 { (yyval
.assoc
) = left_assoc
; }
2590 /* Line 1778 of yacc.c */
2591 #line 457 "parse-gram.y"
2592 { (yyval
.assoc
) = right_assoc
; }
2596 /* Line 1778 of yacc.c */
2597 #line 458 "parse-gram.y"
2598 { (yyval
.assoc
) = non_assoc
; }
2602 /* Line 1778 of yacc.c */
2603 #line 462 "parse-gram.y"
2604 { current_type
= NULL
; }
2608 /* Line 1778 of yacc.c */
2609 #line 463 "parse-gram.y"
2610 { current_type
= (yyvsp
[(1) - (1)].uniqstr
); tag_seen
= true; }
2614 /* Line 1778 of yacc.c */
2615 #line 469 "parse-gram.y"
2616 { (yyval
.list
) = symbol_list_sym_new ((yyvsp
[(1) - (1)].symbol
), (yylsp
[(1) - (1)])); }
2620 /* Line 1778 of yacc.c */
2621 #line 471 "parse-gram.y"
2622 { (yyval
.list
) = symbol_list_prepend ((yyvsp
[(1) - (2)].list
), symbol_list_sym_new ((yyvsp
[(2) - (2)].symbol
), (yylsp
[(2) - (2)]))); }
2626 /* Line 1778 of yacc.c */
2627 #line 475 "parse-gram.y"
2628 { (yyval
.symbol
) = (yyvsp
[(1) - (1)].symbol
); }
2632 /* Line 1778 of yacc.c */
2633 #line 476 "parse-gram.y"
2634 { (yyval
.symbol
) = (yyvsp
[(1) - (2)].symbol
); symbol_user_token_number_set ((yyvsp
[(1) - (2)].symbol
), (yyvsp
[(2) - (2)].integer
), (yylsp
[(2) - (2)])); }
2638 /* Line 1778 of yacc.c */
2639 #line 482 "parse-gram.y"
2640 { (yyval
.list
) = symbol_list_sym_new ((yyvsp
[(1) - (1)].symbol
), (yylsp
[(1) - (1)])); }
2644 /* Line 1778 of yacc.c */
2645 #line 484 "parse-gram.y"
2646 { (yyval
.list
) = symbol_list_prepend ((yyvsp
[(1) - (2)].list
), symbol_list_sym_new ((yyvsp
[(2) - (2)].symbol
), (yylsp
[(2) - (2)]))); }
2650 /* Line 1778 of yacc.c */
2651 #line 488 "parse-gram.y"
2652 { (yyval
.list
) = (yyvsp
[(1) - (1)].list
); }
2656 /* Line 1778 of yacc.c */
2657 #line 489 "parse-gram.y"
2658 { (yyval
.list
) = symbol_list_prepend ((yyvsp
[(1) - (2)].list
), (yyvsp
[(2) - (2)].list
)); }
2662 /* Line 1778 of yacc.c */
2663 #line 493 "parse-gram.y"
2664 { (yyval
.list
) = symbol_list_sym_new ((yyvsp
[(1) - (1)].symbol
), (yylsp
[(1) - (1)])); }
2668 /* Line 1778 of yacc.c */
2669 #line 494 "parse-gram.y"
2670 { (yyval
.list
) = symbol_list_type_new ((yyvsp
[(1) - (1)].uniqstr
), (yylsp
[(1) - (1)])); }
2674 /* Line 1778 of yacc.c */
2675 #line 495 "parse-gram.y"
2676 { (yyval
.list
) = symbol_list_default_tagged_new ((yylsp
[(1) - (1)])); }
2680 /* Line 1778 of yacc.c */
2681 #line 496 "parse-gram.y"
2682 { (yyval
.list
) = symbol_list_default_tagless_new ((yylsp
[(1) - (1)])); }
2686 /* Line 1778 of yacc.c */
2687 #line 502 "parse-gram.y"
2689 current_type
= (yyvsp
[(1) - (1)].uniqstr
);
2695 /* Line 1778 of yacc.c */
2696 #line 507 "parse-gram.y"
2698 symbol_class_set ((yyvsp
[(1) - (1)].symbol
), current_class
, (yylsp
[(1) - (1)]), true);
2699 symbol_type_set ((yyvsp
[(1) - (1)].symbol
), current_type
, (yylsp
[(1) - (1)]));
2704 /* Line 1778 of yacc.c */
2705 #line 512 "parse-gram.y"
2707 symbol_class_set ((yyvsp
[(1) - (2)].symbol
), current_class
, (yylsp
[(1) - (2)]), true);
2708 symbol_type_set ((yyvsp
[(1) - (2)].symbol
), current_type
, (yylsp
[(1) - (2)]));
2709 symbol_user_token_number_set ((yyvsp
[(1) - (2)].symbol
), (yyvsp
[(2) - (2)].integer
), (yylsp
[(2) - (2)]));
2714 /* Line 1778 of yacc.c */
2715 #line 518 "parse-gram.y"
2717 symbol_class_set ((yyvsp
[(1) - (2)].symbol
), current_class
, (yylsp
[(1) - (2)]), true);
2718 symbol_type_set ((yyvsp
[(1) - (2)].symbol
), current_type
, (yylsp
[(1) - (2)]));
2719 symbol_make_alias ((yyvsp
[(1) - (2)].symbol
), (yyvsp
[(2) - (2)].symbol
), (yyloc
));
2724 /* Line 1778 of yacc.c */
2725 #line 524 "parse-gram.y"
2727 symbol_class_set ((yyvsp
[(1) - (3)].symbol
), current_class
, (yylsp
[(1) - (3)]), true);
2728 symbol_type_set ((yyvsp
[(1) - (3)].symbol
), current_type
, (yylsp
[(1) - (3)]));
2729 symbol_user_token_number_set ((yyvsp
[(1) - (3)].symbol
), (yyvsp
[(2) - (3)].integer
), (yylsp
[(2) - (3)]));
2730 symbol_make_alias ((yyvsp
[(1) - (3)].symbol
), (yyvsp
[(3) - (3)].symbol
), (yyloc
));
2735 /* Line 1778 of yacc.c */
2736 #line 554 "parse-gram.y"
2743 /* Line 1778 of yacc.c */
2744 #line 560 "parse-gram.y"
2745 { current_lhs ((yyvsp
[(1) - (2)].symbol
), (yylsp
[(1) - (2)]), (yyvsp
[(2) - (2)].named_ref
)); }
2749 /* Line 1778 of yacc.c */
2750 #line 561 "parse-gram.y"
2752 /* Free the current lhs. */
2753 current_lhs (0, (yylsp
[(1) - (4)]), 0);
2758 /* Line 1778 of yacc.c */
2759 #line 568 "parse-gram.y"
2760 { grammar_current_rule_end ((yylsp
[(1) - (1)])); }
2764 /* Line 1778 of yacc.c */
2765 #line 569 "parse-gram.y"
2766 { grammar_current_rule_end ((yylsp
[(3) - (3)])); }
2770 /* Line 1778 of yacc.c */
2771 #line 575 "parse-gram.y"
2772 { grammar_current_rule_begin (current_lhs_symbol
, current_lhs_location
,
2773 current_lhs_named_ref
); }
2777 /* Line 1778 of yacc.c */
2778 #line 578 "parse-gram.y"
2779 { grammar_current_rule_symbol_append ((yyvsp
[(2) - (3)].symbol
), (yylsp
[(2) - (3)]), (yyvsp
[(3) - (3)].named_ref
)); }
2783 /* Line 1778 of yacc.c */
2784 #line 580 "parse-gram.y"
2785 { grammar_current_rule_action_append ((yyvsp
[(2) - (3)].code
), (yylsp
[(2) - (3)]), (yyvsp
[(3) - (3)].named_ref
)); }
2789 /* Line 1778 of yacc.c */
2790 #line 582 "parse-gram.y"
2791 { grammar_current_rule_prec_set ((yyvsp
[(3) - (3)].symbol
), (yylsp
[(3) - (3)])); }
2795 /* Line 1778 of yacc.c */
2796 #line 584 "parse-gram.y"
2797 { grammar_current_rule_dprec_set ((yyvsp
[(3) - (3)].integer
), (yylsp
[(3) - (3)])); }
2801 /* Line 1778 of yacc.c */
2802 #line 586 "parse-gram.y"
2803 { grammar_current_rule_merge_set ((yyvsp
[(3) - (3)].uniqstr
), (yylsp
[(3) - (3)])); }
2807 /* Line 1778 of yacc.c */
2808 #line 590 "parse-gram.y"
2809 { (yyval
.named_ref
) = 0; }
2813 /* Line 1778 of yacc.c */
2814 #line 592 "parse-gram.y"
2815 { (yyval
.named_ref
) = named_ref_new((yyvsp
[(1) - (1)].uniqstr
), (yylsp
[(1) - (1)])); }
2819 /* Line 1778 of yacc.c */
2820 #line 604 "parse-gram.y"
2821 { (yyval
.uniqstr
) = uniqstr_new ((yyvsp
[(1) - (1)].chars
)); }
2825 /* Line 1778 of yacc.c */
2826 #line 609 "parse-gram.y"
2827 { (yyval
.chars
) = ""; }
2831 /* Line 1778 of yacc.c */
2832 #line 610 "parse-gram.y"
2833 { (yyval
.chars
) = (yyvsp
[(1) - (1)].uniqstr
); }
2837 /* Line 1778 of yacc.c */
2838 #line 621 "parse-gram.y"
2840 code_props plain_code
;
2841 (yyvsp
[(1) - (1)].code
)[strlen ((yyvsp
[(1) - (1)].code
)) - 1] = '\n';
2842 code_props_plain_init (&plain_code
, (yyvsp
[(1) - (1)].code
)+1, (yylsp
[(1) - (1)]));
2843 code_props_translate_code (&plain_code
);
2844 gram_scanner_last_string_free ();
2845 (yyval
.chars
) = plain_code
.code
;
2850 /* Line 1778 of yacc.c */
2851 #line 641 "parse-gram.y"
2852 { (yyval
.symbol
) = symbol_from_uniqstr ((yyvsp
[(1) - (1)].uniqstr
), (yylsp
[(1) - (1)])); }
2856 /* Line 1778 of yacc.c */
2857 #line 643 "parse-gram.y"
2859 (yyval
.symbol
) = symbol_get (char_name ((yyvsp
[(1) - (1)].character
)), (yylsp
[(1) - (1)]));
2860 symbol_class_set ((yyval
.symbol
), token_sym
, (yylsp
[(1) - (1)]), false);
2861 symbol_user_token_number_set ((yyval
.symbol
), (yyvsp
[(1) - (1)].character
), (yylsp
[(1) - (1)]));
2866 /* Line 1778 of yacc.c */
2867 #line 651 "parse-gram.y"
2868 { (yyval
.symbol
) = symbol_from_uniqstr ((yyvsp
[(1) - (1)].uniqstr
), (yylsp
[(1) - (1)])); }
2872 /* Line 1778 of yacc.c */
2873 #line 663 "parse-gram.y"
2875 (yyval
.symbol
) = symbol_get (quotearg_style (c_quoting_style
, (yyvsp
[(1) - (1)].chars
)), (yylsp
[(1) - (1)]));
2876 symbol_class_set ((yyval
.symbol
), token_sym
, (yylsp
[(1) - (1)]), false);
2881 /* Line 1778 of yacc.c */
2882 #line 672 "parse-gram.y"
2884 code_props plain_code
;
2885 code_props_plain_init (&plain_code
, (yyvsp
[(2) - (2)].chars
), (yylsp
[(2) - (2)]));
2886 code_props_translate_code (&plain_code
);
2887 gram_scanner_last_string_free ();
2888 muscle_code_grow ("epilogue", plain_code
.code
, (yylsp
[(2) - (2)]));
2889 code_scanner_last_string_free ();
2894 /* Line 1778 of yacc.c */
2895 #line 2896 "parse-gram.c"
2898 if (yychar_backup
!= yychar
)
2899 YY_LAC_DISCARD ("yychar change");
2901 /* User semantic actions sometimes alter yychar, and that requires
2902 that yytoken be updated with the new translation. We take the
2903 approach of translating immediately before every use of yytoken.
2904 One alternative is translating here after every semantic action,
2905 but that translation would be missed if the semantic action invokes
2906 YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
2907 if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
2908 incorrect destructor might then be invoked immediately. In the
2909 case of YYERROR or YYBACKUP, subsequent parser actions might lead
2910 to an incorrect destructor call or verbose syntax error message
2911 before the lookahead is translated. */
2912 YY_SYMBOL_PRINT ("-> $$ =", yyr1
[yyn
], &yyval
, &yyloc
);
2916 YY_STACK_PRINT (yyss
, yyssp
);
2921 /* Now `shift' the result of the reduction. Determine what state
2922 that goes to, based on the state we popped back to and the rule
2923 number reduced by. */
2927 yystate
= yypgoto
[yyn
- YYNTOKENS
] + *yyssp
;
2928 if (0 <= yystate
&& yystate
<= YYLAST
&& yycheck
[yystate
] == *yyssp
)
2929 yystate
= yytable
[yystate
];
2931 yystate
= yydefgoto
[yyn
- YYNTOKENS
];
2936 /*------------------------------------.
2937 | yyerrlab -- here on detecting error |
2938 `------------------------------------*/
2940 /* Make sure we have latest lookahead translation. See comments at
2941 user semantic actions for why this is necessary. */
2942 yytoken
= yychar
== YYEMPTY
? YYEMPTY
: YYTRANSLATE (yychar
);
2944 /* If not already recovering from an error, report this error. */
2948 #if ! YYERROR_VERBOSE
2949 yyerror (YY_("syntax error"));
2951 # define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
2952 yyesa, &yyes, &yyes_capacity, \
2955 char const *yymsgp
= YY_("syntax error");
2956 int yysyntax_error_status
;
2957 if (yychar
!= YYEMPTY
)
2959 yysyntax_error_status
= YYSYNTAX_ERROR
;
2960 if (yysyntax_error_status
== 0)
2962 else if (yysyntax_error_status
== 1)
2964 if (yymsg
!= yymsgbuf
)
2965 YYSTACK_FREE (yymsg
);
2966 yymsg
= (char *) YYSTACK_ALLOC (yymsg_alloc
);
2970 yymsg_alloc
= sizeof yymsgbuf
;
2971 yysyntax_error_status
= 2;
2975 yysyntax_error_status
= YYSYNTAX_ERROR
;
2980 if (yysyntax_error_status
== 2)
2981 goto yyexhaustedlab
;
2983 # undef YYSYNTAX_ERROR
2987 yyerror_range
[1] = yylloc
;
2989 if (yyerrstatus
== 3)
2991 /* If just tried and failed to reuse lookahead token after an
2992 error, discard it. */
2994 if (yychar
<= YYEOF
)
2996 /* Return failure if at end of input. */
2997 if (yychar
== YYEOF
)
3002 yydestruct ("Error: discarding",
3003 yytoken
, &yylval
, &yylloc
);
3008 /* Else will try to reuse lookahead token after shifting the error
3013 /*---------------------------------------------------.
3014 | yyerrorlab -- error raised explicitly by YYERROR. |
3015 `---------------------------------------------------*/
3018 /* Pacify compilers like GCC when the user code never invokes
3019 YYERROR and the label yyerrorlab therefore never appears in user
3021 if (/*CONSTCOND*/ 0)
3024 yyerror_range
[1] = yylsp
[1-yylen
];
3025 /* Do not reclaim the symbols of the rule which action triggered
3029 YY_STACK_PRINT (yyss
, yyssp
);
3034 /*-------------------------------------------------------------.
3035 | yyerrlab1 -- common code for both syntax error and YYERROR. |
3036 `-------------------------------------------------------------*/
3038 yyerrstatus
= 3; /* Each real token shifted decrements this. */
3042 yyn
= yypact
[yystate
];
3043 if (!yypact_value_is_default (yyn
))
3046 if (0 <= yyn
&& yyn
<= YYLAST
&& yycheck
[yyn
] == YYTERROR
)
3054 /* Pop the current state because it cannot handle the error token. */
3058 yyerror_range
[1] = *yylsp
;
3059 yydestruct ("Error: popping",
3060 yystos
[yystate
], yyvsp
, yylsp
);
3063 YY_STACK_PRINT (yyss
, yyssp
);
3066 /* If the stack popping above didn't lose the initial context for the
3067 current lookahead token, the shift below will for sure. */
3068 YY_LAC_DISCARD ("error recovery");
3070 YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
3072 YY_IGNORE_MAYBE_UNINITIALIZED_END
3074 yyerror_range
[2] = yylloc
;
3075 /* Using YYLLOC is tempting, but would change the location of
3076 the lookahead. YYLOC is available though. */
3077 YYLLOC_DEFAULT (yyloc
, yyerror_range
, 2);
3080 /* Shift the error token. */
3081 YY_SYMBOL_PRINT ("Shifting", yystos
[yyn
], yyvsp
, yylsp
);
3087 /*-------------------------------------.
3088 | yyacceptlab -- YYACCEPT comes here. |
3089 `-------------------------------------*/
3094 /*-----------------------------------.
3095 | yyabortlab -- YYABORT comes here. |
3096 `-----------------------------------*/
3102 /*-------------------------------------------------.
3103 | yyexhaustedlab -- memory exhaustion comes here. |
3104 `-------------------------------------------------*/
3106 yyerror (YY_("memory exhausted"));
3112 if (yychar
!= YYEMPTY
)
3114 /* Make sure we have latest lookahead translation. See comments at
3115 user semantic actions for why this is necessary. */
3116 yytoken
= YYTRANSLATE (yychar
);
3117 yydestruct ("Cleanup: discarding lookahead",
3118 yytoken
, &yylval
, &yylloc
);
3120 /* Do not reclaim the symbols of the rule which action triggered
3121 this YYABORT or YYACCEPT. */
3123 YY_STACK_PRINT (yyss
, yyssp
);
3124 while (yyssp
!= yyss
)
3126 yydestruct ("Cleanup: popping",
3127 yystos
[*yyssp
], yyvsp
, yylsp
);
3132 YYSTACK_FREE (yyss
);
3135 YYSTACK_FREE (yyes
);
3137 if (yymsg
!= yymsgbuf
)
3138 YYSTACK_FREE (yymsg
);
3140 /* Make sure YYID is used. */
3141 return YYID (yyresult
);
3145 /* Line 2041 of yacc.c */
3146 #line 682 "parse-gram.y"
3150 /* Return the location of the left-hand side of a rule whose
3151 right-hand side is RHS[1] ... RHS[N]. Ignore empty nonterminals in
3152 the right-hand side, and return an empty location equal to the end
3153 boundary of RHS[0] if the right-hand side is empty. */
3156 lloc_default (YYLTYPE
const *rhs
, int n
)
3161 /* SGI MIPSpro 7.4.1m miscompiles "loc.start = loc.end = rhs[n].end;".
3162 The bug is fixed in 7.4.2m, but play it safe for now. */
3163 loc
.start
= rhs
[n
].end
;
3164 loc
.end
= rhs
[n
].end
;
3166 /* Ignore empty nonterminals the start of the right-hand side.
3167 Do not bother to ignore them at the end of the right-hand side,
3168 since empty nonterminals have the same end as their predecessors. */
3169 for (i
= 1; i
<= n
; i
++)
3170 if (! equal_boundaries (rhs
[i
].start
, rhs
[i
].end
))
3172 loc
.start
= rhs
[i
].start
;
3180 /* Add a lex-param or a parse-param (depending on TYPE) with
3181 declaration DECL and location LOC. */
3184 add_param (char const *type
, char *decl
, location loc
)
3186 static char const alphanum
[26 + 26 + 1 + 10] =
3187 "abcdefghijklmnopqrstuvwxyz"
3188 "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
3191 char const *name_start
= NULL
;
3194 /* Stop on last actual character. */
3195 for (p
= decl
; p
[1]; p
++)
3197 || ! memchr (alphanum
, p
[-1], sizeof alphanum
))
3198 && memchr (alphanum
, p
[0], sizeof alphanum
- 10))
3201 /* Strip the surrounding '{' and '}', and any blanks just inside
3204 while (c_isspace ((unsigned char) *p
))
3208 while (c_isspace ((unsigned char) *decl
))
3212 complain_at (loc
, _("missing identifier in parameter declaration"));
3215 char *name
= xmemdup0 (name_start
, strspn (name_start
, alphanum
));
3216 muscle_pair_list_grow (type
, decl
, name
);
3220 gram_scanner_last_string_free ();
3225 version_check (location
const *loc
, char const *version
)
3227 if (strverscmp (version
, PACKAGE_VERSION
) > 0)
3229 complain_at (*loc
, "require bison %s, but have %s",
3230 version
, PACKAGE_VERSION
);
3236 gram_error (location
const *loc
, char const *msg
)
3238 complain_at (*loc
, "%s", msg
);
3242 token_name (int type
)
3244 return yytname
[YYTRANSLATE (type
)];
3255 buf
[0] = '\''; buf
[1] = c
; buf
[2] = '\''; buf
[3] = '\0';
3256 return quotearg_style (escape_quoting_style
, buf
);