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