]>
Commit | Line | Data |
---|---|---|
08af01c2 | 1 | -*- C -*- |
60491a94 | 2 | # Yacc compatible skeleton for Bison |
c7a65b99 | 3 | |
575619af JD |
4 | # Copyright (C) 1984, 1989-1990, 2000-2011 Free Software Foundation, |
5 | # Inc. | |
60491a94 | 6 | |
639867b5 | 7 | m4_pushdef([b4_copyright_years], |
575619af | 8 | [1984, 1989-1990, 2000-2011]) |
639867b5 | 9 | |
f16b0819 | 10 | # This program is free software: you can redistribute it and/or modify |
60491a94 | 11 | # it under the terms of the GNU General Public License as published by |
f16b0819 | 12 | # the Free Software Foundation, either version 3 of the License, or |
60491a94 | 13 | # (at your option) any later version. |
f16b0819 | 14 | # |
60491a94 AD |
15 | # This program is distributed in the hope that it will be useful, |
16 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | # GNU General Public License for more details. | |
f16b0819 | 19 | # |
60491a94 | 20 | # You should have received a copy of the GNU General Public License |
f16b0819 | 21 | # along with this program. If not, see <http://www.gnu.org/licenses/>. |
60491a94 | 22 | |
67212941 JD |
23 | # Check the value of %define api.push-pull. |
24 | b4_percent_define_default([[api.push-pull]], [[pull]]) | |
25 | b4_percent_define_check_values([[[[api.push-pull]], | |
bb31eb56 | 26 | [[pull]], [[push]], [[both]]]]) |
9ca7f077 JD |
27 | b4_define_flag_if([pull]) m4_define([b4_pull_flag], [[1]]) |
28 | b4_define_flag_if([push]) m4_define([b4_push_flag], [[1]]) | |
67212941 | 29 | m4_case(b4_percent_define_get([[api.push-pull]]), |
9ca7f077 JD |
30 | [pull], [m4_define([b4_push_flag], [[0]])], |
31 | [push], [m4_define([b4_pull_flag], [[0]])]) | |
32 | ||
33 | # Handle BISON_USE_PUSH_FOR_PULL for the test suite. So that push parsing | |
3c9b20ff PE |
34 | # tests function as written, do not let BISON_USE_PUSH_FOR_PULL modify the |
35 | # behavior of Bison at all when push parsing is already requested. | |
9ca7f077 JD |
36 | b4_define_flag_if([use_push_for_pull]) |
37 | b4_use_push_for_pull_if([ | |
38 | b4_push_if([m4_define([b4_use_push_for_pull_flag], [[0]])], | |
39 | [m4_define([b4_push_flag], [[1]])])]) | |
945e396c | 40 | |
107844a3 JD |
41 | # Check the value of %define parse.lac and friends, where LAC stands for |
42 | # lookahead correction. | |
bf35c71c | 43 | b4_percent_define_default([[parse.lac]], [[none]]) |
107844a3 JD |
44 | b4_percent_define_default([[parse.lac.es-capacity-initial]], [[20]]) |
45 | b4_percent_define_default([[parse.lac.memory-trace]], [[failures]]) | |
46 | b4_percent_define_check_values([[[[parse.lac]], [[full]], [[none]]]], | |
47 | [[[[parse.lac.memory-trace]], | |
48 | [[failures]], [[full]]]]) | |
bf35c71c JD |
49 | b4_define_flag_if([lac]) |
50 | m4_define([b4_lac_flag], | |
51 | [m4_if(b4_percent_define_get([[parse.lac]]), | |
52 | [none], [[0]], [[1]])]) | |
53 | ||
0a96ba81 | 54 | m4_include(b4_pkgdatadir/[c.m4]) |
7eb8a0bc | 55 | |
66d30cd4 AD |
56 | ## ---------------- ## |
57 | ## Default values. ## | |
58 | ## ---------------- ## | |
59 | ||
60 | # Stack parameters. | |
61 | m4_define_default([b4_stack_depth_max], [10000]) | |
62 | m4_define_default([b4_stack_depth_init], [200]) | |
63 | ||
2a8d363a AD |
64 | |
65 | ## ------------------------ ## | |
66 | ## Pure/impure interfaces. ## | |
67 | ## ------------------------ ## | |
68 | ||
d9df47b6 JD |
69 | b4_percent_define_default([[api.pure]], [[false]]) |
70 | b4_define_flag_if([pure]) | |
71 | m4_define([b4_pure_flag], | |
72 | [b4_percent_define_flag_if([[api.pure]], [[1]], [[0]])]) | |
2a8d363a | 73 | |
4b367315 AD |
74 | # b4_yacc_pure_if(IF-TRUE, IF-FALSE) |
75 | # ---------------------------------- | |
2a8d363a | 76 | # Expand IF-TRUE, if %pure-parser and %parse-param, IF-FALSE otherwise. |
4b367315 | 77 | m4_define([b4_yacc_pure_if], |
2a8d363a | 78 | [b4_pure_if([m4_ifset([b4_parse_param], |
e9690142 JD |
79 | [$1], [$2])], |
80 | [$2])]) | |
2a8d363a AD |
81 | |
82 | ||
93724f13 AD |
83 | # b4_yyerror_args |
84 | # --------------- | |
2a8d363a | 85 | # Arguments passed to yyerror: user args plus yylloc. |
93724f13 | 86 | m4_define([b4_yyerror_args], |
327afc7c | 87 | [b4_yacc_pure_if([b4_locations_if([&yylloc, ])])dnl |
93724f13 | 88 | m4_ifset([b4_parse_param], [b4_c_args(b4_parse_param), ])]) |
2a8d363a AD |
89 | |
90 | ||
91 | # b4_lex_param | |
92 | # ------------ | |
d42f69cd | 93 | # Accumulate in b4_lex_param all the yylex arguments. |
2a8d363a | 94 | # b4_lex_param arrives quoted twice, but we want to keep only one level. |
21964f43 AD |
95 | m4_define([b4_lex_param], |
96 | m4_dquote(b4_pure_if([[[[YYSTYPE *]], [[&yylval]]][]dnl | |
327afc7c | 97 | b4_locations_if([, [[YYLTYPE *], [&yylloc]]])m4_ifdef([b4_lex_param], [, ])])dnl |
68cdf747 | 98 | m4_ifdef([b4_lex_param], b4_lex_param))) |
66d30cd4 AD |
99 | |
100 | ||
f1886bb2 AD |
101 | ## ------------ ## |
102 | ## Data Types. ## | |
103 | ## ------------ ## | |
104 | ||
105 | # b4_int_type(MIN, MAX) | |
106 | # --------------------- | |
107 | # Return the smallest int type able to handle numbers ranging from | |
d42cf844 PE |
108 | # MIN to MAX (included). Overwrite the version from c.m4, which |
109 | # uses only C89 types, so that the user can override the shorter | |
110 | # types, and so that pre-C89 compilers are handled correctly. | |
f1886bb2 | 111 | m4_define([b4_int_type], |
d42cf844 PE |
112 | [m4_if(b4_ints_in($@, [0], [255]), [1], [yytype_uint8], |
113 | b4_ints_in($@, [-128], [127]), [1], [yytype_int8], | |
f1886bb2 | 114 | |
d42cf844 PE |
115 | b4_ints_in($@, [0], [65535]), [1], [yytype_uint16], |
116 | b4_ints_in($@, [-32768], [32767]), [1], [yytype_int16], | |
f1886bb2 AD |
117 | |
118 | m4_eval([0 <= $1]), [1], [unsigned int], | |
119 | ||
e9690142 | 120 | [int])]) |
f1886bb2 AD |
121 | |
122 | ||
66d30cd4 AD |
123 | ## ----------------- ## |
124 | ## Semantic Values. ## | |
125 | ## ----------------- ## | |
126 | ||
127 | ||
82b6cb3f AD |
128 | # b4_lhs_value([TYPE]) |
129 | # -------------------- | |
130 | # Expansion of $<TYPE>$. | |
131 | m4_define([b4_lhs_value], | |
1fa5d8bb | 132 | [b4_symbol_value(yyval, [$1])]) |
82b6cb3f AD |
133 | |
134 | ||
135 | # b4_rhs_value(RULE-LENGTH, NUM, [TYPE]) | |
136 | # -------------------------------------- | |
137 | # Expansion of $<TYPE>NUM, where the current rule has RULE-LENGTH | |
138 | # symbols on RHS. | |
139 | m4_define([b4_rhs_value], | |
bd187d7b | 140 | [b4_symbol_value([yyvsp@{b4_subtract([$2], [$1])@}], [$3])]) |
82b6cb3f AD |
141 | |
142 | ||
58612f1d AD |
143 | |
144 | ## ----------- ## | |
145 | ## Locations. ## | |
146 | ## ----------- ## | |
147 | ||
82b6cb3f AD |
148 | # b4_lhs_location() |
149 | # ----------------- | |
150 | # Expansion of @$. | |
151 | m4_define([b4_lhs_location], | |
bc82c5a5 | 152 | [(yyloc)]) |
82b6cb3f AD |
153 | |
154 | ||
155 | # b4_rhs_location(RULE-LENGTH, NUM) | |
156 | # --------------------------------- | |
157 | # Expansion of @NUM, where the current rule has RULE-LENGTH symbols | |
158 | # on RHS. | |
159 | m4_define([b4_rhs_location], | |
bd187d7b | 160 | [(yylsp@{b4_subtract([$2], [$1])@})]) |
be2a1a68 | 161 | |
0d8bed56 | 162 | |
bb31eb56 JD |
163 | ## ------------------ ## |
164 | ## Parser variables. ## | |
165 | ## ------------------ ## | |
166 | ||
167 | # b4_declare_scanner_communication_variables | |
168 | # ------------------------------------------ | |
169 | # Declare the variables that are global, or local to YYPARSE if | |
170 | # pure-parser. | |
171 | m4_define([b4_declare_scanner_communication_variables], [[ | |
172 | /* The lookahead symbol. */ | |
173 | int yychar; | |
174 | ||
175 | /* The semantic value of the lookahead symbol. */ | |
176 | YYSTYPE yylval;]b4_locations_if([[ | |
177 | ||
178 | /* Location data for the lookahead symbol. */ | |
179 | YYLTYPE yylloc;]])b4_pure_if([], [[ | |
180 | ||
181 | /* Number of syntax errors so far. */ | |
182 | int yynerrs;]])]) | |
183 | ||
184 | ||
185 | # b4_declare_parser_state_variables | |
186 | # --------------------------------- | |
187 | # Declare all the variables that are needed to maintain the parser state | |
188 | # between calls to yypush_parse. | |
189 | m4_define([b4_declare_parser_state_variables], [b4_pure_if([[ | |
190 | /* Number of syntax errors so far. */ | |
191 | int yynerrs; | |
192 | ]])[ | |
193 | int yystate; | |
194 | /* Number of tokens to shift before error messages enabled. */ | |
195 | int yyerrstatus; | |
196 | ||
197 | /* The stacks and their tools: | |
198 | `yyss': related to states. | |
199 | `yyvs': related to semantic values.]b4_locations_if([[ | |
200 | `yyls': related to locations.]])[ | |
201 | ||
202 | Refer to the stacks thru separate pointers, to allow yyoverflow | |
203 | to reallocate them elsewhere. */ | |
204 | ||
205 | /* The state stack. */ | |
206 | yytype_int16 yyssa[YYINITDEPTH]; | |
207 | yytype_int16 *yyss; | |
208 | yytype_int16 *yyssp; | |
209 | ||
210 | /* The semantic value stack. */ | |
211 | YYSTYPE yyvsa[YYINITDEPTH]; | |
212 | YYSTYPE *yyvs; | |
213 | YYSTYPE *yyvsp;]b4_locations_if([[ | |
214 | ||
215 | /* The location stack. */ | |
216 | YYLTYPE yylsa[YYINITDEPTH]; | |
217 | YYLTYPE *yyls; | |
218 | YYLTYPE *yylsp; | |
219 | ||
220 | /* The locations where the error started and ended. */ | |
44c2b42d | 221 | YYLTYPE yyerror_range[3];]])[ |
bb31eb56 | 222 | |
107844a3 JD |
223 | YYSIZE_T yystacksize;]b4_lac_if([[ |
224 | ||
225 | yytype_int16 yyesa@{]b4_percent_define_get([[parse.lac.es-capacity-initial]])[@}; | |
226 | yytype_int16 *yyes; | |
227 | YYSIZE_T yyes_capacity;]])]) | |
bb31eb56 | 228 | |
0d8bed56 | 229 | |
1ae72863 AD |
230 | ## --------------------------------------------------------- ## |
231 | ## Defining symbol actions, e.g., printers and destructors. ## | |
232 | ## --------------------------------------------------------- ## | |
233 | ||
b526ee61 AD |
234 | # We do want M4 expansion after # for CPP macros. |
235 | m4_changecom() | |
08af01c2 | 236 | m4_divert_push(0)dnl |
a0d4650a | 237 | @output(b4_parser_file_name@)@ |
fe3cae17 | 238 | b4_copyright([Bison implementation for Yacc-like parsers in C])[ |
af3412cd PE |
239 | |
240 | /* C LALR(1) parser skeleton written by Richard Stallman, by | |
241 | simplifying the original so-called "semantic" parser. */ | |
444fbf65 | 242 | |
cf44a9ae PE |
243 | /* All symbols defined below should begin with yy or YY, to avoid |
244 | infringing on user name space. This should be done even for local | |
245 | variables, as they might otherwise be expanded by user macros. | |
246 | There are some unavoidable exceptions within include files to | |
247 | define necessary library symbols; they are noted "INFRINGES ON | |
248 | USER NAME SPACE" below. */ | |
249 | ||
9c1e26bd | 250 | ]b4_identification |
a4e25e1d | 251 | b4_percent_code_get([[top]])[]dnl |
aa08666d | 252 | m4_if(b4_prefix, [yy], [], |
bb31eb56 JD |
253 | [[/* Substitute the variable and function names. */]b4_pull_if([[ |
254 | #define yyparse ]b4_prefix[parse]])b4_push_if([[ | |
255 | #define yypush_parse ]b4_prefix[push_parse]b4_pull_if([[ | |
256 | #define yypull_parse ]b4_prefix[pull_parse]])[ | |
257 | #define yypstate_new ]b4_prefix[pstate_new | |
9ca7f077 | 258 | #define yypstate_delete ]b4_prefix[pstate_delete |
bb31eb56 JD |
259 | #define yypstate ]b4_prefix[pstate]])[ |
260 | #define yylex ]b4_prefix[lex | |
9ca7f077 JD |
261 | #define yyerror ]b4_prefix[error |
262 | #define yylval ]b4_prefix[lval | |
263 | #define yychar ]b4_prefix[char | |
264 | #define yydebug ]b4_prefix[debug | |
265 | #define yynerrs ]b4_prefix[nerrs | |
266 | ]b4_locations_if([[#define yylloc ]b4_prefix[lloc]])])[ | |
17da6427 | 267 | |
0dd1580a | 268 | /* Copy the first part of user declarations. */ |
136a0f76 | 269 | ]b4_user_pre_prologue[ |
cce71710 | 270 | |
d99361e6 AD |
271 | /* Enabling traces. */ |
272 | #ifndef YYDEBUG | |
fa819509 | 273 | # define YYDEBUG ]b4_parse_trace_if([1], [0])[ |
d99361e6 AD |
274 | #endif |
275 | ||
276 | /* Enabling verbose error messages. */ | |
277 | #ifdef YYERROR_VERBOSE | |
278 | # undef YYERROR_VERBOSE | |
279 | # define YYERROR_VERBOSE 1 | |
280 | #else | |
b3a2272a | 281 | # define YYERROR_VERBOSE ]b4_error_verbose_if([1], [0])[ |
d99361e6 AD |
282 | #endif |
283 | ||
141f5793 PE |
284 | /* Enabling the token table. */ |
285 | #ifndef YYTOKEN_TABLE | |
286 | # define YYTOKEN_TABLE ]b4_token_table[ | |
287 | #endif | |
288 | ||
a4e25e1d | 289 | ]b4_percent_code_get([[requires]])[]dnl |
9bc0dd67 JD |
290 | |
291 | b4_token_enums_defines(b4_tokens)[ | |
292 | ||
02650b7f | 293 | #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED |
9c1e26bd | 294 | ]m4_ifdef([b4_stype], |
ddc8ede1 | 295 | [[typedef union ]b4_union_name[ |
7ecec4dd | 296 | { |
ddc8ede1 | 297 | ]b4_user_stype[ |
7ecec4dd | 298 | } YYSTYPE; |
ddc8ede1 PE |
299 | # define YYSTYPE_IS_TRIVIAL 1]], |
300 | [m4_if(b4_tag_seen_flag, 0, | |
301 | [[typedef int YYSTYPE; | |
302 | # define YYSTYPE_IS_TRIVIAL 1]])])[ | |
050c471b PE |
303 | # define yystype YYSTYPE /* obsolescent; will be withdrawn */ |
304 | # define YYSTYPE_IS_DECLARED 1 | |
9ca7f077 | 305 | #endif]b4_locations_if([[ |
fd51e5ff | 306 | |
9ca7f077 | 307 | #if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED |
050c471b | 308 | typedef struct YYLTYPE |
fd51e5ff AD |
309 | { |
310 | int first_line; | |
311 | int first_column; | |
312 | int last_line; | |
313 | int last_column; | |
050c471b PE |
314 | } YYLTYPE; |
315 | # define yyltype YYLTYPE /* obsolescent; will be withdrawn */ | |
316 | # define YYLTYPE_IS_DECLARED 1 | |
71cd15d4 | 317 | # define YYLTYPE_IS_TRIVIAL 1 |
9ca7f077 JD |
318 | #endif]])b4_push_if([[ |
319 | ||
320 | #ifndef YYPUSH_DECLS | |
321 | # define YYPUSH_DECLS | |
322 | struct yypstate; | |
323 | typedef struct yypstate yypstate; | |
324 | enum { YYPUSH_MORE = 4 }; | |
325 | ||
326 | ]b4_pull_if([b4_c_function_decl([[yyparse]], [[int]], b4_parse_param) | |
327 | ])b4_c_function_decl([[yypush_parse]], [[int]], | |
328 | [[[yypstate *yyps]], [[yyps]]]b4_pure_if([, | |
329 | [[[int yypushed_char]], [[yypushed_char]]], | |
330 | [[[YYSTYPE const *yypushed_val]], [[yypushed_val]]]b4_locations_if([, | |
331 | [[[YYLTYPE const *yypushed_loc]], [[yypushed_loc]]]])])m4_ifset([b4_parse_param], [, | |
332 | b4_parse_param])) | |
333 | b4_pull_if([b4_c_function_decl([[yypull_parse]], [[int]], | |
334 | [[[yypstate *yyps]], [[yyps]]]m4_ifset([b4_parse_param], [, | |
335 | b4_parse_param]))]) | |
336 | b4_c_function_decl([[yypstate_new]], [[yypstate *]], [[[void]], []]) | |
337 | b4_c_function_decl([[yypstate_delete]], [[void]], | |
338 | [[[yypstate *yyps]], [[yyps]]])[ | |
339 | #endif]]) | |
fd51e5ff | 340 | |
a4e25e1d | 341 | b4_percent_code_get([[provides]])[]dnl |
9bc0dd67 JD |
342 | |
343 | [/* Copy the second part of user declarations. */ | |
8e0a5e9e | 344 | ]b4_user_post_prologue |
a4e25e1d | 345 | b4_percent_code_get[]dnl |
7093d0f5 | 346 | |
8e0a5e9e | 347 | [#ifdef short |
d42cf844 PE |
348 | # undef short |
349 | #endif | |
350 | ||
351 | #ifdef YYTYPE_UINT8 | |
352 | typedef YYTYPE_UINT8 yytype_uint8; | |
353 | #else | |
354 | typedef unsigned char yytype_uint8; | |
355 | #endif | |
356 | ||
357 | #ifdef YYTYPE_INT8 | |
358 | typedef YYTYPE_INT8 yytype_int8; | |
359 | #elif ]b4_c_modern[ | |
360 | typedef signed char yytype_int8; | |
361 | #else | |
362 | typedef short int yytype_int8; | |
363 | #endif | |
364 | ||
365 | #ifdef YYTYPE_UINT16 | |
366 | typedef YYTYPE_UINT16 yytype_uint16; | |
367 | #else | |
368 | typedef unsigned short int yytype_uint16; | |
369 | #endif | |
370 | ||
371 | #ifdef YYTYPE_INT16 | |
372 | typedef YYTYPE_INT16 yytype_int16; | |
373 | #else | |
374 | typedef short int yytype_int16; | |
375 | #endif | |
376 | ||
55289366 | 377 | #ifndef YYSIZE_T |
02650b7f | 378 | # ifdef __SIZE_TYPE__ |
55289366 | 379 | # define YYSIZE_T __SIZE_TYPE__ |
02650b7f | 380 | # elif defined size_t |
55289366 | 381 | # define YYSIZE_T size_t |
02650b7f | 382 | # elif ! defined YYSIZE_T && ]b4_c_modern[ |
55289366 PE |
383 | # include <stddef.h> /* INFRINGES ON USER NAME SPACE */ |
384 | # define YYSIZE_T size_t | |
385 | # else | |
386 | # define YYSIZE_T unsigned int | |
387 | # endif | |
bedf57f5 | 388 | #endif |
7093d0f5 | 389 | |
b4c1f9d2 PE |
390 | #define YYSIZE_MAXIMUM ((YYSIZE_T) -1) |
391 | ||
30757c8c | 392 | #ifndef YY_ |
ae93128c | 393 | # if defined YYENABLE_NLS && YYENABLE_NLS |
30757c8c PE |
394 | # if ENABLE_NLS |
395 | # include <libintl.h> /* INFRINGES ON USER NAME SPACE */ | |
396 | # define YY_(msgid) dgettext ("bison-runtime", msgid) | |
397 | # endif | |
398 | # endif | |
399 | # ifndef YY_ | |
400 | # define YY_(msgid) msgid | |
401 | # endif | |
402 | #endif | |
403 | ||
2a4647a3 | 404 | /* Suppress unused-variable warnings by "using" E. */ |
02650b7f | 405 | #if ! defined lint || defined __GNUC__ |
12ce2df6 PE |
406 | # define YYUSE(e) ((void) (e)) |
407 | #else | |
408 | # define YYUSE(e) /* empty */ | |
409 | #endif | |
410 | ||
411 | /* Identity function, used to suppress warnings about constant conditions. */ | |
412 | #ifndef lint | |
413 | # define YYID(n) (n) | |
414 | #else | |
cd9e1ba2 | 415 | ]b4_c_function_def([YYID], [static int], [[int yyi], [yyi]])[ |
12ce2df6 | 416 | { |
cd9e1ba2 | 417 | return yyi; |
12ce2df6 PE |
418 | } |
419 | #endif | |
2a4647a3 | 420 | |
107844a3 | 421 | #if ]b4_lac_if([[1]], [[! defined yyoverflow || YYERROR_VERBOSE]])[ |
2779e383 | 422 | |
107844a3 JD |
423 | /* The parser invokes alloca or malloc; define the necessary symbols. */]dnl |
424 | b4_push_if([], [b4_lac_if([], [[ | |
7093d0f5 | 425 | |
b929851a PE |
426 | # ifdef YYSTACK_USE_ALLOCA |
427 | # if YYSTACK_USE_ALLOCA | |
b929851a PE |
428 | # ifdef __GNUC__ |
429 | # define YYSTACK_ALLOC __builtin_alloca | |
02650b7f | 430 | # elif defined __BUILTIN_VA_ARG_INCR |
55289366 | 431 | # include <alloca.h> /* INFRINGES ON USER NAME SPACE */ |
02650b7f | 432 | # elif defined _AIX |
55289366 | 433 | # define YYSTACK_ALLOC __alloca |
02650b7f | 434 | # elif defined _MSC_VER |
55289366 PE |
435 | # include <malloc.h> /* INFRINGES ON USER NAME SPACE */ |
436 | # define alloca _alloca | |
d7e14fc0 PE |
437 | # else |
438 | # define YYSTACK_ALLOC alloca | |
8ff146cd | 439 | # if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && ]b4_c_modern[ |
bedf57f5 | 440 | # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ |
8ff146cd PE |
441 | # ifndef EXIT_SUCCESS |
442 | # define EXIT_SUCCESS 0 | |
55289366 | 443 | # endif |
bedf57f5 | 444 | # endif |
7093d0f5 AD |
445 | # endif |
446 | # endif | |
107844a3 | 447 | # endif]])])[ |
7093d0f5 | 448 | |
107844a3 | 449 | # ifdef YYSTACK_ALLOC |
9d9b8b70 | 450 | /* Pacify GCC's `empty if-body' warning. */ |
12ce2df6 | 451 | # define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0)) |
506ffb1f | 452 | # ifndef YYSTACK_ALLOC_MAXIMUM |
b9c9f761 PE |
453 | /* The OS might guarantee only one guard page at the bottom of the stack, |
454 | and a page size can be as small as 4096 bytes. So we cannot safely | |
455 | invoke alloca (N) if N exceeds 4096. Use a slightly smaller number | |
456 | to allow for a few compiler-allocated temporary stack slots. */ | |
e2a21b6f | 457 | # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ |
506ffb1f | 458 | # endif |
7093d0f5 | 459 | # else |
2779e383 PE |
460 | # define YYSTACK_ALLOC YYMALLOC |
461 | # define YYSTACK_FREE YYFREE | |
506ffb1f | 462 | # ifndef YYSTACK_ALLOC_MAXIMUM |
b4c1f9d2 | 463 | # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM |
506ffb1f | 464 | # endif |
8ff146cd | 465 | # if (defined __cplusplus && ! defined EXIT_SUCCESS \ |
fc3f467f | 466 | && ! ((defined YYMALLOC || defined malloc) \ |
e9690142 | 467 | && (defined YYFREE || defined free))) |
fc3f467f | 468 | # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ |
8ff146cd PE |
469 | # ifndef EXIT_SUCCESS |
470 | # define EXIT_SUCCESS 0 | |
fc3f467f | 471 | # endif |
0925ebb4 | 472 | # endif |
bedf57f5 PE |
473 | # ifndef YYMALLOC |
474 | # define YYMALLOC malloc | |
8ff146cd | 475 | # if ! defined malloc && ! defined EXIT_SUCCESS && ]b4_c_modern[ |
bedf57f5 PE |
476 | void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ |
477 | # endif | |
478 | # endif | |
479 | # ifndef YYFREE | |
480 | # define YYFREE free | |
8ff146cd | 481 | # if ! defined free && ! defined EXIT_SUCCESS && ]b4_c_modern[ |
bedf57f5 PE |
482 | void free (void *); /* INFRINGES ON USER NAME SPACE */ |
483 | # endif | |
484 | # endif | |
107844a3 JD |
485 | # endif]b4_lac_if([[ |
486 | # define YYCOPY_NEEDED 1]])[ | |
487 | #endif]b4_lac_if([], [[ /* ! defined yyoverflow || YYERROR_VERBOSE */]])[ | |
cf44a9ae PE |
488 | |
489 | ||
02650b7f PE |
490 | #if (! defined yyoverflow \ |
491 | && (! defined __cplusplus \ | |
e9690142 JD |
492 | || (]b4_locations_if([[defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL \ |
493 | && ]])[defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) | |
7093d0f5 | 494 | |
600f9b0c PE |
495 | /* A type that is properly aligned for any stack member. */ |
496 | union yyalloc | |
497 | { | |
9ca7f077 JD |
498 | yytype_int16 yyss_alloc; |
499 | YYSTYPE yyvs_alloc;]b4_locations_if([ | |
500 | YYLTYPE yyls_alloc;])[ | |
501 | }; | |
600f9b0c PE |
502 | |
503 | /* The size of the maximum gap between one aligned stack and the next. */ | |
17836590 | 504 | # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) |
600f9b0c PE |
505 | |
506 | /* The size of an array large to enough to hold all stacks, each with | |
507 | N elements. */ | |
327afc7c | 508 | ]b4_locations_if( |
58612f1d | 509 | [# define YYSTACK_BYTES(N) \ |
d42cf844 | 510 | ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \ |
17836590 | 511 | + 2 * YYSTACK_GAP_MAXIMUM)], |
58612f1d | 512 | [# define YYSTACK_BYTES(N) \ |
d42cf844 | 513 | ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ |
17836590 | 514 | + YYSTACK_GAP_MAXIMUM)])[ |
600f9b0c | 515 | |
107844a3 | 516 | # define YYCOPY_NEEDED 1 |
5b041382 PE |
517 | |
518 | /* Relocate STACK from its old location to the new one. The | |
7093d0f5 | 519 | local variables YYSIZE and YYSTACKSIZE give the old and new number of |
600f9b0c PE |
520 | elements in the stack, and YYPTR gives the new location of the |
521 | stack. Advance YYPTR to a properly aligned location for the next | |
522 | stack. */ | |
e9690142 JD |
523 | # define YYSTACK_RELOCATE(Stack_alloc, Stack) \ |
524 | do \ | |
525 | { \ | |
526 | YYSIZE_T yynewbytes; \ | |
527 | YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ | |
528 | Stack = &yyptr->Stack_alloc; \ | |
529 | yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ | |
530 | yyptr += yynewbytes / sizeof (*yyptr); \ | |
531 | } \ | |
12ce2df6 | 532 | while (YYID (0)) |
7093d0f5 | 533 | |
cf44a9ae | 534 | #endif |
8850be4b | 535 | |
107844a3 JD |
536 | #if defined YYCOPY_NEEDED && YYCOPY_NEEDED |
537 | /* Copy COUNT objects from FROM to TO. The source and destination do | |
538 | not overlap. */ | |
539 | # ifndef YYCOPY | |
540 | # if defined __GNUC__ && 1 < __GNUC__ | |
541 | # define YYCOPY(To, From, Count) \ | |
542 | __builtin_memcpy (To, From, (Count) * sizeof (*(From))) | |
543 | # else | |
e9690142 JD |
544 | # define YYCOPY(To, From, Count) \ |
545 | do \ | |
546 | { \ | |
547 | YYSIZE_T yyi; \ | |
548 | for (yyi = 0; yyi < (Count); yyi++) \ | |
549 | (To)[yyi] = (From)[yyi]; \ | |
550 | } \ | |
107844a3 JD |
551 | while (YYID (0)) |
552 | # endif | |
553 | # endif | |
554 | #endif /* !YYCOPY_NEEDED */ | |
555 | ||
9d9b8b70 | 556 | /* YYFINAL -- State number of the termination state. */ |
9c1e26bd | 557 | #define YYFINAL ]b4_final_state_number[ |
39912f52 | 558 | /* YYLAST -- Last index in YYTABLE. */ |
9c1e26bd | 559 | #define YYLAST ]b4_last[ |
7742ddeb | 560 | |
9d9b8b70 | 561 | /* YYNTOKENS -- Number of terminals. */ |
9c1e26bd | 562 | #define YYNTOKENS ]b4_tokens_number[ |
9d9b8b70 | 563 | /* YYNNTS -- Number of nonterminals. */ |
9c1e26bd | 564 | #define YYNNTS ]b4_nterms_number[ |
9d9b8b70 | 565 | /* YYNRULES -- Number of rules. */ |
9c1e26bd | 566 | #define YYNRULES ]b4_rules_number[ |
914202bd | 567 | /* YYNSTATES -- Number of states. */ |
9c1e26bd | 568 | #define YYNSTATES ]b4_states_number[ |
7742ddeb | 569 | |
cb0b136a AD |
570 | /* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned |
571 | by yylex, with out-of-bounds checking. */ | |
9c1e26bd AD |
572 | #define YYUNDEFTOK ]b4_undef_token_number[ |
573 | #define YYMAXUTOK ]b4_user_token_number_max[ | |
007a50a4 | 574 | |
e9690142 | 575 | #define YYTRANSLATE(YYX) \ |
a20713a4 | 576 | ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) |
a8289c62 | 577 | |
cb0b136a AD |
578 | /* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM |
579 | as returned by yylex, without out-of-bounds checking. */ | |
b0400cc6 | 580 | static const ]b4_int_type_for([b4_translate])[ yytranslate[] = |
a8289c62 | 581 | { |
c5e3e510 | 582 | ]b4_translate[ |
a8289c62 RA |
583 | }; |
584 | ||
585 | #if YYDEBUG | |
ba206cf4 AD |
586 | ]b4_integral_parser_table_define([rline], [b4_rline], |
587 | [YYRLINE[YYN] -- Source line where rule number YYN was defined.])[ | |
a8289c62 RA |
588 | #endif |
589 | ||
141f5793 | 590 | #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE |
9e0876fb | 591 | /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. |
9d9b8b70 | 592 | First, the terminals, then, starting at YYNTOKENS, nonterminals. */ |
c5e3e510 | 593 | static const char *const yytname[] = |
a8289c62 | 594 | { |
c5e3e510 | 595 | ]b4_tname[ |
a8289c62 RA |
596 | }; |
597 | #endif | |
598 | ||
c0ad8bf3 | 599 | # ifdef YYPRINT |
cb0b136a AD |
600 | /* YYTOKNUM[NUM] -- (External) token number corresponding to the |
601 | (internal) symbol number NUM (which must be that of a token). */ | |
c5e3e510 | 602 | static const ]b4_int_type_for([b4_toknum])[ yytoknum[] = |
a8289c62 | 603 | { |
c5e3e510 | 604 | ]b4_toknum[ |
a8289c62 | 605 | }; |
c0ad8bf3 | 606 | # endif |
a8289c62 | 607 | |
c5e3e510 | 608 | #define YYPACT_NINF ]b4_pact_ninf[ |
a8289c62 | 609 | |
f2b30bdf | 610 | #define yypact_value_is_default(yystate) \ |
87412882 JD |
611 | ]b4_table_value_equals([[pact]], [[yystate]], [b4_pact_ninf])[ |
612 | ||
c5e3e510 | 613 | #define YYTABLE_NINF ]b4_table_ninf[ |
a8289c62 | 614 | |
f2b30bdf | 615 | #define yytable_value_is_error(yytable_value) \ |
aa0cb40d | 616 | ]b4_table_value_equals([[table]], [[yytable_value]], [b4_table_ninf])[ |
87412882 | 617 | |
ba206cf4 | 618 | ]b4_parser_tables_define[ |
7093d0f5 | 619 | |
e9690142 JD |
620 | #define yyerrok (yyerrstatus = 0) |
621 | #define yyclearin (yychar = YYEMPTY) | |
622 | #define YYEMPTY (-2) | |
623 | #define YYEOF 0 | |
a8289c62 | 624 | |
e9690142 JD |
625 | #define YYACCEPT goto yyacceptlab |
626 | #define YYABORT goto yyabortlab | |
627 | #define YYERROR goto yyerrorlab | |
8a3eb3c8 | 628 | |
a8289c62 | 629 | |
71da9eea AD |
630 | /* Like YYERROR except do call yyerror. This remains here temporarily |
631 | to ease the transition to the new meaning of YYERROR, for GCC. | |
1625df5b JD |
632 | Once GCC version 2 has supplanted version 1, this can go. However, |
633 | YYFAIL appears to be in use. Nevertheless, it is formally deprecated | |
634 | in Bison 2.4.2's NEWS entry, where a plan to phase it out is | |
635 | discussed. */ | |
a8289c62 | 636 | |
e9690142 | 637 | #define YYFAIL goto yyerrlab |
1625df5b JD |
638 | #if defined YYFAIL |
639 | /* This is here to suppress warnings from the GCC cpp's | |
640 | -Wunused-macros. Normally we don't worry about that warning, but | |
641 | some users do, and we want to make it easy for users to remove | |
642 | YYFAIL uses, which will produce warnings from Bison 2.5. */ | |
643 | #endif | |
a8289c62 | 644 | |
10fa2066 | 645 | #define YYRECOVERING() (!!yyerrstatus) |
a8289c62 | 646 | |
e9690142 JD |
647 | #define YYBACKUP(Token, Value) \ |
648 | do \ | |
649 | if (yychar == YYEMPTY && yylen == 1) \ | |
650 | { \ | |
651 | yychar = (Token); \ | |
652 | yylval = (Value); \ | |
653 | YYPOPSTACK (1); \]b4_lac_if([[ | |
654 | YY_LAC_DISCARD ("YYBACKUP"); \]])[ | |
655 | goto yybackup; \ | |
656 | } \ | |
657 | else \ | |
658 | { \ | |
30757c8c | 659 | yyerror (]b4_yyerror_args[YY_("syntax error: cannot back up")); \ |
e9690142 JD |
660 | YYERROR; \ |
661 | } \ | |
12ce2df6 | 662 | while (YYID (0)) |
10fa2066 | 663 | |
3fc16193 | 664 | |
e9690142 JD |
665 | #define YYTERROR 1 |
666 | #define YYERRCODE 256 | |
10fa2066 | 667 | |
3fc16193 | 668 | |
b4a20338 AD |
669 | /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. |
670 | If N is 0, then set CURRENT to the empty location which ends | |
671 | the previous symbol: RHS[0] (always defined). */ | |
3abcd459 | 672 | |
24e0cbd0 | 673 | #define YYRHSLOC(Rhs, K) ((Rhs)[K]) |
3abcd459 | 674 | #ifndef YYLLOC_DEFAULT |
e9690142 JD |
675 | # define YYLLOC_DEFAULT(Current, Rhs, N) \ |
676 | do \ | |
d6cff4dc | 677 | if (YYID (N)) \ |
e9690142 JD |
678 | { \ |
679 | (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ | |
680 | (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ | |
681 | (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ | |
682 | (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ | |
683 | } \ | |
684 | else \ | |
685 | { \ | |
686 | (Current).first_line = (Current).last_line = \ | |
687 | YYRHSLOC (Rhs, 0).last_line; \ | |
688 | (Current).first_column = (Current).last_column = \ | |
689 | YYRHSLOC (Rhs, 0).last_column; \ | |
690 | } \ | |
12ce2df6 | 691 | while (YYID (0)) |
19750d31 JD |
692 | #endif]b4_locations_if([[ |
693 | ||
b8458aa5 | 694 | |
3fc16193 AD |
695 | /* YY_LOCATION_PRINT -- Print the location on the stream. |
696 | This macro was not mandated originally: define only if we know | |
697 | we won't break user code: when these are the locations we know. */ | |
698 | ||
3fc16193 | 699 | #ifndef YY_LOCATION_PRINT |
ae93128c | 700 | # if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL |
e9690142 JD |
701 | # define YY_LOCATION_PRINT(File, Loc) \ |
702 | fprintf (File, "%d.%d-%d.%d", \ | |
703 | (Loc).first_line, (Loc).first_column, \ | |
704 | (Loc).last_line, (Loc).last_column) | |
0dcca5c2 AD |
705 | # else |
706 | # define YY_LOCATION_PRINT(File, Loc) ((void) 0) | |
b8458aa5 | 707 | # endif |
19750d31 JD |
708 | #endif]], [[ |
709 | ||
710 | ||
fcd32abd | 711 | /* This macro is provided for backward compatibility. */ |
3abcd459 | 712 | |
fcd32abd JN |
713 | #ifndef YY_LOCATION_PRINT |
714 | # define YY_LOCATION_PRINT(File, Loc) ((void) 0) | |
19750d31 JD |
715 | #endif]])[ |
716 | ||
3fc16193 | 717 | |
3abcd459 | 718 | /* YYLEX -- calling `yylex' with the right arguments. */ |
553e2b22 | 719 | |
ae7453f2 | 720 | #ifdef YYLEX_PARAM |
327afc7c | 721 | # define YYLEX yylex (]b4_pure_if([&yylval[]b4_locations_if([, &yylloc]), ])[YYLEX_PARAM) |
74310291 | 722 | #else |
9c1e26bd | 723 | # define YYLEX ]b4_c_function_call([yylex], [int], b4_lex_param)[ |
ae7453f2 | 724 | #endif |
553e2b22 | 725 | |
5a35a6cb | 726 | /* Enable debugging if requested. */ |
0d533154 | 727 | #if YYDEBUG |
b7575ffe | 728 | |
2f4f028d | 729 | # ifndef YYFPRINTF |
45119af1 PE |
730 | # include <stdio.h> /* INFRINGES ON USER NAME SPACE */ |
731 | # define YYFPRINTF fprintf | |
b7575ffe PE |
732 | # endif |
733 | ||
e9690142 JD |
734 | # define YYDPRINTF(Args) \ |
735 | do { \ | |
736 | if (yydebug) \ | |
737 | YYFPRINTF Args; \ | |
12ce2df6 | 738 | } while (YYID (0)) |
c5e3e510 | 739 | |
e9690142 JD |
740 | # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ |
741 | do { \ | |
742 | if (yydebug) \ | |
743 | { \ | |
744 | YYFPRINTF (stderr, "%s ", Title); \ | |
745 | yy_symbol_print (stderr, \ | |
746 | Type, Value]b4_locations_if([, Location])[]b4_user_args[); \ | |
747 | YYFPRINTF (stderr, "\n"); \ | |
748 | } \ | |
12ce2df6 | 749 | } while (YYID (0)) |
9c1e26bd | 750 | |
a0af42fc | 751 | ]b4_yy_symbol_print_generate([b4_c_function_def])[ |
d1ff7a7c | 752 | |
b0937b22 AD |
753 | /*------------------------------------------------------------------. |
754 | | yy_stack_print -- Print the state stack from its BOTTOM up to its | | |
5348bfbe | 755 | | TOP (included). | |
b0937b22 AD |
756 | `------------------------------------------------------------------*/ |
757 | ||
758 | ]b4_c_function_def([yy_stack_print], [static void], | |
e9690142 JD |
759 | [[yytype_int16 *yybottom], [yybottom]], |
760 | [[yytype_int16 *yytop], [yytop]])[ | |
b0937b22 | 761 | { |
2f4f028d | 762 | YYFPRINTF (stderr, "Stack now"); |
cd9e1ba2 PE |
763 | for (; yybottom <= yytop; yybottom++) |
764 | { | |
765 | int yybot = *yybottom; | |
766 | YYFPRINTF (stderr, " %d", yybot); | |
767 | } | |
2f4f028d | 768 | YYFPRINTF (stderr, "\n"); |
b0937b22 AD |
769 | } |
770 | ||
e9690142 JD |
771 | # define YY_STACK_PRINT(Bottom, Top) \ |
772 | do { \ | |
773 | if (yydebug) \ | |
774 | yy_stack_print ((Bottom), (Top)); \ | |
12ce2df6 | 775 | } while (YYID (0)) |
b0937b22 AD |
776 | |
777 | ||
778 | /*------------------------------------------------. | |
779 | | Report that the YYRULE is going to be reduced. | | |
780 | `------------------------------------------------*/ | |
781 | ||
782 | ]b4_c_function_def([yy_reduce_print], [static void], | |
68dbdee8 AD |
783 | [[yytype_int16 *yyssp], [yyssp]], |
784 | [[YYSTYPE *yyvsp], [yyvsp]], | |
aefef0d6 | 785 | b4_locations_if([[[YYLTYPE *yylsp], [yylsp]], |
68dbdee8 AD |
786 | ])[[int yyrule], [yyrule]]m4_ifset([b4_parse_param], [, |
787 | b4_parse_param]))[ | |
b0937b22 | 788 | { |
68dbdee8 | 789 | unsigned long int yylno = yyrline[yyrule]; |
d1ff7a7c | 790 | int yynrhs = yyr2[yyrule]; |
b0937b22 | 791 | int yyi; |
d1ff7a7c | 792 | YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", |
68dbdee8 | 793 | yyrule - 1, yylno); |
d1ff7a7c AD |
794 | /* The symbols being reduced. */ |
795 | for (yyi = 0; yyi < yynrhs; yyi++) | |
796 | { | |
f57a7536 | 797 | YYFPRINTF (stderr, " $%d = ", yyi + 1); |
68dbdee8 AD |
798 | yy_symbol_print (stderr, |
799 | yystos[yyssp[yyi + 1 - yynrhs]], | |
800 | &]b4_rhs_value(yynrhs, yyi + 1)[ | |
801 | ]b4_locations_if([, &]b4_rhs_location(yynrhs, yyi + 1))[]dnl | |
802 | b4_user_args[); | |
f57a7536 | 803 | YYFPRINTF (stderr, "\n"); |
d1ff7a7c | 804 | } |
b0937b22 AD |
805 | } |
806 | ||
e9690142 JD |
807 | # define YY_REDUCE_PRINT(Rule) \ |
808 | do { \ | |
809 | if (yydebug) \ | |
68dbdee8 | 810 | yy_reduce_print (yyssp, yyvsp, ]b4_locations_if([yylsp, ])[Rule]b4_user_args[); \ |
12ce2df6 | 811 | } while (YYID (0)) |
b0937b22 | 812 | |
cf44a9ae PE |
813 | /* Nonzero means print parse trace. It is left uninitialized so that |
814 | multiple parsers can coexist. */ | |
17da6427 | 815 | int yydebug; |
5a35a6cb AD |
816 | #else /* !YYDEBUG */ |
817 | # define YYDPRINTF(Args) | |
284acc8b | 818 | # define YY_SYMBOL_PRINT(Title, Type, Value, Location) |
b0937b22 | 819 | # define YY_STACK_PRINT(Bottom, Top) |
d9963c85 | 820 | # define YY_REDUCE_PRINT(Rule) |
5a35a6cb AD |
821 | #endif /* !YYDEBUG */ |
822 | ||
b0937b22 | 823 | |
5a35a6cb | 824 | /* YYINITDEPTH -- initial size of the parser's stacks. */ |
e9690142 | 825 | #ifndef YYINITDEPTH |
9c1e26bd | 826 | # define YYINITDEPTH ]b4_stack_depth_init[ |
10fa2066 RS |
827 | #endif |
828 | ||
5a35a6cb | 829 | /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only |
600f9b0c PE |
830 | if the built-in stack extension method is used). |
831 | ||
832 | Do not make this value too large; the results are undefined if | |
506ffb1f | 833 | YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) |
600f9b0c PE |
834 | evaluated with infinite-precision integer arithmetic. */ |
835 | ||
10fa2066 | 836 | #ifndef YYMAXDEPTH |
9c1e26bd | 837 | # define YYMAXDEPTH ]b4_stack_depth_max[ |
bf35c71c JD |
838 | #endif]b4_lac_if([[ |
839 | ||
107844a3 JD |
840 | /* Given a state stack such that *YYBOTTOM is its bottom, such that |
841 | *YYTOP is either its top or is YYTOP_EMPTY to indicate an empty | |
842 | stack, and such that *YYCAPACITY is the maximum number of elements it | |
843 | can hold without a reallocation, make sure there is enough room to | |
844 | store YYADD more elements. If not, allocate a new stack using | |
845 | YYSTACK_ALLOC, copy the existing elements, and adjust *YYBOTTOM, | |
846 | *YYTOP, and *YYCAPACITY to reflect the new capacity and memory | |
847 | location. If *YYBOTTOM != YYBOTTOM_NO_FREE, then free the old stack | |
848 | using YYSTACK_FREE. Return 0 if successful or if no reallocation is | |
849 | required. Return 1 if memory is exhausted. */ | |
850 | static int | |
851 | yy_lac_stack_realloc (YYSIZE_T *yycapacity, YYSIZE_T yyadd, | |
852 | #if YYDEBUG | |
853 | char const *yydebug_prefix, | |
854 | char const *yydebug_suffix, | |
855 | #endif | |
856 | yytype_int16 **yybottom, | |
857 | yytype_int16 *yybottom_no_free, | |
858 | yytype_int16 **yytop, yytype_int16 *yytop_empty) | |
859 | { | |
860 | YYSIZE_T yysize_old = | |
861 | *yytop == yytop_empty ? 0 : *yytop - *yybottom + 1; | |
862 | YYSIZE_T yysize_new = yysize_old + yyadd; | |
863 | if (*yycapacity < yysize_new) | |
864 | { | |
865 | YYSIZE_T yyalloc = 2 * yysize_new; | |
866 | yytype_int16 *yybottom_new; | |
867 | /* Use YYMAXDEPTH for maximum stack size given that the stack | |
868 | should never need to grow larger than the main state stack | |
869 | needs to grow without LAC. */ | |
870 | if (YYMAXDEPTH < yysize_new) | |
871 | { | |
872 | YYDPRINTF ((stderr, "%smax size exceeded%s", yydebug_prefix, | |
873 | yydebug_suffix)); | |
874 | return 1; | |
875 | } | |
876 | if (YYMAXDEPTH < yyalloc) | |
877 | yyalloc = YYMAXDEPTH; | |
878 | yybottom_new = | |
879 | (yytype_int16*) YYSTACK_ALLOC (yyalloc * sizeof *yybottom_new); | |
880 | if (!yybottom_new) | |
881 | { | |
882 | YYDPRINTF ((stderr, "%srealloc failed%s", yydebug_prefix, | |
883 | yydebug_suffix)); | |
884 | return 1; | |
885 | } | |
886 | if (*yytop != yytop_empty) | |
887 | { | |
888 | YYCOPY (yybottom_new, *yybottom, yysize_old); | |
889 | *yytop = yybottom_new + (yysize_old - 1); | |
890 | } | |
891 | if (*yybottom != yybottom_no_free) | |
892 | YYSTACK_FREE (*yybottom); | |
893 | *yybottom = yybottom_new; | |
894 | *yycapacity = yyalloc;]m4_if(b4_percent_define_get([[parse.lac.memory-trace]]), | |
895 | [full], [[ | |
896 | YYDPRINTF ((stderr, "%srealloc to %lu%s", yydebug_prefix, | |
897 | (unsigned long int) yyalloc, yydebug_suffix));]])[ | |
898 | } | |
899 | return 0; | |
900 | } | |
901 | ||
bf35c71c JD |
902 | /* Establish the initial context for the current lookahead if no initial |
903 | context is currently established. | |
904 | ||
905 | We define a context as a snapshot of the parser stacks. We define | |
906 | the initial context for a lookahead as the context in which the | |
907 | parser initially examines that lookahead in order to select a | |
908 | syntactic action. Thus, if the lookahead eventually proves | |
909 | syntactically unacceptable (possibly in a later context reached via a | |
910 | series of reductions), the initial context can be used to determine | |
911 | the exact set of tokens that would be syntactically acceptable in the | |
912 | lookahead's place. Moreover, it is the context after which any | |
913 | further semantic actions would be erroneous because they would be | |
914 | determined by a syntactically unacceptable token. | |
915 | ||
916 | YY_LAC_ESTABLISH should be invoked when a reduction is about to be | |
917 | performed in an inconsistent state (which, for the purposes of LAC, | |
918 | includes consistent states that don't know they're consistent because | |
919 | their default reductions have been disabled). Iff there is a | |
920 | lookahead token, it should also be invoked before reporting a syntax | |
921 | error. This latter case is for the sake of the debugging output. | |
922 | ||
923 | For parse.lac=full, the implementation of YY_LAC_ESTABLISH is as | |
924 | follows. If no initial context is currently established for the | |
925 | current lookahead, then check if that lookahead can eventually be | |
926 | shifted if syntactic actions continue from the current context. | |
927 | Report a syntax error if it cannot. */ | |
107844a3 JD |
928 | #define YY_LAC_ESTABLISH \ |
929 | do { \ | |
930 | if (!yy_lac_established) \ | |
931 | { \ | |
932 | YYDPRINTF ((stderr, \ | |
933 | "LAC: initial context established for %s\n", \ | |
934 | yytname[yytoken])); \ | |
935 | yy_lac_established = 1; \ | |
936 | { \ | |
937 | int yy_lac_status = \ | |
938 | yy_lac (yyesa, &yyes, &yyes_capacity, yyssp, yytoken); \ | |
939 | if (yy_lac_status == 2) \ | |
940 | goto yyexhaustedlab; \ | |
941 | if (yy_lac_status == 1) \ | |
942 | goto yyerrlab; \ | |
943 | } \ | |
944 | } \ | |
bf35c71c JD |
945 | } while (YYID (0)) |
946 | ||
947 | /* Discard any previous initial lookahead context because of Event, | |
948 | which may be a lookahead change or an invalidation of the currently | |
949 | established initial context for the current lookahead. | |
950 | ||
951 | The most common example of a lookahead change is a shift. An example | |
952 | of both cases is syntax error recovery. That is, a syntax error | |
953 | occurs when the lookahead is syntactically erroneous for the | |
954 | currently established initial context, so error recovery manipulates | |
955 | the parser stacks to try to find a new initial context in which the | |
956 | current lookahead is syntactically acceptable. If it fails to find | |
957 | such a context, it discards the lookahead. */ | |
958 | #if YYDEBUG | |
959 | # define YY_LAC_DISCARD(Event) \ | |
960 | do { \ | |
961 | if (yy_lac_established) \ | |
962 | { \ | |
963 | if (yydebug) \ | |
964 | YYFPRINTF (stderr, "LAC: initial context discarded due to " \ | |
965 | Event "\n"); \ | |
966 | yy_lac_established = 0; \ | |
967 | } \ | |
968 | } while (YYID (0)) | |
969 | #else | |
970 | # define YY_LAC_DISCARD(Event) yy_lac_established = 0 | |
10fa2066 | 971 | #endif |
a8289c62 | 972 | |
bf35c71c | 973 | /* Given the stack whose top is *YYSSP, return 0 iff YYTOKEN can |
107844a3 JD |
974 | eventually (after perhaps some reductions) be shifted, return 1 if |
975 | not, or return 2 if memory is exhausted. As preconditions and | |
976 | postconditions: *YYES_CAPACITY is the allocated size of the array to | |
977 | which *YYES points, and either *YYES = YYESA or *YYES points to an | |
978 | array allocated with YYSTACK_ALLOC. yy_lac may overwrite the | |
979 | contents of either array, alter *YYES and *YYES_CAPACITY, and free | |
980 | any old *YYES other than YYESA. */ | |
bf35c71c | 981 | static int |
107844a3 JD |
982 | yy_lac (yytype_int16 *yyesa, yytype_int16 **yyes, |
983 | YYSIZE_T *yyes_capacity, yytype_int16 *yyssp, int yytoken) | |
bf35c71c JD |
984 | { |
985 | yytype_int16 *yyes_prev = yyssp; | |
bf35c71c JD |
986 | yytype_int16 *yyesp = yyes_prev; |
987 | YYDPRINTF ((stderr, "LAC: checking lookahead %s:", yytname[yytoken])); | |
988 | if (yytoken == YYUNDEFTOK) | |
989 | { | |
990 | YYDPRINTF ((stderr, " Always Err\n")); | |
991 | return 1; | |
992 | } | |
993 | while (1) | |
994 | { | |
995 | int yyrule = yypact[*yyesp]; | |
996 | if (yypact_value_is_default (yyrule) | |
997 | || (yyrule += yytoken) < 0 || YYLAST < yyrule | |
998 | || yycheck[yyrule] != yytoken) | |
999 | { | |
1000 | yyrule = yydefact[*yyesp]; | |
1001 | if (yyrule == 0) | |
1002 | { | |
1003 | YYDPRINTF ((stderr, " Err\n")); | |
1004 | return 1; | |
1005 | } | |
1006 | } | |
1007 | else | |
1008 | { | |
1009 | yyrule = yytable[yyrule]; | |
1010 | if (yytable_value_is_error (yyrule)) | |
1011 | { | |
1012 | YYDPRINTF ((stderr, " Err\n")); | |
1013 | return 1; | |
1014 | } | |
1015 | if (0 < yyrule) | |
1016 | { | |
1017 | YYDPRINTF ((stderr, " S%d\n", yyrule)); | |
1018 | return 0; | |
1019 | } | |
1020 | yyrule = -yyrule; | |
1021 | } | |
1022 | { | |
1023 | YYSIZE_T yylen = yyr2[yyrule]; | |
1024 | YYDPRINTF ((stderr, " R%d", yyrule - 1)); | |
1025 | if (yyesp != yyes_prev) | |
1026 | { | |
107844a3 | 1027 | YYSIZE_T yysize = yyesp - *yyes + 1; |
bf35c71c JD |
1028 | if (yylen < yysize) |
1029 | { | |
1030 | yyesp -= yylen; | |
1031 | yylen = 0; | |
1032 | } | |
1033 | else | |
1034 | { | |
1035 | yylen -= yysize; | |
1036 | yyesp = yyes_prev; | |
1037 | } | |
1038 | } | |
1039 | if (yylen) | |
1040 | yyesp = yyes_prev -= yylen; | |
1041 | } | |
1042 | { | |
1043 | int yystate; | |
1044 | { | |
1045 | int yylhs = yyr1[yyrule] - YYNTOKENS; | |
1046 | yystate = yypgoto[yylhs] + *yyesp; | |
1047 | if (yystate < 0 || YYLAST < yystate | |
1048 | || yycheck[yystate] != *yyesp) | |
1049 | yystate = yydefgoto[yylhs]; | |
1050 | else | |
1051 | yystate = yytable[yystate]; | |
1052 | } | |
1053 | if (yyesp == yyes_prev) | |
1054 | { | |
107844a3 | 1055 | yyesp = *yyes; |
bf35c71c JD |
1056 | *yyesp = yystate; |
1057 | } | |
1058 | else | |
1059 | { | |
107844a3 JD |
1060 | if (yy_lac_stack_realloc (yyes_capacity, 1, |
1061 | #if YYDEBUG | |
1062 | " (", ")", | |
1063 | #endif | |
1064 | yyes, yyesa, &yyesp, yyes_prev)) | |
bf35c71c | 1065 | { |
107844a3 | 1066 | YYDPRINTF ((stderr, "\n")); |
bf35c71c JD |
1067 | return 2; |
1068 | } | |
1069 | *++yyesp = yystate; | |
1070 | } | |
3c9b20ff | 1071 | YYDPRINTF ((stderr, " G%d", yystate)); |
bf35c71c JD |
1072 | } |
1073 | } | |
1074 | }]])[ | |
1075 | ||
a8289c62 | 1076 | |
7093d0f5 AD |
1077 | #if YYERROR_VERBOSE |
1078 | ||
1079 | # ifndef yystrlen | |
02650b7f | 1080 | # if defined __GLIBC__ && defined _STRING_H |
7093d0f5 AD |
1081 | # define yystrlen strlen |
1082 | # else | |
1083 | /* Return the length of YYSTR. */ | |
1b9c21fb PE |
1084 | ]b4_c_function_def([yystrlen], [static YYSIZE_T], |
1085 | [[const char *yystr], [yystr]])[ | |
7093d0f5 | 1086 | { |
12ce2df6 PE |
1087 | YYSIZE_T yylen; |
1088 | for (yylen = 0; yystr[yylen]; yylen++) | |
7093d0f5 | 1089 | continue; |
12ce2df6 | 1090 | return yylen; |
7093d0f5 AD |
1091 | } |
1092 | # endif | |
1093 | # endif | |
1094 | ||
1095 | # ifndef yystpcpy | |
02650b7f | 1096 | # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE |
7093d0f5 AD |
1097 | # define yystpcpy stpcpy |
1098 | # else | |
1099 | /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in | |
1100 | YYDEST. */ | |
1b9c21fb PE |
1101 | ]b4_c_function_def([yystpcpy], [static char *], |
1102 | [[char *yydest], [yydest]], [[const char *yysrc], [yysrc]])[ | |
7093d0f5 | 1103 | { |
cb530ce9 PE |
1104 | char *yyd = yydest; |
1105 | const char *yys = yysrc; | |
7093d0f5 AD |
1106 | |
1107 | while ((*yyd++ = *yys++) != '\0') | |
1108 | continue; | |
1109 | ||
1110 | return yyd - 1; | |
1111 | } | |
1112 | # endif | |
1113 | # endif | |
1114 | ||
9e0876fb PE |
1115 | # ifndef yytnamerr |
1116 | /* Copy to YYRES the contents of YYSTR after stripping away unnecessary | |
1117 | quotes and backslashes, so that it's suitable for yyerror. The | |
1118 | heuristic is that double-quoting is unnecessary unless the string | |
1119 | contains an apostrophe, a comma, or backslash (other than | |
1120 | backslash-backslash). YYSTR is taken from yytname. If YYRES is | |
1121 | null, do not copy; instead, return the length of what the result | |
1122 | would have been. */ | |
1123 | static YYSIZE_T | |
1124 | yytnamerr (char *yyres, const char *yystr) | |
1125 | { | |
1126 | if (*yystr == '"') | |
1127 | { | |
276f48df | 1128 | YYSIZE_T yyn = 0; |
9e0876fb PE |
1129 | char const *yyp = yystr; |
1130 | ||
1131 | for (;;) | |
e9690142 JD |
1132 | switch (*++yyp) |
1133 | { | |
1134 | case '\'': | |
1135 | case ',': | |
1136 | goto do_not_strip_quotes; | |
1137 | ||
1138 | case '\\': | |
1139 | if (*++yyp != '\\') | |
1140 | goto do_not_strip_quotes; | |
1141 | /* Fall through. */ | |
1142 | default: | |
1143 | if (yyres) | |
1144 | yyres[yyn] = *yyp; | |
1145 | yyn++; | |
1146 | break; | |
1147 | ||
1148 | case '"': | |
1149 | if (yyres) | |
1150 | yyres[yyn] = '\0'; | |
1151 | return yyn; | |
1152 | } | |
9e0876fb PE |
1153 | do_not_strip_quotes: ; |
1154 | } | |
1155 | ||
1156 | if (! yyres) | |
1157 | return yystrlen (yystr); | |
1158 | ||
1159 | return yystpcpy (yyres, yystr) - yyres; | |
1160 | } | |
1161 | # endif | |
1162 | ||
45319f13 | 1163 | /* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message |
bf35c71c JD |
1164 | about the unexpected token YYTOKEN for the state stack whose top is |
1165 | YYSSP.]b4_lac_if([[ In order to see if a particular token T is a | |
107844a3 | 1166 | valid looakhead, invoke yy_lac (YYESA, YYES, YYES_CAPACITY, YYSSP, T).]])[ |
45319f13 | 1167 | |
d2060f06 JD |
1168 | Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is |
1169 | not large enough to hold the message. In that case, also set | |
1170 | *YYMSG_ALLOC to the required number of bytes. Return 2 if the | |
bf35c71c JD |
1171 | required number of bytes is too large to store]b4_lac_if([[ or if |
1172 | yy_lac returned 2]])[. */ | |
45319f13 JD |
1173 | static int |
1174 | yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, | |
107844a3 JD |
1175 | ]b4_lac_if([[yytype_int16 *yyesa, yytype_int16 **yyes, |
1176 | YYSIZE_T *yyes_capacity, ]])[yytype_int16 *yyssp, int yytoken) | |
b4bbc4a0 JD |
1177 | { |
1178 | YYSIZE_T yysize0 = yytnamerr (0, yytname[yytoken]); | |
1179 | YYSIZE_T yysize = yysize0; | |
1180 | YYSIZE_T yysize1; | |
1181 | enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; | |
1182 | /* Internationalized format string. */ | |
1183 | const char *yyformat = 0; | |
1184 | /* Arguments of yyformat. */ | |
1185 | char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; | |
d2060f06 JD |
1186 | /* Number of reported tokens (one for the "unexpected", one per |
1187 | "expected"). */ | |
1188 | int yycount = 0; | |
b4bbc4a0 | 1189 | |
d2060f06 JD |
1190 | /* There are many possibilities here to consider: |
1191 | - Assume YYFAIL is not used. It's too flawed to consider. See | |
1192 | <http://lists.gnu.org/archive/html/bison-patches/2009-12/msg00024.html> | |
1193 | for details. YYERROR is fine as it does not invoke this | |
1194 | function. | |
1195 | - If this state is a consistent state with a default action, then | |
1196 | the only way this function was invoked is if the default action | |
1197 | is an error action. In that case, don't check for expected | |
1198 | tokens because there are none. | |
1199 | - The only way there can be no lookahead present (in yychar) is if | |
1200 | this state is a consistent state with a default action. Thus, | |
1201 | detecting the absence of a lookahead is sufficient to determine | |
1202 | that there is no unexpected or expected token to report. In that | |
1203 | case, just report a simple "syntax error". | |
1204 | - Don't assume there isn't a lookahead just because this state is a | |
1205 | consistent state with a default action. There might have been a | |
1206 | previous inconsistent state, consistent state with a non-default | |
bf35c71c JD |
1207 | action, or user semantic action that manipulated yychar.]b4_lac_if([[ |
1208 | In the first two cases, it might appear that the current syntax | |
1209 | error should have been detected in the previous state when yy_lac | |
1210 | was invoked. However, at that time, there might have been a | |
1211 | different syntax error that discarded a different initial context | |
1212 | during error recovery, leaving behind the current lookahead.]], [[ | |
d2060f06 JD |
1213 | - Of course, the expected token list depends on states to have |
1214 | correct lookahead information, and it depends on the parser not | |
1215 | to perform extra reductions after fetching a lookahead from the | |
1216 | scanner and before detecting a syntax error. Thus, state merging | |
1217 | (from LALR or IELR) and default reductions corrupt the expected | |
1218 | token list. However, the list is correct for canonical LR with | |
1219 | one exception: it will still contain any token that will not be | |
bf35c71c | 1220 | accepted due to an error action in a later state.]])[ |
d2060f06 JD |
1221 | */ |
1222 | if (yytoken != YYEMPTY) | |
1223 | { | |
bf35c71c JD |
1224 | int yyn = yypact[*yyssp];]b4_lac_if([[ |
1225 | YYDPRINTF ((stderr, "Constructing syntax error message\n"));]])[ | |
d2060f06 JD |
1226 | yyarg[yycount++] = yytname[yytoken]; |
1227 | if (!yypact_value_is_default (yyn)) | |
bf35c71c | 1228 | {]b4_lac_if([], [[ |
b4bbc4a0 JD |
1229 | /* Start YYX at -YYN if negative to avoid negative indexes in |
1230 | YYCHECK. In other words, skip the first -YYN actions for | |
1231 | this state because they are default actions. */ | |
1232 | int yyxbegin = yyn < 0 ? -yyn : 0; | |
b4bbc4a0 JD |
1233 | /* Stay within bounds of both yycheck and yytname. */ |
1234 | int yychecklim = YYLAST - yyn + 1; | |
bf35c71c JD |
1235 | int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;]])[ |
1236 | int yyx;]b4_lac_if([[ | |
1237 | ||
1238 | for (yyx = 0; yyx < YYNTOKENS; ++yyx) | |
1239 | if (yyx != YYTERROR && yyx != YYUNDEFTOK) | |
1240 | { | |
1241 | { | |
107844a3 JD |
1242 | int yy_lac_status = yy_lac (yyesa, yyes, yyes_capacity, |
1243 | yyssp, yyx); | |
bf35c71c JD |
1244 | if (yy_lac_status == 2) |
1245 | return 2; | |
1246 | if (yy_lac_status == 1) | |
1247 | continue; | |
1248 | }]], [[ | |
1249 | ||
b4bbc4a0 JD |
1250 | for (yyx = yyxbegin; yyx < yyxend; ++yyx) |
1251 | if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR | |
1252 | && !yytable_value_is_error (yytable[yyx + yyn])) | |
bf35c71c | 1253 | {]])[ |
b4bbc4a0 JD |
1254 | if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) |
1255 | { | |
1256 | yycount = 1; | |
1257 | yysize = yysize0; | |
1258 | break; | |
1259 | } | |
1260 | yyarg[yycount++] = yytname[yyx]; | |
1261 | yysize1 = yysize + yytnamerr (0, yytname[yyx]); | |
d2060f06 JD |
1262 | if (! (yysize <= yysize1 |
1263 | && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) | |
1264 | return 2; | |
b4bbc4a0 JD |
1265 | yysize = yysize1; |
1266 | } | |
bf35c71c JD |
1267 | }]b4_lac_if([[ |
1268 | # if YYDEBUG | |
1269 | else if (yydebug) | |
1270 | YYFPRINTF (stderr, "No expected tokens.\n"); | |
1271 | # endif]])[ | |
d2060f06 | 1272 | } |
b4bbc4a0 JD |
1273 | |
1274 | switch (yycount) | |
b4c1f9d2 | 1275 | { |
bf35c71c | 1276 | # define YYCASE_(N, S) \ |
b4bbc4a0 JD |
1277 | case N: \ |
1278 | yyformat = S; \ | |
1279 | break | |
d2060f06 | 1280 | YYCASE_(0, YY_("syntax error")); |
b4bbc4a0 JD |
1281 | YYCASE_(1, YY_("syntax error, unexpected %s")); |
1282 | YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); | |
1283 | YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); | |
1284 | YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); | |
1285 | YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); | |
bf35c71c | 1286 | # undef YYCASE_ |
b4bbc4a0 | 1287 | } |
eeb29422 | 1288 | |
b4bbc4a0 JD |
1289 | yysize1 = yysize + yystrlen (yyformat); |
1290 | if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) | |
d2060f06 | 1291 | return 2; |
b4bbc4a0 JD |
1292 | yysize = yysize1; |
1293 | ||
1294 | if (*yymsg_alloc < yysize) | |
1295 | { | |
1296 | *yymsg_alloc = 2 * yysize; | |
1297 | if (! (yysize <= *yymsg_alloc | |
1298 | && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) | |
1299 | *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; | |
d2060f06 | 1300 | return 1; |
b4bbc4a0 JD |
1301 | } |
1302 | ||
1303 | /* Avoid sprintf, as that infringes on the user's name space. | |
1304 | Don't have undefined behavior even if the translation | |
1305 | produced a string with the wrong number of "%s"s. */ | |
1306 | { | |
1307 | char *yyp = *yymsg; | |
1308 | int yyi = 0; | |
1309 | while ((*yyp = *yyformat) != '\0') | |
1310 | if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) | |
45319f13 | 1311 | { |
b4bbc4a0 JD |
1312 | yyp += yytnamerr (yyp, yyarg[yyi++]); |
1313 | yyformat += 2; | |
45319f13 | 1314 | } |
b4bbc4a0 | 1315 | else |
45319f13 | 1316 | { |
b4bbc4a0 JD |
1317 | yyp++; |
1318 | yyformat++; | |
45319f13 | 1319 | } |
b4bbc4a0 JD |
1320 | } |
1321 | return 0; | |
1322 | } | |
b4c1f9d2 | 1323 | #endif /* YYERROR_VERBOSE */ |
a8289c62 | 1324 | |
bb31eb56 | 1325 | ]b4_yydestruct_generate([b4_c_function_def])b4_push_if([], [[ |
4a2a22f4 | 1326 | |
bb31eb56 JD |
1327 | |
1328 | /* Prevent warnings from -Wmissing-prototypes. */ | |
4a2a22f4 | 1329 | #ifdef YYPARSE_PARAM |
1b9c21fb | 1330 | ]b4_c_function_decl([yyparse], [int], |
bb31eb56 | 1331 | [[void *YYPARSE_PARAM], [YYPARSE_PARAM]])[ |
0245f82d | 1332 | #else /* ! YYPARSE_PARAM */ |
d1ff7a7c | 1333 | ]b4_c_function_decl([yyparse], [int], b4_parse_param)[ |
bb31eb56 | 1334 | #endif /* ! YYPARSE_PARAM */]])b4_pure_if([], [ |
9ca7f077 | 1335 | |
bb31eb56 | 1336 | b4_declare_scanner_communication_variables])[]b4_push_if([[ |
9ca7f077 | 1337 | |
9ca7f077 | 1338 | |
bb31eb56 JD |
1339 | struct yypstate |
1340 | {]b4_declare_parser_state_variables[ | |
9ca7f077 JD |
1341 | /* Used to determine if this is the first time this instance has |
1342 | been used. */ | |
1343 | int yynew; | |
333e670c | 1344 | };]b4_pure_if([], [[ |
a35f64ea | 1345 | |
333e670c JD |
1346 | static char yypstate_allocated = 0;]])b4_pull_if([ |
1347 | ||
1348 | b4_c_function_def([[yyparse]], [[int]], b4_parse_param)[ | |
9ca7f077 JD |
1349 | { |
1350 | return yypull_parse (0]m4_ifset([b4_parse_param], | |
1351 | [[, ]b4_c_args(b4_parse_param)])[); | |
333e670c | 1352 | } |
0245f82d | 1353 | |
9ca7f077 JD |
1354 | ]b4_c_function_def([[yypull_parse]], [[int]], |
1355 | [[[yypstate *yyps]], [[yyps]]]m4_ifset([b4_parse_param], [, | |
1356 | b4_parse_param]))[ | |
1357 | { | |
1358 | int yystatus; | |
333e670c JD |
1359 | yypstate *yyps_local;]b4_pure_if([[ |
1360 | int yychar; | |
1361 | YYSTYPE yylval;]b4_locations_if([[ | |
1362 | YYLTYPE yylloc;]])])[ | |
9ca7f077 JD |
1363 | if (yyps == 0) |
1364 | { | |
1365 | yyps_local = yypstate_new (); | |
1366 | if (!yyps_local) | |
1367 | {]b4_pure_if([[ | |
1368 | yyerror (]b4_yyerror_args[YY_("memory exhausted"));]], [[ | |
1369 | if (!yypstate_allocated) | |
1370 | yyerror (]b4_yyerror_args[YY_("memory exhausted"));]])[ | |
1371 | return 2; | |
1372 | } | |
1373 | } | |
1374 | else | |
1375 | yyps_local = yyps; | |
1376 | do { | |
1377 | yychar = YYLEX; | |
1378 | yystatus = | |
1379 | yypush_parse (yyps_local]b4_pure_if([[, yychar, &yylval]b4_locations_if([[, &yylloc]])])m4_ifset([b4_parse_param], [, b4_c_args(b4_parse_param)])[); | |
1380 | } while (yystatus == YYPUSH_MORE); | |
1381 | if (yyps == 0) | |
1382 | yypstate_delete (yyps_local); | |
1383 | return yystatus; | |
333e670c JD |
1384 | }]])[ |
1385 | ||
9ca7f077 JD |
1386 | /* Initialize the parser data structure. */ |
1387 | ]b4_c_function_def([[yypstate_new]], [[yypstate *]])[ | |
1388 | { | |
1389 | yypstate *yyps;]b4_pure_if([], [[ | |
1390 | if (yypstate_allocated) | |
333e670c | 1391 | return 0;]])[ |
9ca7f077 JD |
1392 | yyps = (yypstate *) malloc (sizeof *yyps); |
1393 | if (!yyps) | |
1394 | return 0; | |
1395 | yyps->yynew = 1;]b4_pure_if([], [[ | |
1396 | yypstate_allocated = 1;]])[ | |
1397 | return yyps; | |
1398 | } | |
1399 | ||
1400 | ]b4_c_function_def([[yypstate_delete]], [[void]], | |
1401 | [[[yypstate *yyps]], [[yyps]]])[ | |
1402 | { | |
1403 | #ifndef yyoverflow | |
1404 | /* If the stack was reallocated but the parse did not complete, then the | |
1405 | stack still needs to be freed. */ | |
1406 | if (!yyps->yynew && yyps->yyss != yyps->yyssa) | |
1407 | YYSTACK_FREE (yyps->yyss); | |
107844a3 JD |
1408 | #endif]b4_lac_if([[ |
1409 | if (!yyps->yynew && yyps->yyes != yyps->yyesa) | |
1410 | YYSTACK_FREE (yyps->yyes);]])[ | |
9ca7f077 JD |
1411 | free (yyps);]b4_pure_if([], [[ |
1412 | yypstate_allocated = 0;]])[ | |
1413 | } | |
bb31eb56 JD |
1414 | ]b4_pure_if([[ |
1415 | #define ]b4_prefix[nerrs yyps->]b4_prefix[nerrs]])[ | |
1416 | #define yystate yyps->yystate | |
9ca7f077 JD |
1417 | #define yyerrstatus yyps->yyerrstatus |
1418 | #define yyssa yyps->yyssa | |
1419 | #define yyss yyps->yyss | |
1420 | #define yyssp yyps->yyssp | |
1421 | #define yyvsa yyps->yyvsa | |
1422 | #define yyvs yyps->yyvs | |
bb31eb56 JD |
1423 | #define yyvsp yyps->yyvsp]b4_locations_if([[ |
1424 | #define yylsa yyps->yylsa | |
9ca7f077 JD |
1425 | #define yyls yyps->yyls |
1426 | #define yylsp yyps->yylsp | |
bb31eb56 | 1427 | #define yyerror_range yyps->yyerror_range]])[ |
107844a3 JD |
1428 | #define yystacksize yyps->yystacksize]b4_lac_if([[ |
1429 | #define yyesa yyps->yyesa | |
1430 | #define yyes yyps->yyes | |
1431 | #define yyes_capacity yyps->yyes_capacity]])[ | |
bb31eb56 JD |
1432 | |
1433 | ||
1434 | /*---------------. | |
1435 | | yypush_parse. | | |
1436 | `---------------*/ | |
1437 | ||
1438 | ]b4_c_function_def([[yypush_parse]], [[int]], | |
9ca7f077 JD |
1439 | [[[yypstate *yyps]], [[yyps]]]b4_pure_if([, |
1440 | [[[int yypushed_char]], [[yypushed_char]]], | |
1441 | [[[YYSTYPE const *yypushed_val]], [[yypushed_val]]]b4_locations_if([, | |
1442 | [[[YYLTYPE const *yypushed_loc]], [[yypushed_loc]]]])])m4_ifset([b4_parse_param], [, | |
bb31eb56 JD |
1443 | b4_parse_param]))], [[ |
1444 | ||
1445 | ||
1446 | /*----------. | |
1447 | | yyparse. | | |
1448 | `----------*/ | |
1449 | ||
0245f82d | 1450 | #ifdef YYPARSE_PARAM |
bb31eb56 JD |
1451 | ]b4_c_function_def([yyparse], [int], |
1452 | [[void *YYPARSE_PARAM], [YYPARSE_PARAM]])[ | |
0245f82d | 1453 | #else /* ! YYPARSE_PARAM */ |
bb31eb56 JD |
1454 | ]b4_c_function_def([yyparse], [int], b4_parse_param)[ |
1455 | #endif]])[ | |
1456 | {]b4_pure_if([b4_declare_scanner_communication_variables | |
1457 | ])b4_push_if([b4_pure_if([], [[ | |
1458 | int yypushed_char = yychar; | |
1459 | YYSTYPE yypushed_val = yylval;]b4_locations_if([[ | |
1460 | YYLTYPE yypushed_loc = yylloc;]]) | |
1461 | ])], | |
1462 | [b4_declare_parser_state_variables | |
bf35c71c JD |
1463 | ])b4_lac_if([[ |
1464 | int yy_lac_established = 0;]])[ | |
cb530ce9 | 1465 | int yyn; |
600f9b0c | 1466 | int yyresult; |
742e4900 | 1467 | /* Lookahead token as an internal (translated) token number. */ |
9ca7f077 JD |
1468 | int yytoken; |
1469 | /* The variables used to return semantic value and location from the | |
1470 | action routines. */ | |
fa6aa7b3 JD |
1471 | YYSTYPE yyval;]b4_locations_if([[ |
1472 | YYLTYPE yyloc;]])[ | |
1473 | ||
b4c1f9d2 PE |
1474 | #if YYERROR_VERBOSE |
1475 | /* Buffer for error messages, and its allocated size. */ | |
1476 | char yymsgbuf[128]; | |
1477 | char *yymsg = yymsgbuf; | |
1478 | YYSIZE_T yymsg_alloc = sizeof yymsgbuf; | |
1479 | #endif | |
10fa2066 | 1480 | |
327afc7c | 1481 | #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)]b4_locations_if([, yylsp -= (N)])[) |
10fa2066 | 1482 | |
a85284cf | 1483 | /* The number of symbols on the RHS of the reduced rule. |
9d9b8b70 | 1484 | Keep to zero when no symbol should be popped. */ |
fa6aa7b3 JD |
1485 | int yylen = 0;]b4_push_if([[ |
1486 | ||
9ca7f077 JD |
1487 | if (!yyps->yynew) |
1488 | { | |
1489 | yyn = yypact[yystate]; | |
1490 | goto yyread_pushed_token; | |
fa6aa7b3 JD |
1491 | }]])[ |
1492 | ||
9ca7f077 JD |
1493 | yytoken = 0; |
1494 | yyss = yyssa; | |
fa6aa7b3 JD |
1495 | yyvs = yyvsa;]b4_locations_if([[ |
1496 | yyls = yylsa;]])[ | |
107844a3 JD |
1497 | yystacksize = YYINITDEPTH;]b4_lac_if([[ |
1498 | ||
1499 | yyes = yyesa; | |
1500 | yyes_capacity = sizeof yyesa / sizeof *yyes; | |
1501 | if (YYMAXDEPTH < yyes_capacity) | |
1502 | yyes_capacity = YYMAXDEPTH;]])[ | |
10fa2066 | 1503 | |
2f4f028d | 1504 | YYDPRINTF ((stderr, "Starting parse\n")); |
10fa2066 RS |
1505 | |
1506 | yystate = 0; | |
1507 | yyerrstatus = 0; | |
17da6427 | 1508 | yynerrs = 0; |
9ca7f077 | 1509 | yychar = YYEMPTY; /* Cause a token to be read. */ |
10fa2066 RS |
1510 | |
1511 | /* Initialize stack pointers. | |
1512 | Waste one element of value and location stack | |
1513 | so that they stay on the same level as the state stack. | |
1514 | The wasted elements are never initialized. */ | |
cbd89906 | 1515 | yyssp = yyss; |
9ca7f077 JD |
1516 | yyvsp = yyvs;]b4_locations_if([[ |
1517 | yylsp = yyls; | |
1518 | ||
ae93128c | 1519 | #if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL |
b8458aa5 | 1520 | /* Initialize the default location before parsing starts. */ |
cd48d21d AD |
1521 | yylloc.first_line = yylloc.last_line = ]b4_location_initial_line[; |
1522 | yylloc.first_column = yylloc.last_column = ]b4_location_initial_column[; | |
9ca7f077 JD |
1523 | #endif]]) |
1524 | m4_ifdef([b4_initial_action],[ | |
407d4a75 PE |
1525 | m4_pushdef([b4_at_dollar], [m4_define([b4_at_dollar_used])yylloc])dnl |
1526 | m4_pushdef([b4_dollar_dollar], [m4_define([b4_dollar_dollar_used])yylval])dnl | |
9ca7f077 JD |
1527 | /* User initialization code. */ |
1528 | b4_user_initial_action | |
cd3684cf | 1529 | m4_popdef([b4_dollar_dollar])dnl |
8ec0a172 | 1530 | m4_popdef([b4_at_dollar])])dnl |
407d4a75 PE |
1531 | m4_ifdef([b4_dollar_dollar_used],[[ yyvsp[0] = yylval; |
1532 | ]])dnl | |
1533 | m4_ifdef([b4_at_dollar_used], [[ yylsp[0] = yylloc; | |
9ca7f077 JD |
1534 | ]])[ |
1535 | goto yysetstate; | |
10fa2066 | 1536 | |
71da9eea AD |
1537 | /*------------------------------------------------------------. |
1538 | | yynewstate -- Push a new state, which is found in yystate. | | |
1539 | `------------------------------------------------------------*/ | |
342b8b6e | 1540 | yynewstate: |
71da9eea | 1541 | /* In all cases, when you get here, the value and location stacks |
9d9b8b70 | 1542 | have just been pushed. So pushing a state here evens the stacks. */ |
cbd89906 PE |
1543 | yyssp++; |
1544 | ||
342b8b6e | 1545 | yysetstate: |
cbd89906 | 1546 | *yyssp = yystate; |
10fa2066 | 1547 | |
39912f52 | 1548 | if (yyss + yystacksize - 1 <= yyssp) |
10fa2066 | 1549 | { |
10fa2066 | 1550 | /* Get the current used size of the three stacks, in elements. */ |
7093d0f5 | 1551 | YYSIZE_T yysize = yyssp - yyss + 1; |
10fa2066 RS |
1552 | |
1553 | #ifdef yyoverflow | |
3d76b07d | 1554 | { |
e9690142 JD |
1555 | /* Give user a chance to reallocate the stack. Use copies of |
1556 | these so that the &'s don't force the real ones into | |
1557 | memory. */ | |
1558 | YYSTYPE *yyvs1 = yyvs; | |
1559 | yytype_int16 *yyss1 = yyss;]b4_locations_if([ | |
1560 | YYLTYPE *yyls1 = yyls;])[ | |
1561 | ||
1562 | /* Each stack pointer address is followed by the size of the | |
1563 | data in use in that stack, in bytes. This used to be a | |
1564 | conditional around just the two extra args, but that might | |
1565 | be undefined if yyoverflow is a macro. */ | |
1566 | yyoverflow (YY_("memory exhausted"), | |
1567 | &yyss1, yysize * sizeof (*yyssp), | |
1568 | &yyvs1, yysize * sizeof (*yyvsp),]b4_locations_if([ | |
1569 | &yyls1, yysize * sizeof (*yylsp),])[ | |
1570 | &yystacksize); | |
9ca7f077 | 1571 | ]b4_locations_if([ |
e9690142 JD |
1572 | yyls = yyls1;])[ |
1573 | yyss = yyss1; | |
1574 | yyvs = yyvs1; | |
3d76b07d | 1575 | } |
10fa2066 | 1576 | #else /* no yyoverflow */ |
cf44a9ae | 1577 | # ifndef YYSTACK_RELOCATE |
1a059451 | 1578 | goto yyexhaustedlab; |
cf44a9ae | 1579 | # else |
10fa2066 | 1580 | /* Extend the stack our own way. */ |
39912f52 | 1581 | if (YYMAXDEPTH <= yystacksize) |
e9690142 | 1582 | goto yyexhaustedlab; |
10fa2066 | 1583 | yystacksize *= 2; |
39912f52 | 1584 | if (YYMAXDEPTH < yystacksize) |
e9690142 | 1585 | yystacksize = YYMAXDEPTH; |
e9e4c321 | 1586 | |
600f9b0c | 1587 | { |
e9690142 JD |
1588 | yytype_int16 *yyss1 = yyss; |
1589 | union yyalloc *yyptr = | |
1590 | (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); | |
1591 | if (! yyptr) | |
1592 | goto yyexhaustedlab; | |
1593 | YYSTACK_RELOCATE (yyss_alloc, yyss); | |
1594 | YYSTACK_RELOCATE (yyvs_alloc, yyvs);]b4_locations_if([ | |
1595 | YYSTACK_RELOCATE (yyls_alloc, yyls);])[ | |
cf44a9ae | 1596 | # undef YYSTACK_RELOCATE |
e9690142 JD |
1597 | if (yyss1 != yyssa) |
1598 | YYSTACK_FREE (yyss1); | |
600f9b0c | 1599 | } |
cf44a9ae | 1600 | # endif |
10fa2066 RS |
1601 | #endif /* no yyoverflow */ |
1602 | ||
7093d0f5 | 1603 | yyssp = yyss + yysize - 1; |
9ca7f077 JD |
1604 | yyvsp = yyvs + yysize - 1;]b4_locations_if([ |
1605 | yylsp = yyls + yysize - 1;])[ | |
10fa2066 | 1606 | |
30757c8c | 1607 | YYDPRINTF ((stderr, "Stack size increased to %lu\n", |
e9690142 | 1608 | (unsigned long int) yystacksize)); |
10fa2066 | 1609 | |
39912f52 | 1610 | if (yyss + yystacksize - 1 <= yyssp) |
e9690142 | 1611 | YYABORT; |
10fa2066 RS |
1612 | } |
1613 | ||
30757c8c | 1614 | YYDPRINTF ((stderr, "Entering state %d\n", yystate)); |
10fa2066 | 1615 | |
868d2d96 JD |
1616 | if (yystate == YYFINAL) |
1617 | YYACCEPT; | |
1618 | ||
10fa2066 | 1619 | goto yybackup; |
71da9eea | 1620 | |
71da9eea AD |
1621 | /*-----------. |
1622 | | yybackup. | | |
1623 | `-----------*/ | |
1624 | yybackup: | |
10fa2066 | 1625 | |
a85284cf | 1626 | /* Do appropriate processing given the current state. Read a |
742e4900 | 1627 | lookahead token if we need one and don't already have one. */ |
10fa2066 | 1628 | |
742e4900 | 1629 | /* First try to decide what to do without reference to lookahead token. */ |
10fa2066 | 1630 | yyn = yypact[yystate]; |
f2b30bdf | 1631 | if (yypact_value_is_default (yyn)) |
10fa2066 RS |
1632 | goto yydefault; |
1633 | ||
742e4900 | 1634 | /* Not known => get a lookahead token if don't already have one. */ |
10fa2066 | 1635 | |
742e4900 | 1636 | /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ |
a20713a4 | 1637 | if (yychar == YYEMPTY) |
fa6aa7b3 JD |
1638 | {]b4_push_if([[ |
1639 | if (!yyps->yynew) | |
1640 | {]b4_use_push_for_pull_if([], [[ | |
1641 | YYDPRINTF ((stderr, "Return for a new token:\n"));]])[ | |
1642 | yyresult = YYPUSH_MORE; | |
9ca7f077 JD |
1643 | goto yypushreturn; |
1644 | } | |
fa6aa7b3 | 1645 | yyps->yynew = 0;]b4_pure_if([], [[ |
9ca7f077 JD |
1646 | /* Restoring the pushed token is only necessary for the first |
1647 | yypush_parse invocation since subsequent invocations don't overwrite | |
1648 | it before jumping to yyread_pushed_token. */ | |
1649 | yychar = yypushed_char; | |
fa6aa7b3 JD |
1650 | yylval = yypushed_val;]b4_locations_if([[ |
1651 | yylloc = yypushed_loc;]])])[ | |
1652 | yyread_pushed_token:]])[ | |
1653 | YYDPRINTF ((stderr, "Reading a token: "));]b4_push_if([b4_pure_if([[ | |
1654 | yychar = yypushed_char; | |
9ca7f077 | 1655 | if (yypushed_val) |
fa6aa7b3 JD |
1656 | yylval = *yypushed_val;]b4_locations_if([[ |
1657 | if (yypushed_loc) | |
1658 | yylloc = *yypushed_loc;]])])], [[ | |
1659 | yychar = YYLEX;]])[ | |
1660 | } | |
10fa2066 | 1661 | |
a20713a4 | 1662 | if (yychar <= YYEOF) |
10fa2066 | 1663 | { |
a20713a4 | 1664 | yychar = yytoken = YYEOF; |
2f4f028d | 1665 | YYDPRINTF ((stderr, "Now at end of input.\n")); |
10fa2066 RS |
1666 | } |
1667 | else | |
1668 | { | |
a20713a4 | 1669 | yytoken = YYTRANSLATE (yychar); |
30757c8c | 1670 | YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); |
10fa2066 RS |
1671 | } |
1672 | ||
b0400cc6 | 1673 | /* If the proper action on seeing token YYTOKEN is to reduce or to |
e5cfd9d8 | 1674 | detect an error, take that action. */ |
b0400cc6 | 1675 | yyn += yytoken; |
bf35c71c JD |
1676 | if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)]b4_lac_if([[ |
1677 | { | |
1678 | YY_LAC_ESTABLISH; | |
1679 | goto yydefault; | |
1680 | }]], [[ | |
1681 | goto yydefault;]])[ | |
e5cfd9d8 PE |
1682 | yyn = yytable[yyn]; |
1683 | if (yyn <= 0) | |
10fa2066 | 1684 | { |
f2b30bdf | 1685 | if (yytable_value_is_error (yyn)) |
bf35c71c JD |
1686 | goto yyerrlab;]b4_lac_if([[ |
1687 | YY_LAC_ESTABLISH;]])[ | |
10fa2066 RS |
1688 | yyn = -yyn; |
1689 | goto yyreduce; | |
1690 | } | |
10fa2066 | 1691 | |
a85284cf AD |
1692 | /* Count tokens shifted since error; after three, turn off error |
1693 | status. */ | |
1694 | if (yyerrstatus) | |
1695 | yyerrstatus--; | |
1696 | ||
742e4900 | 1697 | /* Shift the lookahead token. */ |
30757c8c | 1698 | YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); |
10fa2066 | 1699 | |
868d2d96 | 1700 | /* Discard the shifted token. */ |
bf35c71c JD |
1701 | yychar = YYEMPTY;]b4_lac_if([[ |
1702 | YY_LAC_DISCARD ("shift");]])[ | |
10fa2066 | 1703 | |
a85284cf | 1704 | yystate = yyn; |
17da6427 | 1705 | *++yyvsp = yylval; |
327afc7c | 1706 | ]b4_locations_if([ *++yylsp = yylloc;])[ |
10fa2066 RS |
1707 | goto yynewstate; |
1708 | ||
10fa2066 | 1709 | |
71da9eea AD |
1710 | /*-----------------------------------------------------------. |
1711 | | yydefault -- do the default action for the current state. | | |
1712 | `-----------------------------------------------------------*/ | |
1713 | yydefault: | |
10fa2066 RS |
1714 | yyn = yydefact[yystate]; |
1715 | if (yyn == 0) | |
1716 | goto yyerrlab; | |
71da9eea | 1717 | goto yyreduce; |
10fa2066 | 1718 | |
71da9eea AD |
1719 | |
1720 | /*-----------------------------. | |
1721 | | yyreduce -- Do a reduction. | | |
1722 | `-----------------------------*/ | |
10fa2066 | 1723 | yyreduce: |
71da9eea | 1724 | /* yyn is the number of a rule to reduce with. */ |
10fa2066 | 1725 | yylen = yyr2[yyn]; |
da9abf43 AD |
1726 | |
1727 | /* If YYLEN is nonzero, implement the default value of the action: | |
573c1d9f | 1728 | `$$ = $1'. |
da9abf43 | 1729 | |
accea6db PE |
1730 | Otherwise, the following line sets YYVAL to garbage. |
1731 | This behavior is undocumented and Bison | |
da9abf43 AD |
1732 | users should not rely upon it. Assigning to YYVAL |
1733 | unconditionally makes the parser a bit smaller, and it avoids a | |
1734 | GCC warning that YYVAL may be used uninitialized. */ | |
1735 | yyval = yyvsp[1-yylen]; | |
3abcd459 | 1736 | |
327afc7c | 1737 | ]b4_locations_if( |
9d9b8b70 | 1738 | [[ /* Default location. */ |
401aace6 | 1739 | YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen);]])[ |
bf35c71c JD |
1740 | YY_REDUCE_PRINT (yyn);]b4_lac_if([[ |
1741 | { | |
1742 | int yychar_backup = yychar; | |
1743 | switch (yyn) | |
1744 | { | |
1745 | ]b4_user_actions[ | |
1746 | default: break; | |
1747 | } | |
1748 | if (yychar_backup != yychar) | |
1749 | YY_LAC_DISCARD ("yychar change"); | |
1750 | }]], [[ | |
a8289c62 | 1751 | switch (yyn) |
d1ff7a7c | 1752 | { |
8ec0a172 | 1753 | ]b4_user_actions[ |
95f22ad2 | 1754 | default: break; |
bf35c71c | 1755 | }]])[ |
df222dfa JD |
1756 | /* User semantic actions sometimes alter yychar, and that requires |
1757 | that yytoken be updated with the new translation. We take the | |
1758 | approach of translating immediately before every use of yytoken. | |
1759 | One alternative is translating here after every semantic action, | |
1760 | but that translation would be missed if the semantic action invokes | |
1761 | YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or | |
1762 | if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an | |
1763 | incorrect destructor might then be invoked immediately. In the | |
1764 | case of YYERROR or YYBACKUP, subsequent parser actions might lead | |
1765 | to an incorrect destructor call or verbose syntax error message | |
1766 | before the lookahead is translated. */ | |
d1ff7a7c | 1767 | YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); |
897668ee | 1768 | |
a85284cf AD |
1769 | YYPOPSTACK (yylen); |
1770 | yylen = 0; | |
b0937b22 | 1771 | YY_STACK_PRINT (yyss, yyssp); |
10fa2066 | 1772 | |
9ca7f077 JD |
1773 | *++yyvsp = yyval;]b4_locations_if([ |
1774 | *++yylsp = yyloc;])[ | |
10fa2066 | 1775 | |
41aca2e0 AD |
1776 | /* Now `shift' the result of the reduction. Determine what state |
1777 | that goes to, based on the state we popped back to and the rule | |
1778 | number reduced by. */ | |
10fa2066 RS |
1779 | |
1780 | yyn = yyr1[yyn]; | |
1781 | ||
7742ddeb | 1782 | yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; |
34ec3579 | 1783 | if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) |
10fa2066 RS |
1784 | yystate = yytable[yystate]; |
1785 | else | |
7742ddeb | 1786 | yystate = yydefgoto[yyn - YYNTOKENS]; |
10fa2066 RS |
1787 | |
1788 | goto yynewstate; | |
1789 | ||
10fa2066 | 1790 | |
71da9eea AD |
1791 | /*------------------------------------. |
1792 | | yyerrlab -- here on detecting error | | |
1793 | `------------------------------------*/ | |
1794 | yyerrlab: | |
df222dfa JD |
1795 | /* Make sure we have latest lookahead translation. See comments at |
1796 | user semantic actions for why this is necessary. */ | |
d2060f06 | 1797 | yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); |
df222dfa | 1798 | |
71da9eea AD |
1799 | /* If not already recovering from an error, report this error. */ |
1800 | if (!yyerrstatus) | |
10fa2066 | 1801 | { |
17da6427 | 1802 | ++yynerrs; |
b4c1f9d2 PE |
1803 | #if ! YYERROR_VERBOSE |
1804 | yyerror (]b4_yyerror_args[YY_("syntax error")); | |
1805 | #else | |
107844a3 JD |
1806 | # define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \]b4_lac_if([[ |
1807 | yyesa, &yyes, &yyes_capacity, \]])[ | |
1808 | yyssp, yytoken) | |
34db451c JD |
1809 | { |
1810 | char const *yymsgp = YY_("syntax error"); | |
bf35c71c JD |
1811 | int yysyntax_error_status;]b4_lac_if([[ |
1812 | if (yychar != YYEMPTY) | |
1813 | YY_LAC_ESTABLISH;]])[ | |
1814 | yysyntax_error_status = YYSYNTAX_ERROR; | |
34db451c JD |
1815 | if (yysyntax_error_status == 0) |
1816 | yymsgp = yymsg; | |
d2060f06 | 1817 | else if (yysyntax_error_status == 1) |
34db451c JD |
1818 | { |
1819 | if (yymsg != yymsgbuf) | |
1820 | YYSTACK_FREE (yymsg); | |
1821 | yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); | |
1822 | if (!yymsg) | |
1823 | { | |
1824 | yymsg = yymsgbuf; | |
1825 | yymsg_alloc = sizeof yymsgbuf; | |
d2060f06 | 1826 | yysyntax_error_status = 2; |
34db451c JD |
1827 | } |
1828 | else | |
1829 | { | |
1830 | yysyntax_error_status = YYSYNTAX_ERROR; | |
1831 | yymsgp = yymsg; | |
1832 | } | |
1833 | } | |
1834 | yyerror (]b4_yyerror_args[yymsgp); | |
1835 | if (yysyntax_error_status == 2) | |
1836 | goto yyexhaustedlab; | |
1837 | } | |
1838 | # undef YYSYNTAX_ERROR | |
b4c1f9d2 | 1839 | #endif |
10fa2066 | 1840 | } |
71da9eea | 1841 | |
44c2b42d | 1842 | ]b4_locations_if([[ yyerror_range[1] = yylloc;]])[ |
d42f69cd | 1843 | |
10fa2066 RS |
1844 | if (yyerrstatus == 3) |
1845 | { | |
742e4900 | 1846 | /* If just tried and failed to reuse lookahead token after an |
e9690142 | 1847 | error, discard it. */ |
10fa2066 | 1848 | |
a6b89bb2 | 1849 | if (yychar <= YYEOF) |
e9690142 JD |
1850 | { |
1851 | /* Return failure if at end of input. */ | |
1852 | if (yychar == YYEOF) | |
1853 | YYABORT; | |
1854 | } | |
a6b89bb2 | 1855 | else |
e9690142 JD |
1856 | { |
1857 | yydestruct ("Error: discarding", | |
1858 | yytoken, &yylval]b4_locations_if([, &yylloc])[]b4_user_args[); | |
1859 | yychar = YYEMPTY; | |
1860 | } | |
10fa2066 RS |
1861 | } |
1862 | ||
742e4900 | 1863 | /* Else will try to reuse lookahead token after shifting the error |
71da9eea | 1864 | token. */ |
8a3eb3c8 | 1865 | goto yyerrlab1; |
300a7966 | 1866 | |
10fa2066 | 1867 | |
a6b89bb2 PE |
1868 | /*---------------------------------------------------. |
1869 | | yyerrorlab -- error raised explicitly by YYERROR. | | |
1870 | `---------------------------------------------------*/ | |
1871 | yyerrorlab: | |
1872 | ||
c7a65b99 PE |
1873 | /* Pacify compilers like GCC when the user code never invokes |
1874 | YYERROR and the label yyerrorlab therefore never appears in user | |
1875 | code. */ | |
2a4647a3 | 1876 | if (/*CONSTCOND*/ 0) |
a6b89bb2 | 1877 | goto yyerrorlab; |
a6b89bb2 | 1878 | |
44c2b42d | 1879 | ]b4_locations_if([[ yyerror_range[1] = yylsp[1-yylen]; |
a85284cf | 1880 | ]])[ /* Do not reclaim the symbols of the rule which action triggered |
9d9b8b70 | 1881 | this YYERROR. */ |
a85284cf AD |
1882 | YYPOPSTACK (yylen); |
1883 | yylen = 0; | |
1884 | YY_STACK_PRINT (yyss, yyssp); | |
a6b89bb2 | 1885 | yystate = *yyssp; |
3fc16193 | 1886 | goto yyerrlab1; |
a6b89bb2 PE |
1887 | |
1888 | ||
1889 | /*-------------------------------------------------------------. | |
1890 | | yyerrlab1 -- common code for both syntax error and YYERROR. | | |
1891 | `-------------------------------------------------------------*/ | |
300a7966 | 1892 | yyerrlab1: |
e9690142 | 1893 | yyerrstatus = 3; /* Each real token shifted decrements this. */ |
10fa2066 | 1894 | |
660bc8dd PE |
1895 | for (;;) |
1896 | { | |
1897 | yyn = yypact[yystate]; | |
f2b30bdf | 1898 | if (!yypact_value_is_default (yyn)) |
e9690142 JD |
1899 | { |
1900 | yyn += YYTERROR; | |
1901 | if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) | |
1902 | { | |
1903 | yyn = yytable[yyn]; | |
1904 | if (0 < yyn) | |
1905 | break; | |
1906 | } | |
1907 | } | |
10fa2066 | 1908 | |
660bc8dd PE |
1909 | /* Pop the current state because it cannot handle the error token. */ |
1910 | if (yyssp == yyss) | |
e9690142 | 1911 | YYABORT; |
5504898e | 1912 | |
44c2b42d | 1913 | ]b4_locations_if([[ yyerror_range[1] = *yylsp;]])[ |
4b367315 | 1914 | yydestruct ("Error: popping", |
e9690142 | 1915 | yystos[yystate], yyvsp]b4_locations_if([, yylsp])[]b4_user_args[); |
a85284cf | 1916 | YYPOPSTACK (1); |
a6b89bb2 | 1917 | yystate = *yyssp; |
b0937b22 | 1918 | YY_STACK_PRINT (yyss, yyssp); |
bf35c71c JD |
1919 | }]b4_lac_if([[ |
1920 | ||
1921 | /* If the stack popping above didn't lose the initial context for the | |
1922 | current lookahead token, the shift below will for sure. */ | |
1923 | YY_LAC_DISCARD ("error recovery");]])[ | |
10fa2066 | 1924 | |
17da6427 | 1925 | *++yyvsp = yylval; |
327afc7c | 1926 | ]b4_locations_if([[ |
44c2b42d | 1927 | yyerror_range[2] = yylloc; |
3fc16193 | 1928 | /* Using YYLLOC is tempting, but would change the location of |
742e4900 | 1929 | the lookahead. YYLOC is available though. */ |
44c2b42d | 1930 | YYLLOC_DEFAULT (yyloc, yyerror_range, 2); |
3fc16193 | 1931 | *++yylsp = yyloc;]])[ |
10fa2066 | 1932 | |
9d9b8b70 | 1933 | /* Shift the error token. */ |
30757c8c | 1934 | YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); |
1576d44d | 1935 | |
10fa2066 RS |
1936 | yystate = yyn; |
1937 | goto yynewstate; | |
70ddf897 | 1938 | |
71da9eea AD |
1939 | |
1940 | /*-------------------------------------. | |
1941 | | yyacceptlab -- YYACCEPT comes here. | | |
1942 | `-------------------------------------*/ | |
1943 | yyacceptlab: | |
600f9b0c PE |
1944 | yyresult = 0; |
1945 | goto yyreturn; | |
71da9eea AD |
1946 | |
1947 | /*-----------------------------------. | |
1948 | | yyabortlab -- YYABORT comes here. | | |
1949 | `-----------------------------------*/ | |
1950 | yyabortlab: | |
600f9b0c PE |
1951 | yyresult = 1; |
1952 | goto yyreturn; | |
1953 | ||
bf35c71c | 1954 | #if ]b4_lac_if([[1]], [[!defined(yyoverflow) || YYERROR_VERBOSE]])[ |
1a059451 PE |
1955 | /*-------------------------------------------------. |
1956 | | yyexhaustedlab -- memory exhaustion comes here. | | |
1957 | `-------------------------------------------------*/ | |
1958 | yyexhaustedlab: | |
1959 | yyerror (]b4_yyerror_args[YY_("memory exhausted")); | |
600f9b0c PE |
1960 | yyresult = 2; |
1961 | /* Fall through. */ | |
0bfb02ff | 1962 | #endif |
600f9b0c PE |
1963 | |
1964 | yyreturn: | |
868d2d96 | 1965 | if (yychar != YYEMPTY) |
df222dfa JD |
1966 | { |
1967 | /* Make sure we have latest lookahead translation. See comments at | |
1968 | user semantic actions for why this is necessary. */ | |
1969 | yytoken = YYTRANSLATE (yychar); | |
1970 | yydestruct ("Cleanup: discarding lookahead", | |
1971 | yytoken, &yylval]b4_locations_if([, &yylloc])[]b4_user_args[); | |
1972 | } | |
a85284cf | 1973 | /* Do not reclaim the symbols of the rule which action triggered |
9d9b8b70 | 1974 | this YYABORT or YYACCEPT. */ |
a85284cf AD |
1975 | YYPOPSTACK (yylen); |
1976 | YY_STACK_PRINT (yyss, yyssp); | |
258b75ca PE |
1977 | while (yyssp != yyss) |
1978 | { | |
dd5f2af2 | 1979 | yydestruct ("Cleanup: popping", |
e9690142 | 1980 | yystos[*yyssp], yyvsp]b4_locations_if([, yylsp])[]b4_user_args[); |
a85284cf | 1981 | YYPOPSTACK (1); |
258b75ca | 1982 | } |
600f9b0c PE |
1983 | #ifndef yyoverflow |
1984 | if (yyss != yyssa) | |
1985 | YYSTACK_FREE (yyss); | |
107844a3 JD |
1986 | #endif]b4_lac_if([[ |
1987 | if (yyes != yyesa) | |
1988 | YYSTACK_FREE (yyes);]])b4_push_if([[ | |
bb31eb56 | 1989 | yyps->yynew = 1; |
9ca7f077 | 1990 | |
bb31eb56 JD |
1991 | yypushreturn:]])[ |
1992 | #if YYERROR_VERBOSE | |
b4c1f9d2 PE |
1993 | if (yymsg != yymsgbuf) |
1994 | YYSTACK_FREE (yymsg); | |
70ddf897 | 1995 | #endif |
7b5cdcbd JD |
1996 | /* Make sure YYID is used. */ |
1997 | return YYID (yyresult); | |
9ca7f077 | 1998 | } |
be2a1a68 | 1999 | |
4524c55b | 2000 | ]b4_epilogue[]dnl |
327afc7c | 2001 | b4_defines_if( |
a0d4650a | 2002 | [@output(b4_spec_defines_file@)@ |
3c9b20ff | 2003 | b4_copyright([Bison interface for Yacc-like parsers in C])dnl |
6e93d810 | 2004 | |
a4e25e1d | 2005 | b4_percent_code_get([[requires]])[]dnl |
9bc0dd67 | 2006 | |
cf147260 | 2007 | b4_token_enums_defines(b4_tokens) |
be2a1a68 | 2008 | |
9bc0dd67 JD |
2009 | [#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED |
2010 | ]m4_ifdef([b4_stype], | |
ddc8ede1 | 2011 | [[typedef union ]b4_union_name[ |
7ecec4dd | 2012 | { |
ddc8ede1 | 2013 | ]b4_user_stype[ |
7ecec4dd | 2014 | } YYSTYPE; |
ddc8ede1 PE |
2015 | # define YYSTYPE_IS_TRIVIAL 1]], |
2016 | [m4_if(b4_tag_seen_flag, 0, | |
2017 | [[typedef int YYSTYPE; | |
2018 | # define YYSTYPE_IS_TRIVIAL 1]])])[ | |
050c471b PE |
2019 | # define yystype YYSTYPE /* obsolescent; will be withdrawn */ |
2020 | # define YYSTYPE_IS_DECLARED 1 | |
be2a1a68 AD |
2021 | #endif |
2022 | ||
9ca7f077 | 2023 | ]b4_pure_if([], [[extern YYSTYPE ]b4_prefix[lval;]]) |
be2a1a68 | 2024 | |
327afc7c | 2025 | b4_locations_if( |
02650b7f | 2026 | [#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED |
050c471b | 2027 | typedef struct YYLTYPE |
be2a1a68 AD |
2028 | { |
2029 | int first_line; | |
2030 | int first_column; | |
2031 | int last_line; | |
2032 | int last_column; | |
050c471b PE |
2033 | } YYLTYPE; |
2034 | # define yyltype YYLTYPE /* obsolescent; will be withdrawn */ | |
2035 | # define YYLTYPE_IS_DECLARED 1 | |
2036 | # define YYLTYPE_IS_TRIVIAL 1 | |
be2a1a68 | 2037 | #endif |
ff48177d | 2038 | |
9ca7f077 | 2039 | ]b4_pure_if([], [[extern YYLTYPE ]b4_prefix[lloc;]]) |
9bc0dd67 | 2040 | )dnl b4_locations_if |
9ca7f077 JD |
2041 | b4_push_if([[ |
2042 | #ifndef YYPUSH_DECLS | |
2043 | # define YYPUSH_DECLS | |
2044 | struct ]b4_prefix[pstate; | |
2045 | typedef struct ]b4_prefix[pstate ]b4_prefix[pstate; | |
2046 | enum { YYPUSH_MORE = 4 }; | |
2047 | ]b4_pull_if([b4_c_function_decl([b4_prefix[parse]], [[int]], b4_parse_param) | |
2048 | ])b4_c_function_decl([b4_prefix[push_parse]], [[int]], | |
2049 | [[b4_prefix[pstate *yyps]], [[yyps]]]b4_pure_if([, | |
2050 | [[[int yypushed_char]], [[yypushed_char]]], | |
2051 | [[[YYSTYPE const *yypushed_val]], [[yypushed_val]]]b4_locations_if([, | |
2052 | [[[YYLTYPE const *yypushed_loc]], [[yypushed_loc]]]])])m4_ifset([b4_parse_param], [, | |
2053 | b4_parse_param])) | |
2054 | b4_pull_if([b4_c_function_decl([b4_prefix[pull_parse]], [[int]], | |
2055 | [[b4_prefix[pstate *yyps]], [[yyps]]]m4_ifset([b4_parse_param], [, | |
2056 | b4_parse_param]))]) | |
2057 | b4_c_function_decl([b4_prefix[pstate_new]], [b4_prefix[pstate *]], | |
2058 | [[[void]], []]) | |
2059 | b4_c_function_decl([b4_prefix[pstate_delete]], [[void]], | |
2060 | [[b4_prefix[pstate *yyps]], [[yyps]]])[ | |
2061 | #endif | |
2062 | ]]) | |
2063 | b4_percent_code_get([[provides]])[]dnl | |
327afc7c | 2064 | ])dnl b4_defines_if |
08af01c2 | 2065 | m4_divert_pop(0) |
639867b5 | 2066 | m4_popdef([b4_copyright_years]) |