home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wxos2240.zip / wxWindows-2.4.0 / src / common / lex_yy.c < prev    next >
C/C++ Source or Header  |  2002-11-10  |  32KB  |  1,277 lines
  1. /* A lexical scanner generated by flex */
  2.  
  3. /* scanner skeleton version:
  4.  * $Header: /pack/cvsroots/wxwindows/wxWindows/src/common/doslex.c,v 1.8.2.1 2002/11/10 13:13:53 JS Exp $
  5.     Last change:  JS   13 Jul 97    6:17 pm
  6.  */
  7.  
  8. #define FLEX_SCANNER
  9.  
  10. #include <stdio.h>
  11.  
  12.  
  13. /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
  14. #ifdef c_plusplus
  15. #ifndef __cplusplus
  16. #define __cplusplus
  17. #endif
  18. #endif
  19.  
  20.  
  21. #ifdef __cplusplus
  22.  
  23. #include <stdlib.h>
  24.  
  25. #ifdef __SALFORDC__
  26. #include <io.h>
  27. #include <clib.h>
  28. #else
  29. #include <osfcn.h>
  30. #endif
  31.  
  32. #ifdef __VISAGECPP__
  33. #include <io.h>
  34. #endif
  35.  
  36. #ifdef __cplusplus
  37. static int yyinput()
  38. #else
  39. static int input()
  40. #endif
  41.  
  42. /* use prototypes in function declarations */
  43. #define YY_USE_PROTOS
  44.  
  45. /* the "const" storage-class-modifier is valid */
  46. #define YY_USE_CONST
  47.  
  48. #else    /* ! __cplusplus */
  49.  
  50. #ifdef __STDC__
  51.  
  52. #ifdef __GNUC__
  53. #include <stddef.h>
  54. #else
  55. #include <stdlib.h>
  56. #endif    /* __GNUC__ */
  57.  
  58. #define YY_USE_PROTOS
  59. #define YY_USE_CONST
  60.  
  61. #endif    /* __STDC__ */
  62. #endif    /* ! __cplusplus */
  63.  
  64.  
  65. #ifdef __TURBOC__
  66. #define YY_USE_CONST
  67. #endif
  68.  
  69.  
  70. #ifndef YY_USE_CONST
  71. #define const
  72. #endif
  73.  
  74.  
  75. #ifdef YY_USE_PROTOS
  76. #define YY_PROTO(proto) proto
  77. #else
  78. #define YY_PROTO(proto) ()
  79. /* we can't get here if it's an ANSI C compiler, or a C++ compiler,
  80.  * so it's got to be a K&R compiler, and therefore there's no standard
  81.  * place from which to include these definitions
  82.  */
  83. /*
  84. char *malloc();
  85. int free();
  86. */
  87.  
  88. #endif
  89.  
  90.  
  91. /* amount of stuff to slurp up with each read */
  92. #ifndef YY_READ_BUF_SIZE
  93. #define YY_READ_BUF_SIZE 8192
  94. #endif
  95.  
  96. /* returned upon end-of-file */
  97. #define YY_END_TOK 0
  98.  
  99. /* copy whatever the last rule matched to the standard output */
  100.  
  101. /* cast to (char *) is because for 8-bit chars, yytext is (unsigned char *) */
  102. /* this used to be an fputs(), but since the string might contain NUL's,
  103.  * we now use fwrite()
  104.  */
  105. #define ECHO (void) fwrite( (char *) yytext, yyleng, 1, yyout )
  106.  
  107. /* gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
  108.  * is returned in "result".
  109.  */
  110. #define YY_INPUT(buf,result,max_size) \
  111.     if ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \
  112.         YY_FATAL_ERROR( "read() in flex scanner failed" );
  113. #define YY_NULL 0
  114.  
  115. /* no semi-colon after return; correct usage is to write "yyterminate();" -
  116.  * we don't want an extra ';' after the "return" because that will cause
  117.  * some compilers to complain about unreachable statements.
  118.  */
  119. #define yyterminate() return ( YY_NULL )
  120.  
  121. /* report a fatal error */
  122.  
  123. /* The funky do-while is used to turn this macro definition into
  124.  * a single C statement (which needs a semi-colon terminator).
  125.  * This avoids problems with code like:
  126.  *
  127.  *     if ( something_happens )
  128.  *        YY_FATAL_ERROR( "oops, the something happened" );
  129.  *    else
  130.  *        everything_okay();
  131.  *
  132.  * Prior to using the do-while the compiler would get upset at the
  133.  * "else" because it interpreted the "if" statement as being all
  134.  * done when it reached the ';' after the YY_FATAL_ERROR() call.
  135.  */
  136.  
  137. #if !defined(__VISAGECPP__)
  138. #define YY_FATAL_ERROR(msg) \
  139.     do \
  140.         { \
  141.         (void) fputs( msg, stderr ); \
  142.         (void) putc( '\n', stderr ); \
  143.         exit( 1 ); \
  144.         } \
  145.     while ( 0 )
  146. #else
  147. /* suppress expression always false warning */
  148. int os2var = 0;
  149. #define YY_FATAL_ERROR(msg) \
  150.     do \
  151.         { \
  152.         (void) fputs( msg, stderr ); \
  153.         (void) putc( '\n', stderr ); \
  154.         exit( 1 ); \
  155.         } \
  156.     while ( os2var == 0 )
  157. #endif
  158.  
  159. /* default yywrap function - always treat EOF as an EOF */
  160. int yywrap(void) { return 1; }
  161.  
  162.  
  163. /* enter a start condition.  This macro really ought to take a parameter,
  164.  * but we do it the disgusting crufty way forced on us by the ()-less
  165.  * definition of BEGIN
  166.  */
  167. #define BEGIN yy_start = 1 + 2 *
  168.  
  169. /* action number for EOF rule of a given start state */
  170. #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
  171.  
  172. /* special action meaning "start processing a new file" */
  173. #if !defined(__VISAGECPP__)
  174. #define YY_NEW_FILE \
  175.     do \
  176.         { \
  177.         yy_init_buffer( yy_current_buffer, yyin ); \
  178.         yy_load_buffer_state(); \
  179.         } \
  180.     while ( 0 )
  181. #else
  182. #define YY_NEW_FILE \
  183.     do \
  184.         { \
  185.         yy_init_buffer( yy_current_buffer, yyin ); \
  186.         yy_load_buffer_state(); \
  187.         } \
  188.     while ( os2var == 0 )
  189. #endif
  190.  
  191. /* default declaration of generated scanner - a define so the user can
  192.  * easily add parameters
  193.  */
  194. #define YY_DECL int yylex YY_PROTO(( void ))
  195.  
  196. /* code executed at the end of each rule */
  197. #define YY_BREAK break;
  198.  
  199. #define YY_END_OF_BUFFER_CHAR 0
  200.  
  201. #ifndef YY_BUF_SIZE
  202. #define YY_BUF_SIZE (YY_READ_BUF_SIZE * 2) /* size of default input buffer */
  203. #endif
  204.  
  205. typedef struct yy_buffer_state *YY_BUFFER_STATE;
  206.  
  207. #define YY_CHAR unsigned char
  208. # line 1 "lexer.l"
  209. #define INITIAL 0
  210. # line 9 "lexer.l"
  211. /*
  212.  * File:         lexer.l
  213.  * Description:  Lexical analyser for PROLOGIO; can be used with
  214.  *               either lex and flex.
  215.  */
  216. #include <string.h>
  217.  
  218. /* +++steve162e: added, otherwise, PROIO_input will be undefined (at least under LINUX)
  219.              please check, if this is also TRUE under other UNIXes.
  220.  */
  221.  
  222. #if defined(FLEX_SCANNER) && defined(_LINUX)
  223. #define PROIO_input my_input
  224. #endif
  225. /* ---steve162e */
  226.  
  227. #include "wx/expr.h"
  228. #ifdef wx_x
  229. extern char *malloc();
  230. #endif
  231. #define Return(x) return x;
  232.  
  233. #if defined(VMS) && ( __VMS_VER < 70000000 )
  234. #define strdup(s) (strcpy((char *)malloc(strlen(s)+1), s));
  235. #endif
  236.  
  237. static size_t lex_buffer_length = 0;
  238. static const char *lex_buffer = NULL;
  239. static size_t lex_string_ptr = 0;
  240. static int lex_read_from_string = 0;
  241.  
  242. static int my_input(void);
  243. static int my_unput(char);
  244.  
  245. #ifdef FLEX_SCANNER
  246. #undef YY_INPUT
  247. # define YY_INPUT(buf,result,max_size) \
  248.    if (lex_read_from_string) \
  249.    {  int c = my_input(); result = (c == 0) ? YY_NULL : ((buf)[0]=(c), 1); } \
  250.    else \
  251.     if ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \
  252.         YY_FATAL_ERROR( "read() in flex scanner failed" );
  253. #else
  254. # ifndef unput
  255. #  undef unput
  256. # endif
  257. # define unput(_c) my_unput(_c)
  258. #endif
  259.  
  260. # line 58 "lexer.l"
  261.  
  262. /* done after the current pattern has been matched and before the
  263.  * corresponding action - sets up yytext
  264.  */
  265. #define YY_DO_BEFORE_ACTION \
  266.     yytext = yy_bp; \
  267.     yyleng = yy_cp - yy_bp; \
  268.     yy_hold_char = *yy_cp; \
  269.     *yy_cp = '\0'; \
  270.     yy_c_buf_p = yy_cp;
  271.  
  272. #define EOB_ACT_CONTINUE_SCAN 0
  273. #define EOB_ACT_END_OF_FILE 1
  274. #define EOB_ACT_LAST_MATCH 2
  275.  
  276. /* return all but the first 'n' matched characters back to the input stream */
  277. #if !defined(__VISAGECPP__)
  278. #define yyless(n) \
  279.     do \
  280.         { \
  281.         /* undo effects of setting up yytext */ \
  282.         *yy_cp = yy_hold_char; \
  283.         yy_c_buf_p = yy_cp = yy_bp + n; \
  284.         YY_DO_BEFORE_ACTION; /* set up yytext again */ \
  285.         } \
  286.     while ( 0 )
  287. #else
  288. #define yyless(n) \
  289.     do \
  290.         { \
  291.         /* undo effects of setting up yytext */ \
  292.         *yy_cp = yy_hold_char; \
  293.         yy_c_buf_p = yy_cp = yy_bp + n; \
  294.         YY_DO_BEFORE_ACTION; /* set up yytext again */ \
  295.         } \
  296.     while ( os2var == 0 )
  297. #endif
  298.  
  299. #undef unput
  300. #define unput(c) yyunput( c, yytext )
  301.  
  302.  
  303. struct yy_buffer_state
  304.     {
  305.     FILE *yy_input_file;
  306.  
  307.     YY_CHAR *yy_ch_buf;        /* input buffer */
  308.     YY_CHAR *yy_buf_pos;    /* current position in input buffer */
  309.  
  310.     /* size of input buffer in bytes, not including room for EOB characters*/
  311.     int yy_buf_size;    
  312.  
  313.     /* number of characters read into yy_ch_buf, not including EOB characters */
  314.     int yy_n_chars;
  315.  
  316.     int yy_eof_status;        /* whether we've seen an EOF on this buffer */
  317. #define EOF_NOT_SEEN 0
  318.     /* "pending" happens when the EOF has been seen but there's still
  319.      * some text process
  320.      */
  321. #define EOF_PENDING 1
  322. #define EOF_DONE 2
  323.     };
  324.  
  325. static YY_BUFFER_STATE yy_current_buffer;
  326.  
  327. /* we provide macros for accessing buffer states in case in the
  328.  * future we want to put the buffer states in a more general
  329.  * "scanner state"
  330.  */
  331. #define YY_CURRENT_BUFFER yy_current_buffer
  332.  
  333.  
  334. /* yy_hold_char holds the character lost when yytext is formed */
  335. static YY_CHAR yy_hold_char;
  336.  
  337. static int yy_n_chars;        /* number of characters read into yy_ch_buf */
  338.  
  339.  
  340.  
  341. #ifndef YY_USER_ACTION
  342. #define YY_USER_ACTION
  343. #endif
  344.  
  345. #ifndef YY_USER_INIT
  346. #define YY_USER_INIT
  347. #endif
  348.  
  349. extern YY_CHAR *yytext;
  350. extern int yyleng;
  351. extern FILE *yyin, *yyout;
  352.  
  353. YY_CHAR *yytext;
  354. int yyleng;
  355.  
  356. FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
  357.  
  358. #define YY_END_OF_BUFFER 18
  359. typedef int yy_state_type;
  360. static const short int yy_accept[34] =
  361.     {   0,
  362.         0,    0,   18,   16,   13,   14,   16,   16,    6,    7,
  363.        16,    8,   12,   16,    1,   11,    3,    9,   10,    2,
  364.         0,    5,    0,    0,    0,    4,    1,   15,    3,    5,
  365.         0,    0,    0
  366.     } ;
  367.  
  368. static const YY_CHAR yy_ec[256] =
  369.     {   0,
  370.         1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
  371.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  372.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  373.         1,    2,    1,    4,    1,    1,    1,    1,    5,    6,
  374.         7,    8,    9,   10,    9,   11,   12,   13,   13,   13,
  375.        13,   13,   13,   13,   13,   13,   13,    1,    1,    1,
  376.        14,    1,    1,    1,   15,   15,   15,   15,   15,   15,
  377.        15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
  378.        15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
  379.        16,   17,   18,    1,   15,    1,   15,   15,   15,   15,
  380.  
  381.        19,   15,   15,   15,   15,   15,   15,   15,   15,   15,
  382.        15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
  383.        15,   15,    1,   20,    1,    1,    1,    1,    1,    1,
  384.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  385.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  386.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  387.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  388.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  389.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  390.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  391.  
  392.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  393.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  394.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  395.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  396.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  397.         1,    1,    1,    1,    1
  398.     } ;
  399.  
  400. static const YY_CHAR yy_meta[21] =
  401.     {   0,
  402.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  403.         1,    1,    2,    1,    2,    1,    3,    1,    2,    1
  404.     } ;
  405.  
  406. static const short int yy_base[37] =
  407.     {   0,
  408.         0,    0,   48,   55,   55,   55,   17,   42,   55,   55,
  409.        19,   55,   55,   23,   17,   55,    0,   55,   55,    0,
  410.        18,   55,   19,   23,   21,   55,   12,   55,    0,   24,
  411.        25,   29,   55,   49,   52,   22
  412.     } ;
  413.  
  414. static const short int yy_def[37] =
  415.     {   0,
  416.        33,    1,   33,   33,   33,   33,   34,   35,   33,   33,
  417.        33,   33,   33,   33,   33,   33,   36,   33,   33,   36,
  418.        34,   33,   34,   34,   35,   33,   33,   33,   36,   34,
  419.        34,   34,    0,   33,   33,   33
  420.     } ;
  421.  
  422. static const short int yy_nxt[76] =
  423.     {   0,
  424.         4,    5,    6,    7,    8,    9,   10,    4,   11,   12,
  425.        13,   14,   15,   16,   17,   18,    4,   19,   20,    4,
  426.        22,   22,   30,   29,   27,   26,   22,   22,   30,   27,
  427.        28,   27,   30,   23,   23,   23,   24,   24,   24,   31,
  428.        23,   32,   24,   24,   24,   23,   26,   33,   24,   21,
  429.        21,   21,   25,   25,    3,   33,   33,   33,   33,   33,
  430.        33,   33,   33,   33,   33,   33,   33,   33,   33,   33,
  431.        33,   33,   33,   33,   33
  432.     } ;
  433.  
  434. static const short int yy_chk[76] =
  435.     {   0,
  436.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  437.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  438.         7,   21,   23,   36,   27,   25,   24,   30,   31,   15,
  439.        14,   11,   32,    7,   21,   23,    7,   21,   23,   24,
  440.        30,   31,   24,   30,   31,   32,    8,    3,   32,   34,
  441.        34,   34,   35,   35,   33,   33,   33,   33,   33,   33,
  442.        33,   33,   33,   33,   33,   33,   33,   33,   33,   33,
  443.        33,   33,   33,   33,   33
  444.     } ;
  445.  
  446. static yy_state_type yy_last_accepting_state;
  447. static YY_CHAR *yy_last_accepting_cpos;
  448.  
  449. /* the intent behind this definition is that it'll catch
  450.  * any uses of REJECT which flex missed
  451.  */
  452. #define REJECT reject_used_but_not_detected
  453. #define yymore() yymore_used_but_not_detected
  454. #define YY_MORE_ADJ 0
  455.  
  456. /* these variables are all declared out here so that section 3 code can
  457.  * manipulate them
  458.  */
  459. /* points to current character in buffer */
  460. static YY_CHAR *yy_c_buf_p = (YY_CHAR *) 0;
  461. static int yy_init = 1;        /* whether we need to initialize */
  462. static int yy_start = 0;    /* start state number */
  463.  
  464. /* flag which is used to allow yywrap()'s to do buffer switches
  465.  * instead of setting up a fresh yyin.  A bit of a hack ...
  466.  */
  467. static int yy_did_buffer_switch_on_eof;
  468.  
  469. static yy_state_type yy_get_previous_state YY_PROTO(( void ));
  470. static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
  471. static int yy_get_next_buffer YY_PROTO(( void ));
  472. static void yyunput YY_PROTO(( YY_CHAR c, YY_CHAR *buf_ptr ));
  473. void yyrestart YY_PROTO(( FILE *input_file ));
  474. void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
  475. void yy_load_buffer_state YY_PROTO(( void ));
  476. YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
  477. void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
  478. void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
  479.  
  480. #define yy_new_buffer yy_create_buffer
  481.  
  482. #ifdef __cplusplus
  483. static int yyinput YY_PROTO(( void ));
  484. #else
  485. static int input YY_PROTO(( void ));
  486. #endif
  487.  
  488. YY_DECL
  489.     {
  490.     register yy_state_type yy_current_state;
  491.     register YY_CHAR *yy_cp, *yy_bp;
  492.     register int yy_act;
  493.  
  494.  
  495.  
  496.  
  497.     if ( yy_init )
  498.     {
  499.     YY_USER_INIT;
  500.  
  501.     if ( ! yy_start )
  502.         yy_start = 1;    /* first start state */
  503.  
  504.     if ( ! yyin )
  505.         yyin = stdin;
  506.  
  507.     if ( ! yyout )
  508.         yyout = stdout;
  509.  
  510.     if ( yy_current_buffer )
  511.         yy_init_buffer( yy_current_buffer, yyin );
  512.     else
  513.         yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
  514.  
  515.     yy_load_buffer_state();
  516.  
  517.     yy_init = 0;
  518.     }
  519.  
  520. #if !defined(__VISAGECPP__)
  521.     while ( 1 )        /* loops until end-of-file is reached */
  522. #else
  523.     os2var = 1;
  524.     if (os2var == 0) return 0;
  525.     while ( os2var == 1 )        /* loops until end-of-file is reached */
  526. #endif
  527.     {
  528.     yy_cp = yy_c_buf_p;
  529.  
  530.     /* support of yytext */
  531.     *yy_cp = yy_hold_char;
  532.  
  533.     /* yy_bp points to the position in yy_ch_buf of the start of the
  534.      * current run.
  535.      */
  536.     yy_bp = yy_cp;
  537.  
  538.     yy_current_state = yy_start;
  539. yy_match:
  540.     do
  541.         {
  542.         register YY_CHAR yy_c = yy_ec[*yy_cp];
  543.         if ( yy_accept[yy_current_state] )
  544.         {
  545.         yy_last_accepting_state = yy_current_state;
  546.         yy_last_accepting_cpos = yy_cp;
  547.         }
  548.         while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  549.         {
  550.         yy_current_state = yy_def[yy_current_state];
  551.         if ( yy_current_state >= 34 )
  552.             yy_c = yy_meta[yy_c];
  553.         }
  554.         yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
  555.         ++yy_cp;
  556.         }
  557.     while ( yy_current_state != 33 );
  558.     yy_cp = yy_last_accepting_cpos;
  559.     yy_current_state = yy_last_accepting_state;
  560.  
  561. yy_find_action:
  562.     yy_act = yy_accept[yy_current_state];
  563.  
  564.     YY_DO_BEFORE_ACTION;
  565.     YY_USER_ACTION;
  566.  
  567. do_action:    /* this label is used only to access EOF actions */
  568.  
  569.  
  570.     switch ( yy_act )
  571.         {
  572.         case 0: /* must backtrack */
  573.         /* undo the effects of YY_DO_BEFORE_ACTION */
  574.         *yy_cp = yy_hold_char;
  575.         yy_cp = yy_last_accepting_cpos;
  576.         yy_current_state = yy_last_accepting_state;
  577.         goto yy_find_action;
  578.  
  579. case 1:
  580. # line 60 "lexer.l"
  581. {yylval.s = strdup((const char*) yytext); Return(INTEGER);}
  582.     YY_BREAK
  583. case 2:
  584. # line 62 "lexer.l"
  585. Return(EXP);
  586.     YY_BREAK
  587. case 3:
  588. # line 64 "lexer.l"
  589. {yylval.s = strdup((const char*) yytext); Return(WORD);}
  590.     YY_BREAK
  591. case 4:
  592. # line 66 "lexer.l"
  593. {int len = strlen((const char*) yytext);
  594.                                    yytext[len-1] = 0;
  595.                                    yylval.s = strdup((const char*) (yytext+1));
  596.                                    Return(WORD);}
  597.     YY_BREAK
  598. case 5:
  599. # line 71 "lexer.l"
  600. {yylval.s = strdup((const char*) yytext); Return(STRING);}
  601.     YY_BREAK
  602. case 6:
  603. # line 73 "lexer.l"
  604. Return(OPEN);
  605.     YY_BREAK
  606. case 7:
  607. # line 75 "lexer.l"
  608. Return(CLOSE);
  609.     YY_BREAK
  610. case 8:
  611. # line 77 "lexer.l"
  612. Return(COMMA);
  613.     YY_BREAK
  614. case 9:
  615. # line 79 "lexer.l"
  616. Return(OPEN_SQUARE);
  617.     YY_BREAK
  618. case 10:
  619. # line 81 "lexer.l"
  620. Return(CLOSE_SQUARE);
  621.     YY_BREAK
  622. case 11:
  623. # line 83 "lexer.l"
  624. Return(EQUALS);
  625.     YY_BREAK
  626. case 12:
  627. # line 85 "lexer.l"
  628. Return(PERIOD);
  629.     YY_BREAK
  630. case 13:
  631. # line 87 "lexer.l"
  632. ;
  633.     YY_BREAK
  634. case 14:
  635. # line 89 "lexer.l"
  636. ;
  637.     YY_BREAK
  638. case 15:
  639. # line 91 "lexer.l"
  640. {       loop:
  641. #ifdef __cplusplus
  642.                           while (yyinput() != '*');
  643.                           switch (yyinput())
  644. #else
  645.                           while (input() != '*');
  646.                           switch (input())
  647. #endif
  648.                                   {
  649.                                   case '/': break;
  650.                                   case '*': unput('*');
  651.                                   default: goto loop;
  652.                                   }
  653.                           }
  654.     YY_BREAK
  655. case 16:
  656. # line 106 "lexer.l"
  657. Return(ERROR);
  658.     YY_BREAK
  659. case 17:
  660. # line 108 "lexer.l"
  661. ECHO;
  662.     YY_BREAK
  663. case YY_STATE_EOF(INITIAL):
  664.     yyterminate();
  665.  
  666.         case YY_END_OF_BUFFER:
  667.         {
  668.         /* amount of text matched not including the EOB char */
  669.         int yy_amount_of_matched_text = yy_cp - yytext - 1;
  670.  
  671.         /* undo the effects of YY_DO_BEFORE_ACTION */
  672.         *yy_cp = yy_hold_char;
  673.  
  674.         /* note that here we test for yy_c_buf_p "<=" to the position
  675.          * of the first EOB in the buffer, since yy_c_buf_p will
  676.          * already have been incremented past the NUL character
  677.          * (since all states make transitions on EOB to the end-
  678.          * of-buffer state).  Contrast this with the test in yyinput().
  679.          */
  680.         if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
  681.             /* this was really a NUL */
  682.             {
  683.             yy_state_type yy_next_state;
  684.  
  685.             yy_c_buf_p = yytext + yy_amount_of_matched_text;
  686.  
  687.             yy_current_state = yy_get_previous_state();
  688.  
  689.             /* okay, we're now positioned to make the
  690.              * NUL transition.  We couldn't have
  691.              * yy_get_previous_state() go ahead and do it
  692.              * for us because it doesn't know how to deal
  693.              * with the possibility of jamming (and we
  694.              * don't want to build jamming into it because
  695.              * then it will run more slowly)
  696.              */
  697.  
  698.             yy_next_state = yy_try_NUL_trans( yy_current_state );
  699.  
  700.             yy_bp = yytext + YY_MORE_ADJ;
  701.  
  702.             if ( yy_next_state )
  703.             {
  704.             /* consume the NUL */
  705.             yy_cp = ++yy_c_buf_p;
  706.             yy_current_state = yy_next_state;
  707.             goto yy_match;
  708.             }
  709.  
  710.             else
  711.             {
  712.                 yy_cp = yy_last_accepting_cpos;
  713.                 yy_current_state = yy_last_accepting_state;
  714.             goto yy_find_action;
  715.             }
  716.             }
  717.  
  718.         else switch ( yy_get_next_buffer() )
  719.             {
  720.             case EOB_ACT_END_OF_FILE:
  721.             {
  722.             yy_did_buffer_switch_on_eof = 0;
  723.  
  724.             if ( yywrap() )
  725.                 {
  726.                 /* note: because we've taken care in
  727.                  * yy_get_next_buffer() to have set up yytext,
  728.                  * we can now set up yy_c_buf_p so that if some
  729.                  * total hoser (like flex itself) wants
  730.                  * to call the scanner after we return the
  731.                  * YY_NULL, it'll still work - another YY_NULL
  732.                  * will get returned.
  733.                  */
  734.                 yy_c_buf_p = yytext + YY_MORE_ADJ;
  735.  
  736.                 yy_act = YY_STATE_EOF((yy_start - 1) / 2);
  737.                 goto do_action;
  738.                 }
  739.  
  740.             else
  741.                 {
  742.                 if ( ! yy_did_buffer_switch_on_eof )
  743.                 YY_NEW_FILE;
  744.                 }
  745.             }
  746.             break;
  747.  
  748.             case EOB_ACT_CONTINUE_SCAN:
  749.             yy_c_buf_p = yytext + yy_amount_of_matched_text;
  750.  
  751.             yy_current_state = yy_get_previous_state();
  752.  
  753.             yy_cp = yy_c_buf_p;
  754.             yy_bp = yytext + YY_MORE_ADJ;
  755.             goto yy_match;
  756.  
  757.             case EOB_ACT_LAST_MATCH:
  758.             yy_c_buf_p =
  759.                 &yy_current_buffer->yy_ch_buf[yy_n_chars];
  760.  
  761.             yy_current_state = yy_get_previous_state();
  762.  
  763.             yy_cp = yy_c_buf_p;
  764.             yy_bp = yytext + YY_MORE_ADJ;
  765.             goto yy_find_action;
  766.             }
  767.         break;
  768.         }
  769.  
  770.         default:
  771. #ifdef FLEX_DEBUG
  772.         printf( "action # %d\n", yy_act );
  773. #endif
  774.         YY_FATAL_ERROR(
  775.             "fatal flex scanner internal error--no action found" );
  776.         }
  777.     }
  778. #if defined(__VISAGECPP__)
  779. /* VA complains about proc maybe not returning a value so return one */
  780. return 0;
  781. #endif
  782.     }
  783.  
  784.  
  785. /* yy_get_next_buffer - try to read in a new buffer
  786.  *
  787.  * synopsis
  788.  *     int yy_get_next_buffer();
  789.  *
  790.  * returns a code representing an action
  791.  *     EOB_ACT_LAST_MATCH -
  792.  *     EOB_ACT_CONTINUE_SCAN - continue scanning from current position
  793.  *     EOB_ACT_END_OF_FILE - end of file
  794.  */
  795.  
  796. static int yy_get_next_buffer()
  797.  
  798.     {
  799.     register YY_CHAR *dest = yy_current_buffer->yy_ch_buf;
  800.     register YY_CHAR *source = yytext - 1; /* copy prev. char, too */
  801.     register int number_to_move, i;
  802.     int ret_val;
  803.  
  804.     if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
  805.     YY_FATAL_ERROR(
  806.         "fatal flex scanner internal error--end of buffer missed" );
  807.  
  808.     /* try to read more data */
  809.  
  810.     /* first move last chars to start of buffer */
  811.     number_to_move = yy_c_buf_p - yytext;
  812.  
  813.     for ( i = 0; i < number_to_move; ++i )
  814.     *(dest++) = *(source++);
  815.  
  816.     if ( yy_current_buffer->yy_eof_status != EOF_NOT_SEEN )
  817.     /* don't do the read, it's not guaranteed to return an EOF,
  818.      * just force an EOF
  819.      */
  820.     yy_n_chars = 0;
  821.  
  822.     else
  823.     {
  824.     int num_to_read = yy_current_buffer->yy_buf_size - number_to_move - 1;
  825.  
  826.     if ( num_to_read > YY_READ_BUF_SIZE )
  827.         num_to_read = YY_READ_BUF_SIZE;
  828.  
  829.     else if ( num_to_read <= 0 )
  830.         YY_FATAL_ERROR( "fatal error - scanner input buffer overflow" );
  831.  
  832.     /* read in more data */
  833.     YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
  834.           yy_n_chars, num_to_read );
  835.     }
  836.  
  837.     if ( yy_n_chars == 0 )
  838.     {
  839.     if ( number_to_move == 1 )
  840.         {
  841.         ret_val = EOB_ACT_END_OF_FILE;
  842.         yy_current_buffer->yy_eof_status = EOF_DONE;
  843.         }
  844.  
  845.     else
  846.         {
  847.         ret_val = EOB_ACT_LAST_MATCH;
  848.         yy_current_buffer->yy_eof_status = EOF_PENDING;
  849.         }
  850.     }
  851.  
  852.     else
  853.     ret_val = EOB_ACT_CONTINUE_SCAN;
  854.  
  855.     yy_n_chars += number_to_move;
  856.     yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
  857.     yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
  858.  
  859.     /* yytext begins at the second character in yy_ch_buf; the first
  860.      * character is the one which preceded it before reading in the latest
  861.      * buffer; it needs to be kept around in case it's a newline, so
  862.      * yy_get_previous_state() will have with '^' rules active
  863.      */
  864.  
  865.     yytext = &yy_current_buffer->yy_ch_buf[1];
  866.  
  867.     return ( ret_val );
  868.     }
  869.  
  870.  
  871. /* yy_get_previous_state - get the state just before the EOB char was reached
  872.  *
  873.  * synopsis
  874.  *     yy_state_type yy_get_previous_state();
  875.  */
  876.  
  877. static yy_state_type yy_get_previous_state()
  878.  
  879.     {
  880.     register yy_state_type yy_current_state;
  881.     register YY_CHAR *yy_cp;
  882.  
  883.     yy_current_state = yy_start;
  884.  
  885.     for ( yy_cp = yytext + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
  886.     {
  887.     register YY_CHAR yy_c = (*yy_cp ? yy_ec[*yy_cp] : 1);
  888.     if ( yy_accept[yy_current_state] )
  889.         {
  890.         yy_last_accepting_state = yy_current_state;
  891.         yy_last_accepting_cpos = yy_cp;
  892.         }
  893.     while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  894.         {
  895.         yy_current_state = yy_def[yy_current_state];
  896.         if ( yy_current_state >= 34 )
  897.         yy_c = yy_meta[yy_c];
  898.         }
  899.     yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
  900.     }
  901.  
  902.     return ( yy_current_state );
  903.     }
  904.  
  905.  
  906. /* yy_try_NUL_trans - try to make a transition on the NUL character
  907.  *
  908.  * synopsis
  909.  *     next_state = yy_try_NUL_trans( current_state );
  910.  */
  911.  
  912. #ifdef YY_USE_PROTOS
  913. static yy_state_type yy_try_NUL_trans( register yy_state_type yy_current_state )
  914. #else
  915. static yy_state_type yy_try_NUL_trans( yy_current_state )
  916. register yy_state_type yy_current_state;
  917. #endif
  918.  
  919.     {
  920.     register int yy_is_jam;
  921.     register YY_CHAR *yy_cp = yy_c_buf_p;
  922.  
  923.     register YY_CHAR yy_c = 1;
  924.     if ( yy_accept[yy_current_state] )
  925.     {
  926.     yy_last_accepting_state = yy_current_state;
  927.     yy_last_accepting_cpos = yy_cp;
  928.     }
  929.     while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  930.     {
  931.     yy_current_state = yy_def[yy_current_state];
  932.     if ( yy_current_state >= 34 )
  933.         yy_c = yy_meta[yy_c];
  934.     }
  935.     yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
  936.     yy_is_jam = (yy_current_state == 33);
  937.  
  938.     return ( yy_is_jam ? 0 : yy_current_state );
  939.     }
  940.  
  941.  
  942. #ifdef YY_USE_PROTOS
  943. static void yyunput( YY_CHAR c, register YY_CHAR *yy_bp )
  944. #else
  945. static void yyunput( c, yy_bp )
  946. YY_CHAR c;
  947. register YY_CHAR *yy_bp;
  948. #endif
  949.  
  950.     {
  951.     register YY_CHAR *yy_cp = yy_c_buf_p;
  952.  
  953.     /* undo effects of setting up yytext */
  954.     *yy_cp = yy_hold_char;
  955.  
  956.     if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
  957.     { /* need to shift things up to make room */
  958.     register int number_to_move = yy_n_chars + 2; /* +2 for EOB chars */
  959.     register YY_CHAR *dest =
  960.         &yy_current_buffer->yy_ch_buf[yy_current_buffer->yy_buf_size + 2];
  961.     register YY_CHAR *source =
  962.         &yy_current_buffer->yy_ch_buf[number_to_move];
  963.  
  964.     while ( source > yy_current_buffer->yy_ch_buf )
  965.         *--dest = *--source;
  966.  
  967.     yy_cp += dest - source;
  968.     yy_bp += dest - source;
  969.     yy_n_chars = yy_current_buffer->yy_buf_size;
  970.  
  971.     if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
  972.         YY_FATAL_ERROR( "flex scanner push-back overflow" );
  973.     }
  974.  
  975.     if ( yy_cp > yy_bp && yy_cp[-1] == '\n' )
  976.     yy_cp[-2] = '\n';
  977.  
  978.     *--yy_cp = c;
  979.  
  980.     /* note: the formal parameter *must* be called "yy_bp" for this
  981.      *       macro to now work correctly
  982.      */
  983.     YY_DO_BEFORE_ACTION; /* set up yytext again */
  984.     }
  985.  
  986.  
  987. #ifdef __cplusplus
  988. static int yyinput()
  989. #else
  990. static int input()
  991. #endif
  992.  
  993.     {
  994.     int c;
  995.     YY_CHAR *yy_cp = yy_c_buf_p;
  996.  
  997.     *yy_cp = yy_hold_char;
  998.  
  999.     if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
  1000.     {
  1001.     /* yy_c_buf_p now points to the character we want to return.
  1002.      * If this occurs *before* the EOB characters, then it's a
  1003.      * valid NUL; if not, then we've hit the end of the buffer.
  1004.      */
  1005.     if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
  1006.         /* this was really a NUL */
  1007.         *yy_c_buf_p = '\0';
  1008.  
  1009.     else
  1010.         { /* need more input */
  1011.         yytext = yy_c_buf_p;
  1012.         ++yy_c_buf_p;
  1013.  
  1014.         switch ( yy_get_next_buffer() )
  1015.         {
  1016.         case EOB_ACT_END_OF_FILE:
  1017.             {
  1018.             if ( yywrap() )
  1019.             {
  1020.             yy_c_buf_p = yytext + YY_MORE_ADJ;
  1021.             return ( EOF );
  1022.             }
  1023.  
  1024.             YY_NEW_FILE;
  1025.  
  1026. #ifdef __cplusplus
  1027.             return ( yyinput() );
  1028. #else
  1029.             return ( input() );
  1030. #endif
  1031.             }
  1032.             break;
  1033.  
  1034.         case EOB_ACT_CONTINUE_SCAN:
  1035.             yy_c_buf_p = yytext + YY_MORE_ADJ;
  1036.             break;
  1037.  
  1038.         case EOB_ACT_LAST_MATCH:
  1039. #ifdef __cplusplus
  1040.             YY_FATAL_ERROR( "unexpected last match in yyinput()" );
  1041. #else
  1042.             YY_FATAL_ERROR( "unexpected last match in input()" );
  1043. #endif
  1044.         }
  1045.         }
  1046.     }
  1047.  
  1048.     c = *yy_c_buf_p;
  1049.     yy_hold_char = *++yy_c_buf_p;
  1050.  
  1051.     return ( c );
  1052.     }
  1053.  
  1054.  
  1055. #ifdef YY_USE_PROTOS
  1056. void yyrestart( FILE *input_file )
  1057. #else
  1058. void yyrestart( input_file )
  1059. FILE *input_file;
  1060. #endif
  1061.  
  1062.     {
  1063.     yy_init_buffer( yy_current_buffer, input_file );
  1064.     yy_load_buffer_state();
  1065.     }
  1066.  
  1067.  
  1068. #ifdef YY_USE_PROTOS
  1069. void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
  1070. #else
  1071. void yy_switch_to_buffer( new_buffer )
  1072. YY_BUFFER_STATE new_buffer;
  1073. #endif
  1074.  
  1075.     {
  1076.     if ( yy_current_buffer == new_buffer )
  1077.     return;
  1078.  
  1079.     if ( yy_current_buffer )
  1080.     {
  1081.     /* flush out information for old buffer */
  1082.     *yy_c_buf_p = yy_hold_char;
  1083.     yy_current_buffer->yy_buf_pos = yy_c_buf_p;
  1084.     yy_current_buffer->yy_n_chars = yy_n_chars;
  1085.     }
  1086.  
  1087.     yy_current_buffer = new_buffer;
  1088.     yy_load_buffer_state();
  1089.  
  1090.     /* we don't actually know whether we did this switch during
  1091.      * EOF (yywrap()) processing, but the only time this flag
  1092.      * is looked at is after yywrap() is called, so it's safe
  1093.      * to go ahead and always set it.
  1094.      */
  1095.     yy_did_buffer_switch_on_eof = 1;
  1096.     }
  1097.  
  1098.  
  1099. #ifdef YY_USE_PROTOS
  1100. void yy_load_buffer_state( void )
  1101. #else
  1102. void yy_load_buffer_state()
  1103. #endif
  1104.  
  1105.     {
  1106.     yy_n_chars = yy_current_buffer->yy_n_chars;
  1107.     yytext = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
  1108.     yyin = yy_current_buffer->yy_input_file;
  1109.     yy_hold_char = *yy_c_buf_p;
  1110.     }
  1111.  
  1112.  
  1113. #ifdef YY_USE_PROTOS
  1114. YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
  1115. #else
  1116. YY_BUFFER_STATE yy_create_buffer( file, size )
  1117. FILE *file;
  1118. int size;
  1119. #endif
  1120.  
  1121.     {
  1122.     YY_BUFFER_STATE b;
  1123.  
  1124.     b = (YY_BUFFER_STATE) malloc( sizeof( struct yy_buffer_state ) );
  1125.  
  1126.     if ( ! b )
  1127.     YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
  1128.  
  1129.     b->yy_buf_size = size;
  1130.  
  1131.     /* yy_ch_buf has to be 2 characters longer than the size given because
  1132.      * we need to put in 2 end-of-buffer characters.
  1133.      */
  1134.     b->yy_ch_buf = (YY_CHAR *) malloc( (unsigned) (b->yy_buf_size + 2) );
  1135.  
  1136.     if ( ! b->yy_ch_buf )
  1137.     YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
  1138.  
  1139.     yy_init_buffer( b, file );
  1140.  
  1141.     return ( b );
  1142.     }
  1143.  
  1144.  
  1145. #ifdef YY_USE_PROTOS
  1146. void yy_delete_buffer( YY_BUFFER_STATE b )
  1147. #else
  1148. void yy_delete_buffer( b )
  1149. YY_BUFFER_STATE b;
  1150. #endif
  1151.  
  1152.     {
  1153.     if ( b == yy_current_buffer )
  1154.     yy_current_buffer = (YY_BUFFER_STATE) 0;
  1155.  
  1156.     free( (char *) b->yy_ch_buf );
  1157.     free( (char *) b );
  1158.     }
  1159.  
  1160.  
  1161. #ifdef YY_USE_PROTOS
  1162. void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
  1163. #else
  1164. void yy_init_buffer( b, file )
  1165. YY_BUFFER_STATE b;
  1166. FILE *file;
  1167. #endif
  1168.  
  1169.     {
  1170.     b->yy_input_file = file;
  1171.  
  1172.     /* we put in the '\n' and start reading from [1] so that an
  1173.      * initial match-at-newline will be true.
  1174.      */
  1175.  
  1176.     b->yy_ch_buf[0] = '\n';
  1177.     b->yy_n_chars = 1;
  1178.  
  1179.     /* we always need two end-of-buffer characters.  The first causes
  1180.      * a transition to the end-of-buffer state.  The second causes
  1181.      * a jam in that state.
  1182.      */
  1183.     b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
  1184.     b->yy_ch_buf[2] = YY_END_OF_BUFFER_CHAR;
  1185.  
  1186.     b->yy_buf_pos = &b->yy_ch_buf[1];
  1187.  
  1188.     b->yy_eof_status = EOF_NOT_SEEN;
  1189.     }
  1190. # line 108 "lexer.l"
  1191.  
  1192.  
  1193.  
  1194. #ifdef FLEX_SCANNER
  1195. static int lex_input() {
  1196.   return input();
  1197. }
  1198. #else    /* BSD/AT&T lex */
  1199. #ifndef input
  1200. # error "Sorry, but need either flex or AT&T lex"
  1201. #endif
  1202. static int lex_input() {
  1203.   return input();
  1204. }
  1205. /* # undef unput
  1206. # define unput(_c) my_unput(_c)
  1207. */
  1208.  
  1209. # undef input
  1210. # define input() my_input()
  1211. static int my_unput(char c)
  1212. {
  1213.   if (lex_read_from_string) {
  1214.     /* Make sure we have something */
  1215.     if (lex_string_ptr) {
  1216.       if (c == '\n') yylineno--;
  1217.       lex_string_ptr--;
  1218.     }
  1219.   } else {
  1220.     yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;
  1221. /*    unput(c); Causes infinite recursion! */
  1222.   }
  1223.   return c;
  1224. }
  1225.  
  1226. #endif
  1227.  
  1228. /* Public */
  1229. void LexFromFile(FILE *fd)
  1230. {
  1231.   lex_read_from_string = 0;
  1232.   yyin = fd;
  1233.   /* Don't know why this is necessary, but otherwise
  1234.    * lex only works _once_!
  1235.    */
  1236. #ifdef FLEX_SCANNER
  1237.   yy_init = 1;
  1238. #endif
  1239. }
  1240.  
  1241. void LexFromString(char *buffer)
  1242. {
  1243.   lex_read_from_string = 1;
  1244.   lex_buffer = buffer;
  1245.   lex_buffer_length = strlen((const char*) buffer);
  1246.   lex_string_ptr = 0;
  1247.   /* Don't know why this is necessary, but otherwise
  1248.    * lex only works _once_!
  1249.    */
  1250. #ifdef FLEX_SCANNER
  1251.   yy_init = 1;
  1252. #endif
  1253. }
  1254.  
  1255. static int my_input( void )
  1256. {
  1257.   if (lex_read_from_string) {
  1258.     if (lex_string_ptr == lex_buffer_length)
  1259.       return 0;
  1260.     else {
  1261.       char c = lex_buffer[lex_string_ptr++];
  1262. #ifndef FLEX_SCANNER
  1263.       if (c == '\n') yylineno++;
  1264. #endif
  1265.       return c;
  1266.     }
  1267.   } else {
  1268.     return lex_input();
  1269.   }
  1270. }
  1271.  
  1272. void wxExprCleanUp()
  1273. {
  1274.     if (yy_current_buffer)
  1275.         yy_delete_buffer(yy_current_buffer);
  1276. }
  1277.