#define yy_create_buffer fscanYY_create_buffer #define yy_delete_buffer fscanYY_delete_buffer #define yy_scan_buffer fscanYY_scan_buffer #define yy_scan_string fscanYY_scan_string #define yy_scan_bytes fscanYY_scan_bytes #define yy_flex_debug fscanYY_flex_debug #define yy_init_buffer fscanYY_init_buffer #define yy_flush_buffer fscanYY_flush_buffer #define yy_load_buffer_state fscanYY_load_buffer_state #define yy_switch_to_buffer fscanYY_switch_to_buffer #define yyin fscanYYin #define yyleng fscanYYleng #define yylex fscanYYlex #define yyout fscanYYout #define yyrestart fscanYYrestart #define yytext fscanYYtext /* A lexical scanner generated by flex */ /* Scanner skeleton version: * $Header: /cvs/root/flex/flex/skel.c,v 1.2 2004/05/07 00:28:17 jkh Exp $ */ #define FLEX_SCANNER #define YY_FLEX_MAJOR_VERSION 2 #define YY_FLEX_MINOR_VERSION 5 #include /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */ #ifdef c_plusplus #ifndef __cplusplus #define __cplusplus #endif #endif #ifdef __cplusplus #include #include /* Use prototypes in function declarations. */ #define YY_USE_PROTOS /* The "const" storage-class-modifier is valid. */ #define YY_USE_CONST #else /* ! __cplusplus */ #if __STDC__ #define YY_USE_PROTOS #define YY_USE_CONST #endif /* __STDC__ */ #endif /* ! __cplusplus */ #ifdef __TURBOC__ #pragma warn -rch #pragma warn -use #include #include #define YY_USE_CONST #define YY_USE_PROTOS #endif #ifdef YY_USE_CONST #define yyconst const #else #define yyconst #endif #ifdef YY_USE_PROTOS #define YY_PROTO(proto) proto #else #define YY_PROTO(proto) () #endif /* Returned upon end-of-file. */ #define YY_NULL 0 /* Promotes a possibly negative, possibly signed char to an unsigned * integer for use as an array index. If the signed char is negative, * we want to instead treat it as an 8-bit unsigned char, hence the * double cast. */ #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) /* Enter a start condition. This macro really ought to take a parameter, * but we do it the disgusting crufty way forced on us by the ()-less * definition of BEGIN. */ #define BEGIN yy_start = 1 + 2 * /* Translate the current start state into a value that can be later handed * to BEGIN to return to the state. The YYSTATE alias is for lex * compatibility. */ #define YY_START ((yy_start - 1) / 2) #define YYSTATE YY_START /* Action number for EOF rule of a given start state. */ #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) /* Special action meaning "start processing a new file". */ #define YY_NEW_FILE yyrestart( yyin ) #define YY_END_OF_BUFFER_CHAR 0 /* Size of default input buffer. */ #define YY_BUF_SIZE 262144 typedef struct yy_buffer_state *YY_BUFFER_STATE; extern int yyleng; extern FILE *yyin, *yyout; #define EOB_ACT_CONTINUE_SCAN 0 #define EOB_ACT_END_OF_FILE 1 #define EOB_ACT_LAST_MATCH 2 /* The funky do-while in the following #define is used to turn the definition * int a single C statement (which needs a semi-colon terminator). This * avoids problems with code like: * * if ( condition_holds ) * yyless( 5 ); * else * do_something_else(); * * Prior to using the do-while the compiler would get upset at the * "else" because it interpreted the "if" statement as being all * done when it reached the ';' after the yyless() call. */ /* Return all but the first 'n' matched characters back to the input stream. */ #define yyless(n) \ do \ { \ /* Undo effects of setting up yytext. */ \ *yy_cp = yy_hold_char; \ YY_RESTORE_YY_MORE_OFFSET \ yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \ YY_DO_BEFORE_ACTION; /* set up yytext again */ \ } \ while ( 0 ) #define unput(c) yyunput( c, yytext_ptr ) /* The following is because we cannot portably get our hands on size_t * (without autoconf's help, which isn't available because we want * flex-generated scanners to compile on their own). */ typedef unsigned int yy_size_t; struct yy_buffer_state { FILE *yy_input_file; char *yy_ch_buf; /* input buffer */ char *yy_buf_pos; /* current position in input buffer */ /* Size of input buffer in bytes, not including room for EOB * characters. */ yy_size_t yy_buf_size; /* Number of characters read into yy_ch_buf, not including EOB * characters. */ int yy_n_chars; /* Whether we "own" the buffer - i.e., we know we created it, * and can realloc() it to grow it, and should free() it to * delete it. */ int yy_is_our_buffer; /* Whether this is an "interactive" input source; if so, and * if we're using stdio for input, then we want to use getc() * instead of fread(), to make sure we stop fetching input after * each newline. */ int yy_is_interactive; /* Whether we're considered to be at the beginning of a line. * If so, '^' rules will be active on the next match, otherwise * not. */ int yy_at_bol; /* Whether to try to fill the input buffer when we reach the * end of it. */ int yy_fill_buffer; int yy_buffer_status; #define YY_BUFFER_NEW 0 #define YY_BUFFER_NORMAL 1 /* When an EOF's been seen but there's still some text to process * then we mark the buffer as YY_EOF_PENDING, to indicate that we * shouldn't try reading from the input source any more. We might * still have a bunch of tokens to match, though, because of * possible backing-up. * * When we actually see the EOF, we change the status to "new" * (via yyrestart()), so that the user can continue scanning by * just pointing yyin at a new input file. */ #define YY_BUFFER_EOF_PENDING 2 }; static YY_BUFFER_STATE yy_current_buffer = 0; /* We provide macros for accessing buffer states in case in the * future we want to put the buffer states in a more general * "scanner state". */ #define YY_CURRENT_BUFFER yy_current_buffer /* yy_hold_char holds the character lost when yytext is formed. */ static char yy_hold_char; static int yy_n_chars; /* number of characters read into yy_ch_buf */ int yyleng; /* Points to current character in buffer. */ static char *yy_c_buf_p = (char *) 0; static int yy_init = 1; /* whether we need to initialize */ static int yy_start = 0; /* start state number */ /* Flag which is used to allow yywrap()'s to do buffer switches * instead of setting up a fresh yyin. A bit of a hack ... */ static int yy_did_buffer_switch_on_eof; void yyrestart YY_PROTO(( FILE *input_file )); void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer )); void yy_load_buffer_state YY_PROTO(( void )); YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size )); void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b )); void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file )); void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b )); #define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer ) YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size )); YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str )); YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len )); static void *yy_flex_alloc YY_PROTO(( yy_size_t )); static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t )); static void yy_flex_free YY_PROTO(( void * )); #define yy_new_buffer yy_create_buffer #define yy_set_interactive(is_interactive) \ { \ if ( ! yy_current_buffer ) \ yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \ yy_current_buffer->yy_is_interactive = is_interactive; \ } #define yy_set_bol(at_bol) \ { \ if ( ! yy_current_buffer ) \ yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \ yy_current_buffer->yy_at_bol = at_bol; \ } #define YY_AT_BOL() (yy_current_buffer->yy_at_bol) #define YY_USES_REJECT #define yywrap() 1 #define YY_SKIP_YYWRAP typedef unsigned char YY_CHAR; FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0; typedef int yy_state_type; extern char *yytext; #define yytext_ptr yytext static yy_state_type yy_get_previous_state YY_PROTO(( void )); static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state )); static int yy_get_next_buffer YY_PROTO(( void )); static void yy_fatal_error YY_PROTO(( yyconst char msg[] )); /* Done after the current pattern has been matched and before the * corresponding action - sets up yytext. */ #define YY_DO_BEFORE_ACTION \ yytext_ptr = yy_bp; \ yyleng = (int) (yy_cp - yy_bp); \ yy_hold_char = *yy_cp; \ *yy_cp = '\0'; \ yy_c_buf_p = yy_cp; #define YY_NUM_RULES 68 #define YY_END_OF_BUFFER 69 static yyconst short int yy_acclist[930] = { 0, 54, 54, 36, 36, 40, 40, 63, 63, 61, 61, 69, 67, 68, 66, 68, 67, 68, 6, 67, 68, 67, 68, 67, 68, 54, 67, 68, 55, 67, 68, 67, 68, 57, 66, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 25, 67, 68, 67, 68, 33, 67, 68, 39, 67, 68, 36, 39, 67, 68, 39, 67, 68, 6, 39, 67, 68, 39, 67, 68, 35, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 39, 67, 68, 40, 67, 68, 45, 66, 68, 67, 68, 67, 68, 43, 67, 68, 44, 67, 68, 41, 67, 68, 51, 67, 68, 51, 67, 68, 50, 66, 68, 50, 51, 67, 68, 6, 51, 67, 68, 51, 67, 68, 51, 67, 68, 49, 51, 67, 68, 51, 67, 68, 47, 67, 68, 47, 67, 68, 6, 47, 67, 68, 47, 67, 68, 47, 67, 68, 47, 67, 68, 30, 67, 68, 30, 67, 68, 67, 68, 67, 68, 67, 68, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 33, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 6, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 22, 67, 68, 9, 67, 68, 8, 66, 68, 9, 67, 68, 6, 9, 67, 68, 9, 67, 68, 9, 67, 68, 5, 67, 68, 5, 67, 68, 4, 5, 6, 67, 68, 5, 67, 68, 5, 67, 68, 16, 66, 68, 67, 68, 11, 67, 68, 67, 68, 14, 67, 68, 15, 67, 68, 21, 66, 68, 20, 67, 68, 63, 67, 68, 65, 66, 68, 63, 67, 68, 6, 63, 67, 68, 63, 67, 68, 63, 67, 68, 61, 67, 68, 61, 67, 68, 6, 61, 67, 68, 61, 67, 68, 61, 67, 68, 7, 1, 3, 2, 54, 55, 55, 57, 56, 62, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 25, 25, 33, 33, 36, 35, 35, 38, 40, 43, 44, 60, 42, 43, 41, 41, 49, 46, 49, 48, 30, 30, 30, 30, 33, 33, 33, 8, 1, 8, 12, 11, 11, 14, 14, 15, 15, 20, 20, 63, 7, 63, 63, 3, 63, 2, 63, 61, 7, 61, 61, 3, 61, 2, 61, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 30, 30, 33, 33, 64, 64,16418, 10, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,16418, 33, 33, 33, 10,16436, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,16436, 33, 33, 33, 37, 30, 30, 33, 33,16436, 32, 32, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 32, 33, 33, 33, 32,16436, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 32,16436, 33, 33, 28, 33, 33, 30, 30, 33,16436, 13,16418, 8226, 8226, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,16418, 33, 33, 33, 23,16436,16436,16436, 28, 33, 33, 33, 33, 33, 33, 33, 23, 33, 33, 16436, 33,16436, 33, 33,16418, 33, 33,16418, 30, 29, 30, 33,16436,16436, 8226, 8226, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 32,16436, 33, 33, 33, 33, 33, 33, 33,16418, 27, 33,16418, 31, 31, 33,16436, 58, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 58, 33, 23, 33, 33, 33, 33, 23, 33, 33, 26, 31, 31, 31, 31, 33, 31, 33,16418, 53, 58, 58, 33, 33, 33,16418, 33, 33, 33, 53, 17, 33, 58, 58, 33,16436, 24, 33,16436, 33, 24, 33, 33, 33, 33, 31, 31, 33,16436, 32, 33, 32, 33, 33, 33, 33,16418, 32,16436, 24, 32,16436, 33, 24, 24, 24, 33, 24, 33, 33, 33,16436, 59, 33, 33, 33, 59, 33, 17,16436,16436,16436, 16436, 33,16436, 33, 24, 24, 33, 33, 33, 28, 16436,16436, 59, 33, 59, 59, 33, 59, 33, 59, 33, 17, 17,16436, 33, 33, 33,16436, 18, 33, 59, 33, 59, 8244, 33, 8244, 33, 18, 33, 17, 33, 33, 33,16436, 19, 32, 32,16436,16436 } ; static yyconst short int yy_accept[1181] = { 0, 1, 1, 1, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 5, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 9, 10, 11, 11, 11, 12, 14, 16, 18, 21, 23, 25, 28, 31, 33, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 73, 76, 79, 82, 85, 88, 91, 94, 97, 100, 103, 106, 109, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 132, 135, 138, 141, 144, 147, 150, 153, 156, 159, 162, 164, 167, 170, 174, 177, 181, 184, 188, 191, 194, 197, 200, 203, 206, 209, 212, 215, 218, 221, 224, 226, 228, 231, 234, 237, 240, 243, 246, 250, 254, 257, 260, 264, 267, 270, 273, 277, 280, 283, 286, 289, 292, 294, 296, 298, 300, 303, 306, 309, 312, 315, 318, 321, 325, 328, 331, 334, 337, 340, 343, 346, 349, 352, 355, 358, 361, 364, 367, 370, 374, 377, 380, 383, 386, 391, 394, 397, 400, 402, 405, 407, 410, 413, 416, 419, 422, 425, 428, 432, 435, 438, 441, 444, 448, 451, 454, 455, 455, 456, 457, 458, 459, 460, 461, 461, 462, 462, 462, 463, 463, 463, 463, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 464, 465, 466, 467, 468, 468, 468, 469, 470, 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 488, 489, 490, 491, 491, 491, 491, 491, 491, 491, 491, 491, 491, 491, 491, 492, 493, 494, 495, 496, 497, 498, 499, 500, 501, 502, 503, 504, 504, 504, 505, 506, 507, 508, 509, 510, 510, 510, 510, 510, 510, 510, 510, 510, 510, 510, 510, 511, 511, 512, 513, 514, 514, 515, 516, 517, 518, 518, 519, 520, 521, 522, 523, 524, 525, 526, 526, 526, 526, 527, 528, 529, 529, 529, 529, 529, 529, 529, 529, 529, 529, 530, 532, 532, 532, 533, 534, 535, 535, 536, 537, 538, 539, 540, 541, 542, 542, 542, 544, 545, 547, 549, 550, 552, 553, 555, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 557, 558, 558, 559, 560, 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, 581, 581, 581, 581, 581, 581, 581, 581, 581, 581, 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, 591, 592, 592, 592, 593, 594, 594, 594, 594, 594, 594, 594, 594, 594, 594, 594, 594, 595, 596, 596, 597, 598, 598, 598, 598, 598, 598, 598, 598, 598, 598, 598, 599, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 600, 601, 601, 601, 601, 602, 603, 604, 605, 606, 607, 608, 608, 609, 610, 611, 612, 613, 614, 615, 616, 617, 618, 619, 620, 621, 622, 624, 625, 626, 627, 628, 628, 628, 628, 628, 628, 628, 628, 628, 628, 628, 629, 629, 630, 631, 632, 633, 633, 634, 635, 636, 637, 638, 639, 641, 642, 642, 642, 643, 644, 644, 644, 644, 644, 644, 644, 644, 644, 644, 644, 645, 645, 646, 647, 647, 647, 647, 648, 649, 649, 649, 649, 649, 649, 649, 649, 649, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 650, 651, 651, 651, 652, 652, 652, 652, 652, 652, 652, 652, 653, 654, 655, 656, 657, 658, 659, 660, 661, 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 672, 673, 673, 674, 674, 675, 676, 676, 676, 676, 676, 676, 676, 676, 676, 676, 676, 676, 678, 678, 678, 678, 678, 678, 678, 679, 680, 681, 682, 683, 684, 685, 686, 687, 688, 690, 690, 691, 692, 693, 693, 693, 693, 693, 694, 695, 695, 695, 695, 695, 695, 695, 695, 695, 695, 695, 695, 696, 697, 697, 698, 698, 698, 698, 698, 698, 698, 698, 699, 699, 699, 699, 699, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 700, 701, 701, 701, 701, 701, 701, 702, 703, 703, 703, 704, 705, 706, 707, 708, 709, 710, 711, 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 723, 723, 723, 724, 725, 726, 726, 726, 726, 726, 726, 726, 726, 726, 727, 727, 728, 728, 729, 730, 730, 730, 730, 731, 732, 733, 734, 735, 736, 737, 738, 740, 741, 742, 742, 744, 745, 746, 746, 746, 746, 746, 747, 748, 750, 750, 750, 750, 750, 750, 750, 750, 750, 750, 751, 753, 753, 754, 754, 754, 754, 754, 754, 754, 754, 754, 755, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 756, 757, 758, 758, 759, 760, 761, 761, 762, 763, 764, 765, 766, 766, 766, 767, 768, 769, 770, 770, 770, 771, 771, 771, 771, 771, 771, 771, 773, 773, 773, 774, 774, 775, 776, 777, 778, 779, 780, 780, 780, 781, 781, 782, 784, 784, 784, 784, 784, 784, 784, 784, 784, 784, 785, 787, 787, 787, 787, 787, 787, 787, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 788, 789, 789, 790, 791, 792, 793, 794, 795, 796, 796, 796, 796, 797, 798, 799, 799, 800, 801, 801, 801, 801, 801, 802, 802, 802, 803, 804, 805, 806, 807, 808, 809, 809, 809, 809, 810, 810, 810, 810, 810, 810, 810, 810, 810, 811, 812, 813, 815, 817, 817, 817, 817, 817, 817, 817, 818, 818, 818, 818, 819, 819, 819, 820, 821, 821, 822, 823, 825, 826, 827, 828, 829, 829, 829, 831, 832, 833, 834, 835, 835, 836, 836, 836, 836, 838, 839, 841, 842, 843, 844, 844, 844, 844, 844, 844, 844, 845, 847, 848, 848, 848, 848, 848, 849, 849, 849, 849, 849, 849, 849, 849, 849, 849, 849, 850, 851, 851, 851, 851, 852, 853, 854, 854, 856, 856, 856, 856, 858, 858, 858, 858, 859, 859, 859, 861, 861, 862, 863, 864, 866, 868, 869, 870, 870, 870, 870, 870, 870, 870, 870, 870, 871, 871, 871, 871, 871, 871, 871, 871, 871, 871, 871, 871, 871, 871, 872, 872, 872, 872, 872, 872, 873, 873, 874, 876, 877, 877, 877, 878, 879, 879, 880, 880, 880, 881, 881, 881, 881, 882, 882, 884, 885, 886, 888, 889, 890, 890, 891, 891, 891, 891, 891, 892, 892, 892, 893, 893, 893, 893, 893, 893, 893, 894, 894, 895, 896, 897, 899, 901, 902, 902, 902, 903, 904, 904, 905, 905, 905, 905, 906, 907, 908, 908, 909, 909, 910, 910, 910, 911, 912, 914, 914, 914, 914, 915, 915, 916, 917, 918, 918, 919, 919, 919, 920, 920, 921, 921, 922, 922, 922, 923, 925, 926, 927, 929, 930, 930 } ; static yyconst int yy_ec[256] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 4, 5, 1, 1, 1, 6, 7, 8, 9, 10, 1, 11, 1, 1, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 14, 1, 15, 16, 17, 1, 1, 20, 21, 22, 23, 24, 25, 26, 27, 28, 19, 19, 29, 30, 31, 32, 33, 19, 34, 35, 36, 37, 38, 19, 39, 40, 19, 1, 18, 1, 1, 19, 1, 20, 21, 22, 23, 24, 25, 26, 27, 28, 19, 19, 29, 30, 31, 32, 33, 19, 34, 35, 36, 37, 38, 19, 39, 40, 19, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 } ; static yyconst int yy_meta[41] = { 0, 1, 2, 3, 1, 1, 1, 1, 4, 5, 1, 6, 1, 7, 8, 9, 1, 9, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10 } ; static yyconst short int yy_base[1253] = { 0, 0, 5, 23, 0, 62, 0, 79, 116, 135, 170, 11, 13, 206, 0, 41, 42, 246, 0, 286, 0, 325, 342, 358, 374, 392, 0, 71, 431, 466, 0, 170, 177, 334, 351, 506, 0, 546, 0, 586, 0, 431, 436, 624, 629, 76, 83, 3470, 3471, 3471, 0, 3471, 3466, 184, 3466, 3454, 86, 3471, 3457, 75, 3448, 3435, 65, 134, 59, 3426, 3431, 3429, 3427, 351, 3435, 56, 147, 3423, 635, 177, 636, 637, 169, 419, 420, 341, 355, 357, 621, 421, 634, 647, 624, 625, 432, 139, 3426, 3424, 3423, 648, 3430, 652, 671, 649, 656, 659, 662, 668, 670, 3419, 677, 683, 3439, 685, 606, 3471, 340, 0, 3471, 3448, 3448, 3435, 706, 3419, 3419, 3407, 3414, 3411, 694, 3423, 3422, 719, 3471, 3426, 3431, 3437, 3471, 3425, 3471, 364, 3471, 0, 3471, 3434, 3424, 3433, 711, 3471, 0, 3471, 3431, 3424, 727, 3419, 699, 328, 3407, 3410, 3427, 710, 712, 723, 726, 3471, 736, 3411, 3471, 3424, 747, 693, 3394, 3394, 3387, 3392, 3390, 3389, 3396, 3382, 3378, 3414, 3471, 3413, 3412, 3411, 757, 3471, 0, 3471, 3410, 752, 3471, 676, 9, 761, 3410, 3398, 3471, 3397, 0, 459, 660, 0, 3406, 761, 0, 752, 0, 3405, 769, 3471, 3404, 3471, 3471, 3471, 3404, 0, 3392, 775, 3471, 3395, 3394, 3471, 771, 3365, 3364, 3471, 3371, 3379, 3368, 3367, 3359, 3372, 3358, 3362, 3356, 3365, 3354, 3355, 3360, 3359, 3365, 760, 3347, 3363, 3349, 3349, 3357, 746, 724, 754, 757, 765, 791, 3371, 792, 758, 776, 784, 780, 787, 786, 797, 794, 800, 801, 808, 809, 812, 815, 821, 829, 831, 827, 841, 837, 843, 828, 3359, 3348, 3340, 3353, 3339, 3348, 3350, 846, 3352, 3338, 0, 840, 857, 855, 854, 856, 863, 866, 873, 874, 877, 880, 0, 3357, 3341, 3347, 883, 887, 892, 3365, 3364, 3471, 3336, 3334, 3327, 3326, 3325, 3326, 3331, 3330, 3336, 3318, 3321, 914, 3345, 3351, 3471, 3471, 3343, 3471, 3349, 0, 3337, 915, 3347, 3471, 3346, 3471, 0, 3334, 905, 788, 3323, 3325, 3342, 897, 896, 907, 3323, 3312, 3304, 3317, 3303, 3312, 3314, 3316, 3302, 3471, 3471, 919, 3303, 3471, 3322, 924, 929, 3330, 3329, 0, 3317, 0, 3316, 0, 934, 821, 0, 3325, 0, 0, 0, 0, 3324, 0, 0, 3294, 3291, 3291, 3299, 3301, 939, 3297, 3298, 918, 3291, 3290, 3297, 3285, 3277, 3285, 3284, 3275, 3287, 3276, 3283, 3284, 3305, 917, 3297, 3471, 916, 923, 927, 934, 935, 943, 945, 949, 955, 956, 958, 971, 965, 967, 975, 979, 982, 986, 988, 997, 1001, 999, 3271, 3271, 3282, 1010, 939, 3274, 3264, 3274, 3270, 3274, 1003, 1000, 1012, 1020, 1035, 1022, 989, 1021, 1034, 1042, 1046, 3259, 3267, 1045, 1052, 3263, 3270, 3269, 1051, 3264, 3271, 3259, 3251, 3259, 3263, 3260, 148, 633, 944, 1055, 1062, 3251, 3251, 3262, 1036, 3258, 3253, 3243, 3250, 3254, 3248, 3272, 3471, 3253, 3254, 3244, 3241, 3242, 1074, 3233, 3232, 3234, 3231, 969, 3238, 3243, 3232, 3233, 3226, 3241, 3232, 1090, 3230, 1049, 3226, 3233, 1095, 3254, 1078, 1084, 1087, 1061, 1081, 1088, 1116, 1094, 1095, 1096, 1023, 1108, 1116, 1123, 1106, 1122, 1126, 1136, 1132, 1159, 1147, 1163, 1139, 1151, 1178, 1179, 3235, 3225, 3224, 1155, 3220, 3217, 1158, 3228, 3220, 3214, 1194, 1190, 1179, 1180, 1186, 1193, 1191, 1182, 1196, 3221, 1204, 1205, 1206, 1233, 1237, 3226, 3217, 1222, 1219, 3222, 3212, 3208, 3210, 3212, 3207, 3208, 3201, 3216, 3207, 3471, 3210, 802, 1067, 1180, 3193, 1251, 1225, 3198, 3211, 3201, 3200, 1199, 3197, 3201, 3204, 3196, 1253, 1254, 3184, 3203, 3200, 3197, 3185, 3195, 3187, 3196, 3185, 3187, 3190, 3177, 3181, 3191, 3179, 3185, 3184, 3171, 3184, 1258, 3196, 3191, 3471, 3167, 1123, 3188, 3164, 3164, 1262, 3190, 1241, 1249, 1252, 1253, 1259, 1265, 1268, 1269, 1271, 1277, 1283, 1281, 1287, 1289, 1291, 1295, 1301, 1305, 1303, 1309, 1332, 3189, 1311, 1340, 1318, 1317, 1344, 3188, 3174, 3171, 3170, 3170, 3160, 3167, 3170, 3165, 3168, 1349, 3178, 3173, 3148, 3147, 1354, 3174, 1356, 1337, 1336, 1346, 1348, 1334, 1355, 1345, 1362, 1365, 1388, 3173, 1366, 1368, 1399, 3172, 1242, 3144, 3157, 1372, 1384, 3158, 3142, 3145, 3139, 3143, 3142, 3148, 3147, 3134, 3147, 3132, 1181, 1260, 3134, 1382, 3144, 3141, 3140, 3127, 3138, 3141, 3136, 1410, 3150, 3145, 1417, 3148, 3471, 3120, 3119, 3115, 3125, 1291, 3130, 3117, 3130, 3117, 3114, 1418, 3112, 3117, 3125, 3108, 3109, 3118, 1269, 1419, 3132, 1420, 1426, 1422, 3127, 3471, 3103, 3129, 1406, 1414, 1416, 1424, 1427, 1422, 1431, 1439, 1349, 1435, 1462, 1441, 1445, 1447, 1458, 1455, 1454, 1465, 1481, 1445, 3128, 1482, 1492, 1471, 3127, 3099, 3095, 1497, 3096, 3106, 3097, 3101, 3471, 3099, 1502, 3119, 1500, 1504, 3096, 3098, 3106, 1520, 1506, 1509, 1510, 1489, 1518, 1519, 1520, 1492, 1527, 1553, 3105, 1554, 1531, 1539, 3103, 1499, 1486, 3087, 1570, 1543, 1578, 3073, 3074, 3081, 1575, 3031, 3045, 3027, 3028, 3036, 1123, 3038, 2963, 1563, 2950, 2946, 1567, 2960, 2949, 2952, 1574, 2923, 1583, 1584, 2919, 2907, 2890, 2881, 1589, 2870, 2864, 2867, 2867, 2864, 1591, 1592, 2866, 2864, 2868, 1594, 2889, 0, 2877, 2859, 1584, 1574, 1585, 1613, 1596, 1599, 1600, 1607, 1606, 1639, 1640, 1618, 1616, 1624, 1628, 1655, 1672, 1634, 2862, 1711, 2759, 2762, 2756, 2787, 1712, 2766, 2753, 1691, 1717, 1637, 1638, 1690, 1627, 1694, 1700, 2746, 2752, 1726, 1739, 3471, 1752, 1755, 2750, 2737, 2737, 1731, 1733, 2737, 2732, 2736, 0, 1769, 2733, 1718, 2722, 2719, 1729, 2718, 1808, 2728, 2714, 2715, 2721, 2715, 2693, 2727, 1736, 2679, 2663, 2658, 2636, 2664, 2652, 2631, 1790, 1786, 1792, 1802, 1800, 1798, 1810, 1812, 1594, 956, 1814, 1823, 1820, 0, 1855, 1869, 2627, 2634, 2633, 2633, 2650, 2613, 2616, 1870, 1879, 1881, 1740, 1744, 1880, 1804, 2597, 2605, 1915, 3471, 1918, 2610, 2599, 1896, 2597, 2590, 2603, 2588, 0, 1907, 1922, 1932, 0, 2587, 2596, 2594, 2586, 2588, 1971, 1972, 2594, 2571, 2566, 2587, 1974, 2547, 0, 2496, 2483, 1960, 1986, 1995, 1968, 1821, 1975, 1976, 1999, 1968, 1989, 2031, 0, 1903, 2007, 2484, 0, 2474, 2475, 2465, 2070, 1991, 2105, 1992, 1998, 2047, 2481, 2471, 2468, 2012, 2144, 2460, 2072, 0, 2146, 2472, 2473, 2470, 2467, 2075, 2481, 2074, 2084, 2480, 2460, 2456, 2458, 2148, 2448, 2003, 2064, 2091, 2475, 2147, 2473, 2062, 2120, 2076, 2156, 1734, 2150, 2158, 2160, 2164, 2454, 2162, 2418, 0, 2356, 2340, 2175, 2363, 2163, 2161, 2170, 2210, 0, 2070, 2165, 2326, 2326, 2322, 2176, 2336, 2249, 2294, 2184, 2251, 2320, 2194, 2249, 2172, 2158, 2196, 2020, 2252, 2201, 2019, 2254, 2018, 1975, 0, 1962, 1939, 2253, 2262, 1914, 2269, 1905, 2225, 2286, 2242, 2064, 2273, 2276, 2325, 1901, 2326, 2277, 1890, 1838, 1780, 1735, 1721, 2328, 1736, 2330, 2307, 2340, 0, 2325, 2339, 1634, 3471, 1605, 1577, 2345, 1555, 1814, 2356, 1525, 2357, 1474, 1412, 1409, 1408, 2366, 1374, 0, 85, 2346, 2367, 2376, 2392, 0, 2181, 2379, 158, 2381, 2382, 196, 2431, 306, 333, 343, 2407, 2435, 2409, 382, 2436, 416, 0, 425, 708, 2359, 2440, 0, 2442, 796, 825, 945, 1018, 2420, 2446, 2426, 1097, 0, 1112, 1166, 2428, 2455, 3471, 1179, 2438, 1275, 1367, 2466, 2470, 3471, 2471, 2473, 2475, 3471, 2510, 2520, 2530, 2540, 2550, 2560, 2570, 2580, 2590, 2594, 2604, 2613, 2622, 2626, 2636, 2640, 2644, 2649, 2653, 2657, 2667, 2677, 2687, 2697, 2707, 2717, 2721, 2731, 2740, 2744, 2748, 2752, 2757, 2761, 2765, 2775, 2784, 2794, 2804, 2814, 2824, 2834, 2844, 2854, 2864, 2874, 2878, 2887, 2891, 2901, 2905, 2915, 2919, 2929, 2939, 2949, 2959, 2969, 2978, 2988, 2998, 3008, 3018, 3028, 3038, 3048, 3057, 3067, 3077, 3087, 3097, 3106, 3116 } ; static yyconst short int yy_def[1253] = { 0, 1180, 1180, 1179, 3, 1180, 5, 5, 1179, 7, 8, 5, 5, 1179, 13, 9, 10, 1179, 17, 1179, 19, 1181, 1181, 1182, 1182, 1179, 25, 7, 8, 1179, 29, 1183, 1183, 1184, 1184, 1179, 35, 1179, 37, 1179, 39, 1185, 1185, 1186, 1186, 5, 5, 1179, 1179, 1179, 1187, 1179, 1188, 1179, 1179, 1189, 1179, 1179, 1190, 1179, 1187, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1191, 1192, 1192, 1192, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1191, 77, 77, 77, 77, 77, 77, 84, 77, 77, 1193, 1179, 84, 1179, 1179, 1187, 1179, 1188, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1187, 1194, 1179, 1179, 1195, 1179, 1179, 1179, 1187, 1179, 1188, 1179, 1179, 1179, 1179, 1187, 1179, 1188, 1179, 1179, 1196, 1196, 1179, 1179, 1179, 1191, 77, 77, 77, 77, 1179, 1179, 1187, 1179, 1188, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1187, 1179, 1188, 1179, 1179, 1187, 1179, 1188, 1179, 1179, 1179, 1197, 1179, 1179, 1198, 1179, 1199, 1200, 1179, 1201, 1200, 1202, 1200, 1203, 1204, 1203, 1205, 1203, 1179, 1188, 1179, 1179, 1179, 1179, 1206, 1189, 1179, 1179, 1190, 1190, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 98, 77, 77, 77, 77, 1179, 1207, 1208, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 98, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1209, 1193, 1179, 1179, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1194, 1179, 1179, 1179, 1194, 1179, 1179, 1210, 1195, 1179, 1179, 1179, 1179, 1179, 1211, 1196, 1196, 1196, 1179, 1179, 1191, 77, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1212, 1197, 1179, 1179, 1179, 1213, 1198, 1214, 1199, 1200, 1179, 1179, 1200, 1202, 1200, 1200, 1203, 1203, 1205, 1203, 1203, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 77, 1207, 1179, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1179, 1179, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1196, 1196, 1179, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 77, 77, 77, 77, 77, 77, 1179, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1192, 77, 77, 77, 77, 1192, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 77, 77, 77, 77, 1179, 77, 77, 512, 77, 77, 77, 520, 1192, 1179, 1179, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1196, 1196, 1179, 1179, 1179, 77, 512, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1215, 1179, 1179, 1179, 1216, 1179, 1179, 1179, 1179, 1217, 512, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1179, 1218, 77, 1216, 77, 77, 1179, 1219, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1220, 1179, 1179, 1179, 1179, 1221, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 1179, 1222, 77, 77, 1179, 1223, 1179, 1179, 1179, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1196, 1196, 1179, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1224, 1179, 1179, 1225, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1215, 1179, 1179, 1179, 1226, 1179, 1179, 1217, 77, 77, 77, 77, 437, 77, 77, 77, 77, 77, 1192, 77, 77, 77, 77, 77, 77, 77, 77, 1179, 1218, 1179, 1192, 77, 1219, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1220, 1179, 1179, 1179, 1179, 1221, 1179, 77, 77, 437, 77, 77, 77, 77, 77, 77, 1179, 1222, 1179, 77, 77, 1223, 1179, 1179, 1179, 1179, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1196, 1196, 1179, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1224, 1179, 1179, 1225, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1227, 1228, 1226, 1179, 77, 77, 77, 1179, 77, 77, 77, 77, 77, 1179, 1207, 77, 77, 77, 77, 1179, 1179, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 77, 1179, 77, 77, 77, 77, 77, 77, 1179, 1179, 1179, 1216, 1179, 797, 1216, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1229, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1227, 1230, 1179, 77, 77, 77, 77, 77, 77, 77, 1207, 1207, 1207, 77, 77, 77, 857, 1179, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 77, 77, 77, 77, 1179, 77, 77, 1179, 1179, 1216, 1179, 1216, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1229, 1229, 1231, 1179, 892, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1232, 1230, 1179, 77, 520, 797, 77, 77, 77, 1179, 1207, 1207, 77, 1179, 929, 77, 537, 1179, 1233, 1179, 1179, 1179, 520, 77, 1179, 77, 77, 77, 1179, 1179, 1179, 1179, 1179, 1179, 1231, 1229, 1179, 1179, 1179, 1179, 1179, 1179, 1234, 1179, 1216, 1235, 1179, 1179, 1179, 1179, 1179, 1179, 77, 1179, 1236, 1216, 1237, 77, 77, 77, 1207, 1179, 1207, 1207, 1238, 1179, 1239, 1179, 1179, 1233, 1179, 1179, 1179, 1240, 77, 1233, 1241, 1179, 999, 77, 77, 1179, 1179, 1179, 1179, 1242, 1179, 1179, 1179, 1179, 1243, 1179, 1179, 1179, 1179, 1179, 1234, 1179, 1179, 1244, 1179, 1235, 1179, 1245, 1179, 1179, 1179, 1179, 1236, 1179, 1237, 77, 1179, 77, 1207, 1207, 1246, 1179, 1239, 1179, 1179, 1247, 772, 1179, 1179, 1179, 1179, 1240, 1179, 77, 1241, 1233, 77, 77, 1179, 1179, 1242, 1179, 1179, 1243, 1179, 1179, 1248, 1179, 1179, 1179, 1179, 1244, 1179, 1179, 1245, 1179, 77, 1245, 1249, 1179, 1087, 77, 1179, 1250, 1251, 1246, 1247, 1179, 1179, 1179, 1179, 77, 77, 77, 1248, 1179, 1179, 1252, 1179, 1179, 77, 1249, 1245, 1250, 1250, 1179, 1179, 1179, 77, 1179, 77, 1179, 1252, 1179, 1179, 77, 1179, 1179, 1179, 77, 1179, 1179, 520, 520, 1179, 1179, 1179, 1179, 0, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179 } ; static yyconst short int yy_nxt[3512] = { 0, 1179, 1179, 49, 50, 51, 52, 51, 49, 50, 51, 52, 51, 48, 49, 48, 49, 1179, 53, 48, 354, 48, 355, 53, 48, 54, 49, 50, 51, 52, 51, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 53, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 57, 50, 51, 52, 51, 58, 48, 75, 48, 109, 110, 238, 218, 48, 49, 53, 59, 49, 60, 48, 48, 49, 48, 213, 214, 227, 48, 223, 239, 215, 151, 48, 224, 228, 61, 219, 62, 63, 64, 65, 152, 153, 66, 67, 1078, 220, 68, 69, 70, 71, 72, 73, 48, 74, 49, 60, 51, 52, 51, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 53, 75, 76, 75, 77, 78, 79, 80, 75, 75, 81, 82, 75, 75, 83, 84, 85, 86, 87, 88, 75, 75, 75, 89, 90, 91, 1155, 331, 225, 92, 93, 94, 226, 240, 95, 96, 276, 97, 98, 176, 177, 178, 179, 178, 228, 248, 176, 177, 178, 179, 178, 249, 568, 241, 180, 208, 250, 208, 99, 100, 101, 180, 251, 255, 102, 103, 104, 256, 209, 105, 106, 1138, 107, 48, 48, 49, 50, 51, 52, 51, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 53, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 111, 112, 49, 113, 114, 115, 114, 111, 111, 111, 116, 111, 111, 117, 111, 111, 111, 118, 111, 119, 111, 111, 120, 121, 111, 111, 111, 122, 111, 111, 111, 123, 124, 111, 125, 126, 111, 111, 111, 111, 48, 127, 128, 129, 51, 52, 51, 130, 48, 48, 131, 48, 48, 48, 48, 132, 48, 53, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, 135, 136, 137, 138, 139, 138, 140, 1156, 1157, 141, 49, 182, 183, 184, 183, 301, 142, 135, 136, 137, 138, 139, 138, 140, 302, 185, 141, 49, 182, 183, 184, 183, 335, 142, 49, 144, 145, 146, 145, 326, 228, 251, 185, 147, 233, 260, 251, 1158, 327, 148, 49, 144, 145, 146, 145, 251, 234, 251, 235, 147, 261, 236, 251, 262, 1146, 148, 48, 48, 49, 50, 51, 52, 51, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 53, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 150, 149, 149, 149, 149, 149, 149, 149, 154, 195, 196, 197, 198, 197, 195, 196, 197, 198, 197, 1162, 267, 251, 251, 251, 199, 257, 251, 251, 251, 199, 155, 75, 259, 258, 156, 225, 365, 1164, 366, 275, 157, 158, 159, 160, 49, 161, 162, 163, 162, 159, 159, 159, 159, 159, 159, 159, 159, 159, 159, 164, 159, 159, 159, 165, 166, 167, 168, 159, 159, 169, 170, 171, 159, 159, 159, 172, 173, 174, 159, 159, 159, 159, 48, 48, 186, 50, 51, 52, 51, 48, 48, 48, 187, 48, 48, 48, 48, 48, 48, 53, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 188, 48, 189, 186, 50, 51, 52, 51, 48, 48, 48, 190, 48, 48, 48, 48, 48, 48, 53, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 48, 48, 192, 50, 51, 52, 51, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 53, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 49, 201, 202, 203, 202, 49, 201, 202, 203, 202, 243, 248, 248, 299, 263, 204, 300, 249, 249, 331, 204, 251, 250, 250, 251, 273, 264, 268, 265, 251, 274, 266, 272, 245, 251, 569, 246, 253, 252, 251, 270, 233, 254, 247, 269, 240, 283, 251, 364, 285, 364, 352, 251, 234, 286, 280, 251, 255, 236, 251, 271, 287, 251, 288, 251, 282, 289, 251, 251, 245, 251, 258, 246, 290, 293, 291, 270, 251, 233, 247, 284, 353, 251, 251, 208, 331, 208, 310, 251, 208, 234, 208, 297, 341, 316, 298, 294, 209, 342, 311, 317, 312, 209, 318, 313, 208, 333, 208, 319, 334, 251, 218, 251, 1165, 338, 251, 339, 251, 209, 268, 340, 243, 258, 251, 251, 208, 251, 208, 251, 251, 208, 251, 208, 350, 219, 208, 357, 208, 209, 369, 371, 369, 371, 209, 220, 358, 218, 374, 209, 374, 213, 214, 370, 391, 251, 244, 215, 251, 251, 251, 375, 398, 251, 251, 259, 251, 248, 248, 392, 219, 251, 1155, 249, 249, 331, 269, 251, 402, 401, 220, 251, 251, 460, 403, 251, 251, 251, 251, 331, 251, 404, 251, 251, 406, 251, 691, 405, 251, 474, 251, 251, 251, 251, 407, 408, 251, 251, 410, 251, 251, 409, 475, 251, 251, 251, 251, 413, 251, 411, 412, 251, 251, 414, 415, 416, 422, 251, 251, 251, 251, 1169, 251, 251, 251, 251, 419, 251, 251, 418, 417, 251, 251, 251, 251, 420, 251, 251, 389, 251, 421, 434, 430, 437, 433, 251, 251, 251, 251, 435, 251, 251, 251, 251, 251, 436, 439, 251, 301, 251, 440, 442, 251, 438, 251, 251, 414, 302, 251, 251, 441, 251, 447, 251, 251, 446, 251, 443, 251, 251, 316, 326, 331, 251, 462, 352, 317, 251, 251, 318, 327, 416, 251, 251, 319, 357, 463, 459, 251, 354, 365, 355, 366, 251, 358, 481, 486, 251, 251, 507, 570, 1157, 502, 251, 251, 353, 487, 501, 251, 251, 506, 503, 505, 251, 504, 251, 251, 533, 482, 400, 251, 251, 508, 510, 251, 511, 251, 487, 483, 251, 251, 251, 509, 512, 571, 251, 251, 251, 514, 251, 515, 251, 251, 513, 251, 516, 251, 986, 251, 595, 517, 251, 251, 251, 596, 526, 251, 251, 519, 518, 251, 251, 520, 251, 522, 251, 530, 251, 251, 251, 251, 547, 251, 521, 251, 251, 523, 524, 251, 525, 251, 251, 251, 251, 251, 251, 251, 251, 540, 251, 539, 543, 578, 251, 531, 542, 1140, 532, 251, 541, 546, 251, 251, 251, 251, 609, 251, 251, 251, 251, 513, 572, 548, 624, 549, 251, 251, 610, 579, 544, 251, 251, 545, 251, 551, 550, 251, 251, 251, 559, 481, 251, 251, 251, 331, 555, 251, 554, 251, 560, 574, 251, 251, 251, 618, 573, 604, 251, 251, 692, 513, 613, 605, 482, 606, 607, 615, 614, 607, 251, 616, 617, 251, 483, 251, 251, 619, 251, 251, 251, 251, 620, 507, 251, 251, 251, 251, 251, 249, 609, 251, 251, 251, 1171, 623, 621, 622, 251, 625, 251, 331, 610, 630, 626, 251, 482, 627, 251, 628, 629, 1172, 808, 251, 251, 251, 483, 631, 251, 251, 251, 633, 530, 251, 251, 634, 635, 632, 251, 251, 638, 251, 636, 251, 606, 607, 639, 250, 607, 251, 640, 637, 610, 251, 251, 641, 526, 570, 251, 648, 531, 642, 249, 532, 596, 251, 250, 657, 543, 331, 251, 652, 728, 658, 249, 660, 578, 653, 659, 654, 607, 251, 251, 607, 251, 771, 251, 251, 251, 663, 661, 571, 807, 251, 655, 251, 531, 662, 251, 532, 251, 666, 579, 251, 656, 664, 251, 251, 251, 667, 669, 251, 251, 251, 673, 668, 670, 678, 654, 792, 674, 251, 679, 675, 251, 250, 251, 251, 572, 251, 702, 705, 251, 671, 249, 726, 703, 706, 704, 613, 694, 605, 251, 672, 735, 614, 609, 251, 331, 736, 793, 251, 737, 655, 251, 251, 251, 808, 610, 251, 251, 251, 571, 656, 739, 741, 251, 251, 825, 738, 251, 251, 251, 251, 740, 251, 251, 742, 251, 251, 743, 819, 744, 251, 251, 251, 748, 746, 251, 251, 251, 251, 745, 251, 251, 747, 251, 251, 251, 826, 750, 749, 251, 251, 751, 251, 753, 251, 251, 754, 251, 251, 251, 251, 752, 636, 251, 638, 251, 251, 251, 641, 757, 249, 251, 251, 769, 642, 522, 610, 758, 657, 653, 776, 777, 778, 251, 658, 251, 251, 783, 781, 675, 251, 251, 779, 780, 251, 251, 655, 251, 251, 251, 251, 782, 251, 849, 251, 251, 656, 785, 784, 251, 251, 251, 786, 1175, 251, 251, 251, 251, 670, 251, 251, 251, 251, 673, 1150, 789, 251, 790, 797, 674, 796, 251, 675, 251, 702, 655, 251, 810, 251, 1123, 703, 705, 831, 726, 607, 656, 836, 706, 832, 605, 607, 844, 837, 607, 1149, 251, 607, 655, 1148, 607, 251, 729, 607, 251, 841, 251, 846, 656, 251, 754, 251, 251, 842, 251, 843, 636, 251, 520, 251, 251, 251, 848, 845, 852, 251, 251, 850, 847, 251, 251, 251, 520, 851, 251, 251, 251, 251, 250, 520, 251, 854, 251, 853, 251, 251, 638, 607, 251, 251, 251, 522, 753, 251, 855, 251, 607, 856, 610, 607, 251, 251, 860, 857, 792, 865, 251, 769, 250, 865, 858, 251, 1147, 653, 607, 869, 251, 607, 607, 251, 772, 607, 251, 876, 251, 776, 877, 251, 655, 871, 655, 249, 655, 861, 675, 793, 251, 1146, 656, 251, 656, 251, 656, 251, 251, 868, 870, 872, 251, 251, 251, 550, 550, 251, 251, 251, 550, 251, 786, 865, 873, 251, 251, 875, 670, 874, 251, 1115, 607, 251, 881, 607, 894, 251, 251, 879, 880, 880, 251, 897, 886, 655, 655, 882, 880, 880, 887, 610, 899, 899, 892, 656, 656, 251, 825, 610, 831, 907, 251, 836, 820, 916, 832, 895, 251, 837, 400, 915, 251, 251, 898, 655, 655, 251, 251, 251, 1063, 566, 844, 251, 917, 656, 656, 908, 249, 826, 251, 909, 985, 251, 251, 251, 942, 918, 251, 920, 251, 251, 919, 522, 921, 251, 251, 925, 850, 922, 251, 926, 251, 826, 851, 251, 400, 251, 251, 927, 522, 251, 251, 251, 856, 1110, 251, 251, 251, 930, 857, 251, 251, 251, 940, 923, 251, 251, 939, 924, 399, 928, 399, 399, 399, 399, 399, 399, 400, 399, 399, 399, 399, 399, 399, 399, 399, 399, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 860, 899, 938, 943, 251, 251, 869, 894, 251, 251, 251, 941, 249, 251, 251, 947, 948, 948, 897, 251, 886, 944, 952, 609, 655, 907, 887, 610, 879, 880, 880, 861, 1103, 942, 656, 610, 1141, 861, 895, 249, 610, 949, 948, 948, 882, 880, 880, 1000, 953, 898, 249, 908, 954, 1140, 251, 909, 610, 957, 958, 251, 957, 957, 957, 957, 959, 957, 957, 957, 957, 960, 957, 957, 957, 957, 957, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 961, 899, 978, 984, 251, 922, 1139, 899, 251, 251, 251, 979, 400, 251, 980, 251, 251, 981, 251, 982, 251, 251, 251, 251, 655, 251, 983, 1002, 251, 987, 655, 923, 251, 251, 656, 924, 522, 251, 251, 251, 656, 251, 1097, 251, 1033, 522, 251, 399, 399, 399, 399, 399, 399, 399, 399, 400, 399, 399, 399, 988, 399, 399, 399, 399, 399, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 989, 251, 251, 952, 1138, 990, 251, 251, 998, 997, 999, 251, 251, 251, 958, 1094, 251, 251, 251, 1036, 959, 1001, 947, 948, 948, 949, 948, 948, 1084, 953, 399, 249, 921, 954, 610, 251, 1010, 610, 957, 958, 251, 957, 957, 957, 957, 959, 957, 957, 957, 957, 960, 957, 957, 957, 957, 957, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 1016, 1019, 1026, 1024, 400, 984, 1017, 1020, 1018, 607, 496, 249, 607, 610, 251, 1028, 1027, 1032, 1039, 251, 1126, 1029, 251, 1018, 1030, 1179, 1179, 251, 1035, 251, 1031, 1038, 1081, 1025, 251, 1036, 1040, 1124, 1034, 496, 1049, 1059, 1041, 251, 1042, 251, 251, 1060, 251, 999, 251, 251, 251, 1054, 496, 1123, 1072, 251, 1037, 399, 399, 399, 399, 399, 399, 399, 399, 400, 399, 399, 399, 988, 399, 399, 399, 399, 399, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 1047, 400, 251, 399, 1073, 1070, 1048, 251, 1042, 1010, 1074, 1017, 1055, 1018, 1019, 1075, 522, 251, 1086, 251, 1020, 1082, 251, 671, 251, 251, 610, 1029, 1038, 1018, 1107, 251, 1088, 672, 1044, 1050, 251, 1044, 1044, 1044, 1044, 1051, 1044, 1044, 1044, 1044, 1052, 1044, 1044, 1044, 1044, 1044, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1053, 1061, 251, 1064, 1030, 1024, 1087, 251, 566, 1065, 1031, 1066, 496, 1035, 400, 1090, 610, 1039, 1050, 1095, 1036, 1092, 1036, 249, 1051, 1096, 655, 1041, 399, 1042, 1097, 1062, 1101, 1059, 1106, 1025, 656, 1121, 1048, 1060, 1042, 1113, 1089, 1037, 655, 251, 1104, 251, 566, 1120, 251, 1116, 251, 1070, 656, 655, 1108, 1117, 1073, 1017, 1087, 1018, 1118, 251, 1074, 656, 1044, 1050, 251, 1044, 1044, 1044, 1044, 1051, 1044, 1044, 1044, 1044, 1052, 1044, 1044, 1044, 1044, 1044, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1061, 251, 1064, 607, 1081, 607, 251, 566, 1065, 1127, 1066, 496, 607, 1082, 607, 607, 1075, 607, 251, 1029, 607, 1018, 1132, 251, 1090, 655, 1119, 1133, 1095, 607, 1062, 1036, 607, 1134, 1096, 656, 1125, 1128, 1135, 1125, 1125, 1125, 1125, 1129, 1125, 1125, 1125, 1125, 1130, 1125, 1125, 1125, 1125, 1125, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1092, 865, 1115, 1101, 1112, 865, 1041, 251, 1042, 1048, 607, 1042, 251, 607, 607, 1142, 399, 607, 566, 566, 1113, 1110, 1106, 655, 655, 251, 655, 566, 655, 1143, 251, 1116, 899, 656, 656, 1109, 656, 1117, 656, 251, 1144, 607, 1128, 1118, 251, 1103, 251, 1151, 1129, 1100, 607, 251, 399, 607, 1133, 655, 1133, 1133, 1153, 251, 1134, 1099, 1134, 1134, 1166, 656, 1125, 1128, 1135, 1125, 1125, 1125, 1125, 1129, 1125, 1125, 1125, 1125, 1130, 1125, 1125, 1125, 1125, 1125, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 865, 251, 1159, 251, 1160, 899, 251, 1161, 251, 607, 399, 1167, 607, 1098, 251, 1160, 1153, 1143, 1168, 1170, 251, 249, 251, 655, 1167, 251, 1173, 251, 655, 251, 1094, 1168, 251, 656, 251, 1176, 1174, 251, 656, 1177, 248, 249, 1178, 1179, 1178, 249, 249, 1179, 249, 1036, 249, 1084, 1080, 1079, 1078, 1077, 496, 1072, 496, 1069, 1068, 1067, 671, 1063, 1058, 655, 1057, 655, 1056, 1046, 1045, 993, 672, 1043, 906, 656, 975, 656, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 134, 134, 134, 134, 134, 134, 134, 134, 134, 134, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, 181, 181, 181, 181, 181, 181, 181, 181, 181, 181, 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 205, 205, 1026, 205, 205, 205, 205, 205, 972, 205, 206, 206, 206, 206, 206, 206, 206, 206, 206, 206, 212, 1023, 1022, 212, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 244, 1021, 1015, 1014, 1013, 1012, 1011, 566, 244, 251, 566, 251, 1008, 1007, 251, 1006, 1005, 251, 296, 1004, 1003, 296, 321, 321, 321, 321, 321, 321, 321, 321, 321, 321, 325, 996, 995, 325, 332, 935, 994, 332, 356, 356, 993, 992, 356, 361, 991, 977, 361, 363, 975, 912, 363, 364, 364, 496, 364, 364, 364, 364, 364, 364, 364, 367, 367, 496, 367, 367, 367, 367, 367, 367, 367, 368, 368, 368, 368, 368, 368, 368, 368, 368, 368, 371, 371, 974, 371, 371, 371, 371, 371, 371, 371, 372, 372, 973, 372, 372, 372, 372, 372, 372, 372, 373, 373, 373, 373, 373, 373, 373, 373, 373, 373, 211, 972, 971, 211, 399, 399, 399, 399, 399, 399, 399, 399, 399, 399, 250, 970, 250, 969, 968, 250, 967, 966, 250, 295, 965, 964, 295, 324, 963, 962, 324, 331, 956, 566, 331, 355, 355, 955, 566, 355, 360, 951, 950, 360, 362, 946, 945, 362, 727, 727, 727, 727, 727, 727, 727, 727, 727, 727, 731, 937, 936, 935, 934, 933, 731, 932, 731, 734, 734, 734, 734, 734, 734, 734, 734, 734, 734, 755, 755, 755, 755, 755, 755, 755, 755, 755, 755, 759, 759, 759, 759, 759, 759, 759, 759, 759, 759, 770, 770, 770, 770, 770, 770, 770, 770, 770, 770, 775, 775, 775, 775, 775, 775, 775, 775, 775, 775, 787, 787, 787, 787, 787, 787, 787, 787, 787, 787, 791, 791, 791, 791, 791, 791, 791, 791, 791, 791, 818, 818, 818, 818, 818, 818, 818, 818, 818, 818, 821, 821, 821, 821, 821, 821, 821, 821, 821, 821, 839, 931, 914, 839, 913, 838, 912, 911, 496, 910, 906, 496, 913, 838, 905, 904, 838, 957, 957, 903, 957, 957, 957, 957, 957, 957, 957, 976, 902, 901, 976, 1009, 1009, 1009, 1009, 1009, 1009, 1009, 1009, 1009, 1009, 975, 900, 819, 975, 1044, 1044, 819, 1044, 1044, 1044, 1044, 1044, 1044, 1044, 1071, 1071, 1071, 1071, 1071, 1071, 1071, 1071, 1071, 1071, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1083, 1083, 1083, 1083, 1083, 1083, 1083, 1083, 1083, 1083, 1085, 1085, 1085, 1085, 1085, 1085, 1085, 1085, 1085, 1085, 1091, 583, 1091, 583, 896, 583, 893, 891, 1091, 1093, 1093, 1093, 1093, 1093, 1093, 1093, 1093, 1093, 1093, 1102, 1102, 1102, 1102, 1102, 1102, 1102, 1102, 1102, 1102, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1111, 1111, 1111, 1111, 1111, 1111, 1111, 1111, 1111, 1111, 1114, 1114, 1114, 1114, 1114, 1114, 1114, 1114, 1114, 1114, 1122, 1122, 1122, 1122, 1122, 1122, 1122, 1122, 1122, 1122, 1125, 1125, 331, 1125, 1125, 1125, 1125, 1125, 1125, 1125, 1136, 566, 1136, 566, 890, 1136, 889, 888, 1136, 1137, 1137, 1137, 1137, 1137, 1137, 1137, 1137, 1137, 1137, 1145, 1145, 1145, 1145, 1145, 1145, 1145, 1145, 1145, 1145, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1154, 1154, 1154, 885, 884, 1154, 1154, 1154, 1154, 1154, 1135, 883, 1135, 878, 788, 1135, 788, 771, 1135, 1163, 1163, 867, 1163, 1163, 1163, 1163, 1163, 1163, 1163, 866, 771, 864, 537, 537, 863, 862, 537, 859, 756, 756, 728, 840, 838, 728, 725, 496, 835, 834, 494, 833, 494, 830, 829, 828, 827, 824, 494, 823, 822, 819, 820, 819, 817, 816, 815, 814, 813, 812, 811, 809, 566, 566, 806, 805, 804, 803, 802, 801, 800, 799, 798, 795, 794, 788, 788, 771, 774, 773, 772, 771, 768, 767, 766, 765, 764, 763, 762, 761, 760, 756, 756, 728, 496, 733, 732, 730, 729, 728, 725, 724, 723, 722, 721, 720, 719, 718, 717, 716, 715, 714, 713, 712, 711, 710, 709, 708, 707, 701, 700, 699, 698, 697, 696, 695, 251, 693, 690, 689, 688, 687, 686, 685, 684, 683, 682, 681, 680, 677, 676, 665, 651, 650, 649, 647, 646, 645, 644, 643, 500, 612, 611, 608, 603, 602, 601, 600, 599, 598, 597, 594, 593, 592, 591, 590, 589, 588, 587, 586, 474, 585, 584, 583, 582, 581, 580, 577, 576, 575, 567, 566, 565, 564, 563, 562, 561, 558, 557, 556, 553, 552, 538, 537, 536, 535, 534, 529, 528, 527, 400, 500, 499, 498, 497, 496, 495, 494, 493, 492, 491, 490, 489, 488, 485, 484, 480, 479, 478, 477, 476, 207, 207, 362, 360, 359, 359, 354, 473, 472, 471, 470, 469, 468, 467, 466, 465, 464, 337, 391, 461, 331, 329, 329, 324, 323, 322, 323, 322, 458, 457, 456, 455, 454, 453, 452, 451, 450, 449, 448, 303, 303, 445, 444, 295, 432, 431, 429, 428, 427, 426, 425, 424, 423, 400, 397, 396, 395, 394, 393, 390, 389, 388, 387, 386, 385, 384, 383, 382, 381, 380, 379, 378, 377, 376, 239, 229, 217, 217, 211, 210, 207, 207, 207, 362, 360, 359, 207, 351, 350, 350, 350, 349, 239, 348, 347, 346, 345, 229, 344, 343, 207, 221, 337, 238, 336, 331, 330, 207, 329, 328, 207, 324, 323, 322, 320, 315, 314, 309, 308, 307, 306, 305, 304, 303, 207, 295, 292, 281, 279, 278, 277, 242, 237, 232, 231, 230, 229, 222, 221, 217, 211, 210, 207, 1179, 47, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179 } ; static yyconst short int yy_chk[3512] = { 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 11, 11, 12, 12, 0, 1, 11, 188, 12, 188, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 15, 16, 27, 15, 16, 71, 59, 45, 45, 5, 7, 7, 7, 45, 46, 46, 7, 56, 56, 64, 46, 62, 71, 56, 27, 27, 62, 64, 7, 59, 7, 7, 7, 7, 27, 27, 7, 7, 1126, 59, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 1134, 459, 63, 9, 9, 9, 63, 72, 9, 9, 91, 9, 10, 31, 31, 31, 31, 31, 91, 75, 32, 32, 32, 32, 32, 75, 459, 72, 31, 53, 75, 53, 10, 10, 10, 32, 78, 78, 10, 10, 10, 78, 53, 10, 10, 1137, 10, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 21, 21, 21, 21, 21, 21, 21, 1139, 1140, 21, 33, 33, 33, 33, 33, 112, 21, 22, 22, 22, 22, 22, 22, 22, 112, 33, 22, 34, 34, 34, 34, 34, 151, 22, 23, 23, 23, 23, 23, 135, 151, 81, 34, 23, 69, 81, 81, 1141, 135, 23, 24, 24, 24, 24, 24, 82, 69, 83, 69, 24, 82, 69, 83, 83, 1145, 24, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 28, 41, 41, 41, 41, 41, 42, 42, 42, 42, 42, 1147, 85, 79, 80, 85, 41, 79, 79, 80, 85, 42, 28, 28, 80, 79, 28, 90, 195, 1149, 195, 90, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 43, 43, 43, 43, 43, 44, 44, 44, 44, 44, 74, 76, 77, 110, 84, 43, 110, 76, 77, 460, 44, 84, 76, 77, 88, 89, 84, 86, 84, 88, 89, 84, 88, 74, 86, 460, 74, 77, 76, 86, 87, 95, 77, 74, 86, 97, 98, 87, 196, 99, 196, 187, 87, 95, 99, 95, 100, 100, 95, 101, 87, 100, 102, 101, 101, 97, 102, 102, 103, 98, 104, 101, 98, 103, 106, 104, 107, 106, 109, 98, 98, 187, 106, 107, 118, 150, 118, 124, 107, 142, 109, 142, 109, 165, 127, 109, 107, 118, 165, 124, 127, 124, 142, 127, 124, 148, 150, 148, 127, 150, 155, 160, 156, 1150, 155, 155, 156, 156, 148, 158, 157, 243, 155, 157, 244, 164, 158, 164, 157, 244, 185, 158, 185, 180, 160, 180, 189, 180, 164, 199, 201, 199, 201, 185, 160, 189, 218, 204, 180, 204, 213, 213, 199, 237, 245, 243, 213, 246, 251, 245, 204, 246, 246, 251, 245, 247, 248, 250, 237, 218, 247, 1155, 248, 250, 334, 247, 252, 253, 252, 218, 254, 252, 334, 254, 253, 254, 256, 255, 568, 253, 255, 256, 255, 257, 258, 568, 256, 257, 366, 258, 259, 260, 257, 258, 259, 259, 260, 261, 261, 262, 260, 366, 263, 261, 262, 264, 264, 263, 262, 263, 264, 265, 265, 266, 267, 272, 265, 268, 272, 266, 1156, 267, 268, 272, 266, 269, 267, 270, 268, 267, 284, 269, 270, 271, 270, 284, 269, 280, 271, 271, 285, 280, 288, 284, 287, 286, 288, 285, 286, 287, 286, 288, 285, 289, 287, 290, 290, 301, 289, 291, 293, 290, 289, 291, 292, 292, 301, 293, 291, 292, 294, 300, 293, 299, 299, 294, 294, 300, 299, 316, 326, 333, 300, 338, 352, 316, 339, 338, 316, 326, 340, 339, 338, 316, 357, 339, 333, 340, 356, 365, 356, 365, 340, 357, 381, 384, 401, 398, 406, 461, 1157, 401, 398, 402, 352, 384, 398, 403, 402, 405, 402, 404, 403, 403, 404, 405, 427, 381, 924, 404, 405, 406, 407, 406, 408, 407, 427, 381, 406, 408, 407, 406, 409, 461, 408, 409, 410, 410, 411, 411, 409, 410, 409, 411, 412, 413, 924, 414, 486, 413, 413, 412, 414, 486, 422, 415, 412, 415, 414, 416, 415, 416, 417, 418, 416, 426, 418, 417, 419, 439, 439, 418, 417, 419, 439, 419, 420, 420, 421, 422, 434, 421, 420, 433, 422, 434, 421, 434, 433, 433, 437, 467, 435, 426, 436, 1158, 426, 435, 435, 438, 436, 440, 438, 511, 496, 436, 440, 438, 511, 438, 462, 440, 511, 441, 441, 437, 496, 467, 437, 441, 437, 437, 442, 443, 442, 446, 443, 442, 451, 481, 446, 443, 447, 569, 447, 462, 446, 447, 451, 463, 462, 504, 463, 504, 462, 494, 504, 463, 569, 463, 499, 494, 481, 494, 494, 501, 499, 494, 501, 502, 503, 505, 481, 501, 502, 505, 505, 503, 506, 502, 506, 507, 503, 506, 508, 509, 510, 507, 609, 508, 509, 510, 1162, 510, 508, 509, 515, 512, 512, 807, 609, 515, 512, 512, 507, 512, 513, 513, 514, 1164, 807, 513, 516, 514, 507, 516, 517, 516, 514, 518, 530, 517, 519, 519, 520, 517, 518, 519, 522, 523, 520, 518, 520, 520, 523, 520, 520, 521, 524, 521, 522, 524, 521, 525, 526, 570, 524, 533, 530, 525, 526, 530, 533, 522, 525, 538, 543, 691, 522, 537, 1165, 538, 543, 540, 578, 537, 539, 537, 537, 539, 540, 537, 544, 1169, 539, 540, 541, 544, 541, 570, 691, 541, 537, 542, 543, 542, 545, 543, 542, 547, 578, 545, 537, 545, 547, 548, 549, 548, 550, 547, 548, 549, 551, 549, 550, 554, 550, 675, 551, 555, 555, 551, 554, 551, 555, 573, 572, 554, 583, 584, 573, 550, 572, 604, 583, 584, 583, 613, 573, 604, 615, 550, 616, 613, 725, 615, 692, 617, 675, 616, 618, 583, 617, 618, 616, 692, 725, 617, 618, 619, 572, 583, 620, 622, 619, 620, 712, 619, 621, 622, 620, 623, 621, 621, 622, 623, 623, 624, 624, 1171, 625, 626, 624, 625, 629, 627, 626, 627, 625, 628, 626, 629, 627, 628, 628, 630, 629, 712, 631, 630, 630, 631, 632, 633, 634, 632, 631, 635, 633, 634, 632, 637, 633, 635, 634, 638, 637, 640, 639, 641, 637, 638, 640, 639, 652, 641, 640, 638, 639, 657, 652, 659, 660, 661, 664, 657, 661, 660, 666, 664, 659, 661, 660, 662, 663, 666, 662, 652, 663, 743, 666, 662, 665, 663, 743, 665, 659, 652, 668, 667, 665, 659, 667, 669, 1172, 668, 671, 667, 672, 669, 668, 671, 678, 672, 673, 1124, 671, 678, 672, 679, 673, 678, 694, 673, 679, 702, 669, 694, 694, 679, 1122, 702, 705, 718, 726, 728, 669, 730, 705, 718, 726, 729, 739, 730, 728, 1121, 735, 728, 702, 1120, 729, 735, 729, 729, 736, 735, 737, 740, 702, 736, 754, 737, 740, 736, 738, 738, 754, 740, 737, 738, 739, 741, 742, 739, 746, 744, 741, 745, 741, 742, 744, 746, 744, 745, 742, 747, 746, 748, 745, 748, 747, 749, 748, 747, 751, 750, 753, 756, 749, 751, 750, 751, 752, 749, 750, 752, 756, 757, 753, 756, 752, 758, 762, 757, 792, 771, 758, 769, 757, 772, 758, 753, 1119, 769, 771, 779, 753, 771, 772, 780, 772, 772, 784, 793, 780, 776, 793, 784, 771, 780, 769, 776, 772, 762, 776, 792, 777, 1117, 771, 778, 769, 777, 772, 779, 778, 777, 779, 781, 781, 782, 783, 778, 783, 781, 782, 783, 782, 785, 786, 788, 785, 789, 785, 790, 786, 789, 789, 1114, 788, 790, 796, 788, 813, 796, 790, 795, 795, 795, 796, 817, 801, 786, 788, 797, 797, 797, 801, 795, 819, 820, 810, 786, 788, 810, 825, 797, 831, 832, 810, 836, 820, 842, 831, 813, 842, 836, 923, 841, 797, 842, 817, 819, 820, 797, 841, 843, 1112, 1111, 844, 841, 843, 819, 820, 832, 844, 825, 845, 832, 923, 846, 847, 845, 873, 845, 846, 847, 849, 848, 846, 848, 849, 849, 848, 852, 850, 851, 853, 853, 852, 844, 850, 853, 851, 852, 854, 855, 854, 873, 855, 854, 856, 1109, 873, 855, 858, 858, 856, 870, 871, 858, 871, 851, 870, 871, 870, 851, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 857, 860, 865, 868, 874, 872, 868, 869, 894, 874, 872, 868, 872, 869, 874, 875, 878, 878, 878, 897, 875, 886, 875, 887, 1036, 865, 907, 886, 878, 879, 879, 879, 860, 1102, 942, 865, 1036, 1100, 869, 894, 942, 879, 881, 881, 881, 882, 882, 882, 941, 887, 897, 882, 907, 887, 1099, 941, 907, 882, 892, 892, 941, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 892, 899, 915, 921, 916, 922, 1098, 1115, 915, 916, 917, 916, 922, 915, 917, 917, 920, 918, 919, 919, 918, 920, 944, 919, 899, 918, 920, 944, 921, 925, 1115, 922, 925, 921, 899, 922, 926, 925, 927, 982, 1115, 926, 1097, 927, 982, 927, 926, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 929, 930, 938, 952, 1096, 930, 930, 938, 939, 938, 940, 939, 943, 940, 958, 1093, 939, 943, 940, 1085, 958, 943, 947, 947, 947, 949, 949, 949, 1083, 952, 959, 949, 990, 952, 947, 990, 959, 949, 960, 960, 990, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, 967, 968, 1080, 973, 986, 984, 967, 968, 967, 967, 973, 984, 967, 968, 978, 979, 978, 981, 987, 978, 1079, 979, 981, 979, 980, 980, 980, 981, 985, 983, 980, 986, 1026, 973, 983, 985, 991, 1077, 983, 1026, 998, 1006, 991, 987, 991, 998, 1000, 1006, 987, 1000, 998, 1000, 1001, 1001, 1076, 1074, 1071, 1001, 985, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 988, 997, 1089, 1002, 1009, 1018, 1016, 997, 1002, 997, 1009, 1018, 1016, 1002, 1016, 1019, 1018, 1027, 1032, 1032, 1027, 1019, 1028, 1032, 997, 1027, 1054, 1019, 1028, 1089, 1028, 1054, 1034, 1034, 997, 999, 999, 1034, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 1007, 1033, 1011, 1030, 1024, 1033, 1033, 1007, 1011, 1030, 1011, 1024, 1035, 1037, 1038, 1030, 1039, 1050, 1042, 1035, 1040, 1038, 1039, 1050, 1042, 1011, 1040, 1051, 1040, 1042, 1007, 1047, 1059, 1051, 1024, 1011, 1069, 1047, 1059, 1047, 1063, 1037, 1035, 1040, 1049, 1049, 1055, 1063, 1068, 1049, 1066, 1055, 1070, 1040, 1047, 1055, 1066, 1073, 1070, 1132, 1070, 1066, 1132, 1073, 1047, 1052, 1052, 1132, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1052, 1061, 1086, 1064, 1072, 1081, 1075, 1086, 1061, 1064, 1086, 1064, 1081, 1072, 1082, 1075, 1072, 1075, 1075, 1088, 1082, 1084, 1082, 1088, 1088, 1090, 1064, 1067, 1091, 1095, 1084, 1061, 1090, 1084, 1091, 1095, 1064, 1087, 1087, 1091, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1087, 1092, 1094, 1065, 1101, 1062, 1103, 1092, 1104, 1092, 1101, 1094, 1101, 1104, 1094, 1103, 1104, 1105, 1103, 1060, 1058, 1113, 1057, 1105, 1092, 1094, 1107, 1101, 1113, 1103, 1107, 1107, 1116, 1118, 1092, 1094, 1056, 1101, 1116, 1103, 1108, 1108, 1123, 1128, 1118, 1108, 1048, 1127, 1127, 1128, 1046, 1123, 1127, 1129, 1123, 1133, 1118, 1135, 1136, 1129, 1151, 1133, 1045, 1135, 1136, 1151, 1118, 1130, 1130, 1136, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1138, 1142, 1142, 1144, 1143, 1146, 1142, 1144, 1144, 1138, 1152, 1154, 1138, 1043, 1159, 1160, 1152, 1161, 1154, 1159, 1161, 1160, 1166, 1138, 1167, 1161, 1166, 1166, 1146, 1143, 1041, 1167, 1170, 1138, 1143, 1173, 1170, 1170, 1146, 1174, 1176, 1173, 1177, 1173, 1178, 1174, 1176, 1174, 1177, 1031, 1178, 1029, 1025, 1023, 1022, 1021, 1020, 1017, 1015, 1014, 1013, 1012, 1174, 1008, 1005, 1177, 1004, 1178, 1003, 996, 995, 994, 1174, 992, 977, 1177, 976, 1178, 1180, 1180, 1180, 1180, 1180, 1180, 1180, 1180, 1180, 1180, 1181, 1181, 1181, 1181, 1181, 1181, 1181, 1181, 1181, 1181, 1182, 1182, 1182, 1182, 1182, 1182, 1182, 1182, 1182, 1182, 1183, 1183, 1183, 1183, 1183, 1183, 1183, 1183, 1183, 1183, 1184, 1184, 1184, 1184, 1184, 1184, 1184, 1184, 1184, 1184, 1185, 1185, 1185, 1185, 1185, 1185, 1185, 1185, 1185, 1185, 1186, 1186, 1186, 1186, 1186, 1186, 1186, 1186, 1186, 1186, 1187, 1187, 974, 1187, 1187, 1187, 1187, 1187, 972, 1187, 1188, 1188, 1188, 1188, 1188, 1188, 1188, 1188, 1188, 1188, 1189, 971, 970, 1189, 1190, 1190, 1190, 1190, 1190, 1190, 1190, 1190, 1190, 1190, 1191, 969, 966, 965, 964, 963, 962, 956, 1191, 1192, 955, 1192, 954, 953, 1192, 951, 950, 1192, 1193, 946, 945, 1193, 1194, 1194, 1194, 1194, 1194, 1194, 1194, 1194, 1194, 1194, 1195, 937, 936, 1195, 1196, 935, 934, 1196, 1197, 1197, 933, 932, 1197, 1198, 931, 914, 1198, 1199, 913, 912, 1199, 1200, 1200, 911, 1200, 1200, 1200, 1200, 1200, 1200, 1200, 1201, 1201, 910, 1201, 1201, 1201, 1201, 1201, 1201, 1201, 1202, 1202, 1202, 1202, 1202, 1202, 1202, 1202, 1202, 1202, 1203, 1203, 909, 1203, 1203, 1203, 1203, 1203, 1203, 1203, 1204, 1204, 908, 1204, 1204, 1204, 1204, 1204, 1204, 1204, 1205, 1205, 1205, 1205, 1205, 1205, 1205, 1205, 1205, 1205, 1206, 906, 905, 1206, 1207, 1207, 1207, 1207, 1207, 1207, 1207, 1207, 1207, 1207, 1208, 904, 1208, 903, 902, 1208, 901, 900, 1208, 1209, 898, 896, 1209, 1210, 895, 893, 1210, 1211, 890, 889, 1211, 1212, 1212, 888, 885, 1212, 1213, 884, 883, 1213, 1214, 877, 876, 1214, 1215, 1215, 1215, 1215, 1215, 1215, 1215, 1215, 1215, 1215, 1216, 867, 866, 864, 863, 862, 1216, 861, 1216, 1217, 1217, 1217, 1217, 1217, 1217, 1217, 1217, 1217, 1217, 1218, 1218, 1218, 1218, 1218, 1218, 1218, 1218, 1218, 1218, 1219, 1219, 1219, 1219, 1219, 1219, 1219, 1219, 1219, 1219, 1220, 1220, 1220, 1220, 1220, 1220, 1220, 1220, 1220, 1220, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1222, 1222, 1222, 1222, 1222, 1222, 1222, 1222, 1222, 1222, 1223, 1223, 1223, 1223, 1223, 1223, 1223, 1223, 1223, 1223, 1224, 1224, 1224, 1224, 1224, 1224, 1224, 1224, 1224, 1224, 1225, 1225, 1225, 1225, 1225, 1225, 1225, 1225, 1225, 1225, 1226, 859, 840, 1226, 1227, 839, 837, 835, 834, 833, 830, 829, 1227, 1228, 828, 827, 1228, 1229, 1229, 826, 1229, 1229, 1229, 1229, 1229, 1229, 1229, 1230, 824, 823, 1230, 1231, 1231, 1231, 1231, 1231, 1231, 1231, 1231, 1231, 1231, 1232, 822, 821, 1232, 1233, 1233, 818, 1233, 1233, 1233, 1233, 1233, 1233, 1233, 1234, 1234, 1234, 1234, 1234, 1234, 1234, 1234, 1234, 1234, 1235, 1235, 1235, 1235, 1235, 1235, 1235, 1235, 1235, 1235, 1236, 1236, 1236, 1236, 1236, 1236, 1236, 1236, 1236, 1236, 1237, 1237, 1237, 1237, 1237, 1237, 1237, 1237, 1237, 1237, 1238, 816, 1238, 815, 814, 812, 811, 809, 1238, 1239, 1239, 1239, 1239, 1239, 1239, 1239, 1239, 1239, 1239, 1240, 1240, 1240, 1240, 1240, 1240, 1240, 1240, 1240, 1240, 1241, 1241, 1241, 1241, 1241, 1241, 1241, 1241, 1241, 1241, 1242, 1242, 1242, 1242, 1242, 1242, 1242, 1242, 1242, 1242, 1243, 1243, 1243, 1243, 1243, 1243, 1243, 1243, 1243, 1243, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1245, 1245, 808, 1245, 1245, 1245, 1245, 1245, 1245, 1245, 1246, 806, 1246, 805, 804, 1246, 803, 802, 1246, 1247, 1247, 1247, 1247, 1247, 1247, 1247, 1247, 1247, 1247, 1248, 1248, 1248, 1248, 1248, 1248, 1248, 1248, 1248, 1248, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1250, 1250, 1250, 800, 799, 1250, 1250, 1250, 1250, 1250, 1251, 798, 1251, 794, 791, 1251, 787, 775, 1251, 1252, 1252, 774, 1252, 1252, 1252, 1252, 1252, 1252, 1252, 773, 770, 768, 766, 765, 764, 763, 761, 760, 759, 755, 734, 733, 731, 727, 724, 723, 722, 721, 720, 719, 717, 716, 715, 714, 713, 711, 710, 709, 708, 706, 704, 703, 701, 700, 699, 698, 697, 696, 695, 693, 690, 689, 688, 687, 686, 685, 684, 683, 682, 681, 680, 677, 676, 674, 670, 658, 656, 655, 654, 653, 651, 650, 649, 648, 647, 646, 645, 644, 643, 642, 636, 614, 612, 611, 610, 608, 606, 605, 603, 602, 601, 600, 599, 598, 597, 596, 595, 594, 593, 592, 591, 590, 589, 588, 587, 586, 585, 582, 581, 580, 579, 577, 576, 575, 574, 571, 567, 565, 564, 563, 562, 561, 560, 559, 558, 557, 556, 553, 552, 546, 536, 535, 534, 532, 531, 529, 528, 527, 500, 498, 497, 495, 493, 492, 491, 490, 489, 488, 487, 485, 484, 483, 482, 480, 479, 478, 477, 476, 474, 473, 472, 471, 470, 469, 468, 466, 465, 464, 458, 457, 456, 455, 454, 453, 452, 450, 449, 448, 445, 444, 432, 431, 430, 429, 428, 425, 424, 423, 399, 397, 396, 395, 394, 393, 392, 391, 390, 389, 388, 387, 386, 385, 383, 382, 380, 379, 378, 377, 376, 373, 368, 363, 361, 359, 358, 355, 353, 349, 348, 347, 346, 345, 344, 343, 342, 341, 337, 336, 335, 332, 329, 327, 325, 323, 321, 318, 317, 315, 314, 313, 312, 311, 310, 309, 308, 307, 306, 305, 303, 302, 298, 297, 296, 282, 281, 279, 278, 277, 276, 275, 274, 273, 249, 242, 241, 240, 239, 238, 236, 235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 224, 223, 222, 220, 219, 216, 215, 212, 210, 206, 203, 198, 193, 191, 190, 184, 179, 178, 177, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 163, 161, 154, 153, 152, 149, 147, 146, 141, 140, 139, 133, 131, 130, 129, 126, 125, 123, 122, 121, 120, 119, 117, 116, 115, 108, 105, 96, 94, 93, 92, 73, 70, 68, 67, 66, 65, 61, 60, 58, 55, 54, 52, 47, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179 } ; static yy_state_type yy_state_buf[YY_BUF_SIZE + 2], *yy_state_ptr; static char *yy_full_match; static int yy_lp; static int yy_looking_for_trail_begin = 0; static int yy_full_lp; static int *yy_full_state; #define YY_TRAILING_MASK 0x2000 #define YY_TRAILING_HEAD_MASK 0x4000 #define REJECT \ { \ *yy_cp = yy_hold_char; /* undo effects of setting up yytext */ \ yy_cp = yy_full_match; /* restore poss. backed-over text */ \ yy_lp = yy_full_lp; /* restore orig. accepting pos. */ \ yy_state_ptr = yy_full_state; /* restore orig. state */ \ yy_current_state = *yy_state_ptr; /* restore curr. state */ \ ++yy_lp; \ goto find_rule; \ } #define yymore() yymore_used_but_not_detected #define YY_MORE_ADJ 0 #define YY_RESTORE_YY_MORE_OFFSET char *yytext; #line 1 "fortranscanner.l" #define INITIAL 0 /* -*- mode: fundamental; indent-tabs-mode: 1; -*- */ /***************************************************************************** * Parser for Fortran90 F subset * * Copyright (C) by Anke Visser * based on the work of Dimitri van Heesch. * * Permission to use, copy, modify, and distribute this software and its * documentation under the terms of the GNU General Public License is hereby * granted. No representations are made about the suitability of this software * for any purpose. It is provided "as is" without express or implied warranty. * See the GNU General Public License for more details. * * Documents produced by Doxygen are derivative works derived from the * input used in their production; they are not affected by this license. * */ /* Developer notes. * * - Consider using startScope(), endScope() functions with module, program, * subroutine or any other scope in fortran program. * * - Symbol modifiers (attributes) are collected using SymbolModifiers |= operator during * substructure parsing. When substructure ends all modifiers are applied to actual * entries in applyModifiers() functions. * * - How case insensitiveness should be handled in code? * On one side we have arg->name and entry->name, on another side modifierMap[name]. * In entries and arguments case is the same as in code, in modifier map case is lowered and * then it is compared to lowered entry/argument names. * * - Do not like constructs like aa{BS} or {BS}bb. Should try to handle blank space * with separate rule?: It seems it is often necessary, because we may parse something like * "functionA" or "MyInterface". So constructs like `(^|[ \t])interface({BS_}{ID})?/[ \t\n]' * are desired. */ #line 40 "fortranscanner.l" #include #include #include #include #include "qtbc.h" #include #include #include #include #include #include #include "fortranscanner.h" #include "entry.h" #include "message.h" #include "config.h" #include "doxygen.h" #include "util.h" #include "defargs.h" #include "language.h" #include "commentscan.h" #include "fortrancode.h" #include "pre.h" #define YY_NEVER_INTERACTIVE 1 enum ScanVar { V_IGNORE, V_VARIABLE, V_PARAMETER}; // {{{ ----- Helper structs ----- //! Holds modifiers (ie attributes) for one symbol (variable, function, etc) struct SymbolModifiers { enum Protection {NONE_P, PUBLIC, PRIVATE}; enum Direction {NONE_D, IN, OUT, INOUT}; //!< This is only used with function return value. QString type, returnName; Protection protection; Direction direction; bool optional; QString dimension; bool allocatable; bool external; bool intrinsic; bool parameter; bool pointer; bool target; bool save; SymbolModifiers() : type(), returnName(), protection(NONE_P), direction(NONE_D), optional(FALSE), dimension(), allocatable(FALSE), external(FALSE), intrinsic(FALSE), parameter(FALSE), pointer(FALSE), target(FALSE), save(FALSE) {} SymbolModifiers& operator|=(const SymbolModifiers &mdfs); SymbolModifiers& operator|=(QString mdfrString); }; //ostream& operator<<(ostream& out, const SymbolModifiers& mdfs); static const char *directionStrs[] = { "", "intent(in)", "intent(out)", "intent(inout)" }; // }}} /* ----------------------------------------------------------------- * * statics */ static ParserInterface *g_thisParser; static const char * inputString; static int inputPosition; static QFile inputFile; static QCString yyFileName; static int yyLineNr = 1 ; static Entry* current_root = 0 ; static Entry* global_root = 0 ; static Entry* file_root = 0 ; static Entry* current = 0 ; static Entry* last_entry = 0 ; static ScanVar v_type = V_IGNORE; // type of parsed variable static QList moduleProcedures; // list of all interfaces which contain unresolved // module procedures static QCString docBlock; static QCString docBlockName; static bool docBlockInBody; static bool docBlockJavaStyle; static MethodTypes mtype; static bool gstat; static Specifier virt; static QString debugStr; static QCString result; // function result static Argument *parameter; // element of parameter list static QCString argType; // fortran type of an argument of a parameter list static QCString argName; // last identifier name in variable list static QCString initializer; // initial value of a variable static QCString useModuleName; // name of module in the use statement static Protection defaultProtection; static char stringStartSymbol; // single or double quote //! Accumulated modifiers of current statement, eg variable declaration. static SymbolModifiers currentModifiers; //! Holds program scope->symbol name->symbol modifiers. static QMap > modifiers; //----------------------------------------------------------------------------- static int yyread(char *buf,int max_size); static void startCommentBlock(bool); static void handleCommentBlock(const QCString &doc,bool brief); static void addCurrentEntry(); static void addInterface(QString name); static Argument *addFortranParameter(const QCString &type,const QCString &name, const QString docs); static void scanner_abort(); static void startScope(Entry *scope); static bool endScope(Entry *scope); static QString getFullName(Entry *e); static bool isTypeName(QString name); static void resolveModuleProcedures(QList &moduleProcedures, Entry *current_root); //----------------------------------------------------------------------------- #undef YY_INPUT #define YY_INPUT(buf,result,max_size) result=yyread(buf,max_size); //----------------------------------------------------------------------------- //----------------------------------------------------------------------------- //----------------------------------------------------------------------------- /* Assume that attribute statements are almost the same as attributes. */ #define YY_STACK_USED 1 /*%option debug */ //--------------------------------------------------------------------------------- /** fortran parsing states */ #define Subprog 1 #define Parameterlist 2 #define SubprogBody 3 #define Start 4 #define Comment 5 #define Module 6 #define ModuleBody 7 #define AttributeList 8 #define Variable 9 #define Initialization 10 #define ArrayInitializer 11 #define Typedef 12 #define TypedefBody 13 #define InterfaceBody 14 #define StrIgnore 15 #define String 16 #define Use 17 #define UseOnly 18 #define ModuleProcedure 19 /** comment parsing states */ #define DocBlock 20 #define DocBackLine 21 #define EndDoc 22 /* Macros after this point can all be overridden by user definitions in * section 1. */ #ifndef YY_SKIP_YYWRAP #ifdef __cplusplus extern "C" int yywrap YY_PROTO(( void )); #else extern int yywrap YY_PROTO(( void )); #endif #endif #ifndef YY_NO_UNPUT static void yyunput YY_PROTO(( int c, char *buf_ptr )); #endif #ifndef yytext_ptr static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int )); #endif #ifdef YY_NEED_STRLEN static int yy_flex_strlen YY_PROTO(( yyconst char * )); #endif #ifndef YY_NO_INPUT #ifdef __cplusplus static int yyinput YY_PROTO(( void )); #else static int input YY_PROTO(( void )); #endif #endif #if YY_STACK_USED static int yy_start_stack_ptr = 0; static int yy_start_stack_depth = 0; static int *yy_start_stack = 0; #ifndef YY_NO_PUSH_STATE static void yy_push_state YY_PROTO(( int new_state )); #endif #ifndef YY_NO_POP_STATE static void yy_pop_state YY_PROTO(( void )); #endif #ifndef YY_NO_TOP_STATE static int yy_top_state YY_PROTO(( void )); #endif #else #define YY_NO_PUSH_STATE 1 #define YY_NO_POP_STATE 1 #define YY_NO_TOP_STATE 1 #endif #ifdef YY_MALLOC_DECL YY_MALLOC_DECL #else #if __STDC__ #ifndef __cplusplus #include #endif #else /* Just try to get by without declaring the routines. This will fail * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int) * or sizeof(void*) != sizeof(int). */ #endif #endif /* Amount of stuff to slurp up with each read. */ #ifndef YY_READ_BUF_SIZE #define YY_READ_BUF_SIZE 8192 #endif /* Copy whatever the last rule matched to the standard output. */ #ifndef ECHO /* This used to be an fputs(), but since the string might contain NUL's, * we now use fwrite(). */ #define ECHO (void) fwrite( yytext, yyleng, 1, yyout ) #endif /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, * is returned in "result". */ #ifndef YY_INPUT #define YY_INPUT(buf,result,max_size) \ if ( yy_current_buffer->yy_is_interactive ) \ { \ int c = '*', n; \ for ( n = 0; n < max_size && \ (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ buf[n] = (char) c; \ if ( c == '\n' ) \ buf[n++] = (char) c; \ if ( c == EOF && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" ); \ result = n; \ } \ else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \ && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" ); #endif /* No semi-colon after return; correct usage is to write "yyterminate();" - * we don't want an extra ';' after the "return" because that will cause * some compilers to complain about unreachable statements. */ #ifndef yyterminate #define yyterminate() return YY_NULL #endif /* Number of entries by which start-condition stack grows. */ #ifndef YY_START_STACK_INCR #define YY_START_STACK_INCR 25 #endif /* Report a fatal error. */ #ifndef YY_FATAL_ERROR #define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) #endif /* Default declaration of generated scanner - a define so the user can * easily add parameters. */ #ifndef YY_DECL #define YY_DECL int yylex YY_PROTO(( void )) #endif /* Code executed at the beginning of each rule, after yytext and yyleng * have been set up. */ #ifndef YY_USER_ACTION #define YY_USER_ACTION #endif /* Code executed at the end of each rule. */ #ifndef YY_BREAK #define YY_BREAK break; #endif #define YY_RULE_SETUP \ if ( yyleng > 0 ) \ yy_current_buffer->yy_at_bol = \ (yytext[yyleng - 1] == '\n'); \ YY_USER_ACTION YY_DECL { register yy_state_type yy_current_state; register char *yy_cp, *yy_bp; register int yy_act; #line 234 "fortranscanner.l" /*-----------------------------------------------------------------------------------*/ if ( yy_init ) { yy_init = 0; #ifdef YY_USER_INIT YY_USER_INIT; #endif if ( ! yy_start ) yy_start = 1; /* first start state */ if ( ! yyin ) yyin = stdin; if ( ! yyout ) yyout = stdout; if ( ! yy_current_buffer ) yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); yy_load_buffer_state(); } while ( 1 ) /* loops until end-of-file is reached */ { yy_cp = yy_c_buf_p; /* Support of yytext. */ *yy_cp = yy_hold_char; /* yy_bp points to the position in yy_ch_buf of the start of * the current run. */ yy_bp = yy_cp; yy_current_state = yy_start; yy_current_state += YY_AT_BOL(); yy_state_ptr = yy_state_buf; *yy_state_ptr++ = yy_current_state; yy_match: do { register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 1180 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; *yy_state_ptr++ = yy_current_state; ++yy_cp; } while ( yy_base[yy_current_state] != 3471 ); yy_find_action: yy_current_state = *--yy_state_ptr; yy_lp = yy_accept[yy_current_state]; find_rule: /* we branch to this label when backing up */ for ( ; ; ) /* until we find what rule we matched */ { if ( yy_lp && yy_lp < yy_accept[yy_current_state + 1] ) { yy_act = yy_acclist[yy_lp]; if ( yy_act & YY_TRAILING_HEAD_MASK || yy_looking_for_trail_begin ) { if ( yy_act == yy_looking_for_trail_begin ) { yy_looking_for_trail_begin = 0; yy_act &= ~YY_TRAILING_HEAD_MASK; break; } } else if ( yy_act & YY_TRAILING_MASK ) { yy_looking_for_trail_begin = yy_act & ~YY_TRAILING_MASK; yy_looking_for_trail_begin |= YY_TRAILING_HEAD_MASK; yy_full_match = yy_cp; yy_full_state = yy_state_ptr; yy_full_lp = yy_lp; } else { yy_full_match = yy_cp; yy_full_state = yy_state_ptr; yy_full_lp = yy_lp; break; } ++yy_lp; goto find_rule; } --yy_cp; yy_current_state = *--yy_state_ptr; yy_lp = yy_accept[yy_current_state]; } YY_DO_BEFORE_ACTION; do_action: /* This label is used only to access EOF actions. */ switch ( yy_act ) { /* beginning of action switch */ case 1: YY_RULE_SETUP #line 238 "fortranscanner.l" { if (YY_START == String) REJECT; // "&" is ignored in strings yyLineNr++;} /* line not finished -> read next line (text after "&" may be comment and has to be ignored */ YY_BREAK /*------ ignore strings */ case 2: YY_RULE_SETUP #line 243 "fortranscanner.l" { /* ignore \\ */} YY_BREAK case 3: YY_RULE_SETUP #line 244 "fortranscanner.l" { /* ignore \" and \' */} YY_BREAK case 4: YY_RULE_SETUP #line 246 "fortranscanner.l" { // string ends with next quote without previous backspace if(yytext[0]!=stringStartSymbol) REJECT; // single vs double quote // cout << "string end: " << debugStr << endl; yy_pop_state(); } YY_BREAK case 5: YY_RULE_SETUP #line 252 "fortranscanner.l" {debugStr+=yytext;} // ignore String contents (especially '!') YY_BREAK case 6: YY_RULE_SETUP #line 254 "fortranscanner.l" { /* string starts */ if(YY_START == StrIgnore) REJECT; // ignore in simple comments // cout << "string start: " << yytext[0] << yyLineNr << endl; yy_push_state(YY_START); stringStartSymbol=yytext[0]; // single or double quote BEGIN(String); debugStr="!^!"; } YY_BREAK /*------ ignore simple comment (not documentation comments) */ case 7: *yy_cp = yy_hold_char; /* undo effects of setting up yytext */ yy_c_buf_p = yy_cp = yy_bp + 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP #line 264 "fortranscanner.l" { if (YY_START == String) REJECT; // "!" is ignored in strings // skip comment line (without docu comments "!>" "!<" ) /* ignore further "!" and ignore comments in Strings */ if ((YY_START != StrIgnore) && (YY_START != String)) { yy_push_state(YY_START); BEGIN(StrIgnore); debugStr="*!"; //cout << "start comment "<< yyLineNr << endl; } } YY_BREAK case 8: *yy_cp = yy_hold_char; /* undo effects of setting up yytext */ yy_c_buf_p = yy_cp -= 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP #line 274 "fortranscanner.l" { yy_pop_state(); // comment ends with endline character //cout << "end comment " << yyLineNr <<" "<< debugStr << endl; } // comment line ends YY_BREAK case 9: YY_RULE_SETUP #line 277 "fortranscanner.l" { debugStr+=yytext; } YY_BREAK /*------ use handling ------------------------------------------------------------*/ case 10: YY_RULE_SETUP #line 282 "fortranscanner.l" { yy_push_state(YY_START); BEGIN(Use); } YY_BREAK case 11: YY_RULE_SETUP #line 286 "fortranscanner.l" { //cout << "using dir "<< yytext << endl; current->name=yytext; current->fileName = yyFileName; current->section=Entry::USINGDIR_SEC; current_root->addSubEntry(current); current = new Entry; yy_pop_state(); } YY_BREAK case 12: *yy_cp = yy_hold_char; /* undo effects of setting up yytext */ yy_c_buf_p = yy_cp -= 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP #line 295 "fortranscanner.l" { useModuleName=yytext; } YY_BREAK case 13: YY_RULE_SETUP #line 298 "fortranscanner.l" { BEGIN(UseOnly); } YY_BREAK case 14: YY_RULE_SETUP #line 300 "fortranscanner.l" {} YY_BREAK case 15: YY_RULE_SETUP #line 301 "fortranscanner.l" { current->name= useModuleName+"::"+yytext; current->fileName = yyFileName; current->section=Entry::USINGDECL_SEC; current_root->addSubEntry(current); current = new Entry ; } YY_BREAK case 16: YY_RULE_SETUP #line 308 "fortranscanner.l" { unput(*yytext); yy_pop_state(); } YY_BREAK /*------ ignore special fortran statements */ case 17: YY_RULE_SETUP #line 314 "fortranscanner.l" { // handle interface block QString name = yytext; int index = name.find("interface", 0, FALSE); index = name.find(QRegExp("[^ \\t]"), index+9); //cout<section = Entry::FUNCTION_SEC ; current->name = yytext; moduleProcedures.append(current); addCurrentEntry(); } YY_BREAK case 21: YY_RULE_SETUP #line 343 "fortranscanner.l" { unput(*yytext); yy_pop_state(); } YY_BREAK case 22: YY_RULE_SETUP #line 346 "fortranscanner.l" {} YY_BREAK /*------ module handling ------------------------------------------------------------*/ case 23: YY_RULE_SETUP #line 349 "fortranscanner.l" { // BEGIN(Module); defaultProtection = Public; } YY_BREAK case 24: YY_RULE_SETUP #line 353 "fortranscanner.l" { // end module resolveModuleProcedures(moduleProcedures, current_root); if(!endScope(current_root)) yyterminate(); defaultProtection = Public; BEGIN(Start); } YY_BREAK case 25: YY_RULE_SETUP #line 360 "fortranscanner.l" { //cout << "0=========> got module " << yytext << endl; current->section = Entry::NAMESPACE_SEC; current->name = yytext; current->type = "module"; current->fileName = yyFileName; current->bodyLine = yyLineNr; // used for source reference current->protection = Public ; addCurrentEntry(); startScope(last_entry); BEGIN(ModuleBody); } YY_BREAK /*------- access specification --------------------------------------------------------------------------*/ case 26: *yy_cp = yy_hold_char; /* undo effects of setting up yytext */ yy_c_buf_p = yy_cp = yy_bp + 7; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP #line 377 "fortranscanner.l" { defaultProtection = Private; } YY_BREAK case 27: *yy_cp = yy_hold_char; /* undo effects of setting up yytext */ yy_c_buf_p = yy_cp = yy_bp + 6; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP #line 378 "fortranscanner.l" { defaultProtection = Public; } YY_BREAK /*------- type definition -------------------------------------------------------------------------------*/ case 28: YY_RULE_SETUP #line 382 "fortranscanner.l" { /* type definition found : TYPE , access-spec::type-name |*/ yy_push_state(YY_START); BEGIN(Typedef); current->protection = defaultProtection; } YY_BREAK case 29: YY_RULE_SETUP #line 387 "fortranscanner.l" { QString type= yytext; } YY_BREAK case 30: YY_RULE_SETUP #line 390 "fortranscanner.l" { /* type name found */ //cout << "=========> got typedef " << yytext << ": " << yyLineNr << endl; current->section = Entry::CLASS_SEC; // was Entry::STRUCT_SEC; current->spec = Entry::Struct; current->name = yytext; /* if type is part of a module, mod name is necessary for output */ if ((current_root) && (current_root->section == Entry::CLASS_SEC || current_root->section == Entry::NAMESPACE_SEC)) //current_root->section == Entry::INTERFACE_SEC)) { current->name= current_root->name+"::"+current->name; } current->fileName = yyFileName; current->bodyLine = yyLineNr; addCurrentEntry(); startScope(last_entry); BEGIN(TypedefBody); } YY_BREAK case 31: YY_RULE_SETUP #line 410 "fortranscanner.l" { /* end type definition */ //cout << "=========> got typedef end "<< endl; if(!endScope(current_root)) yyterminate(); yy_pop_state(); } YY_BREAK /*------- module/global/typedef variable ---------------------------------------------------*/ case 32: *yy_cp = yy_hold_char; /* undo effects of setting up yytext */ yy_c_buf_p = yy_cp -= 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP #line 420 "fortranscanner.l" { /* variable declaration starts */ //fprintf(stderr,"4=========> got variable type: %s\n",yytext); QString help=yytext; help= help.simplifyWhiteSpace(); argType= help.latin1(); yy_push_state(AttributeList); } YY_BREAK case 33: YY_RULE_SETUP #line 428 "fortranscanner.l" { /* check for preprocessor symbol expand to type */ QString str = yytext; str = str.stripWhiteSpace(); DefineDict* defines = getFileDefineDict(); QString name; int index = str.find("("); if(index != -1) name = str.left(index).stripWhiteSpace(); else name = str; Define *define = (*defines)[name]; if(define != NULL && isTypeName(define->definition)) { argType = str; yy_push_state(AttributeList); } else { REJECT; } } YY_BREAK case 34: YY_RULE_SETUP #line 447 "fortranscanner.l" { /* attribute statement starts */ //fprintf(stderr,"5=========> Attribute statement: %s\n", yytext); QString tmp = yytext; currentModifiers |= tmp.stripWhiteSpace(); argType=""; yy_push_state(YY_START); /* goto attribute parsing, however there must not be one, just catch "::" if it is there. */ BEGIN( AttributeList ) ; } YY_BREAK case 35: YY_RULE_SETUP #line 460 "fortranscanner.l" {} YY_BREAK case 36: YY_RULE_SETUP #line 461 "fortranscanner.l" {} YY_BREAK case 37: YY_RULE_SETUP #line 462 "fortranscanner.l" { /* update current modifiers */ QString tmp = yytext; currentModifiers |= (tmp); } YY_BREAK case 38: YY_RULE_SETUP #line 466 "fortranscanner.l" { /* end attribute list */ BEGIN( Variable ); } YY_BREAK case 39: YY_RULE_SETUP #line 469 "fortranscanner.l" { /* unknown attribute, consider variable name */ //cout<<"start variables, unput "<<*yytext< got variable: " << argType << "::" << yytext << endl; /* work around for bug in QCString.replace (QString works) */ QString name=yytext; /* remember attributes for the symbol */ modifiers[current_root][name.lower()] |= currentModifiers; argName= name.latin1(); int last= yy_top_state(); v_type= V_IGNORE; if (!argType.isEmpty() && last != SubprogBody) { // new variable entry v_type = V_VARIABLE; current->section = Entry::VARIABLE_SEC; current->name = argName; current->type = argType; current->fileName = yyFileName; current->bodyLine = yyLineNr; // used for source reference addCurrentEntry(); } else if(!argType.isEmpty()){ // deklaration of parameter list: add type for corr. parameter parameter= addFortranParameter(argType,argName,docBlock); if (parameter) v_type= V_PARAMETER; // save, it may be function return type modifiers[current_root][name.lower()].type = argType; // any accumulated doc for argument should be emptied, // because it is handled other way and this doc can be // unexpectedly passed to the next member. current->doc.resize(0); current->brief.resize(0); } } YY_BREAK case 42: YY_RULE_SETUP #line 507 "fortranscanner.l" { /* dimension of the previous entry. */ QString name(argName); QString attr("dimension"); attr += yytext; modifiers[current_root][name] |= attr; } YY_BREAK case 43: YY_RULE_SETUP #line 513 "fortranscanner.l" {} YY_BREAK case 44: YY_RULE_SETUP #line 514 "fortranscanner.l" { yy_push_state(YY_START); initializer=""; BEGIN(Initialization); } YY_BREAK case 45: YY_RULE_SETUP #line 518 "fortranscanner.l" { currentModifiers = SymbolModifiers(); yy_pop_state(); // end variable deklaration list yyLineNr++; docBlock.resize(0); } YY_BREAK case 46: YY_RULE_SETUP #line 524 "fortranscanner.l" { initializer+=yytext; BEGIN(ArrayInitializer); // initializer may contain comma } YY_BREAK case 47: YY_RULE_SETUP #line 527 "fortranscanner.l" { initializer+=yytext; } YY_BREAK case 48: YY_RULE_SETUP #line 528 "fortranscanner.l" { initializer+=yytext; yy_pop_state(); // end initialization if (v_type == V_VARIABLE) last_entry->initializer= initializer; } YY_BREAK case 49: YY_RULE_SETUP #line 532 "fortranscanner.l" { yy_pop_state(); // end initialization if (v_type == V_VARIABLE) last_entry->initializer= initializer; } YY_BREAK case 50: YY_RULE_SETUP #line 535 "fortranscanner.l" { //| yy_pop_state(); // end initialization if (v_type == V_VARIABLE) last_entry->initializer= initializer; unput(*yytext); } YY_BREAK case 51: YY_RULE_SETUP #line 540 "fortranscanner.l" { initializer+=yytext; } YY_BREAK /*------ fortran subroutine/function handling ------------------------------------------------------------*/ /* Start is initial condition */ case 52: YY_RULE_SETUP #line 545 "fortranscanner.l" { // TYPE_SPEC is for old function style function result result= yytext; result= result.stripWhiteSpace(); current->type = result; } YY_BREAK case 53: YY_RULE_SETUP #line 551 "fortranscanner.l" { // Fortran subroutine or function found //cout << "1=========> got subprog, type:" << yytext <section = Entry::FUNCTION_SEC ; QCString subtype = yytext; subtype=subtype.lower().stripWhiteSpace(); if (!current->type) current->type = subtype; current->fileName = yyFileName; current->bodyLine = yyLineNr; // used for source reference current->startLine = -1; // ??? what is startLine for? current->args.resize(0); current->argList->clear(); yy_push_state(Subprog); docBlock.resize(0); } YY_BREAK case 54: YY_RULE_SETUP #line 564 "fortranscanner.l" { /* ignore white space */ } YY_BREAK case 55: YY_RULE_SETUP #line 565 "fortranscanner.l" { current->name = yytext; //cout << "1a==========> got " << current->type << " " << yytext << " " << yyLineNr << endl; modifiers[current_root][current->name.lower()].returnName = current->name; BEGIN(Parameterlist); } YY_BREAK case 56: YY_RULE_SETUP #line 570 "fortranscanner.l" { //current->type not yet available QString arglist= yytext; //cout << "3=========> got parameterlist " << yytext << endl; yyLineNr+= arglist.contains('\n'); arglist = arglist.replace(QRegExp("&[^\n]*\n"),""); //cout << "3=========> got parameterlist " << arglist << endl; current->args = arglist; current->args = removeRedundantWhiteSpace(current->args); stringToArgumentList(current->args, current->argList); addCurrentEntry(); startScope(last_entry); BEGIN(SubprogBody); } YY_BREAK case 57: YY_RULE_SETUP #line 584 "fortranscanner.l" { yyLineNr++; //cout << "3=========> without parameterlist " <argList); addCurrentEntry(); startScope(last_entry); BEGIN(SubprogBody); } YY_BREAK case 58: YY_RULE_SETUP #line 592 "fortranscanner.l" { result= yytext; result= result.right(result.length()-result.find("(")-1); result= result.stripWhiteSpace(); modifiers[current_root->parent()][current_root->name.lower()].returnName = result; //cout << "=====> got result " << result << endl; } YY_BREAK case 59: YY_RULE_SETUP #line 599 "fortranscanner.l" { //cout << "1e=========> got end subprog: " << yytext << endl; /* args is used for parameters in list of functions, argList for parameters in detailed function descripttion */ //current->args = argListToString(current->argList); //current->endBodyLine = yyLineNr; // ??? what ist endBodyLine for if(!endScope(current_root)) yyterminate(); yy_pop_state() ; } YY_BREAK /*---- documentation comments --------------------------------------------------------------------*/ case 60: YY_RULE_SETUP #line 613 "fortranscanner.l" { /* backward docu comment (only one line) */ if (v_type != V_IGNORE) { yy_push_state(YY_START); current->docLine = yyLineNr; docBlockJavaStyle = FALSE; docBlock.resize(0); docBlockJavaStyle = Config_getBool("JAVADOC_AUTOBRIEF"); startCommentBlock(TRUE); BEGIN(DocBackLine); } } YY_BREAK case 61: YY_RULE_SETUP #line 624 "fortranscanner.l" { // contents of current comment line docBlock=yytext; if (v_type == V_VARIABLE) { Entry *tmp_entry = current; current = last_entry; // temporarily switch to the previous entry handleCommentBlock(docBlock,TRUE); current=tmp_entry; } else if (v_type == V_PARAMETER) { parameter->docs=docBlock; } yy_pop_state(); } YY_BREAK case 62: YY_RULE_SETUP #line 638 "fortranscanner.l" { yy_push_state(YY_START); current->docLine = yyLineNr; docBlockJavaStyle = FALSE; docBlock.resize(0); docBlockJavaStyle = Config_getBool("JAVADOC_AUTOBRIEF"); startCommentBlock(TRUE); BEGIN(DocBlock); //cout << "start DocBlock " << endl; } YY_BREAK case 63: YY_RULE_SETUP #line 649 "fortranscanner.l" { // contents of current comment line docBlock+=yytext; } YY_BREAK case 64: YY_RULE_SETUP #line 652 "fortranscanner.l" { // comment block (next line is also comment line) docBlock+="\n"; // \n is necessary for lists yyLineNr++; } YY_BREAK case 65: YY_RULE_SETUP #line 656 "fortranscanner.l" { // comment block ends at the end of this line //cout <<"3=========> comment block : "<< docBlock << endl; unput(*yytext); handleCommentBlock(docBlock,TRUE); yy_pop_state(); } YY_BREAK /*------------------------------------------------------------------------------------------------*/ case 66: YY_RULE_SETUP #line 665 "fortranscanner.l" {yyLineNr++; //if (debugStr.stripWhiteSpace().length() > 0) cout << "ignored text: " << debugStr << " state: " <yy_buffer_status == YY_BUFFER_NEW ) { /* We're scanning a new file or input source. It's * possible that this happened because the user * just pointed yyin at a new source and called * yylex(). If so, then we have to assure * consistency between yy_current_buffer and our * globals. Here is the right place to do so, because * this is the first action (other than possibly a * back-up) that will match for the new input source. */ yy_n_chars = yy_current_buffer->yy_n_chars; yy_current_buffer->yy_input_file = yyin; yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL; } /* Note that here we test for yy_c_buf_p "<=" to the position * of the first EOB in the buffer, since yy_c_buf_p will * already have been incremented past the NUL character * (since all states make transitions on EOB to the * end-of-buffer state). Contrast this with the test * in input(). */ if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] ) { /* This was really a NUL. */ yy_state_type yy_next_state; yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text; yy_current_state = yy_get_previous_state(); /* Okay, we're now positioned to make the NUL * transition. We couldn't have * yy_get_previous_state() go ahead and do it * for us because it doesn't know how to deal * with the possibility of jamming (and we don't * want to build jamming into it because then it * will run more slowly). */ yy_next_state = yy_try_NUL_trans( yy_current_state ); yy_bp = yytext_ptr + YY_MORE_ADJ; if ( yy_next_state ) { /* Consume the NUL. */ yy_cp = ++yy_c_buf_p; yy_current_state = yy_next_state; goto yy_match; } else { yy_cp = yy_c_buf_p; goto yy_find_action; } } else switch ( yy_get_next_buffer() ) { case EOB_ACT_END_OF_FILE: { yy_did_buffer_switch_on_eof = 0; if ( yywrap() ) { /* Note: because we've taken care in * yy_get_next_buffer() to have set up * yytext, we can now set up * yy_c_buf_p so that if some total * hoser (like flex itself) wants to * call the scanner after we return the * YY_NULL, it'll still work - another * YY_NULL will get returned. */ yy_c_buf_p = yytext_ptr + YY_MORE_ADJ; yy_act = YY_STATE_EOF(YY_START); goto do_action; } else { if ( ! yy_did_buffer_switch_on_eof ) YY_NEW_FILE; } break; } case EOB_ACT_CONTINUE_SCAN: yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text; yy_current_state = yy_get_previous_state(); yy_cp = yy_c_buf_p; yy_bp = yytext_ptr + YY_MORE_ADJ; goto yy_match; case EOB_ACT_LAST_MATCH: yy_c_buf_p = &yy_current_buffer->yy_ch_buf[yy_n_chars]; yy_current_state = yy_get_previous_state(); yy_cp = yy_c_buf_p; yy_bp = yytext_ptr + YY_MORE_ADJ; goto yy_find_action; } break; } default: YY_FATAL_ERROR( "fatal flex scanner internal error--no action found" ); } /* end of action switch */ } /* end of scanning one token */ } /* end of yylex */ /* yy_get_next_buffer - try to read in a new buffer * * Returns a code representing an action: * EOB_ACT_LAST_MATCH - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position * EOB_ACT_END_OF_FILE - end of file */ static int yy_get_next_buffer() { register char *dest = yy_current_buffer->yy_ch_buf; register char *source = yytext_ptr; register int number_to_move, i; int ret_val; if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] ) YY_FATAL_ERROR( "fatal flex scanner internal error--end of buffer missed" ); if ( yy_current_buffer->yy_fill_buffer == 0 ) { /* Don't try to fill the buffer, so this is an EOF. */ if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 ) { /* We matched a single character, the EOB, so * treat this as a final EOF. */ return EOB_ACT_END_OF_FILE; } else { /* We matched some text prior to the EOB, first * process it. */ return EOB_ACT_LAST_MATCH; } } /* Try to read more data. */ /* First move last chars to start of buffer. */ number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1; for ( i = 0; i < number_to_move; ++i ) *(dest++) = *(source++); if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING ) /* don't do the read, it's not guaranteed to return an EOF, * just force an EOF */ yy_current_buffer->yy_n_chars = yy_n_chars = 0; else { int num_to_read = yy_current_buffer->yy_buf_size - number_to_move - 1; while ( num_to_read <= 0 ) { /* Not enough room in the buffer - grow it. */ #ifdef YY_USES_REJECT YY_FATAL_ERROR( "input buffer overflow, can't enlarge buffer because scanner uses REJECT" ); #else /* just a shorter name for the current buffer */ YY_BUFFER_STATE b = yy_current_buffer; int yy_c_buf_p_offset = (int) (yy_c_buf_p - b->yy_ch_buf); if ( b->yy_is_our_buffer ) { int new_size = b->yy_buf_size * 2; if ( new_size <= 0 ) b->yy_buf_size += b->yy_buf_size / 8; else b->yy_buf_size *= 2; b->yy_ch_buf = (char *) /* Include room in for 2 EOB chars. */ yy_flex_realloc( (void *) b->yy_ch_buf, b->yy_buf_size + 2 ); } else /* Can't grow it, we don't own it. */ b->yy_ch_buf = 0; if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( "fatal error - scanner input buffer overflow" ); yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset]; num_to_read = yy_current_buffer->yy_buf_size - number_to_move - 1; #endif } if ( num_to_read > YY_READ_BUF_SIZE ) num_to_read = YY_READ_BUF_SIZE; /* Read in more data. */ YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]), yy_n_chars, num_to_read ); yy_current_buffer->yy_n_chars = yy_n_chars; } if ( yy_n_chars == 0 ) { if ( number_to_move == YY_MORE_ADJ ) { ret_val = EOB_ACT_END_OF_FILE; yyrestart( yyin ); } else { ret_val = EOB_ACT_LAST_MATCH; yy_current_buffer->yy_buffer_status = YY_BUFFER_EOF_PENDING; } } else ret_val = EOB_ACT_CONTINUE_SCAN; yy_n_chars += number_to_move; yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR; yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR; yytext_ptr = &yy_current_buffer->yy_ch_buf[0]; return ret_val; } /* yy_get_previous_state - get the state just before the EOB char was reached */ static yy_state_type yy_get_previous_state() { register yy_state_type yy_current_state; register char *yy_cp; yy_current_state = yy_start; yy_current_state += YY_AT_BOL(); yy_state_ptr = yy_state_buf; *yy_state_ptr++ = yy_current_state; for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp ) { register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 1180 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; *yy_state_ptr++ = yy_current_state; } return yy_current_state; } /* yy_try_NUL_trans - try to make a transition on the NUL character * * synopsis * next_state = yy_try_NUL_trans( current_state ); */ #ifdef YY_USE_PROTOS static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state ) #else static yy_state_type yy_try_NUL_trans( yy_current_state ) yy_state_type yy_current_state; #endif { register int yy_is_jam; register YY_CHAR yy_c = 1; while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 1180 ) yy_c = yy_meta[(unsigned int) yy_c]; } yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; yy_is_jam = (yy_current_state == 1179); if ( ! yy_is_jam ) *yy_state_ptr++ = yy_current_state; return yy_is_jam ? 0 : yy_current_state; } #ifndef YY_NO_UNPUT #ifdef YY_USE_PROTOS static void yyunput( int c, register char *yy_bp ) #else static void yyunput( c, yy_bp ) int c; register char *yy_bp; #endif { register char *yy_cp = yy_c_buf_p; /* undo effects of setting up yytext */ *yy_cp = yy_hold_char; if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 ) { /* need to shift things up to make room */ /* +2 for EOB chars. */ register int number_to_move = yy_n_chars + 2; register char *dest = &yy_current_buffer->yy_ch_buf[ yy_current_buffer->yy_buf_size + 2]; register char *source = &yy_current_buffer->yy_ch_buf[number_to_move]; while ( source > yy_current_buffer->yy_ch_buf ) *--dest = *--source; yy_cp += (int) (dest - source); yy_bp += (int) (dest - source); yy_current_buffer->yy_n_chars = yy_n_chars = yy_current_buffer->yy_buf_size; if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 ) YY_FATAL_ERROR( "flex scanner push-back overflow" ); } *--yy_cp = (char) c; yytext_ptr = yy_bp; yy_hold_char = *yy_cp; yy_c_buf_p = yy_cp; } #endif /* ifndef YY_NO_UNPUT */ #ifdef __cplusplus static int yyinput() #else static int input() #endif { int c; *yy_c_buf_p = yy_hold_char; if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR ) { /* yy_c_buf_p now points to the character we want to return. * If this occurs *before* the EOB characters, then it's a * valid NUL; if not, then we've hit the end of the buffer. */ if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] ) /* This was really a NUL. */ *yy_c_buf_p = '\0'; else { /* need more input */ int offset = yy_c_buf_p - yytext_ptr; ++yy_c_buf_p; switch ( yy_get_next_buffer() ) { case EOB_ACT_LAST_MATCH: /* This happens because yy_g_n_b() * sees that we've accumulated a * token and flags that we need to * try matching the token before * proceeding. But for input(), * there's no matching to consider. * So convert the EOB_ACT_LAST_MATCH * to EOB_ACT_END_OF_FILE. */ /* Reset buffer status. */ yyrestart( yyin ); /* fall through */ case EOB_ACT_END_OF_FILE: { if ( yywrap() ) return EOF; if ( ! yy_did_buffer_switch_on_eof ) YY_NEW_FILE; #ifdef __cplusplus return yyinput(); #else return input(); #endif } case EOB_ACT_CONTINUE_SCAN: yy_c_buf_p = yytext_ptr + offset; break; } } } c = *(unsigned char *) yy_c_buf_p; /* cast for 8-bit char's */ *yy_c_buf_p = '\0'; /* preserve yytext */ yy_hold_char = *++yy_c_buf_p; yy_current_buffer->yy_at_bol = (c == '\n'); return c; } #ifdef YY_USE_PROTOS void yyrestart( FILE *input_file ) #else void yyrestart( input_file ) FILE *input_file; #endif { if ( ! yy_current_buffer ) yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); yy_init_buffer( yy_current_buffer, input_file ); yy_load_buffer_state(); } #ifdef YY_USE_PROTOS void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer ) #else void yy_switch_to_buffer( new_buffer ) YY_BUFFER_STATE new_buffer; #endif { if ( yy_current_buffer == new_buffer ) return; if ( yy_current_buffer ) { /* Flush out information for old buffer. */ *yy_c_buf_p = yy_hold_char; yy_current_buffer->yy_buf_pos = yy_c_buf_p; yy_current_buffer->yy_n_chars = yy_n_chars; } yy_current_buffer = new_buffer; yy_load_buffer_state(); /* We don't actually know whether we did this switch during * EOF (yywrap()) processing, but the only time this flag * is looked at is after yywrap() is called, so it's safe * to go ahead and always set it. */ yy_did_buffer_switch_on_eof = 1; } #ifdef YY_USE_PROTOS void yy_load_buffer_state( void ) #else void yy_load_buffer_state() #endif { yy_n_chars = yy_current_buffer->yy_n_chars; yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos; yyin = yy_current_buffer->yy_input_file; yy_hold_char = *yy_c_buf_p; } #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_create_buffer( FILE *file, int size ) #else YY_BUFFER_STATE yy_create_buffer( file, size ) FILE *file; int size; #endif { YY_BUFFER_STATE b; b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_buf_size = size; /* yy_ch_buf has to be 2 characters longer than the size given because * we need to put in 2 end-of-buffer characters. */ b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 ); if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_is_our_buffer = 1; yy_init_buffer( b, file ); return b; } #ifdef YY_USE_PROTOS void yy_delete_buffer( YY_BUFFER_STATE b ) #else void yy_delete_buffer( b ) YY_BUFFER_STATE b; #endif { if ( ! b ) return; if ( b == yy_current_buffer ) yy_current_buffer = (YY_BUFFER_STATE) 0; if ( b->yy_is_our_buffer ) yy_flex_free( (void *) b->yy_ch_buf ); yy_flex_free( (void *) b ); } #ifndef YY_ALWAYS_INTERACTIVE #ifndef YY_NEVER_INTERACTIVE extern int isatty YY_PROTO(( int )); #endif #endif #ifdef YY_USE_PROTOS void yy_init_buffer( YY_BUFFER_STATE b, FILE *file ) #else void yy_init_buffer( b, file ) YY_BUFFER_STATE b; FILE *file; #endif { yy_flush_buffer( b ); b->yy_input_file = file; b->yy_fill_buffer = 1; #if YY_ALWAYS_INTERACTIVE b->yy_is_interactive = 1; #else #if YY_NEVER_INTERACTIVE b->yy_is_interactive = 0; #else b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0; #endif #endif } #ifdef YY_USE_PROTOS void yy_flush_buffer( YY_BUFFER_STATE b ) #else void yy_flush_buffer( b ) YY_BUFFER_STATE b; #endif { if ( ! b ) return; b->yy_n_chars = 0; /* We always need two end-of-buffer characters. The first causes * a transition to the end-of-buffer state. The second causes * a jam in that state. */ b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; b->yy_buf_pos = &b->yy_ch_buf[0]; b->yy_at_bol = 1; b->yy_buffer_status = YY_BUFFER_NEW; if ( b == yy_current_buffer ) yy_load_buffer_state(); } #ifndef YY_NO_SCAN_BUFFER #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size ) #else YY_BUFFER_STATE yy_scan_buffer( base, size ) char *base; yy_size_t size; #endif { YY_BUFFER_STATE b; if ( size < 2 || base[size-2] != YY_END_OF_BUFFER_CHAR || base[size-1] != YY_END_OF_BUFFER_CHAR ) /* They forgot to leave room for the EOB's. */ return 0; b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */ b->yy_buf_pos = b->yy_ch_buf = base; b->yy_is_our_buffer = 0; b->yy_input_file = 0; b->yy_n_chars = b->yy_buf_size; b->yy_is_interactive = 0; b->yy_at_bol = 1; b->yy_fill_buffer = 0; b->yy_buffer_status = YY_BUFFER_NEW; yy_switch_to_buffer( b ); return b; } #endif #ifndef YY_NO_SCAN_STRING #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str ) #else YY_BUFFER_STATE yy_scan_string( yy_str ) yyconst char *yy_str; #endif { int len; for ( len = 0; yy_str[len]; ++len ) ; return yy_scan_bytes( yy_str, len ); } #endif #ifndef YY_NO_SCAN_BYTES #ifdef YY_USE_PROTOS YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len ) #else YY_BUFFER_STATE yy_scan_bytes( bytes, len ) yyconst char *bytes; int len; #endif { YY_BUFFER_STATE b; char *buf; yy_size_t n; int i; /* Get memory for full buffer, including space for trailing EOB's. */ n = len + 2; buf = (char *) yy_flex_alloc( n ); if ( ! buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); for ( i = 0; i < len; ++i ) buf[i] = bytes[i]; buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR; b = yy_scan_buffer( buf, n ); if ( ! b ) YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); /* It's okay to grow etc. this buffer, and we should throw it * away when we're done. */ b->yy_is_our_buffer = 1; return b; } #endif #ifndef YY_NO_PUSH_STATE #ifdef YY_USE_PROTOS static void yy_push_state( int new_state ) #else static void yy_push_state( new_state ) int new_state; #endif { if ( yy_start_stack_ptr >= yy_start_stack_depth ) { yy_size_t new_size; yy_start_stack_depth += YY_START_STACK_INCR; new_size = yy_start_stack_depth * sizeof( int ); if ( ! yy_start_stack ) yy_start_stack = (int *) yy_flex_alloc( new_size ); else yy_start_stack = (int *) yy_flex_realloc( (void *) yy_start_stack, new_size ); if ( ! yy_start_stack ) YY_FATAL_ERROR( "out of memory expanding start-condition stack" ); } yy_start_stack[yy_start_stack_ptr++] = YY_START; BEGIN(new_state); } #endif #ifndef YY_NO_POP_STATE static void yy_pop_state() { if ( --yy_start_stack_ptr < 0 ) YY_FATAL_ERROR( "start-condition stack underflow" ); BEGIN(yy_start_stack[yy_start_stack_ptr]); } #endif #ifndef YY_NO_TOP_STATE static int yy_top_state() { return yy_start_stack[yy_start_stack_ptr - 1]; } #endif #ifndef YY_EXIT_FAILURE #define YY_EXIT_FAILURE 2 #endif #ifdef YY_USE_PROTOS static void yy_fatal_error( yyconst char msg[] ) #else static void yy_fatal_error( msg ) char msg[]; #endif { (void) fprintf( stderr, "%s\n", msg ); exit( YY_EXIT_FAILURE ); } /* Redefine yyless() so it works in section 3 code. */ #undef yyless #define yyless(n) \ do \ { \ /* Undo effects of setting up yytext. */ \ yytext[yyleng] = yy_hold_char; \ yy_c_buf_p = yytext + n; \ yy_hold_char = *yy_c_buf_p; \ *yy_c_buf_p = '\0'; \ yyleng = n; \ } \ while ( 0 ) /* Internal utility routines. */ #ifndef yytext_ptr #ifdef YY_USE_PROTOS static void yy_flex_strncpy( char *s1, yyconst char *s2, int n ) #else static void yy_flex_strncpy( s1, s2, n ) char *s1; yyconst char *s2; int n; #endif { register int i; for ( i = 0; i < n; ++i ) s1[i] = s2[i]; } #endif #ifdef YY_NEED_STRLEN #ifdef YY_USE_PROTOS static int yy_flex_strlen( yyconst char *s ) #else static int yy_flex_strlen( s ) yyconst char *s; #endif { register int n; for ( n = 0; s[n]; ++n ) ; return n; } #endif #ifdef YY_USE_PROTOS static void *yy_flex_alloc( yy_size_t size ) #else static void *yy_flex_alloc( size ) yy_size_t size; #endif { return (void *) malloc( size ); } #ifdef YY_USE_PROTOS static void *yy_flex_realloc( void *ptr, yy_size_t size ) #else static void *yy_flex_realloc( ptr, size ) void *ptr; yy_size_t size; #endif { /* The cast to (char *) in the following accommodates both * implementations that use char* generic pointers, and those * that use void* generic pointers. It works with the latter * because both ANSI C and C++ allow castless assignment from * any pointer type to void*, and deal with argument conversions * as though doing an assignment. */ return (void *) realloc( (char *) ptr, size ); } #ifdef YY_USE_PROTOS static void yy_flex_free( void *ptr ) #else static void yy_flex_free( ptr ) void *ptr; #endif { free( ptr ); } #if YY_MAIN int main() { yylex(); return 0; } #endif #line 681 "fortranscanner.l" //---------------------------------------------------------------------------- /** used to copy entry to an interface module procedure */ static void copyEntry(Entry *dest, Entry *src) { dest->type = src->type; dest->fileName = src->fileName; dest->bodyLine = src->bodyLine; dest->args = src->args; dest->argList = new ArgumentList(*src->argList); } /** fill empty interface module procedures with info from corresponding module subprogs @TODO: handle procedures in used modules */ void resolveModuleProcedures(QList &moduleProcedures, Entry *current_root) { if (moduleProcedures.isEmpty()) return; EntryListIterator eli1(moduleProcedures); // for all module procedures for (Entry *ce1; (ce1=eli1.current()); ++eli1) { // check all entries in this module EntryListIterator eli2(*current_root->children()); for (Entry *ce2; (ce2=eli2.current()); ++eli2) { if (ce1->name == ce2->name) { copyEntry(ce1, ce2); } } // for procedures in current module } // for all interface module procedures moduleProcedures.clear(); } static bool isTypeName(QString name) { name = name.lower(); return name=="integer" || name == "real" || name=="complex" || name == "logical"; } /*! Extracts string which resides within parentheses of provided string. */ static QString extractFromParens(const QString name) { QString extracted = name; int start = extracted.find("("); if(start != -1) { extracted.remove(0, start+1); } int end = extracted.findRev(")"); if(end != -1) { int length = extracted.length(); extracted.remove(end, length); } extracted = extracted.stripWhiteSpace(); return extracted; } /*! Adds passed modifiers to these modifiers.*/ SymbolModifiers& SymbolModifiers::operator|=(const SymbolModifiers &mdfs) { if(mdfs.protection!=NONE_P) protection = mdfs.protection; if(mdfs.direction!=NONE_D) direction = mdfs.direction; optional |= mdfs.optional; if(!mdfs.dimension.isNull()) dimension = mdfs.dimension; allocatable |= mdfs.allocatable; external |= mdfs.external; intrinsic |= mdfs.intrinsic; parameter |= mdfs.parameter; pointer |= mdfs.pointer; target |= mdfs.target; save |= mdfs.save; return *this; } /*! Extracts and adds passed modifier to these modifiers.*/ SymbolModifiers& SymbolModifiers::operator|=(QString mdfString) { mdfString = mdfString.lower(); SymbolModifiers newMdf; if (mdfString.startsWith("dimension")) { newMdf.dimension=mdfString; } else if (mdfString.contains("intent")) { QString tmp = extractFromParens(mdfString); bool isin = tmp.contains("in"); bool isout = tmp.contains("out"); if(isin && isout) newMdf.direction = SymbolModifiers::INOUT; else if(isin) newMdf.direction = SymbolModifiers::IN; else if(isout) newMdf.direction = SymbolModifiers::OUT; } else if (mdfString=="public") { newMdf.protection = SymbolModifiers::PUBLIC; } else if (mdfString=="private") { newMdf.protection = SymbolModifiers::PRIVATE; } else if (mdfString=="optional") { newMdf.optional = TRUE; } else if (mdfString=="allocatable") { newMdf.allocatable = TRUE; } else if (mdfString=="external") { newMdf.external = TRUE; } else if(mdfString=="intrinsic") { newMdf.intrinsic = TRUE; } else if(mdfString=="parameter") { newMdf.parameter = TRUE; } else if(mdfString=="pointer") { newMdf.pointer = TRUE; } else if(mdfString=="target") { newMdf.target = TRUE; } else if(mdfString=="save") { newMdf.save = TRUE; } (*this) |= newMdf; return *this; } /*! For debugging purposes. */ //ostream& operator<<(ostream& out, const SymbolModifiers& mdfs) //{ // out<argList->count(); i++) { Argument *arg = subprog->argList->at(i); if(!byTypeName && arg->name.lower() == cname || byTypeName && arg->type.lower() == cname) return arg; } return NULL; } /*! Find function with given name in \a entry. */ #if 0 static Entry *findFunction(Entry* entry, QString name) { QCString cname(name.lower()); EntryListIterator eli(*entry->children()); Entry *ce; for (;(ce=eli.current());++eli) { if(ce->section != Entry::FUNCTION_SEC) continue; if(ce->name.lower() == cname) return ce; } return NULL; } #endif /*! Apply modifiers stored in \a mdfs to the \a typeName string. */ static QString applyModifiers(QString typeName, SymbolModifiers& mdfs) { if(!mdfs.dimension.isNull()) { typeName += ","; typeName += mdfs.dimension; } if(mdfs.direction!=SymbolModifiers::NONE_D) { typeName += ","; typeName += directionStrs[mdfs.direction]; } if(mdfs.optional) { typeName += ","; typeName += "optional"; } if(mdfs.allocatable) { typeName += ","; typeName += "allocatable"; } if(mdfs.external) { typeName += ","; typeName += "external"; } if(mdfs.intrinsic) { typeName += ","; typeName += "intrinsic"; } if(mdfs.parameter) { typeName += ","; typeName += "parameter"; } if(mdfs.pointer) { typeName += ","; typeName += "pointer"; } if(mdfs.target) { typeName += ","; typeName += "target"; } if(mdfs.save) { typeName += ","; typeName += "save"; } return typeName; } /*! Apply modifiers stored in \a mdfs to the \a arg argument. */ static void applyModifiers(Argument *arg, SymbolModifiers& mdfs) { QString tmp = arg->type; arg->type = applyModifiers(tmp, mdfs); } /*! Apply modifiers stored in \a mdfs to the \a ent entry. */ static void applyModifiers(Entry *ent, SymbolModifiers& mdfs) { QString tmp = ent->type; ent->type = applyModifiers(tmp, mdfs); if(mdfs.protection == SymbolModifiers::PUBLIC) ent->protection = Public; else if(mdfs.protection == SymbolModifiers::PRIVATE) ent->protection = Private; } /*! Starts the new scope in fortran program. Consider using this function when * starting module, interface, function or other program block. * \see endScope() */ static void startScope(Entry *scope) { //cout<<"start scope: "<name< mdfMap; modifiers.insert(scope, mdfMap); } /*! Ends scope in fortran program: may update subprogram arguments or module variable attributes. * \see startScope() */ static bool endScope(Entry *scope) { //cout<<"end scope: "<name<parent()) { current_root= current_root->parent(); /* end substructure */ } else { fprintf(stderr,"parse error in end "); scanner_abort(); return FALSE; } // update variables or subprogram arguments with modifiers QMap& mdfsMap = modifiers[scope]; if(scope->section == Entry::FUNCTION_SEC) { // iterate all symbol modifiers of the scope for(QMap::Iterator it=mdfsMap.begin(); it!=mdfsMap.end(); it++) { //cout<name.lower()].returnName<name.lower()].returnName.lower(); if(modifiers[scope].contains(returnName)) { scope->type = modifiers[scope][returnName].type; // returning type works applyModifiers(scope, modifiers[scope][returnName]); // returning array works } } else if(scope->section == Entry::CLASS_SEC) { // was INTERFACE_SEC if(scope->parent()->section == Entry::FUNCTION_SEC) { // interface within function // iterate functions of interface and // try to find types for dummy(ie. argument) procedures. //cout<<"Search in "<name<children()); Entry *ce; for (;(ce=eli.current());++eli) { if(ce->section != Entry::FUNCTION_SEC) continue; Argument *arg = findArgument(scope->parent(), ce->name, TRUE); if(arg != NULL) { // set type of dummy procedure argument to interface arg->name = arg->type; arg->type = scope->name; } } } } else { // not function section or interface // iterate variables: get and apply modifiers EntryListIterator eli(*scope->children()); Entry *ce; for (;(ce=eli.current());++eli) { if(ce->section != Entry::VARIABLE_SEC && ce->section != Entry::FUNCTION_SEC) continue; //cout<name<<", "<name.lower())<name.lower())) applyModifiers(ce, mdfsMap[ce->name.lower()]); } } // clear all modifiers of the scope modifiers.remove(scope); return TRUE; } //! Return full name of the entry. Sometimes we must combine several names recursively. static QString getFullName(Entry *e) { QString name = e->name; if(e->section == Entry::CLASS_SEC // || e->section == Entry::INTERFACE_SEC || !e->parent() || e->parent()->name.isEmpty()) return name; return getFullName(e->parent())+"::"+name; } static int yyread(char *buf,int max_size) { int c=0; while( c < max_size && inputString[inputPosition] ) { *buf = inputString[inputPosition++] ; c++; buf++; } return c; } static void initParser() { last_entry = 0; } static void initEntry() { current->protection = defaultProtection ; current->mtype = mtype; current->virt = virt; current->stat = gstat; initGroupInfo(current); } /** adds current entry to current_root and creates new current */ static void addCurrentEntry() { //cout << "Adding entry " <name.data() << endl; current_root->addSubEntry(current); last_entry = current; current = new Entry ; initEntry(); } /*! Adds interface to the root entry. * \note Code was brought to this procedure from the parser, * because there was/is idea to use it in several parts of the parser. */ static void addInterface(QString name) { current->section = Entry::CLASS_SEC; // was Entry::INTERFACE_SEC; current->spec = Entry::Interface; current->name = name; /* if type is part of a module, mod name is necessary for output */ if ((current_root) && (current_root->section == Entry::CLASS_SEC || current_root->section == Entry::NAMESPACE_SEC)) { current->name= current_root->name+"::"+current->name; } if ((current_root) && (current_root->section == Entry::FUNCTION_SEC)) { current->name = getFullName(current_root) + "__" + QString(current->name); } current->fileName = yyFileName; current->bodyLine = yyLineNr; addCurrentEntry(); } //----------------------------------------------------------------------------- /*! Update the argument \a name with additional \a type info. */ static Argument *addFortranParameter(const QCString &type,const QCString &name, const QString docs) { //cout<<"addFortranParameter(): "<argList==0) return NULL; ArgumentListIterator ali(*current_root->argList); Argument *a; for (ali.toFirst();(a=ali.current());++ali) { if (a->type.lower()==name.lower()) { ret=a; //cout << "addParameter found: " << type << " , " << name << endl; a->type=type.stripWhiteSpace(); a->name=name.stripWhiteSpace(); if(!docs.isNull()) a->docs = docs; break; } } // for return ret; } //---------------------------------------------------------------------------- static void startCommentBlock(bool brief) { if (brief) { current->briefFile = yyFileName; current->briefLine = yyLineNr; } else { current->docFile = yyFileName; current->docLine = yyLineNr; } } //---------------------------------------------------------------------------- static void handleCommentBlock(const QCString &doc,bool brief) { docBlockInBody = FALSE; bool needsEntry = FALSE; static bool hideInBodyDocs = Config_getBool("HIDE_IN_BODY_DOCS"); int position=0; if (docBlockInBody && hideInBodyDocs) return; //fprintf(stderr,"call parseCommentBlock [%s]\n",doc.data()); while (parseCommentBlock( g_thisParser, docBlockInBody ? last_entry : current, doc, // text yyFileName, // file brief ? current->briefLine : current->docLine, // line of block start docBlockInBody ? FALSE : brief, docBlockInBody ? FALSE : docBlockJavaStyle, docBlockInBody, defaultProtection, position, needsEntry )) { //fprintf(stderr,"parseCommentBlock position=%d [%s] needsEntry=%d\n",position,doc.data()+position,needsEntry); if (needsEntry) addCurrentEntry(); } //fprintf(stderr,"parseCommentBlock position=%d [%s] needsEntry=%d\n",position,doc.data()+position,needsEntry); if (needsEntry) addCurrentEntry(); } //---------------------------------------------------------------------------- static int level=0; static void debugCompounds(Entry *rt) // print Entry structure (for debugging) { level++; printf("%d) debugCompounds(%s) line %d\n",level, rt->name.data(), rt->bodyLine); EntryListIterator eli(*rt->children()); Entry *ce; for (;(ce=eli.current());++eli) { debugCompounds(ce); } level--; } static void parseMain(const char *fileName,const char *fileBuf,Entry *rt) { initParser(); defaultProtection = Public; inputString = fileBuf; inputPosition = 0; //anonCount = 0; // don't reset per file mtype = Method; gstat = FALSE; virt = Normal; current_root = rt; global_root = rt; inputFile.setName(fileName); if (inputFile.open(IO_ReadOnly)) { yyLineNr= 1 ; yyFileName = fileName; msg("Parsing file %s...\n",yyFileName.data()); current_root = rt ; initParser(); groupEnterFile(yyFileName,yyLineNr); current = new Entry; current->name = yyFileName; current->section = Entry::SOURCE_SEC; current_root->addSubEntry(current); file_root = current; current = new Entry; fscanYYrestart( fscanYYin ); { BEGIN( Start ); } fscanYYlex(); groupLeaveFile(yyFileName,yyLineNr); //debugCompounds(rt); //debug rt->program.resize(0); delete current; current=0; moduleProcedures.clear(); inputFile.close(); } } //---------------------------------------------------------------------------- void FortranLanguageScanner::parseInput(const char *fileName,const char *fileBuf,Entry *root) { g_thisParser = this; ::parseMain(fileName,fileBuf,root); } void FortranLanguageScanner::parseCode(CodeOutputInterface & codeOutIntf, const char * scopeName, const QCString & input, bool isExampleBlock, const char * exampleName, FileDef * fileDef, int startLine, int endLine, bool inlineFragment, MemberDef *memberDef ) { ::parseFortranCode(codeOutIntf,scopeName,input,isExampleBlock,exampleName, fileDef,startLine,endLine,inlineFragment,memberDef); } bool FortranLanguageScanner::needsPreprocessing(const QCString &extension) { (void)extension; return TRUE; } void FortranLanguageScanner::resetCodeParserState() { ::resetFortranCodeParserState(); } void FortranLanguageScanner::parsePrototype(const char *text) { (void)text; } static void scanner_abort() { fprintf(stderr,"********************************************************************\n"); fprintf(stderr,"Error in file %s line: %d, state: %d\n",yyFileName.data(),yyLineNr,YY_START); fprintf(stderr,"********************************************************************\n"); EntryListIterator eli(*global_root->children()); Entry *ce; bool start=FALSE; for (;(ce=eli.current());++eli) { if (ce == file_root) start=TRUE; if (start) ce->reset(); } return; //exit(-1); } //---------------------------------------------------------------------------- #if !defined(YY_FLEX_SUBMINOR_VERSION) //---------------------------------------------------------------------------- extern "C" { // some bogus code to keep the compiler happy void fscannerYYdummy() { yy_flex_realloc(0,0); } } #endif