1#line 2 "scan-skel.c" 2 3#line 4 "scan-skel.c" 4 5#define YY_INT_ALIGNED short int 6 7/* A lexical scanner generated by flex */ 8 9/* %not-for-header */ 10 11/* %if-c-only */ 12/* %if-not-reentrant */ 13#define yy_create_buffer skel__create_buffer 14#define yy_delete_buffer skel__delete_buffer 15#define yy_flex_debug skel__flex_debug 16#define yy_init_buffer skel__init_buffer 17#define yy_flush_buffer skel__flush_buffer 18#define yy_load_buffer_state skel__load_buffer_state 19#define yy_switch_to_buffer skel__switch_to_buffer 20#define yyin skel_in 21#define yyleng skel_leng 22#define yylex skel_lex 23#define yylineno skel_lineno 24#define yyout skel_out 25#define yyrestart skel_restart 26#define yytext skel_text 27#define yywrap skel_wrap 28#define yyalloc skel_alloc 29#define yyrealloc skel_realloc 30#define yyfree skel_free 31 32/* %endif */ 33/* %endif */ 34/* %ok-for-header */ 35 36#define FLEX_SCANNER 37#define YY_FLEX_MAJOR_VERSION 2 38#define YY_FLEX_MINOR_VERSION 5 39#define YY_FLEX_SUBMINOR_VERSION 37 40#if YY_FLEX_SUBMINOR_VERSION > 0 41#define FLEX_BETA 42#endif 43 44/* %if-c++-only */ 45/* %endif */ 46 47/* %if-c-only */ 48 49/* %endif */ 50 51/* %if-c-only */ 52 53/* %endif */ 54 55/* First, we deal with platform-specific or compiler-specific issues. */ 56 57/* begin standard C headers. */ 58/* %if-c-only */ 59#include <stdio.h> 60#include <string.h> 61#include <errno.h> 62#include <stdlib.h> 63/* %endif */ 64 65/* %if-tables-serialization */ 66/* %endif */ 67/* end standard C headers. */ 68 69/* %if-c-or-c++ */ 70/* flex integer type definitions */ 71 72#ifndef FLEXINT_H 73#define FLEXINT_H 74 75/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */ 76 77#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L 78 79/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, 80 * if you want the limit (max/min) macros for int types. 81 */ 82#ifndef __STDC_LIMIT_MACROS 83#define __STDC_LIMIT_MACROS 1 84#endif 85 86#include <inttypes.h> 87typedef int8_t flex_int8_t; 88typedef uint8_t flex_uint8_t; 89typedef int16_t flex_int16_t; 90typedef uint16_t flex_uint16_t; 91typedef int32_t flex_int32_t; 92typedef uint32_t flex_uint32_t; 93#else 94typedef signed char flex_int8_t; 95typedef short int flex_int16_t; 96typedef int flex_int32_t; 97typedef unsigned char flex_uint8_t; 98typedef unsigned short int flex_uint16_t; 99typedef unsigned int flex_uint32_t; 100 101/* Limits of integral types. */ 102#ifndef INT8_MIN 103#define INT8_MIN (-128) 104#endif 105#ifndef INT16_MIN 106#define INT16_MIN (-32767-1) 107#endif 108#ifndef INT32_MIN 109#define INT32_MIN (-2147483647-1) 110#endif 111#ifndef INT8_MAX 112#define INT8_MAX (127) 113#endif 114#ifndef INT16_MAX 115#define INT16_MAX (32767) 116#endif 117#ifndef INT32_MAX 118#define INT32_MAX (2147483647) 119#endif 120#ifndef UINT8_MAX 121#define UINT8_MAX (255U) 122#endif 123#ifndef UINT16_MAX 124#define UINT16_MAX (65535U) 125#endif 126#ifndef UINT32_MAX 127#define UINT32_MAX (4294967295U) 128#endif 129 130#endif /* ! C99 */ 131 132#endif /* ! FLEXINT_H */ 133 134/* %endif */ 135 136/* %if-c++-only */ 137/* %endif */ 138 139#ifdef __cplusplus 140 141/* The "const" storage-class-modifier is valid. */ 142#define YY_USE_CONST 143 144#else /* ! __cplusplus */ 145 146/* C99 requires __STDC__ to be defined as 1. */ 147#if defined (__STDC__) 148 149#define YY_USE_CONST 150 151#endif /* defined (__STDC__) */ 152#endif /* ! __cplusplus */ 153 154#ifdef YY_USE_CONST 155#define yyconst const 156#else 157#define yyconst 158#endif 159 160/* %not-for-header */ 161 162/* Returned upon end-of-file. */ 163#define YY_NULL 0 164/* %ok-for-header */ 165 166/* %not-for-header */ 167 168/* Promotes a possibly negative, possibly signed char to an unsigned 169 * integer for use as an array index. If the signed char is negative, 170 * we want to instead treat it as an 8-bit unsigned char, hence the 171 * double cast. 172 */ 173#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) 174/* %ok-for-header */ 175 176/* %if-reentrant */ 177/* %endif */ 178 179/* %if-not-reentrant */ 180 181/* %endif */ 182 183/* Enter a start condition. This macro really ought to take a parameter, 184 * but we do it the disgusting crufty way forced on us by the ()-less 185 * definition of BEGIN. 186 */ 187#define BEGIN (yy_start) = 1 + 2 * 188 189/* Translate the current start state into a value that can be later handed 190 * to BEGIN to return to the state. The YYSTATE alias is for lex 191 * compatibility. 192 */ 193#define YY_START (((yy_start) - 1) / 2) 194#define YYSTATE YY_START 195 196/* Action number for EOF rule of a given start state. */ 197#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) 198 199/* Special action meaning "start processing a new file". */ 200#define YY_NEW_FILE skel_restart(skel_in ) 201 202#define YY_END_OF_BUFFER_CHAR 0 203 204/* Size of default input buffer. */ 205#ifndef YY_BUF_SIZE 206#define YY_BUF_SIZE 16384 207#endif 208 209/* The state buf must be large enough to hold one state per character in the main buffer. 210 */ 211#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type)) 212 213#ifndef YY_TYPEDEF_YY_BUFFER_STATE 214#define YY_TYPEDEF_YY_BUFFER_STATE 215typedef struct yy_buffer_state *YY_BUFFER_STATE; 216#endif 217 218#ifndef YY_TYPEDEF_YY_SIZE_T 219#define YY_TYPEDEF_YY_SIZE_T 220typedef size_t yy_size_t; 221#endif 222 223/* %if-not-reentrant */ 224extern yy_size_t skel_leng; 225/* %endif */ 226 227/* %if-c-only */ 228/* %if-not-reentrant */ 229extern FILE *skel_in, *skel_out; 230/* %endif */ 231/* %endif */ 232 233#define EOB_ACT_CONTINUE_SCAN 0 234#define EOB_ACT_END_OF_FILE 1 235#define EOB_ACT_LAST_MATCH 2 236 237 #define YY_LESS_LINENO(n) 238 239/* Return all but the first "n" matched characters back to the input stream. */ 240#define yyless(n) \ 241 do \ 242 { \ 243 /* Undo effects of setting up skel_text. */ \ 244 int yyless_macro_arg = (n); \ 245 YY_LESS_LINENO(yyless_macro_arg);\ 246 *yy_cp = (yy_hold_char); \ 247 YY_RESTORE_YY_MORE_OFFSET \ 248 (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ 249 YY_DO_BEFORE_ACTION; /* set up skel_text again */ \ 250 } \ 251 while ( 0 ) 252 253#define unput(c) yyunput( c, (yytext_ptr) ) 254 255#ifndef YY_STRUCT_YY_BUFFER_STATE 256#define YY_STRUCT_YY_BUFFER_STATE 257struct yy_buffer_state 258 { 259/* %if-c-only */ 260 FILE *yy_input_file; 261/* %endif */ 262 263/* %if-c++-only */ 264/* %endif */ 265 266 char *yy_ch_buf; /* input buffer */ 267 char *yy_buf_pos; /* current position in input buffer */ 268 269 /* Size of input buffer in bytes, not including room for EOB 270 * characters. 271 */ 272 yy_size_t yy_buf_size; 273 274 /* Number of characters read into yy_ch_buf, not including EOB 275 * characters. 276 */ 277 yy_size_t yy_n_chars; 278 279 /* Whether we "own" the buffer - i.e., we know we created it, 280 * and can realloc() it to grow it, and should free() it to 281 * delete it. 282 */ 283 int yy_is_our_buffer; 284 285 /* Whether this is an "interactive" input source; if so, and 286 * if we're using stdio for input, then we want to use getc() 287 * instead of fread(), to make sure we stop fetching input after 288 * each newline. 289 */ 290 int yy_is_interactive; 291 292 /* Whether we're considered to be at the beginning of a line. 293 * If so, '^' rules will be active on the next match, otherwise 294 * not. 295 */ 296 int yy_at_bol; 297 298 int yy_bs_lineno; /**< The line count. */ 299 int yy_bs_column; /**< The column count. */ 300 301 /* Whether to try to fill the input buffer when we reach the 302 * end of it. 303 */ 304 int yy_fill_buffer; 305 306 int yy_buffer_status; 307 308#define YY_BUFFER_NEW 0 309#define YY_BUFFER_NORMAL 1 310 /* When an EOF's been seen but there's still some text to process 311 * then we mark the buffer as YY_EOF_PENDING, to indicate that we 312 * shouldn't try reading from the input source any more. We might 313 * still have a bunch of tokens to match, though, because of 314 * possible backing-up. 315 * 316 * When we actually see the EOF, we change the status to "new" 317 * (via skel_restart()), so that the user can continue scanning by 318 * just pointing skel_in at a new input file. 319 */ 320#define YY_BUFFER_EOF_PENDING 2 321 322 }; 323#endif /* !YY_STRUCT_YY_BUFFER_STATE */ 324 325/* %if-c-only Standard (non-C++) definition */ 326/* %not-for-header */ 327 328/* %if-not-reentrant */ 329 330/* Stack of input buffers. */ 331static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ 332static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ 333static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */ 334/* %endif */ 335/* %ok-for-header */ 336 337/* %endif */ 338 339/* We provide macros for accessing buffer states in case in the 340 * future we want to put the buffer states in a more general 341 * "scanner state". 342 * 343 * Returns the top of the stack, or NULL. 344 */ 345#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ 346 ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ 347 : NULL) 348 349/* Same as previous macro, but useful when we know that the buffer stack is not 350 * NULL or when we need an lvalue. For internal use only. 351 */ 352#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] 353 354/* %if-c-only Standard (non-C++) definition */ 355 356/* %if-not-reentrant */ 357/* %not-for-header */ 358 359/* yy_hold_char holds the character lost when skel_text is formed. */ 360static char yy_hold_char; 361static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */ 362yy_size_t skel_leng; 363 364/* Points to current character in buffer. */ 365static char *yy_c_buf_p = (char *) 0; 366static int yy_init = 0; /* whether we need to initialize */ 367static int yy_start = 0; /* start state number */ 368 369/* Flag which is used to allow skel_wrap()'s to do buffer switches 370 * instead of setting up a fresh skel_in. A bit of a hack ... 371 */ 372static int yy_did_buffer_switch_on_eof; 373/* %ok-for-header */ 374 375/* %endif */ 376 377void skel_restart (FILE *input_file ); 378void skel__switch_to_buffer (YY_BUFFER_STATE new_buffer ); 379YY_BUFFER_STATE skel__create_buffer (FILE *file,int size ); 380void skel__delete_buffer (YY_BUFFER_STATE b ); 381void skel__flush_buffer (YY_BUFFER_STATE b ); 382void skel_push_buffer_state (YY_BUFFER_STATE new_buffer ); 383void skel_pop_buffer_state (void ); 384 385static void skel_ensure_buffer_stack (void ); 386static void skel__load_buffer_state (void ); 387static void skel__init_buffer (YY_BUFFER_STATE b,FILE *file ); 388 389#define YY_FLUSH_BUFFER skel__flush_buffer(YY_CURRENT_BUFFER ) 390 391YY_BUFFER_STATE skel__scan_buffer (char *base,yy_size_t size ); 392YY_BUFFER_STATE skel__scan_string (yyconst char *yy_str ); 393YY_BUFFER_STATE skel__scan_bytes (yyconst char *bytes,yy_size_t len ); 394 395/* %endif */ 396 397void *skel_alloc (yy_size_t ); 398void *skel_realloc (void *,yy_size_t ); 399void skel_free (void * ); 400 401#define yy_new_buffer skel__create_buffer 402 403#define yy_set_interactive(is_interactive) \ 404 { \ 405 if ( ! YY_CURRENT_BUFFER ){ \ 406 skel_ensure_buffer_stack (); \ 407 YY_CURRENT_BUFFER_LVALUE = \ 408 skel__create_buffer(skel_in,YY_BUF_SIZE ); \ 409 } \ 410 YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ 411 } 412 413#define yy_set_bol(at_bol) \ 414 { \ 415 if ( ! YY_CURRENT_BUFFER ){\ 416 skel_ensure_buffer_stack (); \ 417 YY_CURRENT_BUFFER_LVALUE = \ 418 skel__create_buffer(skel_in,YY_BUF_SIZE ); \ 419 } \ 420 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ 421 } 422 423#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) 424 425/* %% [1.0] skel_text/skel_in/skel_out/yy_state_type/skel_lineno etc. def's & init go here */ 426/* Begin user sect3 */ 427 428#define skel_wrap() 1 429#define YY_SKIP_YYWRAP 430 431#define FLEX_DEBUG 432 433typedef unsigned char YY_CHAR; 434 435FILE *skel_in = (FILE *) 0, *skel_out = (FILE *) 0; 436 437typedef int yy_state_type; 438 439extern int skel_lineno; 440 441int skel_lineno = 1; 442 443extern char *skel_text; 444#define yytext_ptr skel_text 445 446/* %if-c-only Standard (non-C++) definition */ 447 448static yy_state_type yy_get_previous_state (void ); 449static yy_state_type yy_try_NUL_trans (yy_state_type current_state ); 450static int yy_get_next_buffer (void ); 451static void yy_fatal_error (yyconst char msg[] ); 452 453/* %endif */ 454 455/* Done after the current pattern has been matched and before the 456 * corresponding action - sets up skel_text. 457 */ 458#define YY_DO_BEFORE_ACTION \ 459 (yytext_ptr) = yy_bp; \ 460/* %% [2.0] code to fiddle skel_text and skel_leng for yymore() goes here \ */\ 461 skel_leng = (size_t) (yy_cp - yy_bp); \ 462 (yy_hold_char) = *yy_cp; \ 463 *yy_cp = '\0'; \ 464/* %% [3.0] code to copy yytext_ptr to skel_text[] goes here, if %array \ */\ 465 (yy_c_buf_p) = yy_cp; 466 467/* %% [4.0] data tables for the DFA and the user's section 1 definitions go here */ 468#define YY_NUM_RULES 22 469#define YY_END_OF_BUFFER 23 470/* This struct is not used in this scanner, 471 but its presence is necessary. */ 472struct yy_trans_info 473 { 474 flex_int32_t yy_verify; 475 flex_int32_t yy_nxt; 476 }; 477static yyconst flex_int16_t yy_accept[45] = 478 { 0, 479 0, 0, 0, 0, 0, 0, 23, 11, 10, 9, 480 12, 19, 21, 20, 20, 11, 9, 5, 1, 9, 481 4, 9, 2, 3, 12, 19, 17, 18, 13, 16, 482 14, 15, 8, 9, 9, 9, 9, 9, 9, 9, 483 9, 7, 6, 0 484 } ; 485 486static yyconst flex_int32_t yy_ec[256] = 487 { 0, 488 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 489 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 490 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 491 1, 2, 1, 1, 1, 1, 1, 1, 1, 4, 492 5, 1, 1, 5, 1, 1, 1, 1, 1, 1, 493 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 494 1, 1, 1, 6, 1, 1, 1, 1, 1, 1, 495 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 496 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 497 1, 1, 1, 1, 7, 8, 7, 7, 7, 7, 498 499 9, 10, 7, 7, 11, 7, 7, 12, 7, 13, 500 14, 7, 7, 7, 7, 7, 7, 7, 7, 7, 501 7, 7, 15, 1, 16, 1, 1, 1, 1, 1, 502 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 503 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 504 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 505 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 506 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 507 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 508 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 509 510 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 511 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 512 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 513 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 514 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 515 1, 1, 1, 1, 1 516 } ; 517 518static yyconst flex_int32_t yy_meta[17] = 519 { 0, 520 1, 1, 2, 3, 1, 4, 1, 5, 1, 1, 521 1, 1, 1, 1, 5, 5 522 } ; 523 524static yyconst flex_int16_t yy_base[53] = 525 { 0, 526 0, 1, 60, 26, 6, 8, 29, 0, 105, 11, 527 0, 25, 105, 105, 105, 0, 0, 105, 105, 41, 528 105, 46, 105, 105, 0, 105, 105, 105, 105, 105, 529 105, 105, 105, 60, 4, 23, 25, 28, 43, 38, 530 57, 105, 105, 105, 71, 76, 81, 86, 91, 96, 531 0, 101 532 } ; 533 534static yyconst flex_int16_t yy_def[53] = 535 { 0, 536 45, 45, 46, 46, 47, 47, 44, 48, 44, 44, 537 49, 50, 44, 44, 44, 48, 51, 44, 44, 52, 538 44, 44, 44, 44, 49, 44, 44, 44, 44, 44, 539 44, 44, 44, 52, 34, 34, 34, 34, 34, 34, 540 34, 44, 44, 0, 44, 44, 44, 44, 44, 44, 541 44, 44 542 } ; 543 544static yyconst flex_int16_t yy_nxt[122] = 545 { 0, 546 17, 44, 9, 9, 44, 10, 10, 14, 15, 14, 547 15, 17, 17, 18, 37, 17, 19, 20, 21, 20, 548 20, 20, 20, 20, 22, 23, 24, 27, 44, 28, 549 29, 12, 30, 20, 38, 20, 40, 39, 20, 31, 550 32, 17, 17, 42, 33, 17, 17, 17, 20, 33, 551 17, 41, 20, 20, 20, 34, 20, 35, 20, 20, 552 17, 17, 43, 33, 17, 12, 44, 20, 44, 44, 553 36, 8, 8, 8, 8, 8, 11, 11, 11, 11, 554 11, 13, 13, 13, 13, 13, 16, 44, 16, 44, 555 16, 25, 25, 25, 44, 25, 26, 26, 26, 26, 556 557 26, 20, 44, 20, 7, 44, 44, 44, 44, 44, 558 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 559 44 560 } ; 561 562static yyconst flex_int16_t yy_chk[122] = 563 { 0, 564 51, 0, 1, 2, 0, 1, 2, 5, 5, 6, 565 6, 10, 10, 10, 35, 10, 10, 10, 10, 10, 566 10, 10, 10, 10, 10, 10, 10, 12, 7, 12, 567 12, 4, 12, 36, 36, 37, 38, 37, 38, 12, 568 12, 20, 20, 40, 20, 20, 22, 22, 40, 22, 569 22, 39, 22, 39, 22, 22, 22, 22, 22, 22, 570 34, 34, 41, 34, 34, 3, 0, 41, 0, 0, 571 34, 45, 45, 45, 45, 45, 46, 46, 46, 46, 572 46, 47, 47, 47, 47, 47, 48, 0, 48, 0, 573 48, 49, 49, 49, 0, 49, 50, 50, 50, 50, 574 575 50, 52, 0, 52, 44, 44, 44, 44, 44, 44, 576 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 577 44 578 } ; 579 580static yy_state_type yy_last_accepting_state; 581static char *yy_last_accepting_cpos; 582 583extern int skel__flex_debug; 584int skel__flex_debug = 1; 585 586static yyconst flex_int16_t yy_rule_linenum[22] = 587 { 0, 588 72, 73, 74, 75, 76, 78, 79, 81, 90, 91, 589 92, 105, 107, 108, 109, 110, 111, 113, 134, 139, 590 140 591 } ; 592 593/* The intent behind this definition is that it'll catch 594 * any uses of REJECT which flex missed. 595 */ 596#define REJECT reject_used_but_not_detected 597#define yymore() yymore_used_but_not_detected 598#define YY_MORE_ADJ 0 599#define YY_RESTORE_YY_MORE_OFFSET 600char *skel_text; 601#line 1 "scan-skel.l" 602/* Scan Bison Skeletons. -*- C -*- 603 604 Copyright (C) 2001-2007, 2009-2012 Free Software Foundation, Inc. 605 606 This file is part of Bison, the GNU Compiler Compiler. 607 608 This program is free software: you can redistribute it and/or modify 609 it under the terms of the GNU General Public License as published by 610 the Free Software Foundation, either version 3 of the License, or 611 (at your option) any later version. 612 613 This program is distributed in the hope that it will be useful, 614 but WITHOUT ANY WARRANTY; without even the implied warranty of 615 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 616 GNU General Public License for more details. 617 618 You should have received a copy of the GNU General Public License 619 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 620#define YY_NO_INPUT 1 621#line 24 "scan-skel.l" 622/* Work around a bug in flex 2.5.31. See Debian bug 333231 623 <http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=333231>. */ 624#undef skel_wrap 625#define skel_wrap() 1 626 627#define FLEX_PREFIX(Id) skel_ ## Id 628#include "flex-scanner.h" 629 630#include <dirname.h> 631#include <error.h> 632#include <quotearg.h> 633 634#include "complain.h" 635#include "getargs.h" 636#include "files.h" 637#include "scan-skel.h" 638 639#define YY_DECL static int skel_lex (void) 640YY_DECL; 641 642#define QPUTS(String) \ 643 fputs (quotearg_style (c_quoting_style, String), skel_out) 644 645static void at_directive_perform (int at_directive_argc, 646 char *at_directive_argv[], 647 char **outnamep, int *out_linenop); 648static void fail_for_at_directive_too_many_args (char const *at_directive_name); 649static void fail_for_at_directive_too_few_args (char const *at_directive_name); 650static void fail_for_invalid_at (char const *at); 651 652 653#line 654 "scan-skel.c" 654 655#define INITIAL 0 656#define SC_AT_DIRECTIVE_ARGS 1 657#define SC_AT_DIRECTIVE_SKIP_WS 2 658 659#ifndef YY_NO_UNISTD_H 660/* Special case for "unistd.h", since it is non-ANSI. We include it way 661 * down here because we want the user's section 1 to have been scanned first. 662 * The user has a chance to override it with an option. 663 */ 664/* %if-c-only */ 665#include <unistd.h> 666/* %endif */ 667/* %if-c++-only */ 668/* %endif */ 669#endif 670 671#ifndef YY_EXTRA_TYPE 672#define YY_EXTRA_TYPE void * 673#endif 674 675/* %if-c-only Reentrant structure and macros (non-C++). */ 676/* %if-reentrant */ 677/* %if-c-only */ 678 679static int yy_init_globals (void ); 680 681/* %endif */ 682/* %if-reentrant */ 683/* %endif */ 684/* %endif End reentrant structures and macros. */ 685 686/* Accessor methods to globals. 687 These are made visible to non-reentrant scanners for convenience. */ 688 689int skel_lex_destroy (void ); 690 691int skel_get_debug (void ); 692 693void skel_set_debug (int debug_flag ); 694 695YY_EXTRA_TYPE skel_get_extra (void ); 696 697void skel_set_extra (YY_EXTRA_TYPE user_defined ); 698 699FILE *skel_get_in (void ); 700 701void skel_set_in (FILE * in_str ); 702 703FILE *skel_get_out (void ); 704 705void skel_set_out (FILE * out_str ); 706 707yy_size_t skel_get_leng (void ); 708 709char *skel_get_text (void ); 710 711int skel_get_lineno (void ); 712 713void skel_set_lineno (int line_number ); 714 715/* %if-bison-bridge */ 716/* %endif */ 717 718/* Macros after this point can all be overridden by user definitions in 719 * section 1. 720 */ 721 722#ifndef YY_SKIP_YYWRAP 723#ifdef __cplusplus 724extern "C" int skel_wrap (void ); 725#else 726extern int skel_wrap (void ); 727#endif 728#endif 729 730/* %not-for-header */ 731 732/* %ok-for-header */ 733 734/* %endif */ 735 736#ifndef yytext_ptr 737static void yy_flex_strncpy (char *,yyconst char *,int ); 738#endif 739 740#ifdef YY_NEED_STRLEN 741static int yy_flex_strlen (yyconst char * ); 742#endif 743 744#ifndef YY_NO_INPUT 745/* %if-c-only Standard (non-C++) definition */ 746/* %not-for-header */ 747 748#ifdef __cplusplus 749static int yyinput (void ); 750#else 751static int input (void ); 752#endif 753/* %ok-for-header */ 754 755/* %endif */ 756#endif 757 758/* %if-c-only */ 759 760/* %endif */ 761 762/* Amount of stuff to slurp up with each read. */ 763#ifndef YY_READ_BUF_SIZE 764#define YY_READ_BUF_SIZE 8192 765#endif 766 767/* Copy whatever the last rule matched to the standard output. */ 768#ifndef ECHO 769/* %if-c-only Standard (non-C++) definition */ 770/* This used to be an fputs(), but since the string might contain NUL's, 771 * we now use fwrite(). 772 */ 773#define ECHO do { if (fwrite( skel_text, skel_leng, 1, skel_out )) {} } while (0) 774/* %endif */ 775/* %if-c++-only C++ definition */ 776/* %endif */ 777#endif 778 779/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, 780 * is returned in "result". 781 */ 782#ifndef YY_INPUT 783#define YY_INPUT(buf,result,max_size) \ 784/* %% [5.0] fread()/read() definition of YY_INPUT goes here unless we're doing C++ \ */\ 785 if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ 786 { \ 787 int c = '*'; \ 788 size_t n; \ 789 for ( n = 0; n < max_size && \ 790 (c = getc( skel_in )) != EOF && c != '\n'; ++n ) \ 791 buf[n] = (char) c; \ 792 if ( c == '\n' ) \ 793 buf[n++] = (char) c; \ 794 if ( c == EOF && ferror( skel_in ) ) \ 795 YY_FATAL_ERROR( "input in flex scanner failed" ); \ 796 result = n; \ 797 } \ 798 else \ 799 { \ 800 errno=0; \ 801 while ( (result = fread(buf, 1, max_size, skel_in))==0 && ferror(skel_in)) \ 802 { \ 803 if( errno != EINTR) \ 804 { \ 805 YY_FATAL_ERROR( "input in flex scanner failed" ); \ 806 break; \ 807 } \ 808 errno=0; \ 809 clearerr(skel_in); \ 810 } \ 811 }\ 812\ 813/* %if-c++-only C++ definition \ */\ 814/* %endif */ 815 816#endif 817 818/* No semi-colon after return; correct usage is to write "yyterminate();" - 819 * we don't want an extra ';' after the "return" because that will cause 820 * some compilers to complain about unreachable statements. 821 */ 822#ifndef yyterminate 823#define yyterminate() return YY_NULL 824#endif 825 826/* Number of entries by which start-condition stack grows. */ 827#ifndef YY_START_STACK_INCR 828#define YY_START_STACK_INCR 25 829#endif 830 831/* Report a fatal error. */ 832#ifndef YY_FATAL_ERROR 833/* %if-c-only */ 834#define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) 835/* %endif */ 836/* %if-c++-only */ 837/* %endif */ 838#endif 839 840/* %if-tables-serialization structures and prototypes */ 841/* %not-for-header */ 842 843/* %ok-for-header */ 844 845/* %not-for-header */ 846 847/* %tables-yydmap generated elements */ 848/* %endif */ 849/* end tables serialization structures and prototypes */ 850 851/* %ok-for-header */ 852 853/* Default declaration of generated scanner - a define so the user can 854 * easily add parameters. 855 */ 856#ifndef YY_DECL 857#define YY_DECL_IS_OURS 1 858/* %if-c-only Standard (non-C++) definition */ 859 860extern int skel_lex (void); 861 862#define YY_DECL int skel_lex (void) 863/* %endif */ 864/* %if-c++-only C++ definition */ 865/* %endif */ 866#endif /* !YY_DECL */ 867 868/* Code executed at the beginning of each rule, after skel_text and skel_leng 869 * have been set up. 870 */ 871#ifndef YY_USER_ACTION 872#define YY_USER_ACTION 873#endif 874 875/* Code executed at the end of each rule. */ 876#ifndef YY_BREAK 877#define YY_BREAK break; 878#endif 879 880/* %% [6.0] YY_RULE_SETUP definition goes here */ 881#define YY_RULE_SETUP \ 882 YY_USER_ACTION 883 884/* %not-for-header */ 885 886/** The main scanner function which does all the work. 887 */ 888YY_DECL 889{ 890 register yy_state_type yy_current_state; 891 register char *yy_cp, *yy_bp; 892 register int yy_act; 893 894/* %% [7.0] user's declarations go here */ 895#line 58 "scan-skel.l" 896 897 898 899 int out_lineno PACIFY_CC (= 0); 900 char *outname = NULL; 901 902 /* Currently, only the @warn, @complain, @fatal, @warn_at, @complain_at, and 903 @fatal_at directives take multiple arguments, and the last three already 904 can't take more than 7. at_directive_argv[0] is the directive name. */ 905 #define AT_DIRECTIVE_ARGC_MAX 8 906 int at_directive_argc = 0; 907 char *at_directive_argv[AT_DIRECTIVE_ARGC_MAX]; 908 909 910#line 911 "scan-skel.c" 911 912 if ( !(yy_init) ) 913 { 914 (yy_init) = 1; 915 916#ifdef YY_USER_INIT 917 YY_USER_INIT; 918#endif 919 920 if ( ! (yy_start) ) 921 (yy_start) = 1; /* first start state */ 922 923 if ( ! skel_in ) 924/* %if-c-only */ 925 skel_in = stdin; 926/* %endif */ 927/* %if-c++-only */ 928/* %endif */ 929 930 if ( ! skel_out ) 931/* %if-c-only */ 932 skel_out = stdout; 933/* %endif */ 934/* %if-c++-only */ 935/* %endif */ 936 937 if ( ! YY_CURRENT_BUFFER ) { 938 skel_ensure_buffer_stack (); 939 YY_CURRENT_BUFFER_LVALUE = 940 skel__create_buffer(skel_in,YY_BUF_SIZE ); 941 } 942 943 skel__load_buffer_state( ); 944 } 945 946 while ( 1 ) /* loops until end-of-file is reached */ 947 { 948/* %% [8.0] yymore()-related code goes here */ 949 yy_cp = (yy_c_buf_p); 950 951 /* Support of skel_text. */ 952 *yy_cp = (yy_hold_char); 953 954 /* yy_bp points to the position in yy_ch_buf of the start of 955 * the current run. 956 */ 957 yy_bp = yy_cp; 958 959/* %% [9.0] code to set up and find next match goes here */ 960 yy_current_state = (yy_start); 961yy_match: 962 do 963 { 964 register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; 965 if ( yy_accept[yy_current_state] ) 966 { 967 (yy_last_accepting_state) = yy_current_state; 968 (yy_last_accepting_cpos) = yy_cp; 969 } 970 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) 971 { 972 yy_current_state = (int) yy_def[yy_current_state]; 973 if ( yy_current_state >= 45 ) 974 yy_c = yy_meta[(unsigned int) yy_c]; 975 } 976 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; 977 ++yy_cp; 978 } 979 while ( yy_current_state != 44 ); 980 yy_cp = (yy_last_accepting_cpos); 981 yy_current_state = (yy_last_accepting_state); 982 983yy_find_action: 984/* %% [10.0] code to find the action number goes here */ 985 yy_act = yy_accept[yy_current_state]; 986 987 YY_DO_BEFORE_ACTION; 988 989/* %% [11.0] code for skel_lineno update goes here */ 990 991do_action: /* This label is used only to access EOF actions. */ 992 993/* %% [12.0] debug code goes here */ 994 if ( skel__flex_debug ) 995 { 996 if ( yy_act == 0 ) 997 fprintf( stderr, "--scanner backing up\n" ); 998 else if ( yy_act < 22 ) 999 fprintf( stderr, "--accepting rule at line %ld (\"%s\")\n", 1000 (long)yy_rule_linenum[yy_act], skel_text ); 1001 else if ( yy_act == 22 ) 1002 fprintf( stderr, "--accepting default rule (\"%s\")\n", 1003 skel_text ); 1004 else if ( yy_act == 23 ) 1005 fprintf( stderr, "--(end of buffer or a NUL)\n" ); 1006 else 1007 fprintf( stderr, "--EOF (start condition %d)\n", YY_START ); 1008 } 1009 1010 switch ( yy_act ) 1011 { /* beginning of action switch */ 1012/* %% [13.0] actions go here */ 1013 case 0: /* must back up */ 1014 /* undo the effects of YY_DO_BEFORE_ACTION */ 1015 *yy_cp = (yy_hold_char); 1016 yy_cp = (yy_last_accepting_cpos); 1017 yy_current_state = (yy_last_accepting_state); 1018 goto yy_find_action; 1019 1020case 1: 1021YY_RULE_SETUP 1022#line 72 "scan-skel.l" 1023fputc ('@', skel_out); 1024 YY_BREAK 1025case 2: 1026YY_RULE_SETUP 1027#line 73 "scan-skel.l" 1028fputc ('[', skel_out); 1029 YY_BREAK 1030case 3: 1031YY_RULE_SETUP 1032#line 74 "scan-skel.l" 1033fputc (']', skel_out); 1034 YY_BREAK 1035case 4: 1036YY_RULE_SETUP 1037#line 75 "scan-skel.l" 1038continue; /* Used by b4_cat in ../data/bison.m4. */ 1039 YY_BREAK 1040case 5: 1041/* rule 5 can match eol */ 1042YY_RULE_SETUP 1043#line 76 "scan-skel.l" 1044continue; 1045 YY_BREAK 1046case 6: 1047YY_RULE_SETUP 1048#line 78 "scan-skel.l" 1049fprintf (skel_out, "%d", out_lineno + 1); 1050 YY_BREAK 1051case 7: 1052YY_RULE_SETUP 1053#line 79 "scan-skel.l" 1054QPUTS (outname); 1055 YY_BREAK 1056case 8: 1057YY_RULE_SETUP 1058#line 81 "scan-skel.l" 1059{ 1060 skel_text[skel_leng-1] = '\0'; 1061 obstack_grow (&obstack_for_string, skel_text, skel_leng); 1062 at_directive_argv[at_directive_argc++] = 1063 obstack_finish (&obstack_for_string); 1064 BEGIN SC_AT_DIRECTIVE_ARGS; 1065} 1066 YY_BREAK 1067/* This pattern must not match more than the previous @ patterns. */ 1068case 9: 1069YY_RULE_SETUP 1070#line 90 "scan-skel.l" 1071fail_for_invalid_at (skel_text); 1072 YY_BREAK 1073case 10: 1074/* rule 10 can match eol */ 1075YY_RULE_SETUP 1076#line 91 "scan-skel.l" 1077out_lineno++; ECHO; 1078 YY_BREAK 1079case 11: 1080YY_RULE_SETUP 1081#line 92 "scan-skel.l" 1082ECHO; 1083 YY_BREAK 1084case YY_STATE_EOF(INITIAL): 1085#line 94 "scan-skel.l" 1086{ 1087 if (outname) 1088 { 1089 free (outname); 1090 xfclose (skel_out); 1091 } 1092 return EOF; 1093} 1094 YY_BREAK 1095 1096 1097case 12: 1098/* rule 12 can match eol */ 1099YY_RULE_SETUP 1100#line 105 "scan-skel.l" 1101STRING_GROW; 1102 YY_BREAK 1103case 13: 1104YY_RULE_SETUP 1105#line 107 "scan-skel.l" 1106obstack_1grow (&obstack_for_string, '@'); 1107 YY_BREAK 1108case 14: 1109YY_RULE_SETUP 1110#line 108 "scan-skel.l" 1111obstack_1grow (&obstack_for_string, '['); 1112 YY_BREAK 1113case 15: 1114YY_RULE_SETUP 1115#line 109 "scan-skel.l" 1116obstack_1grow (&obstack_for_string, ']'); 1117 YY_BREAK 1118case 16: 1119YY_RULE_SETUP 1120#line 110 "scan-skel.l" 1121continue; /* For starting an argument that begins with whitespace. */ 1122 YY_BREAK 1123case 17: 1124/* rule 17 can match eol */ 1125YY_RULE_SETUP 1126#line 111 "scan-skel.l" 1127continue; 1128 YY_BREAK 1129case 18: 1130YY_RULE_SETUP 1131#line 113 "scan-skel.l" 1132{ 1133 if (at_directive_argc >= AT_DIRECTIVE_ARGC_MAX) 1134 fail_for_at_directive_too_many_args (at_directive_argv[0]); 1135 1136 obstack_1grow (&obstack_for_string, '\0'); 1137 at_directive_argv[at_directive_argc++] = 1138 obstack_finish (&obstack_for_string); 1139 1140 /* Like M4, skip whitespace after a comma. */ 1141 if (skel_text[1] == ',') 1142 BEGIN SC_AT_DIRECTIVE_SKIP_WS; 1143 else 1144 { 1145 at_directive_perform (at_directive_argc, at_directive_argv, 1146 &outname, &out_lineno); 1147 obstack_free (&obstack_for_string, at_directive_argv[0]); 1148 at_directive_argc = 0; 1149 BEGIN INITIAL; 1150 } 1151 } 1152 YY_BREAK 1153case 19: 1154YY_RULE_SETUP 1155#line 134 "scan-skel.l" 1156fail_for_invalid_at (skel_text); 1157 YY_BREAK 1158 1159 1160 1161case 20: 1162/* rule 20 can match eol */ 1163YY_RULE_SETUP 1164#line 139 "scan-skel.l" 1165continue; 1166 YY_BREAK 1167case 21: 1168YY_RULE_SETUP 1169#line 140 "scan-skel.l" 1170{ yyless (0); BEGIN SC_AT_DIRECTIVE_ARGS; } 1171 YY_BREAK 1172 1173 1174 1175case YY_STATE_EOF(SC_AT_DIRECTIVE_ARGS): 1176case YY_STATE_EOF(SC_AT_DIRECTIVE_SKIP_WS): 1177#line 145 "scan-skel.l" 1178{ 1179 fatal (_("unclosed %s directive in skeleton"), at_directive_argv[0]); 1180 } 1181 YY_BREAK 1182 1183case 22: 1184YY_RULE_SETUP 1185#line 150 "scan-skel.l" 1186YY_FATAL_ERROR( "flex scanner jammed" ); 1187 YY_BREAK 1188#line 1189 "scan-skel.c" 1189 1190 case YY_END_OF_BUFFER: 1191 { 1192 /* Amount of text matched not including the EOB char. */ 1193 int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1; 1194 1195 /* Undo the effects of YY_DO_BEFORE_ACTION. */ 1196 *yy_cp = (yy_hold_char); 1197 YY_RESTORE_YY_MORE_OFFSET 1198 1199 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW ) 1200 { 1201 /* We're scanning a new file or input source. It's 1202 * possible that this happened because the user 1203 * just pointed skel_in at a new source and called 1204 * skel_lex(). If so, then we have to assure 1205 * consistency between YY_CURRENT_BUFFER and our 1206 * globals. Here is the right place to do so, because 1207 * this is the first action (other than possibly a 1208 * back-up) that will match for the new input source. 1209 */ 1210 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; 1211 YY_CURRENT_BUFFER_LVALUE->yy_input_file = skel_in; 1212 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; 1213 } 1214 1215 /* Note that here we test for yy_c_buf_p "<=" to the position 1216 * of the first EOB in the buffer, since yy_c_buf_p will 1217 * already have been incremented past the NUL character 1218 * (since all states make transitions on EOB to the 1219 * end-of-buffer state). Contrast this with the test 1220 * in input(). 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_state_type yy_next_state; 1225 1226 (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; 1227 1228 yy_current_state = yy_get_previous_state( ); 1229 1230 /* Okay, we're now positioned to make the NUL 1231 * transition. We couldn't have 1232 * yy_get_previous_state() go ahead and do it 1233 * for us because it doesn't know how to deal 1234 * with the possibility of jamming (and we don't 1235 * want to build jamming into it because then it 1236 * will run more slowly). 1237 */ 1238 1239 yy_next_state = yy_try_NUL_trans( yy_current_state ); 1240 1241 yy_bp = (yytext_ptr) + YY_MORE_ADJ; 1242 1243 if ( yy_next_state ) 1244 { 1245 /* Consume the NUL. */ 1246 yy_cp = ++(yy_c_buf_p); 1247 yy_current_state = yy_next_state; 1248 goto yy_match; 1249 } 1250 1251 else 1252 { 1253/* %% [14.0] code to do back-up for compressed tables and set up yy_cp goes here */ 1254 yy_cp = (yy_last_accepting_cpos); 1255 yy_current_state = (yy_last_accepting_state); 1256 goto yy_find_action; 1257 } 1258 } 1259 1260 else switch ( yy_get_next_buffer( ) ) 1261 { 1262 case EOB_ACT_END_OF_FILE: 1263 { 1264 (yy_did_buffer_switch_on_eof) = 0; 1265 1266 if ( skel_wrap( ) ) 1267 { 1268 /* Note: because we've taken care in 1269 * yy_get_next_buffer() to have set up 1270 * skel_text, we can now set up 1271 * yy_c_buf_p so that if some total 1272 * hoser (like flex itself) wants to 1273 * call the scanner after we return the 1274 * YY_NULL, it'll still work - another 1275 * YY_NULL will get returned. 1276 */ 1277 (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ; 1278 1279 yy_act = YY_STATE_EOF(YY_START); 1280 goto do_action; 1281 } 1282 1283 else 1284 { 1285 if ( ! (yy_did_buffer_switch_on_eof) ) 1286 YY_NEW_FILE; 1287 } 1288 break; 1289 } 1290 1291 case EOB_ACT_CONTINUE_SCAN: 1292 (yy_c_buf_p) = 1293 (yytext_ptr) + yy_amount_of_matched_text; 1294 1295 yy_current_state = yy_get_previous_state( ); 1296 1297 yy_cp = (yy_c_buf_p); 1298 yy_bp = (yytext_ptr) + YY_MORE_ADJ; 1299 goto yy_match; 1300 1301 case EOB_ACT_LAST_MATCH: 1302 (yy_c_buf_p) = 1303 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]; 1304 1305 yy_current_state = yy_get_previous_state( ); 1306 1307 yy_cp = (yy_c_buf_p); 1308 yy_bp = (yytext_ptr) + YY_MORE_ADJ; 1309 goto yy_find_action; 1310 } 1311 break; 1312 } 1313 1314 default: 1315 YY_FATAL_ERROR( 1316 "fatal flex scanner internal error--no action found" ); 1317 } /* end of action switch */ 1318 } /* end of scanning one token */ 1319} /* end of skel_lex */ 1320/* %ok-for-header */ 1321 1322/* %if-c++-only */ 1323/* %not-for-header */ 1324 1325/* %ok-for-header */ 1326 1327/* %endif */ 1328 1329/* yy_get_next_buffer - try to read in a new buffer 1330 * 1331 * Returns a code representing an action: 1332 * EOB_ACT_LAST_MATCH - 1333 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position 1334 * EOB_ACT_END_OF_FILE - end of file 1335 */ 1336/* %if-c-only */ 1337static int yy_get_next_buffer (void) 1338/* %endif */ 1339/* %if-c++-only */ 1340/* %endif */ 1341{ 1342 register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; 1343 register char *source = (yytext_ptr); 1344 register int number_to_move, i; 1345 int ret_val; 1346 1347 if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) 1348 YY_FATAL_ERROR( 1349 "fatal flex scanner internal error--end of buffer missed" ); 1350 1351 if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 ) 1352 { /* Don't try to fill the buffer, so this is an EOF. */ 1353 if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 ) 1354 { 1355 /* We matched a single character, the EOB, so 1356 * treat this as a final EOF. 1357 */ 1358 return EOB_ACT_END_OF_FILE; 1359 } 1360 1361 else 1362 { 1363 /* We matched some text prior to the EOB, first 1364 * process it. 1365 */ 1366 return EOB_ACT_LAST_MATCH; 1367 } 1368 } 1369 1370 /* Try to read more data. */ 1371 1372 /* First move last chars to start of buffer. */ 1373 number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1; 1374 1375 for ( i = 0; i < number_to_move; ++i ) 1376 *(dest++) = *(source++); 1377 1378 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING ) 1379 /* don't do the read, it's not guaranteed to return an EOF, 1380 * just force an EOF 1381 */ 1382 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0; 1383 1384 else 1385 { 1386 yy_size_t num_to_read = 1387 YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; 1388 1389 while ( num_to_read <= 0 ) 1390 { /* Not enough room in the buffer - grow it. */ 1391 1392 /* just a shorter name for the current buffer */ 1393 YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; 1394 1395 int yy_c_buf_p_offset = 1396 (int) ((yy_c_buf_p) - b->yy_ch_buf); 1397 1398 if ( b->yy_is_our_buffer ) 1399 { 1400 yy_size_t new_size = b->yy_buf_size * 2; 1401 1402 if ( new_size <= 0 ) 1403 b->yy_buf_size += b->yy_buf_size / 8; 1404 else 1405 b->yy_buf_size *= 2; 1406 1407 b->yy_ch_buf = (char *) 1408 /* Include room in for 2 EOB chars. */ 1409 skel_realloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 ); 1410 } 1411 else 1412 /* Can't grow it, we don't own it. */ 1413 b->yy_ch_buf = 0; 1414 1415 if ( ! b->yy_ch_buf ) 1416 YY_FATAL_ERROR( 1417 "fatal error - scanner input buffer overflow" ); 1418 1419 (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset]; 1420 1421 num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - 1422 number_to_move - 1; 1423 1424 } 1425 1426 if ( num_to_read > YY_READ_BUF_SIZE ) 1427 num_to_read = YY_READ_BUF_SIZE; 1428 1429 /* Read in more data. */ 1430 YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), 1431 (yy_n_chars), num_to_read ); 1432 1433 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); 1434 } 1435 1436 if ( (yy_n_chars) == 0 ) 1437 { 1438 if ( number_to_move == YY_MORE_ADJ ) 1439 { 1440 ret_val = EOB_ACT_END_OF_FILE; 1441 skel_restart(skel_in ); 1442 } 1443 1444 else 1445 { 1446 ret_val = EOB_ACT_LAST_MATCH; 1447 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = 1448 YY_BUFFER_EOF_PENDING; 1449 } 1450 } 1451 1452 else 1453 ret_val = EOB_ACT_CONTINUE_SCAN; 1454 1455 if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { 1456 /* Extend the array by 50%, plus the number we really need. */ 1457 yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); 1458 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) skel_realloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size ); 1459 if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) 1460 YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); 1461 } 1462 1463 (yy_n_chars) += number_to_move; 1464 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR; 1465 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR; 1466 1467 (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0]; 1468 1469 return ret_val; 1470} 1471 1472/* yy_get_previous_state - get the state just before the EOB char was reached */ 1473 1474/* %if-c-only */ 1475/* %not-for-header */ 1476 1477 static yy_state_type yy_get_previous_state (void) 1478/* %endif */ 1479/* %if-c++-only */ 1480/* %endif */ 1481{ 1482 register yy_state_type yy_current_state; 1483 register char *yy_cp; 1484 1485/* %% [15.0] code to get the start state into yy_current_state goes here */ 1486 yy_current_state = (yy_start); 1487 1488 for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) 1489 { 1490/* %% [16.0] code to find the next state goes here */ 1491 register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); 1492 if ( yy_accept[yy_current_state] ) 1493 { 1494 (yy_last_accepting_state) = yy_current_state; 1495 (yy_last_accepting_cpos) = yy_cp; 1496 } 1497 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) 1498 { 1499 yy_current_state = (int) yy_def[yy_current_state]; 1500 if ( yy_current_state >= 45 ) 1501 yy_c = yy_meta[(unsigned int) yy_c]; 1502 } 1503 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; 1504 } 1505 1506 return yy_current_state; 1507} 1508 1509/* yy_try_NUL_trans - try to make a transition on the NUL character 1510 * 1511 * synopsis 1512 * next_state = yy_try_NUL_trans( current_state ); 1513 */ 1514/* %if-c-only */ 1515 static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) 1516/* %endif */ 1517/* %if-c++-only */ 1518/* %endif */ 1519{ 1520 register int yy_is_jam; 1521 /* %% [17.0] code to find the next state, and perhaps do backing up, goes here */ 1522 register char *yy_cp = (yy_c_buf_p); 1523 1524 register YY_CHAR yy_c = 1; 1525 if ( yy_accept[yy_current_state] ) 1526 { 1527 (yy_last_accepting_state) = yy_current_state; 1528 (yy_last_accepting_cpos) = yy_cp; 1529 } 1530 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) 1531 { 1532 yy_current_state = (int) yy_def[yy_current_state]; 1533 if ( yy_current_state >= 45 ) 1534 yy_c = yy_meta[(unsigned int) yy_c]; 1535 } 1536 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; 1537 yy_is_jam = (yy_current_state == 44); 1538 1539 return yy_is_jam ? 0 : yy_current_state; 1540} 1541 1542/* %if-c-only */ 1543 1544/* %endif */ 1545 1546/* %if-c-only */ 1547#ifndef YY_NO_INPUT 1548#ifdef __cplusplus 1549 static int yyinput (void) 1550#else 1551 static int input (void) 1552#endif 1553 1554/* %endif */ 1555/* %if-c++-only */ 1556/* %endif */ 1557{ 1558 int c; 1559 1560 *(yy_c_buf_p) = (yy_hold_char); 1561 1562 if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR ) 1563 { 1564 /* yy_c_buf_p now points to the character we want to return. 1565 * If this occurs *before* the EOB characters, then it's a 1566 * valid NUL; if not, then we've hit the end of the buffer. 1567 */ 1568 if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) 1569 /* This was really a NUL. */ 1570 *(yy_c_buf_p) = '\0'; 1571 1572 else 1573 { /* need more input */ 1574 yy_size_t offset = (yy_c_buf_p) - (yytext_ptr); 1575 ++(yy_c_buf_p); 1576 1577 switch ( yy_get_next_buffer( ) ) 1578 { 1579 case EOB_ACT_LAST_MATCH: 1580 /* This happens because yy_g_n_b() 1581 * sees that we've accumulated a 1582 * token and flags that we need to 1583 * try matching the token before 1584 * proceeding. But for input(), 1585 * there's no matching to consider. 1586 * So convert the EOB_ACT_LAST_MATCH 1587 * to EOB_ACT_END_OF_FILE. 1588 */ 1589 1590 /* Reset buffer status. */ 1591 skel_restart(skel_in ); 1592 1593 /*FALLTHROUGH*/ 1594 1595 case EOB_ACT_END_OF_FILE: 1596 { 1597 if ( skel_wrap( ) ) 1598 return EOF; 1599 1600 if ( ! (yy_did_buffer_switch_on_eof) ) 1601 YY_NEW_FILE; 1602#ifdef __cplusplus 1603 return yyinput(); 1604#else 1605 return input(); 1606#endif 1607 } 1608 1609 case EOB_ACT_CONTINUE_SCAN: 1610 (yy_c_buf_p) = (yytext_ptr) + offset; 1611 break; 1612 } 1613 } 1614 } 1615 1616 c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */ 1617 *(yy_c_buf_p) = '\0'; /* preserve skel_text */ 1618 (yy_hold_char) = *++(yy_c_buf_p); 1619 1620/* %% [19.0] update BOL and skel_lineno */ 1621 1622 return c; 1623} 1624/* %if-c-only */ 1625#endif /* ifndef YY_NO_INPUT */ 1626/* %endif */ 1627 1628/** Immediately switch to a different input stream. 1629 * @param input_file A readable stream. 1630 * 1631 * @note This function does not reset the start condition to @c INITIAL . 1632 */ 1633/* %if-c-only */ 1634 void skel_restart (FILE * input_file ) 1635/* %endif */ 1636/* %if-c++-only */ 1637/* %endif */ 1638{ 1639 1640 if ( ! YY_CURRENT_BUFFER ){ 1641 skel_ensure_buffer_stack (); 1642 YY_CURRENT_BUFFER_LVALUE = 1643 skel__create_buffer(skel_in,YY_BUF_SIZE ); 1644 } 1645 1646 skel__init_buffer(YY_CURRENT_BUFFER,input_file ); 1647 skel__load_buffer_state( ); 1648} 1649 1650/** Switch to a different input buffer. 1651 * @param new_buffer The new input buffer. 1652 * 1653 */ 1654/* %if-c-only */ 1655 void skel__switch_to_buffer (YY_BUFFER_STATE new_buffer ) 1656/* %endif */ 1657/* %if-c++-only */ 1658/* %endif */ 1659{ 1660 1661 /* TODO. We should be able to replace this entire function body 1662 * with 1663 * skel_pop_buffer_state(); 1664 * skel_push_buffer_state(new_buffer); 1665 */ 1666 skel_ensure_buffer_stack (); 1667 if ( YY_CURRENT_BUFFER == new_buffer ) 1668 return; 1669 1670 if ( YY_CURRENT_BUFFER ) 1671 { 1672 /* Flush out information for old buffer. */ 1673 *(yy_c_buf_p) = (yy_hold_char); 1674 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); 1675 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); 1676 } 1677 1678 YY_CURRENT_BUFFER_LVALUE = new_buffer; 1679 skel__load_buffer_state( ); 1680 1681 /* We don't actually know whether we did this switch during 1682 * EOF (skel_wrap()) processing, but the only time this flag 1683 * is looked at is after skel_wrap() is called, so it's safe 1684 * to go ahead and always set it. 1685 */ 1686 (yy_did_buffer_switch_on_eof) = 1; 1687} 1688 1689/* %if-c-only */ 1690static void skel__load_buffer_state (void) 1691/* %endif */ 1692/* %if-c++-only */ 1693/* %endif */ 1694{ 1695 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; 1696 (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; 1697 skel_in = YY_CURRENT_BUFFER_LVALUE->yy_input_file; 1698 (yy_hold_char) = *(yy_c_buf_p); 1699} 1700 1701/** Allocate and initialize an input buffer state. 1702 * @param file A readable stream. 1703 * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. 1704 * 1705 * @return the allocated buffer state. 1706 */ 1707/* %if-c-only */ 1708 YY_BUFFER_STATE skel__create_buffer (FILE * file, int size ) 1709/* %endif */ 1710/* %if-c++-only */ 1711/* %endif */ 1712{ 1713 YY_BUFFER_STATE b; 1714 1715 b = (YY_BUFFER_STATE) skel_alloc(sizeof( struct yy_buffer_state ) ); 1716 if ( ! b ) 1717 YY_FATAL_ERROR( "out of dynamic memory in skel__create_buffer()" ); 1718 1719 b->yy_buf_size = size; 1720 1721 /* yy_ch_buf has to be 2 characters longer than the size given because 1722 * we need to put in 2 end-of-buffer characters. 1723 */ 1724 b->yy_ch_buf = (char *) skel_alloc(b->yy_buf_size + 2 ); 1725 if ( ! b->yy_ch_buf ) 1726 YY_FATAL_ERROR( "out of dynamic memory in skel__create_buffer()" ); 1727 1728 b->yy_is_our_buffer = 1; 1729 1730 skel__init_buffer(b,file ); 1731 1732 return b; 1733} 1734 1735/** Destroy the buffer. 1736 * @param b a buffer created with skel__create_buffer() 1737 * 1738 */ 1739/* %if-c-only */ 1740 void skel__delete_buffer (YY_BUFFER_STATE b ) 1741/* %endif */ 1742/* %if-c++-only */ 1743/* %endif */ 1744{ 1745 1746 if ( ! b ) 1747 return; 1748 1749 if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */ 1750 YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; 1751 1752 if ( b->yy_is_our_buffer ) 1753 skel_free((void *) b->yy_ch_buf ); 1754 1755 skel_free((void *) b ); 1756} 1757 1758/* Initializes or reinitializes a buffer. 1759 * This function is sometimes called more than once on the same buffer, 1760 * such as during a skel_restart() or at EOF. 1761 */ 1762/* %if-c-only */ 1763 static void skel__init_buffer (YY_BUFFER_STATE b, FILE * file ) 1764/* %endif */ 1765/* %if-c++-only */ 1766/* %endif */ 1767 1768{ 1769 int oerrno = errno; 1770 1771 skel__flush_buffer(b ); 1772 1773 b->yy_input_file = file; 1774 b->yy_fill_buffer = 1; 1775 1776 /* If b is the current buffer, then skel__init_buffer was _probably_ 1777 * called from skel_restart() or through yy_get_next_buffer. 1778 * In that case, we don't want to reset the lineno or column. 1779 */ 1780 if (b != YY_CURRENT_BUFFER){ 1781 b->yy_bs_lineno = 1; 1782 b->yy_bs_column = 0; 1783 } 1784 1785/* %if-c-only */ 1786 1787 b->yy_is_interactive = 0; 1788 1789/* %endif */ 1790/* %if-c++-only */ 1791/* %endif */ 1792 errno = oerrno; 1793} 1794 1795/** Discard all buffered characters. On the next scan, YY_INPUT will be called. 1796 * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. 1797 * 1798 */ 1799/* %if-c-only */ 1800 void skel__flush_buffer (YY_BUFFER_STATE b ) 1801/* %endif */ 1802/* %if-c++-only */ 1803/* %endif */ 1804{ 1805 if ( ! b ) 1806 return; 1807 1808 b->yy_n_chars = 0; 1809 1810 /* We always need two end-of-buffer characters. The first causes 1811 * a transition to the end-of-buffer state. The second causes 1812 * a jam in that state. 1813 */ 1814 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; 1815 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; 1816 1817 b->yy_buf_pos = &b->yy_ch_buf[0]; 1818 1819 b->yy_at_bol = 1; 1820 b->yy_buffer_status = YY_BUFFER_NEW; 1821 1822 if ( b == YY_CURRENT_BUFFER ) 1823 skel__load_buffer_state( ); 1824} 1825 1826/* %if-c-or-c++ */ 1827/** Pushes the new state onto the stack. The new state becomes 1828 * the current state. This function will allocate the stack 1829 * if necessary. 1830 * @param new_buffer The new state. 1831 * 1832 */ 1833/* %if-c-only */ 1834void skel_push_buffer_state (YY_BUFFER_STATE new_buffer ) 1835/* %endif */ 1836/* %if-c++-only */ 1837/* %endif */ 1838{ 1839 if (new_buffer == NULL) 1840 return; 1841 1842 skel_ensure_buffer_stack(); 1843 1844 /* This block is copied from skel__switch_to_buffer. */ 1845 if ( YY_CURRENT_BUFFER ) 1846 { 1847 /* Flush out information for old buffer. */ 1848 *(yy_c_buf_p) = (yy_hold_char); 1849 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); 1850 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); 1851 } 1852 1853 /* Only push if top exists. Otherwise, replace top. */ 1854 if (YY_CURRENT_BUFFER) 1855 (yy_buffer_stack_top)++; 1856 YY_CURRENT_BUFFER_LVALUE = new_buffer; 1857 1858 /* copied from skel__switch_to_buffer. */ 1859 skel__load_buffer_state( ); 1860 (yy_did_buffer_switch_on_eof) = 1; 1861} 1862/* %endif */ 1863 1864/* %if-c-or-c++ */ 1865/** Removes and deletes the top of the stack, if present. 1866 * The next element becomes the new top. 1867 * 1868 */ 1869/* %if-c-only */ 1870void skel_pop_buffer_state (void) 1871/* %endif */ 1872/* %if-c++-only */ 1873/* %endif */ 1874{ 1875 if (!YY_CURRENT_BUFFER) 1876 return; 1877 1878 skel__delete_buffer(YY_CURRENT_BUFFER ); 1879 YY_CURRENT_BUFFER_LVALUE = NULL; 1880 if ((yy_buffer_stack_top) > 0) 1881 --(yy_buffer_stack_top); 1882 1883 if (YY_CURRENT_BUFFER) { 1884 skel__load_buffer_state( ); 1885 (yy_did_buffer_switch_on_eof) = 1; 1886 } 1887} 1888/* %endif */ 1889 1890/* %if-c-or-c++ */ 1891/* Allocates the stack if it does not exist. 1892 * Guarantees space for at least one push. 1893 */ 1894/* %if-c-only */ 1895static void skel_ensure_buffer_stack (void) 1896/* %endif */ 1897/* %if-c++-only */ 1898/* %endif */ 1899{ 1900 yy_size_t num_to_alloc; 1901 1902 if (!(yy_buffer_stack)) { 1903 1904 /* First allocation is just for 2 elements, since we don't know if this 1905 * scanner will even need a stack. We use 2 instead of 1 to avoid an 1906 * immediate realloc on the next call. 1907 */ 1908 num_to_alloc = 1; 1909 (yy_buffer_stack) = (struct yy_buffer_state**)skel_alloc 1910 (num_to_alloc * sizeof(struct yy_buffer_state*) 1911 ); 1912 if ( ! (yy_buffer_stack) ) 1913 YY_FATAL_ERROR( "out of dynamic memory in skel_ensure_buffer_stack()" ); 1914 1915 memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); 1916 1917 (yy_buffer_stack_max) = num_to_alloc; 1918 (yy_buffer_stack_top) = 0; 1919 return; 1920 } 1921 1922 if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ 1923 1924 /* Increase the buffer to prepare for a possible push. */ 1925 int grow_size = 8 /* arbitrary grow size */; 1926 1927 num_to_alloc = (yy_buffer_stack_max) + grow_size; 1928 (yy_buffer_stack) = (struct yy_buffer_state**)skel_realloc 1929 ((yy_buffer_stack), 1930 num_to_alloc * sizeof(struct yy_buffer_state*) 1931 ); 1932 if ( ! (yy_buffer_stack) ) 1933 YY_FATAL_ERROR( "out of dynamic memory in skel_ensure_buffer_stack()" ); 1934 1935 /* zero only the new slots.*/ 1936 memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*)); 1937 (yy_buffer_stack_max) = num_to_alloc; 1938 } 1939} 1940/* %endif */ 1941 1942/* %if-c-only */ 1943/** Setup the input buffer state to scan directly from a user-specified character buffer. 1944 * @param base the character buffer 1945 * @param size the size in bytes of the character buffer 1946 * 1947 * @return the newly allocated buffer state object. 1948 */ 1949YY_BUFFER_STATE skel__scan_buffer (char * base, yy_size_t size ) 1950{ 1951 YY_BUFFER_STATE b; 1952 1953 if ( size < 2 || 1954 base[size-2] != YY_END_OF_BUFFER_CHAR || 1955 base[size-1] != YY_END_OF_BUFFER_CHAR ) 1956 /* They forgot to leave room for the EOB's. */ 1957 return 0; 1958 1959 b = (YY_BUFFER_STATE) skel_alloc(sizeof( struct yy_buffer_state ) ); 1960 if ( ! b ) 1961 YY_FATAL_ERROR( "out of dynamic memory in skel__scan_buffer()" ); 1962 1963 b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */ 1964 b->yy_buf_pos = b->yy_ch_buf = base; 1965 b->yy_is_our_buffer = 0; 1966 b->yy_input_file = 0; 1967 b->yy_n_chars = b->yy_buf_size; 1968 b->yy_is_interactive = 0; 1969 b->yy_at_bol = 1; 1970 b->yy_fill_buffer = 0; 1971 b->yy_buffer_status = YY_BUFFER_NEW; 1972 1973 skel__switch_to_buffer(b ); 1974 1975 return b; 1976} 1977/* %endif */ 1978 1979/* %if-c-only */ 1980/** Setup the input buffer state to scan a string. The next call to skel_lex() will 1981 * scan from a @e copy of @a str. 1982 * @param yystr a NUL-terminated string to scan 1983 * 1984 * @return the newly allocated buffer state object. 1985 * @note If you want to scan bytes that may contain NUL values, then use 1986 * skel__scan_bytes() instead. 1987 */ 1988YY_BUFFER_STATE skel__scan_string (yyconst char * yystr ) 1989{ 1990 1991 return skel__scan_bytes(yystr,strlen(yystr) ); 1992} 1993/* %endif */ 1994 1995/* %if-c-only */ 1996/** Setup the input buffer state to scan the given bytes. The next call to skel_lex() will 1997 * scan from a @e copy of @a bytes. 1998 * @param yybytes the byte buffer to scan 1999 * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. 2000 * 2001 * @return the newly allocated buffer state object. 2002 */ 2003YY_BUFFER_STATE skel__scan_bytes (yyconst char * yybytes, yy_size_t _yybytes_len ) 2004{ 2005 YY_BUFFER_STATE b; 2006 char *buf; 2007 yy_size_t n; 2008 int i; 2009 2010 /* Get memory for full buffer, including space for trailing EOB's. */ 2011 n = _yybytes_len + 2; 2012 buf = (char *) skel_alloc(n ); 2013 if ( ! buf ) 2014 YY_FATAL_ERROR( "out of dynamic memory in skel__scan_bytes()" ); 2015 2016 for ( i = 0; i < _yybytes_len; ++i ) 2017 buf[i] = yybytes[i]; 2018 2019 buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR; 2020 2021 b = skel__scan_buffer(buf,n ); 2022 if ( ! b ) 2023 YY_FATAL_ERROR( "bad buffer in skel__scan_bytes()" ); 2024 2025 /* It's okay to grow etc. this buffer, and we should throw it 2026 * away when we're done. 2027 */ 2028 b->yy_is_our_buffer = 1; 2029 2030 return b; 2031} 2032/* %endif */ 2033 2034#ifndef YY_EXIT_FAILURE 2035#define YY_EXIT_FAILURE 2 2036#endif 2037 2038/* %if-c-only */ 2039static void yy_fatal_error (yyconst char* msg ) 2040{ 2041 (void) fprintf( stderr, "%s\n", msg ); 2042 exit( YY_EXIT_FAILURE ); 2043} 2044/* %endif */ 2045/* %if-c++-only */ 2046/* %endif */ 2047 2048/* Redefine yyless() so it works in section 3 code. */ 2049 2050#undef yyless 2051#define yyless(n) \ 2052 do \ 2053 { \ 2054 /* Undo effects of setting up skel_text. */ \ 2055 int yyless_macro_arg = (n); \ 2056 YY_LESS_LINENO(yyless_macro_arg);\ 2057 skel_text[skel_leng] = (yy_hold_char); \ 2058 (yy_c_buf_p) = skel_text + yyless_macro_arg; \ 2059 (yy_hold_char) = *(yy_c_buf_p); \ 2060 *(yy_c_buf_p) = '\0'; \ 2061 skel_leng = yyless_macro_arg; \ 2062 } \ 2063 while ( 0 ) 2064 2065/* Accessor methods (get/set functions) to struct members. */ 2066 2067/* %if-c-only */ 2068/* %if-reentrant */ 2069/* %endif */ 2070 2071/** Get the current line number. 2072 * 2073 */ 2074int skel_get_lineno (void) 2075{ 2076 2077 return skel_lineno; 2078} 2079 2080/** Get the input stream. 2081 * 2082 */ 2083FILE *skel_get_in (void) 2084{ 2085 return skel_in; 2086} 2087 2088/** Get the output stream. 2089 * 2090 */ 2091FILE *skel_get_out (void) 2092{ 2093 return skel_out; 2094} 2095 2096/** Get the length of the current token. 2097 * 2098 */ 2099yy_size_t skel_get_leng (void) 2100{ 2101 return skel_leng; 2102} 2103 2104/** Get the current token. 2105 * 2106 */ 2107 2108char *skel_get_text (void) 2109{ 2110 return skel_text; 2111} 2112 2113/* %if-reentrant */ 2114/* %endif */ 2115 2116/** Set the current line number. 2117 * @param line_number 2118 * 2119 */ 2120void skel_set_lineno (int line_number ) 2121{ 2122 2123 skel_lineno = line_number; 2124} 2125 2126/** Set the input stream. This does not discard the current 2127 * input buffer. 2128 * @param in_str A readable stream. 2129 * 2130 * @see skel__switch_to_buffer 2131 */ 2132void skel_set_in (FILE * in_str ) 2133{ 2134 skel_in = in_str ; 2135} 2136 2137void skel_set_out (FILE * out_str ) 2138{ 2139 skel_out = out_str ; 2140} 2141 2142int skel_get_debug (void) 2143{ 2144 return skel__flex_debug; 2145} 2146 2147void skel_set_debug (int bdebug ) 2148{ 2149 skel__flex_debug = bdebug ; 2150} 2151 2152/* %endif */ 2153 2154/* %if-reentrant */ 2155/* %if-bison-bridge */ 2156/* %endif */ 2157/* %endif if-c-only */ 2158 2159/* %if-c-only */ 2160static int yy_init_globals (void) 2161{ 2162 /* Initialization is the same as for the non-reentrant scanner. 2163 * This function is called from skel_lex_destroy(), so don't allocate here. 2164 */ 2165 2166 (yy_buffer_stack) = 0; 2167 (yy_buffer_stack_top) = 0; 2168 (yy_buffer_stack_max) = 0; 2169 (yy_c_buf_p) = (char *) 0; 2170 (yy_init) = 0; 2171 (yy_start) = 0; 2172 2173/* Defined in main.c */ 2174#ifdef YY_STDINIT 2175 skel_in = stdin; 2176 skel_out = stdout; 2177#else 2178 skel_in = (FILE *) 0; 2179 skel_out = (FILE *) 0; 2180#endif 2181 2182 /* For future reference: Set errno on error, since we are called by 2183 * skel_lex_init() 2184 */ 2185 return 0; 2186} 2187/* %endif */ 2188 2189/* %if-c-only SNIP! this currently causes conflicts with the c++ scanner */ 2190/* skel_lex_destroy is for both reentrant and non-reentrant scanners. */ 2191int skel_lex_destroy (void) 2192{ 2193 2194 /* Pop the buffer stack, destroying each element. */ 2195 while(YY_CURRENT_BUFFER){ 2196 skel__delete_buffer(YY_CURRENT_BUFFER ); 2197 YY_CURRENT_BUFFER_LVALUE = NULL; 2198 skel_pop_buffer_state(); 2199 } 2200 2201 /* Destroy the stack itself. */ 2202 skel_free((yy_buffer_stack) ); 2203 (yy_buffer_stack) = NULL; 2204 2205 /* Reset the globals. This is important in a non-reentrant scanner so the next time 2206 * skel_lex() is called, initialization will occur. */ 2207 yy_init_globals( ); 2208 2209/* %if-reentrant */ 2210/* %endif */ 2211 return 0; 2212} 2213/* %endif */ 2214 2215/* 2216 * Internal utility routines. 2217 */ 2218 2219#ifndef yytext_ptr 2220static void yy_flex_strncpy (char* s1, yyconst char * s2, int n ) 2221{ 2222 register int i; 2223 for ( i = 0; i < n; ++i ) 2224 s1[i] = s2[i]; 2225} 2226#endif 2227 2228#ifdef YY_NEED_STRLEN 2229static int yy_flex_strlen (yyconst char * s ) 2230{ 2231 register int n; 2232 for ( n = 0; s[n]; ++n ) 2233 ; 2234 2235 return n; 2236} 2237#endif 2238 2239void *skel_alloc (yy_size_t size ) 2240{ 2241 return (void *) malloc( size ); 2242} 2243 2244void *skel_realloc (void * ptr, yy_size_t size ) 2245{ 2246 /* The cast to (char *) in the following accommodates both 2247 * implementations that use char* generic pointers, and those 2248 * that use void* generic pointers. It works with the latter 2249 * because both ANSI C and C++ allow castless assignment from 2250 * any pointer type to void*, and deal with argument conversions 2251 * as though doing an assignment. 2252 */ 2253 return (void *) realloc( (char *) ptr, size ); 2254} 2255 2256void skel_free (void * ptr ) 2257{ 2258 free( (char *) ptr ); /* see skel_realloc() for (char *) cast */ 2259} 2260 2261/* %if-tables-serialization definitions */ 2262/* %define-yytables The name for this specific scanner's tables. */ 2263#define YYTABLES_NAME "yytables" 2264/* %endif */ 2265 2266/* %ok-for-header */ 2267 2268#line 150 "scan-skel.l" 2269 2270 2271 2272/*------------------------. 2273| Scan a Bison skeleton. | 2274`------------------------*/ 2275 2276void 2277scan_skel (FILE *in) 2278{ 2279 static bool initialized = false; 2280 if (!initialized) 2281 { 2282 initialized = true; 2283 obstack_init (&obstack_for_string); 2284 } 2285 skel_in = in; 2286 skel__flex_debug = trace_flag & trace_skeleton; 2287 skel_lex (); 2288} 2289 2290void 2291skel_scanner_free (void) 2292{ 2293 obstack_free (&obstack_for_string, 0); 2294 /* Reclaim Flex's buffers. */ 2295 skel_lex_destroy (); 2296} 2297 2298static void 2299at_directive_perform (int at_directive_argc, 2300 char *at_directive_argv[], 2301 char **outnamep, int *out_linenop) 2302{ 2303 if (0 == strcmp (at_directive_argv[0], "@basename")) 2304 { 2305 if (at_directive_argc > 2) 2306 fail_for_at_directive_too_many_args (at_directive_argv[0]); 2307 fputs (last_component (at_directive_argv[1]), skel_out); 2308 } 2309 else if (0 == strcmp (at_directive_argv[0], "@warn") 2310 || 0 == strcmp (at_directive_argv[0], "@complain") 2311 || 0 == strcmp (at_directive_argv[0], "@fatal")) 2312 { 2313 void (*func)(char const *, ...); 2314 switch (at_directive_argv[0][1]) 2315 { 2316 case 'w': func = warn; break; 2317 case 'c': func = complain; break; 2318 case 'f': func = fatal; break; 2319 default: aver (false); break; 2320 } 2321 switch (at_directive_argc) 2322 { 2323 case 2: 2324 func (_(at_directive_argv[1])); 2325 break; 2326 case 3: 2327 func (_(at_directive_argv[1]), at_directive_argv[2]); 2328 break; 2329 case 4: 2330 func (_(at_directive_argv[1]), at_directive_argv[2], 2331 at_directive_argv[3]); 2332 break; 2333 case 5: 2334 func (_(at_directive_argv[1]), at_directive_argv[2], 2335 at_directive_argv[3], at_directive_argv[4]); 2336 break; 2337 case 6: 2338 func (_(at_directive_argv[1]), at_directive_argv[2], 2339 at_directive_argv[3], at_directive_argv[4], 2340 at_directive_argv[5]); 2341 break; 2342 default: 2343 fail_for_at_directive_too_many_args (at_directive_argv[0]); 2344 break; 2345 } 2346 } 2347 else if (0 == strcmp (at_directive_argv[0], "@warn_at") 2348 || 0 == strcmp (at_directive_argv[0], "@complain_at") 2349 || 0 == strcmp (at_directive_argv[0], "@fatal_at")) 2350 { 2351 void (*func)(location, char const *, ...); 2352 location loc; 2353 if (at_directive_argc < 4) 2354 fail_for_at_directive_too_few_args (at_directive_argv[0]); 2355 switch (at_directive_argv[0][1]) 2356 { 2357 case 'w': func = warn_at; break; 2358 case 'c': func = complain_at; break; 2359 case 'f': func = fatal_at; break; 2360 default: aver (false); break; 2361 } 2362 boundary_set_from_string (&loc.start, at_directive_argv[1]); 2363 boundary_set_from_string (&loc.end, at_directive_argv[2]); 2364 switch (at_directive_argc) 2365 { 2366 case 4: 2367 func (loc, _(at_directive_argv[3])); 2368 break; 2369 case 5: 2370 func (loc, _(at_directive_argv[3]), at_directive_argv[4]); 2371 break; 2372 case 6: 2373 func (loc, _(at_directive_argv[3]), at_directive_argv[4], 2374 at_directive_argv[5]); 2375 break; 2376 case 7: 2377 func (loc, _(at_directive_argv[3]), at_directive_argv[4], 2378 at_directive_argv[5], at_directive_argv[6]); 2379 break; 2380 case 8: 2381 func (loc, _(at_directive_argv[3]), at_directive_argv[4], 2382 at_directive_argv[5], at_directive_argv[6], 2383 at_directive_argv[7]); 2384 break; 2385 default: 2386 fail_for_at_directive_too_many_args (at_directive_argv[0]); 2387 break; 2388 } 2389 } 2390 else if (0 == strcmp (at_directive_argv[0], "@output")) 2391 { 2392 if (at_directive_argc > 2) 2393 fail_for_at_directive_too_many_args (at_directive_argv[0]); 2394 if (*outnamep) 2395 { 2396 free (*outnamep); 2397 xfclose (skel_out); 2398 } 2399 *outnamep = xstrdup (at_directive_argv[1]); 2400 output_file_name_check (outnamep); 2401 skel_out = xfopen (*outnamep, "w"); 2402 *out_linenop = 1; 2403 } 2404 else 2405 fail_for_invalid_at (at_directive_argv[0]); 2406} 2407 2408static void 2409fail_for_at_directive_too_few_args (char const *at_directive_name) 2410{ 2411 fatal (_("too few arguments for %s directive in skeleton"), 2412 at_directive_name); 2413} 2414 2415static void 2416fail_for_at_directive_too_many_args (char const *at_directive_name) 2417{ 2418 fatal (_("too many arguments for %s directive in skeleton"), 2419 at_directive_name); 2420} 2421 2422static void 2423fail_for_invalid_at (char const *at) 2424{ 2425 fatal ("invalid @ in skeleton: %s", at); 2426} 2427 2428