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 1892