lex.swf4.c

来自「Ming is a library for generating Macrome」· C语言 代码 · 共 2,064 行 · 第 1/5 页

       60,   58,   64,   60,   99,   59,   60,   75,  102,   64,
       62,   63,   97,   75,   63,   63,   96,  103,   84,  104,
       68,   63,   84,   84,   63,   62,   62,   90,   90,   90,
       84,   91,   74,   91,   91,   91,  106,  105,  107,  109,
       98,  110,  111,  112,   99,  113,   75,  114,  115,  116,
      118,  117,  122,  119,  121,  103,  123,  136,  120,  126,
      605,  125,  133,  104,  105,  124,  127,  131,  137,  111,
      129,  134,  132,  130,  114,  113,  135,  138,  139,  115,

      119,  110,  106,  143,  107,  109,  120,  122,  125,  116,
      117,  140,  121,  112,  119,  123,  118,  126,  124,  132,
      129,  127,  130,  133,  136,  131,  135,  141,  125,  144,
      142,  145,  130,  146,  137,  147,  132,  139,  148,  134,
      150,  143,  149,  138,  151,  152,  155,  155,  158,  158,
      158,  140,  163,  166,  141,  162,  140,  142,  165,  142,
      141,  167,  168,  170,  172,  174,  175,  176,  150,  149,
      178,  144,  171,  146,  147,  142,  145,  151,  179,  151,
      152,  180,  162,  149,  148,  182,  149,  165,  181,  171,
      163,  166,  167,  183,  171,  185,  175,  184,  174,  187,

      186,  188,  170,  189,  165,  172,  182,  168,  192,  193,
      197,  180,  190,  176,  191,  195,  196,  198,  199,  171,
      209,  178,  200,  201,  204,  202,  179,  205,  206,  181,
      208,  207,  188,  210,  211,  218,  189,  183,  186,  184,
      185,  190,  203,  213,  187,  191,  214,  193,  197,  217,
      195,  196,  202,  201,  209,  192,  215,  200,  199,  203,
      216,  198,  196,  220,  203,  204,  207,  219,  221,  205,
      218,  226,  224,  206,  230,  208,  214,  213,  227,  210,
      211,  216,  228,  232,  203,  231,  234,  235,  203,  203,
      203,  233,  236,  217,  241,  240,  234,  215,  226,  234,

      243,  242,  216,  220,  245,  230,  216,  236,  216,  224,
      233,  237,  219,  227,  221,  236,  231,  228,  239,  249,
      244,  250,  246,  252,  237,  253,  254,  232,  242,  256,
      255,  239,  244,  235,  257,  233,  240,  258,  259,  262,
      244,  260,  241,  246,  261,  263,  243,  257,  265,  264,
      245,  266,  250,  267,  252,  272,  253,  249,  270,  273,
      274,  254,  255,  267,  271,  276,  267,  265,  277,  259,
      278,  260,  279,  256,  280,  281,  283,  262,  266,  282,
      284,  285,  272,  258,  264,  267,  287,  270,  261,  263,
      288,  289,  265,  271,  290,  274,  292,  293,  297,  279,

      295,  280,  296,  273,  294,  300,  276,  298,  299,  301,
      292,  302,  303,  285,  278,  304,  277,  305,  294,  282,
      306,  281,  283,  290,  307,  308,  284,  309,  312,  305,
      287,  289,  297,  314,  316,  299,  288,  310,  293,  317,
      295,  318,  294,  303,  312,  319,  296,  320,  298,  300,
      302,  321,  322,  301,  309,  323,  325,  324,  326,  304,
      327,  316,  328,  329,  306,  307,  330,  331,  310,  308,
      335,  324,  332,  333,  320,  334,  319,  336,  337,  314,
      317,  339,  338,  341,  344,  342,  318,  327,  340,  346,
      337,  345,  347,  322,  323,  324,  321,  328,  349,  350,

      325,  330,  326,  348,  333,  348,  352,  329,  337,  331,
      354,  332,  342,  353,  335,  338,  334,  355,  345,  340,
      358,  336,  357,  359,  341,  339,  350,  361,  349,  360,
      346,  344,  363,  357,  347,  367,  365,  354,  366,  368,
      364,  369,  371,  373,  355,  375,  374,  375,  375,  376,
      378,  377,  379,  358,  352,  380,  360,  353,  364,  381,
      382,  384,  383,  385,  367,  387,  368,  359,  365,  388,
      386,  391,  384,  392,  361,  371,  363,  374,  377,  366,
      389,  390,  393,  369,  376,  373,  395,  379,  378,  394,
      400,  397,  396,  399,  403,  401,  402,  404,  382,  381,

      387,  380,  383,  386,  391,  385,  384,  389,  390,  405,
      399,  389,  406,  388,  407,  408,  409,  392,  389,  396,
      394,  393,  397,  411,  410,  413,  415,  414,  416,  400,
      401,  402,  395,  403,  418,  421,  404,  422,  424,  423,
      425,  407,  426,  406,  427,  428,  429,  405,  408,  434,
      432,  430,  431,  435,  413,  439,  409,  410,  414,  433,
      436,  437,  421,  438,  444,  418,  423,  440,  442,  445,
      411,  415,  416,  448,  443,  426,  422,  432,  446,  423,
      423,  425,  430,  431,  424,  447,  433,  439,  429,  434,
      437,  436,  428,  449,  438,  427,  435,  450,  440,  442,

      448,  451,  452,  435,  443,  453,  456,  445,  444,  446,
      455,  458,  457,  460,  461,  462,  447,  465,  463,  464,
      466,  467,  468,  472,  449,  469,  473,  474,  450,  470,
      475,  477,  479,  483,  480,  482,  451,  456,  453,  457,
      455,  476,  460,  478,  481,  458,  463,  484,  452,  461,
      464,  487,  469,  488,  495,  486,  489,  465,  492,  462,
      470,  466,  472,  468,  477,  467,  486,  470,  498,  476,
      473,  474,  499,  478,  500,  501,  475,  483,  503,  479,
      480,  482,  487,  489,  481,  502,  492,  504,  505,  481,
      506,  484,  507,  506,  508,  512,  495,  511,  510,  488,

      513,  514,  501,  515,  516,  517,  518,  521,  517,  522,
      523,  524,  500,  498,  527,  530,  528,  529,  499,  531,
      502,  532,  507,  536,  503,  537,  505,  510,  538,  514,
      539,  513,  540,  504,  521,  546,  541,  545,  515,  547,
      508,  527,  511,  523,  518,  512,  548,  529,  549,  550,
      516,  551,  554,  522,  528,  555,  524,  553,  536,  532,
      556,  539,  558,  538,  546,  559,  530,  541,  563,  537,
      531,  545,  564,  571,  573,  572,  570,  574,  575,  549,
      578,  579,  555,  540,  581,  547,  548,  582,  553,  580,
      554,  583,  584,  585,  588,  550,  586,  587,  592,  563,

      559,  558,  551,  570,  600,  601,  556,  573,  571,  575,
      579,  594,  604,  603,  594,  581,  602,  599,  564,  572,
      598,  574,  597,  580,  587,  578,  596,  595,  593,  582,
      591,  586,  590,  600,  589,  577,  583,  585,  576,  601,
      588,  569,  568,  584,  592,  567,  566,  565,  562,  561,
      560,  557,  552,  544,  543,  542,  535,  534,  604,  608,
      608,  608,  608,  608,  608,  609,  533,  526,  609,  609,
      610,  610,  610,  610,  610,  610,  611,  611,  611,  611,
      612,  525,  612,  613,  520,  519,  613,  613,  614,  509,
      497,  614,  614,  496,  494,  493,  491,  490,  485,  471,

      459,  454,  441,  420,  419,  417,  412,  398,  372,  370,
      362,  356,  351,  343,  315,  313,  311,  291,  286,  275,
      269,  268,  251,  248,  247,  238,  229,  223,  222,  212,
      194,  177,  173,  169,  164,  161,  157,  156,  154,  108,
      100,   93,   92,   85,   83,   77,   72,   71,   70,   66,
       50,   28,   27,   26,   17,   13,   12,   10,    9,    5,
      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,
      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,
      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,
      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,

      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,
      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,
      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,
      607,  607
    } ;

static yy_state_type yy_last_accepting_state;
static char *yy_last_accepting_cpos;

extern int swf4_flex_debug;
int swf4_flex_debug = 0;

/* 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 *swf4text;
#line 1 "./swf4compiler.flex"
#line 2 "./swf4compiler.flex"

#include <math.h>
#include <string.h>
#include <stdlib.h>

#include "compile.h"
#include "actiontypes.h"
#include "blocks/error.h"
#include "swf4compiler.tab.h" /* defines token types */

static int swf4debug;

static const char *lexBuffer = NULL;
static int lexBufferLen = 0;

static int  sLineNumber = 0;
static char szLine[1024];
static char msgbufs[2][1024] = { {0}, {0} }, *msgline = {0};
static int  column = 0;

static void comment();
static void comment1();
static void count();
static void warning(char *msg);

#define YY_INPUT(buf,result,max_size) result=lexBufferInput(buf, max_size)
#define YY_NO_UNISTD_H
#define YY_USE_PROTOS

/* thanks to the prolific and brilliant Raff: */
static int lexBufferInput(char *buf, int max_size)
{
  int l = lexBufferLen > max_size ? max_size : lexBufferLen;
  
  if (lexBufferLen <= 0)
    return YY_NULL;

  memcpy(buf, lexBuffer, l);
  lexBuffer += l;
  lexBufferLen -= l;
  return l;
}

static void unescape(char *buf)
{
  char *r, *w;

  r=buf; // read
  w=buf; // write
  while (*r)
  {
	if ( *r == '\\' )
	{
		r++;
		switch(*r)
		{
			case 'b' : *w = '\b'; break;
			case 'f' : *w = '\f'; break;
			case 'n' : *w = '\n'; break;
			case 'r' : *w = '\r'; break;
			case 't' : *w = '\t'; break;
			case 'x' :
			case 'u' : fprintf(stderr,"unsupported escape sequence\n");
		}
		w++;
		r++;
	}
	else
	{
		*w++ = *r++;
	}
  }
  *w='\0';
}

void swf4ParseInit(const char *script, int debug, int version)
{
  swf4restart(NULL);

  swf4debug = debug;

  lexBuffer = script;
  lexBufferLen = strlen(script);
  sLineNumber = 0;
  column = 0;
  msgline = msgbufs[0];
  swfVersion = version;
}


#line 96 "./swf4compiler.flex"
 // forward declaration needed by the following function
#ifndef YY_PROTO
#ifdef YY_USE_PROTOS
#define YY_PROTO(proto) proto
#else
#define YY_PROTO(proto) ()
#endif
#endif
 static void yyunput YY_PROTO(( int c, char *buf_ptr ));

 void do_unput4(const char c) { unput(c); }
#line 1071 "lex.swf4.c"

#define INITIAL 0
#define asm 1

#ifndef YY_NO_UNISTD_H
/* Special case for "unistd.h", since it is non-ANSI. We include it way
 * down here because we want the user's section 1 to have been scanned first.
 * The user has a chance to override it with an option.
 */
#include <unistd.h>
#endif

#ifndef YY_EXTRA_TYPE
#define YY_EXTRA_TYPE void *
#endif

static int yy_init_globals (void );

/* Accessor methods to globals.
   These are made visible to non-reentrant scanners for convenience. */

int swf4lex_destroy (void );

int swf4get_debug (void );

void swf4set_debug (int debug_flag  );

YY_EXTRA_TYPE swf4get_extra (void );

void swf4set_extra (YY_EXTRA_TYPE user_defined  );

FILE *swf4get_in (void );

void swf4set_in  (FILE * in_str  );

FILE *swf4get_out (void );

void swf4set_out  (FILE * out_str  );

int swf4get_leng (void );

char *swf4get_text (void );

int swf4get_lineno (void );

void swf4set_lineno (int line_number  );

/* Macros after this point can all be overridden by user definitions in
 * section 1.
 */

#ifndef YY_SKIP_YYWRAP
#ifdef __cplusplus
extern "C" int swf4wrap (void );
#else
extern int swf4wrap (void );
#endif
#endif

    static void yyunput (int c,char *buf_ptr  );
    
#ifndef yytext_ptr
static void yy_flex_strncpy (char *,yyconst char *,int );
#endif

#ifdef YY_NEED_STRLEN
static int yy_flex_strlen (yyconst char * );
#endif

#ifndef YY_NO_INPUT

#ifdef __cplusplus
static int yyinput (void );
#else
static int input (void );
#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 fwrite( swf4text, swf4leng, 1, swf4out )
#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_LVALUE->yy_is_interactive ) \
		{ \
		int c = '*'; \
		size_t n; \
		for ( n = 0; n < max_size && \
			     (c = getc( swf4in )) != EOF && c != '\n'; ++n ) \
			buf[n] = (char) c; \
		if ( c == '\n' ) \
			buf[n++] = (char) c; \
		if ( c == EOF && ferror( swf4in ) ) \
			YY_FATAL_ERROR( "input in flex scanner failed" ); \
		result = n; \
		} \
	else \
		{ \
		errno=0; \
		while ( (result = fread(buf, 1, max_size, swf4in))==0 && ferror(swf4in)) \
			{ \
			if( errno != EINTR) \
				{ \
				YY_FATAL_ERROR( "input in flex scanner failed" ); \
				break; \
				} \
			errno=0; \
			clearerr(swf4in); \
			} \
		}\
\

#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

/* end tables serialization structures and prototypes */

/* Default declaration of generated scanner - a define so the user can
 * easily add parameters.
 */
#ifndef YY_DECL
#define YY_DECL_IS_OURS 1

extern int swf4lex (void);

#define YY_DECL int swf4lex (void)
#endif /* !YY_DECL */

/* Code executed at the beginning of each rule, after swf4text and swf4leng
 * 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;