initscan-mvs.c

Flex词法/语法分析器源码

      377,  377,  377,  377,  377,  377,  377,  377,  377,  377,
      377,  377,  377,  377,  377,  377,  377,  377,  377,  378,
      378,  378,    0,  378,  378,  378,  378,  378,    0,  378,
      378,  378,  378,  378,  378,  378,  378,  378,  378,  378,
      378,  378,  378,  378,  378,  378,  378,  378,  378,  378,
      378,  378,  378,  378,  378,  378,  378,  378,  378,  378,
      378,  378,  379,  379,  379,    0,  379,  379,  379,  379,
      379,  379,  379,  379,  379,  379,  379,  379,  379,  379,
      379,    0,  379,  379,  379,  379,  379,  379,  379,  379,
      379,  379,  379,  379,  379,  379,  379,  379,  379,  379,
 
      379,  379,  379,    0,  379,  380,  380,  380,    0,  380,
      380,  380,  380,  380,  380,  380,  380,  380,  380,  380,
      380,  380,  380,  380,  380,  380,  380,  380,  380,  380,
      380,  380,  380,  380,  380,  380,  380,  380,  380,  380,
      380,  380,  380,  380,  380,  380,  380,  380,  381,  381,
      381,    0,  381,  381,  381,  381,  381,  381,  381,  381,
      381,  381,  381,    0,  381,  381,  381,  381,    0,    0,
        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
        0,    0,    0,    0,    0,  381,  381,  381,  381,  381,
      381,  382,    0,    0,    0,  382,    0,    0,    0,    0,
 
      382,  382,  382,  382,  382,  382,  382,  382,  382,  382,
      382,  382,  382,  382,  382,  382,  382,    0,    0,    0,
        0,    0,  382,  383,    0,    0,    0,    0,  383,  383,
      383,  383,  383,  383,  383,  383,  383,  383,  383,  383,
      383,  383,  383,  383,  383,  383,  383,  383,  383,  383,
      383,  383,  383,  383,  383,  383,  383,  383,  383,  383,
      383,  383,  383,  383,  383,  383,  384,  384,  384,    0,
      384,  384,  384,  384,  384,  384,  384,  384,  384,  384,
      384,  384,  384,  384,  384,  384,  384,  384,  384,  384,
      384,  384,  384,  384,  384,  384,  384,  384,  384,  384,
 
      384,  384,  384,  384,  384,  384,  384,  384,  384,  385,
      385,  385,    0,  385,  385,  385,  385,  385,  385,  385,
      385,  385,  385,  385,  385,  385,  385,  385,  385,  385,
      385,  385,  385,  385,  385,  385,  385,  385,  385,  385,
      385,  385,  385,  385,  385,  385,  385,  385,  385,  385,
      385,  385,  386,    0,    0,    0,    0,  386,  386,  386,
      386,  386,  386,  386,  386,  386,  386,  386,  386,  386,
      386,  386,  386,  386,  387,    0,    0,    0,    0,  387,
      387,  387,  387,  387,  387,  387,  387,  387,  387,  387,
      387,  387,  387,  387,  387,  387,  388,  388,  388,  388,
 
      388,  388,  388,  388,  388,  388,  388,  388,  388,  388,
      388,  388,  388,  388,  388,  388,  388,  388,  388,  388,
      388,  388,  388,  388,  388,  388,  388,  388,  388,  388,
      388,  388,  388,  388,  388,  388,  388,  388,  388,  389,
      389,  389,  389,  389,  389,  389,  389,  389,  389,  389,
      389,  389,  389,  389,  389,  389,  389,  389,  389,  389,
      389,  389,  389,  389,  389,  389,  389,  389,  389,  389,
      389,  389,  389,  389,  389,  389,  389,  389,  389,  389,
      389,  389,  390,  390,  390,    0,  390,  390,  390,  390,
      390,  390,  390,  390,  390,  390,  390,  390,  390,  390,
 
      390,  390,  390,  390,  390,  390,  390,  390,  390,  390,
      390,  390,  390,  390,  390,  390,  390,  390,  390,  390,
      390,  390,    0,  390,  390,  391,  391,  391,  391,  391,
      391,    0,    0,    0,    0,    0,    0,    0,    0,    0,
        0,    0,    0,    0,    0,    0,    0,  391,  392,  392,
      392,    0,  392,  392,  392,  392,  392,  392,  392,  392,
      392,  392,  392,  392,  392,  392,  392,  392,  392,  392,
      392,  392,  392,  392,  392,  392,  392,  392,  392,  392,
      392,  392,  392,  392,  392,  392,  392,  392,  392,  392,
      392,  393,  393,  393,  393,  393,  393,    0,    0,    0,
 
        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
        0,    0,    0,  393,  394,  394,  394,  394,  394,  394,
      394,  394,  394,  394,  394,  394,  394,  394,  394,  394,
      394,  394,  394,  394,  394,  394,  394,  394,  394,  394,
      394,  394,  394,  394,  394,  394,  394,  394,  394,  394,
      394,  394,  394,  394,  394,  394,  394,  395,  395,  395,
      395,  395,  395,    0,    0,    0,    0,    0,    0,    0,
        0,    0,    0,    0,    0,    0,    0,    0,    0,  395,
      396,  396,  396,  396,  396,  396,  396,  396,  396,  396,
      396,  396,  396,  396,  396,  396,  396,  396,  396,  396,
 
      396,  396,  396,  396,  396,  396,  396,  396,  396,  396,
      396,  396,  396,  396,  396,  396,  396,  396,  396,  396,
      396,  396,  396,  397,    0,    0,    0,  397,    0,    0,
        0,    0,  397,  397,  397,  397,  397,  397,  397,  397,
      397,  397,  397,  397,  397,  397,  397,  397,  397,    0,
        0,    0,    0,    0,  397,  398,    0,    0,    0,  398,
        0,    0,    0,    0,  398,  398,  398,  398,  398,  398,
      398,  398,  398,  398,  398,  398,  398,  398,  398,  398,
      398,    0,    0,    0,    0,    0,  398,  399,  399,  399,
      399,  399,  399,    0,    0,    0,    0,    0,    0,    0,
 
        0,    0,    0,    0,    0,    0,    0,    0,    0,  399,
      400,  400,  400,  400,  400,  400,  400,  400,  400,  400,
      400,  400,  400,  400,  400,  400,  400,  400,  400,  400,
      400,  400,  400,  400,  400,  400,  400,  400,  400,  400,
      400,  400,  400,  400,  400,  400,  400,  400,  400,  400,
      400,  400,  400,  401,  401,  401,  401,  401,  401,    0,
        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
        0,    0,    0,    0,    0,  401,  402,  402,  402,    0,
      402,  402,  402,  402,  402,  402,  402,  402,  402,  402,
      402,  402,  402,  402,  402,  402,  402,  402,  402,  402,
 
      402,  402,  402,  402,  402,  402,  402,  402,  402,  402,
      402,  402,  402,  402,  402,  402,  402,  402,  402,  403,
      403,  403,  403,  403,  403,    0,    0,    0,    0,    0,
        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
        0,  403,  340,  340,  340,  340,  340,  340,  340,  340,
      340,  340,  340,  340,  340,  340,  340,  340,  340,  340,
      340,  340,  340,  340,  340,  340,  340,  340,  340,  340,
      340,  340,  340,  340,  340,  340,  340,  340,  340,  340,
      340,  340,  340,  340,  340,  340
    } ;
 
static yy_ste_type yy_last_accepting_state;
static YY_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() yymrused_but_not_detected
#define YY_MORE_ADJ 0
 
/* these variables are all declared out here so that section 3 code can
 * manipulate them
 */
/* points to current character in buffer */
static YY_CHAR *yy_c_buf_p = (YY_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;
 
static yy_ste_type yy_get_previous_state YY_PROTO(( void ));
static yy_ste_type yy_try_NUL_trans YY_PROTO(( yy_ste_type current_state ));
static int yy_get_next_buffer YY_PROTO(( void ));
static void yyunput YY_PROTO(( YY_CHAR c, YY_CHAR *buf_ptr ));
void yyrestrt YY_PROTO(( FILE *input_file ));
void yyswtobf YY_PROTO(( YY_BUFFER_STATE new_buffer ));
void yyldbfst YY_PROTO(( void ));
YY_BUFFER_STATE yycrbffr YY_PROTO(( FILE *file, int size ));
void yydlbffr YY_PROTO(( YY_BUFFER_STATE b ));
void yyinbffr YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
 
#define yy_new_buffer yycrbffr
 
#ifdef __cplusplus
static int yyinput YY_PROTO(( void ));
#else
static int input YY_PROTO(( void ));
#endif
 
YY_DECL
    {
    register yy_ste_type yy_current_state;
    register YY_CHAR *yy_cp, *yy_bp;
    register int yy_act;
 
 
    static int bracelevel, didadef;
    int i, indented_code, checking_used, new_xlation;
    int doing_codeblock = false;
    Char nmdef[MAXLINE], myesc();
 
 
    if ( yy_init )
        {
        YY_USER_INIT;
 
        if ( ! yy_start )
            yy_start = 1;       /* first start state */
 
        if ( ! yyin )
            yyin = stdin;
 
        if ( ! yyout )
            yyout = stdout;
 
        if ( yy_current_buffer )
            yyinbffr( yy_current_buffer, yyin );
        else
            yy_current_buffer = yycrbffr( yyin, YY_BUF_SIZE );
 
        yyldbfst();
 
        yy_init = 0;
        }
 
    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;
	if ( yy_bp[-1] == '\n' )
	    ++yy_current_state;
yy_match:
	do
	    {
	    register YY_CHAR yy_c = yy_ec[*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 = yy_def[yy_current_state];
		}
	    yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
	    ++yy_cp;
	    }
	while ( yy_current_state != 340 );
	yy_cp = yy_last_accepting_cpos;
	yy_current_state = yy_last_accepting_state;
 
yy_find_action:
	yy_act = yy_accept[yy_current_state];
 
        YY_DO_BEFORE_ACTION;
        YY_USER_ACTION;
 
do_action:      /* this label is used only to access EOF actions */
 
 
        switch ( yy_act )
            {
	    case 0: /* must backtrack */
	    /* 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:
# line 90 "<stdin>"
indented_code = true; BEGIN(CODEBLOCK);
	YY_BREAK
case 2:
# line 91 "<stdin>"
++linenum; /* treat as a comment */
	YY_BREAK
case 3:
# line 92 "<stdin>"
ECHO; BEGIN(C_COMMENT);
	YY_BREAK
case 4:
# line 93 "<stdin>"
return ( SCDECL );
	YY_BREAK
case 5:
# line 94 "<stdin>"
return ( XSCDECL );
	YY_BREAK
case 6:
# line 95 "<stdin>"
{
                        ++linenum;
                        lndirout( stdout );
                        indented_code = false;
                        BEGIN(CODEBLOCK);
                        }
	YY_BREAK
case 7:
# line 102 "<stdin>"
return ( WHITESPACE );
	YY_BREAK
case 8:
# line 104 "<stdin>"
{
                        sectnum = 2;
                        lndirout( stdout );
                        BEGIN(SECT2PROLOG);
                        return ( SECTEND );