| blob | 62bd41561e813e02bf2eb3427937d47ff6f8b6fb |
1 %# -*-C-*- vi: set ft=c:
2 %# This file is processed in several stages.
3 %# Here are the stages, as best as I can describe:
4 %#
5 %# 1. flex.skl is processed through GNU m4 during the
6 %# pre-compilation stage of flex. Only macros starting
7 %# with `m4preproc_' are processed, and quoting is normal.
8 %#
9 %# 2. The preprocessed skeleton is translated verbatim into a
10 %# C array, saved as "skel.c" and compiled into the flex binary.
11 %#
12 %# 3. At runtime, the skeleton is generated and filtered (again)
13 %# through m4. Macros beginning with `m4_' will be processed.
14 %# The quoting is "[[" and "]]" so we don't interfere with
15 %# user code.
16 %#
17 %# All generate macros for the m4 stage contain the text "m4" or "M4"
18 %# in them. This is to distinguish them from CPP macros.
19 %# The exception to this rule is YY_G, which is an m4 macro,
20 %# but it needs to be remain short because it is used everywhere.
21 %#
22 /* A lexical scanner generated by flex */
24 %# Macros for preproc stage.
25 m4preproc_changecom
27 %# Macros for runtime processing stage.
28 m4_changecom
29 m4_changequote
30 m4_changequote([[, ]])
32 %#
33 %# Lines in this skeleton starting with a "%" character are "control lines"
34 %# and affect the generation of the scanner. The possible control codes are
35 %# listed and processed in misc.c.
36 %#
37 %# %# - A comment. The current line is omitted from the generated scanner.
38 %# %if-c++-only - The following lines are printed for C++ scanners ONLY.
39 %# %if-c-only - The following lines are NOT printed for C++ scanners.
40 %# %if-c-or-c++ - The following lines are printed in BOTH C and C++ scanners.
41 %# %if-reentrant - Print for reentrant scanners.(push)
42 %# %if-not-reentrant - Print for non-reentrant scanners. (push)
43 %# %if-bison-bridge - Print for bison-bridge. (push)
44 %# %if-not-bison-bridge - Print for non-bison-bridge. (push)
45 %# %endif - pop from the previous if code.
46 %# %% - A stop-point, where code is inserted by flex.
47 %# Each stop-point is numbered here and also in the code generator.
48 %# (See gen.c, etc. for details.)
49 %# %not-for-header - Begin code that should NOT appear in a ".h" file.
50 %# %ok-for-header - %c and %e are used for building a header file.
51 %# %if-tables-serialization
52 %#
53 %# All control-lines EXCEPT comment lines ("%#") will be inserted into
54 %# the generated scanner as a C-style comment. This is to aid those who
55 %# edit the skeleton.
56 %#
58 %not-for-header
59 %if-c-only
60 %if-not-reentrant
61 m4_ifelse(M4_YY_PREFIX,yy,,
62 #define yy_create_buffer M4_YY_PREFIX[[_create_buffer]]
63 #define yy_delete_buffer M4_YY_PREFIX[[_delete_buffer]]
64 #define yy_flex_debug M4_YY_PREFIX[[_flex_debug]]
65 #define yy_init_buffer M4_YY_PREFIX[[_init_buffer]]
66 #define yy_flush_buffer M4_YY_PREFIX[[_flush_buffer]]
67 #define yy_load_buffer_state M4_YY_PREFIX[[_load_buffer_state]]
68 #define yy_switch_to_buffer M4_YY_PREFIX[[_switch_to_buffer]]
69 #define yyin M4_YY_PREFIX[[in]]
70 #define yyleng M4_YY_PREFIX[[leng]]
71 #define yylex M4_YY_PREFIX[[lex]]
72 #define yylineno M4_YY_PREFIX[[lineno]]
73 #define yyout M4_YY_PREFIX[[out]]
74 #define yyrestart M4_YY_PREFIX[[restart]]
75 #define yytext M4_YY_PREFIX[[text]]
76 #define yywrap M4_YY_PREFIX[[wrap]]
77 #define yyalloc M4_YY_PREFIX[[alloc]]
78 #define yyrealloc M4_YY_PREFIX[[realloc]]
79 #define yyfree M4_YY_PREFIX[[free]]
80 )
81 %endif
82 %endif
83 %ok-for-header
85 #define FLEX_SCANNER
86 #define YY_FLEX_MAJOR_VERSION FLEX_MAJOR_VERSION
87 #define YY_FLEX_MINOR_VERSION FLEX_MINOR_VERSION
88 #define YY_FLEX_SUBMINOR_VERSION FLEX_SUBMINOR_VERSION
89 #if YY_FLEX_SUBMINOR_VERSION > 0
90 #define FLEX_BETA
91 #endif
93 %# Some negated symbols
94 m4_ifdef( [[M4_YY_IN_HEADER]], , [[m4_define([[M4_YY_NOT_IN_HEADER]], [[]])]])
95 m4_ifdef( [[M4_YY_REENTRANT]], , [[m4_define([[M4_YY_NOT_REENTRANT]], [[]])]])
97 %# This is the m4 way to say "(stack_used || is_reentrant)
98 m4_ifdef( [[M4_YY_STACK_USED]], [[m4_define([[M4_YY_HAS_START_STACK_VARS]])]])
99 m4_ifdef( [[M4_YY_REENTRANT]], [[m4_define([[M4_YY_HAS_START_STACK_VARS]])]])
101 %# Prefixes.
102 %# The complexity here is necessary so that m4 preserves
103 %# the argument lists to each C function.
106 m4_ifdef( [[M4_YY_PREFIX]],, [[m4_define([[M4_YY_PREFIX]], [[yy]])]])
108 m4preproc_define(`M4_GEN_PREFIX',
109 ``m4_define(yy[[$1]], [[M4_YY_PREFIX[[$1]]m4_ifelse($'`#,0,,[[($'`@)]])]])'')
111 %if-c++-only
112 /* The c++ scanner is a mess. The FlexLexer.h header file relies on the
113 * following macro. This is required in order to pass the c++-multiple-scanners
114 * test in the regression suite. We get reports that it breaks inheritance.
115 * We will address this in a future release of flex, or omit the C++ scanner
116 * altogether.
117 */
118 #define yyFlexLexer M4_YY_PREFIX[[FlexLexer]]
119 %endif
121 %if-c-only
122 M4_GEN_PREFIX(`_create_buffer')
123 M4_GEN_PREFIX(`_delete_buffer')
124 M4_GEN_PREFIX(`_scan_buffer')
125 M4_GEN_PREFIX(`_scan_string')
126 M4_GEN_PREFIX(`_scan_bytes')
127 M4_GEN_PREFIX(`_init_buffer')
128 M4_GEN_PREFIX(`_flush_buffer')
129 M4_GEN_PREFIX(`_load_buffer_state')
130 M4_GEN_PREFIX(`_switch_to_buffer')
131 M4_GEN_PREFIX(`push_buffer_state')
132 M4_GEN_PREFIX(`pop_buffer_state')
133 M4_GEN_PREFIX(`ensure_buffer_stack')
134 M4_GEN_PREFIX(`lex')
135 M4_GEN_PREFIX(`restart')
136 M4_GEN_PREFIX(`lex_init')
137 M4_GEN_PREFIX(`lex_init_extra')
138 M4_GEN_PREFIX(`lex_destroy')
139 M4_GEN_PREFIX(`get_debug')
140 M4_GEN_PREFIX(`set_debug')
141 M4_GEN_PREFIX(`get_extra')
142 M4_GEN_PREFIX(`set_extra')
143 M4_GEN_PREFIX(`get_in')
144 M4_GEN_PREFIX(`set_in')
145 M4_GEN_PREFIX(`get_out')
146 M4_GEN_PREFIX(`set_out')
147 M4_GEN_PREFIX(`get_leng')
148 M4_GEN_PREFIX(`get_text')
149 M4_GEN_PREFIX(`get_lineno')
150 M4_GEN_PREFIX(`set_lineno')
151 m4_ifdef( [[M4_YY_REENTRANT]],
152 [[
153 M4_GEN_PREFIX(`get_column')
154 M4_GEN_PREFIX(`set_column')
155 ]])
156 M4_GEN_PREFIX(`wrap')
157 %endif
159 m4_ifdef( [[M4_YY_BISON_LVAL]],
160 [[
161 M4_GEN_PREFIX(`get_lval')
162 M4_GEN_PREFIX(`set_lval')
163 ]])
165 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
166 [[
167 M4_GEN_PREFIX(`get_lloc')
168 M4_GEN_PREFIX(`set_lloc')
169 ]])
172 M4_GEN_PREFIX(`alloc')
173 M4_GEN_PREFIX(`realloc')
174 M4_GEN_PREFIX(`free')
176 %if-c-only
177 m4_ifdef( [[M4_YY_NOT_REENTRANT]],
178 [[
179 M4_GEN_PREFIX(`text')
180 M4_GEN_PREFIX(`leng')
181 M4_GEN_PREFIX(`in')
182 M4_GEN_PREFIX(`out')
183 M4_GEN_PREFIX(`_flex_debug')
184 M4_GEN_PREFIX(`lineno')
185 ]])
186 %endif
189 m4_ifdef( [[M4_YY_TABLES_EXTERNAL]],
190 [[
191 M4_GEN_PREFIX(`tables_fload')
192 M4_GEN_PREFIX(`tables_destroy')
193 M4_GEN_PREFIX(`TABLES_NAME')
194 ]])
196 /* First, we deal with platform-specific or compiler-specific issues. */
198 /* begin standard C headers. */
199 %if-c-only
200 #ifdef _LIBC
201 #include "namespace.h"
202 #endif
203 #include <stdio.h>
204 #include <string.h>
205 #include <errno.h>
206 #include <stdlib.h>
207 %endif
209 %if-tables-serialization
210 #include <sys/types.h>
211 #include <netinet/in.h>
212 %endif
213 /* end standard C headers. */
215 %if-c-or-c++
216 m4preproc_include(`flexint.h')
217 %endif
219 %if-c++-only
220 /* begin standard C++ headers. */
221 #ifdef _LIBC
222 #include "namespace.h"
223 #endif
224 #include <iostream>
225 #include <errno.h>
226 #include <cstdlib>
227 #include <cstdio>
228 #include <cstring>
229 /* end standard C++ headers. */
230 %endif
232 #ifdef __cplusplus
234 /* The "const" storage-class-modifier is valid. */
235 #define YY_USE_CONST
237 #else /* ! __cplusplus */
239 /* C99 requires __STDC__ to be defined as 1. */
240 #if defined (__STDC__)
242 #define YY_USE_CONST
244 #endif /* defined (__STDC__) */
245 #endif /* ! __cplusplus */
247 #ifdef YY_USE_CONST
248 #define yyconst const
249 #else
250 #define yyconst
251 #endif
253 %# For compilers that can not handle prototypes.
254 %# e.g.,
255 %# The function prototype
256 %# int foo(int x, char* y);
257 %#
258 %# ...should be written as
259 %# int foo M4_YY_PARAMS(int x, char* y);
260 %#
261 %# ...which could possibly generate
262 %# int foo ();
263 %#
264 m4_ifdef( [[M4_YY_NO_ANSI_FUNC_PROTOS]],
265 [[
266 m4_define( [[M4_YY_PARAMS]], [[()]])
267 ]],
268 [[
269 m4_define( [[M4_YY_PARAMS]], [[($*)]])
270 ]])
272 %not-for-header
273 /* Returned upon end-of-file. */
274 #define YY_NULL 0
275 %ok-for-header
277 %not-for-header
278 /* Promotes a possibly negative, possibly signed char to an unsigned
279 * integer for use as an array index. If the signed char is negative,
280 * we want to instead treat it as an 8-bit unsigned char, hence the
281 * double cast.
282 */
283 #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
284 %ok-for-header
288 %if-reentrant
290 /* An opaque pointer. */
291 #ifndef YY_TYPEDEF_YY_SCANNER_T
292 #define YY_TYPEDEF_YY_SCANNER_T
293 typedef void* yyscan_t;
294 #endif
296 %# Declare yyguts variable
297 m4_define( [[M4_YY_DECL_GUTS_VAR]], [[struct yyguts_t * yyg = (struct yyguts_t*)yyscanner]])
298 %# Perform a noop access on yyguts to prevent unused variable complains
299 m4_define( [[M4_YY_NOOP_GUTS_VAR]], [[(void)yyg]])
300 %# For use wherever a Global is accessed or assigned.
301 m4_define( [[YY_G]], [[yyg->$1]])
303 %# For use in function prototypes to append the additional argument.
304 m4_define( [[M4_YY_PROTO_LAST_ARG]], [[, yyscan_t yyscanner]])
305 m4_define( [[M4_YY_PROTO_ONLY_ARG]], [[yyscan_t yyscanner]])
307 %# For use in function definitions to append the additional argument.
308 m4_ifdef( [[M4_YY_NO_ANSI_FUNC_DEFS]],
309 [[
310 m4_define( [[M4_YY_DEF_LAST_ARG]], [[, yyscanner]])
311 m4_define( [[M4_YY_DEF_ONLY_ARG]], [[yyscanner]])
312 ]],
313 [[
314 m4_define( [[M4_YY_DEF_LAST_ARG]], [[, yyscan_t yyscanner]])
315 m4_define( [[M4_YY_DEF_ONLY_ARG]], [[yyscan_t yyscanner]])
316 ]])
317 m4_define( [[M4_YY_DECL_LAST_ARG]], [[yyscan_t yyscanner;]])
319 %# For use in function calls to pass the additional argument.
320 m4_define( [[M4_YY_CALL_LAST_ARG]], [[, yyscanner]])
321 m4_define( [[M4_YY_CALL_ONLY_ARG]], [[yyscanner]])
323 %# For use in function documentation to adjust for additional argument.
324 m4_define( [[M4_YY_DOC_PARAM]], [[@param yyscanner The scanner object.]])
326 /* For convenience, these vars (plus the bison vars far below)
327 are macros in the reentrant scanner. */
328 #define yyin YY_G(yyin_r)
329 #define yyout YY_G(yyout_r)
330 #define yyextra YY_G(yyextra_r)
331 #define yyleng YY_G(yyleng_r)
332 #define yytext YY_G(yytext_r)
333 #define yylineno (YY_CURRENT_BUFFER_LVALUE->yy_bs_lineno)
334 #define yycolumn (YY_CURRENT_BUFFER_LVALUE->yy_bs_column)
335 #define yy_flex_debug YY_G(yy_flex_debug_r)
337 m4_define( [[M4_YY_INCR_LINENO]],
338 [[
339 do{ yylineno++;
340 yycolumn=0;
341 }while(0)
342 ]])
344 %endif
348 %if-not-reentrant
350 m4_define( [[M4_YY_INCR_LINENO]],
351 [[
352 yylineno++;
353 ]])
355 %# Define these macros to be no-ops.
356 m4_define( [[M4_YY_DECL_GUTS_VAR]], [[m4_dnl]])
357 m4_define( [[M4_YY_NOOP_GUTS_VAR]], [[m4_dnl]])
358 m4_define( [[YY_G]], [[($1)]])
359 m4_define( [[M4_YY_PROTO_LAST_ARG]])
360 m4_define( [[M4_YY_PROTO_ONLY_ARG]], [[void]])
361 m4_define( [[M4_YY_DEF_LAST_ARG]])
363 m4_ifdef( [[M4_YY_NO_ANSI_FUNC_DEFS]],
364 [[
365 m4_define( [[M4_YY_DEF_ONLY_ARG]])
366 ]],
367 [[
368 m4_define( [[M4_YY_DEF_ONLY_ARG]], [[void]])
369 ]])
370 m4_define([[M4_YY_DECL_LAST_ARG]])
371 m4_define([[M4_YY_CALL_LAST_ARG]])
372 m4_define([[M4_YY_CALL_ONLY_ARG]])
373 m4_define( [[M4_YY_DOC_PARAM]], [[]])
375 %endif
378 m4_ifdef( [[M4_YY_NO_ANSI_FUNC_DEFS]],
379 [[
380 %# For compilers that need traditional function definitions.
381 %# e.g.,
382 %# The function prototype taking 2 arguments
383 %# int foo (int x, char* y)
384 %#
385 %# ...should be written as
386 %# int foo YYFARGS2(int,x, char*,y)
387 %#
388 %# ...which could possibly generate
389 %# int foo (x,y,yyscanner)
390 %# int x;
391 %# char * y;
392 %# yyscan_t yyscanner;
393 %#
394 %# Generate traditional function defs
395 m4_define( [[YYFARGS0]], [[(M4_YY_DEF_ONLY_ARG) [[\]]
396 M4_YY_DECL_LAST_ARG]])
397 m4_define( [[YYFARGS1]], [[($2 M4_YY_DEF_LAST_ARG) [[\]]
398 $1 $2; [[\]]
399 M4_YY_DECL_LAST_ARG]])
400 m4_define( [[YYFARGS2]], [[($2,$4 M4_YY_DEF_LAST_ARG) [[\]]
401 $1 $2; [[\]]
402 $3 $4; [[\]]
403 M4_YY_DECL_LAST_ARG]])
404 m4_define( [[YYFARGS3]], [[($2,$4,$6 M4_YY_DEF_LAST_ARG) [[\]]
405 $1 $2; [[\]]
406 $3 $4; [[\]]
407 $5 $6; [[\]]
408 M4_YY_DECL_LAST_ARG]])
409 ]],
410 [[
411 %# Generate C99 function defs.
412 m4_define( [[YYFARGS0]], [[(M4_YY_DEF_ONLY_ARG)]])
413 m4_define( [[YYFARGS1]], [[($1 $2 M4_YY_DEF_LAST_ARG)]])
414 m4_define( [[YYFARGS2]], [[($1 $2, $3 $4 M4_YY_DEF_LAST_ARG)]])
415 m4_define( [[YYFARGS3]], [[($1 $2, $3 $4, $5 $6 M4_YY_DEF_LAST_ARG)]])
416 ]])
418 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
419 [[
420 /* Enter a start condition. This macro really ought to take a parameter,
421 * but we do it the disgusting crufty way forced on us by the ()-less
422 * definition of BEGIN.
423 */
424 #define BEGIN YY_G(yy_start) = 1 + 2 *
425 ]])
427 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
428 [[
429 /* Translate the current start state into a value that can be later handed
430 * to BEGIN to return to the state. The YYSTATE alias is for lex
431 * compatibility.
432 */
433 #define YY_START ((YY_G(yy_start) - 1) / 2)
434 #define YYSTATE YY_START
435 ]])
437 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
438 [[
439 /* Action number for EOF rule of a given start state. */
440 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
441 ]])
443 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
444 [[
445 /* Special action meaning "start processing a new file". */
446 #define YY_NEW_FILE yyrestart( yyin M4_YY_CALL_LAST_ARG )
447 ]])
449 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
450 [[
451 #define YY_END_OF_BUFFER_CHAR 0
452 ]])
454 /* Size of default input buffer. */
455 #ifndef YY_BUF_SIZE
456 #define YY_BUF_SIZE 16384
457 #endif
459 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
460 [[
461 /* The state buf must be large enough to hold one state per character in the main buffer.
462 */
463 #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
464 ]])
467 #ifndef YY_TYPEDEF_YY_BUFFER_STATE
468 #define YY_TYPEDEF_YY_BUFFER_STATE
469 typedef struct yy_buffer_state *YY_BUFFER_STATE;
470 #endif
472 #ifndef YY_TYPEDEF_YY_SIZE_T
473 #define YY_TYPEDEF_YY_SIZE_T
474 typedef size_t yy_size_t;
475 #endif
477 %if-not-reentrant
478 extern yy_size_t yyleng;
479 %endif
481 %if-c-only
482 %if-not-reentrant
483 extern FILE *yyin, *yyout;
484 %endif
485 %endif
487 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
488 [[
489 #define EOB_ACT_CONTINUE_SCAN 0
490 #define EOB_ACT_END_OF_FILE 1
491 #define EOB_ACT_LAST_MATCH 2
492 ]])
494 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
495 [[
496 m4_ifdef( [[M4_YY_USE_LINENO]],
497 [[
498 /* Note: We specifically omit the test for yy_rule_can_match_eol because it requires
499 * access to the local variable yy_act. Since yyless() is a macro, it would break
500 * existing scanners that call yyless() from OUTSIDE yylex.
501 * One obvious solution it to make yy_act a global. I tried that, and saw
502 * a 5% performance hit in a non-yylineno scanner, because yy_act is
503 * normally declared as a register variable-- so it is not worth it.
504 */
505 #define YY_LESS_LINENO(n) \
506 do { \
507 int yyl;\
508 for ( yyl = n; yyl < yyleng; ++yyl )\
509 if ( yytext[yyl] == '\n' )\
510 --yylineno;\
511 }while(0)
512 ]],
513 [[
514 #define YY_LESS_LINENO(n)
515 ]])
516 ]])
518 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
519 [[
520 /* Return all but the first "n" matched characters back to the input stream. */
521 #define yyless(n) \
522 do \
523 { \
524 /* Undo effects of setting up yytext. */ \
525 int yyless_macro_arg = (n); \
526 YY_LESS_LINENO(yyless_macro_arg);\
527 *yy_cp = YY_G(yy_hold_char); \
528 YY_RESTORE_YY_MORE_OFFSET \
529 YY_G(yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
530 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
531 } \
532 while ( 0 )
533 ]])
535 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
536 [[
537 #define unput(c) yyunput( c, YY_G(yytext_ptr) M4_YY_CALL_LAST_ARG )
538 ]])
540 #ifndef YY_STRUCT_YY_BUFFER_STATE
541 #define YY_STRUCT_YY_BUFFER_STATE
542 struct yy_buffer_state
543 {
544 %if-c-only
545 FILE *yy_input_file;
546 %endif
548 %if-c++-only
549 std::istream* yy_input_file;
550 %endif
553 char *yy_ch_buf; /* input buffer */
554 char *yy_buf_pos; /* current position in input buffer */
556 /* Size of input buffer in bytes, not including room for EOB
557 * characters.
558 */
559 yy_size_t yy_buf_size;
561 /* Number of characters read into yy_ch_buf, not including EOB
562 * characters.
563 */
564 yy_size_t yy_n_chars;
566 /* Whether we "own" the buffer - i.e., we know we created it,
567 * and can realloc() it to grow it, and should free() it to
568 * delete it.
569 */
570 int yy_is_our_buffer;
572 /* Whether this is an "interactive" input source; if so, and
573 * if we're using stdio for input, then we want to use getc()
574 * instead of fread(), to make sure we stop fetching input after
575 * each newline.
576 */
577 int yy_is_interactive;
579 /* Whether we're considered to be at the beginning of a line.
580 * If so, '^' rules will be active on the next match, otherwise
581 * not.
582 */
583 int yy_at_bol;
585 int yy_bs_lineno; /**< The line count. */
586 int yy_bs_column; /**< The column count. */
589 /* Whether to try to fill the input buffer when we reach the
590 * end of it.
591 */
592 int yy_fill_buffer;
594 int yy_buffer_status;
595 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
596 [[
597 #define YY_BUFFER_NEW 0
598 #define YY_BUFFER_NORMAL 1
599 /* When an EOF's been seen but there's still some text to process
600 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
601 * shouldn't try reading from the input source any more. We might
602 * still have a bunch of tokens to match, though, because of
603 * possible backing-up.
604 *
605 * When we actually see the EOF, we change the status to "new"
606 * (via yyrestart()), so that the user can continue scanning by
607 * just pointing yyin at a new input file.
608 */
609 #define YY_BUFFER_EOF_PENDING 2
610 ]])
611 };
612 #endif /* !YY_STRUCT_YY_BUFFER_STATE */
614 %if-c-only Standard (non-C++) definition
615 %not-for-header
616 %if-not-reentrant
618 /* Stack of input buffers. */
619 static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
620 static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
621 static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
622 %endif
623 %ok-for-header
624 %endif
626 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
627 [[
628 /* We provide macros for accessing buffer states in case in the
629 * future we want to put the buffer states in a more general
630 * "scanner state".
631 *
632 * Returns the top of the stack, or NULL.
633 */
634 #define YY_CURRENT_BUFFER ( YY_G(yy_buffer_stack) \
635 ? YY_G(yy_buffer_stack)[YY_G(yy_buffer_stack_top)] \
636 : NULL)
637 ]])
639 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
640 [[
641 /* Same as previous macro, but useful when we know that the buffer stack is not
642 * NULL or when we need an lvalue. For internal use only.
643 */
644 #define YY_CURRENT_BUFFER_LVALUE YY_G(yy_buffer_stack)[YY_G(yy_buffer_stack_top)]
645 ]])
647 %if-c-only Standard (non-C++) definition
649 %if-not-reentrant
650 %not-for-header
651 /* yy_hold_char holds the character lost when yytext is formed. */
652 static char yy_hold_char;
653 static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */
654 yy_size_t yyleng;
656 /* Points to current character in buffer. */
657 static char *yy_c_buf_p = (char *) 0;
658 static int yy_init = 0; /* whether we need to initialize */
659 static int yy_start = 0; /* start state number */
661 /* Flag which is used to allow yywrap()'s to do buffer switches
662 * instead of setting up a fresh yyin. A bit of a hack ...
663 */
664 static int yy_did_buffer_switch_on_eof;
665 %ok-for-header
666 %endif
668 void yyrestart M4_YY_PARAMS( FILE *input_file M4_YY_PROTO_LAST_ARG );
669 void yy_switch_to_buffer M4_YY_PARAMS( YY_BUFFER_STATE new_buffer M4_YY_PROTO_LAST_ARG );
670 YY_BUFFER_STATE yy_create_buffer M4_YY_PARAMS( FILE *file, int size M4_YY_PROTO_LAST_ARG );
671 void yy_delete_buffer M4_YY_PARAMS( YY_BUFFER_STATE b M4_YY_PROTO_LAST_ARG );
672 void yy_flush_buffer M4_YY_PARAMS( YY_BUFFER_STATE b M4_YY_PROTO_LAST_ARG );
673 void yypush_buffer_state M4_YY_PARAMS( YY_BUFFER_STATE new_buffer M4_YY_PROTO_LAST_ARG );
674 void yypop_buffer_state M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
676 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
677 [[
678 static void yyensure_buffer_stack M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
679 static void yy_load_buffer_state M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
680 static void yy_init_buffer M4_YY_PARAMS( YY_BUFFER_STATE b, FILE *file M4_YY_PROTO_LAST_ARG );
681 ]])
683 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
684 [[
685 #define YY_FLUSH_BUFFER yy_flush_buffer( YY_CURRENT_BUFFER M4_YY_CALL_LAST_ARG)
686 ]])
688 YY_BUFFER_STATE yy_scan_buffer M4_YY_PARAMS( char *base, yy_size_t size M4_YY_PROTO_LAST_ARG );
689 YY_BUFFER_STATE yy_scan_string M4_YY_PARAMS( yyconst char *yy_str M4_YY_PROTO_LAST_ARG );
690 YY_BUFFER_STATE yy_scan_bytes M4_YY_PARAMS( yyconst char *bytes, yy_size_t len M4_YY_PROTO_LAST_ARG );
692 %endif
694 void *yyalloc M4_YY_PARAMS( yy_size_t M4_YY_PROTO_LAST_ARG );
695 void *yyrealloc M4_YY_PARAMS( void *, yy_size_t M4_YY_PROTO_LAST_ARG );
696 void yyfree M4_YY_PARAMS( void * M4_YY_PROTO_LAST_ARG );
698 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
699 [[
700 #define yy_new_buffer yy_create_buffer
701 ]])
703 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
704 [[
705 #define yy_set_interactive(is_interactive) \
706 { \
707 if ( ! YY_CURRENT_BUFFER ){ \
708 yyensure_buffer_stack (M4_YY_CALL_ONLY_ARG); \
709 YY_CURRENT_BUFFER_LVALUE = \
710 yy_create_buffer( yyin, YY_BUF_SIZE M4_YY_CALL_LAST_ARG); \
711 } \
712 YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
713 }
714 ]])
716 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
717 [[
718 #define yy_set_bol(at_bol) \
719 { \
720 if ( ! YY_CURRENT_BUFFER ){\
721 yyensure_buffer_stack (M4_YY_CALL_ONLY_ARG); \
722 YY_CURRENT_BUFFER_LVALUE = \
723 yy_create_buffer( yyin, YY_BUF_SIZE M4_YY_CALL_LAST_ARG); \
724 } \
725 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
726 }
727 ]])
729 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
730 [[
731 #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
732 ]])
734 %% [1.0] yytext/yyin/yyout/yy_state_type/yylineno etc. def's & init go here
736 %if-c-only Standard (non-C++) definition
738 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
739 [[
740 static yy_state_type yy_get_previous_state M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
741 static yy_state_type yy_try_NUL_trans M4_YY_PARAMS( yy_state_type current_state M4_YY_PROTO_LAST_ARG);
742 static int yy_get_next_buffer M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
743 #if defined(__GNUC__) && __GNUC__ >= 3
744 __attribute__((__noreturn__))
745 #endif
746 static void yy_fatal_error M4_YY_PARAMS( yyconst char msg[] M4_YY_PROTO_LAST_ARG );
747 ]])
749 %endif
751 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
752 [[
753 /* Done after the current pattern has been matched and before the
754 * corresponding action - sets up yytext.
755 */
756 #define YY_DO_BEFORE_ACTION \
757 YY_G(yytext_ptr) = yy_bp; \
758 %% [2.0] code to fiddle yytext and yyleng for yymore() goes here \
759 YY_G(yy_hold_char) = *yy_cp; \
760 *yy_cp = '\0'; \
761 %% [3.0] code to copy yytext_ptr to yytext[] goes here, if %array \
762 YY_G(yy_c_buf_p) = yy_cp;
763 ]])
765 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
766 [[
767 %% [4.0] data tables for the DFA and the user's section 1 definitions go here
768 ]])
770 m4_ifdef( [[M4_YY_IN_HEADER]], [[#ifdef YY_HEADER_EXPORT_START_CONDITIONS]])
771 M4_YY_SC_DEFS
772 m4_ifdef( [[M4_YY_IN_HEADER]], [[#endif]])
774 m4_ifdef( [[M4_YY_NO_UNISTD_H]],,
775 [[
776 #ifndef YY_NO_UNISTD_H
777 /* Special case for "unistd.h", since it is non-ANSI. We include it way
778 * down here because we want the user's section 1 to have been scanned first.
779 * The user has a chance to override it with an option.
780 */
781 %if-c-only
782 #include <unistd.h>
783 %endif
784 %if-c++-only
785 #include <unistd.h>
786 %endif
787 #endif
788 ]])
790 m4_ifdef( [[M4_EXTRA_TYPE_DEFS]],
791 [[
792 #define YY_EXTRA_TYPE M4_EXTRA_TYPE_DEFS
793 ]],
794 [[
795 #ifndef YY_EXTRA_TYPE
796 #define YY_EXTRA_TYPE void *
797 #endif
798 ]]
799 )
801 %if-c-only Reentrant structure and macros (non-C++).
802 %if-reentrant
804 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
805 [[
806 /* Holds the entire state of the reentrant scanner. */
807 struct yyguts_t
808 {
810 /* User-defined. Not touched by flex. */
811 YY_EXTRA_TYPE yyextra_r;
813 /* The rest are the same as the globals declared in the non-reentrant scanner. */
814 FILE *yyin_r, *yyout_r;
815 size_t yy_buffer_stack_top; /**< index of top of stack. */
816 size_t yy_buffer_stack_max; /**< capacity of stack. */
817 YY_BUFFER_STATE * yy_buffer_stack; /**< Stack as an array. */
818 char yy_hold_char;
819 yy_size_t yy_n_chars;
820 yy_size_t yyleng_r;
821 char *yy_c_buf_p;
822 int yy_init;
823 int yy_start;
824 int yy_did_buffer_switch_on_eof;
825 int yy_start_stack_ptr;
826 int yy_start_stack_depth;
827 int *yy_start_stack;
828 yy_state_type yy_last_accepting_state;
829 char* yy_last_accepting_cpos;
831 int yylineno_r;
832 int yy_flex_debug_r;
834 m4_ifdef( [[M4_YY_USES_REJECT]],
835 [[
836 yy_state_type *yy_state_buf;
837 yy_state_type *yy_state_ptr;
838 char *yy_full_match;
839 int yy_lp;
841 /* These are only needed for trailing context rules,
842 * but there's no conditional variable for that yet. */
843 int yy_looking_for_trail_begin;
844 int yy_full_lp;
845 int *yy_full_state;
846 ]])
848 m4_ifdef( [[M4_YY_TEXT_IS_ARRAY]],
849 [[
850 char yytext_r[YYLMAX];
851 char *yytext_ptr;
852 int yy_more_offset;
853 int yy_prev_more_offset;
854 ]],
855 [[
856 char *yytext_r;
857 int yy_more_flag;
858 int yy_more_len;
859 ]])
861 m4_ifdef( [[M4_YY_BISON_LVAL]],
862 [[
863 YYSTYPE * yylval_r;
864 ]])
866 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
867 [[
868 YYLTYPE * yylloc_r;
869 ]])
871 }; /* end struct yyguts_t */
872 ]])
875 %if-c-only
876 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
877 [[
878 static int yy_init_globals M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
879 ]])
880 %endif
882 %if-reentrant
884 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
885 [[
886 m4_ifdef( [[M4_YY_BISON_LVAL]],
887 [[
888 /* This must go here because YYSTYPE and YYLTYPE are included
889 * from bison output in section 1.*/
890 # define yylval YY_G(yylval_r)
891 ]])
893 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
894 [[
895 # define yylloc YY_G(yylloc_r)
896 ]])
897 ]])
899 int yylex_init M4_YY_PARAMS(yyscan_t* scanner);
901 int yylex_init_extra M4_YY_PARAMS( YY_EXTRA_TYPE user_defined, yyscan_t* scanner);
903 %endif
905 %endif End reentrant structures and macros.
907 /* Accessor methods to globals.
908 These are made visible to non-reentrant scanners for convenience. */
910 m4_ifdef( [[M4_YY_NO_DESTROY]],,
911 [[
912 int yylex_destroy M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
913 ]])
915 m4_ifdef( [[M4_YY_NO_GET_DEBUG]],,
916 [[
917 int yyget_debug M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
918 ]])
920 m4_ifdef( [[M4_YY_NO_SET_DEBUG]],,
921 [[
922 void yyset_debug M4_YY_PARAMS( int debug_flag M4_YY_PROTO_LAST_ARG );
923 ]])
925 m4_ifdef( [[M4_YY_NO_GET_EXTRA]],,
926 [[
927 YY_EXTRA_TYPE yyget_extra M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
928 ]])
930 m4_ifdef( [[M4_YY_NO_SET_EXTRA]],,
931 [[
932 void yyset_extra M4_YY_PARAMS( YY_EXTRA_TYPE user_defined M4_YY_PROTO_LAST_ARG );
933 ]])
935 m4_ifdef( [[M4_YY_NO_GET_IN]],,
936 [[
937 FILE *yyget_in M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
938 ]])
940 m4_ifdef( [[M4_YY_NO_SET_IN]],,
941 [[
942 void yyset_in M4_YY_PARAMS( FILE * _in_str M4_YY_PROTO_LAST_ARG );
943 ]])
945 m4_ifdef( [[M4_YY_NO_GET_OUT]],,
946 [[
947 FILE *yyget_out M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
948 ]])
950 m4_ifdef( [[M4_YY_NO_SET_OUT]],,
951 [[
952 void yyset_out M4_YY_PARAMS( FILE * _out_str M4_YY_PROTO_LAST_ARG );
953 ]])
955 m4_ifdef( [[M4_YY_NO_GET_LENG]],,
956 [[
957 yy_size_t yyget_leng M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
958 ]])
960 m4_ifdef( [[M4_YY_NO_GET_TEXT]],,
961 [[
962 char *yyget_text M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
963 ]])
965 m4_ifdef( [[M4_YY_NO_GET_LINENO]],,
966 [[
967 int yyget_lineno M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
968 ]])
970 m4_ifdef( [[M4_YY_NO_SET_LINENO]],,
971 [[
972 void yyset_lineno M4_YY_PARAMS( int _line_number M4_YY_PROTO_LAST_ARG );
973 ]])
975 m4_ifdef( [[M4_YY_REENTRANT]],
976 [[
977 m4_ifdef( [[M4_YY_NO_GET_COLUMN]],,
978 [[
979 int yyget_column M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
980 ]])
981 ]])
983 m4_ifdef( [[M4_YY_REENTRANT]],
984 [[
985 m4_ifdef( [[M4_YY_NO_SET_COLUMN]],,
986 [[
987 void yyset_column M4_YY_PARAMS( int column_no M4_YY_PROTO_LAST_ARG );
988 ]])
989 ]])
991 %if-bison-bridge
992 m4_ifdef( [[M4_YY_NO_GET_LVAL]],,
993 [[
994 YYSTYPE * yyget_lval M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
995 ]])
997 void yyset_lval M4_YY_PARAMS( YYSTYPE * yylval_param M4_YY_PROTO_LAST_ARG );
999 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
1000 [[
1001 m4_ifdef( [[M4_YY_NO_GET_LLOC]],,
1002 [[
1003 YYLTYPE *yyget_lloc M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
1004 ]])
1006 m4_ifdef( [[M4_YY_NO_SET_LLOC]],,
1007 [[
1008 void yyset_lloc M4_YY_PARAMS( YYLTYPE * yylloc_param M4_YY_PROTO_LAST_ARG );
1009 ]])
1010 ]])
1011 %endif
1013 /* Macros after this point can all be overridden by user definitions in
1014 * section 1.
1015 */
1017 #ifndef YY_SKIP_YYWRAP
1018 #ifdef __cplusplus
1019 extern "C" int yywrap M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
1020 #else
1021 extern int yywrap M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
1022 #endif
1023 #endif
1025 %not-for-header
1026 #ifndef YY_NO_UNPUT
1027 m4_ifdef( [[M4_YY_NO_UNPUT]],,
1028 [[
1029 static void yyunput M4_YY_PARAMS( int c, char *buf_ptr M4_YY_PROTO_LAST_ARG);
1030 ]])
1031 #endif
1032 %ok-for-header
1033 %endif
1035 #ifndef yytext_ptr
1036 static void yy_flex_strncpy M4_YY_PARAMS( char *, yyconst char *, int M4_YY_PROTO_LAST_ARG);
1037 #endif
1039 #ifdef YY_NEED_STRLEN
1040 static int yy_flex_strlen M4_YY_PARAMS( yyconst char * M4_YY_PROTO_LAST_ARG);
1041 #endif
1043 #ifndef YY_NO_INPUT
1044 %if-c-only Standard (non-C++) definition
1045 %not-for-header
1046 #ifdef __cplusplus
1047 static int yyinput M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
1048 #else
1049 static int input M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
1050 #endif
1051 %ok-for-header
1052 %endif
1053 #endif
1056 %if-c-only
1057 %# TODO: This is messy.
1058 m4_ifdef( [[M4_YY_STACK_USED]],
1059 [[
1061 m4_ifdef( [[M4_YY_NOT_REENTRANT]],
1062 [[
1063 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1064 [[
1065 static int yy_start_stack_ptr = 0;
1066 static int yy_start_stack_depth = 0;
1067 static int *yy_start_stack = NULL;
1068 ]])
1069 ]])
1071 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1072 [[
1073 m4_ifdef( [[M4_YY_NO_PUSH_STATE]],,
1074 [[
1075 static void yy_push_state M4_YY_PARAMS( int _new_state M4_YY_PROTO_LAST_ARG);
1076 ]])
1077 m4_ifdef( [[M4_YY_NO_POP_STATE]],,
1078 [[
1079 static void yy_pop_state M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
1080 ]])
1081 m4_ifdef( [[M4_YY_NO_TOP_STATE]],,
1082 [[
1083 static int yy_top_state M4_YY_PARAMS( M4_YY_PROTO_ONLY_ARG );
1084 ]])
1085 ]])
1087 ]],
1088 [[
1089 m4_define( [[M4_YY_NO_PUSH_STATE]])
1090 m4_define( [[M4_YY_NO_POP_STATE]])
1091 m4_define( [[M4_YY_NO_TOP_STATE]])
1092 ]])
1093 %endif
1095 /* Amount of stuff to slurp up with each read. */
1096 #ifndef YY_READ_BUF_SIZE
1097 #define YY_READ_BUF_SIZE 8192
1098 #endif
1100 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1101 [[
1102 /* Copy whatever the last rule matched to the standard output. */
1103 #ifndef ECHO
1104 %if-c-only Standard (non-C++) definition
1105 /* This used to be an fputs(), but since the string might contain NUL's,
1106 * we now use fwrite().
1107 */
1108 #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
1109 %endif
1110 %if-c++-only C++ definition
1111 #define ECHO LexerOutput( yytext, yyleng )
1112 %endif
1113 #endif
1114 ]])
1116 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1117 [[
1118 /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
1119 * is returned in "result".
1120 */
1121 #ifndef YY_INPUT
1122 #define YY_INPUT(buf,result,max_size) \
1123 %% [5.0] fread()/read() definition of YY_INPUT goes here unless we're doing C++ \
1124 \
1125 %if-c++-only C++ definition \
1126 if ( (int)(result = LexerInput( (char *) buf, max_size )) < 0 ) \
1127 YY_FATAL_ERROR( "input in flex scanner failed" );
1128 %endif
1130 #endif
1131 ]])
1133 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1134 [[
1135 /* No semi-colon after return; correct usage is to write "yyterminate();" -
1136 * we don't want an extra ';' after the "return" because that will cause
1137 * some compilers to complain about unreachable statements.
1138 */
1139 #ifndef yyterminate
1140 #define yyterminate() return YY_NULL
1141 #endif
1142 ]])
1144 /* Number of entries by which start-condition stack grows. */
1145 #ifndef YY_START_STACK_INCR
1146 #define YY_START_STACK_INCR 25
1147 #endif
1149 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1150 [[
1151 /* Report a fatal error. */
1152 #ifndef YY_FATAL_ERROR
1153 %if-c-only
1154 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg M4_YY_CALL_LAST_ARG)
1155 %endif
1156 %if-c++-only
1157 #define YY_FATAL_ERROR(msg) LexerError( msg )
1158 %endif
1159 #endif
1160 ]])
1162 %if-tables-serialization structures and prototypes
1163 m4preproc_include(`tables_shared.h')
1165 /* Load the DFA tables from the given stream. */
1166 int yytables_fload M4_YY_PARAMS(FILE * fp M4_YY_PROTO_LAST_ARG);
1168 /* Unload the tables from memory. */
1169 int yytables_destroy M4_YY_PARAMS(M4_YY_PROTO_ONLY_ARG);
1170 %not-for-header
1172 /** Describes a mapping from a serialized table id to its deserialized state in
1173 * this scanner. This is the bridge between our "generic" deserialization code
1174 * and the specifics of this scanner.
1175 */
1176 struct yytbl_dmap {
1177 enum yytbl_id dm_id;/**< table identifier */
1178 void **dm_arr; /**< address of pointer to store the deserialized table. */
1179 size_t dm_sz; /**< local sizeof() each element in table. */
1180 };
1182 /** A {0,0,0}-terminated list of structs, forming the map */
1183 static struct yytbl_dmap yydmap[] =
1184 {
1185 %tables-yydmap generated elements
1186 {0,0,0}
1187 };
1189 /** A tables-reader object to maintain some state in the read. */
1190 struct yytbl_reader {
1191 FILE * fp; /**< input stream */
1192 flex_uint32_t bread; /**< bytes read since beginning of current tableset */
1193 };
1195 %endif
1196 /* end tables serialization structures and prototypes */
1198 %ok-for-header
1200 /* Default declaration of generated scanner - a define so the user can
1201 * easily add parameters.
1202 */
1203 #ifndef YY_DECL
1204 #define YY_DECL_IS_OURS 1
1205 %if-c-only Standard (non-C++) definition
1208 m4_define( [[M4_YY_LEX_PROTO]], [[M4_YY_PARAMS(M4_YY_PROTO_ONLY_ARG)]])
1209 m4_define( [[M4_YY_LEX_DECLARATION]], [[YYFARGS0(void)]])
1211 m4_ifdef( [[M4_YY_BISON_LVAL]],
1212 [[
1213 m4_dnl The bison pure parser is used. Redefine yylex to
1214 m4_dnl accept the lval parameter.
1216 m4_define( [[M4_YY_LEX_PROTO]], [[\]]
1217 [[M4_YY_PARAMS(YYSTYPE * yylval_param M4_YY_PROTO_LAST_ARG)]])
1218 m4_define( [[M4_YY_LEX_DECLARATION]], [[\]]
1219 [[YYFARGS1(YYSTYPE *,yylval_param)]])
1220 ]])
1222 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
1223 [[
1224 m4_dnl Locations are used. yylex should also accept the ylloc parameter.
1226 m4_define( [[M4_YY_LEX_PROTO]], [[\]]
1227 [[M4_YY_PARAMS(YYSTYPE * yylval_param, YYLTYPE * yylloc_param M4_YY_PROTO_LAST_ARG)]])
1228 m4_define( [[M4_YY_LEX_DECLARATION]], [[\]]
1229 [[YYFARGS2(YYSTYPE *,yylval_param, YYLTYPE *,yylloc_param)]])
1230 ]])
1232 extern int yylex M4_YY_LEX_PROTO;
1234 #define YY_DECL int yylex M4_YY_LEX_DECLARATION
1235 %endif
1236 %if-c++-only C++ definition
1237 #define YY_DECL int yyFlexLexer::yylex()
1238 %endif
1239 #endif /* !YY_DECL */
1241 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1242 [[
1243 /* Code executed at the beginning of each rule, after yytext and yyleng
1244 * have been set up.
1245 */
1246 #ifndef YY_USER_ACTION
1247 #define YY_USER_ACTION
1248 #endif
1249 ]])
1251 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1252 [[
1253 /* Code executed at the end of each rule. */
1254 #ifndef YY_BREAK
1255 #define YY_BREAK /*LINTED*/break;
1256 #endif
1257 ]])
1259 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1260 [[
1261 %% [6.0] YY_RULE_SETUP definition goes here
1262 ]])
1264 %not-for-header
1265 /** The main scanner function which does all the work.
1266 */
1267 YY_DECL
1268 {
1269 register yy_state_type yy_current_state;
1270 register char *yy_cp, *yy_bp;
1271 register int yy_act;
1272 M4_YY_DECL_GUTS_VAR();
1274 m4_ifdef( [[M4_YY_NOT_REENTRANT]],
1275 [[
1276 m4_ifdef( [[M4_YY_BISON_LVAL]],
1277 [[
1278 YYSTYPE * yylval;
1279 ]])
1280 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
1281 [[
1282 YYLTYPE * yylloc;
1283 ]])
1284 ]])
1286 %% [7.0] user's declarations go here
1288 m4_ifdef( [[M4_YY_BISON_LVAL]],
1289 [[
1290 yylval = yylval_param;
1291 ]])
1293 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
1294 [[
1295 yylloc = yylloc_param;
1296 ]])
1298 if ( !YY_G(yy_init) )
1299 {
1300 YY_G(yy_init) = 1;
1302 #ifdef YY_USER_INIT
1303 YY_USER_INIT;
1304 #endif
1306 m4_ifdef( [[M4_YY_USES_REJECT]],
1307 [[
1308 /* Create the reject buffer large enough to save one state per allowed character. */
1309 if ( ! YY_G(yy_state_buf) )
1310 YY_G(yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE M4_YY_CALL_LAST_ARG);
1311 if ( ! YY_G(yy_state_buf) )
1312 YY_FATAL_ERROR( "out of dynamic memory in yylex()" );
1313 ]])
1315 if ( ! YY_G(yy_start) )
1316 YY_G(yy_start) = 1; /* first start state */
1318 if ( ! yyin )
1319 %if-c-only
1320 yyin = stdin;
1321 %endif
1322 %if-c++-only
1323 yyin = & std::cin;
1324 %endif
1326 if ( ! yyout )
1327 %if-c-only
1328 yyout = stdout;
1329 %endif
1330 %if-c++-only
1331 yyout = & std::cout;
1332 %endif
1334 if ( ! YY_CURRENT_BUFFER ) {
1335 yyensure_buffer_stack (M4_YY_CALL_ONLY_ARG);
1336 YY_CURRENT_BUFFER_LVALUE =
1337 yy_create_buffer( yyin, YY_BUF_SIZE M4_YY_CALL_LAST_ARG);
1338 }
1340 yy_load_buffer_state( M4_YY_CALL_ONLY_ARG );
1341 }
1343 while (/*CONSTCOND*/ 1 ) /* loops until end-of-file is reached */
1344 {
1345 %% [8.0] yymore()-related code goes here
1346 yy_cp = YY_G(yy_c_buf_p);
1348 /* Support of yytext. */
1349 *yy_cp = YY_G(yy_hold_char);
1351 /* yy_bp points to the position in yy_ch_buf of the start of
1352 * the current run.
1353 */
1354 yy_bp = yy_cp;
1356 %% [9.0] code to set up and find next match goes here
1358 yy_find_action:
1359 %% [10.0] code to find the action number goes here
1361 YY_DO_BEFORE_ACTION;
1363 %% [11.0] code for yylineno update goes here
1365 do_action: /* This label is used only to access EOF actions. */
1367 %% [12.0] debug code goes here
1369 switch ( yy_act )
1370 { /* beginning of action switch */
1371 %% [13.0] actions go here
1373 case YY_END_OF_BUFFER:
1374 {
1375 /* Amount of text matched not including the EOB char. */
1376 int yy_amount_of_matched_text = (int) (yy_cp - YY_G(yytext_ptr)) - 1;
1378 /* Undo the effects of YY_DO_BEFORE_ACTION. */
1379 *yy_cp = YY_G(yy_hold_char);
1380 YY_RESTORE_YY_MORE_OFFSET
1382 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
1383 {
1384 /* We're scanning a new file or input source. It's
1385 * possible that this happened because the user
1386 * just pointed yyin at a new source and called
1387 * yylex(). If so, then we have to assure
1388 * consistency between YY_CURRENT_BUFFER and our
1389 * globals. Here is the right place to do so, because
1390 * this is the first action (other than possibly a
1391 * back-up) that will match for the new input source.
1392 */
1393 YY_G(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
1394 YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
1395 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
1396 }
1398 /* Note that here we test for yy_c_buf_p "<=" to the position
1399 * of the first EOB in the buffer, since yy_c_buf_p will
1400 * already have been incremented past the NUL character
1401 * (since all states make transitions on EOB to the
1402 * end-of-buffer state). Contrast this with the test
1403 * in input().
1404 */
1405 if ( YY_G(yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[YY_G(yy_n_chars)] )
1406 { /* This was really a NUL. */
1407 yy_state_type yy_next_state;
1409 YY_G(yy_c_buf_p) = YY_G(yytext_ptr) + yy_amount_of_matched_text;
1411 yy_current_state = yy_get_previous_state( M4_YY_CALL_ONLY_ARG );
1413 /* Okay, we're now positioned to make the NUL
1414 * transition. We couldn't have
1415 * yy_get_previous_state() go ahead and do it
1416 * for us because it doesn't know how to deal
1417 * with the possibility of jamming (and we don't
1418 * want to build jamming into it because then it
1419 * will run more slowly).
1420 */
1422 yy_next_state = yy_try_NUL_trans( yy_current_state M4_YY_CALL_LAST_ARG);
1424 yy_bp = YY_G(yytext_ptr) + YY_MORE_ADJ;
1426 if ( yy_next_state )
1427 {
1428 /* Consume the NUL. */
1429 yy_cp = ++YY_G(yy_c_buf_p);
1430 yy_current_state = yy_next_state;
1431 goto yy_match;
1432 }
1434 else
1435 {
1436 %% [14.0] code to do back-up for compressed tables and set up yy_cp goes here
1437 goto yy_find_action;
1438 }
1439 }
1441 else switch ( yy_get_next_buffer( M4_YY_CALL_ONLY_ARG ) )
1442 {
1443 case EOB_ACT_END_OF_FILE:
1444 {
1445 YY_G(yy_did_buffer_switch_on_eof) = 0;
1447 if ( yywrap( M4_YY_CALL_ONLY_ARG ) )
1448 {
1449 /* Note: because we've taken care in
1450 * yy_get_next_buffer() to have set up
1451 * yytext, we can now set up
1452 * yy_c_buf_p so that if some total
1453 * hoser (like flex itself) wants to
1454 * call the scanner after we return the
1455 * YY_NULL, it'll still work - another
1456 * YY_NULL will get returned.
1457 */
1458 YY_G(yy_c_buf_p) = YY_G(yytext_ptr) + YY_MORE_ADJ;
1460 yy_act = YY_STATE_EOF(YY_START);
1461 goto do_action;
1462 }
1464 else
1465 {
1466 if ( ! YY_G(yy_did_buffer_switch_on_eof) )
1467 YY_NEW_FILE;
1468 }
1469 break;
1470 }
1472 case EOB_ACT_CONTINUE_SCAN:
1473 YY_G(yy_c_buf_p) =
1474 YY_G(yytext_ptr) + yy_amount_of_matched_text;
1476 yy_current_state = yy_get_previous_state( M4_YY_CALL_ONLY_ARG );
1478 yy_cp = YY_G(yy_c_buf_p);
1479 yy_bp = YY_G(yytext_ptr) + YY_MORE_ADJ;
1480 goto yy_match;
1482 case EOB_ACT_LAST_MATCH:
1483 YY_G(yy_c_buf_p) =
1484 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[YY_G(yy_n_chars)];
1486 yy_current_state = yy_get_previous_state( M4_YY_CALL_ONLY_ARG );
1488 yy_cp = YY_G(yy_c_buf_p);
1489 yy_bp = YY_G(yytext_ptr) + YY_MORE_ADJ;
1490 goto yy_find_action;
1491 }
1492 break;
1493 }
1495 default:
1496 YY_FATAL_ERROR(
1497 "fatal flex scanner internal error--no action found" );
1498 } /* end of action switch */
1499 } /* end of scanning one token */
1500 } /* end of yylex */
1501 %ok-for-header
1503 %if-c++-only
1504 %not-for-header
1505 /* The contents of this function are C++ specific, so the YY_G macro is not used.
1506 */
1507 yyFlexLexer::yyFlexLexer( std::istream* arg_yyin, std::ostream* arg_yyout )
1508 {
1509 yyin = arg_yyin;
1510 yyout = arg_yyout;
1511 yy_c_buf_p = 0;
1512 yy_init = 0;
1513 yy_start = 0;
1514 yy_flex_debug = 0;
1515 yylineno = 1; // this will only get updated if %option yylineno
1517 yy_did_buffer_switch_on_eof = 0;
1519 yy_looking_for_trail_begin = 0;
1520 yy_more_flag = 0;
1521 yy_more_len = 0;
1522 yy_more_offset = yy_prev_more_offset = 0;
1524 yy_start_stack_ptr = yy_start_stack_depth = 0;
1525 yy_start_stack = NULL;
1527 yy_buffer_stack = 0;
1528 yy_buffer_stack_top = 0;
1529 yy_buffer_stack_max = 0;
1532 m4_ifdef( [[M4_YY_USES_REJECT]],
1533 [[
1534 yy_state_buf = new yy_state_type[YY_STATE_BUF_SIZE];
1535 ]],
1536 [[
1537 yy_state_buf = 0;
1538 ]])
1539 }
1541 /* The contents of this function are C++ specific, so the YY_G macro is not used.
1542 */
1543 yyFlexLexer::~yyFlexLexer()
1544 {
1545 delete [] yy_state_buf;
1546 yyfree( yy_start_stack M4_YY_CALL_LAST_ARG );
1547 yy_delete_buffer( YY_CURRENT_BUFFER M4_YY_CALL_LAST_ARG);
1548 yyfree( yy_buffer_stack M4_YY_CALL_LAST_ARG );
1549 }
1551 /* The contents of this function are C++ specific, so the YY_G macro is not used.
1552 */
1553 void yyFlexLexer::switch_streams( std::istream* new_in, std::ostream* new_out )
1554 {
1555 if ( new_in )
1556 {
1557 yy_delete_buffer( YY_CURRENT_BUFFER M4_YY_CALL_LAST_ARG);
1558 yy_switch_to_buffer( yy_create_buffer( new_in, YY_BUF_SIZE M4_YY_CALL_LAST_ARG) M4_YY_CALL_LAST_ARG);
1559 }
1561 if ( new_out )
1562 yyout = new_out;
1563 }
1565 #ifdef YY_INTERACTIVE
1566 int yyFlexLexer::LexerInput( char* buf, int /* max_size */ )
1567 #else
1568 int yyFlexLexer::LexerInput( char* buf, int max_size )
1569 #endif
1570 {
1571 if ( yyin->eof() || yyin->fail() )
1572 return 0;
1574 #ifdef YY_INTERACTIVE
1575 yyin->get( buf[0] );
1577 if ( yyin->eof() )
1578 return 0;
1580 if ( yyin->bad() )
1581 return -1;
1583 return 1;
1585 #else
1586 (void) yyin->read( buf, max_size );
1588 if ( yyin->bad() )
1589 return -1;
1590 else
1591 return yyin->gcount();
1592 #endif
1593 }
1595 void yyFlexLexer::LexerOutput( const char* buf, int size )
1596 {
1597 (void) yyout->write( buf, size );
1598 }
1599 %ok-for-header
1600 %endif
1602 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
1603 [[
1604 /* yy_get_next_buffer - try to read in a new buffer
1605 *
1606 * Returns a code representing an action:
1607 * EOB_ACT_LAST_MATCH -
1608 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
1609 * EOB_ACT_END_OF_FILE - end of file
1610 */
1611 %if-c-only
1612 static int yy_get_next_buffer YYFARGS0(void)
1613 %endif
1614 %if-c++-only
1615 int yyFlexLexer::yy_get_next_buffer()
1616 %endif
1617 {
1618 M4_YY_DECL_GUTS_VAR();
1619 register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
1620 register char *source = YY_G(yytext_ptr);
1621 register int number_to_move, i;
1622 int ret_val;
1624 if ( YY_G(yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[YY_G(yy_n_chars) + 1] )
1625 YY_FATAL_ERROR(
1626 "fatal flex scanner internal error--end of buffer missed" );
1628 if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
1629 { /* Don't try to fill the buffer, so this is an EOF. */
1630 if ( YY_G(yy_c_buf_p) - YY_G(yytext_ptr) - YY_MORE_ADJ == 1 )
1631 {
1632 /* We matched a single character, the EOB, so
1633 * treat this as a final EOF.
1634 */
1635 return EOB_ACT_END_OF_FILE;
1636 }
1638 else
1639 {
1640 /* We matched some text prior to the EOB, first
1641 * process it.
1642 */
1643 return EOB_ACT_LAST_MATCH;
1644 }
1645 }
1647 /* Try to read more data. */
1649 /* First move last chars to start of buffer. */
1650 number_to_move = (int) (YY_G(yy_c_buf_p) - YY_G(yytext_ptr)) - 1;
1652 for ( i = 0; i < number_to_move; ++i )
1653 *(dest++) = *(source++);
1655 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
1656 /* don't do the read, it's not guaranteed to return an EOF,
1657 * just force an EOF
1658 */
1659 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = YY_G(yy_n_chars) = 0;
1661 else
1662 {
1663 yy_size_t num_to_read =
1664 YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
1666 while ( num_to_read <= 0 )
1667 { /* Not enough room in the buffer - grow it. */
1668 m4_ifdef( [[M4_YY_USES_REJECT]],
1669 [[
1670 YY_FATAL_ERROR(
1671 "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
1672 ]],
1673 [[
1674 /* just a shorter name for the current buffer */
1675 YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
1677 int yy_c_buf_p_offset =
1678 (int) (YY_G(yy_c_buf_p) - b->yy_ch_buf);
1680 if ( b->yy_is_our_buffer )
1681 {
1682 yy_size_t new_size = b->yy_buf_size * 2;
1684 if ( new_size <= 0 )
1685 b->yy_buf_size += b->yy_buf_size / 8;
1686 else
1687 b->yy_buf_size *= 2;
1689 b->yy_ch_buf = (char *)
1690 /* Include room in for 2 EOB chars. */
1691 yyrealloc( (void *) b->yy_ch_buf,
1692 b->yy_buf_size + 2 M4_YY_CALL_LAST_ARG );
1693 }
1694 else
1695 /* Can't grow it, we don't own it. */
1696 b->yy_ch_buf = 0;
1698 if ( ! b->yy_ch_buf )
1699 YY_FATAL_ERROR(
1700 "fatal error - scanner input buffer overflow" );
1702 YY_G(yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
1704 num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
1705 number_to_move - 1;
1706 ]])
1707 }
1709 if ( num_to_read > YY_READ_BUF_SIZE )
1710 num_to_read = YY_READ_BUF_SIZE;
1712 /* Read in more data. */
1713 YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
1714 YY_G(yy_n_chars), num_to_read );
1716 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = YY_G(yy_n_chars);
1717 }
1719 if ( YY_G(yy_n_chars) == 0 )
1720 {
1721 if ( number_to_move == YY_MORE_ADJ )
1722 {
1723 ret_val = EOB_ACT_END_OF_FILE;
1724 yyrestart( yyin M4_YY_CALL_LAST_ARG);
1725 }
1727 else
1728 {
1729 ret_val = EOB_ACT_LAST_MATCH;
1730 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
1731 YY_BUFFER_EOF_PENDING;
1732 }
1733 }
1735 else
1736 ret_val = EOB_ACT_CONTINUE_SCAN;
1738 if ((yy_size_t) (YY_G(yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
1739 /* Extend the array by 50%, plus the number we really need. */
1740 yy_size_t new_size = YY_G(yy_n_chars) + number_to_move + (YY_G(yy_n_chars) >> 1);
1741 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc(
1742 (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, new_size M4_YY_CALL_LAST_ARG );
1743 if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
1744 YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
1745 }
1747 YY_G(yy_n_chars) += number_to_move;
1748 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[YY_G(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
1749 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[YY_G(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
1751 YY_G(yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
1753 return ret_val;
1754 }
1755 ]])
1757 /* yy_get_previous_state - get the state just before the EOB char was reached */
1759 %if-c-only
1760 %not-for-header
1761 static yy_state_type yy_get_previous_state YYFARGS0(void)
1762 %endif
1763 %if-c++-only
1764 yy_state_type yyFlexLexer::yy_get_previous_state()
1765 %endif
1766 {
1767 register yy_state_type yy_current_state;
1768 register char *yy_cp;
1769 M4_YY_DECL_GUTS_VAR();
1771 %% [15.0] code to get the start state into yy_current_state goes here
1773 for ( yy_cp = YY_G(yytext_ptr) + YY_MORE_ADJ; yy_cp < YY_G(yy_c_buf_p); ++yy_cp )
1774 {
1775 %% [16.0] code to find the next state goes here
1776 }
1778 return yy_current_state;
1779 }
1782 /* yy_try_NUL_trans - try to make a transition on the NUL character
1783 *
1784 * synopsis
1785 * next_state = yy_try_NUL_trans( current_state );
1786 */
1787 %if-c-only
1788 static yy_state_type yy_try_NUL_trans YYFARGS1( yy_state_type, yy_current_state)
1789 %endif
1790 %if-c++-only
1791 yy_state_type yyFlexLexer::yy_try_NUL_trans( yy_state_type yy_current_state )
1792 %endif
1793 {
1794 register int yy_is_jam;
1795 M4_YY_DECL_GUTS_VAR(); /* This var may be unused depending upon options. */
1796 %% [17.0] code to find the next state, and perhaps do backing up, goes here
1798 M4_YY_NOOP_GUTS_VAR();
1799 return yy_is_jam ? 0 : yy_current_state;
1800 }
1803 #ifndef YY_NO_UNPUT
1804 %if-c-only
1805 m4_ifdef( [[M4_YY_NO_UNPUT]],,
1806 [[
1807 static void yyunput YYFARGS2( int,c, register char *,yy_bp)
1808 %endif
1809 %if-c++-only
1810 void yyFlexLexer::yyunput( int c, register char* yy_bp)
1811 %endif
1812 {
1813 register char *yy_cp;
1814 M4_YY_DECL_GUTS_VAR();
1816 yy_cp = YY_G(yy_c_buf_p);
1818 /* undo effects of setting up yytext */
1819 *yy_cp = YY_G(yy_hold_char);
1821 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
1822 { /* need to shift things up to make room */
1823 /* +2 for EOB chars. */
1824 register yy_size_t number_to_move = YY_G(yy_n_chars) + 2;
1825 register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
1826 YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
1827 register char *source =
1828 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
1830 while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
1831 *--dest = *--source;
1833 yy_cp += (int) (dest - source);
1834 yy_bp += (int) (dest - source);
1835 YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
1836 YY_G(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
1838 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
1839 YY_FATAL_ERROR( "flex scanner push-back overflow" );
1840 }
1842 *--yy_cp = (char) c;
1844 %% [18.0] update yylineno here
1845 m4_ifdef( [[M4_YY_USE_LINENO]],
1846 [[
1847 if ( c == '\n' ){
1848 --yylineno;
1849 }
1850 ]])
1852 YY_G(yytext_ptr) = yy_bp;
1853 YY_G(yy_hold_char) = *yy_cp;
1854 YY_G(yy_c_buf_p) = yy_cp;
1855 }
1856 %if-c-only
1857 ]])
1858 %endif
1859 #endif
1861 %if-c-only
1862 #ifndef YY_NO_INPUT
1863 #ifdef __cplusplus
1864 static int yyinput YYFARGS0(void)
1865 #else
1866 static int input YYFARGS0(void)
1867 #endif
1869 %endif
1870 %if-c++-only
1871 int yyFlexLexer::yyinput()
1872 %endif
1873 {
1874 int c;
1875 M4_YY_DECL_GUTS_VAR();
1877 *YY_G(yy_c_buf_p) = YY_G(yy_hold_char);
1879 if ( *YY_G(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
1880 {
1881 /* yy_c_buf_p now points to the character we want to return.
1882 * If this occurs *before* the EOB characters, then it's a
1883 * valid NUL; if not, then we've hit the end of the buffer.
1884 */
1885 if ( YY_G(yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[YY_G(yy_n_chars)] )
1886 /* This was really a NUL. */
1887 *YY_G(yy_c_buf_p) = '\0';
1889 else
1890 { /* need more input */
1891 yy_size_t offset = YY_G(yy_c_buf_p) - YY_G(yytext_ptr);
1892 ++YY_G(yy_c_buf_p);
1894 switch ( yy_get_next_buffer( M4_YY_CALL_ONLY_ARG ) )
1895 {
1896 case EOB_ACT_LAST_MATCH:
1897 /* This happens because yy_g_n_b()
1898 * sees that we've accumulated a
1899 * token and flags that we need to
1900 * try matching the token before
1901 * proceeding. But for input(),
1902 * there's no matching to consider.
1903 * So convert the EOB_ACT_LAST_MATCH
1904 * to EOB_ACT_END_OF_FILE.
1905 */
1907 /* Reset buffer status. */
1908 yyrestart( yyin M4_YY_CALL_LAST_ARG);
1910 /*FALLTHROUGH*/
1912 case EOB_ACT_END_OF_FILE:
1913 {
1914 if ( yywrap( M4_YY_CALL_ONLY_ARG ) )
1915 return EOF;
1917 if ( ! YY_G(yy_did_buffer_switch_on_eof) )
1918 YY_NEW_FILE;
1919 #ifdef __cplusplus
1920 return yyinput(M4_YY_CALL_ONLY_ARG);
1921 #else
1922 return input(M4_YY_CALL_ONLY_ARG);
1923 #endif
1924 }
1926 case EOB_ACT_CONTINUE_SCAN:
1927 YY_G(yy_c_buf_p) = YY_G(yytext_ptr) + offset;
1928 break;
1929 }
1930 }
1931 }
1933 c = *(unsigned char *) YY_G(yy_c_buf_p); /* cast for 8-bit char's */
1934 *YY_G(yy_c_buf_p) = '\0'; /* preserve yytext */
1935 YY_G(yy_hold_char) = *++YY_G(yy_c_buf_p);
1937 %% [19.0] update BOL and yylineno
1939 return c;
1940 }
1941 %if-c-only
1942 #endif /* ifndef YY_NO_INPUT */
1943 %endif
1945 /** Immediately switch to a different input stream.
1946 * @param input_file A readable stream.
1947 * M4_YY_DOC_PARAM
1948 * @note This function does not reset the start condition to @c INITIAL .
1949 */
1950 %if-c-only
1951 void yyrestart YYFARGS1( FILE *,input_file)
1952 %endif
1953 %if-c++-only
1954 void yyFlexLexer::yyrestart( std::istream* input_file )
1955 %endif
1956 {
1957 M4_YY_DECL_GUTS_VAR();
1959 if ( ! YY_CURRENT_BUFFER ){
1960 yyensure_buffer_stack (M4_YY_CALL_ONLY_ARG);
1961 YY_CURRENT_BUFFER_LVALUE =
1962 yy_create_buffer( yyin, YY_BUF_SIZE M4_YY_CALL_LAST_ARG);
1963 }
1965 yy_init_buffer( YY_CURRENT_BUFFER, input_file M4_YY_CALL_LAST_ARG);
1966 yy_load_buffer_state( M4_YY_CALL_ONLY_ARG );
1967 }
1969 /** Switch to a different input buffer.
1970 * @param new_buffer The new input buffer.
1971 * M4_YY_DOC_PARAM
1972 */
1973 %if-c-only
1974 void yy_switch_to_buffer YYFARGS1( YY_BUFFER_STATE ,new_buffer)
1975 %endif
1976 %if-c++-only
1977 void yyFlexLexer::yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
1978 %endif
1979 {
1980 M4_YY_DECL_GUTS_VAR();
1982 /* TODO. We should be able to replace this entire function body
1983 * with
1984 * yypop_buffer_state();
1985 * yypush_buffer_state(new_buffer);
1986 */
1987 yyensure_buffer_stack (M4_YY_CALL_ONLY_ARG);
1988 if ( YY_CURRENT_BUFFER == new_buffer )
1989 return;
1991 if ( YY_CURRENT_BUFFER )
1992 {
1993 /* Flush out information for old buffer. */
1994 *YY_G(yy_c_buf_p) = YY_G(yy_hold_char);
1995 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = YY_G(yy_c_buf_p);
1996 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = YY_G(yy_n_chars);
1997 }
1999 YY_CURRENT_BUFFER_LVALUE = new_buffer;
2000 yy_load_buffer_state( M4_YY_CALL_ONLY_ARG );
2002 /* We don't actually know whether we did this switch during
2003 * EOF (yywrap()) processing, but the only time this flag
2004 * is looked at is after yywrap() is called, so it's safe
2005 * to go ahead and always set it.
2006 */
2007 YY_G(yy_did_buffer_switch_on_eof) = 1;
2008 }
2011 %if-c-only
2012 static void yy_load_buffer_state YYFARGS0(void)
2013 %endif
2014 %if-c++-only
2015 void yyFlexLexer::yy_load_buffer_state()
2016 %endif
2017 {
2018 M4_YY_DECL_GUTS_VAR();
2019 YY_G(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
2020 YY_G(yytext_ptr) = YY_G(yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
2021 yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
2022 YY_G(yy_hold_char) = *YY_G(yy_c_buf_p);
2023 }
2025 /** Allocate and initialize an input buffer state.
2026 * @param file A readable stream.
2027 * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
2028 * M4_YY_DOC_PARAM
2029 * @return the allocated buffer state.
2030 */
2031 %if-c-only
2032 YY_BUFFER_STATE yy_create_buffer YYFARGS2( FILE *,file, int ,size)
2033 %endif
2034 %if-c++-only
2035 YY_BUFFER_STATE yyFlexLexer::yy_create_buffer( std::istream* file, int size )
2036 %endif
2037 {
2038 YY_BUFFER_STATE b;
2039 m4_dnl M4_YY_DECL_GUTS_VAR();
2041 b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) M4_YY_CALL_LAST_ARG );
2042 if ( ! b )
2043 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2045 b->yy_buf_size = size;
2047 /* yy_ch_buf has to be 2 characters longer than the size given because
2048 * we need to put in 2 end-of-buffer characters.
2049 */
2050 b->yy_ch_buf = (char *) yyalloc( b->yy_buf_size + 2 M4_YY_CALL_LAST_ARG );
2051 if ( ! b->yy_ch_buf )
2052 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2054 b->yy_is_our_buffer = 1;
2056 yy_init_buffer( b, file M4_YY_CALL_LAST_ARG);
2058 return b;
2059 }
2061 /** Destroy the buffer.
2062 * @param b a buffer created with yy_create_buffer()
2063 * M4_YY_DOC_PARAM
2064 */
2065 %if-c-only
2066 void yy_delete_buffer YYFARGS1( YY_BUFFER_STATE ,b)
2067 %endif
2068 %if-c++-only
2069 void yyFlexLexer::yy_delete_buffer( YY_BUFFER_STATE b )
2070 %endif
2071 {
2072 M4_YY_DECL_GUTS_VAR();
2074 if ( ! b )
2075 return;
2077 if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
2078 YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
2080 if ( b->yy_is_our_buffer )
2081 yyfree( (void *) b->yy_ch_buf M4_YY_CALL_LAST_ARG );
2083 yyfree( (void *) b M4_YY_CALL_LAST_ARG );
2084 }
2087 /* Initializes or reinitializes a buffer.
2088 * This function is sometimes called more than once on the same buffer,
2089 * such as during a yyrestart() or at EOF.
2090 */
2091 %if-c-only
2092 static void yy_init_buffer YYFARGS2( YY_BUFFER_STATE ,b, FILE *,file)
2093 %endif
2094 %if-c++-only
2095 void yyFlexLexer::yy_init_buffer( YY_BUFFER_STATE b, std::istream* file )
2096 %endif
2098 {
2099 int oerrno = errno;
2100 M4_YY_DECL_GUTS_VAR();
2102 yy_flush_buffer( b M4_YY_CALL_LAST_ARG);
2104 b->yy_input_file = file;
2105 b->yy_fill_buffer = 1;
2107 /* If b is the current buffer, then yy_init_buffer was _probably_
2108 * called from yyrestart() or through yy_get_next_buffer.
2109 * In that case, we don't want to reset the lineno or column.
2110 */
2111 if (b != YY_CURRENT_BUFFER){
2112 b->yy_bs_lineno = 1;
2113 b->yy_bs_column = 0;
2114 }
2116 %if-c-only
2117 m4_ifdef( [[M4_YY_ALWAYS_INTERACTIVE]],
2118 [[
2119 b->yy_is_interactive = 1;
2120 ]],
2121 [[
2122 m4_ifdef( [[M4_YY_NEVER_INTERACTIVE]],
2123 [[
2124 b->yy_is_interactive = 0;
2125 ]],
2126 [[
2127 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
2128 ]])
2129 ]])
2130 %endif
2131 %if-c++-only
2132 b->yy_is_interactive = 0;
2133 %endif
2134 errno = oerrno;
2135 }
2137 /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
2138 * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
2139 * M4_YY_DOC_PARAM
2140 */
2141 %if-c-only
2142 void yy_flush_buffer YYFARGS1( YY_BUFFER_STATE ,b)
2143 %endif
2144 %if-c++-only
2145 void yyFlexLexer::yy_flush_buffer( YY_BUFFER_STATE b )
2146 %endif
2147 {
2148 M4_YY_DECL_GUTS_VAR();
2149 if ( ! b )
2150 return;
2152 b->yy_n_chars = 0;
2154 /* We always need two end-of-buffer characters. The first causes
2155 * a transition to the end-of-buffer state. The second causes
2156 * a jam in that state.
2157 */
2158 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
2159 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
2161 b->yy_buf_pos = &b->yy_ch_buf[0];
2163 b->yy_at_bol = 1;
2164 b->yy_buffer_status = YY_BUFFER_NEW;
2166 if ( b == YY_CURRENT_BUFFER )
2167 yy_load_buffer_state( M4_YY_CALL_ONLY_ARG );
2168 }
2170 %if-c-or-c++
2171 /** Pushes the new state onto the stack. The new state becomes
2172 * the current state. This function will allocate the stack
2173 * if necessary.
2174 * @param new_buffer The new state.
2175 * M4_YY_DOC_PARAM
2176 */
2177 %if-c-only
2178 void yypush_buffer_state YYFARGS1(YY_BUFFER_STATE,new_buffer)
2179 %endif
2180 %if-c++-only
2181 void yyFlexLexer::yypush_buffer_state (YY_BUFFER_STATE new_buffer)
2182 %endif
2183 {
2184 M4_YY_DECL_GUTS_VAR();
2185 if (new_buffer == NULL)
2186 return;
2188 yyensure_buffer_stack(M4_YY_CALL_ONLY_ARG);
2190 /* This block is copied from yy_switch_to_buffer. */
2191 if ( YY_CURRENT_BUFFER )
2192 {
2193 /* Flush out information for old buffer. */
2194 *YY_G(yy_c_buf_p) = YY_G(yy_hold_char);
2195 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = YY_G(yy_c_buf_p);
2196 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = YY_G(yy_n_chars);
2197 }
2199 /* Only push if top exists. Otherwise, replace top. */
2200 if (YY_CURRENT_BUFFER)
2201 YY_G(yy_buffer_stack_top)++;
2202 YY_CURRENT_BUFFER_LVALUE = new_buffer;
2204 /* copied from yy_switch_to_buffer. */
2205 yy_load_buffer_state( M4_YY_CALL_ONLY_ARG );
2206 YY_G(yy_did_buffer_switch_on_eof) = 1;
2207 }
2208 %endif
2211 %if-c-or-c++
2212 /** Removes and deletes the top of the stack, if present.
2213 * The next element becomes the new top.
2214 * M4_YY_DOC_PARAM
2215 */
2216 %if-c-only
2217 void yypop_buffer_state YYFARGS0(void)
2218 %endif
2219 %if-c++-only
2220 void yyFlexLexer::yypop_buffer_state (void)
2221 %endif
2222 {
2223 M4_YY_DECL_GUTS_VAR();
2224 if (!YY_CURRENT_BUFFER)
2225 return;
2227 yy_delete_buffer(YY_CURRENT_BUFFER M4_YY_CALL_LAST_ARG);
2228 YY_CURRENT_BUFFER_LVALUE = NULL;
2229 if (YY_G(yy_buffer_stack_top) > 0)
2230 --YY_G(yy_buffer_stack_top);
2232 if (YY_CURRENT_BUFFER) {
2233 yy_load_buffer_state( M4_YY_CALL_ONLY_ARG );
2234 YY_G(yy_did_buffer_switch_on_eof) = 1;
2235 }
2236 }
2237 %endif
2240 %if-c-or-c++
2241 /* Allocates the stack if it does not exist.
2242 * Guarantees space for at least one push.
2243 */
2244 %if-c-only
2245 static void yyensure_buffer_stack YYFARGS0(void)
2246 %endif
2247 %if-c++-only
2248 void yyFlexLexer::yyensure_buffer_stack(void)
2249 %endif
2250 {
2251 yy_size_t num_to_alloc;
2252 M4_YY_DECL_GUTS_VAR();
2254 if (!YY_G(yy_buffer_stack)) {
2256 /* First allocation is just for 2 elements, since we don't know if this
2257 * scanner will even need a stack. We use 2 instead of 1 to avoid an
2258 * immediate realloc on the next call.
2259 */
2260 num_to_alloc = 1;
2261 YY_G(yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
2262 (num_to_alloc * sizeof(struct yy_buffer_state*)
2263 M4_YY_CALL_LAST_ARG);
2264 if ( ! YY_G(yy_buffer_stack) )
2265 YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
2268 memset(YY_G(yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
2270 YY_G(yy_buffer_stack_max) = num_to_alloc;
2271 YY_G(yy_buffer_stack_top) = 0;
2272 return;
2273 }
2275 if (YY_G(yy_buffer_stack_top) >= (YY_G(yy_buffer_stack_max)) - 1){
2277 /* Increase the buffer to prepare for a possible push. */
2278 int grow_size = 8 /* arbitrary grow size */;
2280 num_to_alloc = YY_G(yy_buffer_stack_max) + grow_size;
2281 YY_G(yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
2282 (YY_G(yy_buffer_stack),
2283 num_to_alloc * sizeof(struct yy_buffer_state*)
2284 M4_YY_CALL_LAST_ARG);
2285 if ( ! YY_G(yy_buffer_stack) )
2286 YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
2288 /* zero only the new slots.*/
2289 memset(YY_G(yy_buffer_stack) + YY_G(yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
2290 YY_G(yy_buffer_stack_max) = num_to_alloc;
2291 }
2292 }
2293 %endif
2298 m4_ifdef( [[M4_YY_NO_SCAN_BUFFER]],,
2299 [[
2300 %if-c-only
2301 /** Setup the input buffer state to scan directly from a user-specified character buffer.
2302 * @param base the character buffer
2303 * @param size the size in bytes of the character buffer
2304 * M4_YY_DOC_PARAM
2305 * @return the newly allocated buffer state object.
2306 */
2307 YY_BUFFER_STATE yy_scan_buffer YYFARGS2( char *,base, yy_size_t ,size)
2308 {
2309 YY_BUFFER_STATE b;
2310 m4_dnl M4_YY_DECL_GUTS_VAR();
2312 if ( size < 2 ||
2313 base[size-2] != YY_END_OF_BUFFER_CHAR ||
2314 base[size-1] != YY_END_OF_BUFFER_CHAR )
2315 /* They forgot to leave room for the EOB's. */
2316 return 0;
2318 b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) M4_YY_CALL_LAST_ARG );
2319 if ( ! b )
2320 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
2322 b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
2323 b->yy_buf_pos = b->yy_ch_buf = base;
2324 b->yy_is_our_buffer = 0;
2325 b->yy_input_file = 0;
2326 b->yy_n_chars = b->yy_buf_size;
2327 b->yy_is_interactive = 0;
2328 b->yy_at_bol = 1;
2329 b->yy_fill_buffer = 0;
2330 b->yy_buffer_status = YY_BUFFER_NEW;
2332 yy_switch_to_buffer( b M4_YY_CALL_LAST_ARG );
2334 return b;
2335 }
2336 %endif
2337 ]])
2340 m4_ifdef( [[M4_YY_NO_SCAN_STRING]],,
2341 [[
2342 %if-c-only
2343 /** Setup the input buffer state to scan a string. The next call to yylex() will
2344 * scan from a @e copy of @a str.
2345 * @param yystr a NUL-terminated string to scan
2346 * M4_YY_DOC_PARAM
2347 * @return the newly allocated buffer state object.
2348 * @note If you want to scan bytes that may contain NUL values, then use
2349 * yy_scan_bytes() instead.
2350 */
2351 YY_BUFFER_STATE yy_scan_string YYFARGS1( yyconst char *, yystr)
2352 {
2353 m4_dnl M4_YY_DECL_GUTS_VAR();
2355 return yy_scan_bytes( yystr, strlen(yystr) M4_YY_CALL_LAST_ARG);
2356 }
2357 %endif
2358 ]])
2361 m4_ifdef( [[M4_YY_NO_SCAN_BYTES]],,
2362 [[
2363 %if-c-only
2364 /** Setup the input buffer state to scan the given bytes. The next call to yylex() will
2365 * scan from a @e copy of @a bytes.
2366 * @param yybytes the byte buffer to scan
2367 * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
2368 * M4_YY_DOC_PARAM
2369 * @return the newly allocated buffer state object.
2370 */
2371 YY_BUFFER_STATE yy_scan_bytes YYFARGS2( yyconst char *,yybytes, yy_size_t ,_yybytes_len)
2372 {
2373 YY_BUFFER_STATE b;
2374 char *buf;
2375 yy_size_t i, n;
2376 m4_dnl M4_YY_DECL_GUTS_VAR();
2378 /* Get memory for full buffer, including space for trailing EOB's. */
2379 n = _yybytes_len + 2;
2380 buf = (char *) yyalloc( n M4_YY_CALL_LAST_ARG );
2381 if ( ! buf )
2382 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
2384 for ( i = 0; i < _yybytes_len; ++i )
2385 buf[i] = yybytes[i];
2387 buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
2389 b = yy_scan_buffer( buf, n M4_YY_CALL_LAST_ARG);
2390 if ( ! b )
2391 YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
2393 /* It's okay to grow etc. this buffer, and we should throw it
2394 * away when we're done.
2395 */
2396 b->yy_is_our_buffer = 1;
2398 return b;
2399 }
2400 %endif
2401 ]])
2404 m4_ifdef( [[M4_YY_NO_PUSH_STATE]],,
2405 [[
2406 %if-c-only
2407 static void yy_push_state YYFARGS1( int ,_new_state)
2408 %endif
2409 %if-c++-only
2410 void yyFlexLexer::yy_push_state( int _new_state )
2411 %endif
2412 {
2413 M4_YY_DECL_GUTS_VAR();
2414 if ( YY_G(yy_start_stack_ptr) >= YY_G(yy_start_stack_depth) )
2415 {
2416 yy_size_t new_size;
2418 YY_G(yy_start_stack_depth) += YY_START_STACK_INCR;
2419 new_size = YY_G(yy_start_stack_depth) * sizeof( int );
2421 if ( ! YY_G(yy_start_stack) )
2422 YY_G(yy_start_stack) = (int *) yyalloc( new_size M4_YY_CALL_LAST_ARG );
2424 else
2425 YY_G(yy_start_stack) = (int *) yyrealloc(
2426 (void *) YY_G(yy_start_stack), new_size M4_YY_CALL_LAST_ARG );
2428 if ( ! YY_G(yy_start_stack) )
2429 YY_FATAL_ERROR( "out of memory expanding start-condition stack" );
2430 }
2432 YY_G(yy_start_stack)[YY_G(yy_start_stack_ptr)++] = YY_START;
2434 BEGIN(_new_state);
2435 }
2436 ]])
2439 m4_ifdef( [[M4_YY_NO_POP_STATE]],,
2440 [[
2441 %if-c-only
2442 static void yy_pop_state YYFARGS0(void)
2443 %endif
2444 %if-c++-only
2445 void yyFlexLexer::yy_pop_state()
2446 %endif
2447 {
2448 M4_YY_DECL_GUTS_VAR();
2449 if ( --YY_G(yy_start_stack_ptr) < 0 )
2450 YY_FATAL_ERROR( "start-condition stack underflow" );
2452 BEGIN(YY_G(yy_start_stack)[YY_G(yy_start_stack_ptr)]);
2453 }
2454 ]])
2457 m4_ifdef( [[M4_YY_NO_TOP_STATE]],,
2458 [[
2459 %if-c-only
2460 static int yy_top_state YYFARGS0(void)
2461 %endif
2462 %if-c++-only
2463 int yyFlexLexer::yy_top_state()
2464 %endif
2465 {
2466 M4_YY_DECL_GUTS_VAR();
2467 return YY_G(yy_start_stack)[YY_G(yy_start_stack_ptr) - 1];
2468 }
2469 ]])
2471 #ifndef YY_EXIT_FAILURE
2472 #define YY_EXIT_FAILURE 2
2473 #endif
2475 %if-c-only
2476 static void yy_fatal_error YYFARGS1(yyconst char*, msg)
2477 {
2478 m4_dnl M4_YY_DECL_GUTS_VAR();
2479 (void) fprintf( stderr, "%s\n", msg );
2480 exit( YY_EXIT_FAILURE );
2481 }
2482 %endif
2483 %if-c++-only
2484 void yyFlexLexer::LexerError( yyconst char msg[] )
2485 {
2486 M4_YY_DECL_GUTS_VAR();
2487 std::cerr << msg << std::endl;
2488 exit( YY_EXIT_FAILURE );
2489 }
2490 %endif
2492 /* Redefine yyless() so it works in section 3 code. */
2494 #undef yyless
2495 #define yyless(n) \
2496 do \
2497 { \
2498 /* Undo effects of setting up yytext. */ \
2499 int yyless_macro_arg = (n); \
2500 YY_LESS_LINENO(yyless_macro_arg);\
2501 yytext[yyleng] = YY_G(yy_hold_char); \
2502 YY_G(yy_c_buf_p) = yytext + yyless_macro_arg; \
2503 YY_G(yy_hold_char) = *YY_G(yy_c_buf_p); \
2504 *YY_G(yy_c_buf_p) = '\0'; \
2505 yyleng = yyless_macro_arg; \
2506 } \
2507 while ( 0 )
2511 /* Accessor methods (get/set functions) to struct members. */
2513 %if-c-only
2514 %if-reentrant
2515 m4_ifdef( [[M4_YY_NO_GET_EXTRA]],,
2516 [[
2517 /** Get the user-defined data for this scanner.
2518 * M4_YY_DOC_PARAM
2519 */
2520 YY_EXTRA_TYPE yyget_extra YYFARGS0(void)
2521 {
2522 M4_YY_DECL_GUTS_VAR();
2523 return yyextra;
2524 }
2525 ]])
2526 %endif
2528 m4_ifdef( [[M4_YY_NO_GET_LINENO]],,
2529 [[
2530 /** Get the current line number.
2531 * M4_YY_DOC_PARAM
2532 */
2533 int yyget_lineno YYFARGS0(void)
2534 {
2535 M4_YY_DECL_GUTS_VAR();
2537 m4_ifdef( [[M4_YY_REENTRANT]],
2538 [[
2539 if (! YY_CURRENT_BUFFER)
2540 return 0;
2541 ]])
2542 return yylineno;
2543 }
2544 ]])
2546 m4_ifdef( [[M4_YY_REENTRANT]],
2547 [[
2548 m4_ifdef( [[M4_YY_NO_GET_COLUMN]],,
2549 [[
2550 /** Get the current column number.
2551 * M4_YY_DOC_PARAM
2552 */
2553 int yyget_column YYFARGS0(void)
2554 {
2555 M4_YY_DECL_GUTS_VAR();
2557 m4_ifdef( [[M4_YY_REENTRANT]],
2558 [[
2559 if (! YY_CURRENT_BUFFER)
2560 return 0;
2561 ]])
2562 return yycolumn;
2563 }
2564 ]])
2565 ]])
2567 m4_ifdef( [[M4_YY_NO_GET_IN]],,
2568 [[
2569 /** Get the input stream.
2570 * M4_YY_DOC_PARAM
2571 */
2572 FILE *yyget_in YYFARGS0(void)
2573 {
2574 M4_YY_DECL_GUTS_VAR();
2575 return yyin;
2576 }
2577 ]])
2579 m4_ifdef( [[M4_YY_NO_GET_OUT]],,
2580 [[
2581 /** Get the output stream.
2582 * M4_YY_DOC_PARAM
2583 */
2584 FILE *yyget_out YYFARGS0(void)
2585 {
2586 M4_YY_DECL_GUTS_VAR();
2587 return yyout;
2588 }
2589 ]])
2591 m4_ifdef( [[M4_YY_NO_GET_LENG]],,
2592 [[
2593 /** Get the length of the current token.
2594 * M4_YY_DOC_PARAM
2595 */
2596 yy_size_t yyget_leng YYFARGS0(void)
2597 {
2598 M4_YY_DECL_GUTS_VAR();
2599 return yyleng;
2600 }
2601 ]])
2603 /** Get the current token.
2604 * M4_YY_DOC_PARAM
2605 */
2606 m4_ifdef( [[M4_YY_NO_GET_TEXT]],,
2607 [[
2608 char *yyget_text YYFARGS0(void)
2609 {
2610 M4_YY_DECL_GUTS_VAR();
2611 return yytext;
2612 }
2613 ]])
2615 %if-reentrant
2616 m4_ifdef( [[M4_YY_NO_SET_EXTRA]],,
2617 [[
2618 /** Set the user-defined data. This data is never touched by the scanner.
2619 * @param user_defined The data to be associated with this scanner.
2620 * M4_YY_DOC_PARAM
2621 */
2622 void yyset_extra YYFARGS1( YY_EXTRA_TYPE ,user_defined)
2623 {
2624 M4_YY_DECL_GUTS_VAR();
2625 yyextra = user_defined ;
2626 }
2627 ]])
2628 %endif
2630 m4_ifdef( [[M4_YY_NO_SET_LINENO]],,
2631 [[
2632 /** Set the current line number.
2633 * @param _line_number
2634 * M4_YY_DOC_PARAM
2635 */
2636 void yyset_lineno YYFARGS1( int ,_line_number)
2637 {
2638 M4_YY_DECL_GUTS_VAR();
2640 m4_ifdef( [[M4_YY_REENTRANT]],
2641 [[
2642 /* lineno is only valid if an input buffer exists. */
2643 if (! YY_CURRENT_BUFFER )
2644 YY_FATAL_ERROR( "yyset_lineno called with no buffer" );
2645 ]])
2646 yylineno = _line_number;
2647 }
2648 ]])
2650 m4_ifdef( [[M4_YY_REENTRANT]],
2651 [[
2652 m4_ifdef( [[M4_YY_NO_SET_COLUMN]],,
2653 [[
2654 /** Set the current column.
2655 * @param _line_number
2656 * M4_YY_DOC_PARAM
2657 */
2658 void yyset_column YYFARGS1( int , _column_no)
2659 {
2660 M4_YY_DECL_GUTS_VAR();
2662 m4_ifdef( [[M4_YY_REENTRANT]],
2663 [[
2664 /* column is only valid if an input buffer exists. */
2665 if (! YY_CURRENT_BUFFER )
2666 YY_FATAL_ERROR( "yyset_column called with no buffer" );
2667 ]])
2668 yycolumn = _column_no;
2669 }
2670 ]])
2671 ]])
2674 m4_ifdef( [[M4_YY_NO_SET_IN]],,
2675 [[
2676 /** Set the input stream. This does not discard the current
2677 * input buffer.
2678 * @param _in_str A readable stream.
2679 * M4_YY_DOC_PARAM
2680 * @see yy_switch_to_buffer
2681 */
2682 void yyset_in YYFARGS1( FILE * ,_in_str)
2683 {
2684 M4_YY_DECL_GUTS_VAR();
2685 yyin = _in_str ;
2686 }
2687 ]])
2689 m4_ifdef( [[M4_YY_NO_SET_OUT]],,
2690 [[
2691 void yyset_out YYFARGS1( FILE * ,_out_str)
2692 {
2693 M4_YY_DECL_GUTS_VAR();
2694 yyout = _out_str ;
2695 }
2696 ]])
2699 m4_ifdef( [[M4_YY_NO_GET_DEBUG]],,
2700 [[
2701 int yyget_debug YYFARGS0(void)
2702 {
2703 M4_YY_DECL_GUTS_VAR();
2704 return yy_flex_debug;
2705 }
2706 ]])
2708 m4_ifdef( [[M4_YY_NO_SET_DEBUG]],,
2709 [[
2710 void yyset_debug YYFARGS1( int ,_bdebug)
2711 {
2712 M4_YY_DECL_GUTS_VAR();
2713 yy_flex_debug = _bdebug ;
2714 }
2715 ]])
2716 %endif
2718 %if-reentrant
2719 /* Accessor methods for yylval and yylloc */
2721 %if-bison-bridge
2722 m4_ifdef( [[M4_YY_NO_GET_LVAL]],,
2723 [[
2724 YYSTYPE * yyget_lval YYFARGS0(void)
2725 {
2726 M4_YY_DECL_GUTS_VAR();
2727 return yylval;
2728 }
2729 ]])
2731 m4_ifdef( [[M4_YY_NO_SET_LVAL]],,
2732 [[
2733 void yyset_lval YYFARGS1( YYSTYPE * ,yylval_param)
2734 {
2735 M4_YY_DECL_GUTS_VAR();
2736 yylval = yylval_param;
2737 }
2738 ]])
2740 m4_ifdef( [[<M4_YY_BISON_LLOC>]],
2741 [[
2742 m4_ifdef( [[M4_YY_NO_GET_LLOC]],,
2743 [[
2744 YYLTYPE *yyget_lloc YYFARGS0(void)
2745 {
2746 M4_YY_DECL_GUTS_VAR();
2747 return yylloc;
2748 }
2749 ]])
2751 m4_ifdef( [[M4_YY_NO_SET_LLOC]],,
2752 [[
2753 void yyset_lloc YYFARGS1( YYLTYPE * ,yylloc_param)
2754 {
2755 M4_YY_DECL_GUTS_VAR();
2756 yylloc = yylloc_param;
2757 }
2758 ]])
2759 ]])
2761 %endif
2764 /* User-visible API */
2766 /* yylex_init is special because it creates the scanner itself, so it is
2767 * the ONLY reentrant function that doesn't take the scanner as the last argument.
2768 * That's why we explicitly handle the declaration, instead of using our macros.
2769 */
2770 m4_ifdef( [[M4_YY_NO_ANSI_FUNC_DEFS]],
2771 [[
2772 int yylex_init( ptr_yy_globals )
2773 yyscan_t* ptr_yy_globals;
2774 ]],
2775 [[
2776 int yylex_init(yyscan_t* ptr_yy_globals)
2777 ]])
2778 {
2779 if (ptr_yy_globals == NULL){
2780 errno = EINVAL;
2781 return 1;
2782 }
2784 *ptr_yy_globals = (yyscan_t) yyalloc ( sizeof( struct yyguts_t ), NULL );
2786 if (*ptr_yy_globals == NULL){
2787 errno = ENOMEM;
2788 return 1;
2789 }
2791 /* By setting to 0xAA, we expose bugs in yy_init_globals. Leave at 0x00 for releases. */
2792 memset(*ptr_yy_globals,0x00,sizeof(struct yyguts_t));
2794 return yy_init_globals ( *ptr_yy_globals );
2795 }
2798 /* yylex_init_extra has the same functionality as yylex_init, but follows the
2799 * convention of taking the scanner as the last argument. Note however, that
2800 * this is a *pointer* to a scanner, as it will be allocated by this call (and
2801 * is the reason, too, why this function also must handle its own declaration).
2802 * The user defined value in the first argument will be available to yyalloc in
2803 * the yyextra field.
2804 */
2805 m4_ifdef( [[M4_YY_NO_ANSI_FUNC_DEFS]],
2806 [[
2807 int yylex_init_extra( yy_user_defined, ptr_yy_globals )
2808 YY_EXTRA_TYPE yy_user_defined;
2809 yyscan_t* ptr_yy_globals;
2810 ]],
2811 [[
2812 int yylex_init_extra( YY_EXTRA_TYPE yy_user_defined, yyscan_t* ptr_yy_globals )
2813 ]])
2814 {
2815 struct yyguts_t dummy_yyguts;
2817 yyset_extra (yy_user_defined, &dummy_yyguts);
2819 if (ptr_yy_globals == NULL){
2820 errno = EINVAL;
2821 return 1;
2822 }
2824 *ptr_yy_globals = (yyscan_t) yyalloc ( sizeof( struct yyguts_t ), &dummy_yyguts );
2826 if (*ptr_yy_globals == NULL){
2827 errno = ENOMEM;
2828 return 1;
2829 }
2831 /* By setting to 0xAA, we expose bugs in
2832 yy_init_globals. Leave at 0x00 for releases. */
2833 memset(*ptr_yy_globals,0x00,sizeof(struct yyguts_t));
2835 yyset_extra (yy_user_defined, *ptr_yy_globals);
2837 return yy_init_globals ( *ptr_yy_globals );
2838 }
2840 %endif if-c-only
2843 %if-c-only
2844 static int yy_init_globals YYFARGS0(void)
2845 {
2846 M4_YY_DECL_GUTS_VAR();
2847 /* Initialization is the same as for the non-reentrant scanner.
2848 * This function is called from yylex_destroy(), so don't allocate here.
2849 */
2851 m4_ifdef( [[M4_YY_USE_LINENO]],
2852 [[
2853 m4_ifdef( [[M4_YY_NOT_REENTRANT]],
2854 [[
2855 /* We do not touch yylineno unless the option is enabled. */
2856 yylineno = 1;
2857 ]])
2858 ]])
2859 YY_G(yy_buffer_stack) = 0;
2860 YY_G(yy_buffer_stack_top) = 0;
2861 YY_G(yy_buffer_stack_max) = 0;
2862 YY_G(yy_c_buf_p) = (char *) 0;
2863 YY_G(yy_init) = 0;
2864 YY_G(yy_start) = 0;
2866 m4_ifdef( [[M4_YY_HAS_START_STACK_VARS]],
2867 [[
2868 YY_G(yy_start_stack_ptr) = 0;
2869 YY_G(yy_start_stack_depth) = 0;
2870 YY_G(yy_start_stack) = NULL;
2871 ]])
2873 m4_ifdef( [[M4_YY_USES_REJECT]],
2874 [[
2875 YY_G(yy_state_buf) = 0;
2876 YY_G(yy_state_ptr) = 0;
2877 YY_G(yy_full_match) = 0;
2878 YY_G(yy_lp) = 0;
2879 ]])
2881 m4_ifdef( [[M4_YY_TEXT_IS_ARRAY]],
2882 [[
2883 YY_G(yytext_ptr) = 0;
2884 YY_G(yy_more_offset) = 0;
2885 YY_G(yy_prev_more_offset) = 0;
2886 ]])
2888 /* Defined in main.c */
2889 #ifdef YY_STDINIT
2890 yyin = stdin;
2891 yyout = stdout;
2892 #else
2893 yyin = (FILE *) 0;
2894 yyout = (FILE *) 0;
2895 #endif
2897 /* For future reference: Set errno on error, since we are called by
2898 * yylex_init()
2899 */
2900 return 0;
2901 }
2902 %endif
2905 %if-c-only SNIP! this currently causes conflicts with the c++ scanner
2906 /* yylex_destroy is for both reentrant and non-reentrant scanners. */
2907 int yylex_destroy YYFARGS0(void)
2908 {
2909 M4_YY_DECL_GUTS_VAR();
2911 /* Pop the buffer stack, destroying each element. */
2912 while(YY_CURRENT_BUFFER){
2913 yy_delete_buffer( YY_CURRENT_BUFFER M4_YY_CALL_LAST_ARG );
2914 YY_CURRENT_BUFFER_LVALUE = NULL;
2915 yypop_buffer_state(M4_YY_CALL_ONLY_ARG);
2916 }
2918 /* Destroy the stack itself. */
2919 yyfree(YY_G(yy_buffer_stack) M4_YY_CALL_LAST_ARG);
2920 YY_G(yy_buffer_stack) = NULL;
2922 m4_ifdef( [[M4_YY_HAS_START_STACK_VARS]],
2923 [[
2924 /* Destroy the start condition stack. */
2925 yyfree( YY_G(yy_start_stack) M4_YY_CALL_LAST_ARG );
2926 YY_G(yy_start_stack) = NULL;
2927 ]])
2929 m4_ifdef( [[M4_YY_USES_REJECT]],
2930 [[
2931 yyfree ( YY_G(yy_state_buf) M4_YY_CALL_LAST_ARG);
2932 YY_G(yy_state_buf) = NULL;
2933 ]])
2935 /* Reset the globals. This is important in a non-reentrant scanner so the next time
2936 * yylex() is called, initialization will occur. */
2937 yy_init_globals( M4_YY_CALL_ONLY_ARG);
2939 %if-reentrant
2940 /* Destroy the main struct (reentrant only). */
2941 yyfree ( yyscanner M4_YY_CALL_LAST_ARG );
2942 yyscanner = NULL;
2943 %endif
2944 return 0;
2945 }
2946 %endif
2949 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
2950 [[
2951 /*
2952 * Internal utility routines.
2953 */
2954 ]])
2956 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
2957 [[
2958 #ifndef yytext_ptr
2959 static void yy_flex_strncpy YYFARGS3( char*,s1, yyconst char *,s2, int,n)
2960 {
2961 register int i;
2962 for ( i = 0; i < n; ++i )
2963 s1[i] = s2[i];
2964 }
2965 #endif
2966 ]])
2968 m4_ifdef( [[M4_YY_NOT_IN_HEADER]],
2969 [[
2970 #ifdef YY_NEED_STRLEN
2971 static int yy_flex_strlen YYFARGS1( yyconst char *,s)
2972 {
2973 register int n;
2974 for ( n = 0; s[n]; ++n )
2975 ;
2977 return n;
2978 }
2979 #endif
2980 ]])
2982 m4_ifdef( [[M4_YY_NO_FLEX_ALLOC]],,
2983 [[
2984 void *yyalloc YYFARGS1( yy_size_t ,size)
2985 {
2986 return (void *) malloc( size );
2987 }
2988 ]])
2990 m4_ifdef( [[M4_YY_NO_FLEX_REALLOC]],,
2991 [[
2992 void *yyrealloc YYFARGS2( void *,ptr, yy_size_t ,size)
2993 {
2994 /* The cast to (char *) in the following accommodates both
2995 * implementations that use char* generic pointers, and those
2996 * that use void* generic pointers. It works with the latter
2997 * because both ANSI C and C++ allow castless assignment from
2998 * any pointer type to void*, and deal with argument conversions
2999 * as though doing an assignment.
3000 */
3001 return (void *) realloc( (char *) ptr, size );
3002 }
3003 ]])
3005 m4_ifdef( [[M4_YY_NO_FLEX_FREE]],,
3006 [[
3007 void yyfree YYFARGS1( void *,ptr)
3008 {
3009 free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
3010 }
3011 ]])
3013 %if-tables-serialization definitions
3014 m4preproc_include(`tables_shared.c')
3016 static int yytbl_read8 (void *v, struct yytbl_reader * rd)
3017 {
3018 errno = 0;
3019 if (fread (v, sizeof (flex_uint8_t), 1, rd->fp) != 1){
3020 errno = EIO;
3021 return -1;
3022 }
3023 rd->bread += sizeof(flex_uint8_t);
3024 return 0;
3025 }
3027 static int yytbl_read16 (void *v, struct yytbl_reader * rd)
3028 {
3029 errno = 0;
3030 if (fread (v, sizeof (flex_uint16_t), 1, rd->fp) != 1){
3031 errno = EIO;
3032 return -1;
3033 }
3034 *((flex_uint16_t *) v) = ntohs (*((flex_uint16_t *) v));
3035 rd->bread += sizeof(flex_uint16_t);
3036 return 0;
3037 }
3039 static int yytbl_read32 (void *v, struct yytbl_reader * rd)
3040 {
3041 errno = 0;
3042 if (fread (v, sizeof (flex_uint32_t), 1, rd->fp) != 1){
3043 errno = EIO;
3044 return -1;
3045 }
3046 *((flex_uint32_t *) v) = ntohl (*((flex_uint32_t *) v));
3047 rd->bread += sizeof(flex_uint32_t);
3048 return 0;
3049 }
3051 /** Read the header */
3052 static int yytbl_hdr_read YYFARGS2(struct yytbl_hdr *, th, struct yytbl_reader *, rd)
3053 {
3054 int bytes;
3055 memset (th, 0, sizeof (struct yytbl_hdr));
3057 if (yytbl_read32 (&(th->th_magic), rd) != 0)
3058 return -1;
3060 if (th->th_magic != YYTBL_MAGIC){
3061 YY_FATAL_ERROR( "bad magic number" ); /* TODO: not fatal. */
3062 return -1;
3063 }
3065 if (yytbl_read32 (&(th->th_hsize), rd) != 0
3066 || yytbl_read32 (&(th->th_ssize), rd) != 0
3067 || yytbl_read16 (&(th->th_flags), rd) != 0)
3068 return -1;
3070 /* Sanity check on header size. Greater than 1k suggests some funny business. */
3071 if (th->th_hsize < 16 || th->th_hsize > 1024){
3072 YY_FATAL_ERROR( "insane header size detected" ); /* TODO: not fatal. */
3073 return -1;
3074 }
3076 /* Allocate enough space for the version and name fields */
3077 bytes = th->th_hsize - 14;
3078 th->th_version = (char *) yyalloc (bytes M4_YY_CALL_LAST_ARG);
3079 if ( ! th->th_version )
3080 YY_FATAL_ERROR( "out of dynamic memory in yytbl_hdr_read()" );
3082 /* we read it all into th_version, and point th_name into that data */
3083 if (fread (th->th_version, 1, bytes, rd->fp) != bytes){
3084 errno = EIO;
3085 yyfree(th->th_version M4_YY_CALL_LAST_ARG);
3086 th->th_version = NULL;
3087 return -1;
3088 }
3089 else
3090 rd->bread += bytes;
3092 th->th_name = th->th_version + strlen (th->th_version) + 1;
3093 return 0;
3094 }
3096 /** lookup id in the dmap list.
3097 * @param dmap pointer to first element in list
3098 * @return NULL if not found.
3099 */
3100 static struct yytbl_dmap *yytbl_dmap_lookup YYFARGS2(struct yytbl_dmap *, dmap,
3101 int, id)
3102 {
3103 while (dmap->dm_id)
3104 if (dmap->dm_id == id)
3105 return dmap;
3106 else
3107 dmap++;
3108 return NULL;
3109 }
3111 /** Read a table while mapping its contents to the local array.
3112 * @param dmap used to performing mapping
3113 * @return 0 on success
3114 */
3115 static int yytbl_data_load YYFARGS2(struct yytbl_dmap *, dmap, struct yytbl_reader*, rd)
3116 {
3117 struct yytbl_data td;
3118 struct yytbl_dmap *transdmap=0;
3119 int len, i, rv, inner_loop_count;
3120 void *p=0;
3122 memset (&td, 0, sizeof (struct yytbl_data));
3124 if (yytbl_read16 (&td.td_id, rd) != 0
3125 || yytbl_read16 (&td.td_flags, rd) != 0
3126 || yytbl_read32 (&td.td_hilen, rd) != 0
3127 || yytbl_read32 (&td.td_lolen, rd) != 0)
3128 return -1;
3130 /* Lookup the map for the transition table so we have it in case we need it
3131 * inside the loop below. This scanner might not even have a transition
3132 * table, which is ok.
3133 */
3134 transdmap = yytbl_dmap_lookup (dmap, YYTD_ID_TRANSITION M4_YY_CALL_LAST_ARG);
3136 if ((dmap = yytbl_dmap_lookup (dmap, td.td_id M4_YY_CALL_LAST_ARG)) == NULL){
3137 YY_FATAL_ERROR( "table id not found in map." ); /* TODO: not fatal. */
3138 return -1;
3139 }
3141 /* Allocate space for table.
3142 * The --full yy_transition table is a special case, since we
3143 * need the dmap.dm_sz entry to tell us the sizeof the individual
3144 * struct members.
3145 */
3146 {
3147 size_t bytes;
3149 if ((td.td_flags & YYTD_STRUCT))
3150 bytes = sizeof(struct yy_trans_info) * td.td_lolen * (td.td_hilen ? td.td_hilen : 1);
3151 else
3152 bytes = td.td_lolen * (td.td_hilen ? td.td_hilen : 1) * dmap->dm_sz;
3154 if(M4_YY_TABLES_VERIFY)
3155 /* We point to the array itself */
3156 p = dmap->dm_arr;
3157 else
3158 /* We point to the address of a pointer. */
3159 *dmap->dm_arr = p = (void *) yyalloc (bytes M4_YY_CALL_LAST_ARG);
3160 if ( ! p )
3161 YY_FATAL_ERROR( "out of dynamic memory in yytbl_data_load()" );
3162 }
3164 /* If it's a struct, we read 2 integers to get one element */
3165 if ((td.td_flags & YYTD_STRUCT) != 0)
3166 inner_loop_count = 2;
3167 else
3168 inner_loop_count = 1;
3170 /* read and map each element.
3171 * This loop iterates once for each element of the td_data array.
3172 * Notice that we increment 'i' in the inner loop.
3173 */
3174 len = yytbl_calc_total_len (&td);
3175 for (i = 0; i < len; ){
3176 int j;
3179 /* This loop really executes exactly 1 or 2 times.
3180 * The second time is to handle the second member of the
3181 * YYTD_STRUCT for the yy_transition array.
3182 */
3183 for (j = 0; j < inner_loop_count; j++, i++) {
3184 flex_int32_t t32;
3186 /* read into t32 no matter what the real size is. */
3187 {
3188 flex_int16_t t16;
3189 flex_int8_t t8;
3191 switch (YYTDFLAGS2BYTES (td.td_flags)) {
3192 case sizeof (flex_int32_t):
3193 rv = yytbl_read32 (&t32, rd);
3194 break;
3195 case sizeof (flex_int16_t):
3196 rv = yytbl_read16 (&t16, rd);
3197 t32 = t16;
3198 break;
3199 case sizeof (flex_int8_t):
3200 rv = yytbl_read8 (&t8, rd);
3201 t32 = t8;
3202 break;
3203 default:
3204 YY_FATAL_ERROR( "invalid td_flags" ); /* TODO: not fatal. */
3205 return -1;
3206 }
3207 }
3208 if (rv != 0)
3209 return -1;
3211 /* copy into the deserialized array... */
3213 if ((td.td_flags & YYTD_STRUCT)) {
3214 /* t32 is the j'th member of a two-element struct. */
3215 void *v;
3217 v = j == 0 ? &(((struct yy_trans_info *) p)->yy_verify)
3218 : &(((struct yy_trans_info *) p)->yy_nxt);
3220 switch (dmap->dm_sz) {
3221 case sizeof (flex_int32_t):
3222 if (M4_YY_TABLES_VERIFY){
3223 if( ((flex_int32_t *) v)[0] != (flex_int32_t) t32)
3224 YY_FATAL_ERROR( "tables verification failed at YYTD_STRUCT flex_int32_t" );
3225 }else
3226 ((flex_int32_t *) v)[0] = (flex_int32_t) t32;
3227 break;
3228 case sizeof (flex_int16_t):
3229 if (M4_YY_TABLES_VERIFY ){
3230 if(((flex_int16_t *) v)[0] != (flex_int16_t) t32)
3231 YY_FATAL_ERROR( "tables verification failed at YYTD_STRUCT flex_int16_t" );
3232 }else
3233 ((flex_int16_t *) v)[0] = (flex_int16_t) t32;
3234 break;
3235 case sizeof(flex_int8_t):
3236 if (M4_YY_TABLES_VERIFY ){
3237 if( ((flex_int8_t *) v)[0] != (flex_int8_t) t32)
3238 YY_FATAL_ERROR( "tables verification failed at YYTD_STRUCT flex_int8_t" );
3239 }else
3240 ((flex_int8_t *) v)[0] = (flex_int8_t) t32;
3241 break;
3242 default:
3243 YY_FATAL_ERROR( "invalid dmap->dm_sz for struct" ); /* TODO: not fatal. */
3244 return -1;
3245 }
3247 /* if we're done with j, increment p */
3248 if (j == 1)
3249 p = (struct yy_trans_info *) p + 1;
3250 }
3251 else if ((td.td_flags & YYTD_PTRANS)) {
3252 /* t32 is an index into the transition array. */
3253 struct yy_trans_info *v;
3256 if (!transdmap){
3257 YY_FATAL_ERROR( "transition table not found" ); /* TODO: not fatal. */
3258 return -1;
3259 }
3261 if( M4_YY_TABLES_VERIFY)
3262 v = &(((struct yy_trans_info *) (transdmap->dm_arr))[t32]);
3263 else
3264 v = &((*((struct yy_trans_info **) (transdmap->dm_arr)))[t32]);
3266 if(M4_YY_TABLES_VERIFY ){
3267 if( ((struct yy_trans_info **) p)[0] != v)
3268 YY_FATAL_ERROR( "tables verification failed at YYTD_PTRANS" );
3269 }else
3270 ((struct yy_trans_info **) p)[0] = v;
3272 /* increment p */
3273 p = (struct yy_trans_info **) p + 1;
3274 }
3275 else {
3276 /* t32 is a plain int. copy data, then incrememnt p. */
3277 switch (dmap->dm_sz) {
3278 case sizeof (flex_int32_t):
3279 if(M4_YY_TABLES_VERIFY ){
3280 if( ((flex_int32_t *) p)[0] != (flex_int32_t) t32)
3281 YY_FATAL_ERROR( "tables verification failed at flex_int32_t" );
3282 }else
3283 ((flex_int32_t *) p)[0] = (flex_int32_t) t32;
3284 p = ((flex_int32_t *) p) + 1;
3285 break;
3286 case sizeof (flex_int16_t):
3287 if(M4_YY_TABLES_VERIFY ){
3288 if( ((flex_int16_t *) p)[0] != (flex_int16_t) t32)
3289 YY_FATAL_ERROR( "tables verification failed at flex_int16_t" );
3290 }else
3291 ((flex_int16_t *) p)[0] = (flex_int16_t) t32;
3292 p = ((flex_int16_t *) p) + 1;
3293 break;
3294 case sizeof (flex_int8_t):
3295 if(M4_YY_TABLES_VERIFY ){
3296 if( ((flex_int8_t *) p)[0] != (flex_int8_t) t32)
3297 YY_FATAL_ERROR( "tables verification failed at flex_int8_t" );
3298 }else
3299 ((flex_int8_t *) p)[0] = (flex_int8_t) t32;
3300 p = ((flex_int8_t *) p) + 1;
3301 break;
3302 default:
3303 YY_FATAL_ERROR( "invalid dmap->dm_sz for plain int" ); /* TODO: not fatal. */
3304 return -1;
3305 }
3306 }
3307 }
3309 }
3311 /* Now eat padding. */
3312 {
3313 int pad;
3314 pad = yypad64(rd->bread);
3315 while(--pad >= 0){
3316 flex_int8_t t8;
3317 if(yytbl_read8(&t8,rd) != 0)
3318 return -1;
3319 }
3320 }
3322 return 0;
3323 }
3325 %define-yytables The name for this specific scanner's tables.
3327 /* Find the key and load the DFA tables from the given stream. */
3328 static int yytbl_fload YYFARGS2(FILE *, fp, const char *, key)
3329 {
3330 int rv=0;
3331 struct yytbl_hdr th;
3332 struct yytbl_reader rd;
3334 rd.fp = fp;
3335 th.th_version = NULL;
3337 /* Keep trying until we find the right set of tables or end of file. */
3338 while (!feof(rd.fp)) {
3339 rd.bread = 0;
3340 if (yytbl_hdr_read (&th, &rd M4_YY_CALL_LAST_ARG) != 0){
3341 rv = -1;
3342 goto return_rv;
3343 }
3345 /* A NULL key means choose the first set of tables. */
3346 if (key == NULL)
3347 break;
3349 if (strcmp(th.th_name,key) != 0){
3350 /* Skip ahead to next set */
3351 fseek(rd.fp, th.th_ssize - th.th_hsize, SEEK_CUR);
3352 yyfree(th.th_version M4_YY_CALL_LAST_ARG);
3353 th.th_version = NULL;
3354 }
3355 else
3356 break;
3357 }
3359 while (rd.bread < th.th_ssize){
3360 /* Load the data tables */
3361 if(yytbl_data_load (yydmap,&rd M4_YY_CALL_LAST_ARG) != 0){
3362 rv = -1;
3363 goto return_rv;
3364 }
3365 }
3367 return_rv:
3368 if(th.th_version){
3369 yyfree(th.th_version M4_YY_CALL_LAST_ARG);
3370 th.th_version = NULL;
3371 }
3373 return rv;
3374 }
3376 /** Load the DFA tables for this scanner from the given stream. */
3377 int yytables_fload YYFARGS1(FILE *, fp)
3378 {
3380 if( yytbl_fload(fp, YYTABLES_NAME M4_YY_CALL_LAST_ARG) != 0)
3381 return -1;
3382 return 0;
3383 }
3385 /** Destroy the loaded tables, freeing memory, etc.. */
3386 int yytables_destroy YYFARGS0(void)
3387 {
3388 struct yytbl_dmap *dmap=0;
3390 if(!M4_YY_TABLES_VERIFY){
3391 /* Walk the dmap, freeing the pointers */
3392 for(dmap=yydmap; dmap->dm_id; dmap++) {
3393 void * v;
3394 v = dmap->dm_arr;
3395 if(v && *(char**)v){
3396 yyfree(*(char**)v M4_YY_CALL_LAST_ARG);
3397 *(char**)v = NULL;
3398 }
3399 }
3400 }
3402 return 0;
3403 }
3405 /* end table serialization code definitions */
3406 %endif
3409 m4_ifdef([[M4_YY_MAIN]], [[
3410 int main M4_YY_PARAMS(void);
3412 int main ()
3413 {
3415 %if-reentrant
3416 yyscan_t lexer;
3417 yylex_init(&lexer);
3418 yylex( lexer );
3419 yylex_destroy( lexer);
3421 %endif
3422 %if-not-reentrant
3423 yylex();
3424 %endif
3426 return 0;
3427 }
3428 ]])
3430 %ok-for-header
3431 m4_ifdef( [[M4_YY_IN_HEADER]],
3432 [[
3433 #undef YY_NEW_FILE
3434 #undef YY_FLUSH_BUFFER
3435 #undef yy_set_bol
3436 #undef yy_new_buffer
3437 #undef yy_set_interactive
3438 #undef YY_DO_BEFORE_ACTION
3440 #ifdef YY_DECL_IS_OURS
3441 #undef YY_DECL_IS_OURS
3442 #undef YY_DECL
3443 #endif
3444 ]])