source: heimdal/trunk/lib/com_err/lex.c

Last change on this file was 1, checked in by Paul Smedley, 10 years ago

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