]> git.saurik.com Git - bison.git/blame - data/yacc.c
Akim Demaille <akim@epita.fr>
[bison.git] / data / yacc.c
CommitLineData
d4fb5e3c 1m4_divert(-1) -*- C -*-
a8289c62 2
60491a94 3# Yacc compatible skeleton for Bison
c7a65b99
PE
4
5# Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005
12b0043a 6# Free Software Foundation, Inc.
60491a94
AD
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 2 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, write to the Free Software
0fb669f9
PE
20# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
21# 02110-1301 USA
60491a94 22
66d30cd4
AD
23
24
25## ---------------- ##
26## Default values. ##
27## ---------------- ##
28
29# Stack parameters.
30m4_define_default([b4_stack_depth_max], [10000])
31m4_define_default([b4_stack_depth_init], [200])
32
2a8d363a
AD
33
34## ------------------------ ##
35## Pure/impure interfaces. ##
36## ------------------------ ##
37
38
947427ae 39# b4_pure_if(IF-TRUE, IF-FALSE)
2a8d363a
AD
40# -----------------------------
41# Expand IF-TRUE, if %pure-parser and %parse-param, IF-FALSE otherwise.
42m4_define([b4_Pure_if],
43[b4_pure_if([m4_ifset([b4_parse_param],
44 [$1], [$2])],
45 [$2])])
46
47
93724f13
AD
48# b4_yyerror_args
49# ---------------
2a8d363a 50# Arguments passed to yyerror: user args plus yylloc.
93724f13
AD
51m4_define([b4_yyerror_args],
52[b4_Pure_if([b4_location_if([&yylloc, ])])dnl
53m4_ifset([b4_parse_param], [b4_c_args(b4_parse_param), ])])
2a8d363a
AD
54
55
56# b4_lex_param
57# ------------
d42f69cd 58# Accumulate in b4_lex_param all the yylex arguments.
2a8d363a 59# b4_lex_param arrives quoted twice, but we want to keep only one level.
21964f43
AD
60m4_define([b4_lex_param],
61m4_dquote(b4_pure_if([[[[YYSTYPE *]], [[&yylval]]][]dnl
68cdf747
PE
62b4_location_if([, [[YYLTYPE *], [&yylloc]]])m4_ifdef([b4_lex_param], [, ])])dnl
63m4_ifdef([b4_lex_param], b4_lex_param)))
66d30cd4
AD
64
65
f1886bb2
AD
66
67## ------------ ##
68## Data Types. ##
69## ------------ ##
70
71# b4_int_type(MIN, MAX)
72# ---------------------
73# Return the smallest int type able to handle numbers ranging from
74# MIN to MAX (included). We overwrite the version from c.m4 which relies
2a8d363a 75# on "signed char" which is not portable to old K&R compilers.
f1886bb2
AD
76m4_define([b4_int_type],
77[m4_if(b4_ints_in($@, [0], [255]), [1], [unsigned char],
78 b4_ints_in($@, [-128], [127]), [1], [yysigned_char],
79
779e7ceb
PE
80 b4_ints_in($@, [0], [65535]), [1], [unsigned short int],
81 b4_ints_in($@, [-32768], [32767]), [1], [short int],
f1886bb2
AD
82
83 m4_eval([0 <= $1]), [1], [unsigned int],
84
04098407 85 [int])])
f1886bb2
AD
86
87
66d30cd4
AD
88## ----------------- ##
89## Semantic Values. ##
90## ----------------- ##
91
92
82b6cb3f
AD
93# b4_lhs_value([TYPE])
94# --------------------
95# Expansion of $<TYPE>$.
96m4_define([b4_lhs_value],
bc82c5a5 97[(yyval[]m4_ifval([$1], [.$1]))])
82b6cb3f
AD
98
99
100# b4_rhs_value(RULE-LENGTH, NUM, [TYPE])
101# --------------------------------------
102# Expansion of $<TYPE>NUM, where the current rule has RULE-LENGTH
103# symbols on RHS.
104m4_define([b4_rhs_value],
bc82c5a5 105[(yyvsp@{m4_eval([$2 - $1])@}m4_ifval([$3], [.$3]))])
82b6cb3f
AD
106
107
58612f1d
AD
108
109## ----------- ##
110## Locations. ##
111## ----------- ##
112
82b6cb3f
AD
113# b4_lhs_location()
114# -----------------
115# Expansion of @$.
116m4_define([b4_lhs_location],
bc82c5a5 117[(yyloc)])
82b6cb3f
AD
118
119
120# b4_rhs_location(RULE-LENGTH, NUM)
121# ---------------------------------
122# Expansion of @NUM, where the current rule has RULE-LENGTH symbols
123# on RHS.
124m4_define([b4_rhs_location],
bc82c5a5 125[(yylsp@{m4_eval([$2 - $1])@})])
be2a1a68 126
0d8bed56 127
0d8bed56 128
1ae72863
AD
129## --------------------------------------------------------- ##
130## Defining symbol actions, e.g., printers and destructors. ##
131## --------------------------------------------------------- ##
132
b526ee61
AD
133# We do want M4 expansion after # for CPP macros.
134m4_changecom()
be2a1a68 135m4_divert(0)dnl
947427ae 136@output @output_parser_name@
fb8135fa 137b4_copyright([Skeleton parser for Yacc-like parsing with Bison],
cea1469d 138 [1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005])[
fb8135fa 139
0252b55c
PE
140/* As a special exception, when this file is copied by Bison into a
141 Bison output file, you may use that output file without restriction.
142 This special exception was added by the Free Software Foundation
143 in version 1.24 of Bison. */
144
fb8135fa
AD
145/* Written by Richard Stallman by simplifying the original so called
146 ``semantic'' parser. */
444fbf65 147
cf44a9ae
PE
148/* All symbols defined below should begin with yy or YY, to avoid
149 infringing on user name space. This should be done even for local
150 variables, as they might otherwise be expanded by user macros.
151 There are some unavoidable exceptions within include files to
152 define necessary library symbols; they are noted "INFRINGES ON
153 USER NAME SPACE" below. */
154
9c1e26bd 155]b4_identification
be2a1a68 156m4_if(b4_prefix[], [yy], [],
c5b95ccf 157[/* Substitute the variable and function names. */
be2a1a68
AD
158#define yyparse b4_prefix[]parse
159#define yylex b4_prefix[]lex
160#define yyerror b4_prefix[]error
161#define yylval b4_prefix[]lval
162#define yychar b4_prefix[]char
163#define yydebug b4_prefix[]debug
164#define yynerrs b4_prefix[]nerrs
9c1e26bd 165b4_location_if([#define yylloc b4_prefix[]lloc])])[
17da6427 166
cf147260 167]b4_token_enums_defines(b4_tokens)[
17acead5 168
0dd1580a 169/* Copy the first part of user declarations. */
9c1e26bd 170]b4_pre_prologue[
cce71710 171
d99361e6
AD
172/* Enabling traces. */
173#ifndef YYDEBUG
9c1e26bd 174# define YYDEBUG ]b4_debug[
d99361e6
AD
175#endif
176
177/* Enabling verbose error messages. */
178#ifdef YYERROR_VERBOSE
179# undef YYERROR_VERBOSE
180# define YYERROR_VERBOSE 1
181#else
9c1e26bd 182# define YYERROR_VERBOSE ]b4_error_verbose[
d99361e6
AD
183#endif
184
141f5793
PE
185/* Enabling the token table. */
186#ifndef YYTOKEN_TABLE
187# define YYTOKEN_TABLE ]b4_token_table[
188#endif
189
050c471b 190#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
9c1e26bd 191]m4_ifdef([b4_stype],
48b16bbc 192[b4_syncline([b4_stype_line], [b4_file_name])
050c471b 193typedef union m4_bregexp(b4_stype, [^{], [YYSTYPE ])b4_stype YYSTYPE;
996b1c7e 194/* Line __line__ of yacc.c. */
947427ae 195b4_syncline([@oline@], [@ofile@])],
050c471b
PE
196[typedef int YYSTYPE;])[
197# define yystype YYSTYPE /* obsolescent; will be withdrawn */
198# define YYSTYPE_IS_DECLARED 1
71cd15d4 199# define YYSTYPE_IS_TRIVIAL 1
fd51e5ff
AD
200#endif
201
050c471b
PE
202]b4_location_if([#if ! defined (YYLTYPE) && ! defined (YYLTYPE_IS_DECLARED)
203typedef struct YYLTYPE
fd51e5ff
AD
204{
205 int first_line;
206 int first_column;
207 int last_line;
208 int last_column;
050c471b
PE
209} YYLTYPE;
210# define yyltype YYLTYPE /* obsolescent; will be withdrawn */
211# define YYLTYPE_IS_DECLARED 1
71cd15d4 212# define YYLTYPE_IS_TRIVIAL 1
fd51e5ff 213#endif
1915f133 214])[
fd51e5ff 215
0dd1580a 216/* Copy the second part of user declarations. */
ee41006f 217]b4_post_prologue
0dd1580a 218
996b1c7e 219/* Line __line__ of yacc.c. */
ee41006f 220b4_syncline([@oline@], [@ofile@])[
7093d0f5 221
55289366
PE
222#ifndef YYSIZE_T
223# if defined (__SIZE_TYPE__)
224# define YYSIZE_T __SIZE_TYPE__
225# elif defined (size_t)
226# define YYSIZE_T size_t
227# elif ! defined (YYSIZE_T) && (defined (__STDC__) || defined (__cplusplus))
228# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
229# define YYSIZE_T size_t
230# else
231# define YYSIZE_T unsigned int
232# endif
bedf57f5 233#endif
7093d0f5 234
b4c1f9d2
PE
235#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
236
30757c8c
PE
237#ifndef YY_
238# if YYENABLE_NLS
239# if ENABLE_NLS
240# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
241# define YY_(msgid) dgettext ("bison-runtime", msgid)
242# endif
243# endif
244# ifndef YY_
245# define YY_(msgid) msgid
246# endif
247#endif
248
bedf57f5 249#if ! defined (yyoverflow) || YYERROR_VERBOSE
2779e383 250
7093d0f5
AD
251/* The parser invokes alloca or malloc; define the necessary symbols. */
252
b929851a
PE
253# ifdef YYSTACK_USE_ALLOCA
254# if YYSTACK_USE_ALLOCA
b929851a
PE
255# ifdef __GNUC__
256# define YYSTACK_ALLOC __builtin_alloca
9069e5de 257# elif defined (__BUILTIN_VA_ARG_INCR)
55289366 258# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
9069e5de 259# elif defined (_AIX)
55289366 260# define YYSTACK_ALLOC __alloca
9069e5de 261# elif defined (_MSC_VER)
55289366
PE
262# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
263# define alloca _alloca
d7e14fc0
PE
264# else
265# define YYSTACK_ALLOC alloca
62c4328e 266# if (! defined (_ALLOCA_H) && ! defined (_STDLIB_H) \
0d50976f 267 && (defined (__STDC__) || defined (__cplusplus)))
bedf57f5 268# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
55289366
PE
269# ifndef _STDLIB_H
270# define _STDLIB_H 1
271# endif
bedf57f5 272# endif
7093d0f5
AD
273# endif
274# endif
275# endif
276
277# ifdef YYSTACK_ALLOC
278 /* Pacify GCC's `empty if-body' warning. */
279# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
506ffb1f 280# ifndef YYSTACK_ALLOC_MAXIMUM
b9c9f761
PE
281 /* The OS might guarantee only one guard page at the bottom of the stack,
282 and a page size can be as small as 4096 bytes. So we cannot safely
283 invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
284 to allow for a few compiler-allocated temporary stack slots. */
506ffb1f
PE
285# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2005 */
286# endif
7093d0f5 287# else
2779e383
PE
288# define YYSTACK_ALLOC YYMALLOC
289# define YYSTACK_FREE YYFREE
506ffb1f 290# ifndef YYSTACK_ALLOC_MAXIMUM
b4c1f9d2 291# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
506ffb1f 292# endif
0925ebb4
PE
293# ifdef __cplusplus
294extern "C" {
295# endif
bedf57f5
PE
296# ifndef YYMALLOC
297# define YYMALLOC malloc
55289366 298# if (! defined (malloc) && ! defined (_STDLIB_H) \
bedf57f5
PE
299 && (defined (__STDC__) || defined (__cplusplus)))
300void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
301# endif
302# endif
303# ifndef YYFREE
304# define YYFREE free
55289366 305# if (! defined (free) && ! defined (_STDLIB_H) \
bedf57f5
PE
306 && (defined (__STDC__) || defined (__cplusplus)))
307void free (void *); /* INFRINGES ON USER NAME SPACE */
308# endif
309# endif
0925ebb4
PE
310# ifdef __cplusplus
311}
312# endif
7093d0f5 313# endif
cf44a9ae
PE
314#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */
315
316
317#if (! defined (yyoverflow) \
318 && (! defined (__cplusplus) \
d7aa6ec1
PE
319 || (]b4_location_if([[defined (YYLTYPE_IS_TRIVIAL) && YYLTYPE_IS_TRIVIAL \
320 && ]])[defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL)))
7093d0f5 321
600f9b0c
PE
322/* A type that is properly aligned for any stack member. */
323union yyalloc
324{
779e7ceb 325 short int yyss;
2729e106 326 YYSTYPE yyvs;
9c1e26bd 327 ]b4_location_if([ YYLTYPE yyls;
58612f1d 328])dnl
9c1e26bd 329[};
600f9b0c
PE
330
331/* The size of the maximum gap between one aligned stack and the next. */
17836590 332# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
600f9b0c
PE
333
334/* The size of an array large to enough to hold all stacks, each with
335 N elements. */
9c1e26bd 336]b4_location_if(
58612f1d 337[# define YYSTACK_BYTES(N) \
779e7ceb 338 ((N) * (sizeof (short int) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \
17836590 339 + 2 * YYSTACK_GAP_MAXIMUM)],
58612f1d 340[# define YYSTACK_BYTES(N) \
779e7ceb 341 ((N) * (sizeof (short int) + sizeof (YYSTYPE)) \
17836590 342 + YYSTACK_GAP_MAXIMUM)])[
600f9b0c 343
5b041382
PE
344/* Copy COUNT objects from FROM to TO. The source and destination do
345 not overlap. */
346# ifndef YYCOPY
d7aa6ec1 347# if defined (__GNUC__) && 1 < __GNUC__
5b041382
PE
348# define YYCOPY(To, From, Count) \
349 __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
350# else
351# define YYCOPY(To, From, Count) \
352 do \
353 { \
cb530ce9 354 YYSIZE_T yyi; \
5b041382 355 for (yyi = 0; yyi < (Count); yyi++) \
9c1e26bd 356 (To)[yyi] = (From)[yyi]; \
5b041382
PE
357 } \
358 while (0)
359# endif
360# endif
361
362/* Relocate STACK from its old location to the new one. The
7093d0f5 363 local variables YYSIZE and YYSTACKSIZE give the old and new number of
600f9b0c
PE
364 elements in the stack, and YYPTR gives the new location of the
365 stack. Advance YYPTR to a properly aligned location for the next
366 stack. */
5b041382 367# define YYSTACK_RELOCATE(Stack) \
7093d0f5
AD
368 do \
369 { \
370 YYSIZE_T yynewbytes; \
5b041382 371 YYCOPY (&yyptr->Stack, Stack, yysize); \
2729e106 372 Stack = &yyptr->Stack; \
17836590 373 yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
2729e106 374 yyptr += yynewbytes / sizeof (*yyptr); \
7093d0f5
AD
375 } \
376 while (0)
377
cf44a9ae 378#endif
8850be4b 379
768eb43f
PE
380#if defined (__STDC__) || defined (__cplusplus)
381 typedef signed char yysigned_char;
382#else
779e7ceb 383 typedef short int yysigned_char;
768eb43f
PE
384#endif
385
7742ddeb 386/* YYFINAL -- State number of the termination state. */
9c1e26bd 387#define YYFINAL ]b4_final_state_number[
39912f52 388/* YYLAST -- Last index in YYTABLE. */
9c1e26bd 389#define YYLAST ]b4_last[
7742ddeb
AD
390
391/* YYNTOKENS -- Number of terminals. */
9c1e26bd 392#define YYNTOKENS ]b4_tokens_number[
7742ddeb 393/* YYNNTS -- Number of nonterminals. */
9c1e26bd 394#define YYNNTS ]b4_nterms_number[
7742ddeb 395/* YYNRULES -- Number of rules. */
9c1e26bd 396#define YYNRULES ]b4_rules_number[
7742ddeb 397/* YYNRULES -- Number of states. */
9c1e26bd 398#define YYNSTATES ]b4_states_number[
7742ddeb
AD
399
400/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
9c1e26bd
AD
401#define YYUNDEFTOK ]b4_undef_token_number[
402#define YYMAXUTOK ]b4_user_token_number_max[
007a50a4 403
04098407 404#define YYTRANSLATE(YYX) \
a20713a4 405 ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
a8289c62 406
b0400cc6
AD
407/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
408static const ]b4_int_type_for([b4_translate])[ yytranslate[] =
a8289c62 409{
c5e3e510 410 ]b4_translate[
a8289c62
RA
411};
412
413#if YYDEBUG
c5e3e510 414/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
7742ddeb 415 YYRHS. */
c5e3e510 416static const ]b4_int_type_for([b4_prhs])[ yyprhs[] =
a8289c62 417{
c5e3e510 418 ]b4_prhs[
a8289c62
RA
419};
420
3db472b9 421/* YYRHS -- A `-1'-separated list of the rules' RHS. */
c5e3e510 422static const ]b4_int_type_for([b4_rhs])[ yyrhs[] =
a8289c62 423{
c5e3e510 424 ]b4_rhs[
a8289c62
RA
425};
426
c5e3e510
AD
427/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
428static const ]b4_int_type_for([b4_rline])[ yyrline[] =
a8289c62 429{
c5e3e510 430 ]b4_rline[
a8289c62
RA
431};
432#endif
433
141f5793 434#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
9e0876fb 435/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
7742ddeb 436 First, the terminals, then, starting at YYNTOKENS, nonterminals. */
c5e3e510 437static const char *const yytname[] =
a8289c62 438{
c5e3e510 439 ]b4_tname[
a8289c62
RA
440};
441#endif
442
c0ad8bf3 443# ifdef YYPRINT
c5e3e510 444/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
769b430f 445 token YYLEX-NUM. */
c5e3e510 446static const ]b4_int_type_for([b4_toknum])[ yytoknum[] =
a8289c62 447{
c5e3e510 448 ]b4_toknum[
a8289c62 449};
c0ad8bf3 450# endif
a8289c62 451
c5e3e510
AD
452/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
453static const ]b4_int_type_for([b4_r1])[ yyr1[] =
a8289c62 454{
c5e3e510 455 ]b4_r1[
a8289c62
RA
456};
457
c5e3e510
AD
458/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
459static const ]b4_int_type_for([b4_r2])[ yyr2[] =
a8289c62 460{
c5e3e510 461 ]b4_r2[
a8289c62
RA
462};
463
c5e3e510 464/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
5504898e
AD
465 STATE-NUM when YYTABLE doesn't specify something else to do. Zero
466 means the default is an error. */
c5e3e510 467static const ]b4_int_type_for([b4_defact])[ yydefact[] =
a8289c62 468{
c5e3e510 469 ]b4_defact[
a8289c62
RA
470};
471
c5e3e510
AD
472/* YYDEFGOTO[NTERM-NUM]. */
473static const ]b4_int_type_for([b4_defgoto])[ yydefgoto[] =
a8289c62 474{
c5e3e510 475 ]b4_defgoto[
a8289c62
RA
476};
477
c5e3e510 478/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
7742ddeb 479 STATE-NUM. */
c5e3e510
AD
480#define YYPACT_NINF ]b4_pact_ninf[
481static const ]b4_int_type_for([b4_pact])[ yypact[] =
a8289c62 482{
c5e3e510 483 ]b4_pact[
a8289c62
RA
484};
485
c5e3e510
AD
486/* YYPGOTO[NTERM-NUM]. */
487static const ]b4_int_type_for([b4_pgoto])[ yypgoto[] =
a8289c62 488{
c5e3e510 489 ]b4_pgoto[
a8289c62
RA
490};
491
c5e3e510 492/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
7742ddeb 493 positive, shift that token. If negative, reduce the rule which
f50adbbd 494 number is the opposite. If zero, do what YYDEFACT says.
6e649e65 495 If YYTABLE_NINF, syntax error. */
c5e3e510
AD
496#define YYTABLE_NINF ]b4_table_ninf[
497static const ]b4_int_type_for([b4_table])[ yytable[] =
a8289c62 498{
c5e3e510 499 ]b4_table[
a8289c62
RA
500};
501
c5e3e510 502static const ]b4_int_type_for([b4_check])[ yycheck[] =
a8289c62 503{
c5e3e510 504 ]b4_check[
a8289c62
RA
505};
506
c5e3e510 507/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
5504898e 508 symbol of state STATE-NUM. */
c5e3e510 509static const ]b4_int_type_for([b4_stos])[ yystos[] =
5504898e 510{
c5e3e510 511 ]b4_stos[
5504898e 512};
7093d0f5 513
10fa2066 514#define yyerrok (yyerrstatus = 0)
a20713a4
PE
515#define yyclearin (yychar = YYEMPTY)
516#define YYEMPTY (-2)
10fa2066 517#define YYEOF 0
a8289c62 518
70ddf897 519#define YYACCEPT goto yyacceptlab
a8289c62 520#define YYABORT goto yyabortlab
a6b89bb2 521#define YYERROR goto yyerrorlab
8a3eb3c8 522
a8289c62 523
71da9eea
AD
524/* Like YYERROR except do call yyerror. This remains here temporarily
525 to ease the transition to the new meaning of YYERROR, for GCC.
10fa2066 526 Once GCC version 2 has supplanted version 1, this can go. */
a8289c62 527
10fa2066 528#define YYFAIL goto yyerrlab
a8289c62 529
10fa2066 530#define YYRECOVERING() (!!yyerrstatus)
a8289c62 531
69b4e0c5 532#define YYBACKUP(Token, Value) \
10fa2066 533do \
a20713a4 534 if (yychar == YYEMPTY && yylen == 1) \
71da9eea 535 { \
17da6427 536 yychar = (Token); \
7742ddeb 537 yylval = (Value); \
b0400cc6 538 yytoken = YYTRANSLATE (yychar); \
10fa2066
RS
539 YYPOPSTACK; \
540 goto yybackup; \
541 } \
542 else \
04098407 543 { \
30757c8c 544 yyerror (]b4_yyerror_args[YY_("syntax error: cannot back up")); \
71da9eea
AD
545 YYERROR; \
546 } \
10fa2066
RS
547while (0)
548
3fc16193 549
10fa2066
RS
550#define YYTERROR 1
551#define YYERRCODE 256
552
3fc16193 553
b4a20338
AD
554/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
555 If N is 0, then set CURRENT to the empty location which ends
556 the previous symbol: RHS[0] (always defined). */
3abcd459 557
24e0cbd0 558#define YYRHSLOC(Rhs, K) ((Rhs)[K])
3abcd459 559#ifndef YYLLOC_DEFAULT
24e0cbd0
PE
560# define YYLLOC_DEFAULT(Current, Rhs, N) \
561 do \
562 if (N) \
563 { \
9bec482e
PE
564 (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
565 (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
566 (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
567 (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
24e0cbd0
PE
568 } \
569 else \
570 { \
571 (Current).first_line = (Current).last_line = \
9bec482e 572 YYRHSLOC (Rhs, 0).last_line; \
24e0cbd0 573 (Current).first_column = (Current).last_column = \
9bec482e 574 YYRHSLOC (Rhs, 0).last_column; \
24e0cbd0
PE
575 } \
576 while (0)
b8458aa5
AD
577#endif
578
3fc16193
AD
579
580/* YY_LOCATION_PRINT -- Print the location on the stream.
581 This macro was not mandated originally: define only if we know
582 we won't break user code: when these are the locations we know. */
583
3fc16193 584#ifndef YY_LOCATION_PRINT
b8458aa5
AD
585# if YYLTYPE_IS_TRIVIAL
586# define YY_LOCATION_PRINT(File, Loc) \
587 fprintf (File, "%d.%d-%d.%d", \
588 (Loc).first_line, (Loc).first_column, \
589 (Loc).last_line, (Loc).last_column)
0dcca5c2
AD
590# else
591# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
b8458aa5 592# endif
3abcd459
AD
593#endif
594
3fc16193 595
3abcd459 596/* YYLEX -- calling `yylex' with the right arguments. */
553e2b22 597
ae7453f2 598#ifdef YYLEX_PARAM
9c1e26bd 599# define YYLEX yylex (]b4_pure_if([&yylval[]b4_location_if([, &yylloc]), ])[YYLEX_PARAM)
74310291 600#else
9c1e26bd 601# define YYLEX ]b4_c_function_call([yylex], [int], b4_lex_param)[
ae7453f2 602#endif
553e2b22 603
5a35a6cb 604/* Enable debugging if requested. */
0d533154 605#if YYDEBUG
b7575ffe
PE
606
607# ifndef YYFPRINTF
45119af1
PE
608# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
609# define YYFPRINTF fprintf
b7575ffe
PE
610# endif
611
5a35a6cb
AD
612# define YYDPRINTF(Args) \
613do { \
17da6427 614 if (yydebug) \
b7575ffe 615 YYFPRINTF Args; \
5a35a6cb 616} while (0)
c5e3e510 617
284acc8b 618# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
9c1e26bd
AD
619do { \
620 if (yydebug) \
621 { \
622 YYFPRINTF (stderr, "%s ", Title); \
04098407 623 yysymprint (stderr, \
284acc8b 624 Type, Value]b4_location_if([, Location])[); \
9c1e26bd
AD
625 YYFPRINTF (stderr, "\n"); \
626 } \
627} while (0)
628
b0937b22
AD
629/*------------------------------------------------------------------.
630| yy_stack_print -- Print the state stack from its BOTTOM up to its |
5348bfbe 631| TOP (included). |
b0937b22
AD
632`------------------------------------------------------------------*/
633
634]b4_c_function_def([yy_stack_print], [static void],
779e7ceb
PE
635 [[short int *bottom], [bottom]],
636 [[short int *top], [top]])[
b0937b22 637{
30757c8c 638 YYFPRINTF (stderr, "Stack now");
b0937b22
AD
639 for (/* Nothing. */; bottom <= top; ++bottom)
640 YYFPRINTF (stderr, " %d", *bottom);
641 YYFPRINTF (stderr, "\n");
642}
643
644# define YY_STACK_PRINT(Bottom, Top) \
645do { \
646 if (yydebug) \
647 yy_stack_print ((Bottom), (Top)); \
648} while (0)
649
650
651/*------------------------------------------------.
652| Report that the YYRULE is going to be reduced. |
653`------------------------------------------------*/
654
655]b4_c_function_def([yy_reduce_print], [static void],
656 [[int yyrule], [yyrule]])[
657{
658 int yyi;
30757c8c
PE
659 unsigned long int yylno = yyrline[yyrule];
660 YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu), ",
52f32190 661 yyrule - 1, yylno);
b0937b22
AD
662 /* Print the symbols being reduced, and their result. */
663 for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++)
9e0876fb
PE
664 YYFPRINTF (stderr, "%s ", yytname[yyrhs[yyi]]);
665 YYFPRINTF (stderr, "-> %s\n", yytname[yyr1[yyrule]]);
b0937b22
AD
666}
667
668# define YY_REDUCE_PRINT(Rule) \
669do { \
670 if (yydebug) \
671 yy_reduce_print (Rule); \
672} while (0)
673
cf44a9ae
PE
674/* Nonzero means print parse trace. It is left uninitialized so that
675 multiple parsers can coexist. */
17da6427 676int yydebug;
5a35a6cb
AD
677#else /* !YYDEBUG */
678# define YYDPRINTF(Args)
284acc8b 679# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
b0937b22
AD
680# define YY_STACK_PRINT(Bottom, Top)
681# define YY_REDUCE_PRINT(Rule)
5a35a6cb
AD
682#endif /* !YYDEBUG */
683
b0937b22 684
5a35a6cb 685/* YYINITDEPTH -- initial size of the parser's stacks. */
10fa2066 686#ifndef YYINITDEPTH
9c1e26bd 687# define YYINITDEPTH ]b4_stack_depth_init[
10fa2066
RS
688#endif
689
5a35a6cb 690/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
600f9b0c
PE
691 if the built-in stack extension method is used).
692
693 Do not make this value too large; the results are undefined if
506ffb1f 694 YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
600f9b0c
PE
695 evaluated with infinite-precision integer arithmetic. */
696
10fa2066 697#ifndef YYMAXDEPTH
9c1e26bd 698# define YYMAXDEPTH ]b4_stack_depth_max[
10fa2066 699#endif
a8289c62 700
10fa2066 701\f
a8289c62 702
7093d0f5
AD
703#if YYERROR_VERBOSE
704
705# ifndef yystrlen
706# if defined (__GLIBC__) && defined (_STRING_H)
707# define yystrlen strlen
708# else
709/* Return the length of YYSTR. */
710static YYSIZE_T
711# if defined (__STDC__) || defined (__cplusplus)
712yystrlen (const char *yystr)
713# else
714yystrlen (yystr)
715 const char *yystr;
716# endif
717{
cb530ce9 718 const char *yys = yystr;
7093d0f5
AD
719
720 while (*yys++ != '\0')
721 continue;
722
723 return yys - yystr - 1;
724}
725# endif
726# endif
727
728# ifndef yystpcpy
729# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE)
730# define yystpcpy stpcpy
731# else
732/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
733 YYDEST. */
734static char *
f11966ff
PE
735# if defined (__STDC__) || defined (__cplusplus)
736yystpcpy (char *yydest, const char *yysrc)
737# else
7093d0f5
AD
738yystpcpy (yydest, yysrc)
739 char *yydest;
740 const char *yysrc;
7093d0f5
AD
741# endif
742{
cb530ce9
PE
743 char *yyd = yydest;
744 const char *yys = yysrc;
7093d0f5
AD
745
746 while ((*yyd++ = *yys++) != '\0')
747 continue;
748
749 return yyd - 1;
750}
751# endif
752# endif
753
9e0876fb
PE
754# ifndef yytnamerr
755/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
756 quotes and backslashes, so that it's suitable for yyerror. The
757 heuristic is that double-quoting is unnecessary unless the string
758 contains an apostrophe, a comma, or backslash (other than
759 backslash-backslash). YYSTR is taken from yytname. If YYRES is
760 null, do not copy; instead, return the length of what the result
761 would have been. */
762static YYSIZE_T
763yytnamerr (char *yyres, const char *yystr)
764{
765 if (*yystr == '"')
766 {
767 size_t yyn = 0;
768 char const *yyp = yystr;
769
770 for (;;)
771 switch (*++yyp)
772 {
773 case '\'':
774 case ',':
775 goto do_not_strip_quotes;
776
777 case '\\':
778 if (*++yyp != '\\')
779 goto do_not_strip_quotes;
780 /* Fall through. */
781 default:
782 if (yyres)
783 yyres[yyn] = *yyp;
784 yyn++;
785 break;
786
787 case '"':
788 if (yyres)
789 yyres[yyn] = '\0';
790 return yyn;
791 }
792 do_not_strip_quotes: ;
793 }
794
795 if (! yyres)
796 return yystrlen (yystr);
797
798 return yystpcpy (yyres, yystr) - yyres;
799}
800# endif
801
b4c1f9d2
PE
802/* Copy into YYRESULT an error message about the unexpected token
803 YYCHAR while in state YYSTATE. Return the number of bytes copied,
804 including the terminating null byte. If YYRESULT is null, do not
805 copy anything; just return the number of bytes that would be
806 copied. As a special case, return 0 if an ordinary "syntax error"
807 message will do. Return YYSIZE_MAXIMUM if overflow occurs during
808 size calculation. */
809static YYSIZE_T
810yysyntax_error (char *yyresult, int yystate, int yychar)
811{
812 int yyn = yypact[yystate];
7093d0f5 813
b4c1f9d2
PE
814 if (! (YYPACT_NINF < yyn && yyn < YYLAST))
815 return 0;
816 else
817 {
818 int yytype = YYTRANSLATE (yychar);
819 YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
820 YYSIZE_T yysize = yysize0;
821 YYSIZE_T yysize1;
822 int yysize_overflow = 0;
823 enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
824 char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
825 int yyx;
826
827# if 0
828 /* This is so xgettext sees the translatable formats that are
829 constructed on the fly. */
830 YY_("syntax error, unexpected %s");
831 YY_("syntax error, unexpected %s, expecting %s");
832 YY_("syntax error, unexpected %s, expecting %s or %s");
833 YY_("syntax error, unexpected %s, expecting %s or %s or %s");
834 YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
835# endif
836 char *yyfmt;
837 char const *yyf;
838 static char const yyunexpected[] = "syntax error, unexpected %s";
839 static char const yyexpecting[] = ", expecting %s";
840 static char const yyor[] = " or %s";
841 char yyformat[sizeof yyunexpected
842 + sizeof yyexpecting - 1
843 + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
844 * (sizeof yyor - 1))];
845 char const *yyprefix = yyexpecting;
846
847 /* Start YYX at -YYN if negative to avoid negative indexes in
848 YYCHECK. */
849 int yyxbegin = yyn < 0 ? -yyn : 0;
850
851 /* Stay within bounds of both yycheck and yytname. */
852 int yychecklim = YYLAST - yyn;
853 int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
854 int yycount = 1;
855
856 yyarg[0] = yytname[yytype];
857 yyfmt = yystpcpy (yyformat, yyunexpected);
858
859 for (yyx = yyxbegin; yyx < yyxend; ++yyx)
860 if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
861 {
862 if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
863 {
864 yycount = 1;
865 yysize = yysize0;
866 yyformat[sizeof yyunexpected - 1] = '\0';
867 break;
868 }
869 yyarg[yycount++] = yytname[yyx];
870 yysize1 = yysize + yytnamerr (0, yytname[yyx]);
871 yysize_overflow |= yysize1 < yysize;
872 yysize = yysize1;
873 yyfmt = yystpcpy (yyfmt, yyprefix);
874 yyprefix = yyor;
875 }
876
877 yyf = YY_(yyformat);
878 yysize1 = yysize + yystrlen (yyf);
879 yysize_overflow |= yysize1 < yysize;
880 yysize = yysize1;
881
882 if (yysize_overflow)
883 return YYSIZE_MAXIMUM;
884
885 if (yyresult)
886 {
887 /* Avoid sprintf, as that infringes on the user's name space.
888 Don't have undefined behavior even if the translation
889 produced a string with the wrong number of "%s"s. */
890 char *yyp = yyresult;
891 int yyi = 0;
892 while ((*yyp = *yyf))
893 {
894 if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
895 {
896 yyp += yytnamerr (yyp, yyarg[yyi++]);
897 yyf += 2;
898 }
899 else
900 {
901 yyp++;
902 yyf++;
903 }
904 }
905 }
906 return yysize;
907 }
908}
909#endif /* YYERROR_VERBOSE */
10fa2066 910\f
a8289c62 911
b8df3223 912#if YYDEBUG
9c1e26bd 913]b4_yysymprint_generate([b4_c_function_def])[
c5e3e510 914#endif /* ! YYDEBUG */
9c1e26bd 915]b4_yydestruct_generate([b4_c_function_def])
4a2a22f4
AD
916\f
917
0245f82d 918/* Prevent warnings from -Wmissing-prototypes. */
4a2a22f4
AD
919
920#ifdef YYPARSE_PARAM
921# if defined (__STDC__) || defined (__cplusplus)
0245f82d 922int yyparse (void *YYPARSE_PARAM);
4a2a22f4 923# else
0245f82d 924int yyparse ();
4a2a22f4 925# endif
0245f82d
AD
926#else /* ! YYPARSE_PARAM */
927b4_c_function_decl([yyparse], [int], b4_parse_param)
c5e3e510 928#endif /* ! YYPARSE_PARAM */
1b181651 929
0245f82d 930
74310291
AD
931m4_divert_push([KILL])# ======================== M4 code.
932# b4_declare_parser_variables
933# ---------------------------
934# Declare the variables that are global, or local to YYPARSE if
0245f82d 935# pure-parser.
74310291 936m4_define([b4_declare_parser_variables],
8dd162d3 937[/* The look-ahead symbol. */
74310291
AD
938int yychar;
939
8dd162d3 940/* The semantic value of the look-ahead symbol. */
74310291
AD
941YYSTYPE yylval;
942
6e649e65 943/* Number of syntax errors so far. */
74310291 944int yynerrs;b4_location_if([
8dd162d3 945/* Location data for the look-ahead symbol. */
58612f1d 946YYLTYPE yylloc;])
74310291
AD
947])
948m4_divert_pop([KILL])dnl# ====================== End of M4 code.
58612f1d 949
74310291
AD
950b4_pure_if([],
951 [b4_declare_parser_variables])
a35f64ea 952
0245f82d
AD
953
954/*----------.
955| yyparse. |
956`----------*/
957
958#ifdef YYPARSE_PARAM
959# if defined (__STDC__) || defined (__cplusplus)
960int yyparse (void *YYPARSE_PARAM)
961# else
962int yyparse (YYPARSE_PARAM)
963 void *YYPARSE_PARAM;
964# endif
965#else /* ! YYPARSE_PARAM */
966b4_c_function_def([yyparse], [int], b4_parse_param)
967#endif
be2a1a68 968{[
74310291 969 ]b4_pure_if([b4_declare_parser_variables])[
cb530ce9
PE
970 int yystate;
971 int yyn;
600f9b0c 972 int yyresult;
b07b484a
AD
973 /* Number of tokens to shift before error messages enabled. */
974 int yyerrstatus;
8dd162d3 975 /* Look-ahead token as an internal (translated) token number. */
b0400cc6 976 int yytoken = 0;
b4c1f9d2
PE
977#if YYERROR_VERBOSE
978 /* Buffer for error messages, and its allocated size. */
979 char yymsgbuf[128];
980 char *yymsg = yymsgbuf;
981 YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
982#endif
10fa2066 983
bb10be54
AD
984 /* Three stacks and their tools:
985 `yyss': related to states,
e9e4c321 986 `yyvs': related to semantic values,
bb10be54
AD
987 `yyls': related to locations.
988
989 Refer to the stacks thru separate pointers, to allow yyoverflow
990 to reallocate them elsewhere. */
991
e8cb70b9 992 /* The state stack. */
779e7ceb
PE
993 short int yyssa[YYINITDEPTH];
994 short int *yyss = yyssa;
cb530ce9 995 short int *yyssp;
bb10be54 996
b07b484a
AD
997 /* The semantic value stack. */
998 YYSTYPE yyvsa[YYINITDEPTH];
b07b484a 999 YYSTYPE *yyvs = yyvsa;
cb530ce9 1000 YYSTYPE *yyvsp;
10fa2066 1001
58612f1d
AD
1002]b4_location_if(
1003[[ /* The location stack. */
b07b484a 1004 YYLTYPE yylsa[YYINITDEPTH];
10fa2066 1005 YYLTYPE *yyls = yylsa;
d42f69cd 1006 YYLTYPE *yylsp;
3fc16193
AD
1007 /* The locations where the error started and ended. */
1008 YYLTYPE yyerror_range[2];]])[
10fa2066 1009
58612f1d 1010#define YYPOPSTACK (yyvsp--, yyssp--]b4_location_if([, yylsp--])[)
10fa2066 1011
7093d0f5 1012 YYSIZE_T yystacksize = YYINITDEPTH;
10fa2066 1013
6666f98f
AD
1014 /* The variables used to return semantic value and location from the
1015 action routines. */
bb10be54 1016 YYSTYPE yyval;
58612f1d 1017]b4_location_if([ YYLTYPE yyloc;])[
10fa2066 1018
6666f98f 1019 /* When reducing, the number of symbols on the RHS of the reduced
e8cb70b9 1020 rule. */
10fa2066
RS
1021 int yylen;
1022
7ea5e977 1023 YYDPRINTF ((stderr, "Starting parse\n"));
10fa2066
RS
1024
1025 yystate = 0;
1026 yyerrstatus = 0;
17da6427 1027 yynerrs = 0;
a20713a4 1028 yychar = YYEMPTY; /* Cause a token to be read. */
10fa2066
RS
1029
1030 /* Initialize stack pointers.
1031 Waste one element of value and location stack
1032 so that they stay on the same level as the state stack.
1033 The wasted elements are never initialized. */
1034
cbd89906 1035 yyssp = yyss;
10fa2066 1036 yyvsp = yyvs;
b8458aa5
AD
1037]b4_location_if([[ yylsp = yyls;
1038#if YYLTYPE_IS_TRIVIAL
1039 /* Initialize the default location before parsing starts. */
451364ed
AD
1040 yylloc.first_line = yylloc.last_line = 1;
1041 yylloc.first_column = yylloc.last_column = 0;
b8458aa5
AD
1042#endif
1043]])
1044m4_ifdef([b4_initial_action], [
407d4a75
PE
1045m4_pushdef([b4_at_dollar], [m4_define([b4_at_dollar_used])yylloc])dnl
1046m4_pushdef([b4_dollar_dollar], [m4_define([b4_dollar_dollar_used])yylval])dnl
cd3684cf 1047 /* User initialization code. */
baf073c6 1048b4_initial_action
cd3684cf
AD
1049m4_popdef([b4_dollar_dollar])dnl
1050m4_popdef([b4_at_dollar])dnl
1051/* Line __line__ of yacc.c. */
407d4a75
PE
1052b4_syncline([@oline@], [@ofile@])
1053])dnl
1054m4_ifdef([b4_dollar_dollar_used],[[ yyvsp[0] = yylval;
1055]])dnl
1056m4_ifdef([b4_at_dollar_used], [[ yylsp[0] = yylloc;
1057]])dnl
1058[ goto yysetstate;
10fa2066 1059
71da9eea
AD
1060/*------------------------------------------------------------.
1061| yynewstate -- Push a new state, which is found in yystate. |
1062`------------------------------------------------------------*/
342b8b6e 1063 yynewstate:
71da9eea
AD
1064 /* In all cases, when you get here, the value and location stacks
1065 have just been pushed. so pushing a state here evens the stacks.
1066 */
cbd89906
PE
1067 yyssp++;
1068
342b8b6e 1069 yysetstate:
cbd89906 1070 *yyssp = yystate;
10fa2066 1071
39912f52 1072 if (yyss + yystacksize - 1 <= yyssp)
10fa2066 1073 {
10fa2066 1074 /* Get the current used size of the three stacks, in elements. */
7093d0f5 1075 YYSIZE_T yysize = yyssp - yyss + 1;
10fa2066
RS
1076
1077#ifdef yyoverflow
3d76b07d
AD
1078 {
1079 /* Give user a chance to reallocate the stack. Use copies of
1080 these so that the &'s don't force the real ones into
1081 memory. */
1082 YYSTYPE *yyvs1 = yyvs;
779e7ceb 1083 short int *yyss1 = yyss;
58612f1d 1084]b4_location_if([ YYLTYPE *yyls1 = yyls;])[
3d76b07d
AD
1085
1086 /* Each stack pointer address is followed by the size of the
58612f1d
AD
1087 data in use in that stack, in bytes. This used to be a
1088 conditional around just the two extra args, but that might
1089 be undefined if yyoverflow is a macro. */
1a059451 1090 yyoverflow (YY_("memory exhausted"),
7093d0f5
AD
1091 &yyss1, yysize * sizeof (*yyssp),
1092 &yyvs1, yysize * sizeof (*yyvsp),
58612f1d 1093]b4_location_if([ &yyls1, yysize * sizeof (*yylsp),])[
3d76b07d 1094 &yystacksize);
58612f1d 1095]b4_location_if([ yyls = yyls1;])[
3d76b07d
AD
1096 yyss = yyss1;
1097 yyvs = yyvs1;
1098 }
10fa2066 1099#else /* no yyoverflow */
cf44a9ae 1100# ifndef YYSTACK_RELOCATE
1a059451 1101 goto yyexhaustedlab;
cf44a9ae 1102# else
10fa2066 1103 /* Extend the stack our own way. */
39912f52 1104 if (YYMAXDEPTH <= yystacksize)
1a059451 1105 goto yyexhaustedlab;
10fa2066 1106 yystacksize *= 2;
39912f52 1107 if (YYMAXDEPTH < yystacksize)
10fa2066 1108 yystacksize = YYMAXDEPTH;
e9e4c321 1109
600f9b0c 1110 {
779e7ceb 1111 short int *yyss1 = yyss;
2729e106
PE
1112 union yyalloc *yyptr =
1113 (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
600f9b0c 1114 if (! yyptr)
1a059451 1115 goto yyexhaustedlab;
5b041382
PE
1116 YYSTACK_RELOCATE (yyss);
1117 YYSTACK_RELOCATE (yyvs);
58612f1d 1118]b4_location_if([ YYSTACK_RELOCATE (yyls);])[
cf44a9ae 1119# undef YYSTACK_RELOCATE
600f9b0c
PE
1120 if (yyss1 != yyssa)
1121 YYSTACK_FREE (yyss1);
1122 }
cf44a9ae 1123# endif
10fa2066
RS
1124#endif /* no yyoverflow */
1125
7093d0f5
AD
1126 yyssp = yyss + yysize - 1;
1127 yyvsp = yyvs + yysize - 1;
58612f1d 1128]b4_location_if([ yylsp = yyls + yysize - 1;])[
10fa2066 1129
30757c8c 1130 YYDPRINTF ((stderr, "Stack size increased to %lu\n",
600f9b0c 1131 (unsigned long int) yystacksize));
10fa2066 1132
39912f52 1133 if (yyss + yystacksize - 1 <= yyssp)
10fa2066
RS
1134 YYABORT;
1135 }
1136
30757c8c 1137 YYDPRINTF ((stderr, "Entering state %d\n", yystate));
10fa2066
RS
1138
1139 goto yybackup;
71da9eea 1140
71da9eea
AD
1141/*-----------.
1142| yybackup. |
1143`-----------*/
1144yybackup:
10fa2066
RS
1145
1146/* Do appropriate processing given the current state. */
8dd162d3 1147/* Read a look-ahead token if we need one and don't already have one. */
10fa2066
RS
1148/* yyresume: */
1149
8dd162d3 1150 /* First try to decide what to do without reference to look-ahead token. */
10fa2066
RS
1151
1152 yyn = yypact[yystate];
12b0043a 1153 if (yyn == YYPACT_NINF)
10fa2066
RS
1154 goto yydefault;
1155
8dd162d3 1156 /* Not known => get a look-ahead token if don't already have one. */
10fa2066 1157
8dd162d3 1158 /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */
a20713a4 1159 if (yychar == YYEMPTY)
10fa2066 1160 {
30757c8c 1161 YYDPRINTF ((stderr, "Reading a token: "));
17da6427 1162 yychar = YYLEX;
10fa2066
RS
1163 }
1164
a20713a4 1165 if (yychar <= YYEOF)
10fa2066 1166 {
a20713a4 1167 yychar = yytoken = YYEOF;
30757c8c 1168 YYDPRINTF ((stderr, "Now at end of input.\n"));
10fa2066
RS
1169 }
1170 else
1171 {
a20713a4 1172 yytoken = YYTRANSLATE (yychar);
30757c8c 1173 YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
10fa2066
RS
1174 }
1175
b0400cc6 1176 /* If the proper action on seeing token YYTOKEN is to reduce or to
e5cfd9d8 1177 detect an error, take that action. */
b0400cc6
AD
1178 yyn += yytoken;
1179 if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
e5cfd9d8
PE
1180 goto yydefault;
1181 yyn = yytable[yyn];
1182 if (yyn <= 0)
10fa2066 1183 {
e5cfd9d8
PE
1184 if (yyn == 0 || yyn == YYTABLE_NINF)
1185 goto yyerrlab;
10fa2066
RS
1186 yyn = -yyn;
1187 goto yyreduce;
1188 }
10fa2066
RS
1189
1190 if (yyn == YYFINAL)
1191 YYACCEPT;
1192
8dd162d3 1193 /* Shift the look-ahead token. */
30757c8c 1194 YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
10fa2066
RS
1195
1196 /* Discard the token being shifted unless it is eof. */
a20713a4
PE
1197 if (yychar != YYEOF)
1198 yychar = YYEMPTY;
10fa2066 1199
17da6427 1200 *++yyvsp = yylval;
58612f1d 1201]b4_location_if([ *++yylsp = yylloc;])[
10fa2066 1202
71da9eea
AD
1203 /* Count tokens shifted since error; after three, turn off error
1204 status. */
1205 if (yyerrstatus)
1206 yyerrstatus--;
10fa2066
RS
1207
1208 yystate = yyn;
1209 goto yynewstate;
1210
10fa2066 1211
71da9eea
AD
1212/*-----------------------------------------------------------.
1213| yydefault -- do the default action for the current state. |
1214`-----------------------------------------------------------*/
1215yydefault:
10fa2066
RS
1216 yyn = yydefact[yystate];
1217 if (yyn == 0)
1218 goto yyerrlab;
71da9eea 1219 goto yyreduce;
10fa2066 1220
71da9eea
AD
1221
1222/*-----------------------------.
1223| yyreduce -- Do a reduction. |
1224`-----------------------------*/
10fa2066 1225yyreduce:
71da9eea 1226 /* yyn is the number of a rule to reduce with. */
10fa2066 1227 yylen = yyr2[yyn];
da9abf43
AD
1228
1229 /* If YYLEN is nonzero, implement the default value of the action:
573c1d9f 1230 `$$ = $1'.
da9abf43 1231
accea6db
PE
1232 Otherwise, the following line sets YYVAL to garbage.
1233 This behavior is undocumented and Bison
da9abf43
AD
1234 users should not rely upon it. Assigning to YYVAL
1235 unconditionally makes the parser a bit smaller, and it avoids a
1236 GCC warning that YYVAL may be used uninitialized. */
1237 yyval = yyvsp[1-yylen];
3abcd459 1238
58612f1d 1239]b4_location_if(
b8458aa5 1240[[ /* Default location. */
b4a20338 1241 YYLLOC_DEFAULT (yyloc, yylsp - yylen, yylen);]])[
b0937b22 1242 YY_REDUCE_PRINT (yyn);
a8289c62 1243 switch (yyn)
be2a1a68
AD
1244 ]{
1245 b4_actions
95f22ad2 1246 default: break;
a8289c62 1247 }
897668ee 1248
996b1c7e 1249/* Line __line__ of yacc.c. */
947427ae 1250b4_syncline([@oline@], [@ofile@])
10fa2066 1251\f
be2a1a68 1252[ yyvsp -= yylen;
10fa2066 1253 yyssp -= yylen;
58612f1d 1254]b4_location_if([ yylsp -= yylen;])[
10fa2066 1255
b0937b22 1256 YY_STACK_PRINT (yyss, yyssp);
10fa2066
RS
1257
1258 *++yyvsp = yyval;
58612f1d 1259]b4_location_if([ *++yylsp = yyloc;])[
10fa2066 1260
41aca2e0
AD
1261 /* Now `shift' the result of the reduction. Determine what state
1262 that goes to, based on the state we popped back to and the rule
1263 number reduced by. */
10fa2066
RS
1264
1265 yyn = yyr1[yyn];
1266
7742ddeb 1267 yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
12b0043a 1268 if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
10fa2066
RS
1269 yystate = yytable[yystate];
1270 else
7742ddeb 1271 yystate = yydefgoto[yyn - YYNTOKENS];
10fa2066
RS
1272
1273 goto yynewstate;
1274
10fa2066 1275
71da9eea
AD
1276/*------------------------------------.
1277| yyerrlab -- here on detecting error |
1278`------------------------------------*/
1279yyerrlab:
1280 /* If not already recovering from an error, report this error. */
1281 if (!yyerrstatus)
10fa2066 1282 {
17da6427 1283 ++yynerrs;
b4c1f9d2
PE
1284#if ! YYERROR_VERBOSE
1285 yyerror (]b4_yyerror_args[YY_("syntax error"));
1286#else
1287 {
1288 YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
1289 if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
1290 {
1291 YYSIZE_T yyalloc = 2 * yysize;
1292 if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
1293 yyalloc = YYSTACK_ALLOC_MAXIMUM;
1294 if (yymsg != yymsgbuf)
1295 YYSTACK_FREE (yymsg);
1296 yymsg = (char *) YYSTACK_ALLOC (yyalloc);
1297 if (yymsg)
1298 yymsg_alloc = yyalloc;
1299 else
3aa2f55d 1300 {
b4c1f9d2
PE
1301 yymsg = yymsgbuf;
1302 yymsg_alloc = sizeof yymsgbuf;
3aa2f55d 1303 }
b4c1f9d2 1304 }
df5aed8c 1305
b4c1f9d2
PE
1306 if (0 < yysize && yysize <= yymsg_alloc)
1307 {
1308 (void) yysyntax_error (yymsg, yystate, yychar);
1309 yyerror (]b4_yyerror_args[yymsg);
1310 }
1311 else
1312 {
1313 yyerror (]b4_yyerror_args[YY_("syntax error"));
1314 if (yysize != 0)
1a059451 1315 goto yyexhaustedlab;
b4c1f9d2
PE
1316 }
1317 }
1318#endif
10fa2066 1319 }
71da9eea 1320
3fc16193 1321]b4_location_if([[ yyerror_range[0] = yylloc;]])[
d42f69cd 1322
10fa2066
RS
1323 if (yyerrstatus == 3)
1324 {
8dd162d3 1325 /* If just tried and failed to reuse look-ahead token after an
71da9eea 1326 error, discard it. */
10fa2066 1327
a6b89bb2 1328 if (yychar <= YYEOF)
5719c109 1329 {
258b75ca 1330 /* Return failure if at end of input. */
a6b89bb2 1331 if (yychar == YYEOF)
80ce3401 1332 YYABORT;
5719c109 1333 }
a6b89bb2
PE
1334 else
1335 {
30757c8c 1336 yydestruct ("Error: discarding", yytoken, &yylval]b4_location_if([, &yylloc])[);
a6b89bb2 1337 yychar = YYEMPTY;
a6b89bb2 1338 }
10fa2066
RS
1339 }
1340
8dd162d3 1341 /* Else will try to reuse look-ahead token after shifting the error
71da9eea 1342 token. */
8a3eb3c8 1343 goto yyerrlab1;
300a7966 1344
10fa2066 1345
a6b89bb2
PE
1346/*---------------------------------------------------.
1347| yyerrorlab -- error raised explicitly by YYERROR. |
1348`---------------------------------------------------*/
1349yyerrorlab:
1350
c7a65b99
PE
1351 /* Pacify compilers like GCC when the user code never invokes
1352 YYERROR and the label yyerrorlab therefore never appears in user
1353 code. */
a6b89bb2
PE
1354 if (0)
1355 goto yyerrorlab;
a6b89bb2 1356
3fc16193
AD
1357]b4_location_if([[ yyerror_range[0] = yylsp[1-yylen];
1358 yylsp -= yylen;
1359 ]])[yyvsp -= yylen;
a6b89bb2
PE
1360 yyssp -= yylen;
1361 yystate = *yyssp;
3fc16193 1362 goto yyerrlab1;
a6b89bb2
PE
1363
1364
1365/*-------------------------------------------------------------.
1366| yyerrlab1 -- common code for both syntax error and YYERROR. |
1367`-------------------------------------------------------------*/
300a7966 1368yyerrlab1:
cf44a9ae 1369 yyerrstatus = 3; /* Each real token shifted decrements this. */
10fa2066 1370
660bc8dd
PE
1371 for (;;)
1372 {
1373 yyn = yypact[yystate];
12b0043a 1374 if (yyn != YYPACT_NINF)
660bc8dd
PE
1375 {
1376 yyn += YYTERROR;
1377 if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
1378 {
1379 yyn = yytable[yyn];
1380 if (0 < yyn)
1381 break;
1382 }
1383 }
10fa2066 1384
660bc8dd
PE
1385 /* Pop the current state because it cannot handle the error token. */
1386 if (yyssp == yyss)
1387 YYABORT;
5504898e 1388
3fc16193 1389]b4_location_if([[ yyerror_range[0] = *yylsp;]])[
30757c8c 1390 yydestruct ("Error: popping", yystos[yystate], yyvsp]b4_location_if([, yylsp])[);
a6b89bb2
PE
1391 YYPOPSTACK;
1392 yystate = *yyssp;
b0937b22 1393 YY_STACK_PRINT (yyss, yyssp);
10fa2066 1394 }
10fa2066
RS
1395
1396 if (yyn == YYFINAL)
1397 YYACCEPT;
1398
17da6427 1399 *++yyvsp = yylval;
3fc16193
AD
1400]b4_location_if([[
1401 yyerror_range[1] = yylloc;
1402 /* Using YYLLOC is tempting, but would change the location of
1403 the look-ahead. YYLOC is available though. */
1404 YYLLOC_DEFAULT (yyloc, yyerror_range - 1, 2);
1405 *++yylsp = yyloc;]])[
10fa2066 1406
1576d44d 1407 /* Shift the error token. */
30757c8c 1408 YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
1576d44d 1409
10fa2066
RS
1410 yystate = yyn;
1411 goto yynewstate;
70ddf897 1412
71da9eea
AD
1413
1414/*-------------------------------------.
1415| yyacceptlab -- YYACCEPT comes here. |
1416`-------------------------------------*/
1417yyacceptlab:
600f9b0c
PE
1418 yyresult = 0;
1419 goto yyreturn;
71da9eea
AD
1420
1421/*-----------------------------------.
1422| yyabortlab -- YYABORT comes here. |
1423`-----------------------------------*/
1424yyabortlab:
600f9b0c
PE
1425 yyresult = 1;
1426 goto yyreturn;
1427
0bfb02ff 1428#ifndef yyoverflow
1a059451
PE
1429/*-------------------------------------------------.
1430| yyexhaustedlab -- memory exhaustion comes here. |
1431`-------------------------------------------------*/
1432yyexhaustedlab:
1433 yyerror (]b4_yyerror_args[YY_("memory exhausted"));
600f9b0c
PE
1434 yyresult = 2;
1435 /* Fall through. */
0bfb02ff 1436#endif
600f9b0c
PE
1437
1438yyreturn:
cea1469d 1439 if (yychar != YYEOF && yychar != YYEMPTY)
dd5f2af2 1440 yydestruct ("Cleanup: discarding lookahead",
cea1469d 1441 yytoken, &yylval]b4_location_if([, &yylloc])[);
258b75ca
PE
1442 while (yyssp != yyss)
1443 {
dd5f2af2 1444 yydestruct ("Cleanup: popping",
258b75ca
PE
1445 yystos[*yyssp], yyvsp]b4_location_if([, yylsp])[);
1446 YYPOPSTACK;
1447 }
600f9b0c
PE
1448#ifndef yyoverflow
1449 if (yyss != yyssa)
1450 YYSTACK_FREE (yyss);
b4c1f9d2
PE
1451#endif
1452#if YYERROR_VERBOSE
1453 if (yymsg != yymsgbuf)
1454 YYSTACK_FREE (yymsg);
70ddf897 1455#endif
600f9b0c 1456 return yyresult;
be2a1a68
AD
1457]}
1458
24c0aad7 1459
be2a1a68
AD
1460b4_epilogue
1461m4_if(b4_defines_flag, 0, [],
947427ae 1462[@output @output_header_name@
c76e14da 1463b4_copyright([Skeleton parser for Yacc-like parsing with Bison],
cea1469d 1464 [1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005])
0252b55c
PE
1465
1466/* As a special exception, when this file is copied by Bison into a
1467 Bison output file, you may use that output file without restriction.
1468 This special exception was added by the Free Software Foundation
1469 in version 1.24 of Bison. */
c76e14da 1470
cf147260 1471b4_token_enums_defines(b4_tokens)
be2a1a68 1472
050c471b 1473#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
e9955c83 1474m4_ifdef([b4_stype],
48b16bbc 1475[b4_syncline([b4_stype_line], [b4_file_name])
050c471b 1476typedef union m4_bregexp(b4_stype, [^{], [YYSTYPE ])b4_stype YYSTYPE;
996b1c7e 1477/* Line __line__ of yacc.c. */
947427ae 1478b4_syncline([@oline@], [@ofile@])],
050c471b
PE
1479[typedef int YYSTYPE;])
1480# define yystype YYSTYPE /* obsolescent; will be withdrawn */
1481# define YYSTYPE_IS_DECLARED 1
947427ae 1482# define YYSTYPE_IS_TRIVIAL 1
be2a1a68
AD
1483#endif
1484
74310291 1485b4_pure_if([],
be2a1a68
AD
1486[extern YYSTYPE b4_prefix[]lval;])
1487
58612f1d 1488b4_location_if(
050c471b
PE
1489[#if ! defined (YYLTYPE) && ! defined (YYLTYPE_IS_DECLARED)
1490typedef struct YYLTYPE
be2a1a68
AD
1491{
1492 int first_line;
1493 int first_column;
1494 int last_line;
1495 int last_column;
050c471b
PE
1496} YYLTYPE;
1497# define yyltype YYLTYPE /* obsolescent; will be withdrawn */
1498# define YYLTYPE_IS_DECLARED 1
1499# define YYLTYPE_IS_TRIVIAL 1
be2a1a68 1500#endif
ff48177d 1501
be2a1a68
AD
1502m4_if(b4_pure, [0],
1503[extern YYLTYPE b4_prefix[]lloc;])
1504])
be2a1a68 1505])