1 #line 1 "tokenizer.c"
2
3 #line 3 "tokenizer.c"
4
5 #define YY_INT_ALIGNED short int
6
7 /* A lexical scanner generated by flex */
8
9 #define FLEX_SCANNER
10 #define YY_FLEX_MAJOR_VERSION 2
11 #define YY_FLEX_MINOR_VERSION 6
12 #define YY_FLEX_SUBMINOR_VERSION 4
13 #if YY_FLEX_SUBMINOR_VERSION > 0
14 #define FLEX_BETA
15 #endif
16
17 /* First, we deal with platform-specific or compiler-specific issues. */
18
19 /* begin standard C headers. */
20 #include <stdio.h>
21 #include <string.h>
22 #include <errno.h>
23 #include <stdlib.h>
24
25 /* end standard C headers. */
26
27 /* flex integer type definitions */
28
29 #ifndef FLEXINT_H
30 #define FLEXINT_H
31
32 /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
33
34 #if defined(__FreeBSD__) || \
35 (defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L)
36
37 /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
38 * if you want the limit (max/min) macros for int types.
39 */
40 #ifndef __STDC_LIMIT_MACROS
41 #define __STDC_LIMIT_MACROS 1
42 #endif
43
44 #include <inttypes.h>
45 typedef int8_t flex_int8_t;
46 typedef uint8_t flex_uint8_t;
47 typedef int16_t flex_int16_t;
48 typedef uint16_t flex_uint16_t;
49 typedef int32_t flex_int32_t;
50 typedef uint32_t flex_uint32_t;
51 #else
52 typedef signed char flex_int8_t;
53 typedef short int flex_int16_t;
54 typedef int flex_int32_t;
55 typedef unsigned char flex_uint8_t;
56 typedef unsigned short int flex_uint16_t;
57 typedef unsigned int flex_uint32_t;
58
59 /* Limits of integral types. */
60 #ifndef INT8_MIN
61 #define INT8_MIN (-128)
62 #endif
63 #ifndef INT16_MIN
64 #define INT16_MIN (-32767-1)
65 #endif
66 #ifndef INT32_MIN
67 #define INT32_MIN (-2147483647-1)
68 #endif
69 #ifndef INT8_MAX
70 #define INT8_MAX (127)
71 #endif
72 #ifndef INT16_MAX
73 #define INT16_MAX (32767)
74 #endif
75 #ifndef INT32_MAX
76 #define INT32_MAX (2147483647)
77 #endif
78 #ifndef UINT8_MAX
79 #define UINT8_MAX (255U)
80 #endif
81 #ifndef UINT16_MAX
82 #define UINT16_MAX (65535U)
83 #endif
84 #ifndef UINT32_MAX
85 #define UINT32_MAX (4294967295U)
86 #endif
87
88 #ifndef SIZE_MAX
89 #define SIZE_MAX (~(size_t)0)
90 #endif
91
92 #endif /* ! C99 */
93
94 #endif /* ! FLEXINT_H */
95
96 /* begin standard C++ headers. */
97
98 /* TODO: this is always defined, so inline it */
99 #define yyconst const
100
101 #if defined(__GNUC__) && __GNUC__ >= 3
102 #define yynoreturn __attribute__((__noreturn__))
103 #else
104 #define yynoreturn
105 #endif
106
107 /* Returned upon end-of-file. */
108 #define YY_NULL 0
109
110 /* Promotes a possibly negative, possibly signed char to an
111 * integer in range [0..255] for use as an array index.
112 */
113 #define YY_SC_TO_UI(c) ((YY_CHAR) (c))
114
115 /* Enter a start condition. This macro really ought to take a parameter,
116 * but we do it the disgusting crufty way forced on us by the ()-less
117 * definition of BEGIN.
118 */
119 #define BEGIN (yy_start) = 1 + 2 *
120 /* Translate the current start state into a value that can be later handed
121 * to BEGIN to return to the state. The YYSTATE alias is for lex
122 * compatibility.
123 */
124 #define YY_START (((yy_start) - 1) / 2)
125 #define YYSTATE YY_START
126 /* Action number for EOF rule of a given start state. */
127 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
128 /* Special action meaning "start processing a new file". */
129 #define YY_NEW_FILE yyrestart( yyin )
130 #define YY_END_OF_BUFFER_CHAR 0
131
132 /* Size of default input buffer. */
133 #ifndef YY_BUF_SIZE
134 #ifdef __ia64__
135 /* On IA-64, the buffer size is 16k, not 8k.
136 * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
137 * Ditto for the __ia64__ case accordingly.
138 */
139 #define YY_BUF_SIZE 32768
140 #else
141 #define YY_BUF_SIZE 16384
142 #endif /* __ia64__ */
143 #endif
144
145 /* The state buf must be large enough to hold one state per character in the main buffer.
146 */
147 #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
148
149 #ifndef YY_TYPEDEF_YY_BUFFER_STATE
150 #define YY_TYPEDEF_YY_BUFFER_STATE
151 typedef struct yy_buffer_state *YY_BUFFER_STATE;
152 #endif
153
154 #ifndef YY_TYPEDEF_YY_SIZE_T
155 #define YY_TYPEDEF_YY_SIZE_T
156 typedef size_t yy_size_t;
157 #endif
158
159 extern int yyleng;
160
161 extern FILE *yyin, *yyout;
162
163 #define EOB_ACT_CONTINUE_SCAN 0
164 #define EOB_ACT_END_OF_FILE 1
165 #define EOB_ACT_LAST_MATCH 2
166
167 #define YY_LESS_LINENO(n)
168 #define YY_LINENO_REWIND_TO(ptr)
169
170 /* Return all but the first "n" matched characters back to the input stream. */
171 #define yyless(n) \
172 do \
173 { \
174 /* Undo effects of setting up yytext. */ \
175 int yyless_macro_arg = (n); \
176 YY_LESS_LINENO(yyless_macro_arg);\
177 *yy_cp = (yy_hold_char); \
178 YY_RESTORE_YY_MORE_OFFSET \
179 (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
180 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
181 } \
182 while ( 0 )
183 #define unput(c) yyunput( c, (yytext_ptr) )
184
185 #ifndef YY_STRUCT_YY_BUFFER_STATE
186 #define YY_STRUCT_YY_BUFFER_STATE
187 struct yy_buffer_state
188 {
189 FILE *yy_input_file;
190
191 char *yy_ch_buf; /* input buffer */
192 char *yy_buf_pos; /* current position in input buffer */
193
194 /* Size of input buffer in bytes, not including room for EOB
195 * characters.
196 */
197 int yy_buf_size;
198
199 /* Number of characters read into yy_ch_buf, not including EOB
200 * characters.
201 */
202 int yy_n_chars;
203
204 /* Whether we "own" the buffer - i.e., we know we created it,
205 * and can realloc() it to grow it, and should free() it to
206 * delete it.
207 */
208 int yy_is_our_buffer;
209
210 /* Whether this is an "interactive" input source; if so, and
211 * if we're using stdio for input, then we want to use getc()
212 * instead of fread(), to make sure we stop fetching input after
213 * each newline.
214 */
215 int yy_is_interactive;
216
217 /* Whether we're considered to be at the beginning of a line.
218 * If so, '^' rules will be active on the next match, otherwise
219 * not.
220 */
221 int yy_at_bol;
222
223 int yy_bs_lineno; /**< The line count. */
224 int yy_bs_column; /**< The column count. */
225
226 /* Whether to try to fill the input buffer when we reach the
227 * end of it.
228 */
229 int yy_fill_buffer;
230
231 int yy_buffer_status;
232
233 #define YY_BUFFER_NEW 0
234 #define YY_BUFFER_NORMAL 1
235 /* When an EOF's been seen but there's still some text to process
236 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
237 * shouldn't try reading from the input source any more. We might
238 * still have a bunch of tokens to match, though, because of
239 * possible backing-up.
240 *
241 * When we actually see the EOF, we change the status to "new"
242 * (via yyrestart()), so that the user can continue scanning by
243 * just pointing yyin at a new input file.
244 */
245 #define YY_BUFFER_EOF_PENDING 2
246
247 };
248 #endif /* !YY_STRUCT_YY_BUFFER_STATE */
249
250 /* Stack of input buffers. */
251 static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
252 static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
253 static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */
254
255 /* We provide macros for accessing buffer states in case in the
256 * future we want to put the buffer states in a more general
257 * "scanner state".
258 *
259 * Returns the top of the stack, or NULL.
260 */
261 #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
262 ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
263 : NULL)
264 #define yy_current_buffer YY_CURRENT_BUFFER
265 /* Same as previous macro, but useful when we know that the buffer stack is not
266 * NULL or when we need an lvalue. For internal use only.
267 */
268 #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
269
270 /* yy_hold_char holds the character lost when yytext is formed. */
271 static char yy_hold_char;
272 static int yy_n_chars; /* number of characters read into yy_ch_buf */
273 int yyleng;
274
275 /* Points to current character in buffer. */
276 static char *yy_c_buf_p = NULL;
277 static int yy_init = 0; /* whether we need to initialize */
278 static int yy_start = 0; /* start state number */
279
280 /* Flag which is used to allow yywrap()'s to do buffer switches
281 * instead of setting up a fresh yyin. A bit of a hack ...
282 */
283 static int yy_did_buffer_switch_on_eof;
284
285 void yyrestart ( FILE *input_file );
286 void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer );
287 YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size );
288 void yy_delete_buffer ( YY_BUFFER_STATE b );
289 void yy_flush_buffer ( YY_BUFFER_STATE b );
290 void yypush_buffer_state ( YY_BUFFER_STATE new_buffer );
291 void yypop_buffer_state ( void );
292
293 static void yyensure_buffer_stack ( void );
294 static void yy_load_buffer_state ( void );
295 static void yy_init_buffer ( YY_BUFFER_STATE b, FILE *file );
296 #define YY_FLUSH_BUFFER yy_flush_buffer( YY_CURRENT_BUFFER )
297
298 YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size );
299 YY_BUFFER_STATE yy_scan_string ( const char *yy_str );
300 YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len );
301
302 void *yyalloc ( yy_size_t );
303 void *yyrealloc ( void *, yy_size_t );
304 void yyfree ( void * );
305
306 #define yy_new_buffer yy_create_buffer
307 #define yy_set_interactive(is_interactive) \
308 { \
309 if ( ! YY_CURRENT_BUFFER ){ \
310 yyensure_buffer_stack (); \
311 YY_CURRENT_BUFFER_LVALUE = \
312 yy_create_buffer( yyin, YY_BUF_SIZE ); \
313 } \
314 YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
315 }
316 #define yy_set_bol(at_bol) \
317 { \
318 if ( ! YY_CURRENT_BUFFER ){\
319 yyensure_buffer_stack (); \
320 YY_CURRENT_BUFFER_LVALUE = \
321 yy_create_buffer( yyin, YY_BUF_SIZE ); \
322 } \
323 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
324 }
325 #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
326
327 /* Begin user sect3 */
328
329 #define yywrap() (/*CONSTCOND*/1)
330 #define YY_SKIP_YYWRAP
331 typedef flex_uint8_t YY_CHAR;
332
333 FILE *yyin = NULL, *yyout = NULL;
334
335 typedef int yy_state_type;
336
337 extern int yylineno;
338 int yylineno = 1;
339
340 extern char *yytext;
341 #ifdef yytext_ptr
342 #undef yytext_ptr
343 #endif
344 #define yytext_ptr yytext
345
346 static yy_state_type yy_get_previous_state ( void );
347 static yy_state_type yy_try_NUL_trans ( yy_state_type current_state );
348 static int yy_get_next_buffer ( void );
349 static void yynoreturn yy_fatal_error ( const char* msg );
350
351 /* Done after the current pattern has been matched and before the
352 * corresponding action - sets up yytext.
353 */
354 #define YY_DO_BEFORE_ACTION \
355 (yytext_ptr) = yy_bp; \
356 yyleng = (int) (yy_cp - yy_bp); \
357 (yy_hold_char) = *yy_cp; \
358 *yy_cp = '\0'; \
359 (yy_c_buf_p) = yy_cp;
360 #define YY_NUM_RULES 14
361 #define YY_END_OF_BUFFER 15
362 /* This struct is not used in this scanner,
363 but its presence is necessary. */
364 struct yy_trans_info
365 {
366 flex_int32_t yy_verify;
367 flex_int32_t yy_nxt;
368 };
369 static const flex_int16_t yy_accept[35] =
370 { 0,
371 0, 0, 15, 13, 1, 1, 13, 13, 13, 2,
372 2, 13, 13, 13, 13, 1, 9, 10, 12, 2,
373 0, 0, 2, 6, 4, 8, 5, 7, 11, 0,
374 2, 0, 3, 0
375 } ;
376
377 static const YY_CHAR yy_ec[256] =
378 { 0,
379 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
380 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
381 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
382 1, 2, 4, 1, 1, 1, 1, 5, 1, 1,
383 1, 6, 1, 1, 1, 1, 1, 7, 8, 8,
384 8, 8, 8, 8, 8, 9, 9, 10, 1, 11,
385 12, 13, 1, 1, 14, 14, 14, 14, 14, 14,
386 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
387 15, 16, 15, 15, 15, 15, 15, 17, 15, 15,
388 1, 1, 1, 1, 1, 1, 14, 14, 14, 14,
389
390 14, 14, 15, 15, 15, 15, 15, 15, 15, 15,
391 15, 15, 15, 16, 15, 15, 15, 15, 15, 17,
392 15, 15, 1, 18, 1, 1, 1, 1, 1, 1,
393 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
394 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
395 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
396 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
397 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
398 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
399 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
400
401 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
402 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
403 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
404 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
405 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
406 1, 1, 1, 1, 1
407 } ;
408
409 static const YY_CHAR yy_meta[19] =
410 { 0,
411 1, 1, 1, 1, 1, 1, 2, 2, 2, 1,
412 1, 1, 1, 3, 4, 4, 4, 1
413 } ;
414
415 static const flex_int16_t yy_base[39] =
416 { 0,
417 0, 0, 48, 49, 17, 19, 35, 41, 39, 16,
418 0, 14, 32, 15, 25, 27, 49, 49, 49, 27,
419 0, 0, 0, 49, 49, 49, 49, 49, 49, 32,
420 0, 0, 0, 49, 39, 29, 34, 36
421 } ;
422
423 static const flex_int16_t yy_def[39] =
424 { 0,
425 34, 1, 34, 34, 34, 34, 34, 34, 34, 34,
426 35, 34, 34, 34, 34, 34, 34, 34, 34, 34,
427 36, 37, 35, 34, 34, 34, 34, 34, 34, 36,
428 37, 38, 38, 0, 34, 34, 34, 34
429 } ;
430
431 static const flex_int16_t yy_nxt[68] =
432 { 0,
433 4, 5, 6, 7, 8, 9, 10, 11, 11, 4,
434 12, 13, 14, 4, 4, 4, 4, 15, 16, 16,
435 16, 16, 20, 20, 24, 25, 27, 28, 16, 16,
436 30, 21, 22, 20, 20, 31, 31, 33, 33, 33,
437 23, 32, 29, 26, 19, 18, 17, 34, 3, 34,
438 34, 34, 34, 34, 34, 34, 34, 34, 34, 34,
439 34, 34, 34, 34, 34, 34, 34
440 } ;
441
442 static const flex_int16_t yy_chk[68] =
443 { 0,
444 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
445 1, 1, 1, 1, 1, 1, 1, 1, 5, 5,
446 6, 6, 10, 10, 12, 12, 14, 14, 16, 16,
447 36, 10, 10, 20, 20, 37, 37, 38, 38, 38,
448 35, 30, 15, 13, 9, 8, 7, 3, 34, 34,
449 34, 34, 34, 34, 34, 34, 34, 34, 34, 34,
450 34, 34, 34, 34, 34, 34, 34
451 } ;
452
453 static yy_state_type yy_last_accepting_state;
454 static char *yy_last_accepting_cpos;
455
456 extern int yy_flex_debug;
457 int yy_flex_debug = 0;
458
459 /* The intent behind this definition is that it'll catch
460 * any uses of REJECT which flex missed.
461 */
462 #define REJECT reject_used_but_not_detected
463 #define yymore() yymore_used_but_not_detected
464 #define YY_MORE_ADJ 0
465 #define YY_RESTORE_YY_MORE_OFFSET
466 char *yytext;
467 #line 1 "tokenizer.l"
468 #define YY_NO_INPUT 1
469 #line 3 "tokenizer.l"
470 /* $OpenBSD: tokenizer.l,v 1.9 2017/06/15 13:48:42 bcallah Exp $ */
471 /*
472 * Copyright (c) 2004 Marc Espie <espie@cvs.openbsd.org>
473 *
474 * Permission to use, copy, modify, and distribute this software for any
475 * purpose with or without fee is hereby granted, provided that the above
476 * copyright notice and this permission notice appear in all copies.
477 *
478 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
479 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
480 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
481 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
482 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
483 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
484 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
485 */
486 #include "parser.h"
487 #include <assert.h>
488 #include <stdlib.h>
489 #include <errno.h>
490 #include <stdint.h>
491 #include <limits.h>
492
493 extern void m4_warnx(const char *, ...);
494 extern int mimic_gnu;
495 extern int32_t yylval;
496
497 int32_t number(void);
498 int32_t parse_radix(void);
499 extern int yylex(void);
500
501 #define YY_DECL int yylex(void)
502 #line 504 "tokenizer.c"
503 #line 505 "tokenizer.c"
504
505 #define INITIAL 0
506
507 #ifndef YY_NO_UNISTD_H
508 /* Special case for "unistd.h", since it is non-ANSI. We include it way
509 * down here because we want the user's section 1 to have been scanned first.
510 * The user has a chance to override it with an option.
511 */
512 #include <unistd.h>
513 #endif
514
515 #ifndef YY_EXTRA_TYPE
516 #define YY_EXTRA_TYPE void *
517 #endif
518
519 static int yy_init_globals ( void );
520
521 /* Accessor methods to globals.
522 These are made visible to non-reentrant scanners for convenience. */
523
524 int yylex_destroy ( void );
525
526 int yyget_debug ( void );
527
528 void yyset_debug ( int debug_flag );
529
530 YY_EXTRA_TYPE yyget_extra ( void );
531
532 void yyset_extra ( YY_EXTRA_TYPE user_defined );
533
534 FILE *yyget_in ( void );
535
536 void yyset_in ( FILE * _in_str );
537
538 FILE *yyget_out ( void );
539
540 void yyset_out ( FILE * _out_str );
541
542 int yyget_leng ( void );
543
544 char *yyget_text ( void );
545
546 int yyget_lineno ( void );
547
548 void yyset_lineno ( int _line_number );
549
550 /* Macros after this point can all be overridden by user definitions in
551 * section 1.
552 */
553
554 #ifndef YY_SKIP_YYWRAP
555 #ifdef __cplusplus
556 extern "C" int yywrap ( void );
557 #else
558 extern int yywrap ( void );
559 #endif
560 #endif
561
562 #ifndef YY_NO_UNPUT
563
564 #endif
565
566 #ifndef yytext_ptr
567 static void yy_flex_strncpy ( char *, const char *, int );
568 #endif
569
570 #ifdef YY_NEED_STRLEN
571 static int yy_flex_strlen ( const char * );
572 #endif
573
574 #ifndef YY_NO_INPUT
575 #ifdef __cplusplus
576 static int yyinput ( void );
577 #else
578 static int input ( void );
579 #endif
580
581 #endif
582
583 /* Amount of stuff to slurp up with each read. */
584 #ifndef YY_READ_BUF_SIZE
585 #ifdef __ia64__
586 /* On IA-64, the buffer size is 16k, not 8k */
587 #define YY_READ_BUF_SIZE 16384
588 #else
589 #define YY_READ_BUF_SIZE 8192
590 #endif /* __ia64__ */
591 #endif
592
593 /* Copy whatever the last rule matched to the standard output. */
594 #ifndef ECHO
595 /* This used to be an fputs(), but since the string might contain NUL's,
596 * we now use fwrite().
597 */
598 #define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0)
599 #endif
600
601 /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
602 * is returned in "result".
603 */
604 #ifndef YY_INPUT
605 #define YY_INPUT(buf,result,max_size) \
606 if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
607 { \
608 int c = '*'; \
609 int n; \
610 for ( n = 0; n < max_size && \
611 (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
612 buf[n] = (char) c; \
613 if ( c == '\n' ) \
614 buf[n++] = (char) c; \
615 if ( c == EOF && ferror( yyin ) ) \
616 YY_FATAL_ERROR( "input in flex scanner failed" ); \
617 result = n; \
618 } \
619 else \
620 { \
621 errno=0; \
622 while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, yyin)) == 0 && ferror(yyin)) \
623 { \
624 if( errno != EINTR) \
625 { \
626 YY_FATAL_ERROR( "input in flex scanner failed" ); \
627 break; \
628 } \
629 errno=0; \
630 clearerr(yyin); \
631 } \
632 }\
633 \
634
635 #endif
636
637 /* No semi-colon after return; correct usage is to write "yyterminate();" -
638 * we don't want an extra ';' after the "return" because that will cause
639 * some compilers to complain about unreachable statements.
640 */
641 #ifndef yyterminate
642 #define yyterminate() return YY_NULL
643 #endif
644
645 /* Number of entries by which start-condition stack grows. */
646 #ifndef YY_START_STACK_INCR
647 #define YY_START_STACK_INCR 25
648 #endif
649
650 /* Report a fatal error. */
651 #ifndef YY_FATAL_ERROR
652 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
653 #endif
654
655 /* end tables serialization structures and prototypes */
656
657 /* Default declaration of generated scanner - a define so the user can
658 * easily add parameters.
659 */
660 #ifndef YY_DECL
661 #define YY_DECL_IS_OURS 1
662
663 extern int yylex (void);
664
665 #define YY_DECL int yylex (void)
666 #endif /* !YY_DECL */
667
668 /* Code executed at the beginning of each rule, after yytext and yyleng
669 * have been set up.
670 */
671 #ifndef YY_USER_ACTION
672 #define YY_USER_ACTION
673 #endif
674
675 /* Code executed at the end of each rule. */
676 #ifndef YY_BREAK
677 #define YY_BREAK /*LINTED*/break;
678 #endif
679
680 #define YY_RULE_SETUP \
681 YY_USER_ACTION
682
683 /** The main scanner function which does all the work.
684 */
685 YY_DECL
686 {
687 yy_state_type yy_current_state;
688 char *yy_cp, *yy_bp;
689 int yy_act;
690
691 if ( !(yy_init) )
692 {
693 (yy_init) = 1;
694
695 #ifdef YY_USER_INIT
696 YY_USER_INIT;
697 #endif
698
699 if ( ! (yy_start) )
700 (yy_start) = 1; /* first start state */
701
702 if ( ! yyin )
703 yyin = stdin;
704
705 if ( ! yyout )
706 yyout = stdout;
707
708 if ( ! YY_CURRENT_BUFFER ) {
709 yyensure_buffer_stack ();
710 YY_CURRENT_BUFFER_LVALUE =
711 yy_create_buffer( yyin, YY_BUF_SIZE );
712 }
713
714 yy_load_buffer_state( );
715 }
716
717 {
718 #line 48 "tokenizer.l"
719
720 #line 722 "tokenizer.c"
721
722 while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */
723 {
724 yy_cp = (yy_c_buf_p);
725
726 /* Support of yytext. */
727 *yy_cp = (yy_hold_char);
728
729 /* yy_bp points to the position in yy_ch_buf of the start of
730 * the current run.
731 */
732 yy_bp = yy_cp;
733
734 yy_current_state = (yy_start);
735 yy_match:
736 do
737 {
738 YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ;
739 if ( yy_accept[yy_current_state] )
740 {
741 (yy_last_accepting_state) = yy_current_state;
742 (yy_last_accepting_cpos) = yy_cp;
743 }
744 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
745 {
746 yy_current_state = (int) yy_def[yy_current_state];
747 if ( yy_current_state >= 35 )
748 yy_c = yy_meta[yy_c];
749 }
750 yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
751 ++yy_cp;
752 }
753 while ( yy_base[yy_current_state] != 49 );
754
755 yy_find_action:
756 yy_act = yy_accept[yy_current_state];
757 if ( yy_act == 0 )
758 { /* have to back up */
759 yy_cp = (yy_last_accepting_cpos);
760 yy_current_state = (yy_last_accepting_state);
761 yy_act = yy_accept[yy_current_state];
762 }
763
764 YY_DO_BEFORE_ACTION;
765
766 do_action: /* This label is used only to access EOF actions. */
767
768 switch ( yy_act )
769 { /* beginning of action switch */
770 case 0: /* must back up */
771 /* undo the effects of YY_DO_BEFORE_ACTION */
772 *yy_cp = (yy_hold_char);
773 yy_cp = (yy_last_accepting_cpos);
774 yy_current_state = (yy_last_accepting_state);
775 goto yy_find_action;
776
777 case 1:
778 /* rule 1 can match eol */
779 YY_RULE_SETUP
780 #line 49 "tokenizer.l"
781 {/* just skip it */}
782 YY_BREAK
783 case 2:
784 YY_RULE_SETUP
785 #line 50 "tokenizer.l"
786 { yylval = number(); return(NUMBER); }
787 YY_BREAK
788 case 3:
789 YY_RULE_SETUP
790 #line 51 "tokenizer.l"
791 { if (mimic_gnu) {
792 yylval = parse_radix(); return(NUMBER);
793 } else {
794 return(ERROR);
795 }
796 }
797 YY_BREAK
798 case 4:
799 YY_RULE_SETUP
800 #line 57 "tokenizer.l"
801 { return(LE); }
802 YY_BREAK
803 case 5:
804 YY_RULE_SETUP
805 #line 58 "tokenizer.l"
806 { return(GE); }
807 YY_BREAK
808 case 6:
809 YY_RULE_SETUP
810 #line 59 "tokenizer.l"
811 { return(LSHIFT); }
812 YY_BREAK
813 case 7:
814 YY_RULE_SETUP
815 #line 60 "tokenizer.l"
816 { return(RSHIFT); }
817 YY_BREAK
818 case 8:
819 YY_RULE_SETUP
820 #line 61 "tokenizer.l"
821 { return(EQ); }
822 YY_BREAK
823 case 9:
824 YY_RULE_SETUP
825 #line 62 "tokenizer.l"
826 { return(NE); }
827 YY_BREAK
828 case 10:
829 YY_RULE_SETUP
830 #line 63 "tokenizer.l"
831 { return(LAND); }
832 YY_BREAK
833 case 11:
834 YY_RULE_SETUP
835 #line 64 "tokenizer.l"
836 { return(LOR); }
837 YY_BREAK
838 case 12:
839 YY_RULE_SETUP
840 #line 65 "tokenizer.l"
841 { if (mimic_gnu) { return (EXPONENT); } }
842 YY_BREAK
843 case 13:
844 YY_RULE_SETUP
845 #line 66 "tokenizer.l"
846 { return yytext[0]; }
847 YY_BREAK
848 case 14:
849 YY_RULE_SETUP
850 #line 67 "tokenizer.l"
851 ECHO;
852 YY_BREAK
853 #line 855 "tokenizer.c"
854 case YY_STATE_EOF(INITIAL):
855 yyterminate();
856
857 case YY_END_OF_BUFFER:
858 {
859 /* Amount of text matched not including the EOB char. */
860 int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
861
862 /* Undo the effects of YY_DO_BEFORE_ACTION. */
863 *yy_cp = (yy_hold_char);
864 YY_RESTORE_YY_MORE_OFFSET
865
866 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
867 {
868 /* We're scanning a new file or input source. It's
869 * possible that this happened because the user
870 * just pointed yyin at a new source and called
871 * yylex(). If so, then we have to assure
872 * consistency between YY_CURRENT_BUFFER and our
873 * globals. Here is the right place to do so, because
874 * this is the first action (other than possibly a
875 * back-up) that will match for the new input source.
876 */
877 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
878 YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
879 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
880 }
881
882 /* Note that here we test for yy_c_buf_p "<=" to the position
883 * of the first EOB in the buffer, since yy_c_buf_p will
884 * already have been incremented past the NUL character
885 * (since all states make transitions on EOB to the
886 * end-of-buffer state). Contrast this with the test
887 * in input().
888 */
889 if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
890 { /* This was really a NUL. */
891 yy_state_type yy_next_state;
892
893 (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
894
895 yy_current_state = yy_get_previous_state( );
896
897 /* Okay, we're now positioned to make the NUL
898 * transition. We couldn't have
899 * yy_get_previous_state() go ahead and do it
900 * for us because it doesn't know how to deal
901 * with the possibility of jamming (and we don't
902 * want to build jamming into it because then it
903 * will run more slowly).
904 */
905
906 yy_next_state = yy_try_NUL_trans( yy_current_state );
907
908 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
909
910 if ( yy_next_state )
911 {
912 /* Consume the NUL. */
913 yy_cp = ++(yy_c_buf_p);
914 yy_current_state = yy_next_state;
915 goto yy_match;
916 }
917
918 else
919 {
920 yy_cp = (yy_c_buf_p);
921 goto yy_find_action;
922 }
923 }
924
925 else switch ( yy_get_next_buffer( ) )
926 {
927 case EOB_ACT_END_OF_FILE:
928 {
929 (yy_did_buffer_switch_on_eof) = 0;
930
931 if ( yywrap( ) )
932 {
933 /* Note: because we've taken care in
934 * yy_get_next_buffer() to have set up
935 * yytext, we can now set up
936 * yy_c_buf_p so that if some total
937 * hoser (like flex itself) wants to
938 * call the scanner after we return the
939 * YY_NULL, it'll still work - another
940 * YY_NULL will get returned.
941 */
942 (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
943
944 yy_act = YY_STATE_EOF(YY_START);
945 goto do_action;
946 }
947
948 else
949 {
950 if ( ! (yy_did_buffer_switch_on_eof) )
951 YY_NEW_FILE;
952 }
953 break;
954 }
955
956 case EOB_ACT_CONTINUE_SCAN:
957 (yy_c_buf_p) =
958 (yytext_ptr) + yy_amount_of_matched_text;
959
960 yy_current_state = yy_get_previous_state( );
961
962 yy_cp = (yy_c_buf_p);
963 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
964 goto yy_match;
965
966 case EOB_ACT_LAST_MATCH:
967 (yy_c_buf_p) =
968 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
969
970 yy_current_state = yy_get_previous_state( );
971
972 yy_cp = (yy_c_buf_p);
973 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
974 goto yy_find_action;
975 }
976 break;
977 }
978
979 default:
980 YY_FATAL_ERROR(
981 "fatal flex scanner internal error--no action found" );
982 } /* end of action switch */
983 } /* end of scanning one token */
984 } /* end of user's declarations */
985 } /* end of yylex */
986
987 /* yy_get_next_buffer - try to read in a new buffer
988 *
989 * Returns a code representing an action:
990 * EOB_ACT_LAST_MATCH -
991 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
992 * EOB_ACT_END_OF_FILE - end of file
993 */
yy_get_next_buffer(void)994 static int yy_get_next_buffer (void)
995 {
996 char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
997 char *source = (yytext_ptr);
998 int number_to_move, i;
999 int ret_val;
1000
1001 if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
1002 YY_FATAL_ERROR(
1003 "fatal flex scanner internal error--end of buffer missed" );
1004
1005 if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
1006 { /* Don't try to fill the buffer, so this is an EOF. */
1007 if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
1008 {
1009 /* We matched a single character, the EOB, so
1010 * treat this as a final EOF.
1011 */
1012 return EOB_ACT_END_OF_FILE;
1013 }
1014
1015 else
1016 {
1017 /* We matched some text prior to the EOB, first
1018 * process it.
1019 */
1020 return EOB_ACT_LAST_MATCH;
1021 }
1022 }
1023
1024 /* Try to read more data. */
1025
1026 /* First move last chars to start of buffer. */
1027 number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr) - 1);
1028
1029 for ( i = 0; i < number_to_move; ++i )
1030 *(dest++) = *(source++);
1031
1032 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
1033 /* don't do the read, it's not guaranteed to return an EOF,
1034 * just force an EOF
1035 */
1036 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
1037
1038 else
1039 {
1040 int num_to_read =
1041 YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
1042
1043 while ( num_to_read <= 0 )
1044 { /* Not enough room in the buffer - grow it. */
1045
1046 /* just a shorter name for the current buffer */
1047 YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
1048
1049 int yy_c_buf_p_offset =
1050 (int) ((yy_c_buf_p) - b->yy_ch_buf);
1051
1052 if ( b->yy_is_our_buffer )
1053 {
1054 int new_size = b->yy_buf_size * 2;
1055
1056 if ( new_size <= 0 )
1057 b->yy_buf_size += b->yy_buf_size / 8;
1058 else
1059 b->yy_buf_size *= 2;
1060
1061 b->yy_ch_buf = (char *)
1062 /* Include room in for 2 EOB chars. */
1063 yyrealloc( (void *) b->yy_ch_buf,
1064 (yy_size_t) (b->yy_buf_size + 2) );
1065 }
1066 else
1067 /* Can't grow it, we don't own it. */
1068 b->yy_ch_buf = NULL;
1069
1070 if ( ! b->yy_ch_buf )
1071 YY_FATAL_ERROR(
1072 "fatal error - scanner input buffer overflow" );
1073
1074 (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
1075
1076 num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
1077 number_to_move - 1;
1078
1079 }
1080
1081 if ( num_to_read > YY_READ_BUF_SIZE )
1082 num_to_read = YY_READ_BUF_SIZE;
1083
1084 /* Read in more data. */
1085 YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
1086 (yy_n_chars), num_to_read );
1087
1088 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1089 }
1090
1091 if ( (yy_n_chars) == 0 )
1092 {
1093 if ( number_to_move == YY_MORE_ADJ )
1094 {
1095 ret_val = EOB_ACT_END_OF_FILE;
1096 yyrestart( yyin );
1097 }
1098
1099 else
1100 {
1101 ret_val = EOB_ACT_LAST_MATCH;
1102 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
1103 YY_BUFFER_EOF_PENDING;
1104 }
1105 }
1106
1107 else
1108 ret_val = EOB_ACT_CONTINUE_SCAN;
1109
1110 if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
1111 /* Extend the array by 50%, plus the number we really need. */
1112 int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
1113 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc(
1114 (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t) new_size );
1115 if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
1116 YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
1117 /* "- 2" to take care of EOB's */
1118 YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int) (new_size - 2);
1119 }
1120
1121 (yy_n_chars) += number_to_move;
1122 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
1123 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
1124
1125 (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
1126
1127 return ret_val;
1128 }
1129
1130 /* yy_get_previous_state - get the state just before the EOB char was reached */
1131
yy_get_previous_state(void)1132 static yy_state_type yy_get_previous_state (void)
1133 {
1134 yy_state_type yy_current_state;
1135 char *yy_cp;
1136
1137 yy_current_state = (yy_start);
1138
1139 for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
1140 {
1141 YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
1142 if ( yy_accept[yy_current_state] )
1143 {
1144 (yy_last_accepting_state) = yy_current_state;
1145 (yy_last_accepting_cpos) = yy_cp;
1146 }
1147 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1148 {
1149 yy_current_state = (int) yy_def[yy_current_state];
1150 if ( yy_current_state >= 35 )
1151 yy_c = yy_meta[yy_c];
1152 }
1153 yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
1154 }
1155
1156 return yy_current_state;
1157 }
1158
1159 /* yy_try_NUL_trans - try to make a transition on the NUL character
1160 *
1161 * synopsis
1162 * next_state = yy_try_NUL_trans( current_state );
1163 */
yy_try_NUL_trans(yy_state_type yy_current_state)1164 static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
1165 {
1166 int yy_is_jam;
1167 char *yy_cp = (yy_c_buf_p);
1168
1169 YY_CHAR yy_c = 1;
1170 if ( yy_accept[yy_current_state] )
1171 {
1172 (yy_last_accepting_state) = yy_current_state;
1173 (yy_last_accepting_cpos) = yy_cp;
1174 }
1175 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1176 {
1177 yy_current_state = (int) yy_def[yy_current_state];
1178 if ( yy_current_state >= 35 )
1179 yy_c = yy_meta[yy_c];
1180 }
1181 yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
1182 yy_is_jam = (yy_current_state == 34);
1183
1184 return yy_is_jam ? 0 : yy_current_state;
1185 }
1186
1187 #ifndef YY_NO_UNPUT
1188
1189 #endif
1190
1191 #ifndef YY_NO_INPUT
1192 #ifdef __cplusplus
yyinput(void)1193 static int yyinput (void)
1194 #else
1195 static int input (void)
1196 #endif
1197
1198 {
1199 int c;
1200
1201 *(yy_c_buf_p) = (yy_hold_char);
1202
1203 if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
1204 {
1205 /* yy_c_buf_p now points to the character we want to return.
1206 * If this occurs *before* the EOB characters, then it's a
1207 * valid NUL; if not, then we've hit the end of the buffer.
1208 */
1209 if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
1210 /* This was really a NUL. */
1211 *(yy_c_buf_p) = '\0';
1212
1213 else
1214 { /* need more input */
1215 int offset = (int) ((yy_c_buf_p) - (yytext_ptr));
1216 ++(yy_c_buf_p);
1217
1218 switch ( yy_get_next_buffer( ) )
1219 {
1220 case EOB_ACT_LAST_MATCH:
1221 /* This happens because yy_g_n_b()
1222 * sees that we've accumulated a
1223 * token and flags that we need to
1224 * try matching the token before
1225 * proceeding. But for input(),
1226 * there's no matching to consider.
1227 * So convert the EOB_ACT_LAST_MATCH
1228 * to EOB_ACT_END_OF_FILE.
1229 */
1230
1231 /* Reset buffer status. */
1232 yyrestart( yyin );
1233
1234 /*FALLTHROUGH*/
1235
1236 case EOB_ACT_END_OF_FILE:
1237 {
1238 if ( yywrap( ) )
1239 return 0;
1240
1241 if ( ! (yy_did_buffer_switch_on_eof) )
1242 YY_NEW_FILE;
1243 #ifdef __cplusplus
1244 return yyinput();
1245 #else
1246 return input();
1247 #endif
1248 }
1249
1250 case EOB_ACT_CONTINUE_SCAN:
1251 (yy_c_buf_p) = (yytext_ptr) + offset;
1252 break;
1253 }
1254 }
1255 }
1256
1257 c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
1258 *(yy_c_buf_p) = '\0'; /* preserve yytext */
1259 (yy_hold_char) = *++(yy_c_buf_p);
1260
1261 return c;
1262 }
1263 #endif /* ifndef YY_NO_INPUT */
1264
1265 /** Immediately switch to a different input stream.
1266 * @param input_file A readable stream.
1267 *
1268 * @note This function does not reset the start condition to @c INITIAL .
1269 */
yyrestart(FILE * input_file)1270 void yyrestart (FILE * input_file )
1271 {
1272
1273 if ( ! YY_CURRENT_BUFFER ){
1274 yyensure_buffer_stack ();
1275 YY_CURRENT_BUFFER_LVALUE =
1276 yy_create_buffer( yyin, YY_BUF_SIZE );
1277 }
1278
1279 yy_init_buffer( YY_CURRENT_BUFFER, input_file );
1280 yy_load_buffer_state( );
1281 }
1282
1283 /** Switch to a different input buffer.
1284 * @param new_buffer The new input buffer.
1285 *
1286 */
yy_switch_to_buffer(YY_BUFFER_STATE new_buffer)1287 void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
1288 {
1289
1290 /* TODO. We should be able to replace this entire function body
1291 * with
1292 * yypop_buffer_state();
1293 * yypush_buffer_state(new_buffer);
1294 */
1295 yyensure_buffer_stack ();
1296 if ( YY_CURRENT_BUFFER == new_buffer )
1297 return;
1298
1299 if ( YY_CURRENT_BUFFER )
1300 {
1301 /* Flush out information for old buffer. */
1302 *(yy_c_buf_p) = (yy_hold_char);
1303 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
1304 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1305 }
1306
1307 YY_CURRENT_BUFFER_LVALUE = new_buffer;
1308 yy_load_buffer_state( );
1309
1310 /* We don't actually know whether we did this switch during
1311 * EOF (yywrap()) processing, but the only time this flag
1312 * is looked at is after yywrap() is called, so it's safe
1313 * to go ahead and always set it.
1314 */
1315 (yy_did_buffer_switch_on_eof) = 1;
1316 }
1317
yy_load_buffer_state(void)1318 static void yy_load_buffer_state (void)
1319 {
1320 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
1321 (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
1322 yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
1323 (yy_hold_char) = *(yy_c_buf_p);
1324 }
1325
1326 /** Allocate and initialize an input buffer state.
1327 * @param file A readable stream.
1328 * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
1329 *
1330 * @return the allocated buffer state.
1331 */
yy_create_buffer(FILE * file,int size)1332 YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
1333 {
1334 YY_BUFFER_STATE b;
1335
1336 b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) );
1337 if ( ! b )
1338 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1339
1340 b->yy_buf_size = size;
1341
1342 /* yy_ch_buf has to be 2 characters longer than the size given because
1343 * we need to put in 2 end-of-buffer characters.
1344 */
1345 b->yy_ch_buf = (char *) yyalloc( (yy_size_t) (b->yy_buf_size + 2) );
1346 if ( ! b->yy_ch_buf )
1347 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1348
1349 b->yy_is_our_buffer = 1;
1350
1351 yy_init_buffer( b, file );
1352
1353 return b;
1354 }
1355
1356 /** Destroy the buffer.
1357 * @param b a buffer created with yy_create_buffer()
1358 *
1359 */
yy_delete_buffer(YY_BUFFER_STATE b)1360 void yy_delete_buffer (YY_BUFFER_STATE b )
1361 {
1362
1363 if ( ! b )
1364 return;
1365
1366 if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
1367 YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
1368
1369 if ( b->yy_is_our_buffer )
1370 yyfree( (void *) b->yy_ch_buf );
1371
1372 yyfree( (void *) b );
1373 }
1374
1375 /* Initializes or reinitializes a buffer.
1376 * This function is sometimes called more than once on the same buffer,
1377 * such as during a yyrestart() or at EOF.
1378 */
yy_init_buffer(YY_BUFFER_STATE b,FILE * file)1379 static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
1380
1381 {
1382 int oerrno = errno;
1383
1384 yy_flush_buffer( b );
1385
1386 b->yy_input_file = file;
1387 b->yy_fill_buffer = 1;
1388
1389 /* If b is the current buffer, then yy_init_buffer was _probably_
1390 * called from yyrestart() or through yy_get_next_buffer.
1391 * In that case, we don't want to reset the lineno or column.
1392 */
1393 if (b != YY_CURRENT_BUFFER){
1394 b->yy_bs_lineno = 1;
1395 b->yy_bs_column = 0;
1396 }
1397
1398 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
1399
1400 errno = oerrno;
1401 }
1402
1403 /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
1404 * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
1405 *
1406 */
yy_flush_buffer(YY_BUFFER_STATE b)1407 void yy_flush_buffer (YY_BUFFER_STATE b )
1408 {
1409 if ( ! b )
1410 return;
1411
1412 b->yy_n_chars = 0;
1413
1414 /* We always need two end-of-buffer characters. The first causes
1415 * a transition to the end-of-buffer state. The second causes
1416 * a jam in that state.
1417 */
1418 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
1419 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
1420
1421 b->yy_buf_pos = &b->yy_ch_buf[0];
1422
1423 b->yy_at_bol = 1;
1424 b->yy_buffer_status = YY_BUFFER_NEW;
1425
1426 if ( b == YY_CURRENT_BUFFER )
1427 yy_load_buffer_state( );
1428 }
1429
1430 /** Pushes the new state onto the stack. The new state becomes
1431 * the current state. This function will allocate the stack
1432 * if necessary.
1433 * @param new_buffer The new state.
1434 *
1435 */
yypush_buffer_state(YY_BUFFER_STATE new_buffer)1436 void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
1437 {
1438 if (new_buffer == NULL)
1439 return;
1440
1441 yyensure_buffer_stack();
1442
1443 /* This block is copied from yy_switch_to_buffer. */
1444 if ( YY_CURRENT_BUFFER )
1445 {
1446 /* Flush out information for old buffer. */
1447 *(yy_c_buf_p) = (yy_hold_char);
1448 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
1449 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1450 }
1451
1452 /* Only push if top exists. Otherwise, replace top. */
1453 if (YY_CURRENT_BUFFER)
1454 (yy_buffer_stack_top)++;
1455 YY_CURRENT_BUFFER_LVALUE = new_buffer;
1456
1457 /* copied from yy_switch_to_buffer. */
1458 yy_load_buffer_state( );
1459 (yy_did_buffer_switch_on_eof) = 1;
1460 }
1461
1462 /** Removes and deletes the top of the stack, if present.
1463 * The next element becomes the new top.
1464 *
1465 */
yypop_buffer_state(void)1466 void yypop_buffer_state (void)
1467 {
1468 if (!YY_CURRENT_BUFFER)
1469 return;
1470
1471 yy_delete_buffer(YY_CURRENT_BUFFER );
1472 YY_CURRENT_BUFFER_LVALUE = NULL;
1473 if ((yy_buffer_stack_top) > 0)
1474 --(yy_buffer_stack_top);
1475
1476 if (YY_CURRENT_BUFFER) {
1477 yy_load_buffer_state( );
1478 (yy_did_buffer_switch_on_eof) = 1;
1479 }
1480 }
1481
1482 /* Allocates the stack if it does not exist.
1483 * Guarantees space for at least one push.
1484 */
yyensure_buffer_stack(void)1485 static void yyensure_buffer_stack (void)
1486 {
1487 yy_size_t num_to_alloc;
1488
1489 if (!(yy_buffer_stack)) {
1490
1491 /* First allocation is just for 2 elements, since we don't know if this
1492 * scanner will even need a stack. We use 2 instead of 1 to avoid an
1493 * immediate realloc on the next call.
1494 */
1495 num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */
1496 (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
1497 (num_to_alloc * sizeof(struct yy_buffer_state*)
1498 );
1499 if ( ! (yy_buffer_stack) )
1500 YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
1501
1502 memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
1503
1504 (yy_buffer_stack_max) = num_to_alloc;
1505 (yy_buffer_stack_top) = 0;
1506 return;
1507 }
1508
1509 if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
1510
1511 /* Increase the buffer to prepare for a possible push. */
1512 yy_size_t grow_size = 8 /* arbitrary grow size */;
1513
1514 num_to_alloc = (yy_buffer_stack_max) + grow_size;
1515 (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
1516 ((yy_buffer_stack),
1517 num_to_alloc * sizeof(struct yy_buffer_state*)
1518 );
1519 if ( ! (yy_buffer_stack) )
1520 YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
1521
1522 /* zero only the new slots.*/
1523 memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
1524 (yy_buffer_stack_max) = num_to_alloc;
1525 }
1526 }
1527
1528 /** Setup the input buffer state to scan directly from a user-specified character buffer.
1529 * @param base the character buffer
1530 * @param size the size in bytes of the character buffer
1531 *
1532 * @return the newly allocated buffer state object.
1533 */
yy_scan_buffer(char * base,yy_size_t size)1534 YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
1535 {
1536 YY_BUFFER_STATE b;
1537
1538 if ( size < 2 ||
1539 base[size-2] != YY_END_OF_BUFFER_CHAR ||
1540 base[size-1] != YY_END_OF_BUFFER_CHAR )
1541 /* They forgot to leave room for the EOB's. */
1542 return NULL;
1543
1544 b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) );
1545 if ( ! b )
1546 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
1547
1548 b->yy_buf_size = (int) (size - 2); /* "- 2" to take care of EOB's */
1549 b->yy_buf_pos = b->yy_ch_buf = base;
1550 b->yy_is_our_buffer = 0;
1551 b->yy_input_file = NULL;
1552 b->yy_n_chars = b->yy_buf_size;
1553 b->yy_is_interactive = 0;
1554 b->yy_at_bol = 1;
1555 b->yy_fill_buffer = 0;
1556 b->yy_buffer_status = YY_BUFFER_NEW;
1557
1558 yy_switch_to_buffer( b );
1559
1560 return b;
1561 }
1562
1563 /** Setup the input buffer state to scan a string. The next call to yylex() will
1564 * scan from a @e copy of @a str.
1565 * @param yystr a NUL-terminated string to scan
1566 *
1567 * @return the newly allocated buffer state object.
1568 * @note If you want to scan bytes that may contain NUL values, then use
1569 * yy_scan_bytes() instead.
1570 */
yy_scan_string(const char * yystr)1571 YY_BUFFER_STATE yy_scan_string (const char * yystr )
1572 {
1573
1574 return yy_scan_bytes( yystr, (int) strlen(yystr) );
1575 }
1576
1577 /** Setup the input buffer state to scan the given bytes. The next call to yylex() will
1578 * scan from a @e copy of @a bytes.
1579 * @param yybytes the byte buffer to scan
1580 * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
1581 *
1582 * @return the newly allocated buffer state object.
1583 */
yy_scan_bytes(const char * yybytes,int _yybytes_len)1584 YY_BUFFER_STATE yy_scan_bytes (const char * yybytes, int _yybytes_len )
1585 {
1586 YY_BUFFER_STATE b;
1587 char *buf;
1588 yy_size_t n;
1589 int i;
1590
1591 /* Get memory for full buffer, including space for trailing EOB's. */
1592 n = (yy_size_t) (_yybytes_len + 2);
1593 buf = (char *) yyalloc( n );
1594 if ( ! buf )
1595 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
1596
1597 for ( i = 0; i < _yybytes_len; ++i )
1598 buf[i] = yybytes[i];
1599
1600 buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
1601
1602 b = yy_scan_buffer( buf, n );
1603 if ( ! b )
1604 YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
1605
1606 /* It's okay to grow etc. this buffer, and we should throw it
1607 * away when we're done.
1608 */
1609 b->yy_is_our_buffer = 1;
1610
1611 return b;
1612 }
1613
1614 #ifndef YY_EXIT_FAILURE
1615 #define YY_EXIT_FAILURE 2
1616 #endif
1617
yy_fatal_error(const char * msg)1618 static void yynoreturn yy_fatal_error (const char* msg )
1619 {
1620 fprintf( stderr, "%s\n", msg );
1621 exit( YY_EXIT_FAILURE );
1622 }
1623
1624 /* Redefine yyless() so it works in section 3 code. */
1625
1626 #undef yyless
1627 #define yyless(n) \
1628 do \
1629 { \
1630 /* Undo effects of setting up yytext. */ \
1631 int yyless_macro_arg = (n); \
1632 YY_LESS_LINENO(yyless_macro_arg);\
1633 yytext[yyleng] = (yy_hold_char); \
1634 (yy_c_buf_p) = yytext + yyless_macro_arg; \
1635 (yy_hold_char) = *(yy_c_buf_p); \
1636 *(yy_c_buf_p) = '\0'; \
1637 yyleng = yyless_macro_arg; \
1638 } \
1639 while ( 0 )
1640
1641 /* Accessor methods (get/set functions) to struct members. */
1642
1643 /** Get the current line number.
1644 *
1645 */
yyget_lineno(void)1646 int yyget_lineno (void)
1647 {
1648
1649 return yylineno;
1650 }
1651
1652 /** Get the input stream.
1653 *
1654 */
yyget_in(void)1655 FILE *yyget_in (void)
1656 {
1657 return yyin;
1658 }
1659
1660 /** Get the output stream.
1661 *
1662 */
yyget_out(void)1663 FILE *yyget_out (void)
1664 {
1665 return yyout;
1666 }
1667
1668 /** Get the length of the current token.
1669 *
1670 */
yyget_leng(void)1671 int yyget_leng (void)
1672 {
1673 return yyleng;
1674 }
1675
1676 /** Get the current token.
1677 *
1678 */
1679
yyget_text(void)1680 char *yyget_text (void)
1681 {
1682 return yytext;
1683 }
1684
1685 /** Set the current line number.
1686 * @param _line_number line number
1687 *
1688 */
yyset_lineno(int _line_number)1689 void yyset_lineno (int _line_number )
1690 {
1691
1692 yylineno = _line_number;
1693 }
1694
1695 /** Set the input stream. This does not discard the current
1696 * input buffer.
1697 * @param _in_str A readable stream.
1698 *
1699 * @see yy_switch_to_buffer
1700 */
yyset_in(FILE * _in_str)1701 void yyset_in (FILE * _in_str )
1702 {
1703 yyin = _in_str ;
1704 }
1705
yyset_out(FILE * _out_str)1706 void yyset_out (FILE * _out_str )
1707 {
1708 yyout = _out_str ;
1709 }
1710
yyget_debug(void)1711 int yyget_debug (void)
1712 {
1713 return yy_flex_debug;
1714 }
1715
yyset_debug(int _bdebug)1716 void yyset_debug (int _bdebug )
1717 {
1718 yy_flex_debug = _bdebug ;
1719 }
1720
yy_init_globals(void)1721 static int yy_init_globals (void)
1722 {
1723 /* Initialization is the same as for the non-reentrant scanner.
1724 * This function is called from yylex_destroy(), so don't allocate here.
1725 */
1726
1727 (yy_buffer_stack) = NULL;
1728 (yy_buffer_stack_top) = 0;
1729 (yy_buffer_stack_max) = 0;
1730 (yy_c_buf_p) = NULL;
1731 (yy_init) = 0;
1732 (yy_start) = 0;
1733
1734 /* Defined in main.c */
1735 #ifdef YY_STDINIT
1736 yyin = stdin;
1737 yyout = stdout;
1738 #else
1739 yyin = NULL;
1740 yyout = NULL;
1741 #endif
1742
1743 /* For future reference: Set errno on error, since we are called by
1744 * yylex_init()
1745 */
1746 return 0;
1747 }
1748
1749 /* yylex_destroy is for both reentrant and non-reentrant scanners. */
yylex_destroy(void)1750 int yylex_destroy (void)
1751 {
1752
1753 /* Pop the buffer stack, destroying each element. */
1754 while(YY_CURRENT_BUFFER){
1755 yy_delete_buffer( YY_CURRENT_BUFFER );
1756 YY_CURRENT_BUFFER_LVALUE = NULL;
1757 yypop_buffer_state();
1758 }
1759
1760 /* Destroy the stack itself. */
1761 yyfree((yy_buffer_stack) );
1762 (yy_buffer_stack) = NULL;
1763
1764 /* Reset the globals. This is important in a non-reentrant scanner so the next time
1765 * yylex() is called, initialization will occur. */
1766 yy_init_globals( );
1767
1768 return 0;
1769 }
1770
1771 /*
1772 * Internal utility routines.
1773 */
1774
1775 #ifndef yytext_ptr
yy_flex_strncpy(char * s1,const char * s2,int n)1776 static void yy_flex_strncpy (char* s1, const char * s2, int n )
1777 {
1778
1779 int i;
1780 for ( i = 0; i < n; ++i )
1781 s1[i] = s2[i];
1782 }
1783 #endif
1784
1785 #ifdef YY_NEED_STRLEN
yy_flex_strlen(const char * s)1786 static int yy_flex_strlen (const char * s )
1787 {
1788 int n;
1789 for ( n = 0; s[n]; ++n )
1790 ;
1791
1792 return n;
1793 }
1794 #endif
1795
yyalloc(yy_size_t size)1796 void *yyalloc (yy_size_t size )
1797 {
1798 return malloc(size);
1799 }
1800
yyrealloc(void * ptr,yy_size_t size)1801 void *yyrealloc (void * ptr, yy_size_t size )
1802 {
1803
1804 /* The cast to (char *) in the following accommodates both
1805 * implementations that use char* generic pointers, and those
1806 * that use void* generic pointers. It works with the latter
1807 * because both ANSI C and C++ allow castless assignment from
1808 * any pointer type to void*, and deal with argument conversions
1809 * as though doing an assignment.
1810 */
1811 return realloc(ptr, size);
1812 }
1813
yyfree(void * ptr)1814 void yyfree (void * ptr )
1815 {
1816 free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
1817 }
1818
1819 #define YYTABLES_NAME "yytables"
1820
1821 #line 67 "tokenizer.l"
1822
1823
1824 int32_t
number(void)1825 number(void)
1826 {
1827 long l;
1828
1829 errno = 0;
1830 l = strtol(yytext, NULL, 0);
1831 if (((l == LONG_MAX || l == LONG_MIN) && errno == ERANGE) ||
1832 l > INT32_MAX || l < INT32_MIN) {
1833 m4_warnx("numeric overflow in expr: %s", yytext);
1834 }
1835 return l;
1836 }
1837
1838 int32_t
parse_radix(void)1839 parse_radix(void)
1840 {
1841 long base;
1842 char *next;
1843 long l;
1844 int d;
1845
1846 l = 0;
1847 base = strtol(yytext+2, &next, 0);
1848 if (base > 36 || next == NULL) {
1849 m4_warnx("error in number %s", yytext);
1850 } else {
1851 next++;
1852 while (*next != 0) {
1853 if (*next >= '0' && *next <= '9')
1854 d = *next - '0';
1855 else if (*next >= 'a' && *next <= 'z')
1856 d = *next - 'a' + 10;
1857 else {
1858 assert(*next >= 'A' && *next <= 'Z');
1859 d = *next - 'A' + 10;
1860 }
1861 if (d >= base) {
1862 m4_warnx("error in number %s", yytext);
1863 return 0;
1864 }
1865 l = base * l + d;
1866 next++;
1867 }
1868 }
1869 return l;
1870 }
1871
1872
1873