binutils/arlex.c

   1 /* A lexical scanner generated by flex */
   2
   3 /* Scanner skeleton version:
   4  * $Header$
   5  */
   6
   7 #define FLEX_SCANNER
   8 #define YY_FLEX_MAJOR_VERSION 2
   9 #define YY_FLEX_MINOR_VERSION 5
  10
  11 #include <stdio.h>
  12 #include <errno.h>
  13
  14 /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
  15 #ifdef c_plusplus
  16 #ifndef __cplusplus
  17 #define __cplusplus
  18 #endif
  19 #endif
  20
  21
  22 #ifdef __cplusplus
  23
  24 #include <stdlib.h>
  25 #ifndef _WIN32
  26 #include <unistd.h>
  27 #endif
  28
  29 /* Use prototypes in function declarations. */
  30 #define YY_USE_PROTOS
  31
  32 /* The "const" storage-class-modifier is valid. */
  33 #define YY_USE_CONST
  34
  35 #else   /* ! __cplusplus */
  36
  37 #if __STDC__
  38
  39 #define YY_USE_PROTOS
  40 #define YY_USE_CONST
  41
  42 #endif  /* __STDC__ */
  43 #endif  /* ! __cplusplus */
  44
  45 #ifdef __TURBOC__
  46  #pragma warn -rch
  47  #pragma warn -use
  48 #include <io.h>
  49 #include <stdlib.h>
  50 #define YY_USE_CONST
  51 #define YY_USE_PROTOS
  52 #endif
  53
  54 #ifdef YY_USE_CONST
  55 #define yyconst const
  56 #else
  57 #define yyconst
  58 #endif
  59
  60
  61 #ifdef YY_USE_PROTOS
  62 #define YY_PROTO(proto) proto
  63 #else
  64 #define YY_PROTO(proto) ()
  65 #endif
  66
  67 /* Returned upon end-of-file. */
  68 #define YY_NULL 0
  69
  70 /* Promotes a possibly negative, possibly signed char to an unsigned
  71  * integer for use as an array index.  If the signed char is negative,
  72  * we want to instead treat it as an 8-bit unsigned char, hence the
  73  * double cast.
  74  */
  75 #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
  76
  77 /* Enter a start condition.  This macro really ought to take a parameter,
  78  * but we do it the disgusting crufty way forced on us by the ()-less
  79  * definition of BEGIN.
  80  */
  81 #define BEGIN yy_start = 1 + 2 *
  82
  83 /* Translate the current start state into a value that can be later handed
  84  * to BEGIN to return to the state.  The YYSTATE alias is for lex
  85  * compatibility.
  86  */
  87 #define YY_START ((yy_start - 1) / 2)
  88 #define YYSTATE YY_START
  89
  90 /* Action number for EOF rule of a given start state. */
  91 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
  92
  93 /* Special action meaning "start processing a new file". */
  94 #define YY_NEW_FILE yyrestart( yyin )
  95
  96 #define YY_END_OF_BUFFER_CHAR 0
  97
  98 /* Size of default input buffer. */
  99 #define YY_BUF_SIZE 16384
 100
 101 typedef struct yy_buffer_state *YY_BUFFER_STATE;
 102
 103 extern int yyleng;
 104 extern FILE *yyin, *yyout;
 105
 106 #define EOB_ACT_CONTINUE_SCAN 0
 107 #define EOB_ACT_END_OF_FILE 1
 108 #define EOB_ACT_LAST_MATCH 2
 109
 110 /* The funky do-while in the following #define is used to turn the definition
 111  * int a single C statement (which needs a semi-colon terminator).  This
 112  * avoids problems with code like:
 113  *
 114  *      if ( condition_holds )
 115  *              yyless( 5 );
 116  *      else
 117  *              do_something_else();
 118  *
 119  * Prior to using the do-while the compiler would get upset at the
 120  * "else" because it interpreted the "if" statement as being all
 121  * done when it reached the ';' after the yyless() call.
 122  */
 123
 124 /* Return all but the first 'n' matched characters back to the input stream. */
 125
 126 #define yyless(n) \
 127         do \
 128                 { \
 129                 /* Undo effects of setting up yytext. */ \
 130                 *yy_cp = yy_hold_char; \
 131                 YY_RESTORE_YY_MORE_OFFSET \
 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 /* The following is because we cannot portably get our hands on size_t
 140  * (without autoconf's help, which isn't available because we want
 141  * flex-generated scanners to compile on their own).
 142  */
 143 typedef unsigned int yy_size_t;
 144
 145
 146 struct yy_buffer_state
 147         {
 148         FILE *yy_input_file;
 149
 150         char *yy_ch_buf;                /* input buffer */
 151         char *yy_buf_pos;               /* current position in input buffer */
 152
 153         /* Size of input buffer in bytes, not including room for EOB
 154          * characters.
 155          */
 156         yy_size_t yy_buf_size;
 157
 158         /* Number of characters read into yy_ch_buf, not including EOB
 159          * characters.
 160          */
 161         int yy_n_chars;
 162
 163         /* Whether we "own" the buffer - i.e., we know we created it,
 164          * and can realloc() it to grow it, and should free() it to
 165          * delete it.
 166          */
 167         int yy_is_our_buffer;
 168
 169         /* Whether this is an "interactive" input source; if so, and
 170          * if we're using stdio for input, then we want to use getc()
 171          * instead of fread(), to make sure we stop fetching input after
 172          * each newline.
 173          */
 174         int yy_is_interactive;
 175
 176         /* Whether we're considered to be at the beginning of a line.
 177          * If so, '^' rules will be active on the next match, otherwise
 178          * not.
 179          */
 180         int yy_at_bol;
 181
 182         /* Whether to try to fill the input buffer when we reach the
 183          * end of it.
 184          */
 185         int yy_fill_buffer;
 186
 187         int yy_buffer_status;
 188 #define YY_BUFFER_NEW 0
 189 #define YY_BUFFER_NORMAL 1
 190         /* When an EOF's been seen but there's still some text to process
 191          * then we mark the buffer as YY_EOF_PENDING, to indicate that we
 192          * shouldn't try reading from the input source any more.  We might
 193          * still have a bunch of tokens to match, though, because of
 194          * possible backing-up.
 195          *
 196          * When we actually see the EOF, we change the status to "new"
 197          * (via yyrestart()), so that the user can continue scanning by
 198          * just pointing yyin at a new input file.
 199          */
 200 #define YY_BUFFER_EOF_PENDING 2
 201         };
 202
 203 static YY_BUFFER_STATE yy_current_buffer = 0;
 204
 205 /* We provide macros for accessing buffer states in case in the
 206  * future we want to put the buffer states in a more general
 207  * "scanner state".
 208  */
 209 #define YY_CURRENT_BUFFER yy_current_buffer
 210
 211
 212 /* yy_hold_char holds the character lost when yytext is formed. */
 213 static char yy_hold_char;
 214
 215 static int yy_n_chars;          /* number of characters read into yy_ch_buf */
 216
 217
 218 int yyleng;
 219
 220 /* Points to current character in buffer. */
 221 static char *yy_c_buf_p = (char *) 0;
 222 static int yy_init = 1;         /* whether we need to initialize */
 223 static int yy_start = 0;        /* start state number */
 224
 225 /* Flag which is used to allow yywrap()'s to do buffer switches
 226  * instead of setting up a fresh yyin.  A bit of a hack ...
 227  */
 228 static int yy_did_buffer_switch_on_eof;
 229
 230 void yyrestart YY_PROTO(( FILE *input_file ));
 231
 232 void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
 233 void yy_load_buffer_state YY_PROTO(( void ));
 234 YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
 235 void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
 236 void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
 237 void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
 238 #define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
 239
 240 YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
 241 YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
 242 YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
 243
 244 static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
 245 static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
 246 static void yy_flex_free YY_PROTO(( void * ));
 247
 248 #define yy_new_buffer yy_create_buffer
 249
 250 #define yy_set_interactive(is_interactive) \
 251         { \
 252         if ( ! yy_current_buffer ) \
 253                 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
 254         yy_current_buffer->yy_is_interactive = is_interactive; \
 255         }
 256
 257 #define yy_set_bol(at_bol) \
 258         { \
 259         if ( ! yy_current_buffer ) \
 260                 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
 261         yy_current_buffer->yy_at_bol = at_bol; \
 262         }
 263
 264 #define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
 265
 266 typedef unsigned char YY_CHAR;
 267 FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
 268 typedef int yy_state_type;
 269 extern char *yytext;
 270 #define yytext_ptr yytext
 271
 272 static yy_state_type yy_get_previous_state YY_PROTO(( void ));
 273 static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
 274 static int yy_get_next_buffer YY_PROTO(( void ));
 275 static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
 276
 277 /* Done after the current pattern has been matched and before the
 278  * corresponding action - sets up yytext.
 279  */
 280 #define YY_DO_BEFORE_ACTION \
 281         yytext_ptr = yy_bp; \
 282         yyleng = (int) (yy_cp - yy_bp); \
 283         yy_hold_char = *yy_cp; \
 284         *yy_cp = '\0'; \
 285         yy_c_buf_p = yy_cp;
 286
 287 #define YY_NUM_RULES 40
 288 #define YY_END_OF_BUFFER 41
 289 static yyconst short int yy_accept[177] =
 290     {   0,
 291         0,    0,   41,   40,   39,   38,   35,   32,   33,   36,
 292        40,   34,   37,   35,   35,   35,   35,   35,   35,   35,
 293        35,   35,   35,   35,   35,   35,   35,   35,   35,   35,
 294        35,   35,   35,   35,   35,   35,   36,   31,   37,   35,
 295        35,   35,   35,   35,   35,   35,   35,   35,   35,   35,
 296        35,   35,   35,   35,   35,   35,   35,   35,   35,   35,
 297        35,   35,   35,   35,   35,   35,   35,   35,   35,   35,
 298        35,   35,    7,   35,   35,   35,   35,   35,   35,   35,
 299        35,   35,   35,   35,   35,   35,   22,   35,   35,   35,
 300        35,   35,   35,   35,   35,   35,   35,   35,   35,   35,
 301
 302        35,   35,   35,   10,   11,   12,   35,   15,   35,   35,
 303        35,   35,   35,   35,   35,   35,   35,   25,   26,   27,
 304        35,   30,   35,   35,   35,    3,   35,   35,   35,   35,
 305        35,   35,   35,   35,   35,   18,   35,   35,   35,   35,
 306        35,   35,   35,    1,    2,    4,    5,   35,   35,   35,
 307        35,   35,   16,   17,   19,   20,   35,   35,   35,   35,
 308        35,   35,    8,    9,   13,   14,   35,   23,   24,   28,
 309        29,   35,   35,    6,   21,    0
 310     } ;
 311
 312 static yyconst int yy_ec[256] =
 313     {   0,
 314         1,    1,    1,    1,    1,    1,    1,    1,    1,    2,
 315         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 316         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 317         1,    3,    1,    1,    1,    4,    1,    1,    1,    5,
 318         6,    7,    8,    9,    4,    4,    4,    4,    4,    4,
 319         4,    4,    4,    4,    4,    4,    4,    4,   10,    1,
 320         1,    1,    1,    1,   11,   12,   13,   14,   15,   16,
 321         4,   17,   18,    4,    4,   19,   20,   21,   22,   23,
 322         4,   24,   25,   26,   27,   28,    4,   29,   30,    4,
 323         1,    4,    1,    1,    4,    1,   31,   32,   33,   34,
 324
 325        35,   36,    4,   37,   38,    4,    4,   39,   40,   41,
 326        42,   43,    4,   44,   45,   46,   47,   48,    4,   49,
 327        50,    4,    1,    1,    1,    1,    1,    1,    1,    1,
 328         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 329         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 330         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 331         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 332         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 333         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 334         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 335
 336         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 337         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 338         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 339         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 340         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 341         1,    1,    1,    1,    1
 342     } ;
 343
 344 static yyconst int yy_meta[51] =
 345     {   0,
 346         1,    2,    1,    3,    1,    1,    1,    1,    1,    1,
 347         3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
 348         3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
 349         3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
 350         3,    3,    3,    3,    3,    3,    3,    3,    3,    3
 351     } ;
 352
 353 static yyconst short int yy_base[180] =
 354     {   0,
 355         0,    0,  193,  194,  194,  194,    0,  194,  194,    0,
 356       190,  194,    0,  177,   32,   37,   32,  163,  174,  170,
 357       164,  171,  174,  169,  149,   15,   22,   17,  135,  146,
 358       142,  136,  143,  146,  141,    0,    0,  194,    0,  161,
 359       159,  158,  153,  147,  156,  143,  149,  148,  141,  150,
 360       141,  135,  138,  127,  125,  124,  119,  113,  122,  109,
 361       115,  114,  107,  116,  107,  101,  104,   43,  136,  135,
 362       130,  129,    0,  119,  123,  118,  114,  118,  119,  122,
 363       124,   25,  104,  103,   98,   97,    0,   87,   91,   86,
 364        82,   86,   87,   90,   92,  105,  100,   97,   94,   93,
 365
 366       105,  106,  102,    0,    0,    0,  104,    0,   92,   75,
 367        70,   67,   64,   63,   75,   76,   72,    0,    0,    0,
 368        74,    0,   62,   91,   88,    0,   86,   85,   73,   85,
 369        79,   83,   70,   62,   59,    0,   57,   56,   44,   56,
 370        50,   54,   41,    0,    0,    0,    0,   63,   58,   59,
 371        67,   66,    0,    0,    0,    0,   38,   33,   34,   42,
 372        41,   51,    0,    0,    0,    0,   30,    0,    0,    0,
 373         0,   43,   21,    0,    0,  194,   65,   66,   69
 374     } ;
 375
 376 static yyconst short int yy_def[180] =
 377     {   0,
 378       176,    1,  176,  176,  176,  176,  177,  176,  176,  178,
 379       176,  176,  179,  177,  177,  177,  177,  177,  177,  177,
 380       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 381       177,  177,  177,  177,  177,  177,  178,  176,  179,  177,
 382       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 383       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 384       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 385       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 386       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 387       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 388
 389       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 390       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 391       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 392       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 393       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 394       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 395       177,  177,  177,  177,  177,  177,  177,  177,  177,  177,
 396       177,  177,  177,  177,  177,    0,  176,  176,  176
 397     } ;
 398
 399 static yyconst short int yy_nxt[245] =
 400     {   0,
 401         4,    5,    6,    7,    8,    9,   10,   11,   12,   13,
 402        14,    7,   15,   16,   17,   18,   19,    7,   20,    7,
 403         7,   21,    7,   22,   23,    7,    7,   24,    7,    7,
 404        25,    7,   26,   27,   28,   29,   30,    7,   31,    7,
 405         7,   32,    7,   33,   34,    7,    7,   35,    7,    7,
 406        41,   43,   45,   55,   44,   42,   57,   59,   56,   58,
 407        46,   96,   97,  110,  111,   60,   37,   36,   37,   39,
 408       175,   39,  174,  173,  172,  171,  170,  169,  168,  167,
 409       166,  165,  164,  163,  162,  161,  160,  159,  158,  157,
 410       156,  155,  154,  153,  152,  151,  150,  149,  148,  147,
 411
 412       146,  145,  144,  143,  142,  141,  140,  139,  138,  137,
 413       136,  135,  134,  133,  132,  131,  130,  129,  128,  127,
 414       126,  125,  124,  123,  122,  121,  120,  119,  118,  117,
 415       116,  115,  114,  113,  112,  109,  108,  107,  106,  105,
 416       104,  103,  102,  101,  100,   99,   98,   95,   94,   93,
 417        92,   91,   90,   89,   88,   87,   86,   85,   84,   83,
 418        82,   81,   80,   79,   78,   77,   76,   75,   74,   73,
 419        72,   71,   70,   69,   68,   67,   66,   65,   64,   63,
 420        62,   61,   54,   53,   52,   51,   50,   49,   48,   47,
 421        40,   38,  176,    3,  176,  176,  176,  176,  176,  176,
 422
 423       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 424       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 425       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 426       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 427       176,  176,  176,  176
 428     } ;
 429
 430 static yyconst short int yy_chk[245] =
 431     {   0,
 432         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 433         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 434         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 435         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 436         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
 437        15,   16,   17,   26,   16,   15,   27,   28,   26,   27,
 438        17,   68,   68,   82,   82,   28,  178,  177,  178,  179,
 439       173,  179,  172,  167,  162,  161,  160,  159,  158,  157,
 440       152,  151,  150,  149,  148,  143,  142,  141,  140,  139,
 441       138,  137,  135,  134,  133,  132,  131,  130,  129,  128,
 442
 443       127,  125,  124,  123,  121,  117,  116,  115,  114,  113,
 444       112,  111,  110,  109,  107,  103,  102,  101,  100,   99,
 445        98,   97,   96,   95,   94,   93,   92,   91,   90,   89,
 446        88,   86,   85,   84,   83,   81,   80,   79,   78,   77,
 447        76,   75,   74,   72,   71,   70,   69,   67,   66,   65,
 448        64,   63,   62,   61,   60,   59,   58,   57,   56,   55,
 449        54,   53,   52,   51,   50,   49,   48,   47,   46,   45,
 450        44,   43,   42,   41,   40,   35,   34,   33,   32,   31,
 451        30,   29,   25,   24,   23,   22,   21,   20,   19,   18,
 452        14,   11,    3,  176,  176,  176,  176,  176,  176,  176,
 453
 454       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 455       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 456       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 457       176,  176,  176,  176,  176,  176,  176,  176,  176,  176,
 458       176,  176,  176,  176
 459     } ;
 460
 461 static yy_state_type yy_last_accepting_state;
 462 static char *yy_last_accepting_cpos;
 463
 464 /* The intent behind this definition is that it'll catch
 465  * any uses of REJECT which flex missed.
 466  */
 467 #define REJECT reject_used_but_not_detected
 468 #define yymore() yymore_used_but_not_detected
 469 #define YY_MORE_ADJ 0
 470 #define YY_RESTORE_YY_MORE_OFFSET
 471 char *yytext;
 472 #line 1 "arlex.l"
 473 #define INITIAL 0
 474 #line 2 "arlex.l"
 475 /* arlex.l - Strange script language lexer */
 476
 477 /*   Copyright 1992, 1997, 2000, 2002 Free Software Foundation, Inc.
 478
 479 This file is part of GNU Binutils.
 480
 481 This program is free software; you can redistribute it and/or modify
 482 it under the terms of the GNU General Public License as published by
 483 the Free Software Foundation; either version 2 of the License, or
 484 (at your option) any later version.
 485
 486 This program is distributed in the hope that it will be useful,
 487 but WITHOUT ANY WARRANTY; without even the implied warranty of
 488 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 489 GNU General Public License for more details.
 490
 491 You should have received a copy of the GNU General Public License
 492 along with this program; if not, write to the Free Software
 493 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 494
 495
 496 /* Contributed by Steve Chamberlain
 497                   sac@cygnus.com
 498
 499 */
 500 #define DONTDECLARE_MALLOC
 501 #include "ansidecl.h"
 502 #include "libiberty.h"
 503 #include "arparse.h"
 504
 505 #define YY_NO_UNPUT
 506
 507 extern int yylex PARAMS ((void));
 508
 509 int linenumber;
 510 #line 511 "lex.yy.c"
 511
 512 /* Macros after this point can all be overridden by user definitions in
 513  * section 1.
 514  */
 515
 516 #ifndef YY_SKIP_YYWRAP
 517 #ifdef __cplusplus
 518 extern "C" int yywrap YY_PROTO(( void ));
 519 #else
 520 extern int yywrap YY_PROTO(( void ));
 521 #endif
 522 #endif
 523
 524 #ifndef YY_NO_UNPUT
 525 static void yyunput YY_PROTO(( int c, char *buf_ptr ));
 526 #endif
 527
 528 #ifndef yytext_ptr
 529 static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
 530 #endif
 531
 532 #ifdef YY_NEED_STRLEN
 533 static int yy_flex_strlen YY_PROTO(( yyconst char * ));
 534 #endif
 535
 536 #ifndef YY_NO_INPUT
 537 #ifdef __cplusplus
 538 static int yyinput YY_PROTO(( void ));
 539 #else
 540 static int input YY_PROTO(( void ));
 541 #endif
 542 #endif
 543
 544 #if YY_STACK_USED
 545 static int yy_start_stack_ptr = 0;
 546 static int yy_start_stack_depth = 0;
 547 static int *yy_start_stack = 0;
 548 #ifndef YY_NO_PUSH_STATE
 549 static void yy_push_state YY_PROTO(( int new_state ));
 550 #endif
 551 #ifndef YY_NO_POP_STATE
 552 static void yy_pop_state YY_PROTO(( void ));
 553 #endif
 554 #ifndef YY_NO_TOP_STATE
 555 static int yy_top_state YY_PROTO(( void ));
 556 #endif
 557
 558 #else
 559 #define YY_NO_PUSH_STATE 1
 560 #define YY_NO_POP_STATE 1
 561 #define YY_NO_TOP_STATE 1
 562 #endif
 563
 564 #ifdef YY_MALLOC_DECL
 565 YY_MALLOC_DECL
 566 #else
 567 #if __STDC__
 568 #ifndef __cplusplus
 569 #include <stdlib.h>
 570 #endif
 571 #else
 572 /* Just try to get by without declaring the routines.  This will fail
 573  * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
 574  * or sizeof(void*) != sizeof(int).
 575  */
 576 #endif
 577 #endif
 578
 579 /* Amount of stuff to slurp up with each read. */
 580 #ifndef YY_READ_BUF_SIZE
 581 #define YY_READ_BUF_SIZE 8192
 582 #endif
 583
 584 /* Copy whatever the last rule matched to the standard output. */
 585
 586 #ifndef ECHO
 587 /* This used to be an fputs(), but since the string might contain NUL's,
 588  * we now use fwrite().
 589  */
 590 #define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
 591 #endif
 592
 593 /* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
 594  * is returned in "result".
 595  */
 596 #ifndef YY_INPUT
 597 #define YY_INPUT(buf,result,max_size) \
 598         if ( yy_current_buffer->yy_is_interactive ) \
 599                 { \
 600                 int c = '*', n; \
 601                 for ( n = 0; n < max_size && \
 602                              (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
 603                         buf[n] = (char) c; \
 604                 if ( c == '\n' ) \
 605                         buf[n++] = (char) c; \
 606                 if ( c == EOF && ferror( yyin ) ) \
 607                         YY_FATAL_ERROR( "input in flex scanner failed" ); \
 608                 result = n; \
 609                 } \
 610         else \
 611                 { \
 612                 errno=0; \
 613                 while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
 614                         { \
 615                         if( errno != EINTR) \
 616                                 { \
 617                                 YY_FATAL_ERROR( "input in flex scanner failed" ); \
 618                                 break; \
 619                                 } \
 620                         errno=0; \
 621                         clearerr(yyin); \
 622                         } \
 623                 }
 624 #endif
 625
 626 /* No semi-colon after return; correct usage is to write "yyterminate();" -
 627  * we don't want an extra ';' after the "return" because that will cause
 628  * some compilers to complain about unreachable statements.
 629  */
 630 #ifndef yyterminate
 631 #define yyterminate() return YY_NULL
 632 #endif
 633
 634 /* Number of entries by which start-condition stack grows. */
 635 #ifndef YY_START_STACK_INCR
 636 #define YY_START_STACK_INCR 25
 637 #endif
 638
 639 /* Report a fatal error. */
 640 #ifndef YY_FATAL_ERROR
 641 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
 642 #endif
 643
 644 /* Default declaration of generated scanner - a define so the user can
 645  * easily add parameters.
 646  */
 647 #ifndef YY_DECL
 648 #define YY_DECL int yylex YY_PROTO(( void ))
 649 #endif
 650
 651 /* Code executed at the beginning of each rule, after yytext and yyleng
 652  * have been set up.
 653  */
 654 #ifndef YY_USER_ACTION
 655 #define YY_USER_ACTION
 656 #endif
 657
 658 /* Code executed at the end of each rule. */
 659 #ifndef YY_BREAK
 660 #define YY_BREAK break;
 661 #endif
 662
 663 #define YY_RULE_SETUP \
 664         YY_USER_ACTION
 665
 666 YY_DECL
 667         {
 668         register yy_state_type yy_current_state;
 669         register char *yy_cp, *yy_bp;
 670         register int yy_act;
 671
 672 #line 42 "arlex.l"
 673
 674
 675 #line 676 "lex.yy.c"
 676
 677         if ( yy_init )
 678                 {
 679                 yy_init = 0;
 680
 681 #ifdef YY_USER_INIT
 682                 YY_USER_INIT;
 683 #endif
 684
 685                 if ( ! yy_start )
 686                         yy_start = 1;   /* first start state */
 687
 688                 if ( ! yyin )
 689                         yyin = stdin;
 690
 691                 if ( ! yyout )
 692                         yyout = stdout;
 693
 694                 if ( ! yy_current_buffer )
 695                         yy_current_buffer =
 696                                 yy_create_buffer( yyin, YY_BUF_SIZE );
 697
 698                 yy_load_buffer_state();
 699                 }
 700
 701         while ( 1 )             /* loops until end-of-file is reached */
 702                 {
 703                 yy_cp = yy_c_buf_p;
 704
 705                 /* Support of yytext. */
 706                 *yy_cp = yy_hold_char;
 707
 708                 /* yy_bp points to the position in yy_ch_buf of the start of
 709                  * the current run.
 710                  */
 711                 yy_bp = yy_cp;
 712
 713                 yy_current_state = yy_start;
 714 yy_match:
 715                 do
 716                         {
 717                         register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
 718                         if ( yy_accept[yy_current_state] )
 719                                 {
 720                                 yy_last_accepting_state = yy_current_state;
 721                                 yy_last_accepting_cpos = yy_cp;
 722                                 }
 723                         while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
 724                                 {
 725                                 yy_current_state = (int) yy_def[yy_current_state];
 726                                 if ( yy_current_state >= 177 )
 727                                         yy_c = yy_meta[(unsigned int) yy_c];
 728                                 }
 729                         yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
 730                         ++yy_cp;
 731                         }
 732                 while ( yy_base[yy_current_state] != 194 );
 733
 734 yy_find_action:
 735                 yy_act = yy_accept[yy_current_state];
 736                 if ( yy_act == 0 )
 737                         { /* have to back up */
 738                         yy_cp = yy_last_accepting_cpos;
 739                         yy_current_state = yy_last_accepting_state;
 740                         yy_act = yy_accept[yy_current_state];
 741                         }
 742
 743                 YY_DO_BEFORE_ACTION;
 744
 745
 746 do_action:      /* This label is used only to access EOF actions. */
 747
 748
 749                 switch ( yy_act )
 750         { /* beginning of action switch */
 751                         case 0: /* must back up */
 752                         /* undo the effects of YY_DO_BEFORE_ACTION */
 753                         *yy_cp = yy_hold_char;
 754                         yy_cp = yy_last_accepting_cpos;
 755                         yy_current_state = yy_last_accepting_state;
 756                         goto yy_find_action;
 757
 758 case 1:
 759 YY_RULE_SETUP
 760 #line 44 "arlex.l"
 761 { return ADDLIB; }
 762         YY_BREAK
 763 case 2:
 764 YY_RULE_SETUP
 765 #line 45 "arlex.l"
 766 { return ADDMOD; }
 767         YY_BREAK
 768 case 3:
 769 YY_RULE_SETUP
 770 #line 46 "arlex.l"
 771 { return CLEAR; }
 772         YY_BREAK
 773 case 4:
 774 YY_RULE_SETUP
 775 #line 47 "arlex.l"
 776 { return CREATE; }
 777         YY_BREAK
 778 case 5:
 779 YY_RULE_SETUP
 780 #line 48 "arlex.l"
 781 { return DELETE; }
 782         YY_BREAK
 783 case 6:
 784 YY_RULE_SETUP
 785 #line 49 "arlex.l"
 786 { return DIRECTORY; }
 787         YY_BREAK
 788 case 7:
 789 YY_RULE_SETUP
 790 #line 50 "arlex.l"
 791 { return END; }
 792         YY_BREAK
 793 case 8:
 794 YY_RULE_SETUP
 795 #line 51 "arlex.l"
 796 { return EXTRACT; }
 797         YY_BREAK
 798 case 9:
 799 YY_RULE_SETUP
 800 #line 52 "arlex.l"
 801 { return FULLDIR; }
 802         YY_BREAK
 803 case 10:
 804 YY_RULE_SETUP
 805 #line 53 "arlex.l"
 806 { return HELP; }
 807         YY_BREAK
 808 case 11:
 809 YY_RULE_SETUP
 810 #line 54 "arlex.l"
 811 { return LIST; }
 812         YY_BREAK
 813 case 12:
 814 YY_RULE_SETUP
 815 #line 55 "arlex.l"
 816 { return OPEN; }
 817         YY_BREAK
 818 case 13:
 819 YY_RULE_SETUP
 820 #line 56 "arlex.l"
 821 { return REPLACE; }
 822         YY_BREAK
 823 case 14:
 824 YY_RULE_SETUP
 825 #line 57 "arlex.l"
 826 { return VERBOSE; }
 827         YY_BREAK
 828 case 15:
 829 YY_RULE_SETUP
 830 #line 58 "arlex.l"
 831 { return SAVE; }
 832         YY_BREAK
 833 case 16:
 834 YY_RULE_SETUP
 835 #line 59 "arlex.l"
 836 { return ADDLIB; }
 837         YY_BREAK
 838 case 17:
 839 YY_RULE_SETUP
 840 #line 60 "arlex.l"
 841 { return ADDMOD; }
 842         YY_BREAK
 843 case 18:
 844 YY_RULE_SETUP
 845 #line 61 "arlex.l"
 846 { return CLEAR; }
 847         YY_BREAK
 848 case 19:
 849 YY_RULE_SETUP
 850 #line 62 "arlex.l"
 851 { return CREATE; }
 852         YY_BREAK
 853 case 20:
 854 YY_RULE_SETUP
 855 #line 63 "arlex.l"
 856 { return DELETE; }
 857         YY_BREAK
 858 case 21:
 859 YY_RULE_SETUP
 860 #line 64 "arlex.l"
 861 { return DIRECTORY; }
 862         YY_BREAK
 863 case 22:
 864 YY_RULE_SETUP
 865 #line 65 "arlex.l"
 866 { return END; }
 867         YY_BREAK
 868 case 23:
 869 YY_RULE_SETUP
 870 #line 66 "arlex.l"
 871 { return EXTRACT; }
 872         YY_BREAK
 873 case 24:
 874 YY_RULE_SETUP
 875 #line 67 "arlex.l"
 876 { return FULLDIR; }
 877         YY_BREAK
 878 case 25:
 879 YY_RULE_SETUP
 880 #line 68 "arlex.l"
 881 { return HELP; }
 882         YY_BREAK
 883 case 26:
 884 YY_RULE_SETUP
 885 #line 69 "arlex.l"
 886 { return LIST; }
 887         YY_BREAK
 888 case 27:
 889 YY_RULE_SETUP
 890 #line 70 "arlex.l"
 891 { return OPEN; }
 892         YY_BREAK
 893 case 28:
 894 YY_RULE_SETUP
 895 #line 71 "arlex.l"
 896 { return REPLACE; }
 897         YY_BREAK
 898 case 29:
 899 YY_RULE_SETUP
 900 #line 72 "arlex.l"
 901 { return VERBOSE; }
 902         YY_BREAK
 903 case 30:
 904 YY_RULE_SETUP
 905 #line 73 "arlex.l"
 906 { return SAVE; }
 907         YY_BREAK
 908 case 31:
 909 YY_RULE_SETUP
 910 #line 74 "arlex.l"
 911 { linenumber ++; }
 912         YY_BREAK
 913 case 32:
 914 YY_RULE_SETUP
 915 #line 75 "arlex.l"
 916 { return '('; }
 917         YY_BREAK
 918 case 33:
 919 YY_RULE_SETUP
 920 #line 76 "arlex.l"
 921 { return ')'; }
 922         YY_BREAK
 923 case 34:
 924 YY_RULE_SETUP
 925 #line 77 "arlex.l"
 926 { return ','; }
 927         YY_BREAK
 928 case 35:
 929 YY_RULE_SETUP
 930 #line 78 "arlex.l"
 931 {
 932                 yylval.name =  xstrdup (yytext);
 933                 return FILENAME;
 934                 }
 935         YY_BREAK
 936 case 36:
 937 YY_RULE_SETUP
 938 #line 82 "arlex.l"
 939 { }
 940         YY_BREAK
 941 case 37:
 942 YY_RULE_SETUP
 943 #line 83 "arlex.l"
 944 { }
 945         YY_BREAK
 946 case 38:
 947 YY_RULE_SETUP
 948 #line 84 "arlex.l"
 949 { }
 950         YY_BREAK
 951 case 39:
 952 YY_RULE_SETUP
 953 #line 85 "arlex.l"
 954 { linenumber ++; return NEWLINE; }
 955         YY_BREAK
 956 case 40:
 957 YY_RULE_SETUP
 958 #line 87 "arlex.l"
 959 ECHO;
 960         YY_BREAK
 961 #line 962 "lex.yy.c"
 962 case YY_STATE_EOF(INITIAL):
 963         yyterminate();
 964
 965         case YY_END_OF_BUFFER:
 966                 {
 967                 /* Amount of text matched not including the EOB char. */
 968                 int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
 969
 970                 /* Undo the effects of YY_DO_BEFORE_ACTION. */
 971                 *yy_cp = yy_hold_char;
 972                 YY_RESTORE_YY_MORE_OFFSET
 973
 974                 if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
 975                         {
 976                         /* We're scanning a new file or input source.  It's
 977                          * possible that this happened because the user
 978                          * just pointed yyin at a new source and called
 979                          * yylex().  If so, then we have to assure
 980                          * consistency between yy_current_buffer and our
 981                          * globals.  Here is the right place to do so, because
 982                          * this is the first action (other than possibly a
 983                          * back-up) that will match for the new input source.
 984                          */
 985                         yy_n_chars = yy_current_buffer->yy_n_chars;
 986                         yy_current_buffer->yy_input_file = yyin;
 987                         yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
 988                         }
 989
 990                 /* Note that here we test for yy_c_buf_p "<=" to the position
 991                  * of the first EOB in the buffer, since yy_c_buf_p will
 992                  * already have been incremented past the NUL character
 993                  * (since all states make transitions on EOB to the
 994                  * end-of-buffer state).  Contrast this with the test
 995                  * in input().
 996                  */
 997                 if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
 998                         { /* This was really a NUL. */
 999                         yy_state_type yy_next_state;
1000
1001                         yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
1002
1003                         yy_current_state = yy_get_previous_state();
1004
1005                         /* Okay, we're now positioned to make the NUL
1006                          * transition.  We couldn't have
1007                          * yy_get_previous_state() go ahead and do it
1008                          * for us because it doesn't know how to deal
1009                          * with the possibility of jamming (and we don't
1010                          * want to build jamming into it because then it
1011                          * will run more slowly).
1012                          */
1013
1014                         yy_next_state = yy_try_NUL_trans( yy_current_state );
1015
1016                         yy_bp = yytext_ptr + YY_MORE_ADJ;
1017
1018                         if ( yy_next_state )
1019                                 {
1020                                 /* Consume the NUL. */
1021                                 yy_cp = ++yy_c_buf_p;
1022                                 yy_current_state = yy_next_state;
1023                                 goto yy_match;
1024                                 }
1025
1026                         else
1027                                 {
1028                                 yy_cp = yy_c_buf_p;
1029                                 goto yy_find_action;
1030                                 }
1031                         }
1032
1033                 else switch ( yy_get_next_buffer() )
1034                         {
1035                         case EOB_ACT_END_OF_FILE:
1036                                 {
1037                                 yy_did_buffer_switch_on_eof = 0;
1038
1039                                 if ( yywrap() )
1040                                         {
1041                                         /* Note: because we've taken care in
1042                                          * yy_get_next_buffer() to have set up
1043                                          * yytext, we can now set up
1044                                          * yy_c_buf_p so that if some total
1045                                          * hoser (like flex itself) wants to
1046                                          * call the scanner after we return the
1047                                          * YY_NULL, it'll still work - another
1048                                          * YY_NULL will get returned.
1049                                          */
1050                                         yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
1051
1052                                         yy_act = YY_STATE_EOF(YY_START);
1053                                         goto do_action;
1054                                         }
1055
1056                                 else
1057                                         {
1058                                         if ( ! yy_did_buffer_switch_on_eof )
1059                                                 YY_NEW_FILE;
1060                                         }
1061                                 break;
1062                                 }
1063
1064                         case EOB_ACT_CONTINUE_SCAN:
1065                                 yy_c_buf_p =
1066                                         yytext_ptr + yy_amount_of_matched_text;
1067
1068                                 yy_current_state = yy_get_previous_state();
1069
1070                                 yy_cp = yy_c_buf_p;
1071                                 yy_bp = yytext_ptr + YY_MORE_ADJ;
1072                                 goto yy_match;
1073
1074                         case EOB_ACT_LAST_MATCH:
1075                                 yy_c_buf_p =
1076                                 &yy_current_buffer->yy_ch_buf[yy_n_chars];
1077
1078                                 yy_current_state = yy_get_previous_state();
1079
1080                                 yy_cp = yy_c_buf_p;
1081                                 yy_bp = yytext_ptr + YY_MORE_ADJ;
1082                                 goto yy_find_action;
1083                         }
1084                 break;
1085                 }
1086
1087         default:
1088                 YY_FATAL_ERROR(
1089                         "fatal flex scanner internal error--no action found" );
1090         } /* end of action switch */
1091                 } /* end of scanning one token */
1092         } /* end of yylex */
1093
1094
1095 /* yy_get_next_buffer - try to read in a new buffer
1096  *
1097  * Returns a code representing an action:
1098  *      EOB_ACT_LAST_MATCH -
1099  *      EOB_ACT_CONTINUE_SCAN - continue scanning from current position
1100  *      EOB_ACT_END_OF_FILE - end of file
1101  */
1102
1103 static int yy_get_next_buffer()
1104         {
1105         register char *dest = yy_current_buffer->yy_ch_buf;
1106         register char *source = yytext_ptr;
1107         register int number_to_move, i;
1108         int ret_val;
1109
1110         if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
1111                 YY_FATAL_ERROR(
1112                 "fatal flex scanner internal error--end of buffer missed" );
1113
1114         if ( yy_current_buffer->yy_fill_buffer == 0 )
1115                 { /* Don't try to fill the buffer, so this is an EOF. */
1116                 if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
1117                         {
1118                         /* We matched a single character, the EOB, so
1119                          * treat this as a final EOF.
1120                          */
1121                         return EOB_ACT_END_OF_FILE;
1122                         }
1123
1124                 else
1125                         {
1126                         /* We matched some text prior to the EOB, first
1127                          * process it.
1128                          */
1129                         return EOB_ACT_LAST_MATCH;
1130                         }
1131                 }
1132
1133         /* Try to read more data. */
1134
1135         /* First move last chars to start of buffer. */
1136         number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
1137
1138         for ( i = 0; i < number_to_move; ++i )
1139                 *(dest++) = *(source++);
1140
1141         if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
1142                 /* don't do the read, it's not guaranteed to return an EOF,
1143                  * just force an EOF
1144                  */
1145                 yy_current_buffer->yy_n_chars = yy_n_chars = 0;
1146
1147         else
1148                 {
1149                 int num_to_read =
1150                         yy_current_buffer->yy_buf_size - number_to_move - 1;
1151
1152                 while ( num_to_read <= 0 )
1153                         { /* Not enough room in the buffer - grow it. */
1154 #ifdef YY_USES_REJECT
1155                         YY_FATAL_ERROR(
1156 "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
1157 #else
1158
1159                         /* just a shorter name for the current buffer */
1160                         YY_BUFFER_STATE b = yy_current_buffer;
1161
1162                         int yy_c_buf_p_offset =
1163                                 (int) (yy_c_buf_p - b->yy_ch_buf);
1164
1165                         if ( b->yy_is_our_buffer )
1166                                 {
1167                                 int new_size = b->yy_buf_size * 2;
1168
1169                                 if ( new_size <= 0 )
1170                                         b->yy_buf_size += b->yy_buf_size / 8;
1171                                 else
1172                                         b->yy_buf_size *= 2;
1173
1174                                 b->yy_ch_buf = (char *)
1175                                         /* Include room in for 2 EOB chars. */
1176                                         yy_flex_realloc( (void *) b->yy_ch_buf,
1177                                                          b->yy_buf_size + 2 );
1178                                 }
1179                         else
1180                                 /* Can't grow it, we don't own it. */
1181                                 b->yy_ch_buf = 0;
1182
1183                         if ( ! b->yy_ch_buf )
1184                                 YY_FATAL_ERROR(
1185                                 "fatal error - scanner input buffer overflow" );
1186
1187                         yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
1188
1189                         num_to_read = yy_current_buffer->yy_buf_size -
1190                                                 number_to_move - 1;
1191 #endif
1192                         }
1193
1194                 if ( num_to_read > YY_READ_BUF_SIZE )
1195                         num_to_read = YY_READ_BUF_SIZE;
1196
1197                 /* Read in more data. */
1198                 YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
1199                         yy_n_chars, num_to_read );
1200
1201                 yy_current_buffer->yy_n_chars = yy_n_chars;
1202                 }
1203
1204         if ( yy_n_chars == 0 )
1205                 {
1206                 if ( number_to_move == YY_MORE_ADJ )
1207                         {
1208                         ret_val = EOB_ACT_END_OF_FILE;
1209                         yyrestart( yyin );
1210                         }
1211
1212                 else
1213                         {
1214                         ret_val = EOB_ACT_LAST_MATCH;
1215                         yy_current_buffer->yy_buffer_status =
1216                                 YY_BUFFER_EOF_PENDING;
1217                         }
1218                 }
1219
1220         else
1221                 ret_val = EOB_ACT_CONTINUE_SCAN;
1222
1223         yy_n_chars += number_to_move;
1224         yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
1225         yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
1226
1227         yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
1228
1229         return ret_val;
1230         }
1231
1232
1233 /* yy_get_previous_state - get the state just before the EOB char was reached */
1234
1235 static yy_state_type yy_get_previous_state()
1236         {
1237         register yy_state_type yy_current_state;
1238         register char *yy_cp;
1239
1240         yy_current_state = yy_start;
1241
1242         for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
1243                 {
1244                 register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
1245                 if ( yy_accept[yy_current_state] )
1246                         {
1247                         yy_last_accepting_state = yy_current_state;
1248                         yy_last_accepting_cpos = yy_cp;
1249                         }
1250                 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1251                         {
1252                         yy_current_state = (int) yy_def[yy_current_state];
1253                         if ( yy_current_state >= 177 )
1254                                 yy_c = yy_meta[(unsigned int) yy_c];
1255                         }
1256                 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1257                 }
1258
1259         return yy_current_state;
1260         }
1261
1262
1263 /* yy_try_NUL_trans - try to make a transition on the NUL character
1264  *
1265  * synopsis
1266  *      next_state = yy_try_NUL_trans( current_state );
1267  */
1268
1269 #ifdef YY_USE_PROTOS
1270 static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
1271 #else
1272 static yy_state_type yy_try_NUL_trans( yy_current_state )
1273 yy_state_type yy_current_state;
1274 #endif
1275         {
1276         register int yy_is_jam;
1277         register char *yy_cp = yy_c_buf_p;
1278
1279         register YY_CHAR yy_c = 1;
1280         if ( yy_accept[yy_current_state] )
1281                 {
1282                 yy_last_accepting_state = yy_current_state;
1283                 yy_last_accepting_cpos = yy_cp;
1284                 }
1285         while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1286                 {
1287                 yy_current_state = (int) yy_def[yy_current_state];
1288                 if ( yy_current_state >= 177 )
1289                         yy_c = yy_meta[(unsigned int) yy_c];
1290                 }
1291         yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1292         yy_is_jam = (yy_current_state == 176);
1293
1294         return yy_is_jam ? 0 : yy_current_state;
1295         }
1296
1297
1298 #ifndef YY_NO_UNPUT
1299 #ifdef YY_USE_PROTOS
1300 static void yyunput( int c, register char *yy_bp )
1301 #else
1302 static void yyunput( c, yy_bp )
1303 int c;
1304 register char *yy_bp;
1305 #endif
1306         {
1307         register char *yy_cp = yy_c_buf_p;
1308
1309         /* undo effects of setting up yytext */
1310         *yy_cp = yy_hold_char;
1311
1312         if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
1313                 { /* need to shift things up to make room */
1314                 /* +2 for EOB chars. */
1315                 register int number_to_move = yy_n_chars + 2;
1316                 register char *dest = &yy_current_buffer->yy_ch_buf[
1317                                         yy_current_buffer->yy_buf_size + 2];
1318                 register char *source =
1319                                 &yy_current_buffer->yy_ch_buf[number_to_move];
1320
1321                 while ( source > yy_current_buffer->yy_ch_buf )
1322                         *--dest = *--source;
1323
1324                 yy_cp += (int) (dest - source);
1325                 yy_bp += (int) (dest - source);
1326                 yy_current_buffer->yy_n_chars =
1327                         yy_n_chars = yy_current_buffer->yy_buf_size;
1328
1329                 if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
1330                         YY_FATAL_ERROR( "flex scanner push-back overflow" );
1331                 }
1332
1333         *--yy_cp = (char) c;
1334
1335
1336         yytext_ptr = yy_bp;
1337         yy_hold_char = *yy_cp;
1338         yy_c_buf_p = yy_cp;
1339         }
1340 #endif  /* ifndef YY_NO_UNPUT */
1341
1342
1343 #ifdef __cplusplus
1344 static int yyinput()
1345 #else
1346 static int input()
1347 #endif
1348         {
1349         int c;
1350
1351         *yy_c_buf_p = yy_hold_char;
1352
1353         if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
1354                 {
1355                 /* yy_c_buf_p now points to the character we want to return.
1356                  * If this occurs *before* the EOB characters, then it's a
1357                  * valid NUL; if not, then we've hit the end of the buffer.
1358                  */
1359                 if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
1360                         /* This was really a NUL. */
1361                         *yy_c_buf_p = '\0';
1362
1363                 else
1364                         { /* need more input */
1365                         int offset = yy_c_buf_p - yytext_ptr;
1366                         ++yy_c_buf_p;
1367
1368                         switch ( yy_get_next_buffer() )
1369                                 {
1370                                 case EOB_ACT_LAST_MATCH:
1371                                         /* This happens because yy_g_n_b()
1372                                          * sees that we've accumulated a
1373                                          * token and flags that we need to
1374                                          * try matching the token before
1375                                          * proceeding.  But for input(),
1376                                          * there's no matching to consider.
1377                                          * So convert the EOB_ACT_LAST_MATCH
1378                                          * to EOB_ACT_END_OF_FILE.
1379                                          */
1380
1381                                         /* Reset buffer status. */
1382                                         yyrestart( yyin );
1383
1384                                         /* fall through */
1385
1386                                 case EOB_ACT_END_OF_FILE:
1387                                         {
1388                                         if ( yywrap() )
1389                                                 return EOF;
1390
1391                                         if ( ! yy_did_buffer_switch_on_eof )
1392                                                 YY_NEW_FILE;
1393 #ifdef __cplusplus
1394                                         return yyinput();
1395 #else
1396                                         return input();
1397 #endif
1398                                         }
1399
1400                                 case EOB_ACT_CONTINUE_SCAN:
1401                                         yy_c_buf_p = yytext_ptr + offset;
1402                                         break;
1403                                 }
1404                         }
1405                 }
1406
1407         c = *(unsigned char *) yy_c_buf_p;      /* cast for 8-bit char's */
1408         *yy_c_buf_p = '\0';     /* preserve yytext */
1409         yy_hold_char = *++yy_c_buf_p;
1410
1411
1412         return c;
1413         }
1414
1415
1416 #ifdef YY_USE_PROTOS
1417 void yyrestart( FILE *input_file )
1418 #else
1419 void yyrestart( input_file )
1420 FILE *input_file;
1421 #endif
1422         {
1423         if ( ! yy_current_buffer )
1424                 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
1425
1426         yy_init_buffer( yy_current_buffer, input_file );
1427         yy_load_buffer_state();
1428         }
1429
1430
1431 #ifdef YY_USE_PROTOS
1432 void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
1433 #else
1434 void yy_switch_to_buffer( new_buffer )
1435 YY_BUFFER_STATE new_buffer;
1436 #endif
1437         {
1438         if ( yy_current_buffer == new_buffer )
1439                 return;
1440
1441         if ( yy_current_buffer )
1442                 {
1443                 /* Flush out information for old buffer. */
1444                 *yy_c_buf_p = yy_hold_char;
1445                 yy_current_buffer->yy_buf_pos = yy_c_buf_p;
1446                 yy_current_buffer->yy_n_chars = yy_n_chars;
1447                 }
1448
1449         yy_current_buffer = new_buffer;
1450         yy_load_buffer_state();
1451
1452         /* We don't actually know whether we did this switch during
1453          * EOF (yywrap()) processing, but the only time this flag
1454          * is looked at is after yywrap() is called, so it's safe
1455          * to go ahead and always set it.
1456          */
1457         yy_did_buffer_switch_on_eof = 1;
1458         }
1459
1460
1461 #ifdef YY_USE_PROTOS
1462 void yy_load_buffer_state( void )
1463 #else
1464 void yy_load_buffer_state()
1465 #endif
1466         {
1467         yy_n_chars = yy_current_buffer->yy_n_chars;
1468         yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
1469         yyin = yy_current_buffer->yy_input_file;
1470         yy_hold_char = *yy_c_buf_p;
1471         }
1472
1473
1474 #ifdef YY_USE_PROTOS
1475 YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
1476 #else
1477 YY_BUFFER_STATE yy_create_buffer( file, size )
1478 FILE *file;
1479 int size;
1480 #endif
1481         {
1482         YY_BUFFER_STATE b;
1483
1484         b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
1485         if ( ! b )
1486                 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1487
1488         b->yy_buf_size = size;
1489
1490         /* yy_ch_buf has to be 2 characters longer than the size given because
1491          * we need to put in 2 end-of-buffer characters.
1492          */
1493         b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
1494         if ( ! b->yy_ch_buf )
1495                 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1496
1497         b->yy_is_our_buffer = 1;
1498
1499         yy_init_buffer( b, file );
1500
1501         return b;
1502         }
1503
1504
1505 #ifdef YY_USE_PROTOS
1506 void yy_delete_buffer( YY_BUFFER_STATE b )
1507 #else
1508 void yy_delete_buffer( b )
1509 YY_BUFFER_STATE b;
1510 #endif
1511         {
1512         if ( ! b )
1513                 return;
1514
1515         if ( b == yy_current_buffer )
1516                 yy_current_buffer = (YY_BUFFER_STATE) 0;
1517
1518         if ( b->yy_is_our_buffer )
1519                 yy_flex_free( (void *) b->yy_ch_buf );
1520
1521         yy_flex_free( (void *) b );
1522         }
1523
1524
1525 #ifndef _WIN32
1526 #include <unistd.h>
1527 #else
1528 #ifndef YY_ALWAYS_INTERACTIVE
1529 #ifndef YY_NEVER_INTERACTIVE
1530 extern int isatty YY_PROTO(( int ));
1531 #endif
1532 #endif
1533 #endif
1534
1535 #ifdef YY_USE_PROTOS
1536 void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
1537 #else
1538 void yy_init_buffer( b, file )
1539 YY_BUFFER_STATE b;
1540 FILE *file;
1541 #endif
1542
1543
1544         {
1545         yy_flush_buffer( b );
1546
1547         b->yy_input_file = file;
1548         b->yy_fill_buffer = 1;
1549
1550 #if YY_ALWAYS_INTERACTIVE
1551         b->yy_is_interactive = 1;
1552 #else
1553 #if YY_NEVER_INTERACTIVE
1554         b->yy_is_interactive = 0;
1555 #else
1556         b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
1557 #endif
1558 #endif
1559         }
1560
1561
1562 #ifdef YY_USE_PROTOS
1563 void yy_flush_buffer( YY_BUFFER_STATE b )
1564 #else
1565 void yy_flush_buffer( b )
1566 YY_BUFFER_STATE b;
1567 #endif
1568
1569         {
1570         if ( ! b )
1571                 return;
1572
1573         b->yy_n_chars = 0;
1574
1575         /* We always need two end-of-buffer characters.  The first causes
1576          * a transition to the end-of-buffer state.  The second causes
1577          * a jam in that state.
1578          */
1579         b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
1580         b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
1581
1582         b->yy_buf_pos = &b->yy_ch_buf[0];
1583
1584         b->yy_at_bol = 1;
1585         b->yy_buffer_status = YY_BUFFER_NEW;
1586
1587         if ( b == yy_current_buffer )
1588                 yy_load_buffer_state();
1589         }
1590
1591
1592 #ifndef YY_NO_SCAN_BUFFER
1593 #ifdef YY_USE_PROTOS
1594 YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
1595 #else
1596 YY_BUFFER_STATE yy_scan_buffer( base, size )
1597 char *base;
1598 yy_size_t size;
1599 #endif
1600         {
1601         YY_BUFFER_STATE b;
1602
1603         if ( size < 2 ||
1604              base[size-2] != YY_END_OF_BUFFER_CHAR ||
1605              base[size-1] != YY_END_OF_BUFFER_CHAR )
1606                 /* They forgot to leave room for the EOB's. */
1607                 return 0;
1608
1609         b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
1610         if ( ! b )
1611                 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
1612
1613         b->yy_buf_size = size - 2;      /* "- 2" to take care of EOB's */
1614         b->yy_buf_pos = b->yy_ch_buf = base;
1615         b->yy_is_our_buffer = 0;
1616         b->yy_input_file = 0;
1617         b->yy_n_chars = b->yy_buf_size;
1618         b->yy_is_interactive = 0;
1619         b->yy_at_bol = 1;
1620         b->yy_fill_buffer = 0;
1621         b->yy_buffer_status = YY_BUFFER_NEW;
1622
1623         yy_switch_to_buffer( b );
1624
1625         return b;
1626         }
1627 #endif
1628
1629
1630 #ifndef YY_NO_SCAN_STRING
1631 #ifdef YY_USE_PROTOS
1632 YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
1633 #else
1634 YY_BUFFER_STATE yy_scan_string( yy_str )
1635 yyconst char *yy_str;
1636 #endif
1637         {
1638         int len;
1639         for ( len = 0; yy_str[len]; ++len )
1640                 ;
1641
1642         return yy_scan_bytes( yy_str, len );
1643         }
1644 #endif
1645
1646
1647 #ifndef YY_NO_SCAN_BYTES
1648 #ifdef YY_USE_PROTOS
1649 YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
1650 #else
1651 YY_BUFFER_STATE yy_scan_bytes( bytes, len )
1652 yyconst char *bytes;
1653 int len;
1654 #endif
1655         {
1656         YY_BUFFER_STATE b;
1657         char *buf;
1658         yy_size_t n;
1659         int i;
1660
1661         /* Get memory for full buffer, including space for trailing EOB's. */
1662         n = len + 2;
1663         buf = (char *) yy_flex_alloc( n );
1664         if ( ! buf )
1665                 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
1666
1667         for ( i = 0; i < len; ++i )
1668                 buf[i] = bytes[i];
1669
1670         buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
1671
1672         b = yy_scan_buffer( buf, n );
1673         if ( ! b )
1674                 YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
1675
1676         /* It's okay to grow etc. this buffer, and we should throw it
1677          * away when we're done.
1678          */
1679         b->yy_is_our_buffer = 1;
1680
1681         return b;
1682         }
1683 #endif
1684
1685
1686 #ifndef YY_NO_PUSH_STATE
1687 #ifdef YY_USE_PROTOS
1688 static void yy_push_state( int new_state )
1689 #else
1690 static void yy_push_state( new_state )
1691 int new_state;
1692 #endif
1693         {
1694         if ( yy_start_stack_ptr >= yy_start_stack_depth )
1695                 {
1696                 yy_size_t new_size;
1697
1698                 yy_start_stack_depth += YY_START_STACK_INCR;
1699                 new_size = yy_start_stack_depth * sizeof( int );
1700
1701                 if ( ! yy_start_stack )
1702                         yy_start_stack = (int *) yy_flex_alloc( new_size );
1703
1704                 else
1705                         yy_start_stack = (int *) yy_flex_realloc(
1706                                         (void *) yy_start_stack, new_size );
1707
1708                 if ( ! yy_start_stack )
1709                         YY_FATAL_ERROR(
1710                         "out of memory expanding start-condition stack" );
1711                 }
1712
1713         yy_start_stack[yy_start_stack_ptr++] = YY_START;
1714
1715         BEGIN(new_state);
1716         }
1717 #endif
1718
1719
1720 #ifndef YY_NO_POP_STATE
1721 static void yy_pop_state()
1722         {
1723         if ( --yy_start_stack_ptr < 0 )
1724                 YY_FATAL_ERROR( "start-condition stack underflow" );
1725
1726         BEGIN(yy_start_stack[yy_start_stack_ptr]);
1727         }
1728 #endif
1729
1730
1731 #ifndef YY_NO_TOP_STATE
1732 static int yy_top_state()
1733         {
1734         return yy_start_stack[yy_start_stack_ptr - 1];
1735         }
1736 #endif
1737
1738 #ifndef YY_EXIT_FAILURE
1739 #define YY_EXIT_FAILURE 2
1740 #endif
1741
1742 #ifdef YY_USE_PROTOS
1743 static void yy_fatal_error( yyconst char msg[] )
1744 #else
1745 static void yy_fatal_error( msg )
1746 char msg[];
1747 #endif
1748         {
1749         (void) fprintf( stderr, "%s\n", msg );
1750         exit( YY_EXIT_FAILURE );
1751         }
1752
1753
1754
1755 /* Redefine yyless() so it works in section 3 code. */
1756
1757 #undef yyless
1758 #define yyless(n) \
1759         do \
1760                 { \
1761                 /* Undo effects of setting up yytext. */ \
1762                 yytext[yyleng] = yy_hold_char; \
1763                 yy_c_buf_p = yytext + n; \
1764                 yy_hold_char = *yy_c_buf_p; \
1765                 *yy_c_buf_p = '\0'; \
1766                 yyleng = n; \
1767                 } \
1768         while ( 0 )
1769
1770
1771 /* Internal utility routines. */
1772
1773 #ifndef yytext_ptr
1774 #ifdef YY_USE_PROTOS
1775 static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
1776 #else
1777 static void yy_flex_strncpy( s1, s2, n )
1778 char *s1;
1779 yyconst char *s2;
1780 int n;
1781 #endif
1782         {
1783         register int i;
1784         for ( i = 0; i < n; ++i )
1785                 s1[i] = s2[i];
1786         }
1787 #endif
1788
1789 #ifdef YY_NEED_STRLEN
1790 #ifdef YY_USE_PROTOS
1791 static int yy_flex_strlen( yyconst char *s )
1792 #else
1793 static int yy_flex_strlen( s )
1794 yyconst char *s;
1795 #endif
1796         {
1797         register int n;
1798         for ( n = 0; s[n]; ++n )
1799                 ;
1800
1801         return n;
1802         }
1803 #endif
1804
1805
1806 #ifdef YY_USE_PROTOS
1807 static void *yy_flex_alloc( yy_size_t size )
1808 #else
1809 static void *yy_flex_alloc( size )
1810 yy_size_t size;
1811 #endif
1812         {
1813         return (void *) malloc( size );
1814         }
1815
1816 #ifdef YY_USE_PROTOS
1817 static void *yy_flex_realloc( void *ptr, yy_size_t size )
1818 #else
1819 static void *yy_flex_realloc( ptr, size )
1820 void *ptr;
1821 yy_size_t size;
1822 #endif
1823         {
1824         /* The cast to (char *) in the following accommodates both
1825          * implementations that use char* generic pointers, and those
1826          * that use void* generic pointers.  It works with the latter
1827          * because both ANSI C and C++ allow castless assignment from
1828          * any pointer type to void*, and deal with argument conversions
1829          * as though doing an assignment.
1830          */
1831         return (void *) realloc( (char *) ptr, size );
1832         }
1833
1834 #ifdef YY_USE_PROTOS
1835 static void yy_flex_free( void *ptr )
1836 #else
1837 static void yy_flex_free( ptr )
1838 void *ptr;
1839 #endif
1840         {
1841         free( ptr );
1842         }
1843
1844 #if YY_MAIN
1845 int main()
1846         {
1847         yylex();
1848         return 0;
1849         }
1850 #endif
1851 #line 87 "arlex.l"
1852
1853 #ifndef yywrap
1854 /* Needed for lex, though not flex. */
1855 int yywrap() { return 1; }
1856 #endif