crypto/heimdal/lib/com_err/lex.c

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