lib/as3/skeleton.m4

   1                                                              -*- C -*-
   2
   3 # Yacc compatible skeleton for Bison
   4
   5 # Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
   6 # 2007, 2008 Free Software Foundation, Inc.
   7
   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 3 of the License, or
  11 # (at your option) any later version.
  12 #
  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.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 # Check the value of %define api.push_pull.
  22 b4_percent_define_default([[api.push_pull]], [[pull]])
  23 b4_percent_define_check_values([[[[api.push_pull]],
  24                                [[pull]], [[push]], [[both]]]])
  25 b4_define_flag_if([pull]) m4_define([b4_pull_flag], [[1]])
  26 b4_define_flag_if([push]) m4_define([b4_push_flag], [[1]])
  27 m4_case(b4_percent_define_get([[api.push_pull]]),
  28         [pull], [m4_define([b4_push_flag], [[0]])],
  29         [push], [m4_define([b4_pull_flag], [[0]])])
  30
  31 # Handle BISON_USE_PUSH_FOR_PULL for the test suite.  So that push parsing
  32 # tests function as written, don't let BISON_USE_PUSH_FOR_PULL modify Bison's
  33 # behavior at all when push parsing is already requested.
  34 b4_define_flag_if([use_push_for_pull])
  35 b4_use_push_for_pull_if([
  36   b4_push_if([m4_define([b4_use_push_for_pull_flag], [[0]])],
  37              [m4_define([b4_push_flag], [[1]])])])
  38
  39 m4_include(b4_pkgdatadir/[c.m4])
  40
  41 m4_define([b4_case],
  42 [
  43     case $1:
  44     if(as3_pass==2) {
  45 $2
  46     }
  47     break;
  48 ])
  49
  50 ## ---------------- ##
  51 ## Default values.  ##
  52 ## ---------------- ##
  53
  54 # Stack parameters.
  55 m4_define_default([b4_stack_depth_max], [10000])
  56 m4_define_default([b4_stack_depth_init],  [200])
  57
  58
  59 ## ------------------------ ##
  60 ## Pure/impure interfaces.  ##
  61 ## ------------------------ ##
  62
  63 b4_percent_define_default([[api.pure]], [[false]])
  64 b4_define_flag_if([pure])
  65 m4_define([b4_pure_flag],
  66           [b4_percent_define_flag_if([[api.pure]], [[1]], [[0]])])
  67
  68 # b4_yacc_pure_if(IF-TRUE, IF-FALSE)
  69 # ----------------------------------
  70 # Expand IF-TRUE, if %pure-parser and %parse-param, IF-FALSE otherwise.
  71 m4_define([b4_yacc_pure_if],
  72 [b4_pure_if([m4_ifset([b4_parse_param],
  73                       [$1], [$2])],
  74             [$2])])
  75
  76
  77 # b4_yyerror_args
  78 # ---------------
  79 # Arguments passed to yyerror: user args plus yylloc.
  80 m4_define([b4_yyerror_args],
  81 [b4_yacc_pure_if([b4_locations_if([&yylloc, ])])dnl
  82 m4_ifset([b4_parse_param], [b4_c_args(b4_parse_param), ])])
  83
  84
  85 # b4_lex_param
  86 # ------------
  87 # Accumulate in b4_lex_param all the yylex arguments.
  88 # b4_lex_param arrives quoted twice, but we want to keep only one level.
  89 m4_define([b4_lex_param],
  90 m4_dquote(b4_pure_if([[[[YYSTYPE *]], [[&yylval]]][]dnl
  91 b4_locations_if([, [[YYLTYPE *], [&yylloc]]])m4_ifdef([b4_lex_param], [, ])])dnl
  92 m4_ifdef([b4_lex_param], b4_lex_param)))
  93
  94
  95 ## ------------ ##
  96 ## Data Types.  ##
  97 ## ------------ ##
  98
  99 # b4_int_type(MIN, MAX)
 100 # ---------------------
 101 # Return the smallest int type able to handle numbers ranging from
 102 # MIN to MAX (included).  Overwrite the version from c.m4, which
 103 # uses only C89 types, so that the user can override the shorter
 104 # types, and so that pre-C89 compilers are handled correctly.
 105 m4_define([b4_int_type],
 106 [m4_if(b4_ints_in($@,      [0],   [255]), [1], [yytype_uint8],
 107        b4_ints_in($@,   [-128],   [127]), [1], [yytype_int8],
 108
 109        b4_ints_in($@,      [0], [65535]), [1], [yytype_uint16],
 110        b4_ints_in($@, [-32768], [32767]), [1], [yytype_int16],
 111
 112        m4_eval([0 <= $1]),                [1], [unsigned int],
 113
 114                                                [int])])
 115
 116
 117 ## ----------------- ##
 118 ## Semantic Values.  ##
 119 ## ----------------- ##
 120
 121
 122 # b4_lhs_value([TYPE])
 123 # --------------------
 124 # Expansion of $<TYPE>$.
 125 m4_define([b4_lhs_value],
 126 [(yyval[]m4_ifval([$1], [.$1]))])
 127
 128
 129 # b4_rhs_value(RULE-LENGTH, NUM, [TYPE])
 130 # --------------------------------------
 131 # Expansion of $<TYPE>NUM, where the current rule has RULE-LENGTH
 132 # symbols on RHS.
 133 m4_define([b4_rhs_value],
 134 [(yyvsp@{($2) - ($1)@}m4_ifval([$3], [.$3]))])
 135
 136
 137
 138 ## ----------- ##
 139 ## Locations.  ##
 140 ## ----------- ##
 141
 142 # b4_lhs_location()
 143 # -----------------
 144 # Expansion of @$.
 145 m4_define([b4_lhs_location],
 146 [(yyloc)])
 147
 148
 149 # b4_rhs_location(RULE-LENGTH, NUM)
 150 # ---------------------------------
 151 # Expansion of @NUM, where the current rule has RULE-LENGTH symbols
 152 # on RHS.
 153 m4_define([b4_rhs_location],
 154 [(yylsp@{($2) - ($1)@})])
 155
 156
 157
 158 ## --------------------------------------------------------- ##
 159 ## Defining symbol actions, e.g., printers and destructors.  ##
 160 ## --------------------------------------------------------- ##
 161
 162 # We do want M4 expansion after # for CPP macros.
 163 m4_changecom()
 164 m4_divert_push(0)dnl
 165 @output(b4_parser_file_name@)
 166 b4_copyright([Skeleton implementation for Bison's Yacc-like parsers in C],dnl '
 167   [1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006])[
 168
 169 /* C LALR(1) parser skeleton written by Richard Stallman, by
 170    simplifying the original so-called "semantic" parser.  */
 171
 172 /* All symbols defined below should begin with yy or YY, to avoid
 173    infringing on user name space.  This should be done even for local
 174    variables, as they might otherwise be expanded by user macros.
 175    There are some unavoidable exceptions within include files to
 176    define necessary library symbols; they are noted "INFRINGES ON
 177    USER NAME SPACE" below.  */
 178
 179 ]b4_identification
 180 b4_percent_code_get([[top]])[]dnl
 181 m4_if(b4_prefix, [yy], [],
 182 [[/* Substitute the variable and function names.  */
 183 ]b4_pull_if([[#define yyparse         ]b4_prefix[parse
 184 ]])b4_push_if([[#define yypush_parse    ]b4_prefix[push_parse
 185 ]b4_pull_if([[#define yypull_parse    ]b4_prefix[pull_parse
 186 ]])[#define yypstate_new    ]b4_prefix[pstate_new
 187 #define yypstate_delete ]b4_prefix[pstate_delete
 188 #define yypstate        ]b4_prefix[pstate
 189 ]])[#define yylex           ]b4_prefix[lex
 190 #define yyerror         ]b4_prefix[error
 191 #define yylval          ]b4_prefix[lval
 192 #define yychar          ]b4_prefix[char
 193 #define yydebug         ]b4_prefix[debug
 194 #define yynerrs         ]b4_prefix[nerrs
 195 ]b4_locations_if([[#define yylloc          ]b4_prefix[lloc]])])[
 196
 197 /* Copy the first part of user declarations.  */
 198 ]b4_user_pre_prologue[
 199
 200 /* Enabling traces.  */
 201 #ifndef YYDEBUG
 202 # define YYDEBUG ]b4_debug_flag[
 203 #endif
 204
 205 /* Enabling verbose error messages.  */
 206 #ifdef YYERROR_VERBOSE
 207 # undef YYERROR_VERBOSE
 208 # define YYERROR_VERBOSE 1
 209 #else
 210 # define YYERROR_VERBOSE ]b4_error_verbose_flag[
 211 #endif
 212
 213 /* Enabling the token table.  */
 214 #ifndef YYTOKEN_TABLE
 215 # define YYTOKEN_TABLE ]b4_token_table[
 216 #endif
 217
 218 ]b4_percent_code_get([[requires]])[]dnl
 219
 220 b4_token_enums_defines(b4_tokens)[
 221
 222 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 223 ]m4_ifdef([b4_stype],
 224 [[typedef union ]b4_union_name[
 225 {
 226 ]b4_user_stype[
 227 } YYSTYPE;
 228 # define YYSTYPE_IS_TRIVIAL 1]],
 229 [m4_if(b4_tag_seen_flag, 0,
 230 [[typedef int YYSTYPE;
 231 # define YYSTYPE_IS_TRIVIAL 1]])])[
 232 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
 233 # define YYSTYPE_IS_DECLARED 1
 234 #endif]b4_locations_if([[
 235
 236 #if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
 237 typedef struct YYLTYPE
 238 {
 239   int first_line;
 240   int first_column;
 241   int last_line;
 242   int last_column;
 243 } YYLTYPE;
 244 # define yyltype YYLTYPE /* obsolescent; will be withdrawn */
 245 # define YYLTYPE_IS_DECLARED 1
 246 # define YYLTYPE_IS_TRIVIAL 1
 247 #endif]])b4_push_if([[
 248
 249 #ifndef YYPUSH_DECLS
 250 #  define YYPUSH_DECLS
 251 struct yypstate;
 252 typedef struct yypstate yypstate;
 253 enum { YYPUSH_MORE = 4 };
 254
 255 ]b4_pull_if([b4_c_function_decl([[yyparse]], [[int]], b4_parse_param)
 256 ])b4_c_function_decl([[yypush_parse]], [[int]],
 257   [[[yypstate *yyps]], [[yyps]]]b4_pure_if([,
 258   [[[int yypushed_char]], [[yypushed_char]]],
 259   [[[YYSTYPE const *yypushed_val]], [[yypushed_val]]]b4_locations_if([,
 260   [[[YYLTYPE const *yypushed_loc]], [[yypushed_loc]]]])])m4_ifset([b4_parse_param], [,
 261   b4_parse_param]))
 262 b4_pull_if([b4_c_function_decl([[yypull_parse]], [[int]],
 263   [[[yypstate *yyps]], [[yyps]]]m4_ifset([b4_parse_param], [,
 264   b4_parse_param]))])
 265 b4_c_function_decl([[yypstate_new]], [[yypstate *]], [[[void]], []])
 266 b4_c_function_decl([[yypstate_delete]], [[void]],
 267                    [[[yypstate *yyps]], [[yyps]]])[
 268 #endif]])
 269
 270 b4_percent_code_get([[provides]])[]dnl
 271
 272 [/* Copy the second part of user declarations.  */
 273 ]b4_user_post_prologue
 274 b4_percent_code_get[]dnl
 275
 276 [#ifdef short
 277 # undef short
 278 #endif
 279
 280 #ifdef YYTYPE_UINT8
 281 typedef YYTYPE_UINT8 yytype_uint8;
 282 #else
 283 typedef unsigned char yytype_uint8;
 284 #endif
 285
 286 #ifdef YYTYPE_INT8
 287 typedef YYTYPE_INT8 yytype_int8;
 288 #elif ]b4_c_modern[
 289 typedef signed char yytype_int8;
 290 #else
 291 typedef short int yytype_int8;
 292 #endif
 293
 294 #ifdef YYTYPE_UINT16
 295 typedef YYTYPE_UINT16 yytype_uint16;
 296 #else
 297 typedef unsigned short int yytype_uint16;
 298 #endif
 299
 300 #ifdef YYTYPE_INT16
 301 typedef YYTYPE_INT16 yytype_int16;
 302 #else
 303 typedef short int yytype_int16;
 304 #endif
 305
 306 #ifndef YYSIZE_T
 307 # ifdef __SIZE_TYPE__
 308 #  define YYSIZE_T __SIZE_TYPE__
 309 # elif defined size_t
 310 #  define YYSIZE_T size_t
 311 # elif ! defined YYSIZE_T && ]b4_c_modern[
 312 #  include <stddef.h> /* INFRINGES ON USER NAME SPACE */
 313 #  define YYSIZE_T size_t
 314 # else
 315 #  define YYSIZE_T unsigned int
 316 # endif
 317 #endif
 318
 319 #define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
 320
 321 #ifndef YY_
 322 # if YYENABLE_NLS
 323 #  if ENABLE_NLS
 324 #   include <libintl.h> /* INFRINGES ON USER NAME SPACE */
 325 #   define YY_(msgid) dgettext ("bison-runtime", msgid)
 326 #  endif
 327 # endif
 328 # ifndef YY_
 329 #  define YY_(msgid) msgid
 330 # endif
 331 #endif
 332
 333 /* Suppress unused-variable warnings by "using" E.  */
 334 #if ! defined lint || defined __GNUC__
 335 # define YYUSE(e) ((void) (e))
 336 #else
 337 # define YYUSE(e) /* empty */
 338 #endif
 339
 340 /* Identity function, used to suppress warnings about constant conditions.  */
 341 #ifndef lint
 342 # define YYID(n) (n)
 343 #else
 344 ]b4_c_function_def([YYID], [static int], [[int yyi], [yyi]])[
 345 {
 346   return yyi;
 347 }
 348 #endif
 349
 350 #if ! defined yyoverflow || YYERROR_VERBOSE
 351
 352 ]b4_push_if([],
 353 [[/* The parser invokes alloca or malloc; define the necessary symbols.  */
 354
 355 # ifdef YYSTACK_USE_ALLOCA
 356 #  if YYSTACK_USE_ALLOCA
 357 #   ifdef __GNUC__
 358 #    define YYSTACK_ALLOC __builtin_alloca
 359 #   elif defined __BUILTIN_VA_ARG_INCR
 360 #    include <alloca.h> /* INFRINGES ON USER NAME SPACE */
 361 #   elif defined _AIX
 362 #    define YYSTACK_ALLOC __alloca
 363 #   elif defined _MSC_VER
 364 #    include <malloc.h> /* INFRINGES ON USER NAME SPACE */
 365 #    define alloca _alloca
 366 #   else
 367 #    define YYSTACK_ALLOC alloca
 368 #    if ! defined _ALLOCA_H && ! defined _STDLIB_H && ]b4_c_modern[
 369 #     include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
 370 #     ifndef _STDLIB_H
 371 #      define _STDLIB_H 1
 372 #     endif
 373 #    endif
 374 #   endif
 375 #  endif
 376 # endif
 377
 378 ]])dnl
 379 [# ifdef YYSTACK_ALLOC
 380    /* Pacify GCC's `empty if-body' warning.  */
 381 #  define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
 382 #  ifndef YYSTACK_ALLOC_MAXIMUM
 383     /* The OS might guarantee only one guard page at the bottom of the stack,
 384        and a page size can be as small as 4096 bytes.  So we cannot safely
 385        invoke alloca (N) if N exceeds 4096.  Use a slightly smaller number
 386        to allow for a few compiler-allocated temporary stack slots.  */
 387 #   define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
 388 #  endif
 389 # else
 390 #  define YYSTACK_ALLOC YYMALLOC
 391 #  define YYSTACK_FREE YYFREE
 392 #  ifndef YYSTACK_ALLOC_MAXIMUM
 393 #   define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
 394 #  endif
 395 #  if (defined __cplusplus && ! defined _STDLIB_H \
 396        && ! ((defined YYMALLOC || defined malloc) \
 397              && (defined YYFREE || defined free)))
 398 #   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
 399 #   ifndef _STDLIB_H
 400 #    define _STDLIB_H 1
 401 #   endif
 402 #  endif
 403 #  ifndef YYMALLOC
 404 #   define YYMALLOC malloc
 405 #   if ! defined malloc && ! defined _STDLIB_H && ]b4_c_modern[
 406 void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
 407 #   endif
 408 #  endif
 409 #  ifndef YYFREE
 410 #   define YYFREE free
 411 #   if ! defined free && ! defined _STDLIB_H && ]b4_c_modern[
 412 void free (void *); /* INFRINGES ON USER NAME SPACE */
 413 #   endif
 414 #  endif
 415 # endif
 416 #endif /* ! defined yyoverflow || YYERROR_VERBOSE */
 417
 418
 419 #if (! defined yyoverflow \
 420      && (! defined __cplusplus \
 421          || (]b4_locations_if([[defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL \
 422              && ]])[defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
 423
 424 /* A type that is properly aligned for any stack member.  */
 425 union yyalloc
 426 {
 427   yytype_int16 yyss_alloc;
 428   YYSTYPE yyvs_alloc;]b4_locations_if([
 429   YYLTYPE yyls_alloc;])[
 430 };
 431
 432 /* The size of the maximum gap between one aligned stack and the next.  */
 433 # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
 434
 435 /* The size of an array large to enough to hold all stacks, each with
 436    N elements.  */
 437 ]b4_locations_if(
 438 [# define YYSTACK_BYTES(N) \
 439      ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \
 440       + 2 * YYSTACK_GAP_MAXIMUM)],
 441 [# define YYSTACK_BYTES(N) \
 442      ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
 443       + YYSTACK_GAP_MAXIMUM)])[
 444
 445 /* Copy COUNT objects from FROM to TO.  The source and destination do
 446    not overlap.  */
 447 # ifndef YYCOPY
 448 #  if defined __GNUC__ && 1 < __GNUC__
 449 #   define YYCOPY(To, From, Count) \
 450       __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
 451 #  else
 452 #   define YYCOPY(To, From, Count)              \
 453       do                                        \
 454         {                                       \
 455           YYSIZE_T yyi;                         \
 456           for (yyi = 0; yyi < (Count); yyi++)   \
 457             (To)[yyi] = (From)[yyi];            \
 458         }                                       \
 459       while (YYID (0))
 460 #  endif
 461 # endif
 462
 463 /* Relocate STACK from its old location to the new one.  The
 464    local variables YYSIZE and YYSTACKSIZE give the old and new number of
 465    elements in the stack, and YYPTR gives the new location of the
 466    stack.  Advance YYPTR to a properly aligned location for the next
 467    stack.  */
 468 # define YYSTACK_RELOCATE(Stack_alloc, Stack)                           \
 469     do                                                                  \
 470       {                                                                 \
 471         YYSIZE_T yynewbytes;                                            \
 472         YYCOPY (&yyptr->Stack_alloc, Stack, yysize);                    \
 473         Stack = &yyptr->Stack_alloc;                                    \
 474         yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
 475         yyptr += yynewbytes / sizeof (*yyptr);                          \
 476       }                                                                 \
 477     while (YYID (0))
 478
 479 #endif
 480
 481 /* YYFINAL -- State number of the termination state.  */
 482 #define YYFINAL  ]b4_final_state_number[
 483 /* YYLAST -- Last index in YYTABLE.  */
 484 #define YYLAST   ]b4_last[
 485
 486 /* YYNTOKENS -- Number of terminals.  */
 487 #define YYNTOKENS  ]b4_tokens_number[
 488 /* YYNNTS -- Number of nonterminals.  */
 489 #define YYNNTS  ]b4_nterms_number[
 490 /* YYNRULES -- Number of rules.  */
 491 #define YYNRULES  ]b4_rules_number[
 492 /* YYNRULES -- Number of states.  */
 493 #define YYNSTATES  ]b4_states_number[
 494
 495 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
 496 #define YYUNDEFTOK  ]b4_undef_token_number[
 497 #define YYMAXUTOK   ]b4_user_token_number_max[
 498
 499 #define YYTRANSLATE(YYX)                                                \
 500   ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
 501
 502 /* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX.  */
 503 static const ]b4_int_type_for([b4_translate])[ yytranslate[] =
 504 {
 505   ]b4_translate[
 506 };
 507
 508 #if YYDEBUG
 509 /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
 510    YYRHS.  */
 511 static const ]b4_int_type_for([b4_prhs])[ yyprhs[] =
 512 {
 513   ]b4_prhs[
 514 };
 515
 516 /* YYRHS -- A `-1'-separated list of the rules' RHS.  */
 517 static const ]b4_int_type_for([b4_rhs])[ yyrhs[] =
 518 {
 519   ]b4_rhs[
 520 };
 521
 522 /* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
 523 static const ]b4_int_type_for([b4_rline])[ yyrline[] =
 524 {
 525   ]b4_rline[
 526 };
 527 #endif
 528
 529 #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
 530 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
 531    First, the terminals, then, starting at YYNTOKENS, nonterminals.  */
 532 static const char *const yytname[] =
 533 {
 534   ]b4_tname[
 535 };
 536 #endif
 537
 538 # ifdef YYPRINT
 539 /* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
 540    token YYLEX-NUM.  */
 541 static const ]b4_int_type_for([b4_toknum])[ yytoknum[] =
 542 {
 543   ]b4_toknum[
 544 };
 545 # endif
 546
 547 /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
 548 static const ]b4_int_type_for([b4_r1])[ yyr1[] =
 549 {
 550   ]b4_r1[
 551 };
 552
 553 /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN.  */
 554 static const ]b4_int_type_for([b4_r2])[ yyr2[] =
 555 {
 556   ]b4_r2[
 557 };
 558
 559 /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
 560    STATE-NUM when YYTABLE doesn't specify something else to do.  Zero
 561    means the default is an error.  */
 562 static const ]b4_int_type_for([b4_defact])[ yydefact[] =
 563 {
 564   ]b4_defact[
 565 };
 566
 567 /* YYDEFGOTO[NTERM-NUM].  */
 568 static const ]b4_int_type_for([b4_defgoto])[ yydefgoto[] =
 569 {
 570   ]b4_defgoto[
 571 };
 572
 573 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
 574    STATE-NUM.  */
 575 #define YYPACT_NINF ]b4_pact_ninf[
 576 static const ]b4_int_type_for([b4_pact])[ yypact[] =
 577 {
 578   ]b4_pact[
 579 };
 580
 581 /* YYPGOTO[NTERM-NUM].  */
 582 static const ]b4_int_type_for([b4_pgoto])[ yypgoto[] =
 583 {
 584   ]b4_pgoto[
 585 };
 586
 587 /* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If
 588    positive, shift that token.  If negative, reduce the rule which
 589    number is the opposite.  If zero, do what YYDEFACT says.
 590    If YYTABLE_NINF, syntax error.  */
 591 #define YYTABLE_NINF ]b4_table_ninf[
 592 static const ]b4_int_type_for([b4_table])[ yytable[] =
 593 {
 594   ]b4_table[
 595 };
 596
 597 static const ]b4_int_type_for([b4_check])[ yycheck[] =
 598 {
 599   ]b4_check[
 600 };
 601
 602 /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
 603    symbol of state STATE-NUM.  */
 604 static const ]b4_int_type_for([b4_stos])[ yystos[] =
 605 {
 606   ]b4_stos[
 607 };
 608
 609 #define yyerrok         (yyerrstatus = 0)
 610 #define yyclearin       (yychar = YYEMPTY)
 611 #define YYEMPTY         (-2)
 612 #define YYEOF           0
 613
 614 #define YYACCEPT        goto yyacceptlab
 615 #define YYABORT         goto yyabortlab
 616 #define YYERROR         goto yyerrorlab
 617
 618
 619 /* Like YYERROR except do call yyerror.  This remains here temporarily
 620    to ease the transition to the new meaning of YYERROR, for GCC.
 621    Once GCC version 2 has supplanted version 1, this can go.  */
 622
 623 #define YYFAIL          goto yyerrlab
 624
 625 #define YYRECOVERING()  (!!yyerrstatus)
 626
 627 #define YYBACKUP(Token, Value)                                  \
 628 do                                                              \
 629   if (yychar == YYEMPTY && yylen == 1)                          \
 630     {                                                           \
 631       yychar = (Token);                                         \
 632       yylval = (Value);                                         \
 633       yytoken = YYTRANSLATE (yychar);                           \
 634       YYPOPSTACK (1);                                           \
 635       goto yybackup;                                            \
 636     }                                                           \
 637   else                                                          \
 638     {                                                           \
 639       yyerror (]b4_yyerror_args[YY_("syntax error: cannot back up")); \
 640       YYERROR;                                                  \
 641     }                                                           \
 642 while (YYID (0))
 643
 644
 645 #define YYTERROR        1
 646 #define YYERRCODE       256
 647
 648
 649 /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
 650    If N is 0, then set CURRENT to the empty location which ends
 651    the previous symbol: RHS[0] (always defined).  */
 652
 653 #define YYRHSLOC(Rhs, K) ((Rhs)[K])
 654 #ifndef YYLLOC_DEFAULT
 655 # define YYLLOC_DEFAULT(Current, Rhs, N)                                \
 656     do                                                                  \
 657       if (YYID (N))                                                    \
 658         {                                                               \
 659           (Current).first_line   = YYRHSLOC (Rhs, 1).first_line;        \
 660           (Current).first_column = YYRHSLOC (Rhs, 1).first_column;      \
 661           (Current).last_line    = YYRHSLOC (Rhs, N).last_line;         \
 662           (Current).last_column  = YYRHSLOC (Rhs, N).last_column;       \
 663         }                                                               \
 664       else                                                              \
 665         {                                                               \
 666           (Current).first_line   = (Current).last_line   =              \
 667             YYRHSLOC (Rhs, 0).last_line;                                \
 668           (Current).first_column = (Current).last_column =              \
 669             YYRHSLOC (Rhs, 0).last_column;                              \
 670         }                                                               \
 671     while (YYID (0))
 672 #endif
 673
 674
 675 /* YY_LOCATION_PRINT -- Print the location on the stream.
 676    This macro was not mandated originally: define only if we know
 677    we won't break user code: when these are the locations we know.  */
 678
 679 #ifndef YY_LOCATION_PRINT
 680 # if YYLTYPE_IS_TRIVIAL
 681 #  define YY_LOCATION_PRINT(File, Loc)                  \
 682      fprintf (File, "%d.%d-%d.%d",                      \
 683               (Loc).first_line, (Loc).first_column,     \
 684               (Loc).last_line,  (Loc).last_column)
 685 # else
 686 #  define YY_LOCATION_PRINT(File, Loc) ((void) 0)
 687 # endif
 688 #endif
 689
 690
 691 /* YYLEX -- calling `yylex' with the right arguments.  */
 692
 693 #ifdef YYLEX_PARAM
 694 # define YYLEX yylex (]b4_pure_if([&yylval[]b4_locations_if([, &yylloc]), ])[YYLEX_PARAM)
 695 #else
 696 # define YYLEX ]b4_c_function_call([yylex], [int], b4_lex_param)[
 697 #endif
 698
 699 /* Enable debugging if requested.  */
 700 #if YYDEBUG
 701
 702 # ifndef YYFPRINTF
 703 #  include <stdio.h> /* INFRINGES ON USER NAME SPACE */
 704 #  define YYFPRINTF fprintf
 705 # endif
 706
 707 # define YYDPRINTF(Args)                        \
 708 do {                                            \
 709   if (yydebug)                                  \
 710     YYFPRINTF Args;                             \
 711 } while (YYID (0))
 712
 713 # define YY_SYMBOL_PRINT(Title, Type, Value, Location)                    \
 714 do {                                                                      \
 715   if (yydebug)                                                            \
 716     {                                                                     \
 717       YYFPRINTF (stderr, "%s ", Title);                                   \
 718       yy_symbol_print (stderr,                                            \
 719                   Type, Value]b4_locations_if([, Location])[]b4_user_args[); \
 720       YYFPRINTF (stderr, "\n");                                           \
 721     }                                                                     \
 722 } while (YYID (0))
 723
 724 ]b4_yy_symbol_print_generate([b4_c_function_def])[
 725
 726 /*------------------------------------------------------------------.
 727 | yy_stack_print -- Print the state stack from its BOTTOM up to its |
 728 | TOP (included).                                                   |
 729 `------------------------------------------------------------------*/
 730
 731 ]b4_c_function_def([yy_stack_print], [static void],
 732                    [[yytype_int16 *yybottom], [yybottom]],
 733                    [[yytype_int16 *yytop],    [yytop]])[
 734 {
 735   YYFPRINTF (stderr, "Stack now");
 736   for (; yybottom <= yytop; yybottom++)
 737     {
 738       int yybot = *yybottom;
 739       YYFPRINTF (stderr, " %d", yybot);
 740     }
 741   YYFPRINTF (stderr, "\n");
 742 }
 743
 744 # define YY_STACK_PRINT(Bottom, Top)                            \
 745 do {                                                            \
 746   if (yydebug)                                                  \
 747     yy_stack_print ((Bottom), (Top));                           \
 748 } while (YYID (0))
 749
 750
 751 /*------------------------------------------------.
 752 | Report that the YYRULE is going to be reduced.  |
 753 `------------------------------------------------*/
 754
 755 ]b4_c_function_def([yy_reduce_print], [static void],
 756                    [[YYSTYPE *yyvsp], [yyvsp]],
 757     b4_locations_if([[[YYLTYPE *yylsp], [yylsp]],
 758                    ])[[int yyrule], [yyrule]]m4_ifset([b4_parse_param], [,
 759                    b4_parse_param]))[
 760 {
 761   int yynrhs = yyr2[yyrule];
 762   int yyi;
 763   unsigned long int yylno = yyrline[yyrule];
 764   YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
 765              yyrule - 1, yylno);
 766   /* The symbols being reduced.  */
 767   for (yyi = 0; yyi < yynrhs; yyi++)
 768     {
 769       YYFPRINTF (stderr, "   $%d = ", yyi + 1);
 770       yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
 771                        &]b4_rhs_value(yynrhs, yyi + 1)[
 772                        ]b4_locations_if([, &]b4_rhs_location(yynrhs, yyi + 1))[]dnl
 773                        b4_user_args[);
 774       YYFPRINTF (stderr, "\n");
 775     }
 776 }
 777
 778 # define YY_REDUCE_PRINT(Rule)          \
 779 do {                                    \
 780   if (yydebug)                          \
 781     yy_reduce_print (yyvsp, ]b4_locations_if([yylsp, ])[Rule]b4_user_args[); \
 782 } while (YYID (0))
 783
 784 /* Nonzero means print parse trace.  It is left uninitialized so that
 785    multiple parsers can coexist.  */
 786 int yydebug;
 787 #else /* !YYDEBUG */
 788 # define YYDPRINTF(Args)
 789 # define YY_SYMBOL_PRINT(Title, Type, Value, Location)
 790 # define YY_STACK_PRINT(Bottom, Top)
 791 # define YY_REDUCE_PRINT(Rule)
 792 #endif /* !YYDEBUG */
 793
 794
 795 /* YYINITDEPTH -- initial size of the parser's stacks.  */
 796 #ifndef YYINITDEPTH
 797 # define YYINITDEPTH ]b4_stack_depth_init[
 798 #endif
 799
 800 /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
 801    if the built-in stack extension method is used).
 802
 803    Do not make this value too large; the results are undefined if
 804    YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
 805    evaluated with infinite-precision integer arithmetic.  */
 806
 807 #ifndef YYMAXDEPTH
 808 # define YYMAXDEPTH ]b4_stack_depth_max[
 809 #endif
 810
 811 \f
 812
 813 #if YYERROR_VERBOSE
 814
 815 # ifndef yystrlen
 816 #  if defined __GLIBC__ && defined _STRING_H
 817 #   define yystrlen strlen
 818 #  else
 819 /* Return the length of YYSTR.  */
 820 ]b4_c_function_def([yystrlen], [static YYSIZE_T],
 821    [[const char *yystr], [yystr]])[
 822 {
 823   YYSIZE_T yylen;
 824   for (yylen = 0; yystr[yylen]; yylen++)
 825     continue;
 826   return yylen;
 827 }
 828 #  endif
 829 # endif
 830
 831 # ifndef yystpcpy
 832 #  if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
 833 #   define yystpcpy stpcpy
 834 #  else
 835 /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
 836    YYDEST.  */
 837 ]b4_c_function_def([yystpcpy], [static char *],
 838    [[char *yydest], [yydest]], [[const char *yysrc], [yysrc]])[
 839 {
 840   char *yyd = yydest;
 841   const char *yys = yysrc;
 842
 843   while ((*yyd++ = *yys++) != '\0')
 844     continue;
 845
 846   return yyd - 1;
 847 }
 848 #  endif
 849 # endif
 850
 851 # ifndef yytnamerr
 852 /* Copy to YYRES the contents of YYSTR after stripping away unnecessary
 853    quotes and backslashes, so that it's suitable for yyerror.  The
 854    heuristic is that double-quoting is unnecessary unless the string
 855    contains an apostrophe, a comma, or backslash (other than
 856    backslash-backslash).  YYSTR is taken from yytname.  If YYRES is
 857    null, do not copy; instead, return the length of what the result
 858    would have been.  */
 859 static YYSIZE_T
 860 yytnamerr (char *yyres, const char *yystr)
 861 {
 862   if (*yystr == '"')
 863     {
 864       YYSIZE_T yyn = 0;
 865       char const *yyp = yystr;
 866
 867       for (;;)
 868         switch (*++yyp)
 869           {
 870           case '\'':
 871           case ',':
 872             goto do_not_strip_quotes;
 873
 874           case '\\':
 875             if (*++yyp != '\\')
 876               goto do_not_strip_quotes;
 877             /* Fall through.  */
 878           default:
 879             if (yyres)
 880               yyres[yyn] = *yyp;
 881             yyn++;
 882             break;
 883
 884           case '"':
 885             if (yyres)
 886               yyres[yyn] = '\0';
 887             return yyn;
 888           }
 889     do_not_strip_quotes: ;
 890     }
 891
 892   if (! yyres)
 893     return yystrlen (yystr);
 894
 895   return yystpcpy (yyres, yystr) - yyres;
 896 }
 897 # endif
 898
 899 /* Copy into YYRESULT an error message about the unexpected token
 900    YYCHAR while in state YYSTATE.  Return the number of bytes copied,
 901    including the terminating null byte.  If YYRESULT is null, do not
 902    copy anything; just return the number of bytes that would be
 903    copied.  As a special case, return 0 if an ordinary "syntax error"
 904    message will do.  Return YYSIZE_MAXIMUM if overflow occurs during
 905    size calculation.  */
 906 static YYSIZE_T
 907 yysyntax_error (char *yyresult, int yystate, int yychar)
 908 {
 909   int yyn = yypact[yystate];
 910
 911   if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
 912     return 0;
 913   else
 914     {
 915       int yytype = YYTRANSLATE (yychar);
 916       YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
 917       YYSIZE_T yysize = yysize0;
 918       YYSIZE_T yysize1;
 919       int yysize_overflow = 0;
 920       enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
 921       char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
 922       int yyx;
 923
 924 # if 0
 925       /* This is so xgettext sees the translatable formats that are
 926          constructed on the fly.  */
 927       YY_("syntax error, unexpected %s");
 928       YY_("syntax error, unexpected %s, expecting %s");
 929       YY_("syntax error, unexpected %s, expecting %s or %s");
 930       YY_("syntax error, unexpected %s, expecting %s or %s or %s");
 931       YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
 932 # endif
 933       char *yyfmt;
 934       char const *yyf;
 935       static char const yyunexpected[] = "syntax error, unexpected %s";
 936       static char const yyexpecting[] = ", expecting %s";
 937       static char const yyor[] = " or %s";
 938       char yyformat[sizeof yyunexpected
 939                     + sizeof yyexpecting - 1
 940                     + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
 941                        * (sizeof yyor - 1))];
 942       char const *yyprefix = yyexpecting;
 943
 944       /* Start YYX at -YYN if negative to avoid negative indexes in
 945          YYCHECK.  */
 946       int yyxbegin = yyn < 0 ? -yyn : 0;
 947
 948       /* Stay within bounds of both yycheck and yytname.  */
 949       int yychecklim = YYLAST - yyn + 1;
 950       int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
 951       int yycount = 1;
 952
 953       yyarg[0] = yytname[yytype];
 954       yyfmt = yystpcpy (yyformat, yyunexpected);
 955
 956       for (yyx = yyxbegin; yyx < yyxend; ++yyx)
 957         if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
 958           {
 959             if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
 960               {
 961                 yycount = 1;
 962                 yysize = yysize0;
 963                 yyformat[sizeof yyunexpected - 1] = '\0';
 964                 break;
 965               }
 966             yyarg[yycount++] = yytname[yyx];
 967             yysize1 = yysize + yytnamerr (0, yytname[yyx]);
 968             yysize_overflow |= (yysize1 < yysize);
 969             yysize = yysize1;
 970             yyfmt = yystpcpy (yyfmt, yyprefix);
 971             yyprefix = yyor;
 972           }
 973
 974       yyf = YY_(yyformat);
 975       yysize1 = yysize + yystrlen (yyf);
 976       yysize_overflow |= (yysize1 < yysize);
 977       yysize = yysize1;
 978
 979       if (yysize_overflow)
 980         return YYSIZE_MAXIMUM;
 981
 982       if (yyresult)
 983         {
 984           /* Avoid sprintf, as that infringes on the user's name space.
 985              Don't have undefined behavior even if the translation
 986              produced a string with the wrong number of "%s"s.  */
 987           char *yyp = yyresult;
 988           int yyi = 0;
 989           while ((*yyp = *yyf) != '\0')
 990             {
 991               if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
 992                 {
 993                   yyp += yytnamerr (yyp, yyarg[yyi++]);
 994                   yyf += 2;
 995                 }
 996               else
 997                 {
 998                   yyp++;
 999                   yyf++;
1000                 }
1001             }
1002         }
1003       return yysize;
1004     }
1005 }
1006 #endif /* YYERROR_VERBOSE */
1007 \f
1008
1009 ]b4_yydestruct_generate([b4_c_function_def])[
1010
1011 ]b4_push_if([],
1012 [[/* Prevent warnings from -Wmissing-prototypes.  */
1013 #ifdef YYPARSE_PARAM
1014 ]b4_c_function_decl([yyparse], [int],
1015    [[void *YYPARSE_PARAM], [YYPARSE_PARAM]])[
1016 #else /* ! YYPARSE_PARAM */
1017 ]b4_c_function_decl([yyparse], [int], b4_parse_param)[
1018 #endif /* ! YYPARSE_PARAM */]])
1019
1020 m4_divert_push([KILL])# ======================== M4 code.
1021 # b4_declare_scanner_communication_variables
1022 # ------------------------------------------
1023 # Declare the variables that are global, or local to YYPARSE if
1024 # pure-parser.
1025 m4_define([b4_declare_scanner_communication_variables],
1026 [[/* The lookahead symbol.  */
1027 int yychar;
1028
1029 /* The semantic value of the lookahead symbol.  */
1030 YYSTYPE yylval;
1031 ]b4_locations_if([[
1032 /* Location data for the lookahead symbol.  */
1033 YYLTYPE yylloc;
1034 ]])b4_pure_if([], [[
1035 /* Number of syntax errors so far.  */
1036 int yynerrs;
1037 ]])])
1038
1039 # b4_declare_parser_state_variables
1040 # ---------------------------------
1041 # Declare all the variables that are needed to maintain the parser state
1042 # between calls to yypush_parse.
1043 m4_define([b4_declare_parser_state_variables],
1044 [b4_pure_if([[    /* Number of syntax errors so far.  */
1045     int yynerrs;
1046 ]])[
1047     int yystate;
1048     /* Number of tokens to shift before error messages enabled.  */
1049     int yyerrstatus;
1050
1051     /* The stacks and their tools:
1052        `yyss': related to states.
1053        `yyvs': related to semantic values.]b4_locations_if([[
1054        `yyls': related to locations.]])[
1055
1056        Refer to the stacks thru separate pointers, to allow yyoverflow
1057        to reallocate them elsewhere.  */
1058
1059     /* The state stack.  */
1060     yytype_int16 yyssa[YYINITDEPTH];
1061     yytype_int16 *yyss;
1062     yytype_int16 *yyssp;
1063
1064     /* The semantic value stack.  */
1065     YYSTYPE yyvsa[YYINITDEPTH];
1066     YYSTYPE *yyvs;
1067     YYSTYPE *yyvsp;
1068 ]b4_locations_if([[
1069     /* The location stack.  */
1070     YYLTYPE yylsa[YYINITDEPTH];
1071     YYLTYPE *yyls;
1072     YYLTYPE *yylsp;
1073
1074     /* The locations where the error started and ended.  */
1075     YYLTYPE yyerror_range[2];
1076 ]])[
1077     YYSIZE_T yystacksize;
1078 ]])
1079
1080 m4_divert_pop([KILL])dnl# ====================== End of M4 code.
1081
1082 b4_pure_if([], [b4_declare_scanner_communication_variables])
1083
1084 b4_push_if(
1085 [[struct yypstate
1086   {
1087     ]b4_declare_parser_state_variables[
1088     /* Used to determine if this is the first time this instance has
1089        been used.  */
1090     int yynew;
1091   };]b4_pure_if([], [[
1092
1093 static char yypstate_allocated = 0;]])b4_pull_if([
1094
1095 b4_c_function_def([[yyparse]], [[int]], b4_parse_param)[
1096 {
1097   return yypull_parse (0]m4_ifset([b4_parse_param],
1098                                   [[, ]b4_c_args(b4_parse_param)])[);
1099 }
1100
1101 ]b4_c_function_def([[yypull_parse]], [[int]],
1102   [[[yypstate *yyps]], [[yyps]]]m4_ifset([b4_parse_param], [,
1103   b4_parse_param]))[
1104 {
1105   int yystatus;
1106   yypstate *yyps_local;]b4_pure_if([[
1107   int yychar;
1108   YYSTYPE yylval;]b4_locations_if([[
1109   YYLTYPE yylloc;]])])[
1110   if (yyps == 0)
1111     {
1112       yyps_local = yypstate_new ();
1113       if (!yyps_local)
1114         {]b4_pure_if([[
1115           yyerror (]b4_yyerror_args[YY_("memory exhausted"));]], [[
1116           if (!yypstate_allocated)
1117             yyerror (]b4_yyerror_args[YY_("memory exhausted"));]])[
1118           return 2;
1119         }
1120     }
1121   else
1122     yyps_local = yyps;
1123   do {
1124     yychar = YYLEX;
1125     yystatus =
1126       yypush_parse (yyps_local]b4_pure_if([[, yychar, &yylval]b4_locations_if([[, &yylloc]])])m4_ifset([b4_parse_param], [, b4_c_args(b4_parse_param)])[);
1127   } while (yystatus == YYPUSH_MORE);
1128   if (yyps == 0)
1129     yypstate_delete (yyps_local);
1130   return yystatus;
1131 }]])[
1132
1133 /* Initialize the parser data structure.  */
1134 ]b4_c_function_def([[yypstate_new]], [[yypstate *]])[
1135 {
1136   yypstate *yyps;]b4_pure_if([], [[
1137   if (yypstate_allocated)
1138     return 0;]])[
1139   yyps = (yypstate *) malloc (sizeof *yyps);
1140   if (!yyps)
1141     return 0;
1142   yyps->yynew = 1;]b4_pure_if([], [[
1143   yypstate_allocated = 1;]])[
1144   return yyps;
1145 }
1146
1147 ]b4_c_function_def([[yypstate_delete]], [[void]],
1148                    [[[yypstate *yyps]], [[yyps]]])[
1149 {
1150 #ifndef yyoverflow
1151   /* If the stack was reallocated but the parse did not complete, then the
1152      stack still needs to be freed.  */
1153   if (!yyps->yynew && yyps->yyss != yyps->yyssa)
1154     YYSTACK_FREE (yyps->yyss);
1155 #endif
1156   free (yyps);]b4_pure_if([], [[
1157   yypstate_allocated = 0;]])[
1158 }
1159
1160 ]b4_pure_if([[#define ]b4_prefix[nerrs yyps->]b4_prefix[nerrs
1161 ]])[#define yystate yyps->yystate
1162 #define yyerrstatus yyps->yyerrstatus
1163 #define yyssa yyps->yyssa
1164 #define yyss yyps->yyss
1165 #define yyssp yyps->yyssp
1166 #define yyvsa yyps->yyvsa
1167 #define yyvs yyps->yyvs
1168 #define yyvsp yyps->yyvsp
1169 ]b4_locations_if([[#define yylsa yyps->yylsa
1170 #define yyls yyps->yyls
1171 #define yylsp yyps->yylsp
1172 #define yyerror_range yyps->yyerror_range
1173 ]])[#define yystacksize yyps->yystacksize
1174 ]])[
1175 /*-------------------------.
1176 | yyparse or yypush_parse.  |
1177 `-------------------------*/
1178 ]b4_push_if([
1179 b4_c_function_def([[yypush_parse]], [[int]],
1180   [[[yypstate *yyps]], [[yyps]]]b4_pure_if([,
1181   [[[int yypushed_char]], [[yypushed_char]]],
1182   [[[YYSTYPE const *yypushed_val]], [[yypushed_val]]]b4_locations_if([,
1183   [[[YYLTYPE const *yypushed_loc]], [[yypushed_loc]]]])])m4_ifset([b4_parse_param], [,
1184   b4_parse_param]))], [
1185 #ifdef YYPARSE_PARAM
1186 b4_c_function_def([yyparse], [int], [[void *YYPARSE_PARAM], [YYPARSE_PARAM]])
1187 #else /* ! YYPARSE_PARAM */
1188 b4_c_function_def([yyparse], [int], b4_parse_param)
1189 #endif])[
1190 {
1191 ]b4_pure_if([b4_declare_scanner_communication_variables])
1192 b4_push_if([b4_pure_if([], [[  int yypushed_char = yychar;
1193   YYSTYPE yypushed_val = yylval;
1194   ]b4_locations_if([[YYLTYPE yypushed_loc = yylloc;
1195 ]])])],
1196   [b4_declare_parser_state_variables])[
1197   int yyn;
1198   int yyresult;
1199   /* Lookahead token as an internal (translated) token number.  */
1200   int yytoken;
1201   /* The variables used to return semantic value and location from the
1202      action routines.  */
1203   YYSTYPE yyval;]b4_locations_if([[
1204   YYLTYPE yyloc;]])[
1205
1206 #if YYERROR_VERBOSE
1207   /* Buffer for error messages, and its allocated size.  */
1208   char yymsgbuf[128];
1209   char *yymsg = yymsgbuf;
1210   YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
1211 #endif
1212
1213 #define YYPOPSTACK(N)   (yyvsp -= (N), yyssp -= (N)]b4_locations_if([, yylsp -= (N)])[)
1214
1215   /* The number of symbols on the RHS of the reduced rule.
1216      Keep to zero when no symbol should be popped.  */
1217   int yylen = 0;]b4_push_if([[
1218
1219   if (!yyps->yynew)
1220     {
1221       yyn = yypact[yystate];
1222       goto yyread_pushed_token;
1223     }]])[
1224
1225   yytoken = 0;
1226   yyss = yyssa;
1227   yyvs = yyvsa;]b4_locations_if([[
1228   yyls = yylsa;]])[
1229   yystacksize = YYINITDEPTH;
1230
1231   YYDPRINTF ((stderr, "Starting parse\n"));
1232
1233   yystate = 0;
1234   yyerrstatus = 0;
1235   yynerrs = 0;
1236   yychar = YYEMPTY; /* Cause a token to be read.  */
1237
1238   /* Initialize stack pointers.
1239      Waste one element of value and location stack
1240      so that they stay on the same level as the state stack.
1241      The wasted elements are never initialized.  */
1242   yyssp = yyss;
1243   yyvsp = yyvs;]b4_locations_if([[
1244   yylsp = yyls;
1245
1246 #if YYLTYPE_IS_TRIVIAL
1247   /* Initialize the default location before parsing starts.  */
1248   yylloc.first_line   = yylloc.last_line   = ]b4_location_initial_line[;
1249   yylloc.first_column = yylloc.last_column = ]b4_location_initial_column[;
1250 #endif]])
1251 m4_ifdef([b4_initial_action],[
1252 m4_pushdef([b4_at_dollar],     [m4_define([b4_at_dollar_used])yylloc])dnl
1253 m4_pushdef([b4_dollar_dollar], [m4_define([b4_dollar_dollar_used])yylval])dnl
1254 /* User initialization code.  */
1255 b4_user_initial_action
1256 m4_popdef([b4_dollar_dollar])dnl
1257 m4_popdef([b4_at_dollar])])dnl
1258 m4_ifdef([b4_dollar_dollar_used],[[  yyvsp[0] = yylval;
1259 ]])dnl
1260 m4_ifdef([b4_at_dollar_used], [[  yylsp[0] = yylloc;
1261 ]])[
1262   goto yysetstate;
1263
1264 /*------------------------------------------------------------.
1265 | yynewstate -- Push a new state, which is found in yystate.  |
1266 `------------------------------------------------------------*/
1267  yynewstate:
1268   /* In all cases, when you get here, the value and location stacks
1269      have just been pushed.  So pushing a state here evens the stacks.  */
1270   yyssp++;
1271
1272  yysetstate:
1273   *yyssp = yystate;
1274
1275   if (yyss + yystacksize - 1 <= yyssp)
1276     {
1277       /* Get the current used size of the three stacks, in elements.  */
1278       YYSIZE_T yysize = yyssp - yyss + 1;
1279
1280 #ifdef yyoverflow
1281       {
1282         /* Give user a chance to reallocate the stack.  Use copies of
1283            these so that the &'s don't force the real ones into
1284            memory.  */
1285         YYSTYPE *yyvs1 = yyvs;
1286         yytype_int16 *yyss1 = yyss;]b4_locations_if([
1287         YYLTYPE *yyls1 = yyls;])[
1288
1289         /* Each stack pointer address is followed by the size of the
1290            data in use in that stack, in bytes.  This used to be a
1291            conditional around just the two extra args, but that might
1292            be undefined if yyoverflow is a macro.  */
1293         yyoverflow (YY_("memory exhausted"),
1294                     &yyss1, yysize * sizeof (*yyssp),
1295                     &yyvs1, yysize * sizeof (*yyvsp),]b4_locations_if([
1296                     &yyls1, yysize * sizeof (*yylsp),])[
1297                     &yystacksize);
1298 ]b4_locations_if([
1299         yyls = yyls1;])[
1300         yyss = yyss1;
1301         yyvs = yyvs1;
1302       }
1303 #else /* no yyoverflow */
1304 # ifndef YYSTACK_RELOCATE
1305       goto yyexhaustedlab;
1306 # else
1307       /* Extend the stack our own way.  */
1308       if (YYMAXDEPTH <= yystacksize)
1309         goto yyexhaustedlab;
1310       yystacksize *= 2;
1311       if (YYMAXDEPTH < yystacksize)
1312         yystacksize = YYMAXDEPTH;
1313
1314       {
1315         yytype_int16 *yyss1 = yyss;
1316         union yyalloc *yyptr =
1317           (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
1318         if (! yyptr)
1319           goto yyexhaustedlab;
1320         YYSTACK_RELOCATE (yyss_alloc, yyss);
1321         YYSTACK_RELOCATE (yyvs_alloc, yyvs);]b4_locations_if([
1322         YYSTACK_RELOCATE (yyls_alloc, yyls);])[
1323 #  undef YYSTACK_RELOCATE
1324         if (yyss1 != yyssa)
1325           YYSTACK_FREE (yyss1);
1326       }
1327 # endif
1328 #endif /* no yyoverflow */
1329
1330       yyssp = yyss + yysize - 1;
1331       yyvsp = yyvs + yysize - 1;]b4_locations_if([
1332       yylsp = yyls + yysize - 1;])[
1333
1334       YYDPRINTF ((stderr, "Stack size increased to %lu\n",
1335                   (unsigned long int) yystacksize));
1336
1337       if (yyss + yystacksize - 1 <= yyssp)
1338         YYABORT;
1339     }
1340
1341   YYDPRINTF ((stderr, "Entering state %d\n", yystate));
1342
1343   if (yystate == YYFINAL)
1344     YYACCEPT;
1345
1346   goto yybackup;
1347
1348 /*-----------.
1349 | yybackup.  |
1350 `-----------*/
1351 yybackup:
1352
1353   /* Do appropriate processing given the current state.  Read a
1354      lookahead token if we need one and don't already have one.  */
1355
1356   /* First try to decide what to do without reference to lookahead token.  */
1357   yyn = yypact[yystate];
1358   if (yyn == YYPACT_NINF)
1359     goto yydefault;
1360
1361   /* Not known => get a lookahead token if don't already have one.  */
1362
1363   /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
1364   if (yychar == YYEMPTY)
1365     {]b4_push_if([[
1366       if (!yyps->yynew)
1367         {]b4_use_push_for_pull_if([], [[
1368           YYDPRINTF ((stderr, "Return for a new token:\n"));]])[
1369           yyresult = YYPUSH_MORE;
1370           goto yypushreturn;
1371         }
1372       yyps->yynew = 0;]b4_pure_if([], [[
1373       /* Restoring the pushed token is only necessary for the first
1374          yypush_parse invocation since subsequent invocations don't overwrite
1375          it before jumping to yyread_pushed_token.  */
1376       yychar = yypushed_char;
1377       yylval = yypushed_val;]b4_locations_if([[
1378       yylloc = yypushed_loc;]])])[
1379 yyread_pushed_token:]])[
1380       YYDPRINTF ((stderr, "Reading a token: "));]b4_push_if([b4_pure_if([[
1381       yychar = yypushed_char;
1382       if (yypushed_val)
1383         yylval = *yypushed_val;]b4_locations_if([[
1384       if (yypushed_loc)
1385         yylloc = *yypushed_loc;]])])], [[
1386       yychar = YYLEX;]])[
1387     }
1388
1389   if (yychar <= YYEOF)
1390     {
1391       yychar = yytoken = YYEOF;
1392       YYDPRINTF ((stderr, "Now at end of input.\n"));
1393     }
1394   else
1395     {
1396       yytoken = YYTRANSLATE (yychar);
1397       YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
1398     }
1399
1400   /* If the proper action on seeing token YYTOKEN is to reduce or to
1401      detect an error, take that action.  */
1402   yyn += yytoken;
1403   if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
1404     goto yydefault;
1405   yyn = yytable[yyn];
1406   if (yyn <= 0)
1407     {
1408       if (yyn == 0 || yyn == YYTABLE_NINF)
1409         goto yyerrlab;
1410       yyn = -yyn;
1411       goto yyreduce;
1412     }
1413
1414   /* Count tokens shifted since error; after three, turn off error
1415      status.  */
1416   if (yyerrstatus)
1417     yyerrstatus--;
1418
1419   /* Shift the lookahead token.  */
1420   YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
1421
1422   /* Discard the shifted token.  */
1423   yychar = YYEMPTY;
1424
1425   yystate = yyn;
1426   *++yyvsp = yylval;
1427 ]b4_locations_if([  *++yylsp = yylloc;])[
1428   goto yynewstate;
1429
1430
1431 /*-----------------------------------------------------------.
1432 | yydefault -- do the default action for the current state.  |
1433 `-----------------------------------------------------------*/
1434 yydefault:
1435   yyn = yydefact[yystate];
1436   if (yyn == 0)
1437     goto yyerrlab;
1438   goto yyreduce;
1439
1440
1441 /*-----------------------------.
1442 | yyreduce -- Do a reduction.  |
1443 `-----------------------------*/
1444 yyreduce:
1445   /* yyn is the number of a rule to reduce with.  */
1446   yylen = yyr2[yyn];
1447
1448   /* If YYLEN is nonzero, implement the default value of the action:
1449      `$$ = $1'.
1450
1451      Otherwise, the following line sets YYVAL to garbage.
1452      This behavior is undocumented and Bison
1453      users should not rely upon it.  Assigning to YYVAL
1454      unconditionally makes the parser a bit smaller, and it avoids a
1455      GCC warning that YYVAL may be used uninitialized.  */
1456   yyval = yyvsp[1-yylen];
1457
1458 ]b4_locations_if(
1459 [[  /* Default location.  */
1460   YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen);]])[
1461   YY_REDUCE_PRINT (yyn);
1462   switch (yyn)
1463     {
1464       ]b4_user_actions[
1465       default: break;
1466     }
1467   YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
1468
1469   YYPOPSTACK (yylen);
1470   yylen = 0;
1471   YY_STACK_PRINT (yyss, yyssp);
1472
1473   *++yyvsp = yyval;]b4_locations_if([
1474   *++yylsp = yyloc;])[
1475
1476   /* Now `shift' the result of the reduction.  Determine what state
1477      that goes to, based on the state we popped back to and the rule
1478      number reduced by.  */
1479
1480   yyn = yyr1[yyn];
1481
1482   yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
1483   if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
1484     yystate = yytable[yystate];
1485   else
1486     yystate = yydefgoto[yyn - YYNTOKENS];
1487
1488   goto yynewstate;
1489
1490
1491 /*------------------------------------.
1492 | yyerrlab -- here on detecting error |
1493 `------------------------------------*/
1494 yyerrlab:
1495   /* If not already recovering from an error, report this error.  */
1496   if (!yyerrstatus)
1497     {
1498       ++yynerrs;
1499 #if ! YYERROR_VERBOSE
1500       yyerror (]b4_yyerror_args[YY_("syntax error"));
1501 #else
1502       {
1503         YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
1504         if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
1505           {
1506             YYSIZE_T yyalloc = 2 * yysize;
1507             if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
1508               yyalloc = YYSTACK_ALLOC_MAXIMUM;
1509             if (yymsg != yymsgbuf)
1510               YYSTACK_FREE (yymsg);
1511             yymsg = (char *) YYSTACK_ALLOC (yyalloc);
1512             if (yymsg)
1513               yymsg_alloc = yyalloc;
1514             else
1515               {
1516                 yymsg = yymsgbuf;
1517                 yymsg_alloc = sizeof yymsgbuf;
1518               }
1519           }
1520
1521         if (0 < yysize && yysize <= yymsg_alloc)
1522           {
1523             (void) yysyntax_error (yymsg, yystate, yychar);
1524             yyerror (]b4_yyerror_args[yymsg);
1525           }
1526         else
1527           {
1528             yyerror (]b4_yyerror_args[YY_("syntax error"));
1529             if (yysize != 0)
1530               goto yyexhaustedlab;
1531           }
1532       }
1533 #endif
1534     }
1535
1536 ]b4_locations_if([[  yyerror_range[0] = yylloc;]])[
1537
1538   if (yyerrstatus == 3)
1539     {
1540       /* If just tried and failed to reuse lookahead token after an
1541          error, discard it.  */
1542
1543       if (yychar <= YYEOF)
1544         {
1545           /* Return failure if at end of input.  */
1546           if (yychar == YYEOF)
1547             YYABORT;
1548         }
1549       else
1550         {
1551           yydestruct ("Error: discarding",
1552                       yytoken, &yylval]b4_locations_if([, &yylloc])[]b4_user_args[);
1553           yychar = YYEMPTY;
1554         }
1555     }
1556
1557   /* Else will try to reuse lookahead token after shifting the error
1558      token.  */
1559   goto yyerrlab1;
1560
1561
1562 /*---------------------------------------------------.
1563 | yyerrorlab -- error raised explicitly by YYERROR.  |
1564 `---------------------------------------------------*/
1565 yyerrorlab:
1566
1567   /* Pacify compilers like GCC when the user code never invokes
1568      YYERROR and the label yyerrorlab therefore never appears in user
1569      code.  */
1570   if (/*CONSTCOND*/ 0)
1571      goto yyerrorlab;
1572
1573 ]b4_locations_if([[  yyerror_range[0] = yylsp[1-yylen];
1574 ]])[  /* Do not reclaim the symbols of the rule which action triggered
1575      this YYERROR.  */
1576   YYPOPSTACK (yylen);
1577   yylen = 0;
1578   YY_STACK_PRINT (yyss, yyssp);
1579   yystate = *yyssp;
1580   goto yyerrlab1;
1581
1582
1583 /*-------------------------------------------------------------.
1584 | yyerrlab1 -- common code for both syntax error and YYERROR.  |
1585 `-------------------------------------------------------------*/
1586 yyerrlab1:
1587   yyerrstatus = 3;      /* Each real token shifted decrements this.  */
1588
1589   for (;;)
1590     {
1591       yyn = yypact[yystate];
1592       if (yyn != YYPACT_NINF)
1593         {
1594           yyn += YYTERROR;
1595           if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
1596             {
1597               yyn = yytable[yyn];
1598               if (0 < yyn)
1599                 break;
1600             }
1601         }
1602
1603       /* Pop the current state because it cannot handle the error token.  */
1604       if (yyssp == yyss)
1605         YYABORT;
1606
1607 ]b4_locations_if([[      yyerror_range[0] = *yylsp;]])[
1608       yydestruct ("Error: popping",
1609                   yystos[yystate], yyvsp]b4_locations_if([, yylsp])[]b4_user_args[);
1610       YYPOPSTACK (1);
1611       yystate = *yyssp;
1612       YY_STACK_PRINT (yyss, yyssp);
1613     }
1614
1615   *++yyvsp = yylval;
1616 ]b4_locations_if([[
1617   yyerror_range[1] = yylloc;
1618   /* Using YYLLOC is tempting, but would change the location of
1619      the lookahead.  YYLOC is available though.  */
1620   YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2);
1621   *++yylsp = yyloc;]])[
1622
1623   /* Shift the error token.  */
1624   YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
1625
1626   yystate = yyn;
1627   goto yynewstate;
1628
1629
1630 /*-------------------------------------.
1631 | yyacceptlab -- YYACCEPT comes here.  |
1632 `-------------------------------------*/
1633 yyacceptlab:
1634   yyresult = 0;
1635   goto yyreturn;
1636
1637 /*-----------------------------------.
1638 | yyabortlab -- YYABORT comes here.  |
1639 `-----------------------------------*/
1640 yyabortlab:
1641   yyresult = 1;
1642   goto yyreturn;
1643
1644 #if !defined(yyoverflow) || YYERROR_VERBOSE
1645 /*-------------------------------------------------.
1646 | yyexhaustedlab -- memory exhaustion comes here.  |
1647 `-------------------------------------------------*/
1648 yyexhaustedlab:
1649   yyerror (]b4_yyerror_args[YY_("memory exhausted"));
1650   yyresult = 2;
1651   /* Fall through.  */
1652 #endif
1653
1654 yyreturn:
1655   if (yychar != YYEMPTY)
1656      yydestruct ("Cleanup: discarding lookahead",
1657                  yytoken, &yylval]b4_locations_if([, &yylloc])[]b4_user_args[);
1658   /* Do not reclaim the symbols of the rule which action triggered
1659      this YYABORT or YYACCEPT.  */
1660   YYPOPSTACK (yylen);
1661   YY_STACK_PRINT (yyss, yyssp);
1662   while (yyssp != yyss)
1663     {
1664       yydestruct ("Cleanup: popping",
1665                   yystos[*yyssp], yyvsp]b4_locations_if([, yylsp])[]b4_user_args[);
1666       YYPOPSTACK (1);
1667     }
1668 #ifndef yyoverflow
1669   if (yyss != yyssa)
1670     YYSTACK_FREE (yyss);
1671 #endif
1672 ]b4_push_if([[  yyps->yynew = 1;
1673
1674 yypushreturn:
1675 ]])[#if YYERROR_VERBOSE
1676   if (yymsg != yymsgbuf)
1677     YYSTACK_FREE (yymsg);
1678 #endif
1679   /* Make sure YYID is used.  */
1680   return YYID (yyresult);
1681 }
1682
1683
1684 ]b4_epilogue
1685 b4_defines_if(
1686 [@output(b4_spec_defines_file@)
1687 b4_copyright([Skeleton interface for Bison's Yacc-like parsers in C],dnl '
1688   [1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006])
1689
1690 b4_percent_code_get([[requires]])[]dnl
1691
1692 b4_token_enums_defines(b4_tokens)
1693
1694 [#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
1695 ]m4_ifdef([b4_stype],
1696 [[typedef union ]b4_union_name[
1697 {
1698 ]b4_user_stype[
1699 } YYSTYPE;
1700 # define YYSTYPE_IS_TRIVIAL 1]],
1701 [m4_if(b4_tag_seen_flag, 0,
1702 [[typedef int YYSTYPE;
1703 # define YYSTYPE_IS_TRIVIAL 1]])])[
1704 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
1705 # define YYSTYPE_IS_DECLARED 1
1706 #endif
1707
1708 ]b4_pure_if([], [[extern YYSTYPE ]b4_prefix[lval;]])
1709
1710 b4_locations_if(
1711 [#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
1712 typedef struct YYLTYPE
1713 {
1714   int first_line;
1715   int first_column;
1716   int last_line;
1717   int last_column;
1718 } YYLTYPE;
1719 # define yyltype YYLTYPE /* obsolescent; will be withdrawn */
1720 # define YYLTYPE_IS_DECLARED 1
1721 # define YYLTYPE_IS_TRIVIAL 1
1722 #endif
1723
1724 ]b4_pure_if([], [[extern YYLTYPE ]b4_prefix[lloc;]])
1725 )dnl b4_locations_if
1726 b4_push_if([[
1727 #ifndef YYPUSH_DECLS
1728 #  define YYPUSH_DECLS
1729 struct ]b4_prefix[pstate;
1730 typedef struct ]b4_prefix[pstate ]b4_prefix[pstate;
1731 enum { YYPUSH_MORE = 4 };
1732 ]b4_pull_if([b4_c_function_decl([b4_prefix[parse]], [[int]], b4_parse_param)
1733 ])b4_c_function_decl([b4_prefix[push_parse]], [[int]],
1734   [[b4_prefix[pstate *yyps]], [[yyps]]]b4_pure_if([,
1735   [[[int yypushed_char]], [[yypushed_char]]],
1736   [[[YYSTYPE const *yypushed_val]], [[yypushed_val]]]b4_locations_if([,
1737   [[[YYLTYPE const *yypushed_loc]], [[yypushed_loc]]]])])m4_ifset([b4_parse_param], [,
1738   b4_parse_param]))
1739 b4_pull_if([b4_c_function_decl([b4_prefix[pull_parse]], [[int]],
1740   [[b4_prefix[pstate *yyps]], [[yyps]]]m4_ifset([b4_parse_param], [,
1741   b4_parse_param]))])
1742 b4_c_function_decl([b4_prefix[pstate_new]], [b4_prefix[pstate *]],
1743                     [[[void]], []])
1744 b4_c_function_decl([b4_prefix[pstate_delete]], [[void]],
1745                    [[b4_prefix[pstate *yyps]], [[yyps]]])[
1746 #endif
1747 ]])
1748 b4_percent_code_get([[provides]])[]dnl
1749 ])dnl b4_defines_if
1750 m4_divert_pop(0)