lexyy.c
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:60k
- /* A lexical scanner generated by flex */
- /* Scanner skeleton version:
- * $Header: /home/heikki/cvsroot/ib/pars/lexyy.c,v 1.2 2003/10/30 20:27:19 heikki Exp $
- */
- /* This include MUST be first to keep things portable ! */
- #include "univ.i"
- #define FLEX_SCANNER
- #define YY_FLEX_MAJOR_VERSION 2
- #define YY_FLEX_MINOR_VERSION 5
- #include <stdio.h>
- /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
- #ifdef c_plusplus
- #ifndef __cplusplus
- #define __cplusplus
- #endif
- #endif
- #ifdef __cplusplus
- #include <stdlib.h>
- /* Use prototypes in function declarations. */
- #define YY_USE_PROTOS
- /* The "const" storage-class-modifier is valid. */
- #define YY_USE_CONST
- #else /* ! __cplusplus */
- #if __STDC__
- #define YY_USE_PROTOS
- #define YY_USE_CONST
- #endif /* __STDC__ */
- #endif /* ! __cplusplus */
- #ifdef __TURBOC__
- #pragma warn -rch
- #pragma warn -use
- #include <io.h>
- #include <stdlib.h>
- #define YY_USE_CONST
- #define YY_USE_PROTOS
- #endif
- #ifdef YY_USE_CONST
- #define yyconst const
- #else
- #define yyconst
- #endif
- #ifdef YY_USE_PROTOS
- #define YY_PROTO(proto) proto
- #else
- #define YY_PROTO(proto) ()
- #endif
- /* Returned upon end-of-file. */
- #define YY_NULL 0
- /* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index. If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
- #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
- /* Enter a start condition. This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
- #define BEGIN yy_start = 1 + 2 *
- /* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state. The YYSTATE alias is for lex
- * compatibility.
- */
- #define YY_START ((yy_start - 1) / 2)
- #define YYSTATE YY_START
- /* Action number for EOF rule of a given start state. */
- #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
- /* Special action meaning "start processing a new file". */
- #define YY_NEW_FILE yyrestart( yyin )
- #define YY_END_OF_BUFFER_CHAR 0
- /* Size of default input buffer. */
- #define YY_BUF_SIZE 16384
- typedef struct yy_buffer_state *YY_BUFFER_STATE;
- extern int yyleng;
- extern FILE *yyin, *yyout;
- #define EOB_ACT_CONTINUE_SCAN 0
- #define EOB_ACT_END_OF_FILE 1
- #define EOB_ACT_LAST_MATCH 2
- /* The funky do-while in the following #define is used to turn the definition
- * int a single C statement (which needs a semi-colon terminator). This
- * avoids problems with code like:
- *
- * if ( condition_holds )
- * yyless( 5 );
- * else
- * do_something_else();
- *
- * Prior to using the do-while the compiler would get upset at the
- * "else" because it interpreted the "if" statement as being all
- * done when it reached the ';' after the yyless() call.
- */
- /* Return all but the first 'n' matched characters back to the input stream. */
- #define yyless(n)
- do
- {
- /* Undo effects of setting up yytext. */
- *yy_cp = yy_hold_char;
- YY_RESTORE_YY_MORE_OFFSET
- yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ;
- YY_DO_BEFORE_ACTION; /* set up yytext again */
- }
- while ( 0 )
- #define unput(c) yyunput( c, yytext_ptr )
- /* The following is because we cannot portably get our hands on size_t
- * (without autoconf's help, which isn't available because we want
- * flex-generated scanners to compile on their own).
- */
- typedef unsigned int yy_size_t;
- struct yy_buffer_state
- {
- FILE *yy_input_file;
- char *yy_ch_buf; /* input buffer */
- char *yy_buf_pos; /* current position in input buffer */
- /* Size of input buffer in bytes, not including room for EOB
- * characters.
- */
- yy_size_t yy_buf_size;
- /* Number of characters read into yy_ch_buf, not including EOB
- * characters.
- */
- int yy_n_chars;
- /* Whether we "own" the buffer - i.e., we know we created it,
- * and can realloc() it to grow it, and should free() it to
- * delete it.
- */
- int yy_is_our_buffer;
- /* Whether this is an "interactive" input source; if so, and
- * if we're using stdio for input, then we want to use getc()
- * instead of fread(), to make sure we stop fetching input after
- * each newline.
- */
- int yy_is_interactive;
- /* Whether we're considered to be at the beginning of a line.
- * If so, '^' rules will be active on the next match, otherwise
- * not.
- */
- int yy_at_bol;
- /* Whether to try to fill the input buffer when we reach the
- * end of it.
- */
- int yy_fill_buffer;
- int yy_buffer_status;
- #define YY_BUFFER_NEW 0
- #define YY_BUFFER_NORMAL 1
- /* When an EOF's been seen but there's still some text to process
- * then we mark the buffer as YY_EOF_PENDING, to indicate that we
- * shouldn't try reading from the input source any more. We might
- * still have a bunch of tokens to match, though, because of
- * possible backing-up.
- *
- * When we actually see the EOF, we change the status to "new"
- * (via yyrestart()), so that the user can continue scanning by
- * just pointing yyin at a new input file.
- */
- #define YY_BUFFER_EOF_PENDING 2
- };
- static YY_BUFFER_STATE yy_current_buffer = 0;
- /* We provide macros for accessing buffer states in case in the
- * future we want to put the buffer states in a more general
- * "scanner state".
- */
- #define YY_CURRENT_BUFFER yy_current_buffer
- /* yy_hold_char holds the character lost when yytext is formed. */
- static char yy_hold_char;
- static int yy_n_chars; /* number of characters read into yy_ch_buf */
- int yyleng;
- /* Points to current character in buffer. */
- static char *yy_c_buf_p = (char *) 0;
- static int yy_init = 1; /* whether we need to initialize */
- static int yy_start = 0; /* start state number */
- /* Flag which is used to allow yywrap()'s to do buffer switches
- * instead of setting up a fresh yyin. A bit of a hack ...
- */
- static int yy_did_buffer_switch_on_eof;
- void yyrestart YY_PROTO(( FILE *input_file ));
- void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
- void yy_load_buffer_state YY_PROTO(( void ));
- YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
- void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
- void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
- void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
- #define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
- YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
- YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
- YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
- static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
- static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
- static void yy_flex_free YY_PROTO(( void * ));
- #define yy_new_buffer yy_create_buffer
- #define yy_set_interactive(is_interactive)
- {
- if ( ! yy_current_buffer )
- yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
- yy_current_buffer->yy_is_interactive = is_interactive;
- }
- #define yy_set_bol(at_bol)
- {
- if ( ! yy_current_buffer )
- yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
- yy_current_buffer->yy_at_bol = at_bol;
- }
- #define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
- #define yywrap() 1
- #define YY_SKIP_YYWRAP
- typedef unsigned char YY_CHAR;
- FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
- typedef int yy_state_type;
- extern char *yytext;
- #define yytext_ptr yytext
- static yy_state_type yy_get_previous_state YY_PROTO(( void ));
- static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
- static int yy_get_next_buffer YY_PROTO(( void ));
- static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
- /* Done after the current pattern has been matched and before the
- * corresponding action - sets up yytext.
- */
- #define YY_DO_BEFORE_ACTION
- yytext_ptr = yy_bp;
- yyleng = (int) (yy_cp - yy_bp);
- yy_hold_char = *yy_cp;
- *yy_cp = ' ';
- yy_c_buf_p = yy_cp;
- #define YY_NUM_RULES 107
- #define YY_END_OF_BUFFER 108
- static yyconst short int yy_accept[367] =
- { 0,
- 0, 0, 102, 102, 0, 0, 108, 106, 105, 105,
- 97, 3, 86, 92, 95, 93, 90, 94, 106, 96,
- 1, 106, 91, 89, 87, 88, 100, 80, 80, 80,
- 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
- 80, 80, 80, 80, 80, 98, 99, 102, 103, 4,
- 5, 105, 81, 101, 2, 1, 82, 83, 85, 84,
- 80, 80, 80, 80, 80, 38, 80, 80, 80, 80,
- 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
- 21, 12, 18, 80, 80, 80, 80, 48, 55, 80,
- 9, 80, 80, 80, 80, 80, 80, 80, 80, 80,
- 80, 80, 80, 80, 80, 80, 80, 80, 102, 103,
- 103, 104, 4, 5, 2, 8, 39, 80, 80, 80,
- 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
- 80, 80, 80, 80, 20, 80, 80, 34, 80, 80,
- 80, 14, 80, 80, 10, 80, 80, 80, 13, 80,
- 80, 80, 80, 80, 74, 80, 80, 80, 45, 7,
- 80, 29, 80, 80, 80, 80, 80, 80, 80, 80,
- 80, 80, 80, 80, 80, 17, 80, 80, 80, 80,
- 80, 80, 80, 80, 80, 80, 80, 40, 80, 80,
- 23, 80, 80, 80, 32, 80, 80, 80, 80, 42,
- 80, 25, 80, 6, 58, 80, 80, 80, 36, 80,
- 80, 80, 80, 80, 80, 80, 80, 80, 22, 80,
- 80, 80, 80, 80, 80, 80, 80, 79, 80, 19,
- 80, 60, 80, 80, 80, 80, 30, 80, 80, 80,
- 80, 80, 80, 80, 24, 59, 16, 51, 80, 69,
- 80, 80, 80, 37, 80, 80, 80, 80, 80, 80,
- 80, 80, 80, 80, 50, 80, 80, 80, 80, 80,
- 80, 33, 26, 73, 80, 80, 77, 68, 80, 49,
- 80, 57, 80, 46, 80, 80, 41, 80, 70, 80,
- 72, 80, 80, 27, 80, 80, 80, 28, 66, 80,
- 80, 80, 80, 52, 44, 43, 80, 80, 80, 47,
- 56, 80, 80, 15, 80, 80, 67, 75, 80, 80,
- 71, 80, 62, 80, 80, 80, 80, 31, 80, 61,
- 80, 78, 80, 80, 80, 80, 53, 80, 80, 11,
- 80, 64, 63, 80, 35, 80, 76, 80, 80, 80,
- 80, 80, 80, 80, 80, 80, 80, 65, 80, 80,
- 80, 80, 80, 80, 54, 0
- } ;
- static yyconst int yy_ec[256] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 2, 1, 1, 1, 1, 4, 1, 5, 6,
- 7, 8, 9, 10, 11, 12, 13, 14, 14, 14,
- 14, 14, 14, 14, 14, 14, 14, 15, 16, 17,
- 18, 19, 20, 1, 21, 22, 23, 24, 25, 26,
- 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
- 37, 38, 39, 40, 41, 42, 43, 44, 45, 30,
- 1, 1, 1, 1, 46, 1, 30, 30, 30, 30,
- 30, 30, 30, 30, 30, 30, 30, 30, 30, 30,
- 30, 30, 30, 30, 30, 30, 30, 30, 30, 30,
- 30, 30, 47, 1, 48, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1
- } ;
- static yyconst int yy_meta[49] =
- { 0,
- 1, 1, 1, 1, 2, 1, 1, 3, 1, 1,
- 1, 1, 1, 4, 1, 1, 1, 1, 1, 1,
- 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
- 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
- 4, 4, 4, 4, 4, 4, 1, 1
- } ;
- static yyconst short int yy_base[373] =
- { 0,
- 0, 0, 387, 386, 388, 387, 391, 396, 47, 49,
- 396, 396, 396, 396, 396, 396, 396, 396, 378, 381,
- 41, 370, 396, 38, 396, 369, 396, 20, 33, 32,
- 36, 34, 44, 0, 46, 49, 40, 57, 348, 52,
- 63, 68, 56, 364, 66, 396, 396, 0, 89, 0,
- 379, 103, 396, 396, 369, 95, 396, 396, 396, 396,
- 0, 358, 76, 354, 346, 0, 358, 75, 78, 353,
- 339, 90, 337, 350, 335, 349, 332, 336, 332, 334,
- 0, 93, 0, 334, 332, 326, 333, 0, 0, 339,
- 339, 322, 85, 100, 337, 91, 86, 328, 102, 320,
- 336, 332, 310, 326, 330, 321, 102, 314, 0, 117,
- 129, 396, 0, 346, 336, 0, 0, 324, 319, 326,
- 308, 306, 305, 310, 105, 308, 320, 100, 308, 314,
- 315, 297, 297, 116, 0, 312, 313, 0, 300, 307,
- 118, 121, 304, 294, 303, 296, 293, 301, 0, 291,
- 301, 299, 290, 280, 274, 287, 272, 292, 0, 0,
- 277, 0, 291, 282, 279, 125, 275, 290, 269, 271,
- 276, 276, 268, 271, 266, 0, 278, 262, 272, 279,
- 270, 258, 257, 271, 260, 273, 253, 0, 263, 245,
- 0, 264, 261, 248, 0, 243, 248, 247, 257, 0,
- 243, 0, 247, 0, 0, 243, 240, 254, 0, 239,
- 239, 237, 253, 238, 250, 232, 250, 245, 0, 240,
- 240, 226, 225, 225, 239, 238, 237, 0, 221, 0,
- 215, 0, 234, 218, 217, 217, 0, 230, 220, 215,
- 214, 226, 216, 215, 0, 0, 0, 0, 208, 0,
- 222, 218, 204, 0, 218, 219, 202, 207, 200, 218,
- 200, 197, 198, 195, 0, 200, 212, 199, 206, 205,
- 190, 0, 0, 0, 182, 189, 0, 0, 186, 0,
- 185, 0, 199, 0, 200, 187, 0, 183, 0, 186,
- 0, 178, 180, 0, 179, 193, 186, 0, 0, 189,
- 192, 174, 189, 0, 0, 0, 170, 184, 183, 0,
- 0, 167, 166, 0, 181, 166, 0, 0, 172, 168,
- 0, 163, 0, 175, 164, 174, 163, 0, 150, 0,
- 170, 0, 154, 148, 154, 145, 0, 150, 163, 0,
- 162, 0, 0, 153, 0, 157, 0, 144, 144, 150,
- 136, 159, 151, 152, 136, 119, 109, 0, 121, 128,
- 119, 116, 112, 104, 0, 396, 159, 163, 59, 167,
- 171, 175
- } ;
- static yyconst short int yy_def[373] =
- { 0,
- 366, 1, 367, 367, 368, 368, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 366, 366, 370, 371, 372,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 370, 371,
- 371, 366, 372, 366, 366, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 369, 369, 369, 369, 369,
- 369, 369, 369, 369, 369, 0, 366, 366, 366, 366,
- 366, 366
- } ;
- static yyconst short int yy_nxt[445] =
- { 0,
- 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
- 18, 19, 20, 21, 22, 23, 24, 25, 26, 27,
- 28, 29, 30, 31, 32, 33, 34, 34, 35, 34,
- 34, 36, 34, 37, 38, 39, 34, 40, 41, 42,
- 43, 44, 45, 34, 34, 34, 46, 47, 52, 52,
- 52, 52, 55, 62, 56, 58, 59, 64, 63, 67,
- 72, 65, 61, 68, 73, 75, 69, 76, 77, 70,
- 74, 81, 71, 84, 86, 78, 94, 66, 79, 82,
- 87, 80, 88, 85, 83, 95, 96, 97, 101, 104,
- 89, 105, 90, 107, 91, 102, 111, 92, 117, 98,
- 108, 112, 103, 99, 52, 52, 55, 100, 56, 122,
- 124, 125, 129, 150, 118, 123, 140, 158, 126, 151,
- 152, 130, 156, 161, 366, 159, 170, 180, 131, 366,
- 171, 141, 142, 157, 162, 153, 111, 184, 185, 154,
- 191, 112, 197, 181, 192, 199, 220, 221, 365, 364,
- 363, 362, 361, 360, 359, 200, 358, 198, 222, 48,
- 48, 48, 48, 50, 50, 50, 50, 109, 109, 357,
- 109, 110, 110, 110, 110, 113, 356, 113, 113, 355,
- 354, 353, 352, 351, 350, 349, 348, 347, 346, 345,
- 344, 343, 342, 341, 340, 339, 338, 337, 336, 335,
- 334, 333, 332, 331, 330, 329, 328, 327, 326, 325,
- 324, 323, 322, 321, 320, 319, 318, 317, 316, 315,
- 314, 313, 312, 311, 310, 309, 308, 307, 306, 305,
- 304, 303, 302, 301, 300, 299, 298, 297, 296, 295,
- 294, 293, 292, 291, 290, 289, 288, 287, 286, 285,
- 284, 283, 282, 281, 280, 279, 278, 277, 276, 275,
- 274, 273, 272, 271, 270, 269, 268, 267, 266, 265,
- 264, 263, 262, 261, 260, 259, 258, 257, 256, 255,
- 254, 253, 252, 251, 250, 249, 248, 247, 246, 245,
- 244, 243, 242, 241, 240, 239, 238, 237, 236, 235,
- 234, 233, 232, 231, 230, 229, 228, 227, 226, 225,
- 224, 223, 219, 218, 217, 216, 215, 214, 213, 212,
- 211, 210, 209, 208, 207, 206, 205, 204, 203, 202,
- 201, 196, 195, 194, 193, 190, 189, 188, 187, 186,
- 183, 182, 179, 178, 177, 176, 175, 174, 173, 115,
- 114, 172, 169, 168, 167, 166, 165, 164, 163, 160,
- 155, 149, 148, 147, 146, 145, 144, 143, 139, 138,
- 137, 136, 135, 134, 133, 132, 128, 127, 121, 120,
- 119, 116, 115, 114, 106, 93, 60, 57, 54, 53,
- 366, 51, 51, 49, 49, 7, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366
- } ;
- static yyconst short int yy_chk[445] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 9, 9,
- 10, 10, 21, 28, 21, 24, 24, 29, 28, 30,
- 31, 29, 369, 30, 31, 32, 30, 32, 33, 30,
- 31, 35, 30, 36, 37, 33, 40, 29, 33, 35,
- 37, 33, 38, 36, 35, 40, 40, 41, 42, 43,
- 38, 43, 38, 45, 38, 42, 49, 38, 63, 41,
- 45, 49, 42, 41, 52, 52, 56, 41, 56, 68,
- 69, 69, 72, 93, 63, 68, 82, 97, 69, 93,
- 94, 72, 96, 99, 110, 97, 107, 125, 72, 110,
- 107, 82, 82, 96, 99, 94, 111, 128, 128, 94,
- 134, 111, 141, 125, 134, 142, 166, 166, 364, 363,
- 362, 361, 360, 359, 357, 142, 356, 141, 166, 367,
- 367, 367, 367, 368, 368, 368, 368, 370, 370, 355,
- 370, 371, 371, 371, 371, 372, 354, 372, 372, 353,
- 352, 351, 350, 349, 348, 346, 344, 341, 339, 338,
- 336, 335, 334, 333, 331, 329, 327, 326, 325, 324,
- 322, 320, 319, 316, 315, 313, 312, 309, 308, 307,
- 303, 302, 301, 300, 297, 296, 295, 293, 292, 290,
- 288, 286, 285, 283, 281, 279, 276, 275, 271, 270,
- 269, 268, 267, 266, 264, 263, 262, 261, 260, 259,
- 258, 257, 256, 255, 253, 252, 251, 249, 244, 243,
- 242, 241, 240, 239, 238, 236, 235, 234, 233, 231,
- 229, 227, 226, 225, 224, 223, 222, 221, 220, 218,
- 217, 216, 215, 214, 213, 212, 211, 210, 208, 207,
- 206, 203, 201, 199, 198, 197, 196, 194, 193, 192,
- 190, 189, 187, 186, 185, 184, 183, 182, 181, 180,
- 179, 178, 177, 175, 174, 173, 172, 171, 170, 169,
- 168, 167, 165, 164, 163, 161, 158, 157, 156, 155,
- 154, 153, 152, 151, 150, 148, 147, 146, 145, 144,
- 143, 140, 139, 137, 136, 133, 132, 131, 130, 129,
- 127, 126, 124, 123, 122, 121, 120, 119, 118, 115,
- 114, 108, 106, 105, 104, 103, 102, 101, 100, 98,
- 95, 92, 91, 90, 87, 86, 85, 84, 80, 79,
- 78, 77, 76, 75, 74, 73, 71, 70, 67, 65,
- 64, 62, 55, 51, 44, 39, 26, 22, 20, 19,
- 7, 6, 5, 4, 3, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,
- 366, 366, 366, 366
- } ;
- static yy_state_type yy_last_accepting_state;
- static char *yy_last_accepting_cpos;
- /* The intent behind this definition is that it'll catch
- * any uses of REJECT which flex missed.
- */
- #define REJECT reject_used_but_not_detected
- #define yymore() yymore_used_but_not_detected
- #define YY_MORE_ADJ 0
- #define YY_RESTORE_YY_MORE_OFFSET
- char *yytext;
- #line 1 "pars0lex.l"
- #define INITIAL 0
- /******************************************************
- SQL parser lexical analyzer: input file for the GNU Flex lexer generator
- (c) 1997 Innobase Oy
- Created 12/14/1997 Heikki Tuuri
- Published under the GPL version 2
- The InnoDB parser is frozen because MySQL takes care of SQL parsing.
- Therefore we normally keep the InnoDB parser C files as they are, and do
- not automatically generate them from pars0grm.y and pars0lex.l.
- How to make the InnoDB parser and lexer C files:
- 1. First do
- bison -d pars0grm.y
- That generates pars0grm.tab.c and pars0grm.tab.h.
- 2. Rename pars0grm.tab.c to pars0grm.c and pars0grm.tab.h to pars0grm.h.
- 3. Copy pars0grm.h also to /innobase/include
- 4. Do
- flex pars0lex.l
- That generates lex.yy.c.
- 5. Rename lex.yy.c to lexyy.c.
- 6. Remove the #include of unistd.h from about line 2500 of lexyy.c
- 7. Add '#include "univ.i"' before #include <stdio.h> in lexyy.c
- (Needed for AIX)
- These instructions seem to work at least with bison-1.28 and flex-2.5.4 on
- Linux.
- *******************************************************/
- #define YY_NEVER_INTERACTIVE 1
- #define YY_NO_INPUT 1
- #define YY_NO_UNPUT 1
- #define YY_NO_SCAN_BUFFER 1
- #define YY_NO_SCAN_BYTES 1
- #define YY_NO_SCAN_STRING 1
- #line 52 "pars0lex.l"
- #define YYSTYPE que_node_t*
- #include "univ.i"
- #include "pars0pars.h"
- #include "pars0grm.h"
- #include "pars0sym.h"
- #include "mem0mem.h"
- #include "os0proc.h"
- #define malloc(A) ut_malloc(A)
- #define free(A) ut_free(A)
- #define realloc(P, A) ut_realloc(P, A)
- #define exit(A) ut_error
- #define YY_INPUT(buf, result, max_size) pars_get_lex_chars(buf, &result, max_size)
- /* String buffer for removing quotes */
- static ulint stringbuf_len_alloc = 0; /* Allocated length */
- static ulint stringbuf_len = 0; /* Current length */
- static char* stringbuf; /* Start of buffer */
- /* Appends a string to the buffer. */
- static
- void
- string_append(
- /*==========*/
- const char* str, /* in: string to be appended */
- ulint len) /* in: length of the string */
- {
- if (stringbuf == NULL) {
- stringbuf = malloc(1);
- stringbuf_len_alloc = 1;
- }
- if (stringbuf_len + len > stringbuf_len_alloc) {
- while (stringbuf_len + len > stringbuf_len_alloc) {
- stringbuf_len_alloc <<= 1;
- }
- stringbuf = realloc(stringbuf, stringbuf_len_alloc);
- }
- memcpy(stringbuf + stringbuf_len, str, len);
- stringbuf_len += len;
- }
- #define comment 1
- #define quoted 2
- #line 676 "lex.yy.c"
- /* Macros after this point can all be overridden by user definitions in
- * section 1.
- */
- #ifndef YY_SKIP_YYWRAP
- #ifdef __cplusplus
- extern "C" int yywrap YY_PROTO(( void ));
- #else
- extern int yywrap YY_PROTO(( void ));
- #endif
- #endif
- #ifndef YY_NO_UNPUT
- static void yyunput YY_PROTO(( int c, char *buf_ptr ));
- #endif
- #ifndef yytext_ptr
- static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
- #endif
- #ifdef YY_NEED_STRLEN
- static int yy_flex_strlen YY_PROTO(( yyconst char * ));
- #endif
- #ifndef YY_NO_INPUT
- #ifdef __cplusplus
- static int yyinput YY_PROTO(( void ));
- #else
- static int input YY_PROTO(( void ));
- #endif
- #endif
- #if YY_STACK_USED
- static int yy_start_stack_ptr = 0;
- static int yy_start_stack_depth = 0;
- static int *yy_start_stack = 0;
- #ifndef YY_NO_PUSH_STATE
- static void yy_push_state YY_PROTO(( int new_state ));
- #endif
- #ifndef YY_NO_POP_STATE
- static void yy_pop_state YY_PROTO(( void ));
- #endif
- #ifndef YY_NO_TOP_STATE
- static int yy_top_state YY_PROTO(( void ));
- #endif
- #else
- #define YY_NO_PUSH_STATE 1
- #define YY_NO_POP_STATE 1
- #define YY_NO_TOP_STATE 1
- #endif
- #ifdef YY_MALLOC_DECL
- YY_MALLOC_DECL
- #else
- #if __STDC__
- #ifndef __cplusplus
- #include <stdlib.h>
- #endif
- #else
- /* Just try to get by without declaring the routines. This will fail
- * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
- * or sizeof(void*) != sizeof(int).
- */
- #endif
- #endif
- /* Amount of stuff to slurp up with each read. */
- #ifndef YY_READ_BUF_SIZE
- #define YY_READ_BUF_SIZE 8192
- #endif
- /* Copy whatever the last rule matched to the standard output. */
- #ifndef ECHO
- /* This used to be an fputs(), but since the string might contain NUL's,
- * we now use fwrite().
- */
- #define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
- #endif
- /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
- * is returned in "result".
- */
- #ifndef YY_INPUT
- #define YY_INPUT(buf,result,max_size)
- if ( yy_current_buffer->yy_is_interactive )
- {
- int c = '*', n;
- for ( n = 0; n < max_size &&
- (c = getc( yyin )) != EOF && c != 'n'; ++n )
- buf[n] = (char) c;
- if ( c == 'n' )
- buf[n++] = (char) c;
- if ( c == EOF && ferror( yyin ) )
- YY_FATAL_ERROR( "input in flex scanner failed" );
- result = n;
- }
- else if ( ((result = fread( buf, 1, max_size, yyin )) == 0)
- && ferror( yyin ) )
- YY_FATAL_ERROR( "input in flex scanner failed" );
- #endif
- /* No semi-colon after return; correct usage is to write "yyterminate();" -
- * we don't want an extra ';' after the "return" because that will cause
- * some compilers to complain about unreachable statements.
- */
- #ifndef yyterminate
- #define yyterminate() return YY_NULL
- #endif
- /* Number of entries by which start-condition stack grows. */
- #ifndef YY_START_STACK_INCR
- #define YY_START_STACK_INCR 25
- #endif
- /* Report a fatal error. */
- #ifndef YY_FATAL_ERROR
- #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
- #endif
- /* Default declaration of generated scanner - a define so the user can
- * easily add parameters.
- */
- #ifndef YY_DECL
- #define YY_DECL int yylex YY_PROTO(( void ))
- #endif
- /* Code executed at the beginning of each rule, after yytext and yyleng
- * have been set up.
- */
- #ifndef YY_USER_ACTION
- #define YY_USER_ACTION
- #endif
- /* Code executed at the end of each rule. */
- #ifndef YY_BREAK
- #define YY_BREAK break;
- #endif
- #define YY_RULE_SETUP
- YY_USER_ACTION
- YY_DECL
- {
- register yy_state_type yy_current_state;
- register char *yy_cp, *yy_bp;
- register int yy_act;
- #line 102 "pars0lex.l"
- #line 830 "lex.yy.c"
- if ( yy_init )
- {
- yy_init = 0;
- #ifdef YY_USER_INIT
- YY_USER_INIT;
- #endif
- if ( ! yy_start )
- yy_start = 1; /* first start state */
- if ( ! yyin )
- yyin = stdin;
- if ( ! yyout )
- yyout = stdout;
- if ( ! yy_current_buffer )
- yy_current_buffer =
- yy_create_buffer( yyin, YY_BUF_SIZE );
- yy_load_buffer_state();
- }
- while ( 1 ) /* loops until end-of-file is reached */
- {
- yy_cp = yy_c_buf_p;
- /* Support of yytext. */
- *yy_cp = yy_hold_char;
- /* yy_bp points to the position in yy_ch_buf of the start of
- * the current run.
- */
- yy_bp = yy_cp;
- yy_current_state = yy_start;
- yy_match:
- do
- {
- register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
- if ( yy_accept[yy_current_state] )
- {
- yy_last_accepting_state = yy_current_state;
- yy_last_accepting_cpos = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 367 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
- ++yy_cp;
- }
- while ( yy_base[yy_current_state] != 396 );
- yy_find_action:
- yy_act = yy_accept[yy_current_state];
- if ( yy_act == 0 )
- { /* have to back up */
- yy_cp = yy_last_accepting_cpos;
- yy_current_state = yy_last_accepting_state;
- yy_act = yy_accept[yy_current_state];
- }
- YY_DO_BEFORE_ACTION;
- do_action: /* This label is used only to access EOF actions. */
- switch ( yy_act )
- { /* beginning of action switch */
- case 0: /* must back up */
- /* undo the effects of YY_DO_BEFORE_ACTION */
- *yy_cp = yy_hold_char;
- yy_cp = yy_last_accepting_cpos;
- yy_current_state = yy_last_accepting_state;
- goto yy_find_action;
- case 1:
- YY_RULE_SETUP
- #line 104 "pars0lex.l"
- {
- yylval = sym_tab_add_int_lit(pars_sym_tab_global,
- atoi(yytext));
- return(PARS_INT_LIT);
- }
- YY_BREAK
- case 2:
- YY_RULE_SETUP
- #line 110 "pars0lex.l"
- {
- ut_error; /* not implemented */
- return(PARS_FLOAT_LIT);
- }
- YY_BREAK
- case 3:
- YY_RULE_SETUP
- #line 116 "pars0lex.l"
- {
- /* Quoted character string literals are handled in an explicit
- start state 'quoted'. This state is entered and the buffer for
- the scanned string is emptied upon encountering a starting quote.
- In the state 'quoted', only two actions are possible (defined below). */
- BEGIN(quoted);
- stringbuf_len = 0;
- }
- YY_BREAK
- case 4:
- YY_RULE_SETUP
- #line 125 "pars0lex.l"
- {
- /* Got a sequence of characters other than "'":
- append to string buffer */
- string_append(yytext, yyleng);
- }
- YY_BREAK
- case 5:
- YY_RULE_SETUP
- #line 130 "pars0lex.l"
- {
- /* Got a sequence of "'" characters:
- append half of them to string buffer,
- as "''" represents a single "'".
- We apply truncating division,
- so that "'''" will result in "'". */
- string_append(yytext, yyleng / 2);
- /* If we got an odd number of quotes, then the
- last quote we got is the terminating quote.
- At the end of the string, we return to the
- initial start state and report the scanned
- string literal. */
- if (yyleng % 2) {
- BEGIN(INITIAL);
- yylval = sym_tab_add_str_lit(
- pars_sym_tab_global,
- (byte*) stringbuf, stringbuf_len);
- return(PARS_STR_LIT);
- }
- }
- YY_BREAK
- case 6:
- YY_RULE_SETUP
- #line 154 "pars0lex.l"
- {
- yylval = sym_tab_add_null_lit(pars_sym_tab_global);
- return(PARS_NULL_LIT);
- }
- YY_BREAK
- case 7:
- YY_RULE_SETUP
- #line 160 "pars0lex.l"
- {
- /* Implicit cursor name */
- yylval = sym_tab_add_str_lit(pars_sym_tab_global,
- (byte*) yytext, yyleng);
- return(PARS_SQL_TOKEN);
- }
- YY_BREAK
- case 8:
- YY_RULE_SETUP
- #line 167 "pars0lex.l"
- {
- return(PARS_AND_TOKEN);
- }
- YY_BREAK
- case 9:
- YY_RULE_SETUP
- #line 171 "pars0lex.l"
- {
- return(PARS_OR_TOKEN);
- }
- YY_BREAK
- case 10:
- YY_RULE_SETUP
- #line 175 "pars0lex.l"
- {
- return(PARS_NOT_TOKEN);
- }
- YY_BREAK
- case 11:
- YY_RULE_SETUP
- #line 179 "pars0lex.l"
- {
- return(PARS_PROCEDURE_TOKEN);
- }
- YY_BREAK
- case 12:
- YY_RULE_SETUP
- #line 183 "pars0lex.l"
- {
- return(PARS_IN_TOKEN);
- }
- YY_BREAK
- case 13:
- YY_RULE_SETUP
- #line 187 "pars0lex.l"
- {
- return(PARS_OUT_TOKEN);
- }
- YY_BREAK
- case 14:
- YY_RULE_SETUP
- #line 191 "pars0lex.l"
- {
- return(PARS_INT_TOKEN);
- }
- YY_BREAK
- case 15:
- YY_RULE_SETUP
- #line 195 "pars0lex.l"
- {
- return(PARS_INT_TOKEN);
- }
- YY_BREAK
- case 16:
- YY_RULE_SETUP
- #line 199 "pars0lex.l"
- {
- return(PARS_FLOAT_TOKEN);
- }
- YY_BREAK
- case 17:
- YY_RULE_SETUP
- #line 203 "pars0lex.l"
- {
- return(PARS_CHAR_TOKEN);
- }
- YY_BREAK
- case 18:
- YY_RULE_SETUP
- #line 207 "pars0lex.l"
- {
- return(PARS_IS_TOKEN);
- }
- YY_BREAK
- case 19:
- YY_RULE_SETUP
- #line 211 "pars0lex.l"
- {
- return(PARS_BEGIN_TOKEN);
- }
- YY_BREAK
- case 20:
- YY_RULE_SETUP
- #line 215 "pars0lex.l"
- {
- return(PARS_END_TOKEN);
- }
- YY_BREAK
- case 21:
- YY_RULE_SETUP
- #line 219 "pars0lex.l"
- {
- return(PARS_IF_TOKEN);
- }
- YY_BREAK
- case 22:
- YY_RULE_SETUP
- #line 223 "pars0lex.l"
- {
- return(PARS_THEN_TOKEN);
- }
- YY_BREAK
- case 23:
- YY_RULE_SETUP
- #line 227 "pars0lex.l"
- {
- return(PARS_ELSE_TOKEN);
- }
- YY_BREAK
- case 24:
- YY_RULE_SETUP
- #line 231 "pars0lex.l"
- {
- return(PARS_ELSIF_TOKEN);
- }
- YY_BREAK
- case 25:
- YY_RULE_SETUP
- #line 235 "pars0lex.l"
- {
- return(PARS_LOOP_TOKEN);
- }
- YY_BREAK
- case 26:
- YY_RULE_SETUP
- #line 239 "pars0lex.l"
- {
- return(PARS_WHILE_TOKEN);
- }
- YY_BREAK
- case 27:
- YY_RULE_SETUP
- #line 243 "pars0lex.l"
- {
- return(PARS_RETURN_TOKEN);
- }
- YY_BREAK
- case 28:
- YY_RULE_SETUP
- #line 247 "pars0lex.l"
- {
- return(PARS_SELECT_TOKEN);
- }
- YY_BREAK
- case 29:
- YY_RULE_SETUP
- #line 251 "pars0lex.l"
- {
- return(PARS_SUM_TOKEN);
- }
- YY_BREAK
- case 30:
- YY_RULE_SETUP
- #line 255 "pars0lex.l"
- {
- return(PARS_COUNT_TOKEN);
- }
- YY_BREAK
- case 31:
- YY_RULE_SETUP
- #line 259 "pars0lex.l"
- {
- return(PARS_DISTINCT_TOKEN);
- }
- YY_BREAK
- case 32:
- YY_RULE_SETUP
- #line 263 "pars0lex.l"
- {
- return(PARS_FROM_TOKEN);
- }
- YY_BREAK
- case 33:
- YY_RULE_SETUP
- #line 267 "pars0lex.l"
- {
- return(PARS_WHERE_TOKEN);
- }
- YY_BREAK
- case 34:
- YY_RULE_SETUP
- #line 271 "pars0lex.l"
- {
- return(PARS_FOR_TOKEN);
- }
- YY_BREAK
- case 35:
- YY_RULE_SETUP
- #line 275 "pars0lex.l"
- {
- return(PARS_CONSISTENT_TOKEN);
- }
- YY_BREAK
- case 36:
- YY_RULE_SETUP
- #line 279 "pars0lex.l"
- {
- return(PARS_READ_TOKEN);
- }
- YY_BREAK
- case 37:
- YY_RULE_SETUP
- #line 283 "pars0lex.l"
- {
- return(PARS_ORDER_TOKEN);
- }
- YY_BREAK
- case 38:
- YY_RULE_SETUP
- #line 287 "pars0lex.l"
- {
- return(PARS_BY_TOKEN);
- }
- YY_BREAK
- case 39:
- YY_RULE_SETUP
- #line 291 "pars0lex.l"
- {
- return(PARS_ASC_TOKEN);
- }
- YY_BREAK
- case 40:
- YY_RULE_SETUP
- #line 295 "pars0lex.l"
- {
- return(PARS_DESC_TOKEN);
- }
- YY_BREAK
- case 41:
- YY_RULE_SETUP
- #line 299 "pars0lex.l"
- {
- return(PARS_INSERT_TOKEN);
- }
- YY_BREAK
- case 42:
- YY_RULE_SETUP
- #line 303 "pars0lex.l"
- {
- return(PARS_INTO_TOKEN);
- }
- YY_BREAK
- case 43:
- YY_RULE_SETUP
- #line 307 "pars0lex.l"
- {
- return(PARS_VALUES_TOKEN);
- }
- YY_BREAK
- case 44:
- YY_RULE_SETUP
- #line 311 "pars0lex.l"
- {
- return(PARS_UPDATE_TOKEN);
- }
- YY_BREAK
- case 45:
- YY_RULE_SETUP
- #line 315 "pars0lex.l"
- {
- return(PARS_SET_TOKEN);
- }
- YY_BREAK
- case 46:
- YY_RULE_SETUP
- #line 319 "pars0lex.l"
- {
- return(PARS_DELETE_TOKEN);
- }
- YY_BREAK
- case 47:
- YY_RULE_SETUP
- #line 323 "pars0lex.l"
- {
- return(PARS_CURRENT_TOKEN);
- }
- YY_BREAK
- case 48:
- YY_RULE_SETUP
- #line 327 "pars0lex.l"
- {
- return(PARS_OF_TOKEN);
- }
- YY_BREAK
- case 49:
- YY_RULE_SETUP
- #line 331 "pars0lex.l"
- {
- return(PARS_CREATE_TOKEN);
- }
- YY_BREAK
- case 50:
- YY_RULE_SETUP
- #line 335 "pars0lex.l"
- {
- return(PARS_TABLE_TOKEN);
- }
- YY_BREAK
- case 51:
- YY_RULE_SETUP
- #line 339 "pars0lex.l"
- {
- return(PARS_INDEX_TOKEN);
- }
- YY_BREAK
- case 52:
- YY_RULE_SETUP
- #line 343 "pars0lex.l"
- {
- return(PARS_UNIQUE_TOKEN);
- }
- YY_BREAK
- case 53:
- YY_RULE_SETUP
- #line 347 "pars0lex.l"
- {
- return(PARS_CLUSTERED_TOKEN);
- }
- YY_BREAK
- case 54:
- YY_RULE_SETUP
- #line 351 "pars0lex.l"
- {
- return(PARS_DOES_NOT_FIT_IN_MEM_TOKEN);
- }
- YY_BREAK
- case 55:
- YY_RULE_SETUP
- #line 355 "pars0lex.l"
- {
- return(PARS_ON_TOKEN);
- }
- YY_BREAK
- case 56:
- YY_RULE_SETUP
- #line 359 "pars0lex.l"
- {
- return(PARS_DECLARE_TOKEN);
- }
- YY_BREAK
- case 57:
- YY_RULE_SETUP
- #line 363 "pars0lex.l"
- {
- return(PARS_CURSOR_TOKEN);
- }
- YY_BREAK
- case 58:
- YY_RULE_SETUP
- #line 367 "pars0lex.l"
- {
- return(PARS_OPEN_TOKEN);
- }
- YY_BREAK
- case 59:
- YY_RULE_SETUP
- #line 371 "pars0lex.l"
- {
- return(PARS_FETCH_TOKEN);
- }
- YY_BREAK
- case 60:
- YY_RULE_SETUP
- #line 375 "pars0lex.l"
- {
- return(PARS_CLOSE_TOKEN);
- }
- YY_BREAK
- case 61:
- YY_RULE_SETUP
- #line 379 "pars0lex.l"
- {
- return(PARS_NOTFOUND_TOKEN);
- }
- YY_BREAK
- case 62:
- YY_RULE_SETUP
- #line 383 "pars0lex.l"
- {
- return(PARS_TO_CHAR_TOKEN);
- }
- YY_BREAK
- case 63:
- YY_RULE_SETUP
- #line 387 "pars0lex.l"
- {
- return(PARS_TO_NUMBER_TOKEN);
- }
- YY_BREAK
- case 64:
- YY_RULE_SETUP
- #line 391 "pars0lex.l"
- {
- return(PARS_TO_BINARY_TOKEN);
- }
- YY_BREAK
- case 65:
- YY_RULE_SETUP
- #line 395 "pars0lex.l"
- {
- return(PARS_BINARY_TO_NUMBER_TOKEN);
- }
- YY_BREAK
- case 66:
- YY_RULE_SETUP
- #line 399 "pars0lex.l"
- {
- return(PARS_SUBSTR_TOKEN);
- }
- YY_BREAK
- case 67:
- YY_RULE_SETUP
- #line 403 "pars0lex.l"
- {
- return(PARS_REPLSTR_TOKEN);
- }
- YY_BREAK
- case 68:
- YY_RULE_SETUP
- #line 407 "pars0lex.l"
- {
- return(PARS_CONCAT_TOKEN);
- }
- YY_BREAK
- case 69:
- YY_RULE_SETUP
- #line 411 "pars0lex.l"
- {
- return(PARS_INSTR_TOKEN);
- }
- YY_BREAK
- case 70:
- YY_RULE_SETUP
- #line 415 "pars0lex.l"
- {
- return(PARS_LENGTH_TOKEN);
- }
- YY_BREAK
- case 71:
- YY_RULE_SETUP
- #line 419 "pars0lex.l"
- {
- return(PARS_SYSDATE_TOKEN);
- }
- YY_BREAK
- case 72:
- YY_RULE_SETUP
- #line 423 "pars0lex.l"
- {
- return(PARS_PRINTF_TOKEN);
- }
- YY_BREAK
- case 73:
- YY_RULE_SETUP
- #line 427 "pars0lex.l"
- {
- return(PARS_ASSERT_TOKEN);
- }
- YY_BREAK
- case 74:
- YY_RULE_SETUP
- #line 431 "pars0lex.l"
- {
- return(PARS_RND_TOKEN);
- }
- YY_BREAK
- case 75:
- YY_RULE_SETUP
- #line 435 "pars0lex.l"
- {
- return(PARS_RND_STR_TOKEN);
- }
- YY_BREAK
- case 76:
- YY_RULE_SETUP
- #line 439 "pars0lex.l"
- {
- return(PARS_ROW_PRINTF_TOKEN);
- }
- YY_BREAK
- case 77:
- YY_RULE_SETUP
- #line 443 "pars0lex.l"
- {
- return(PARS_COMMIT_TOKEN);
- }
- YY_BREAK
- case 78:
- YY_RULE_SETUP
- #line 447 "pars0lex.l"
- {
- return(PARS_ROLLBACK_TOKEN);
- }
- YY_BREAK
- case 79:
- YY_RULE_SETUP
- #line 451 "pars0lex.l"
- {
- return(PARS_WORK_TOKEN);
- }
- YY_BREAK
- case 80:
- YY_RULE_SETUP
- #line 455 "pars0lex.l"
- {
- yylval = sym_tab_add_id(pars_sym_tab_global,
- (byte*)yytext,
- ut_strlen(yytext));
- return(PARS_ID_TOKEN);
- }
- YY_BREAK
- case 81:
- YY_RULE_SETUP
- #line 462 "pars0lex.l"
- {
- return(PARS_DDOT_TOKEN);
- }
- YY_BREAK
- case 82:
- YY_RULE_SETUP
- #line 466 "pars0lex.l"
- {
- return(PARS_ASSIGN_TOKEN);
- }
- YY_BREAK
- case 83:
- YY_RULE_SETUP
- #line 470 "pars0lex.l"
- {
- return(PARS_LE_TOKEN);
- }
- YY_BREAK
- case 84:
- YY_RULE_SETUP
- #line 474 "pars0lex.l"
- {
- return(PARS_GE_TOKEN);
- }
- YY_BREAK
- case 85:
- YY_RULE_SETUP
- #line 478 "pars0lex.l"
- {
- return(PARS_NE_TOKEN);
- }
- YY_BREAK
- case 86:
- YY_RULE_SETUP
- #line 482 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 87:
- YY_RULE_SETUP
- #line 487 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 88:
- YY_RULE_SETUP
- #line 492 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 89:
- YY_RULE_SETUP
- #line 497 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 90:
- YY_RULE_SETUP
- #line 502 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 91:
- YY_RULE_SETUP
- #line 507 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 92:
- YY_RULE_SETUP
- #line 512 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 93:
- YY_RULE_SETUP
- #line 517 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 94:
- YY_RULE_SETUP
- #line 522 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 95:
- YY_RULE_SETUP
- #line 527 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 96:
- YY_RULE_SETUP
- #line 532 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 97:
- YY_RULE_SETUP
- #line 537 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 98:
- YY_RULE_SETUP
- #line 542 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 99:
- YY_RULE_SETUP
- #line 547 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 100:
- YY_RULE_SETUP
- #line 552 "pars0lex.l"
- {
- return((int)(*yytext));
- }
- YY_BREAK
- case 101:
- YY_RULE_SETUP
- #line 557 "pars0lex.l"
- BEGIN(comment); /* eat up comment */
- YY_BREAK
- case 102:
- YY_RULE_SETUP
- #line 559 "pars0lex.l"
- YY_BREAK
- case 103:
- YY_RULE_SETUP
- #line 560 "pars0lex.l"
- YY_BREAK
- case 104:
- YY_RULE_SETUP
- #line 561 "pars0lex.l"
- BEGIN(INITIAL);
- YY_BREAK
- case 105:
- YY_RULE_SETUP
- #line 563 "pars0lex.l"
- /* eat up whitespace */
- YY_BREAK
- case 106:
- YY_RULE_SETUP
- #line 566 "pars0lex.l"
- {
- fprintf(stderr,"Unrecognized character: %02xn",
- *yytext);
- ut_error;
- return(0);
- }
- YY_BREAK
- case 107:
- YY_RULE_SETUP
- #line 575 "pars0lex.l"
- YY_FATAL_ERROR( "flex scanner jammed" );
- YY_BREAK
- #line 1710 "lex.yy.c"
- case YY_STATE_EOF(INITIAL):
- case YY_STATE_EOF(comment):
- case YY_STATE_EOF(quoted):
- yyterminate();
- case YY_END_OF_BUFFER:
- {
- /* Amount of text matched not including the EOB char. */
- int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
- /* Undo the effects of YY_DO_BEFORE_ACTION. */
- *yy_cp = yy_hold_char;
- YY_RESTORE_YY_MORE_OFFSET
- if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
- {
- /* We're scanning a new file or input source. It's
- * possible that this happened because the user
- * just pointed yyin at a new source and called
- * yylex(). If so, then we have to assure
- * consistency between yy_current_buffer and our
- * globals. Here is the right place to do so, because
- * this is the first action (other than possibly a
- * back-up) that will match for the new input source.
- */
- yy_n_chars = yy_current_buffer->yy_n_chars;
- yy_current_buffer->yy_input_file = yyin;
- yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
- }
- /* Note that here we test for yy_c_buf_p "<=" to the position
- * of the first EOB in the buffer, since yy_c_buf_p will
- * already have been incremented past the NUL character
- * (since all states make transitions on EOB to the
- * end-of-buffer state). Contrast this with the test
- * in input().
- */
- if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
- { /* This was really a NUL. */
- yy_state_type yy_next_state;
- yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
- yy_current_state = yy_get_previous_state();
- /* Okay, we're now positioned to make the NUL
- * transition. We couldn't have
- * yy_get_previous_state() go ahead and do it
- * for us because it doesn't know how to deal
- * with the possibility of jamming (and we don't
- * want to build jamming into it because then it
- * will run more slowly).
- */
- yy_next_state = yy_try_NUL_trans( yy_current_state );
- yy_bp = yytext_ptr + YY_MORE_ADJ;
- if ( yy_next_state )
- {
- /* Consume the NUL. */
- yy_cp = ++yy_c_buf_p;
- yy_current_state = yy_next_state;
- goto yy_match;
- }
- else
- {
- yy_cp = yy_c_buf_p;
- goto yy_find_action;
- }
- }
- else switch ( yy_get_next_buffer() )
- {
- case EOB_ACT_END_OF_FILE:
- {
- yy_did_buffer_switch_on_eof = 0;
- if ( yywrap() )
- {
- /* Note: because we've taken care in
- * yy_get_next_buffer() to have set up
- * yytext, we can now set up
- * yy_c_buf_p so that if some total
- * hoser (like flex itself) wants to
- * call the scanner after we return the
- * YY_NULL, it'll still work - another
- * YY_NULL will get returned.
- */
- yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
- yy_act = YY_STATE_EOF(YY_START);
- goto do_action;
- }
- else
- {
- if ( ! yy_did_buffer_switch_on_eof )
- YY_NEW_FILE;
- }
- break;
- }
- case EOB_ACT_CONTINUE_SCAN:
- yy_c_buf_p =
- yytext_ptr + yy_amount_of_matched_text;
- yy_current_state = yy_get_previous_state();
- yy_cp = yy_c_buf_p;
- yy_bp = yytext_ptr + YY_MORE_ADJ;
- goto yy_match;
- case EOB_ACT_LAST_MATCH:
- yy_c_buf_p =
- &yy_current_buffer->yy_ch_buf[yy_n_chars];
- yy_current_state = yy_get_previous_state();
- yy_cp = yy_c_buf_p;
- yy_bp = yytext_ptr + YY_MORE_ADJ;
- goto yy_find_action;
- }
- break;
- }
- default:
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--no action found" );
- } /* end of action switch */
- } /* end of scanning one token */
- } /* end of yylex */
- /* yy_get_next_buffer - try to read in a new buffer
- *
- * Returns a code representing an action:
- * EOB_ACT_LAST_MATCH -
- * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
- * EOB_ACT_END_OF_FILE - end of file
- */
- static int yy_get_next_buffer()
- {
- register char *dest = yy_current_buffer->yy_ch_buf;
- register char *source = yytext_ptr;
- register int number_to_move, i;
- int ret_val;
- if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--end of buffer missed" );
- if ( yy_current_buffer->yy_fill_buffer == 0 )
- { /* Don't try to fill the buffer, so this is an EOF. */
- if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
- {
- /* We matched a single character, the EOB, so
- * treat this as a final EOF.
- */
- return EOB_ACT_END_OF_FILE;
- }
- else
- {
- /* We matched some text prior to the EOB, first
- * process it.
- */
- return EOB_ACT_LAST_MATCH;
- }
- }
- /* Try to read more data. */
- /* First move last chars to start of buffer. */
- number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
- for ( i = 0; i < number_to_move; ++i )
- *(dest++) = *(source++);
- if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
- /* don't do the read, it's not guaranteed to return an EOF,
- * just force an EOF
- */
- yy_current_buffer->yy_n_chars = yy_n_chars = 0;
- else
- {
- int num_to_read =
- yy_current_buffer->yy_buf_size - number_to_move - 1;
- while ( num_to_read <= 0 )
- { /* Not enough room in the buffer - grow it. */
- #ifdef YY_USES_REJECT
- YY_FATAL_ERROR(
- "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
- #else
- /* just a shorter name for the current buffer */
- YY_BUFFER_STATE b = yy_current_buffer;
- int yy_c_buf_p_offset =
- (int) (yy_c_buf_p - b->yy_ch_buf);
- if ( b->yy_is_our_buffer )
- {
- int new_size = b->yy_buf_size * 2;
- if ( new_size <= 0 )
- b->yy_buf_size += b->yy_buf_size / 8;
- else
- b->yy_buf_size *= 2;
- b->yy_ch_buf = (char *)
- /* Include room in for 2 EOB chars. */
- yy_flex_realloc( (void *) b->yy_ch_buf,
- b->yy_buf_size + 2 );
- }
- else
- /* Can't grow it, we don't own it. */
- b->yy_ch_buf = 0;
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR(
- "fatal error - scanner input buffer overflow" );
- yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
- num_to_read = yy_current_buffer->yy_buf_size -
- number_to_move - 1;
- #endif
- }
- if ( num_to_read > YY_READ_BUF_SIZE )
- num_to_read = YY_READ_BUF_SIZE;
- /* Read in more data. */
- YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
- yy_n_chars, num_to_read );
- yy_current_buffer->yy_n_chars = yy_n_chars;
- }
- if ( yy_n_chars == 0 )
- {
- if ( number_to_move == YY_MORE_ADJ )
- {
- ret_val = EOB_ACT_END_OF_FILE;
- yyrestart( yyin );
- }
- else
- {
- ret_val = EOB_ACT_LAST_MATCH;
- yy_current_buffer->yy_buffer_status =
- YY_BUFFER_EOF_PENDING;
- }
- }
- else
- ret_val = EOB_ACT_CONTINUE_SCAN;
- yy_n_chars += number_to_move;
- yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
- yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
- yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
- return ret_val;
- }
- /* yy_get_previous_state - get the state just before the EOB char was reached */
- static yy_state_type yy_get_previous_state()
- {
- register yy_state_type yy_current_state;
- register char *yy_cp;
- yy_current_state = yy_start;
- for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
- {
- register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
- if ( yy_accept[yy_current_state] )
- {
- yy_last_accepting_state = yy_current_state;
- yy_last_accepting_cpos = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 367 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
- }
- return yy_current_state;
- }
- /* yy_try_NUL_trans - try to make a transition on the NUL character
- *
- * synopsis
- * next_state = yy_try_NUL_trans( current_state );
- */
- #ifdef YY_USE_PROTOS
- static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
- #else
- static yy_state_type yy_try_NUL_trans( yy_current_state )
- yy_state_type yy_current_state;
- #endif
- {
- register int yy_is_jam;
- register char *yy_cp = yy_c_buf_p;
- register YY_CHAR yy_c = 1;
- if ( yy_accept[yy_current_state] )
- {
- yy_last_accepting_state = yy_current_state;
- yy_last_accepting_cpos = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 367 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
- yy_is_jam = (yy_current_state == 366);
- return yy_is_jam ? 0 : yy_current_state;
- }
- #ifndef YY_NO_UNPUT
- #ifdef YY_USE_PROTOS
- static void yyunput( int c, register char *yy_bp )
- #else
- static void yyunput( c, yy_bp )
- int c;
- register char *yy_bp;
- #endif
- {
- register char *yy_cp = yy_c_buf_p;
- /* undo effects of setting up yytext */
- *yy_cp = yy_hold_char;
- if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
- { /* need to shift things up to make room */
- /* +2 for EOB chars. */
- register int number_to_move = yy_n_chars + 2;
- register char *dest = &yy_current_buffer->yy_ch_buf[
- yy_current_buffer->yy_buf_size + 2];
- register char *source =
- &yy_current_buffer->yy_ch_buf[number_to_move];
- while ( source > yy_current_buffer->yy_ch_buf )
- *--dest = *--source;
- yy_cp += (int) (dest - source);
- yy_bp += (int) (dest - source);
- yy_current_buffer->yy_n_chars =
- yy_n_chars = yy_current_buffer->yy_buf_size;
- if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
- YY_FATAL_ERROR( "flex scanner push-back overflow" );
- }
- *--yy_cp = (char) c;
- yytext_ptr = yy_bp;
- yy_hold_char = *yy_cp;
- yy_c_buf_p = yy_cp;
- }
- #endif /* ifndef YY_NO_UNPUT */
- #ifdef __cplusplus
- static int yyinput()
- #else
- static int input()
- #endif
- {
- int c;
- *yy_c_buf_p = yy_hold_char;
- if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
- {
- /* yy_c_buf_p now points to the character we want to return.
- * If this occurs *before* the EOB characters, then it's a
- * valid NUL; if not, then we've hit the end of the buffer.
- */
- if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
- /* This was really a NUL. */
- *yy_c_buf_p = ' ';
- else
- { /* need more input */
- int offset = yy_c_buf_p - yytext_ptr;
- ++yy_c_buf_p;
- switch ( yy_get_next_buffer() )
- {
- case EOB_ACT_LAST_MATCH:
- /* This happens because yy_g_n_b()
- * sees that we've accumulated a
- * token and flags that we need to
- * try matching the token before
- * proceeding. But for input(),
- * there's no matching to consider.
- * So convert the EOB_ACT_LAST_MATCH
- * to EOB_ACT_END_OF_FILE.
- */
- /* Reset buffer status. */
- yyrestart( yyin );
- /* fall through */
- case EOB_ACT_END_OF_FILE:
- {
- if ( yywrap() )
- return EOF;
- if ( ! yy_did_buffer_switch_on_eof )
- YY_NEW_FILE;
- #ifdef __cplusplus
- return yyinput();
- #else
- return input();
- #endif
- }
- case EOB_ACT_CONTINUE_SCAN:
- yy_c_buf_p = yytext_ptr + offset;
- break;
- }
- }
- }
- c = *(unsigned char *) yy_c_buf_p; /* cast for 8-bit char's */
- *yy_c_buf_p = ' '; /* preserve yytext */
- yy_hold_char = *++yy_c_buf_p;
- return c;
- }
- #ifdef YY_USE_PROTOS
- void yyrestart( FILE *input_file )
- #else
- void yyrestart( input_file )
- FILE *input_file;
- #endif
- {
- if ( ! yy_current_buffer )
- yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
- yy_init_buffer( yy_current_buffer, input_file );
- yy_load_buffer_state();
- }
- #ifdef YY_USE_PROTOS
- void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
- #else
- void yy_switch_to_buffer( new_buffer )
- YY_BUFFER_STATE new_buffer;
- #endif
- {
- if ( yy_current_buffer == new_buffer )
- return;
- if ( yy_current_buffer )
- {
- /* Flush out information for old buffer. */
- *yy_c_buf_p = yy_hold_char;
- yy_current_buffer->yy_buf_pos = yy_c_buf_p;
- yy_current_buffer->yy_n_chars = yy_n_chars;
- }
- yy_current_buffer = new_buffer;
- yy_load_buffer_state();
- /* We don't actually know whether we did this switch during
- * EOF (yywrap()) processing, but the only time this flag
- * is looked at is after yywrap() is called, so it's safe
- * to go ahead and always set it.
- */
- yy_did_buffer_switch_on_eof = 1;
- }
- #ifdef YY_USE_PROTOS
- void yy_load_buffer_state( void )
- #else
- void yy_load_buffer_state()
- #endif
- {
- yy_n_chars = yy_current_buffer->yy_n_chars;
- yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
- yyin = yy_current_buffer->yy_input_file;
- yy_hold_char = *yy_c_buf_p;
- }
- #ifdef YY_USE_PROTOS
- YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
- #else
- YY_BUFFER_STATE yy_create_buffer( file, size )
- FILE *file;
- int size;
- #endif
- {
- YY_BUFFER_STATE b;
- b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
- if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
- b->yy_buf_size = size;
- /* yy_ch_buf has to be 2 characters longer than the size given because
- * we need to put in 2 end-of-buffer characters.
- */
- b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
- b->yy_is_our_buffer = 1;
- yy_init_buffer( b, file );
- return b;
- }
- #ifdef YY_USE_PROTOS
- void yy_delete_buffer( YY_BUFFER_STATE b )
- #else
- void yy_delete_buffer( b )
- YY_BUFFER_STATE b;
- #endif
- {
- if ( ! b )
- return;
- if ( b == yy_current_buffer )
- yy_current_buffer = (YY_BUFFER_STATE) 0;
- if ( b->yy_is_our_buffer )
- yy_flex_free( (void *) b->yy_ch_buf );
- yy_flex_free( (void *) b );
- }
- #ifndef YY_ALWAYS_INTERACTIVE
- #ifndef YY_NEVER_INTERACTIVE
- extern int isatty YY_PROTO(( int ));
- #endif
- #endif
- #ifdef YY_USE_PROTOS
- void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
- #else
- void yy_init_buffer( b, file )
- YY_BUFFER_STATE b;
- FILE *file;
- #endif
- {
- yy_flush_buffer( b );
- b->yy_input_file = file;
- b->yy_fill_buffer = 1;
- #if YY_ALWAYS_INTERACTIVE
- b->yy_is_interactive = 1;
- #else
- #if YY_NEVER_INTERACTIVE
- b->yy_is_interactive = 0;
- #else
- b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
- #endif
- #endif
- }
- #ifdef YY_USE_PROTOS
- void yy_flush_buffer( YY_BUFFER_STATE b )
- #else
- void yy_flush_buffer( b )
- YY_BUFFER_STATE b;
- #endif
- {
- if ( ! b )
- return;
- b->yy_n_chars = 0;
- /* We always need two end-of-buffer characters. The first causes
- * a transition to the end-of-buffer state. The second causes
- * a jam in that state.
- */
- b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
- b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
- b->yy_buf_pos = &b->yy_ch_buf[0];
- b->yy_at_bol = 1;
- b->yy_buffer_status = YY_BUFFER_NEW;
- if ( b == yy_current_buffer )
- yy_load_buffer_state();
- }
- #ifndef YY_NO_SCAN_BUFFER
- #ifdef YY_USE_PROTOS
- YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
- #else
- YY_BUFFER_STATE yy_scan_buffer( base, size )
- char *base;
- yy_size_t size;
- #endif
- {
- YY_BUFFER_STATE b;
- if ( size < 2 ||
- base[size-2] != YY_END_OF_BUFFER_CHAR ||
- base[size-1] != YY_END_OF_BUFFER_CHAR )
- /* They forgot to leave room for the EOB's. */
- return 0;
- b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
- if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
- b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
- b->yy_buf_pos = b->yy_ch_buf = base;
- b->yy_is_our_buffer = 0;
- b->yy_input_file = 0;
- b->yy_n_chars = b->yy_buf_size;
- b->yy_is_interactive = 0;
- b->yy_at_bol = 1;
- b->yy_fill_buffer = 0;
- b->yy_buffer_status = YY_BUFFER_NEW;
- yy_switch_to_buffer( b );
- return b;
- }
- #endif
- #ifndef YY_NO_SCAN_STRING
- #ifdef YY_USE_PROTOS
- YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
- #else
- YY_BUFFER_STATE yy_scan_string( yy_str )
- yyconst char *yy_str;
- #endif
- {
- int len;
- for ( len = 0; yy_str[len]; ++len )
- ;
- return yy_scan_bytes( yy_str, len );
- }
- #endif
- #ifndef YY_NO_SCAN_BYTES
- #ifdef YY_USE_PROTOS
- YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
- #else
- YY_BUFFER_STATE yy_scan_bytes( bytes, len )
- yyconst char *bytes;
- int len;
- #endif
- {
- YY_BUFFER_STATE b;
- char *buf;
- yy_size_t n;
- int i;
- /* Get memory for full buffer, including space for trailing EOB's. */
- n = len + 2;
- buf = (char *) yy_flex_alloc( n );
- if ( ! buf )
- YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
- for ( i = 0; i < len; ++i )
- buf[i] = bytes[i];
- buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
- b = yy_scan_buffer( buf, n );
- if ( ! b )
- YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
- /* It's okay to grow etc. this buffer, and we should throw it
- * away when we're done.
- */
- b->yy_is_our_buffer = 1;
- return b;
- }
- #endif
- #ifndef YY_NO_PUSH_STATE
- #ifdef YY_USE_PROTOS
- static void yy_push_state( int new_state )
- #else
- static void yy_push_state( new_state )
- int new_state;
- #endif
- {
- if ( yy_start_stack_ptr >= yy_start_stack_depth )
- {
- yy_size_t new_size;
- yy_start_stack_depth += YY_START_STACK_INCR;
- new_size = yy_start_stack_depth * sizeof( int );
- if ( ! yy_start_stack )
- yy_start_stack = (int *) yy_flex_alloc( new_size );
- else
- yy_start_stack = (int *) yy_flex_realloc(
- (void *) yy_start_stack, new_size );
- if ( ! yy_start_stack )
- YY_FATAL_ERROR(
- "out of memory expanding start-condition stack" );
- }
- yy_start_stack[yy_start_stack_ptr++] = YY_START;
- BEGIN(new_state);
- }
- #endif
- #ifndef YY_NO_POP_STATE
- static void yy_pop_state()
- {
- if ( --yy_start_stack_ptr < 0 )
- YY_FATAL_ERROR( "start-condition stack underflow" );
- BEGIN(yy_start_stack[yy_start_stack_ptr]);
- }
- #endif
- #ifndef YY_NO_TOP_STATE
- static int yy_top_state()
- {
- return yy_start_stack[yy_start_stack_ptr - 1];
- }
- #endif
- #ifndef YY_EXIT_FAILURE
- #define YY_EXIT_FAILURE 2
- #endif
- #ifdef YY_USE_PROTOS
- static void yy_fatal_error( yyconst char msg[] )
- #else
- static void yy_fatal_error( msg )
- char msg[];
- #endif
- {
- (void) fprintf( stderr, "%sn", msg );
- exit( YY_EXIT_FAILURE );
- }
- /* Redefine yyless() so it works in section 3 code. */
- #undef yyless
- #define yyless(n)
- do
- {
- /* Undo effects of setting up yytext. */
- yytext[yyleng] = yy_hold_char;
- yy_c_buf_p = yytext + n;
- yy_hold_char = *yy_c_buf_p;
- *yy_c_buf_p = ' ';
- yyleng = n;
- }
- while ( 0 )
- /* Internal utility routines. */
- #ifndef yytext_ptr
- #ifdef YY_USE_PROTOS
- static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
- #else
- static void yy_flex_strncpy( s1, s2, n )
- char *s1;
- yyconst char *s2;
- int n;
- #endif
- {
- register int i;
- for ( i = 0; i < n; ++i )
- s1[i] = s2[i];
- }
- #endif
- #ifdef YY_NEED_STRLEN
- #ifdef YY_USE_PROTOS
- static int yy_flex_strlen( yyconst char *s )
- #else
- static int yy_flex_strlen( s )
- yyconst char *s;
- #endif
- {
- register int n;
- for ( n = 0; s[n]; ++n )
- ;
- return n;
- }
- #endif
- #ifdef YY_USE_PROTOS
- static void *yy_flex_alloc( yy_size_t size )
- #else
- static void *yy_flex_alloc( size )
- yy_size_t size;
- #endif
- {
- return (void *) malloc( size );
- }
- #ifdef YY_USE_PROTOS
- static void *yy_flex_realloc( void *ptr, yy_size_t size )
- #else
- static void *yy_flex_realloc( ptr, size )
- void *ptr;
- yy_size_t size;
- #endif
- {
- /* The cast to (char *) in the following accommodates both
- * implementations that use char* generic pointers, and those
- * that use void* generic pointers. It works with the latter
- * because both ANSI C and C++ allow castless assignment from
- * any pointer type to void*, and deal with argument conversions
- * as though doing an assignment.
- */
- return (void *) realloc( (char *) ptr, size );
- }
- #ifdef YY_USE_PROTOS
- static void yy_flex_free( void *ptr )
- #else
- static void yy_flex_free( ptr )
- void *ptr;
- #endif
- {
- free( ptr );
- }
- #if YY_MAIN
- int main()
- {
- yylex();
- return 0;
- }
- #endif
- #line 575 "pars0lex.l"