home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / flex-2.4.6-src.lha / src / amiga / flex-2.4.6 / initscan.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-05  |  75.8 KB  |  2,714 lines
  1. /* A lexical scanner generated by flex */
  2.  
  3. /* Scanner skeleton version:
  4.  * $Header: flex.skl,v 1.2 94/01/04 14:33:15 vern Exp $
  5.  */
  6.  
  7. #define FLEX_SCANNER
  8.  
  9. #include <stdio.h>
  10.  
  11.  
  12. /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
  13. #ifdef c_plusplus
  14. #ifndef __cplusplus
  15. #define __cplusplus
  16. #endif
  17. #endif
  18.  
  19.  
  20. #ifdef __cplusplus
  21.  
  22. #include <stdlib.h>
  23. #include <unistd.h>
  24.  
  25. /* Use prototypes in function declarations. */
  26. #define YY_USE_PROTOS
  27.  
  28. /* The "const" storage-class-modifier is valid. */
  29. #define YY_USE_CONST
  30.  
  31. #else    /* ! __cplusplus */
  32.  
  33. #ifdef __STDC__
  34.  
  35. #define YY_USE_PROTOS
  36. #define YY_USE_CONST
  37.  
  38. #endif    /* __STDC__ */
  39. #endif    /* ! __cplusplus */
  40.  
  41.  
  42. #ifdef __TURBOC__
  43. #define YY_USE_CONST
  44. #endif
  45.  
  46.  
  47. #ifndef YY_USE_CONST
  48. #ifndef const
  49. #define const
  50. #endif
  51. #endif
  52.  
  53.  
  54. #ifdef YY_USE_PROTOS
  55. #define YY_PROTO(proto) proto
  56. #else
  57. #define YY_PROTO(proto) ()
  58. #endif
  59.  
  60. /* Returned upon end-of-file. */
  61. #define YY_NULL 0
  62.  
  63. /* Promotes a possibly negative, possibly signed char to an unsigned
  64.  * integer for use as an array index.  If the signed char is negative,
  65.  * we want to instead treat it as an 8-bit unsigned char, hence the
  66.  * double cast.
  67.  */
  68. #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
  69.  
  70. /* Enter a start condition.  This macro really ought to take a parameter,
  71.  * but we do it the disgusting crufty way forced on us by the ()-less
  72.  * definition of BEGIN.
  73.  */
  74. #define BEGIN yy_start = 1 + 2 *
  75.  
  76. /* Translate the current start state into a value that can be later handed
  77.  * to BEGIN to return to the state.
  78.  */
  79. #define YY_START ((yy_start - 1) / 2)
  80.  
  81. /* Action number for EOF rule of a given start state. */
  82. #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
  83.  
  84. /* Special action meaning "start processing a new file".  Now included
  85.  * only for backward compatibility with previous versions of flex.
  86.  */
  87. #define YY_NEW_FILE yyrestart( yyin )
  88.  
  89. #define YY_END_OF_BUFFER_CHAR 0
  90.  
  91. /* Size of default input buffer. */
  92. #define YY_BUF_SIZE 16384
  93.  
  94. typedef struct yy_buffer_state *YY_BUFFER_STATE;
  95.  
  96. extern int yyleng;
  97. extern FILE *yyin, *yyout;
  98.  
  99. #ifdef __cplusplus
  100. extern "C" {
  101. #endif
  102.     extern int yywrap YY_PROTO(( void ));
  103. #ifdef __cplusplus
  104.     }
  105. #endif
  106.  
  107. #define EOB_ACT_CONTINUE_SCAN 0
  108. #define EOB_ACT_END_OF_FILE 1
  109. #define EOB_ACT_LAST_MATCH 2
  110.  
  111. /* The funky do-while in the following #define is used to turn the definition
  112.  * int a single C statement (which needs a semi-colon terminator).  This
  113.  * avoids problems with code like:
  114.  *
  115.  *     if ( condition_holds )
  116.  *        yyless( 5 );
  117.  *    else
  118.  *        do_something_else();
  119.  *
  120.  * Prior to using the do-while the compiler would get upset at the
  121.  * "else" because it interpreted the "if" statement as being all
  122.  * done when it reached the ';' after the yyless() call.
  123.  */
  124.  
  125. /* Return all but the first 'n' matched characters back to the input stream. */
  126.  
  127. #define yyless(n) \
  128.     do \
  129.         { \
  130.         /* Undo effects of setting up yytext. */ \
  131.         *yy_cp = yy_hold_char; \
  132.         yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
  133.         YY_DO_BEFORE_ACTION; /* set up yytext again */ \
  134.         } \
  135.     while ( 0 )
  136.  
  137. #define unput(c) yyunput( c, yytext_ptr )
  138.  
  139.  
  140. struct yy_buffer_state
  141.     {
  142.     FILE *yy_input_file;
  143.  
  144.     char *yy_ch_buf;        /* input buffer */
  145.     char *yy_buf_pos;        /* current position in input buffer */
  146.  
  147.     /* Size of input buffer in bytes, not including room for EOB
  148.      * characters.
  149.      */
  150.     int yy_buf_size;
  151.  
  152.     /* Number of characters read into yy_ch_buf, not including EOB
  153.      * characters.
  154.      */
  155.     int yy_n_chars;
  156.  
  157.     /* Whether this is an "interactive" input source; if so, and
  158.      * if we're using stdio for input, then we want to use getc()
  159.      * instead of fread(), to make sure we stop fetching input after
  160.      * each newline.
  161.      */
  162.     int yy_is_interactive;
  163.  
  164.     /* Whether to try to fill the input buffer when we reach the
  165.      * end of it.
  166.      */
  167.     int yy_fill_buffer;
  168.  
  169.     /* Whether we've seen an EOF on this buffer. */
  170.     int yy_eof_status;
  171. #define EOF_NOT_SEEN 0
  172.     /* "Pending" happens when the EOF has been seen but there's still
  173.      * some text to process.  Note that when we actually see the EOF,
  174.      * we switch the status back to "not seen" (via yyrestart()), so
  175.      * that the user can continue scanning by just pointing yyin at
  176.      * a new input file.
  177.      */
  178. #define EOF_PENDING 1
  179.     };
  180.  
  181. static YY_BUFFER_STATE yy_current_buffer = 0;
  182.  
  183. /* We provide macros for accessing buffer states in case in the
  184.  * future we want to put the buffer states in a more general
  185.  * "scanner state".
  186.  */
  187. #define YY_CURRENT_BUFFER yy_current_buffer
  188.  
  189.  
  190. /* yy_hold_char holds the character lost when yytext is formed. */
  191. static char yy_hold_char;
  192.  
  193. static int yy_n_chars;        /* number of characters read into yy_ch_buf */
  194.  
  195.  
  196. int yyleng;
  197.  
  198. /* Points to current character in buffer. */
  199. static char *yy_c_buf_p = (char *) 0;
  200. static int yy_init = 1;        /* whether we need to initialize */
  201. static int yy_start = 0;    /* start state number */
  202.  
  203. /* Flag which is used to allow yywrap()'s to do buffer switches
  204.  * instead of setting up a fresh yyin.  A bit of a hack ...
  205.  */
  206. static int yy_did_buffer_switch_on_eof;
  207.  
  208. static void yyunput YY_PROTO(( int c, char *buf_ptr ));
  209. void yyrestart YY_PROTO(( FILE *input_file ));
  210. void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
  211. void yy_load_buffer_state YY_PROTO(( void ));
  212. YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
  213. void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
  214. void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
  215.  
  216. static int yy_start_stack_ptr = 0;
  217. static int yy_start_stack_depth = 0;
  218. static int *yy_start_stack = 0;
  219. static void yy_push_state YY_PROTO(( int new_state ));
  220. static void yy_pop_state YY_PROTO(( void ));
  221. static int yy_top_state YY_PROTO(( void ));
  222.  
  223. #ifndef yytext_ptr
  224. static void yy_flex_strcpy YY_PROTO(( char *, const char * ));
  225. #endif
  226.  
  227. static void *yy_flex_alloc YY_PROTO(( unsigned int ));
  228. static void *yy_flex_realloc YY_PROTO(( void *ptr, unsigned int ));
  229. static void yy_flex_free YY_PROTO(( void * ));
  230.  
  231. #define yy_new_buffer yy_create_buffer
  232.  
  233. #define INITIAL 0
  234. #define SECT2 1
  235. #define SECT2PROLOG 2
  236. #define SECT3 3
  237. #define CODEBLOCK 4
  238. #define PICKUPDEF 5
  239. #define SC 6
  240. #define CARETISBOL 7
  241. #define NUM 8
  242. #define QUOTE 9
  243. #define FIRSTCCL 10
  244. #define CCL 11
  245. #define ACTION 12
  246. #define RECOVER 13
  247. #define BRACEERROR 14
  248. #define C_COMMENT 15
  249. #define ACTION_COMMENT 16
  250. #define ACTION_STRING 17
  251. #define PERCENT_BRACE_ACTION 18
  252. #define USED_LIST 19
  253. #define CODEBLOCK_2 20
  254. typedef unsigned char YY_CHAR;
  255. typedef int yy_state_type;
  256. FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
  257. extern char *yytext;
  258. #define yytext_ptr yytext
  259.  
  260. #ifdef __cplusplus
  261. static int yyinput YY_PROTO(( void ));
  262. #else
  263. static int input YY_PROTO(( void ));
  264. #endif
  265.  
  266. static yy_state_type yy_get_previous_state YY_PROTO(( void ));
  267. static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
  268. static int yy_get_next_buffer YY_PROTO(( void ));
  269. static void yy_fatal_error YY_PROTO(( const char msg[] ));
  270.  
  271. /* Done after the current pattern has been matched and before the
  272.  * corresponding action - sets up yytext.
  273.  */
  274. #define YY_DO_BEFORE_ACTION \
  275.     yytext_ptr = yy_bp; \
  276.     yyleng = yy_cp - yy_bp; \
  277.     yy_hold_char = *yy_cp; \
  278.     *yy_cp = '\0'; \
  279.     yy_c_buf_p = yy_cp;
  280.  
  281. #define YY_END_OF_BUFFER 113
  282. static const short int yy_accept[408] =
  283.     {   0,
  284.         0,    0,    0,    0,   41,   41,  110,  110,    0,    0,
  285.         0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
  286.         0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
  287.         0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
  288.         0,    0,  113,  111,    6,   17,  111,   15,    1,   16,
  289.       111,  111,  111,   14,   60,   53,   54,   60,   47,   60,
  290.        59,   60,   60,   60,   60,   44,   43,   60,   60,   45,
  291.        46,   41,   42,   41,   40,   39,   40,   40,  110,  110,
  292.        26,   27,   26,   26,   26,   26,   26,   26,   29,   28,
  293.        30,   29,   65,   61,   62,   64,   66,   80,   81,   80,
  294.  
  295.        78,   77,   79,   67,   69,   67,   68,   67,   72,   72,
  296.        72,   74,   76,   74,   74,   74,   75,   92,   97,   92,
  297.        96,   98,   98,   93,   93,   93,   90,   91,  111,   31,
  298.       111,   83,  111,   82,   20,   22,   20,   21,  101,  102,
  299.       101,  100,  103,  105,  103,  106,  107,   88,   88,   89,
  300.        88,   88,   88,   88,   88,   88,   36,   33,   32,   36,
  301.        36,   36,   88,    6,   17,    0,   17,   15,    1,   16,
  302.         0,   16,   13,    7,    0,    0,    0,    3,    0,    4,
  303.         0,    2,   14,   53,   54,    0,    0,    0,   54,   50,
  304.        50,    0,    0,   57,    0,  108,  108,  108,   49,   48,
  305.  
  306.        49,   44,   43,    0,   43,   56,   44,   41,   42,   40,
  307.        39,   39,   37,   38,  110,  110,   26,   27,   26,   26,
  308.        26,   26,   29,   28,   30,   63,   64,   81,   77,   69,
  309.       109,  109,  109,   70,   71,   76,   73,   92,   97,    0,
  310.        95,    0,   94,   93,   93,   93,    0,   31,    0,   31,
  311.        31,   83,   20,   22,   18,  101,  102,  101,  102,  102,
  312.        99,  103,  105,  104,   88,   88,   88,   89,   85,   88,
  313.        88,   88,   36,   33,   32,   36,   36,   84,   13,    7,
  314.         0,   12,    0,    0,    0,    0,    3,    0,    0,    4,
  315.         0,    5,    0,   51,    0,   52,    0,    0,   57,    0,
  316.  
  317.        57,   57,  108,  108,   49,   49,   58,   56,   37,   38,
  318.        26,   26,   26,   23,   26,    0,  109,  109,   93,   93,
  319.         0,   19,    0,   85,   85,   88,   88,   36,   36,   12,
  320.         0,    0,    0,    3,    0,    0,    4,    5,    5,   52,
  321.        52,    0,   57,   57,   57,   57,  108,   26,   26,   23,
  322.        23,    0,  109,   93,   93,   19,   19,   88,   88,   36,
  323.        36,    0,    0,    0,   10,    0,   57,   57,   57,   57,
  324.        26,   26,   93,   93,   88,   88,   36,   36,    0,    0,
  325.         0,    0,   57,   57,   24,   25,   86,   87,   86,   87,
  326.        34,   35,    0,    9,    0,    0,   11,   55,    9,    9,
  327.  
  328.         0,    0,    8,    0,    8,    8,    0
  329.     } ;
  330.  
  331. static const int yy_ec[256] =
  332.     {   0,
  333.         1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
  334.         1,    1,    4,    1,    1,    1,    1,    1,    1,    1,
  335.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  336.         1,    2,    1,    5,    1,    6,    7,    1,    8,    9,
  337.         9,   10,    9,   11,   12,    9,   13,   14,   14,   14,
  338.        14,   14,   14,   14,   14,   14,   14,    1,    1,   15,
  339.         1,   16,    9,    1,   22,   23,   24,   25,   26,   27,
  340.        21,   21,   28,   29,   30,   21,   31,   32,   33,   34,
  341.        21,   35,   36,   37,   38,   21,   21,   39,   40,   21,
  342.        17,   18,   19,   20,   21,    1,   22,   23,   24,   25,
  343.  
  344.        26,   27,   21,   21,   28,   29,   30,   21,   31,   32,
  345.        33,   34,   21,   35,   36,   37,   38,   21,   21,   39,
  346.        40,   21,   41,   42,   43,    1,    1,    1,    1,    1,
  347.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  348.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  349.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  350.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  351.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  352.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  353.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  354.  
  355.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  356.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  357.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  358.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  359.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  360.         1,    1,    1,    1,    1
  361.     } ;
  362.  
  363. static const int yy_meta[44] =
  364.     {   0,
  365.         1,    2,    3,    1,    4,    1,    1,    5,    1,    6,
  366.         1,    7,    5,    8,    1,    1,    1,    9,   10,    1,
  367.        11,   12,   12,   12,   12,   12,   12,   11,   11,   11,
  368.        11,   11,   11,   11,   11,   11,   13,   11,   11,   11,
  369.         5,    1,   14
  370.     } ;
  371.  
  372. static const short int yy_base[470] =
  373.     {   0,
  374.         0,   43,   85,  126,   89,  102, 1611, 1610,  168, 1605,
  375.       108,  111,  211,    0, 1591, 1590,  252,  254,  116,  119,
  376.        98,  122,  144,  146,  297,    0,   93,  104,  338,  340,
  377.       149,  151,  257,  266,  268,  274,  383,    0,  425,  428,
  378.      1596, 1595, 1607, 1615,  278, 1602, 1602,    0,  281, 1600,
  379.      1600,  462, 1592,    0, 1615,  431, 1597, 1597, 1615,  285,
  380.      1615, 1584, 1580,  331,  503,  437, 1593, 1593,  110, 1580,
  381.      1615,    0, 1590, 1590,    0, 1590, 1588,  221, 1587, 1615,
  382.         0, 1585, 1585, 1615,    0, 1561, 1546, 1511,    0, 1551,
  383.      1543, 1543, 1615, 1615, 1498,    0, 1615, 1615, 1500, 1487,
  384.  
  385.      1615, 1463, 1615, 1615, 1466, 1460, 1615,  332, 1615,  333,
  386.       126, 1615, 1411, 1398,    0,  334, 1615,    0, 1383, 1383,
  387.      1615,  341, 1371,    0, 1354, 1336, 1615, 1615,  271, 1371,
  388.       287, 1370, 1366, 1615,    0, 1362, 1349, 1331,  290, 1335,
  389.       347, 1325,    0, 1323, 1310, 1615,    0,    0,  350, 1306,
  390.      1287, 1246, 1615,    0, 1249, 1227,    0, 1264, 1261, 1255,
  391.      1225, 1197, 1213,  351, 1213, 1213, 1615,    0,  358, 1198,
  392.      1193, 1615,    0,    0,  443,  361,  447,    0,  342,    0,
  393.       363, 1615,    0,  451, 1191, 1188, 1149,  365, 1615, 1615,
  394.      1185, 1181, 1155, 1135,  423, 1615, 1125,    0,    0, 1615,
  395.  
  396.       546,  588, 1121, 1108, 1615,    0, 1615,    0, 1615,    0,
  397.         0, 1095,    0,    0, 1088, 1615,    0, 1615,    0, 1061,
  398.      1041,  630,    0, 1069, 1615, 1615,    0, 1615,  838, 1615,
  399.      1615,  837,    0, 1615, 1615, 1615, 1615,    0, 1615,  434,
  400.      1615,    0, 1615,    0,  821,  817,  373,  843,  376, 1615,
  401.       842, 1615,    0, 1615,  463,  467,  834,  471, 1615,  833,
  402.      1615,    0, 1615, 1615,    0,  441,  793, 1615,  673,    0,
  403.       805,  802,    0,  830, 1615,  795,  792, 1615,    0,    0,
  404.       594,  818,  817,  597,  784,  790,    0,  775,  786,    0,
  405.       473,  807,  478, 1615,  486,  806,  590,  776,  790,  588,
  406.  
  407.       469,  703,  793,    0,    0,    0, 1615,    0,    0,    0,
  408.       780,  772,    0,  800,  800,  730,  788,    0,  775,  767,
  409.       600,  795,  602,    0,  773,  772,  764,  770,  762, 1615,
  410.       610,  772,  751,    0,  740,  745,    0, 1615,  765, 1615,
  411.       764,  740,  488,  803,  601,  817, 1615,  742,  730, 1615,
  412.       760,  760, 1615,  738,  726, 1615,  756,  735,  723,  733,
  413.       721,  714,  716,  726, 1615,  724,  602,  831,  715,  658,
  414.       512,  473,  454,  459,  435,  438,  422,  430,  606,  410,
  415.       357,  342,  338,  278,    0,    0,    0,    0,    0,    0,
  416.         0,    0,  614,  255,  618,  131, 1615, 1615, 1615,  156,
  417.  
  418.       620,  622,  153,  625, 1615,   95, 1615,  858,  872,  886,
  419.       900,  914,  928,  942,  956,  970,  984,  998, 1012, 1026,
  420.      1040, 1054, 1062, 1075, 1081, 1094, 1108, 1122, 1136, 1150,
  421.      1164, 1178, 1186, 1199, 1207, 1220, 1234, 1248, 1262, 1272,
  422.      1280, 1293, 1307, 1321, 1335, 1349, 1363, 1371, 1384, 1398,
  423.      1412, 1416, 1419, 1432, 1446, 1460,  710, 1474, 1487, 1501,
  424.      1515,  711, 1529, 1537, 1544,  712,  743, 1557, 1571
  425.     } ;
  426.  
  427. static const short int yy_def[470] =
  428.     {   0,
  429.       407,  407,  408,  408,  409,  410,  411,  411,  407,    9,
  430.       412,  412,  407,   13,  413,  413,  414,  414,  415,  415,
  431.       416,  416,  417,  417,  407,   25,  418,  418,  413,  413,
  432.       419,  419,  420,  420,  421,  421,  407,   37,  422,  422,
  433.        37,   37,  407,  407,  407,  407,  407,  423,  407,  407,
  434.       407,  424,  407,  425,  407,  407,  407,  407,  407,  407,
  435.       407,  407,  426,  427,  407,  407,  407,  407,  407,  407,
  436.       407,  428,  407,  428,  429,  430,  429,  429,  431,  407,
  437.       432,  407,  432,  407,  433,  433,  433,  432,  434,  407,
  438.       407,  434,  407,  407,  407,  435,  407,  407,  407,  407,
  439.  
  440.       407,  407,  407,  407,  407,  407,  407,  427,  407,  436,
  441.       437,  407,  407,  407,  438,  427,  407,  439,  407,  439,
  442.       407,  440,  407,  441,  441,  441,  407,  407,  442,  407,
  443.       442,  407,  407,  407,  443,  407,  443,  407,  444,  407,
  444.       444,  407,  445,  407,  445,  407,  446,  447,  447,  407,
  445.       447,  447,  407,  448,  448,  448,  449,  407,  407,  449,
  446.       449,  449,  447,  407,  407,  407,  407,  423,  407,  407,
  447.       407,  407,  450,  451,  407,  407,  407,  452,  407,  453,
  448.       454,  407,  425,  407,  407,  407,  407,  455,  407,  407,
  449.       407,  407,  407,  456,  426,  407,  407,  457,  458,  407,
  450.  
  451.       407,  407,  407,  407,  407,  459,  407,  428,  407,  429,
  452.       430,  430,  460,  461,  431,  407,  432,  407,  433,  433,
  453.       433,  407,  434,  407,  407,  407,  435,  407,  407,  407,
  454.       407,  407,  462,  407,  407,  407,  407,  439,  407,  440,
  455.       407,  440,  407,  441,  441,  441,  442,  407,  442,  407,
  456.       407,  407,  443,  407,  463,  444,  407,  444,  407,  407,
  457.       407,  445,  407,  407,  447,  447,  447,  407,  407,  448,
  458.       448,  448,  449,  407,  407,  449,  449,  407,  450,  451,
  459.       407,  407,  407,  407,  407,  407,  464,  407,  407,  465,
  460.       454,  407,  454,  407,  455,  407,  455,  407,  456,  456,
  461.  
  462.       456,  456,  407,  466,  458,  201,  407,  459,  460,  461,
  463.       433,  433,  222,  407,  222,  222,  407,  467,  441,  441,
  464.       463,  407,  463,  269,  269,  448,  448,  449,  449,  407,
  465.       407,  407,  407,  464,  407,  407,  465,  407,  407,  407,
  466.       407,  407,  456,  456,  456,  456,  407,  433,  433,  407,
  467.       407,  316,  407,  441,  441,  407,  407,  448,  448,  449,
  468.       449,  407,  407,  407,  407,  407,  456,  456,  456,  456,
  469.       433,  433,  441,  441,  448,  448,  449,  449,  468,  407,
  470.       407,  407,  456,  456,  433,  433,  441,  441,  448,  448,
  471.       449,  449,  468,  407,  468,  407,  407,  407,  407,  407,
  472.  
  473.       469,  469,  407,  469,  407,  407,    0,  407,  407,  407,
  474.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  475.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  476.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  477.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  478.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  479.       407,  407,  407,  407,  407,  407,  407,  407,  407
  480.     } ;
  481.  
  482. static const short int yy_nxt[1659] =
  483.     {   0,
  484.        44,   45,   46,   47,   44,   44,   44,   44,   44,   44,
  485.        44,   44,   44,   44,   44,   44,   44,   44,   44,   44,
  486.        48,   48,   48,   48,   48,   48,   48,   48,   48,   48,
  487.        48,   48,   48,   48,   48,   48,   48,   48,   48,   48,
  488.        44,   44,   44,   44,   49,   50,   51,   44,   44,   52,
  489.        44,   44,   44,   44,   44,   53,   44,   44,   44,   44,
  490.        44,   44,   44,   54,   54,   54,   54,   54,   54,   54,
  491.        54,   54,   54,   54,   54,   54,   54,   54,   54,   54,
  492.        54,   54,   54,   44,   44,   44,   56,   57,   58,   59,
  493.        60,   73,   74,   61,   61,  130,  131,   61,  405,   62,
  494.  
  495.        44,   63,   64,   76,   73,   77,  130,  131,   78,   90,
  496.        91,   92,   90,   91,   92,  110,  206,  111,  105,  106,
  497.       107,  105,  106,  107,   44,   65,   61,   66,   67,   68,
  498.        59,   60,   69,  108,   61,   61,  108,  235,   61,  110,
  499.        70,  111,   63,   64,  235,   71,  113,  114,  113,  114,
  500.       207,  136,  137,  136,  137,  115,  405,  115,  138,  399,
  501.       138,  116,  117,  116,  117,  401,   65,   61,   81,   81,
  502.        82,   83,   81,   81,   81,   81,   81,   84,   81,   81,
  503.        81,   81,   81,   81,   81,   81,   81,   81,   85,   85,
  504.        85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
  505.  
  506.        85,   85,   86,   85,   85,   85,   85,   87,   81,   81,
  507.        81,   93,   93,   44,   93,   93,   93,   93,   93,   93,
  508.        94,   94,   93,   93,   93,   93,   95,   93,   93,   93,
  509.        93,   96,   96,   96,   96,   96,   96,   96,   96,   96,
  510.        96,   96,   96,   96,   96,   96,   96,   96,   96,   96,
  511.        96,   93,   93,   93,   99,  100,   99,  100,  399,  140,
  512.       141,  213,  101,  214,  101,  102,  142,  102,  140,  141,
  513.       144,  145,  146,  248,  249,  142,  144,  145,  146,  164,
  514.       165,  166,  169,  170,  171,  147,  190,  191,  192,  251,
  515.       249,  147,  257,  258,  103,  300,  103,  118,  118,  119,
  516.  
  517.       120,  121,  118,  118,  122,  118,  118,  118,  118,  123,
  518.       118,  118,  118,  118,  118,  118,  118,  124,  124,  124,
  519.       124,  124,  124,  124,  124,  124,  124,  124,  124,  124,
  520.       124,  125,  124,  124,  124,  124,  126,  127,  118,  128,
  521.       132,  133,  132,  133,  197,  197,  232,  197,  241,  260,
  522.       258,  266,  164,  165,  166,  300,  267,  398,  242,  169,
  523.       170,  171,  281,  282,  283,  292,  293,  296,  297,  198,
  524.       198,  233,  198,  288,  284,  248,  249,  289,  251,  249,
  525.       134,  397,  134,  148,  149,  150,  151,  148,  148,  152,
  526.       148,  148,  153,  148,  148,  148,  148,  148,  148,  148,
  527.  
  528.       148,  148,  148,  154,  154,  154,  154,  154,  154,  154,
  529.       154,  154,  154,  154,  154,  154,  154,  155,  154,  154,
  530.       154,  154,  156,  148,  148,  148,  158,  159,  160,  158,
  531.       159,  160,  184,  185,  186,  396,  301,  187,  202,  203,
  532.       204,  241,  266,  187,  281,  282,  283,  267,  281,  282,
  533.       283,  242,  184,  185,  186,  392,  284,  187,  391,  161,
  534.       284,  302,  161,  390,  162,  322,  323,  162,  174,  257,
  535.       258,  389,  188,  260,  258,  292,  293,  285,  188,  286,
  536.       339,  293,  345,  175,  388,  176,  300,  176,  296,  297,
  537.       387,  176,  188,  176,  176,  177,  176,  178,  386,  179,
  538.  
  539.       180,  367,  181,  199,  199,  300,  199,  199,  199,  199,
  540.       199,  199,  199,  199,  199,  199,  200,  199,  199,  199,
  541.       199,  199,  199,  201,  201,  201,  201,  201,  201,  201,
  542.       201,  201,  201,  201,  201,  201,  201,  201,  201,  201,
  543.       201,  201,  201,  199,  199,  199,  305,  305,  385,  305,
  544.       305,  305,  305,  305,  305,  305,  305,  306,  305,  306,
  545.       305,  305,  305,  305,  305,  305,  306,  306,  306,  306,
  546.       306,  306,  306,  306,  306,  306,  306,  306,  306,  306,
  547.       306,  306,  306,  306,  306,  306,  305,  305,  307,  202,
  548.       203,  204,  341,  297,  187,  281,  282,  283,  331,  282,
  549.  
  550.       283,  343,  322,  323,  357,  323,  299,  284,  394,  395,
  551.       284,  331,  282,  283,  369,  383,  394,  395,  300,  300,
  552.       400,  395,  403,  404,  403,  404,  344,  406,  404,  188,
  553.       313,  313,  314,  315,  313,  313,  313,  313,  313,  316,
  554.       313,  313,  313,  313,  313,  313,  313,  313,  313,  313,
  555.       316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
  556.       316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
  557.       313,  313,  313,  324,  324,  300,  324,  324,  324,  324,
  558.       324,  324,  325,  324,  324,  324,  324,  324,  324,  324,
  559.       324,  324,  324,  325,  325,  325,  325,  325,  325,  325,
  560.  
  561.       325,  325,  325,  325,  325,  325,  325,  325,  325,  325,
  562.       325,  325,  325,  324,  324,  324,  346,  304,  318,  347,
  563.       300,  304,  318,  347,  346,  346,  346,  346,  346,  346,
  564.       316,  316,  300,  352,  316,  316,  316,  316,  316,  382,
  565.       316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
  566.       353,  381,  380,  379,  353,  378,  377,  376,  375,  356,
  567.       374,  373,  351,  350,  372,  371,  366,  340,  338,  365,
  568.       316,  316,  316,  325,  325,  364,  325,  325,  325,  325,
  569.       325,  325,  363,  325,  325,  325,  325,  325,  325,  325,
  570.       325,  325,  325,  362,  361,  360,  359,  358,  356,  355,
  571.  
  572.       354,  231,  351,  350,  349,  348,  196,  300,  342,  340,
  573.       338,  336,  335,  325,  325,  325,  368,  333,  332,  330,
  574.       300,  330,  329,  328,  368,  368,  368,  368,  368,  368,
  575.       370,  274,  327,  326,  300,  269,  259,  259,  370,  370,
  576.       370,  370,  370,  370,  384,  250,  250,  320,  300,  319,
  577.       317,  229,  384,  384,  384,  384,  384,  384,   55,   55,
  578.        55,   55,   55,   55,   55,   55,   55,   55,   55,   55,
  579.        55,   55,   72,   72,   72,   72,   72,   72,   72,   72,
  580.        72,   72,   72,   72,   72,   72,   75,   75,   75,   75,
  581.        75,   75,   75,   75,   75,   75,   75,   75,   75,   75,
  582.  
  583.        79,   79,   79,   79,   79,   79,   79,   79,   79,   79,
  584.        79,   79,   79,   79,   89,   89,   89,   89,   89,   89,
  585.        89,   89,   89,   89,   89,   89,   89,   89,   44,   44,
  586.        44,   44,   44,   44,   44,   44,   44,   44,   44,   44,
  587.        44,   44,   98,   98,   98,   98,   98,   98,   98,   98,
  588.        98,   98,   98,   98,   98,   98,  104,  104,  104,  104,
  589.       104,  104,  104,  104,  104,  104,  104,  104,  104,  104,
  590.       109,  109,  109,  109,  109,  109,  109,  109,  109,  109,
  591.       109,  109,  109,  109,  112,  112,  112,  112,  112,  112,
  592.       112,  112,  112,  112,  112,  112,  112,  112,  129,  129,
  593.  
  594.       129,  129,  129,  129,  129,  129,  129,  129,  129,  129,
  595.       129,  129,  135,  135,  135,  135,  135,  135,  135,  135,
  596.       135,  135,  135,  135,  135,  135,  139,  139,  139,  139,
  597.       139,  139,  139,  139,  139,  139,  139,  139,  139,  139,
  598.       143,  143,  143,  143,  143,  143,  143,  143,  143,  143,
  599.       143,  143,  143,  143,  157,  157,  157,  157,  157,  157,
  600.       157,  157,  157,  157,  157,  157,  157,  157,  168,  168,
  601.       224,  312,  168,  168,  168,  173,  173,  173,  173,  173,
  602.       173,  173,  173,  173,  173,  173,  173,  183,  183,  311,
  603.       216,  183,  183,  183,  194,  194,  212,  194,  194,  194,
  604.  
  605.       194,  194,  194,  194,  194,  194,  194,  194,  196,  196,
  606.       205,  196,  196,  196,  196,  196,  196,  196,  196,  196,
  607.       196,  196,  208,  208,  205,  208,  208,  208,  208,  208,
  608.       208,  208,  208,  208,  208,  208,  210,  210,  303,  210,
  609.       210,  210,  210,  210,  210,  210,  210,  210,  210,  210,
  610.       211,  211,  300,  211,  211,  211,  211,  211,  211,  211,
  611.       211,  211,  211,  211,  215,  215,  215,  215,  215,  215,
  612.       215,  215,  215,  215,  215,  215,  215,  215,  217,  217,
  613.       298,  217,  217,  190,  217,  217,  217,  217,  190,  294,
  614.       189,  217,  219,  219,  189,  172,  219,  219,  219,  223,
  615.  
  616.       223,  172,  223,  223,  223,  223,  223,  223,  223,  223,
  617.       223,  223,  223,  227,  227,  167,  167,  227,  227,  227,
  618.       231,  231,  278,  231,  231,  231,  231,  231,  231,  231,
  619.       231,  231,  231,  231,  234,  234,  277,  234,  234,  234,
  620.       234,  234,  234,  234,  234,  234,  234,  234,  237,  237,
  621.       276,  237,  237,  237,  237,  237,  237,  275,  237,  237,
  622.       237,  237,  238,  238,  275,  274,  272,  238,  238,  238,
  623.       238,  238,  240,  240,  271,  240,  240,  240,  240,  240,
  624.       240,  240,  240,  240,  240,  240,  244,  244,  269,  268,
  625.       244,  244,  244,  247,  247,  247,  247,  247,  247,  247,
  626.  
  627.       247,  247,  247,  247,  247,  247,  247,  253,  253,  268,
  628.       253,  253,  263,  253,  253,  253,  253,  253,  253,  253,
  629.       253,  256,  256,  256,  256,  256,  263,  256,  256,  256,
  630.       256,  256,  256,  256,  256,  262,  262,  261,  259,  262,
  631.       262,  262,  262,  255,  262,  262,  262,  262,  262,  264,
  632.       264,  254,  264,  264,  264,  264,  264,  264,  264,  264,
  633.       264,  264,  264,  265,  265,  254,  265,  265,  252,  265,
  634.       265,  265,  265,  252,  250,  246,  265,  270,  270,  245,
  635.       243,  270,  270,  270,  273,  239,  239,  273,  273,  273,
  636.       273,  273,  273,  273,  273,  273,  273,  273,  279,  279,
  637.  
  638.       236,  279,  279,  279,  279,  279,  279,  279,  279,  279,
  639.       279,  279,  280,  280,  236,  280,  280,  280,  280,  280,
  640.       280,  280,  280,  280,  280,  280,  287,  287,  287,  290,
  641.       290,  290,  291,  291,  291,  291,  291,  291,  291,  291,
  642.       291,  291,  291,  291,  291,  291,  295,  295,  295,  295,
  643.       295,  295,  295,  295,  295,  295,  295,  295,  295,  295,
  644.       299,  299,  230,  299,  299,  299,  299,  299,  299,  230,
  645.       299,  299,  299,  299,  305,  305,  229,  305,  305,  305,
  646.       305,  305,  305,  305,  305,  305,  305,  308,  308,  228,
  647.       308,  308,  308,  308,  308,  308,  308,  308,  308,  308,
  648.  
  649.       308,  309,  309,  228,  309,  309,  309,  309,  309,  309,
  650.       309,  309,  309,  309,  309,  310,  310,  226,  310,  310,
  651.       310,  310,  310,  310,  310,  310,  310,  310,  310,  321,
  652.       321,  321,  321,  321,  321,  321,  321,  321,  321,  321,
  653.       321,  321,  321,  334,  334,  225,  225,  334,  334,  334,
  654.       337,  337,  224,  222,  337,  337,  337,  393,  393,  393,
  655.       393,  393,  393,  393,  393,  393,  393,  393,  393,  393,
  656.       393,  402,  402,  402,  402,  402,  402,  402,  402,  402,
  657.       402,  402,  402,  402,  402,  221,  220,  218,  218,  216,
  658.       209,  212,  209,  209,  193,  205,  205,  195,  193,  189,
  659.  
  660.       189,  182,  172,  172,  167,  167,  407,  163,  163,   97,
  661.        97,   88,   80,   80,   43,  407,  407,  407,  407,  407,
  662.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  663.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  664.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  665.       407,  407,  407,  407,  407,  407,  407,  407
  666.     } ;
  667.  
  668. static const short int yy_chk[1659] =
  669.     {   0,
  670.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  671.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  672.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  673.         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
  674.         1,    1,    1,    2,    2,    2,    2,    2,    2,    2,
  675.         2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
  676.         2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
  677.         2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
  678.         2,    2,    2,    2,    2,    2,    3,    3,    3,    3,
  679.         3,    5,    5,    3,    3,   27,   27,    3,  406,    3,
  680.  
  681.        21,    3,    3,    6,    6,    6,   28,   28,    6,   11,
  682.        11,   11,   12,   12,   12,   21,   69,   21,   19,   19,
  683.        19,   20,   20,   20,   22,    3,    3,    4,    4,    4,
  684.         4,    4,    4,   19,    4,    4,   20,  111,    4,   22,
  685.         4,   22,    4,    4,  111,    4,   23,   23,   24,   24,
  686.        69,   31,   31,   32,   32,   23,  403,   24,   31,  400,
  687.        32,   23,   23,   24,   24,  396,    4,    4,    9,    9,
  688.         9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
  689.         9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
  690.         9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
  691.  
  692.         9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
  693.         9,   13,   13,   13,   13,   13,   13,   13,   13,   13,
  694.        13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
  695.        13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
  696.        13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
  697.        13,   13,   13,   13,   17,   17,   18,   18,  394,   33,
  698.        33,   78,   17,   78,   18,   17,   33,   18,   34,   34,
  699.        35,   35,   35,  129,  129,   34,   36,   36,   36,   45,
  700.        45,   45,   49,   49,   49,   35,   60,   60,   60,  131,
  701.       131,   36,  139,  139,   17,  384,   18,   25,   25,   25,
  702.  
  703.        25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
  704.        25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
  705.        25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
  706.        25,   25,   25,   25,   25,   25,   25,   25,   25,   25,
  707.        29,   29,   30,   30,   64,  108,  110,  116,  122,  141,
  708.       141,  149,  164,  164,  164,  383,  149,  382,  122,  169,
  709.       169,  169,  176,  176,  176,  181,  181,  188,  188,   64,
  710.       108,  110,  116,  179,  176,  247,  247,  179,  249,  249,
  711.        29,  381,   30,   37,   37,   37,   37,   37,   37,   37,
  712.        37,   37,   37,   37,   37,   37,   37,   37,   37,   37,
  713.  
  714.        37,   37,   37,   37,   37,   37,   37,   37,   37,   37,
  715.        37,   37,   37,   37,   37,   37,   37,   37,   37,   37,
  716.        37,   37,   37,   37,   37,   37,   39,   39,   39,   40,
  717.        40,   40,   56,   56,   56,  380,  195,   56,   66,   66,
  718.        66,  240,  266,   66,  175,  175,  175,  266,  177,  177,
  719.       177,  240,  184,  184,  184,  378,  175,  184,  377,   39,
  720.       177,  195,   40,  376,   39,  255,  255,   40,   52,  256,
  721.       256,  375,   56,  258,  258,  291,  291,  175,   66,  177,
  722.       293,  293,  301,   52,  374,   52,  301,   52,  295,  295,
  723.       373,   52,  184,   52,   52,   52,   52,   52,  372,   52,
  724.  
  725.        52,  343,   52,   65,   65,  343,   65,   65,   65,   65,
  726.        65,   65,   65,   65,   65,   65,   65,   65,   65,   65,
  727.        65,   65,   65,   65,   65,   65,   65,   65,   65,   65,
  728.        65,   65,   65,   65,   65,   65,   65,   65,   65,   65,
  729.        65,   65,   65,   65,   65,   65,  201,  201,  371,  201,
  730.       201,  201,  201,  201,  201,  201,  201,  201,  201,  201,
  731.       201,  201,  201,  201,  201,  201,  201,  201,  201,  201,
  732.       201,  201,  201,  201,  201,  201,  201,  201,  201,  201,
  733.       201,  201,  201,  201,  201,  201,  201,  201,  201,  202,
  734.       202,  202,  297,  297,  202,  281,  281,  281,  284,  284,
  735.  
  736.       284,  300,  321,  321,  323,  323,  300,  281,  379,  379,
  737.       284,  331,  331,  331,  345,  367,  393,  393,  345,  367,
  738.       395,  395,  401,  401,  402,  402,  300,  404,  404,  202,
  739.       222,  222,  222,  222,  222,  222,  222,  222,  222,  222,
  740.       222,  222,  222,  222,  222,  222,  222,  222,  222,  222,
  741.       222,  222,  222,  222,  222,  222,  222,  222,  222,  222,
  742.       222,  222,  222,  222,  222,  222,  222,  222,  222,  222,
  743.       222,  222,  222,  269,  269,  370,  269,  269,  269,  269,
  744.       269,  269,  269,  269,  269,  269,  269,  269,  269,  269,
  745.       269,  269,  269,  269,  269,  269,  269,  269,  269,  269,
  746.  
  747.       269,  269,  269,  269,  269,  269,  269,  269,  269,  269,
  748.       269,  269,  269,  269,  269,  269,  302,  457,  462,  466,
  749.       302,  457,  462,  466,  302,  302,  302,  302,  302,  302,
  750.       316,  316,  369,  316,  316,  316,  316,  316,  316,  366,
  751.       316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
  752.       467,  364,  363,  362,  467,  361,  360,  359,  358,  357,
  753.       355,  354,  352,  351,  349,  348,  342,  341,  339,  336,
  754.       316,  316,  316,  325,  325,  335,  325,  325,  325,  325,
  755.       325,  325,  333,  325,  325,  325,  325,  325,  325,  325,
  756.       325,  325,  325,  332,  329,  328,  327,  326,  322,  320,
  757.  
  758.       319,  317,  315,  314,  312,  311,  303,  299,  298,  296,
  759.       292,  289,  288,  325,  325,  325,  344,  286,  285,  283,
  760.       344,  282,  277,  276,  344,  344,  344,  344,  344,  344,
  761.       346,  274,  272,  271,  346,  267,  260,  257,  346,  346,
  762.       346,  346,  346,  346,  368,  251,  248,  246,  368,  245,
  763.       232,  229,  368,  368,  368,  368,  368,  368,  408,  408,
  764.       408,  408,  408,  408,  408,  408,  408,  408,  408,  408,
  765.       408,  408,  409,  409,  409,  409,  409,  409,  409,  409,
  766.       409,  409,  409,  409,  409,  409,  410,  410,  410,  410,
  767.       410,  410,  410,  410,  410,  410,  410,  410,  410,  410,
  768.  
  769.       411,  411,  411,  411,  411,  411,  411,  411,  411,  411,
  770.       411,  411,  411,  411,  412,  412,  412,  412,  412,  412,
  771.       412,  412,  412,  412,  412,  412,  412,  412,  413,  413,
  772.       413,  413,  413,  413,  413,  413,  413,  413,  413,  413,
  773.       413,  413,  414,  414,  414,  414,  414,  414,  414,  414,
  774.       414,  414,  414,  414,  414,  414,  415,  415,  415,  415,
  775.       415,  415,  415,  415,  415,  415,  415,  415,  415,  415,
  776.       416,  416,  416,  416,  416,  416,  416,  416,  416,  416,
  777.       416,  416,  416,  416,  417,  417,  417,  417,  417,  417,
  778.       417,  417,  417,  417,  417,  417,  417,  417,  418,  418,
  779.  
  780.       418,  418,  418,  418,  418,  418,  418,  418,  418,  418,
  781.       418,  418,  419,  419,  419,  419,  419,  419,  419,  419,
  782.       419,  419,  419,  419,  419,  419,  420,  420,  420,  420,
  783.       420,  420,  420,  420,  420,  420,  420,  420,  420,  420,
  784.       421,  421,  421,  421,  421,  421,  421,  421,  421,  421,
  785.       421,  421,  421,  421,  422,  422,  422,  422,  422,  422,
  786.       422,  422,  422,  422,  422,  422,  422,  422,  423,  423,
  787.       224,  221,  423,  423,  423,  424,  424,  424,  424,  424,
  788.       424,  424,  424,  424,  424,  424,  424,  425,  425,  220,
  789.       215,  425,  425,  425,  426,  426,  212,  426,  426,  426,
  790.  
  791.       426,  426,  426,  426,  426,  426,  426,  426,  427,  427,
  792.       204,  427,  427,  427,  427,  427,  427,  427,  427,  427,
  793.       427,  427,  428,  428,  203,  428,  428,  428,  428,  428,
  794.       428,  428,  428,  428,  428,  428,  429,  429,  197,  429,
  795.       429,  429,  429,  429,  429,  429,  429,  429,  429,  429,
  796.       430,  430,  194,  430,  430,  430,  430,  430,  430,  430,
  797.       430,  430,  430,  430,  431,  431,  431,  431,  431,  431,
  798.       431,  431,  431,  431,  431,  431,  431,  431,  432,  432,
  799.       193,  432,  432,  192,  432,  432,  432,  432,  191,  187,
  800.       186,  432,  433,  433,  185,  171,  433,  433,  433,  434,
  801.  
  802.       434,  170,  434,  434,  434,  434,  434,  434,  434,  434,
  803.       434,  434,  434,  435,  435,  166,  165,  435,  435,  435,
  804.       436,  436,  163,  436,  436,  436,  436,  436,  436,  436,
  805.       436,  436,  436,  436,  437,  437,  162,  437,  437,  437,
  806.       437,  437,  437,  437,  437,  437,  437,  437,  438,  438,
  807.       161,  438,  438,  438,  438,  438,  438,  160,  438,  438,
  808.       438,  438,  439,  439,  159,  158,  156,  439,  439,  439,
  809.       439,  439,  440,  440,  155,  440,  440,  440,  440,  440,
  810.       440,  440,  440,  440,  440,  440,  441,  441,  152,  151,
  811.       441,  441,  441,  442,  442,  442,  442,  442,  442,  442,
  812.  
  813.       442,  442,  442,  442,  442,  442,  442,  443,  443,  150,
  814.       443,  443,  145,  443,  443,  443,  443,  443,  443,  443,
  815.       443,  444,  444,  444,  444,  444,  144,  444,  444,  444,
  816.       444,  444,  444,  444,  444,  445,  445,  142,  140,  445,
  817.       445,  445,  445,  138,  445,  445,  445,  445,  445,  446,
  818.       446,  137,  446,  446,  446,  446,  446,  446,  446,  446,
  819.       446,  446,  446,  447,  447,  136,  447,  447,  133,  447,
  820.       447,  447,  447,  132,  130,  126,  447,  448,  448,  125,
  821.       123,  448,  448,  448,  449,  120,  119,  449,  449,  449,
  822.       449,  449,  449,  449,  449,  449,  449,  449,  450,  450,
  823.  
  824.       114,  450,  450,  450,  450,  450,  450,  450,  450,  450,
  825.       450,  450,  451,  451,  113,  451,  451,  451,  451,  451,
  826.       451,  451,  451,  451,  451,  451,  452,  452,  452,  453,
  827.       453,  453,  454,  454,  454,  454,  454,  454,  454,  454,
  828.       454,  454,  454,  454,  454,  454,  455,  455,  455,  455,
  829.       455,  455,  455,  455,  455,  455,  455,  455,  455,  455,
  830.       456,  456,  106,  456,  456,  456,  456,  456,  456,  105,
  831.       456,  456,  456,  456,  458,  458,  102,  458,  458,  458,
  832.       458,  458,  458,  458,  458,  458,  458,  459,  459,  100,
  833.       459,  459,  459,  459,  459,  459,  459,  459,  459,  459,
  834.  
  835.       459,  460,  460,   99,  460,  460,  460,  460,  460,  460,
  836.       460,  460,  460,  460,  460,  461,  461,   95,  461,  461,
  837.       461,  461,  461,  461,  461,  461,  461,  461,  461,  463,
  838.       463,  463,  463,  463,  463,  463,  463,  463,  463,  463,
  839.       463,  463,  463,  464,  464,   92,   91,  464,  464,  464,
  840.       465,  465,   90,   88,  465,  465,  465,  468,  468,  468,
  841.       468,  468,  468,  468,  468,  468,  468,  468,  468,  468,
  842.       468,  469,  469,  469,  469,  469,  469,  469,  469,  469,
  843.       469,  469,  469,  469,  469,   87,   86,   83,   82,   79,
  844.        77,   76,   74,   73,   70,   68,   67,   63,   62,   58,
  845.  
  846.        57,   53,   51,   50,   47,   46,   43,   42,   41,   16,
  847.        15,   10,    8,    7,  407,  407,  407,  407,  407,  407,
  848.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  849.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  850.       407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
  851.       407,  407,  407,  407,  407,  407,  407,  407
  852.     } ;
  853.  
  854. static yy_state_type yy_last_accepting_state;
  855. static char *yy_last_accepting_cpos;
  856.  
  857. /* The intent behind this definition is that it'll catch
  858.  * any uses of REJECT which flex missed.
  859.  */
  860. #define REJECT reject_used_but_not_detected
  861. #define yymore() yymore_used_but_not_detected
  862. #define YY_MORE_ADJ 0
  863. char *yytext;
  864. # line 1 "scan.l"
  865. /* scan.l - scanner for flex input */
  866. # line 4 "scan.l"
  867. /*-
  868.  * Copyright (c) 1990 The Regents of the University of California.
  869.  * All rights reserved.
  870.  *
  871.  * This code is derived from software contributed to Berkeley by
  872.  * Vern Paxson.
  873.  * 
  874.  * The United States Government has rights in this work pursuant
  875.  * to contract no. DE-AC03-76SF00098 between the United States
  876.  * Department of Energy and the University of California.
  877.  *
  878.  * Redistribution and use in source and binary forms are permitted provided
  879.  * that: (1) source distributions retain this entire copyright notice and
  880.  * comment, and (2) distributions including binaries display the following
  881.  * acknowledgement:  ``This product includes software developed by the
  882.  * University of California, Berkeley and its contributors'' in the
  883.  * documentation or other materials provided with the distribution and in
  884.  * all advertising materials mentioning features or use of this software.
  885.  * Neither the name of the University nor the names of its contributors may
  886.  * be used to endorse or promote products derived from this software without
  887.  * specific prior written permission.
  888.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
  889.  * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  890.  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  891.  */
  892.  
  893. /* $Header: scan.l,v 1.2 94/01/04 14:33:09 vern Exp $ */
  894.  
  895. #include "flexdef.h"
  896. #include "parse.h"
  897.  
  898. #define ACTION_ECHO add_action( yytext )
  899. #define MARK_END_OF_PROLOG mark_prolog();
  900.  
  901. #define YY_DECL \
  902.     int flexscan()
  903.  
  904. #define RETURNCHAR \
  905.     yylval = (unsigned char) yytext[0]; \
  906.     return CHAR;
  907.  
  908. #define RETURNNAME \
  909.     strcpy( nmstr, yytext ); \
  910.     return NAME;
  911.  
  912. #define PUT_BACK_STRING(str, start) \
  913.     for ( i = strlen( str ) - 1; i >= start; --i ) \
  914.         unput((str)[i])
  915.  
  916. #define CHECK_REJECT(str) \
  917.     if ( all_upper( str ) ) \
  918.         reject = true;
  919.  
  920. #define CHECK_YYMORE(str) \
  921.     if ( all_lower( str ) ) \
  922.         yymore_used = true;
  923.  
  924. /* Macros after this point can all be overridden by user definitions in
  925.  * section 1.
  926.  */
  927.  
  928. #ifdef YY_MALLOC_DECL
  929. YY_MALLOC_DECL
  930. #else
  931. #if __STDC__
  932. #ifndef __cplusplus
  933. #include <stdlib.h>
  934. #endif
  935. #else
  936. /* Just try to get by without declaring the routines.  This will fail
  937.  * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
  938.  * or sizeof(void*) != sizeof(int).
  939.  */
  940. #endif
  941. #endif
  942.  
  943. /* Amount of stuff to slurp up with each read. */
  944. #ifndef YY_READ_BUF_SIZE
  945. #define YY_READ_BUF_SIZE 8192
  946. #endif
  947.  
  948. /* Copy whatever the last rule matched to the standard output. */
  949.  
  950. #ifndef ECHO
  951. /* This used to be an fputs(), but since the string might contain NUL's,
  952.  * we now use fwrite().
  953.  */
  954. #define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
  955. #endif
  956.  
  957. /* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
  958.  * is returned in "result".
  959.  */
  960. #ifndef YY_INPUT
  961. #define YY_INPUT(buf,result,max_size) \
  962.     if ( yy_current_buffer->yy_is_interactive ) \
  963.         { \
  964.         int c = getc( yyin ); \
  965.         result = c == EOF ? 0 : 1; \
  966.         buf[0] = (char) c; \
  967.         } \
  968.     else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
  969.           && ferror( yyin ) ) \
  970.         YY_FATAL_ERROR( "input in flex scanner failed" );
  971. #endif
  972.  
  973. /* No semi-colon after return; correct usage is to write "yyterminate();" -
  974.  * we don't want an extra ';' after the "return" because that will cause
  975.  * some compilers to complain about unreachable statements.
  976.  */
  977. #ifndef yyterminate
  978. #define yyterminate() return YY_NULL
  979. #endif
  980.  
  981. /* Number of entries by which start-condition stack grows. */
  982. #ifndef YY_START_STACK_INCR
  983. #define YY_START_STACK_INCR 25
  984. #endif
  985.  
  986. /* Report a fatal error. */
  987. #ifndef YY_FATAL_ERROR
  988. #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
  989. #endif
  990.  
  991. /* Default declaration of generated scanner - a define so the user can
  992.  * easily add parameters.
  993.  */
  994. #ifndef YY_DECL
  995. #define YY_DECL int yylex YY_PROTO(( void ))
  996. #endif
  997.  
  998. /* Code executed at the beginning of each rule, after yytext and yyleng
  999.  * have been set up.
  1000.  */
  1001. #ifndef YY_USER_ACTION
  1002. #define YY_USER_ACTION
  1003. #endif
  1004.  
  1005. /* Code executed at the end of each rule. */
  1006. #ifndef YY_BREAK
  1007. #define YY_BREAK break;
  1008. #endif
  1009.  
  1010. YY_DECL
  1011.     {
  1012.     register yy_state_type yy_current_state;
  1013.     register char *yy_cp, *yy_bp;
  1014.     register int yy_act;
  1015.  
  1016. # line 82 "scan.l"
  1017.  
  1018.     static int bracelevel, didadef, indented_code, checking_used;
  1019.  
  1020.     int doing_codeblock = false;
  1021.     int i;
  1022.     Char nmdef[MAXLINE], myesc();
  1023.  
  1024.  
  1025.  
  1026.     if ( yy_init )
  1027.         {
  1028. #ifdef YY_USER_INIT
  1029.         YY_USER_INIT;
  1030. #endif
  1031.  
  1032.         if ( ! yy_start )
  1033.             yy_start = 1;    /* first start state */
  1034.  
  1035.         if ( ! yyin )
  1036.             yyin = stdin;
  1037.  
  1038.         if ( ! yyout )
  1039.             yyout = stdout;
  1040.  
  1041.         if ( yy_current_buffer )
  1042.             yy_init_buffer( yy_current_buffer, yyin );
  1043.         else
  1044.             yy_current_buffer =
  1045.                 yy_create_buffer( yyin, YY_BUF_SIZE );
  1046.  
  1047.         yy_load_buffer_state();
  1048.  
  1049.         yy_init = 0;
  1050.         }
  1051.  
  1052.     while ( 1 )        /* loops until end-of-file is reached */
  1053.         {
  1054.         yy_cp = yy_c_buf_p;
  1055.  
  1056.         /* Support of yytext. */
  1057.         *yy_cp = yy_hold_char;
  1058.  
  1059.         /* yy_bp points to the position in yy_ch_buf of the start of
  1060.          * the current run.
  1061.          */
  1062.         yy_bp = yy_cp;
  1063.  
  1064.         yy_current_state = yy_start;
  1065.         if ( yy_bp[-1] == '\n' )
  1066.             ++yy_current_state;
  1067. yy_match:
  1068.         do
  1069.             {
  1070.             register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
  1071.             if ( yy_accept[yy_current_state] )
  1072.                 {
  1073.                 yy_last_accepting_state = yy_current_state;
  1074.                 yy_last_accepting_cpos = yy_cp;
  1075.                 }
  1076.             while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  1077.                 {
  1078.                 yy_current_state = (int) yy_def[yy_current_state];
  1079.                 if ( yy_current_state >= 408 )
  1080.                     yy_c = yy_meta[(unsigned int) yy_c];
  1081.                 }
  1082.             yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
  1083.             ++yy_cp;
  1084.             }
  1085.         while ( yy_base[yy_current_state] != 1615 );
  1086.  
  1087. yy_find_action:
  1088.         yy_act = yy_accept[yy_current_state];
  1089.  
  1090.         YY_DO_BEFORE_ACTION;
  1091.  
  1092.  
  1093. do_action:    /* This label is used only to access EOF actions. */
  1094.  
  1095.  
  1096.         switch ( yy_act )
  1097.     { /* beginning of action switch */
  1098.             case 0: /* must back up */
  1099.             /* undo the effects of YY_DO_BEFORE_ACTION */
  1100.             *yy_cp = yy_hold_char;
  1101.             yy_cp = yy_last_accepting_cpos;
  1102.             yy_current_state = yy_last_accepting_state;
  1103.             goto yy_find_action;
  1104.  
  1105. case 1:
  1106. YY_USER_ACTION
  1107. # line 90 "scan.l"
  1108. indented_code = true; BEGIN(CODEBLOCK);
  1109.     YY_BREAK
  1110. case 2:
  1111. YY_USER_ACTION
  1112. # line 91 "scan.l"
  1113. ACTION_ECHO; BEGIN(C_COMMENT);
  1114.     YY_BREAK
  1115. case 3:
  1116. YY_USER_ACTION
  1117. # line 92 "scan.l"
  1118. return SCDECL;
  1119.     YY_BREAK
  1120. case 4:
  1121. YY_USER_ACTION
  1122. # line 93 "scan.l"
  1123. return XSCDECL;
  1124.     YY_BREAK
  1125. case 5:
  1126. YY_USER_ACTION
  1127. # line 94 "scan.l"
  1128. {
  1129.             ++linenum;
  1130.             line_directive_out( (FILE *) 0 );
  1131.             indented_code = false;
  1132.             BEGIN(CODEBLOCK);
  1133.             }
  1134.     YY_BREAK
  1135. case 6:
  1136. YY_USER_ACTION
  1137. # line 101 "scan.l"
  1138. return WHITESPACE;
  1139.     YY_BREAK
  1140. case 7:
  1141. YY_USER_ACTION
  1142. # line 103 "scan.l"
  1143. {
  1144.             sectnum = 2;
  1145.             bracelevel = 0;
  1146.             mark_defs1();
  1147.             line_directive_out( (FILE *) 0 );
  1148.             BEGIN(SECT2PROLOG);
  1149.             return SECTEND;
  1150.             }
  1151.     YY_BREAK
  1152. case 8:
  1153. YY_USER_ACTION
  1154. # line 112 "scan.l"
  1155. {
  1156.             if ( lex_compat )
  1157.                 warn( "%pointer incompatible with -l option" );
  1158.             else
  1159.                 yytext_is_array = false;
  1160.             ++linenum;
  1161.             }
  1162.     YY_BREAK
  1163. case 9:
  1164. YY_USER_ACTION
  1165. # line 119 "scan.l"
  1166. {
  1167.             if ( C_plus_plus )
  1168.                 warn( "%array incompatible with -+ option" );
  1169.             else
  1170.                 yytext_is_array = true;
  1171.             ++linenum;
  1172.             }
  1173.     YY_BREAK
  1174. case 10:
  1175. YY_USER_ACTION
  1176. # line 127 "scan.l"
  1177. {
  1178.             warn( "%used/%unused have been deprecated" );
  1179.             checking_used = REALLY_USED; BEGIN(USED_LIST);
  1180.             }
  1181.     YY_BREAK
  1182. case 11:
  1183. YY_USER_ACTION
  1184. # line 131 "scan.l"
  1185. {
  1186.             warn( "%used/%unused have been deprecated" );
  1187.             checking_used = REALLY_NOT_USED; BEGIN(USED_LIST);
  1188.             }
  1189.     YY_BREAK
  1190. case 12:
  1191. YY_USER_ACTION
  1192. # line 137 "scan.l"
  1193. ++linenum;    /* ignore */
  1194.     YY_BREAK
  1195. case 13:
  1196. YY_USER_ACTION
  1197. # line 139 "scan.l"
  1198. synerr( "unrecognized '%' directive" );
  1199.     YY_BREAK
  1200. case 14:
  1201. YY_USER_ACTION
  1202. # line 141 "scan.l"
  1203. {
  1204.             strcpy( nmstr, yytext );
  1205.             didadef = false;
  1206.             BEGIN(PICKUPDEF);
  1207.             }
  1208.     YY_BREAK
  1209. case 15:
  1210. YY_USER_ACTION
  1211. # line 147 "scan.l"
  1212. RETURNNAME;
  1213.     YY_BREAK
  1214. case 16:
  1215. YY_USER_ACTION
  1216. # line 148 "scan.l"
  1217. ++linenum; /* allows blank lines in section 1 */
  1218.     YY_BREAK
  1219. case 17:
  1220. YY_USER_ACTION
  1221. # line 149 "scan.l"
  1222. ++linenum; return '\n';
  1223.     YY_BREAK
  1224. case 18:
  1225. YY_USER_ACTION
  1226. # line 152 "scan.l"
  1227. ACTION_ECHO; BEGIN(INITIAL);
  1228.     YY_BREAK
  1229. case 19:
  1230. YY_USER_ACTION
  1231. # line 153 "scan.l"
  1232. ++linenum; ACTION_ECHO; BEGIN(INITIAL);
  1233.     YY_BREAK
  1234. case 20:
  1235. YY_USER_ACTION
  1236. # line 154 "scan.l"
  1237. ACTION_ECHO;
  1238.     YY_BREAK
  1239. case 21:
  1240. YY_USER_ACTION
  1241. # line 155 "scan.l"
  1242. ACTION_ECHO;
  1243.     YY_BREAK
  1244. case 22:
  1245. YY_USER_ACTION
  1246. # line 156 "scan.l"
  1247. ++linenum; ACTION_ECHO;
  1248.     YY_BREAK
  1249. case 23:
  1250. YY_USER_ACTION
  1251. # line 159 "scan.l"
  1252. ++linenum; BEGIN(INITIAL);
  1253.     YY_BREAK
  1254. case 24:
  1255. YY_USER_ACTION
  1256. # line 160 "scan.l"
  1257. ACTION_ECHO; CHECK_REJECT(yytext);
  1258.     YY_BREAK
  1259. case 25:
  1260. YY_USER_ACTION
  1261. # line 161 "scan.l"
  1262. ACTION_ECHO; CHECK_YYMORE(yytext);
  1263.     YY_BREAK
  1264. case 26:
  1265. YY_USER_ACTION
  1266. # line 162 "scan.l"
  1267. ACTION_ECHO;
  1268.     YY_BREAK
  1269. case 27:
  1270. YY_USER_ACTION
  1271. # line 163 "scan.l"
  1272. {
  1273.             ++linenum;
  1274.             ACTION_ECHO;
  1275.             if ( indented_code )
  1276.                 BEGIN(INITIAL);
  1277.             }
  1278.     YY_BREAK
  1279. case 28:
  1280. YY_USER_ACTION
  1281. # line 171 "scan.l"
  1282. /* separates name and definition */
  1283.     YY_BREAK
  1284. case 29:
  1285. YY_USER_ACTION
  1286. # line 173 "scan.l"
  1287. {
  1288.             strcpy( (char *) nmdef, yytext );
  1289.  
  1290.             /* Skip trailing whitespace. */
  1291.             for ( i = strlen( (char *) nmdef ) - 1;
  1292.                   i >= 0 && (nmdef[i] == ' ' || nmdef[i] == '\t');
  1293.                   --i )
  1294.                 ;
  1295.  
  1296.             nmdef[i + 1] = '\0';
  1297.  
  1298.             ndinstal( nmstr, nmdef );
  1299.             didadef = true;
  1300.             }
  1301.     YY_BREAK
  1302. case 30:
  1303. YY_USER_ACTION
  1304. # line 188 "scan.l"
  1305. {
  1306.             if ( ! didadef )
  1307.                 synerr( "incomplete name definition" );
  1308.             BEGIN(INITIAL);
  1309.             ++linenum;
  1310.             }
  1311.     YY_BREAK
  1312. case 31:
  1313. YY_USER_ACTION
  1314. # line 195 "scan.l"
  1315. ++linenum; BEGIN(INITIAL); RETURNNAME;
  1316.     YY_BREAK
  1317. case 32:
  1318. YY_USER_ACTION
  1319. # line 198 "scan.l"
  1320. ++linenum; BEGIN(INITIAL);
  1321.     YY_BREAK
  1322. case 33:
  1323. YY_USER_ACTION
  1324. # line 199 "scan.l"
  1325.  
  1326.     YY_BREAK
  1327. case 34:
  1328. YY_USER_ACTION
  1329. # line 200 "scan.l"
  1330. {
  1331.             if ( all_upper( yytext ) )
  1332.                 reject_really_used = checking_used;
  1333.             else
  1334.                 synerr(
  1335.                 "unrecognized %used/%unused construct" );
  1336.             }
  1337.     YY_BREAK
  1338. case 35:
  1339. YY_USER_ACTION
  1340. # line 207 "scan.l"
  1341. {
  1342.             if ( all_lower( yytext ) )
  1343.                 yymore_really_used = checking_used;
  1344.             else
  1345.                 synerr(
  1346.                 "unrecognized %used/%unused construct" );
  1347.             }
  1348.     YY_BREAK
  1349. case 36:
  1350. YY_USER_ACTION
  1351. # line 214 "scan.l"
  1352. synerr( "unrecognized %used/%unused construct" );
  1353.     YY_BREAK
  1354. case 37:
  1355. YY_USER_ACTION
  1356. # line 217 "scan.l"
  1357. ++bracelevel; yyless( 2 );    /* eat only %{ */
  1358.     YY_BREAK
  1359. case 38:
  1360. YY_USER_ACTION
  1361. # line 218 "scan.l"
  1362. --bracelevel; yyless( 2 );    /* eat only %} */
  1363.     YY_BREAK
  1364. case 39:
  1365. YY_USER_ACTION
  1366. # line 220 "scan.l"
  1367. ACTION_ECHO;    /* indented code in prolog */
  1368.     YY_BREAK
  1369. case 40:
  1370. YY_USER_ACTION
  1371. # line 222 "scan.l"
  1372. {    /* non-indented code */
  1373.             if ( bracelevel <= 0 )
  1374.                 { /* not in %{ ... %} */
  1375.                 yyless( 0 );    /* put it all back */
  1376.                 mark_prolog();
  1377.                 BEGIN(SECT2);
  1378.                 }
  1379.             else
  1380.                 ACTION_ECHO;
  1381.             }
  1382.     YY_BREAK
  1383. case 41:
  1384. YY_USER_ACTION
  1385. # line 233 "scan.l"
  1386. ACTION_ECHO;
  1387.     YY_BREAK
  1388. case 42:
  1389. YY_USER_ACTION
  1390. # line 234 "scan.l"
  1391. ++linenum; ACTION_ECHO;
  1392.     YY_BREAK
  1393. case YY_STATE_EOF(SECT2PROLOG):
  1394. # line 236 "scan.l"
  1395. {
  1396.             mark_prolog();
  1397.             sectnum = 0;
  1398.             yyterminate(); /* to stop the parser */
  1399.             }
  1400.     YY_BREAK
  1401. case 43:
  1402. YY_USER_ACTION
  1403. # line 242 "scan.l"
  1404. ++linenum; /* allow blank lines in section 2 */
  1405.     YY_BREAK
  1406. case 44:
  1407. YY_USER_ACTION
  1408. # line 244 "scan.l"
  1409. {
  1410.             indented_code = (yytext[0] != '%');
  1411.             doing_codeblock = true;
  1412.             bracelevel = 1;
  1413.  
  1414.             if ( indented_code )
  1415.                 ACTION_ECHO;
  1416.  
  1417.             BEGIN(CODEBLOCK_2);
  1418.             }
  1419.     YY_BREAK
  1420. case 45:
  1421. YY_USER_ACTION
  1422. # line 255 "scan.l"
  1423. BEGIN(SC); return '<';
  1424.     YY_BREAK
  1425. case 46:
  1426. YY_USER_ACTION
  1427. # line 256 "scan.l"
  1428. return '^';
  1429.     YY_BREAK
  1430. case 47:
  1431. YY_USER_ACTION
  1432. # line 257 "scan.l"
  1433. BEGIN(QUOTE); return '"';
  1434.     YY_BREAK
  1435. case 48:
  1436. *yy_cp = yy_hold_char; /* undo effects of setting up yytext */
  1437. yy_c_buf_p = yy_cp = yy_bp + 1;
  1438. YY_DO_BEFORE_ACTION; /* set up yytext again */
  1439. YY_USER_ACTION
  1440. # line 258 "scan.l"
  1441. BEGIN(NUM); return '{';
  1442.     YY_BREAK
  1443. case 49:
  1444. YY_USER_ACTION
  1445. # line 259 "scan.l"
  1446. BEGIN(BRACEERROR);
  1447.     YY_BREAK
  1448. case 50:
  1449. *yy_cp = yy_hold_char; /* undo effects of setting up yytext */
  1450. yy_c_buf_p = yy_cp = yy_bp + 1;
  1451. YY_DO_BEFORE_ACTION; /* set up yytext again */
  1452. YY_USER_ACTION
  1453. # line 260 "scan.l"
  1454. return '$';
  1455.     YY_BREAK
  1456. case 51:
  1457. YY_USER_ACTION
  1458. # line 262 "scan.l"
  1459. {
  1460.             bracelevel = 1;
  1461.             BEGIN(PERCENT_BRACE_ACTION);
  1462.             return '\n';
  1463.             }
  1464.     YY_BREAK
  1465. case 52:
  1466. YY_USER_ACTION
  1467. # line 267 "scan.l"
  1468. continued_action = true; ++linenum; return '\n';
  1469.     YY_BREAK
  1470. case 53:
  1471. YY_USER_ACTION
  1472. # line 269 "scan.l"
  1473. {
  1474.             /* This rule is separate from the one below because
  1475.              * otherwise we get variable trailing context, so
  1476.              * we can't build the scanner using -{f,F}.
  1477.              */
  1478.             bracelevel = 0;
  1479.             continued_action = false;
  1480.             BEGIN(ACTION);
  1481.             return '\n';
  1482.             }
  1483.     YY_BREAK
  1484. case 54:
  1485. YY_USER_ACTION
  1486. # line 280 "scan.l"
  1487. {
  1488.             bracelevel = 0;
  1489.             continued_action = false;
  1490.             BEGIN(ACTION);
  1491.             unput( '\n' );    /* so <ACTION> sees it */
  1492.             return '\n';
  1493.             }
  1494.     YY_BREAK
  1495. case 55:
  1496. YY_USER_ACTION
  1497. # line 288 "scan.l"
  1498. return EOF_OP;
  1499.     YY_BREAK
  1500. case 56:
  1501. YY_USER_ACTION
  1502. # line 290 "scan.l"
  1503. {
  1504.             sectnum = 3;
  1505.             BEGIN(SECT3);
  1506.             yyterminate(); /* to stop the parser */
  1507.             }
  1508.     YY_BREAK
  1509. case 57:
  1510. YY_USER_ACTION
  1511. # line 296 "scan.l"
  1512. {
  1513.             int cclval;
  1514.  
  1515.             strcpy( nmstr, yytext );
  1516.  
  1517.             /* Check to see if we've already encountered this
  1518.              * ccl.
  1519.              */
  1520.             if ( (cclval = ccllookup( (Char *) nmstr )) )
  1521.                 {
  1522.                 if ( input() != ']' )
  1523.                     synerr( "bad character class" );
  1524.  
  1525.                 yylval = cclval;
  1526.                 ++cclreuse;
  1527.                 return PREVCCL;
  1528.                 }
  1529.             else
  1530.                 {
  1531.                 /* We fudge a bit.  We know that this ccl will
  1532.                  * soon be numbered as lastccl + 1 by cclinit.
  1533.                  */
  1534.                 cclinstal( (Char *) nmstr, lastccl + 1 );
  1535.  
  1536.                 /* Push back everything but the leading bracket
  1537.                  * so the ccl can be rescanned.
  1538.                  */
  1539.                 yyless( 1 );
  1540.  
  1541.                 BEGIN(FIRSTCCL);
  1542.                 return '[';
  1543.                 }
  1544.             }
  1545.     YY_BREAK
  1546. case 58:
  1547. YY_USER_ACTION
  1548. # line 330 "scan.l"
  1549. {
  1550.             register Char *nmdefptr;
  1551.             Char *ndlookup();
  1552.  
  1553.             strcpy( nmstr, yytext + 1 );
  1554.             nmstr[yyleng - 2] = '\0';  /* chop trailing brace */
  1555.  
  1556.             if ( ! (nmdefptr = ndlookup( nmstr )) )
  1557.                 format_synerr( "undefined definition {%s}",
  1558.                         nmstr );
  1559.  
  1560.             else
  1561.                 { /* push back name surrounded by ()'s */
  1562.                 int len = strlen( (char *) nmdefptr );
  1563.  
  1564.                 if ( lex_compat || nmdefptr[0] == '^' ||
  1565.                      (len > 0 && nmdefptr[len - 1] == '$') )
  1566.                     { /* don't use ()'s after all */
  1567.                     PUT_BACK_STRING((char *) nmdefptr, 0);
  1568.  
  1569.                     if ( nmdefptr[0] == '^' )
  1570.                         BEGIN(CARETISBOL);
  1571.                     }
  1572.  
  1573.                 else
  1574.                     {
  1575.                     unput(')');
  1576.                     PUT_BACK_STRING((char *) nmdefptr, 0);
  1577.                     unput('(');
  1578.                     }
  1579.                 }
  1580.             }
  1581.     YY_BREAK
  1582. case 59:
  1583. YY_USER_ACTION
  1584. # line 363 "scan.l"
  1585. return (unsigned char) yytext[0];
  1586.     YY_BREAK
  1587. case 60:
  1588. YY_USER_ACTION
  1589. # line 364 "scan.l"
  1590. RETURNCHAR;
  1591.     YY_BREAK
  1592. case 61:
  1593. YY_USER_ACTION
  1594. # line 367 "scan.l"
  1595. return (unsigned char) yytext[0];
  1596.     YY_BREAK
  1597. case 62:
  1598. YY_USER_ACTION
  1599. # line 368 "scan.l"
  1600. BEGIN(SECT2); return '>';
  1601.     YY_BREAK
  1602. case 63:
  1603. *yy_cp = yy_hold_char; /* undo effects of setting up yytext */
  1604. yy_c_buf_p = yy_cp = yy_bp + 1;
  1605. YY_DO_BEFORE_ACTION; /* set up yytext again */
  1606. YY_USER_ACTION
  1607. # line 369 "scan.l"
  1608. BEGIN(CARETISBOL); return '>';
  1609.     YY_BREAK
  1610. case 64:
  1611. YY_USER_ACTION
  1612. # line 370 "scan.l"
  1613. RETURNNAME;
  1614.     YY_BREAK
  1615. case 65:
  1616. YY_USER_ACTION
  1617. # line 371 "scan.l"
  1618. {
  1619.             format_synerr( "bad <start condition>: %s", yytext );
  1620.             }
  1621.     YY_BREAK
  1622. case 66:
  1623. YY_USER_ACTION
  1624. # line 375 "scan.l"
  1625. BEGIN(SECT2); return '^';
  1626.     YY_BREAK
  1627. case 67:
  1628. YY_USER_ACTION
  1629. # line 378 "scan.l"
  1630. RETURNCHAR;
  1631.     YY_BREAK
  1632. case 68:
  1633. YY_USER_ACTION
  1634. # line 379 "scan.l"
  1635. BEGIN(SECT2); return '"';
  1636.     YY_BREAK
  1637. case 69:
  1638. YY_USER_ACTION
  1639. # line 381 "scan.l"
  1640. {
  1641.             synerr( "missing quote" );
  1642.             BEGIN(SECT2);
  1643.             ++linenum;
  1644.             return '"';
  1645.             }
  1646.     YY_BREAK
  1647. case 70:
  1648. *yy_cp = yy_hold_char; /* undo effects of setting up yytext */
  1649. yy_c_buf_p = yy_cp = yy_bp + 1;
  1650. YY_DO_BEFORE_ACTION; /* set up yytext again */
  1651. YY_USER_ACTION
  1652. # line 389 "scan.l"
  1653. BEGIN(CCL); return '^';
  1654.     YY_BREAK
  1655. case 71:
  1656. *yy_cp = yy_hold_char; /* undo effects of setting up yytext */
  1657. yy_c_buf_p = yy_cp = yy_bp + 1;
  1658. YY_DO_BEFORE_ACTION; /* set up yytext again */
  1659. YY_USER_ACTION
  1660. # line 390 "scan.l"
  1661. return '^';
  1662.     YY_BREAK
  1663. case 72:
  1664. YY_USER_ACTION
  1665. # line 391 "scan.l"
  1666. BEGIN(CCL); RETURNCHAR;
  1667.     YY_BREAK
  1668. case 73:
  1669. *yy_cp = yy_hold_char; /* undo effects of setting up yytext */
  1670. yy_c_buf_p = yy_cp = yy_bp + 1;
  1671. YY_DO_BEFORE_ACTION; /* set up yytext again */
  1672. YY_USER_ACTION
  1673. # line 393 "scan.l"
  1674. return '-';
  1675.     YY_BREAK
  1676. case 74:
  1677. YY_USER_ACTION
  1678. # line 394 "scan.l"
  1679. RETURNCHAR;
  1680.     YY_BREAK
  1681. case 75:
  1682. YY_USER_ACTION
  1683. # line 395 "scan.l"
  1684. BEGIN(SECT2); return ']';
  1685.     YY_BREAK
  1686. case 76:
  1687. YY_USER_ACTION
  1688. # line 396 "scan.l"
  1689. {
  1690.             synerr( "bad character class" );
  1691.             BEGIN(SECT2);
  1692.             return ']';
  1693.             }
  1694.     YY_BREAK
  1695. case 77:
  1696. YY_USER_ACTION
  1697. # line 403 "scan.l"
  1698. {
  1699.             yylval = myctoi( yytext );
  1700.             return NUMBER;
  1701.             }
  1702.     YY_BREAK
  1703. case 78:
  1704. YY_USER_ACTION
  1705. # line 408 "scan.l"
  1706. return ',';
  1707.     YY_BREAK
  1708. case 79:
  1709. YY_USER_ACTION
  1710. # line 409 "scan.l"
  1711. BEGIN(SECT2); return '}';
  1712.     YY_BREAK
  1713. case 80:
  1714. YY_USER_ACTION
  1715. # line 411 "scan.l"
  1716. {
  1717.             synerr( "bad character inside {}'s" );
  1718.             BEGIN(SECT2);
  1719.             return '}';
  1720.             }
  1721.     YY_BREAK
  1722. case 81:
  1723. YY_USER_ACTION
  1724. # line 417 "scan.l"
  1725. {
  1726.             synerr( "missing }" );
  1727.             BEGIN(SECT2);
  1728.             ++linenum;
  1729.             return '}';
  1730.             }
  1731.     YY_BREAK
  1732. case 82:
  1733. YY_USER_ACTION
  1734. # line 425 "scan.l"
  1735. synerr( "bad name in {}'s" ); BEGIN(SECT2);
  1736.     YY_BREAK
  1737. case 83:
  1738. YY_USER_ACTION
  1739. # line 426 "scan.l"
  1740. synerr( "missing }" ); ++linenum; BEGIN(SECT2);
  1741.     YY_BREAK
  1742. case 84:
  1743. YY_USER_ACTION
  1744. # line 429 "scan.l"
  1745. ACTION_ECHO; BEGIN(ACTION_COMMENT);
  1746.     YY_BREAK
  1747. case 85:
  1748. YY_USER_ACTION
  1749. # line 430 "scan.l"
  1750. bracelevel = 0;
  1751.     YY_BREAK
  1752. case 86:
  1753. YY_USER_ACTION
  1754. # line 431 "scan.l"
  1755. {
  1756.             ACTION_ECHO;
  1757.             CHECK_REJECT(yytext);
  1758.             }
  1759.     YY_BREAK
  1760. case 87:
  1761. YY_USER_ACTION
  1762. # line 435 "scan.l"
  1763. {
  1764.             ACTION_ECHO;
  1765.             CHECK_YYMORE(yytext);
  1766.             }
  1767.     YY_BREAK
  1768. case 88:
  1769. YY_USER_ACTION
  1770. # line 439 "scan.l"
  1771. ACTION_ECHO;
  1772.     YY_BREAK
  1773. case 89:
  1774. YY_USER_ACTION
  1775. # line 440 "scan.l"
  1776. {
  1777.             ++linenum;
  1778.             ACTION_ECHO;
  1779.             if ( bracelevel == 0 ||
  1780.                  (doing_codeblock && indented_code) )
  1781.                 {
  1782.                 if ( ! doing_codeblock )
  1783.                     add_action( "\tYY_BREAK\n" );
  1784.                 
  1785.                 doing_codeblock = false;
  1786.                 BEGIN(SECT2);
  1787.                 }
  1788.             }
  1789.     YY_BREAK
  1790.     /* Reject and YYmore() are checked for above, in PERCENT_BRACE_ACTION */
  1791. case 90:
  1792. YY_USER_ACTION
  1793. # line 456 "scan.l"
  1794. ACTION_ECHO; ++bracelevel;
  1795.     YY_BREAK
  1796. case 91:
  1797. YY_USER_ACTION
  1798. # line 457 "scan.l"
  1799. ACTION_ECHO; --bracelevel;
  1800.     YY_BREAK
  1801. case 92:
  1802. YY_USER_ACTION
  1803. # line 458 "scan.l"
  1804. ACTION_ECHO;
  1805.     YY_BREAK
  1806. case 93:
  1807. YY_USER_ACTION
  1808. # line 459 "scan.l"
  1809. ACTION_ECHO;
  1810.     YY_BREAK
  1811. case 94:
  1812. YY_USER_ACTION
  1813. # line 460 "scan.l"
  1814. ACTION_ECHO; BEGIN(ACTION_COMMENT);
  1815.     YY_BREAK
  1816. case 95:
  1817. YY_USER_ACTION
  1818. # line 461 "scan.l"
  1819. ACTION_ECHO; /* character constant */
  1820.     YY_BREAK
  1821. case 96:
  1822. YY_USER_ACTION
  1823. # line 462 "scan.l"
  1824. ACTION_ECHO; BEGIN(ACTION_STRING);
  1825.     YY_BREAK
  1826. case 97:
  1827. YY_USER_ACTION
  1828. # line 463 "scan.l"
  1829. {
  1830.             ++linenum;
  1831.             ACTION_ECHO;
  1832.             if ( bracelevel == 0 )
  1833.                 {
  1834.                 add_action( "\tYY_BREAK\n" );
  1835.                 BEGIN(SECT2);
  1836.                 }
  1837.             }
  1838.     YY_BREAK
  1839. case 98:
  1840. YY_USER_ACTION
  1841. # line 472 "scan.l"
  1842. ACTION_ECHO;
  1843.     YY_BREAK
  1844. case 99:
  1845. YY_USER_ACTION
  1846. # line 474 "scan.l"
  1847. {
  1848.             ACTION_ECHO;
  1849.             if ( doing_codeblock )
  1850.                 BEGIN(CODEBLOCK_2);
  1851.             else
  1852.                 BEGIN(ACTION);
  1853.             }
  1854.     YY_BREAK
  1855. case 100:
  1856. YY_USER_ACTION
  1857. # line 482 "scan.l"
  1858. ACTION_ECHO;
  1859.     YY_BREAK
  1860. case 101:
  1861. YY_USER_ACTION
  1862. # line 483 "scan.l"
  1863. ACTION_ECHO;
  1864.     YY_BREAK
  1865. case 102:
  1866. YY_USER_ACTION
  1867. # line 484 "scan.l"
  1868. ++linenum; ACTION_ECHO;
  1869.     YY_BREAK
  1870. case 103:
  1871. YY_USER_ACTION
  1872. # line 486 "scan.l"
  1873. ACTION_ECHO;
  1874.     YY_BREAK
  1875. case 104:
  1876. YY_USER_ACTION
  1877. # line 487 "scan.l"
  1878. ACTION_ECHO;
  1879.     YY_BREAK
  1880. case 105:
  1881. YY_USER_ACTION
  1882. # line 488 "scan.l"
  1883. ++linenum; ACTION_ECHO;
  1884.     YY_BREAK
  1885. case 106:
  1886. YY_USER_ACTION
  1887. # line 489 "scan.l"
  1888. ACTION_ECHO; BEGIN(ACTION);
  1889.     YY_BREAK
  1890. case 107:
  1891. YY_USER_ACTION
  1892. # line 490 "scan.l"
  1893. ACTION_ECHO;
  1894.     YY_BREAK
  1895. case YY_STATE_EOF(ACTION):
  1896. case YY_STATE_EOF(ACTION_COMMENT):
  1897. case YY_STATE_EOF(ACTION_STRING):
  1898. # line 492 "scan.l"
  1899. {
  1900.             synerr( "EOF encountered inside an action" );
  1901.             yyterminate();
  1902.             }
  1903.     YY_BREAK
  1904. case 108:
  1905. YY_USER_ACTION
  1906. # line 498 "scan.l"
  1907. {
  1908.             yylval = myesc( (Char *) yytext );
  1909.             return CHAR;
  1910.             }
  1911.     YY_BREAK
  1912. case 109:
  1913. YY_USER_ACTION
  1914. # line 503 "scan.l"
  1915. {
  1916.             yylval = myesc( (Char *) yytext );
  1917.             BEGIN(CCL);
  1918.             return CHAR;
  1919.             }
  1920.     YY_BREAK
  1921. case 110:
  1922. YY_USER_ACTION
  1923. # line 510 "scan.l"
  1924. ECHO;
  1925.     YY_BREAK
  1926. case YY_STATE_EOF(SECT3):
  1927. # line 511 "scan.l"
  1928. sectnum = 0; yyterminate();
  1929.     YY_BREAK
  1930. case 111:
  1931. YY_USER_ACTION
  1932. # line 513 "scan.l"
  1933. format_synerr( "bad character: %s", yytext );
  1934.     YY_BREAK
  1935. case 112:
  1936. YY_USER_ACTION
  1937. # line 515 "scan.l"
  1938. YY_FATAL_ERROR( "flex scanner jammed" );
  1939.     YY_BREAK
  1940. case YY_STATE_EOF(INITIAL):
  1941. case YY_STATE_EOF(SECT2):
  1942. case YY_STATE_EOF(CODEBLOCK):
  1943. case YY_STATE_EOF(PICKUPDEF):
  1944. case YY_STATE_EOF(SC):
  1945. case YY_STATE_EOF(CARETISBOL):
  1946. case YY_STATE_EOF(NUM):
  1947. case YY_STATE_EOF(QUOTE):
  1948. case YY_STATE_EOF(FIRSTCCL):
  1949. case YY_STATE_EOF(CCL):
  1950. case YY_STATE_EOF(RECOVER):
  1951. case YY_STATE_EOF(BRACEERROR):
  1952. case YY_STATE_EOF(C_COMMENT):
  1953. case YY_STATE_EOF(PERCENT_BRACE_ACTION):
  1954. case YY_STATE_EOF(USED_LIST):
  1955. case YY_STATE_EOF(CODEBLOCK_2):
  1956.     yyterminate();
  1957.  
  1958.     case YY_END_OF_BUFFER:
  1959.         {
  1960.         /* Amount of text matched not including the EOB char. */
  1961.         int yy_amount_of_matched_text = yy_cp - yytext_ptr - 1;
  1962.  
  1963.         /* Undo the effects of YY_DO_BEFORE_ACTION. */
  1964.         *yy_cp = yy_hold_char;
  1965.  
  1966.         if ( yy_current_buffer->yy_input_file != yyin )
  1967.             {
  1968.             /* This can happen if we scan a file, yywrap() returns
  1969.              * 1, and then later the user points yyin at a new
  1970.              * file to resume scanning.  We have to assure
  1971.              * consistency between yy_current_buffer and our
  1972.              * globals.  Here is the right place to do so, because
  1973.              * this is the first action (other than possibly a
  1974.              * back-up) that will match for the new input file.
  1975.              */
  1976.             yy_current_buffer->yy_input_file = yyin;
  1977.             yy_n_chars = yy_current_buffer->yy_n_chars;
  1978.             }
  1979.  
  1980.         /* Note that here we test for yy_c_buf_p "<=" to the position
  1981.          * of the first EOB in the buffer, since yy_c_buf_p will
  1982.          * already have been incremented past the NUL character
  1983.          * (since all states make transitions on EOB to the
  1984.          * end-of-buffer state).  Contrast this with the test
  1985.          * in input().
  1986.          */
  1987.         if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
  1988.             { /* This was really a NUL. */
  1989.             yy_state_type yy_next_state;
  1990.  
  1991.             yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
  1992.  
  1993.             yy_current_state = yy_get_previous_state();
  1994.  
  1995.             /* Okay, we're now positioned to make the NUL
  1996.              * transition.  We couldn't have
  1997.              * yy_get_previous_state() go ahead and do it
  1998.              * for us because it doesn't know how to deal
  1999.              * with the possibility of jamming (and we don't
  2000.              * want to build jamming into it because then it
  2001.              * will run more slowly).
  2002.              */
  2003.  
  2004.             yy_next_state = yy_try_NUL_trans( yy_current_state );
  2005.  
  2006.             yy_bp = yytext_ptr + YY_MORE_ADJ;
  2007.  
  2008.             if ( yy_next_state )
  2009.                 {
  2010.                 /* Consume the NUL. */
  2011.                 yy_cp = ++yy_c_buf_p;
  2012.                 yy_current_state = yy_next_state;
  2013.                 goto yy_match;
  2014.                 }
  2015.  
  2016.             else
  2017.                 {
  2018.                 goto yy_find_action;
  2019.                 }
  2020.             }
  2021.  
  2022.         else switch ( yy_get_next_buffer() )
  2023.             {
  2024.             case EOB_ACT_END_OF_FILE:
  2025.                 {
  2026.                 yy_did_buffer_switch_on_eof = 0;
  2027.  
  2028.                 if ( yywrap() )
  2029.                     {
  2030.                     /* Note: because we've taken care in
  2031.                      * yy_get_next_buffer() to have set up
  2032.                      * yytext, we can now set up
  2033.                      * yy_c_buf_p so that if some total
  2034.                      * hoser (like flex itself) wants to
  2035.                      * call the scanner after we return the
  2036.                      * YY_NULL, it'll still work - another
  2037.                      * YY_NULL will get returned.
  2038.                      */
  2039.                     yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
  2040.  
  2041.                     yy_act = YY_STATE_EOF(YY_START);
  2042.                     goto do_action;
  2043.                     }
  2044.  
  2045.                 else
  2046.                     {
  2047.                     if ( ! yy_did_buffer_switch_on_eof )
  2048.                         YY_NEW_FILE;
  2049.                     }
  2050.                 break;
  2051.                 }
  2052.  
  2053.             case EOB_ACT_CONTINUE_SCAN:
  2054.                 yy_c_buf_p =
  2055.                     yytext_ptr + yy_amount_of_matched_text;
  2056.  
  2057.                 yy_current_state = yy_get_previous_state();
  2058.  
  2059.                 yy_cp = yy_c_buf_p;
  2060.                 yy_bp = yytext_ptr + YY_MORE_ADJ;
  2061.                 goto yy_match;
  2062.  
  2063.             case EOB_ACT_LAST_MATCH:
  2064.                 yy_c_buf_p =
  2065.                 &yy_current_buffer->yy_ch_buf[yy_n_chars];
  2066.  
  2067.                 yy_current_state = yy_get_previous_state();
  2068.  
  2069.                 yy_cp = yy_c_buf_p;
  2070.                 yy_bp = yytext_ptr + YY_MORE_ADJ;
  2071.                 goto yy_find_action;
  2072.             }
  2073.         break;
  2074.         }
  2075.  
  2076.     default:
  2077.         YY_FATAL_ERROR(
  2078.             "fatal flex scanner internal error--no action found" );
  2079.     } /* end of action switch */
  2080.         } /* end of scanning one token */
  2081.     } /* end of yylex */
  2082.  
  2083.  
  2084. /* yy_get_next_buffer - try to read in a new buffer
  2085.  *
  2086.  * Returns a code representing an action:
  2087.  *    EOB_ACT_LAST_MATCH -
  2088.  *    EOB_ACT_CONTINUE_SCAN - continue scanning from current position
  2089.  *    EOB_ACT_END_OF_FILE - end of file
  2090.  */
  2091.  
  2092. static int yy_get_next_buffer()
  2093.     {
  2094.     register char *dest = yy_current_buffer->yy_ch_buf;
  2095.     register char *source = yytext_ptr - 1; /* copy prev. char, too */
  2096.     register int number_to_move, i;
  2097.     int ret_val;
  2098.  
  2099.     if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
  2100.         YY_FATAL_ERROR(
  2101.         "fatal flex scanner internal error--end of buffer missed" );
  2102.  
  2103.     if ( yy_current_buffer->yy_fill_buffer == 0 )
  2104.         { /* Don't try to fill the buffer, so this is an EOF. */
  2105.         if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
  2106.             {
  2107.             /* We matched a singled characater, the EOB, so
  2108.              * treat this as a final EOF.
  2109.              */
  2110.             return EOB_ACT_END_OF_FILE;
  2111.             }
  2112.  
  2113.         else
  2114.             {
  2115.             /* We matched some text prior to the EOB, first
  2116.              * process it.
  2117.              */
  2118.             return EOB_ACT_LAST_MATCH;
  2119.             }
  2120.         }
  2121.  
  2122.     /* Try to read more data. */
  2123.  
  2124.     /* First move last chars to start of buffer. */
  2125.     number_to_move = yy_c_buf_p - yytext_ptr;
  2126.  
  2127.     for ( i = 0; i < number_to_move; ++i )
  2128.         *(dest++) = *(source++);
  2129.  
  2130.     if ( yy_current_buffer->yy_eof_status != EOF_NOT_SEEN )
  2131.         /* don't do the read, it's not guaranteed to return an EOF,
  2132.          * just force an EOF
  2133.          */
  2134.         yy_n_chars = 0;
  2135.  
  2136.     else
  2137.         {
  2138.         int num_to_read =
  2139.             yy_current_buffer->yy_buf_size - number_to_move - 1;
  2140.  
  2141.         while ( num_to_read <= 0 )
  2142.             { /* Not enough room in the buffer - grow it. */
  2143. #ifdef YY_USES_REJECT
  2144.             YY_FATAL_ERROR(
  2145. "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
  2146. #else
  2147.  
  2148.             /* just a shorter name for the current buffer */
  2149.             YY_BUFFER_STATE b = yy_current_buffer;
  2150.  
  2151.             int yy_c_buf_p_offset = yy_c_buf_p - b->yy_ch_buf;
  2152.  
  2153.             b->yy_buf_size *= 2;
  2154.             b->yy_ch_buf = (char *)
  2155.                 yy_flex_realloc( (void *) b->yy_ch_buf,
  2156.                          b->yy_buf_size );
  2157.  
  2158.             if ( ! b->yy_ch_buf )
  2159.                 YY_FATAL_ERROR(
  2160.                 "fatal error - scanner input buffer overflow" );
  2161.  
  2162.             yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
  2163.  
  2164.             num_to_read = yy_current_buffer->yy_buf_size -
  2165.                         number_to_move - 1;
  2166. #endif
  2167.             }
  2168.  
  2169.         if ( num_to_read > YY_READ_BUF_SIZE )
  2170.             num_to_read = YY_READ_BUF_SIZE;
  2171.  
  2172.         /* Read in more data. */
  2173.         YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
  2174.             yy_n_chars, num_to_read );
  2175.         }
  2176.  
  2177.     if ( yy_n_chars == 0 )
  2178.         {
  2179.         if ( number_to_move - YY_MORE_ADJ == 1 )
  2180.             {
  2181.             ret_val = EOB_ACT_END_OF_FILE;
  2182.             yyrestart( yyin );
  2183.             }
  2184.  
  2185.         else
  2186.             {
  2187.             ret_val = EOB_ACT_LAST_MATCH;
  2188.             yy_current_buffer->yy_eof_status = EOF_PENDING;
  2189.             }
  2190.         }
  2191.  
  2192.     else
  2193.         ret_val = EOB_ACT_CONTINUE_SCAN;
  2194.  
  2195.     yy_n_chars += number_to_move;
  2196.     yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
  2197.     yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
  2198.  
  2199.     /* yytext begins at the second character in yy_ch_buf; the first
  2200.      * character is the one which preceded it before reading in the latest
  2201.      * buffer; it needs to be kept around in case it's a newline, so
  2202.      * yy_get_previous_state() will have with '^' rules active.
  2203.      */
  2204.  
  2205.     yytext_ptr = &yy_current_buffer->yy_ch_buf[1];
  2206.  
  2207.     return ret_val;
  2208.     }
  2209.  
  2210.  
  2211. /* yy_get_previous_state - get the state just before the EOB char was reached */
  2212.  
  2213. static yy_state_type yy_get_previous_state()
  2214.     {
  2215.     register yy_state_type yy_current_state;
  2216.     register char *yy_cp;
  2217.  
  2218.     register char *yy_bp = yytext_ptr;
  2219.  
  2220.     yy_current_state = yy_start;
  2221.     if ( yy_bp[-1] == '\n' )
  2222.         ++yy_current_state;
  2223.  
  2224.     for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
  2225.         {
  2226.         register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
  2227.         if ( yy_accept[yy_current_state] )
  2228.             {
  2229.             yy_last_accepting_state = yy_current_state;
  2230.             yy_last_accepting_cpos = yy_cp;
  2231.             }
  2232.         while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  2233.             {
  2234.             yy_current_state = (int) yy_def[yy_current_state];
  2235.             if ( yy_current_state >= 408 )
  2236.                 yy_c = yy_meta[(unsigned int) yy_c];
  2237.             }
  2238.         yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
  2239.         }
  2240.  
  2241.     return yy_current_state;
  2242.     }
  2243.  
  2244.  
  2245. /* yy_try_NUL_trans - try to make a transition on the NUL character
  2246.  *
  2247.  * synopsis
  2248.  *    next_state = yy_try_NUL_trans( current_state );
  2249.  */
  2250.  
  2251. #ifdef YY_USE_PROTOS
  2252. static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
  2253. #else
  2254. static yy_state_type yy_try_NUL_trans( yy_current_state )
  2255. yy_state_type yy_current_state;
  2256. #endif
  2257.     {
  2258.     register int yy_is_jam;
  2259.     register char *yy_cp = yy_c_buf_p;
  2260.  
  2261.     register YY_CHAR yy_c = 1;
  2262.     if ( yy_accept[yy_current_state] )
  2263.         {
  2264.         yy_last_accepting_state = yy_current_state;
  2265.         yy_last_accepting_cpos = yy_cp;
  2266.         }
  2267.     while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  2268.         {
  2269.         yy_current_state = (int) yy_def[yy_current_state];
  2270.         if ( yy_current_state >= 408 )
  2271.             yy_c = yy_meta[(unsigned int) yy_c];
  2272.         }
  2273.     yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
  2274.     yy_is_jam = (yy_current_state == 407);
  2275.  
  2276.     return yy_is_jam ? 0 : yy_current_state;
  2277.     }
  2278.  
  2279.  
  2280. #ifdef YY_USE_PROTOS
  2281. static void yyunput( int c, register char *yy_bp )
  2282. #else
  2283. static void yyunput( c, yy_bp )
  2284. int c;
  2285. register char *yy_bp;
  2286. #endif
  2287.     {
  2288.     register char *yy_cp = yy_c_buf_p;
  2289.  
  2290.     /* undo effects of setting up yytext */
  2291.     *yy_cp = yy_hold_char;
  2292.  
  2293.     if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
  2294.         { /* need to shift things up to make room */
  2295.         /* +2 for EOB chars. */
  2296.         register int number_to_move = yy_n_chars + 2;
  2297.         register char *dest = &yy_current_buffer->yy_ch_buf[
  2298.                     yy_current_buffer->yy_buf_size + 2];
  2299.         register char *source =
  2300.                 &yy_current_buffer->yy_ch_buf[number_to_move];
  2301.  
  2302.         while ( source > yy_current_buffer->yy_ch_buf )
  2303.             *--dest = *--source;
  2304.  
  2305.         yy_cp += dest - source;
  2306.         yy_bp += dest - source;
  2307.         yy_n_chars = yy_current_buffer->yy_buf_size;
  2308.  
  2309.         if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
  2310.             YY_FATAL_ERROR( "flex scanner push-back overflow" );
  2311.         }
  2312.  
  2313.     if ( yy_cp > yy_bp && yy_cp[-1] == '\n' )
  2314.         yy_cp[-2] = '\n';
  2315.  
  2316.     *--yy_cp = (char) c;
  2317.  
  2318.  
  2319.     /* Note: the formal parameter *must* be called "yy_bp" for this
  2320.      * macro to now work correctly.
  2321.      */
  2322.     YY_DO_BEFORE_ACTION; /* set up yytext again */
  2323.     }
  2324.  
  2325.  
  2326. #ifdef __cplusplus
  2327. static int yyinput()
  2328. #else
  2329. static int input()
  2330. #endif
  2331.     {
  2332.     int c;
  2333.  
  2334.     *yy_c_buf_p = yy_hold_char;
  2335.  
  2336.     if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
  2337.         {
  2338.         /* yy_c_buf_p now points to the character we want to return.
  2339.          * If this occurs *before* the EOB characters, then it's a
  2340.          * valid NUL; if not, then we've hit the end of the buffer.
  2341.          */
  2342.         if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
  2343.             /* This was really a NUL. */
  2344.             *yy_c_buf_p = '\0';
  2345.  
  2346.         else
  2347.             { /* need more input */
  2348.             yytext_ptr = yy_c_buf_p;
  2349.             ++yy_c_buf_p;
  2350.  
  2351.             switch ( yy_get_next_buffer() )
  2352.                 {
  2353.                 case EOB_ACT_END_OF_FILE:
  2354.                     {
  2355.                     if ( yywrap() )
  2356.                         {
  2357.                         yy_c_buf_p =
  2358.                         yytext_ptr + YY_MORE_ADJ;
  2359.                         return EOF;
  2360.                         }
  2361.  
  2362.                     YY_NEW_FILE;
  2363. #ifdef __cplusplus
  2364.                     return yyinput();
  2365. #else
  2366.                     return input();
  2367. #endif
  2368.                     }
  2369.  
  2370.                 case EOB_ACT_CONTINUE_SCAN:
  2371.                     yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
  2372.                     break;
  2373.  
  2374.                 case EOB_ACT_LAST_MATCH:
  2375. #ifdef __cplusplus
  2376.                     YY_FATAL_ERROR(
  2377.                     "unexpected last match in yyinput()" );
  2378. #else
  2379.                     YY_FATAL_ERROR(
  2380.                     "unexpected last match in input()" );
  2381. #endif
  2382.                 }
  2383.             }
  2384.         }
  2385.  
  2386.     c = *yy_c_buf_p;
  2387.     *yy_c_buf_p = '\0';    /* preserve yytext */
  2388.     yy_hold_char = *++yy_c_buf_p;
  2389.  
  2390.     return c;
  2391.     }
  2392.  
  2393.  
  2394. #ifdef YY_USE_PROTOS
  2395. void yyrestart( FILE *input_file )
  2396. #else
  2397. void yyrestart( input_file )
  2398. FILE *input_file;
  2399. #endif
  2400.     {
  2401.     if ( ! yy_current_buffer )
  2402.         yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
  2403.  
  2404.     yy_init_buffer( yy_current_buffer, input_file );
  2405.     yy_load_buffer_state();
  2406.     }
  2407.  
  2408.  
  2409. #ifdef YY_USE_PROTOS
  2410. void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
  2411. #else
  2412. void yy_switch_to_buffer( new_buffer )
  2413. YY_BUFFER_STATE new_buffer;
  2414. #endif
  2415.     {
  2416.     if ( yy_current_buffer == new_buffer )
  2417.         return;
  2418.  
  2419.     if ( yy_current_buffer )
  2420.         {
  2421.         /* Flush out information for old buffer. */
  2422.         *yy_c_buf_p = yy_hold_char;
  2423.         yy_current_buffer->yy_buf_pos = yy_c_buf_p;
  2424.         yy_current_buffer->yy_n_chars = yy_n_chars;
  2425.         }
  2426.  
  2427.     yy_current_buffer = new_buffer;
  2428.     yy_load_buffer_state();
  2429.  
  2430.     /* We don't actually know whether we did this switch during
  2431.      * EOF (yywrap()) processing, but the only time this flag
  2432.      * is looked at is after yywrap() is called, so it's safe
  2433.      * to go ahead and always set it.
  2434.      */
  2435.     yy_did_buffer_switch_on_eof = 1;
  2436.     }
  2437.  
  2438.  
  2439. #ifdef YY_USE_PROTOS
  2440. void yy_load_buffer_state( void )
  2441. #else
  2442. void yy_load_buffer_state()
  2443. #endif
  2444.     {
  2445.     yy_n_chars = yy_current_buffer->yy_n_chars;
  2446.     yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
  2447.     yyin = yy_current_buffer->yy_input_file;
  2448.     yy_hold_char = *yy_c_buf_p;
  2449.     }
  2450.  
  2451.  
  2452. #ifdef YY_USE_PROTOS
  2453. YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
  2454. #else
  2455. YY_BUFFER_STATE yy_create_buffer( file, size )
  2456. FILE *file;
  2457. int size;
  2458. #endif
  2459.     {
  2460.     YY_BUFFER_STATE b;
  2461.  
  2462.     b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
  2463.  
  2464.     if ( ! b )
  2465.         YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
  2466.  
  2467.     b->yy_buf_size = size;
  2468.  
  2469.     /* yy_ch_buf has to be 2 characters longer than the size given because
  2470.      * we need to put in 2 end-of-buffer characters.
  2471.      */
  2472.     b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
  2473.  
  2474.     if ( ! b->yy_ch_buf )
  2475.         YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
  2476.  
  2477.     yy_init_buffer( b, file );
  2478.  
  2479.     return b;
  2480.     }
  2481.  
  2482.  
  2483. #ifdef YY_USE_PROTOS
  2484. void yy_delete_buffer( YY_BUFFER_STATE b )
  2485. #else
  2486. void yy_delete_buffer( b )
  2487. YY_BUFFER_STATE b;
  2488. #endif
  2489.     {
  2490.     if ( b == yy_current_buffer )
  2491.         yy_current_buffer = (YY_BUFFER_STATE) 0;
  2492.  
  2493.     yy_flex_free( (void *) b->yy_ch_buf );
  2494.     yy_flex_free( (void *) b );
  2495.     }
  2496.  
  2497.  
  2498. #ifdef YY_USE_PROTOS
  2499. void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
  2500. #else
  2501. void yy_init_buffer( b, file )
  2502. YY_BUFFER_STATE b;
  2503. FILE *file;
  2504. #endif
  2505.     {
  2506.     b->yy_input_file = file;
  2507.  
  2508.     /* We put in the '\n' and start reading from [1] so that an
  2509.      * initial match-at-newline will be true.
  2510.      */
  2511.  
  2512.     b->yy_ch_buf[0] = '\n';
  2513.     b->yy_n_chars = 1;
  2514.  
  2515.     /* We always need two end-of-buffer characters.  The first causes
  2516.      * a transition to the end-of-buffer state.  The second causes
  2517.      * a jam in that state.
  2518.      */
  2519.     b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
  2520.     b->yy_ch_buf[2] = YY_END_OF_BUFFER_CHAR;
  2521.  
  2522.     b->yy_buf_pos = &b->yy_ch_buf[1];
  2523.  
  2524.     b->yy_is_interactive = file ? isatty( fileno(file) ) : 0;
  2525.  
  2526.     b->yy_fill_buffer = 1;
  2527.  
  2528.     b->yy_eof_status = EOF_NOT_SEEN;
  2529.     }
  2530.  
  2531.  
  2532. #ifdef YY_USE_PROTOS
  2533. static void yy_push_state( int new_state )
  2534. #else
  2535. static void yy_push_state( new_state )
  2536. int new_state;
  2537. #endif
  2538.     {
  2539.     if ( yy_start_stack_ptr >= yy_start_stack_depth )
  2540.         {
  2541.         int new_size;
  2542.  
  2543.         yy_start_stack_depth += YY_START_STACK_INCR;
  2544.         new_size = yy_start_stack_depth * sizeof( int );
  2545.  
  2546.         if ( ! yy_start_stack )
  2547.             yy_start_stack = (int *) yy_flex_alloc( new_size );
  2548.  
  2549.         else
  2550.             yy_start_stack = (int *) yy_flex_realloc(
  2551.                     (void *) yy_start_stack, new_size );
  2552.  
  2553.         if ( ! yy_start_stack )
  2554.             YY_FATAL_ERROR(
  2555.             "out of memory expanding start-condition stack" );
  2556.         }
  2557.  
  2558.     yy_start_stack[yy_start_stack_ptr++] = YY_START;
  2559.  
  2560.     BEGIN(new_state);
  2561.     }
  2562.  
  2563.  
  2564. static void yy_pop_state()
  2565.     {
  2566.     if ( --yy_start_stack_ptr < 0 )
  2567.         YY_FATAL_ERROR( "start-condition stack underflow" );
  2568.  
  2569.     BEGIN(yy_start_stack[yy_start_stack_ptr]);
  2570.     }
  2571.  
  2572.  
  2573. static int yy_top_state()
  2574.     {
  2575.     return yy_start_stack[yy_start_stack_ptr - 1];
  2576.     }
  2577.  
  2578.  
  2579. #ifdef YY_USE_PROTOS
  2580. static void yy_fatal_error( const char msg[] )
  2581. #else
  2582. static void yy_fatal_error( msg )
  2583. char msg[];
  2584. #endif
  2585.     {
  2586.     (void) fprintf( stderr, "%s\n", msg );
  2587.     exit( 1 );
  2588.     }
  2589.  
  2590.  
  2591.  
  2592. /* Redefine yyless() so it works in section 3 code. */
  2593.  
  2594. #undef yyless
  2595. #define yyless(n) \
  2596.     do \
  2597.         { \
  2598.         /* Undo effects of setting up yytext. */ \
  2599.         yytext[yyleng] = yy_hold_char; \
  2600.         yy_c_buf_p = yytext + n - YY_MORE_ADJ; \
  2601.         yy_hold_char = *yy_c_buf_p; \
  2602.         *yy_c_buf_p = '\0'; \
  2603.         yyleng = n; \
  2604.         } \
  2605.     while ( 0 )
  2606.  
  2607.  
  2608. /* Internal utility routines. */
  2609.  
  2610. #ifndef yytext_ptr
  2611. #ifdef YY_USE_PROTOS
  2612. static void yy_flex_strcpy( char *s1, const char *s2 )
  2613. #else
  2614. static void yy_flex_strcpy( s1, s2 )
  2615. char *s1;
  2616. const char *s2;
  2617. #endif
  2618.     {
  2619.     while ( (*(s1++) = *(s2++)) )
  2620.         ;
  2621.     }
  2622. #endif
  2623.  
  2624.  
  2625. #ifdef YY_USE_PROTOS
  2626. static void *yy_flex_alloc( unsigned int size )
  2627. #else
  2628. static void *yy_flex_alloc( size )
  2629. unsigned int size;
  2630. #endif
  2631.     {
  2632.     return (void *) malloc( size );
  2633.     }
  2634.  
  2635. #ifdef YY_USE_PROTOS
  2636. static void *yy_flex_realloc( void *ptr, unsigned int size )
  2637. #else
  2638. static void *yy_flex_realloc( ptr, size )
  2639. void *ptr;
  2640. unsigned int size;
  2641. #endif
  2642.     {
  2643.     return (void *) realloc( ptr, size );
  2644.     }
  2645.  
  2646. #ifdef YY_USE_PROTOS
  2647. static void yy_flex_free( void *ptr )
  2648. #else
  2649. static void yy_flex_free( ptr )
  2650. void *ptr;
  2651. #endif
  2652.     {
  2653.     free( ptr );
  2654.     }
  2655. # line 515 "scan.l"
  2656.  
  2657.  
  2658.  
  2659. int yywrap()
  2660.     {
  2661.     if ( --num_input_files > 0 )
  2662.         {
  2663.         set_input_file( *++input_files );
  2664.         return 0;
  2665.         }
  2666.  
  2667.     else
  2668.         return 1;
  2669.     }
  2670.  
  2671.  
  2672. /* set_input_file - open the given file (if NULL, stdin) for scanning */
  2673.  
  2674. void set_input_file( file )
  2675. char *file;
  2676.     {
  2677.     if ( file )
  2678.         {
  2679.         infilename = file;
  2680.         yyin = fopen( infilename, "r" );
  2681.  
  2682.         if ( yyin == NULL )
  2683.             lerrsf( "can't open %s", file );
  2684.         }
  2685.  
  2686.     else
  2687.         {
  2688.         yyin = stdin;
  2689.         infilename = "<stdin>";
  2690.         }
  2691.     }
  2692.  
  2693.  
  2694. /* Wrapper routines for accessing the scanner's malloc routines. */
  2695.  
  2696. void *flex_alloc( size )
  2697. unsigned int size;
  2698.     {
  2699.     return yy_flex_alloc( size );
  2700.     }
  2701.  
  2702. void *flex_realloc( ptr, size )
  2703. void *ptr;
  2704. unsigned int size;
  2705.     {
  2706.     return yy_flex_realloc( ptr, size );
  2707.     }
  2708.  
  2709. void flex_free( ptr )
  2710. void *ptr;
  2711.     {
  2712.     yy_flex_free( ptr );
  2713.     }
  2714.