]> git.saurik.com Git - bison.git/blame - src/scan-gram.c
projects / bison.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* doc/bison.texinfo: Document ability to have multiple
[bison.git] / src / scan-gram.c
CommitLineData
e9955c83
AD		 1#define yy_create_buffer gram__create_buffer
2#define yy_delete_buffer gram__delete_buffer
3#define yy_scan_buffer gram__scan_buffer
4#define yy_scan_string gram__scan_string
5#define yy_scan_bytes gram__scan_bytes
6#define yy_flex_debug gram__flex_debug
7#define yy_init_buffer gram__init_buffer
8#define yy_flush_buffer gram__flush_buffer
9#define yy_load_buffer_state gram__load_buffer_state
10#define yy_switch_to_buffer gram__switch_to_buffer
11#define yyin gram_in
12#define yyleng gram_leng
13#define yylex gram_lex
14#define yyout gram_out
15#define yyrestart gram_restart
16#define yytext gram_text
17
8efe435c 18#line 19 "lex.yy.c"
e9955c83
AD		 19/* A lexical scanner generated by flex */
20
21/* Scanner skeleton version:
22 * $Header$
23 */
24
25#define FLEX_SCANNER
26#define YY_FLEX_MAJOR_VERSION 2
27#define YY_FLEX_MINOR_VERSION 5
28
29#include <stdio.h>
44995b2e 30#include <errno.h>
e9955c83
AD		 31
32/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
33#ifdef c_plusplus
34#ifndef __cplusplus
35#define __cplusplus
36#endif
37#endif
38
39
40#ifdef __cplusplus
41
42#include <stdlib.h>
44995b2e 43#ifndef _WIN32
e9955c83 44#include <unistd.h>
44995b2e 45#endif
e9955c83
AD		 46
47/* Use prototypes in function declarations. */
48#define YY_USE_PROTOS
49
50/* The "const" storage-class-modifier is valid. */
51#define YY_USE_CONST
52
53#else /* ! __cplusplus */
54
55#if __STDC__
56
57#define YY_USE_PROTOS
58#define YY_USE_CONST
59
60#endif /* __STDC__ */
61#endif /* ! __cplusplus */
62
63#ifdef __TURBOC__
64 #pragma warn -rch
65 #pragma warn -use
66#include <io.h>
67#include <stdlib.h>
68#define YY_USE_CONST
69#define YY_USE_PROTOS
70#endif
71
72#ifdef YY_USE_CONST
73#define yyconst const
74#else
75#define yyconst
76#endif
77
78
79#ifdef YY_USE_PROTOS
80#define YY_PROTO(proto) proto
81#else
82#define YY_PROTO(proto) ()
83#endif
84
85/* Returned upon end-of-file. */
86#define YY_NULL 0
87
88/* Promotes a possibly negative, possibly signed char to an unsigned
89 * integer for use as an array index. If the signed char is negative,
90 * we want to instead treat it as an 8-bit unsigned char, hence the
91 * double cast.
92 */
93#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
94
95/* Enter a start condition. This macro really ought to take a parameter,
96 * but we do it the disgusting crufty way forced on us by the ()-less
97 * definition of BEGIN.
98 */
99#define BEGIN yy_start = 1 + 2 *
100
101/* Translate the current start state into a value that can be later handed
102 * to BEGIN to return to the state. The YYSTATE alias is for lex
103 * compatibility.
104 */
105#define YY_START ((yy_start - 1) / 2)
106#define YYSTATE YY_START
107
108/* Action number for EOF rule of a given start state. */
109#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
110
111/* Special action meaning "start processing a new file". */
112#define YY_NEW_FILE yyrestart( yyin )
113
114#define YY_END_OF_BUFFER_CHAR 0
115
116/* Size of default input buffer. */
117#define YY_BUF_SIZE 16384
118
119typedef struct yy_buffer_state *YY_BUFFER_STATE;
120
121extern int yyleng;
122extern FILE *yyin, *yyout;
123
124#define EOB_ACT_CONTINUE_SCAN 0
125#define EOB_ACT_END_OF_FILE 1
126#define EOB_ACT_LAST_MATCH 2
127
128/* The funky do-while in the following #define is used to turn the definition
129 * int a single C statement (which needs a semi-colon terminator). This
130 * avoids problems with code like:
131 *
132 * if ( condition_holds )
133 * yyless( 5 );
134 * else
135 * do_something_else();
136 *
137 * Prior to using the do-while the compiler would get upset at the
138 * "else" because it interpreted the "if" statement as being all
139 * done when it reached the ';' after the yyless() call.
140 */
141
142/* Return all but the first 'n' matched characters back to the input stream. */
143
144#define yyless(n) \
145 do \
146 { \
147 /* Undo effects of setting up yytext. */ \
148 *yy_cp = yy_hold_char; \
149 YY_RESTORE_YY_MORE_OFFSET \
150 yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
151 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
152 } \
153 while ( 0 )
154
155#define unput(c) yyunput( c, yytext_ptr )
156
157/* The following is because we cannot portably get our hands on size_t
158 * (without autoconf's help, which isn't available because we want
159 * flex-generated scanners to compile on their own).
160 */
161typedef unsigned int yy_size_t;
162
163
164struct yy_buffer_state
165 {
166 FILE *yy_input_file;
167
168 char *yy_ch_buf; /* input buffer */
169 char *yy_buf_pos; /* current position in input buffer */
170
171 /* Size of input buffer in bytes, not including room for EOB
172 * characters.
173 */
174 yy_size_t yy_buf_size;
175
176 /* Number of characters read into yy_ch_buf, not including EOB
177 * characters.
178 */
179 int yy_n_chars;
180
181 /* Whether we "own" the buffer - i.e., we know we created it,
182 * and can realloc() it to grow it, and should free() it to
183 * delete it.
184 */
185 int yy_is_our_buffer;
186
187 /* Whether this is an "interactive" input source; if so, and
188 * if we're using stdio for input, then we want to use getc()
189 * instead of fread(), to make sure we stop fetching input after
190 * each newline.
191 */
192 int yy_is_interactive;
193
194 /* Whether we're considered to be at the beginning of a line.
195 * If so, '^' rules will be active on the next match, otherwise
196 * not.
197 */
198 int yy_at_bol;
199
200 /* Whether to try to fill the input buffer when we reach the
201 * end of it.
202 */
203 int yy_fill_buffer;
204
205 int yy_buffer_status;
206#define YY_BUFFER_NEW 0
207#define YY_BUFFER_NORMAL 1
208 /* When an EOF's been seen but there's still some text to process
209 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
210 * shouldn't try reading from the input source any more. We might
211 * still have a bunch of tokens to match, though, because of
212 * possible backing-up.
213 *
214 * When we actually see the EOF, we change the status to "new"
215 * (via yyrestart()), so that the user can continue scanning by
216 * just pointing yyin at a new input file.
217 */
218#define YY_BUFFER_EOF_PENDING 2
219 };
220
221static YY_BUFFER_STATE yy_current_buffer = 0;
222
223/* We provide macros for accessing buffer states in case in the
224 * future we want to put the buffer states in a more general
225 * "scanner state".
226 */
227#define YY_CURRENT_BUFFER yy_current_buffer
228
229
230/* yy_hold_char holds the character lost when yytext is formed. */
231static char yy_hold_char;
232
233static int yy_n_chars; /* number of characters read into yy_ch_buf */
234
235
236int yyleng;
237
238/* Points to current character in buffer. */
239static char *yy_c_buf_p = (char *) 0;
240static int yy_init = 1; /* whether we need to initialize */
241static int yy_start = 0; /* start state number */
242
243/* Flag which is used to allow yywrap()'s to do buffer switches
244 * instead of setting up a fresh yyin. A bit of a hack ...
245 */
246static int yy_did_buffer_switch_on_eof;
247
248void yyrestart YY_PROTO(( FILE *input_file ));
249
250void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
251void yy_load_buffer_state YY_PROTO(( void ));
252YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
253void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
254void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
255void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
256#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
257
258YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
259YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
260YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
261
262static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
263static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
264static void yy_flex_free YY_PROTO(( void * ));
265
266#define yy_new_buffer yy_create_buffer
267
268#define yy_set_interactive(is_interactive) \
269 { \
270 if ( ! yy_current_buffer ) \
271 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
272 yy_current_buffer->yy_is_interactive = is_interactive; \
273 }
274
275#define yy_set_bol(at_bol) \
276 { \
277 if ( ! yy_current_buffer ) \
278 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
279 yy_current_buffer->yy_at_bol = at_bol; \
280 }
281
282#define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
283
284
285#define yywrap() 1
286#define YY_SKIP_YYWRAP
287
288#define FLEX_DEBUG
289typedef unsigned char YY_CHAR;
290FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
291typedef int yy_state_type;
292
293#define FLEX_DEBUG
294extern char *yytext;
295#define yytext_ptr yytext
296
297static yy_state_type yy_get_previous_state YY_PROTO(( void ));
298static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
299static int yy_get_next_buffer YY_PROTO(( void ));
300static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
301
302/* Done after the current pattern has been matched and before the
303 * corresponding action - sets up yytext.
304 */
305#define YY_DO_BEFORE_ACTION \
306 yytext_ptr = yy_bp; \
307 yyleng = (int) (yy_cp - yy_bp); \
308 yy_hold_char = *yy_cp; \
309 *yy_cp = '\0'; \
310 yy_c_buf_p = yy_cp;
311
9280d3ef
AD		 312#define YY_NUM_RULES 93
313#define YY_END_OF_BUFFER 94
314static yyconst short int yy_accept[357] =
e9955c83
AD		 315 { 0,
316 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
9280d3ef
AD		 317 0, 0, 0, 0, 0, 0, 0, 0, 94, 45,
318 34, 33, 33, 38, 45, 37, 35, 45, 36, 30,
319 32, 45, 29, 42, 31, 49, 50, 50, 51, 46,
320 47, 74, 76, 76, 73, 46, 93, 47, 70, 72,
321 72, 69, 93, 53, 54, 54, 52, 93, 56, 57,
322 57, 55, 85, 86, 86, 78, 87, 77, 87, 87,
323 46, 47, 82, 81, 89, 91, 91, 78, 93, 77,
324 93, 92, 92, 92, 78, 77, 92, 34, 33, 33,
325 33, 33, 44, 0, 0, 0, 0, 0, 0, 0,
326
327 0, 0, 0, 0, 0, 0, 0, 41, 35, 39,
328 40, 36, 0, 49, 50, 50, 50, 50, 48, 74,
329 76, 76, 76, 76, 75, 72, 72, 72, 72, 71,
330 53, 54, 54, 54, 54, 68, 67, 68, 60, 61,
331 62, 63, 64, 65, 66, 68, 57, 57, 57, 57,
332 85, 86, 86, 86, 86, 83, 0, 83, 0, 79,
333 80, 84, 0, 84, 89, 91, 91, 91, 91, 90,
334 0, 88, 92, 92, 92, 92, 92, 79, 80, 0,
6c35d22c 335 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
e9955c83
AD		 336 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
337
9280d3ef 338 0, 40, 43, 0, 0, 0, 80, 80, 80, 0,
6c35d22c 339 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
e9955c83 340 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
9280d3ef
AD		 341 0, 0, 0, 0, 0, 58, 59, 0, 0, 0,
342 0, 0, 0, 0, 0, 0, 10, 0, 0, 0,
343 0, 0, 0, 17, 0, 0, 0, 0, 22, 0,
344 25, 0, 0, 28, 0, 2, 0, 0, 0, 0,
345 0, 0, 0, 0, 0, 0, 15, 0, 0, 19,
346 0, 21, 23, 26, 0, 1, 3, 0, 0, 7,
347 0, 0, 0, 0, 0, 0, 16, 0, 0, 0,
348
349 0, 4, 0, 0, 0, 0, 0, 0, 0, 0,
350 0, 0, 0, 27, 0, 0, 0, 0, 0, 0,
351 13, 14, 0, 20, 0, 0, 0, 0, 0, 11,
352 0, 0, 0, 5, 0, 0, 0, 0, 0, 0,
353 0, 8, 0, 12, 18, 24, 0, 0, 6, 0,
354 0, 0, 0, 0, 9, 0
e9955c83
AD		 355 } ;
356
357static yyconst int yy_ec[256] =
358 { 0,
359 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
360 1, 2, 4, 1, 1, 1, 1, 1, 1, 1,
361 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
362 1, 2, 1, 5, 1, 6, 7, 1, 8, 1,
363 1, 9, 1, 1, 10, 11, 12, 13, 13, 13,
364 13, 13, 13, 13, 13, 14, 14, 15, 16, 17,
365 18, 19, 1, 20, 21, 21, 21, 21, 21, 21,
366 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
367 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
368 22, 23, 24, 1, 25, 1, 26, 27, 28, 29,
369
370 30, 31, 32, 33, 34, 11, 35, 36, 37, 38,
371 39, 40, 11, 41, 42, 43, 44, 45, 11, 46,
372 47, 11, 48, 49, 50, 1, 1, 1, 1, 1,
373 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
374 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
375 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
376 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
377 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
378 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
379 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
380
381 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
382 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
383 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
384 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
385 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
386 1, 1, 1, 1, 1
387 } ;
388
389static yyconst int yy_meta[51] =
390 { 0,
6c35d22c
AD		 391 1, 1, 2, 3, 4, 5, 6, 7, 8, 1,
392 9, 7, 10, 10, 1, 1, 1, 1, 11, 5,
393 10, 12, 13, 12, 9, 10, 10, 10, 10, 10,
394 10, 9, 9, 9, 9, 9, 9, 9, 9, 9,
395 9, 9, 9, 9, 9, 9, 9, 5, 1, 5
e9955c83
AD		 396 } ;
397
9280d3ef 398static yyconst short int yy_base[383] =
e9955c83
AD		 399 { 0,
400 0, 0, 48, 51, 58, 61, 83, 86, 73, 94,
9280d3ef
AD		 401 108, 110, 131, 179, 227, 249, 116, 142, 798, 799,
402 795, 55, 64, 799, 267, 799, 0, 44, 79, 799,
403 799, 0, 799, 799, 799, 0, 97, 99, 784, 799,
404 799, 0, 119, 122, 799, 799, 0, 799, 799, 126,
405 138, 799, 0, 0, 145, 153, 799, 311, 799, 155,
406 157, 799, 0, 159, 164, 799, 159, 799, 62, 164,
407 799, 799, 799, 799, 0, 185, 189, 799, 125, 799,
408 185, 192, 201, 203, 205, 207, 209, 793, 211, 213,
409 216, 219, 799, 760, 763, 187, 758, 49, 198, 747,
410
411 199, 756, 109, 208, 751, 758, 761, 799, 0, 799,
412 0, 212, 767, 0, 241, 255, 259, 261, 799, 0,
413 263, 265, 272, 274, 799, 276, 278, 280, 282, 799,
414 0, 284, 286, 288, 296, 799, 799, 772, 799, 799,
415 799, 799, 799, 799, 799, 0, 298, 314, 316, 318,
416 0, 322, 324, 326, 328, 799, 322, 326, 0, 799,
417 0, 799, 330, 332, 0, 344, 347, 355, 357, 243,
418 263, 799, 359, 361, 363, 365, 367, 369, 371, 746,
419 349, 742, 742, 144, 750, 752, 742, 367, 748, 734,
420 746, 734, 742, 743, 746, 730, 735, 729, 734, 726,
421
422 738, 0, 799, 752, 0, 745, 0, 375, 378, 737,
423 718, 727, 717, 720, 728, 727, 726, 712, 728, 723,
424 716, 725, 709, 709, 720, 717, 713, 709, 703, 706,
425 712, 711, 701, 712, 710, 799, 799, 397, 696, 704,
426 697, 693, 692, 704, 721, 701, 799, 686, 161, 694,
427 685, 689, 681, 799, 373, 681, 693, 679, 799, 683,
428 799, 682, 656, 799, 644, 799, 639, 622, 376, 601,
429 603, 379, 606, 595, 596, 590, 799, 588, 590, 799,
430 584, 799, 384, 799, 580, 799, 578, 591, 573, 799,
431 576, 565, 555, 552, 562, 540, 799, 540, 518, 513,
432
433 525, 799, 509, 518, 513, 498, 500, 390, 377, 390,
434 376, 378, 389, 799, 375, 372, 381, 365, 354, 359,
435 799, 799, 346, 799, 360, 344, 357, 321, 313, 799,
436 307, 303, 287, 799, 265, 249, 228, 214, 207, 216,
437 200, 799, 193, 799, 799, 799, 172, 396, 799, 169,
438 164, 91, 85, 62, 799, 799, 421, 434, 447, 460,
439 473, 486, 499, 512, 517, 527, 540, 553, 564, 577,
440 590, 602, 615, 628, 641, 654, 667, 85, 680, 693,
441 706, 59
e9955c83
AD		 442 } ;
443
9280d3ef 444static yyconst short int yy_def[383] =
e9955c83 445 { 0,
9280d3ef
AD		 446 356, 1, 357, 357, 358, 358, 359, 359, 360, 360,
447 361, 361, 362, 362, 363, 363, 364, 364, 356, 356,
448 356, 356, 356, 356, 356, 356, 365, 356, 356, 356,
449 356, 366, 356, 356, 356, 367, 356, 356, 356, 356,
450 356, 368, 356, 356, 356, 356, 369, 356, 356, 356,
451 356, 356, 370, 371, 356, 356, 356, 372, 356, 356,
452 356, 356, 373, 356, 356, 356, 356, 356, 356, 356,
453 356, 356, 356, 356, 374, 356, 356, 356, 375, 356,
454 356, 376, 376, 376, 376, 376, 376, 356, 356, 356,
455 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
456
457 356, 356, 356, 356, 356, 356, 356, 356, 365, 356,
458 377, 356, 366, 367, 356, 356, 356, 356, 356, 368,
459 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
460 371, 356, 356, 356, 356, 356, 356, 356, 356, 356,
461 356, 356, 356, 356, 356, 378, 356, 356, 356, 356,
462 373, 356, 356, 356, 356, 356, 356, 356, 379, 356,
463 380, 356, 356, 356, 374, 356, 356, 356, 356, 375,
464 375, 356, 376, 376, 376, 376, 376, 376, 381, 356,
465 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
466 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
467
468 356, 377, 356, 356, 382, 379, 380, 381, 381, 356,
469 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
470 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
471 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
472 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
473 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
474 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
475 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
476 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
477 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
478
479 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
480 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
481 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
482 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
483 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
484 356, 356, 356, 356, 356, 0, 356, 356, 356, 356,
485 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
486 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
487 356, 356
e9955c83
AD		 488 } ;
489
9280d3ef 490static yyconst short int yy_nxt[850] =
e9955c83
AD		 491 { 0,
492 20, 21, 22, 23, 24, 20, 25, 26, 20, 20,
493 27, 28, 29, 29, 30, 31, 32, 33, 20, 20,
494 27, 20, 20, 20, 20, 27, 27, 27, 27, 27,
495 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
496 27, 27, 27, 27, 27, 27, 27, 34, 35, 20,
497 37, 38, 110, 37, 38, 111, 39, 89, 90, 39,
9280d3ef 498 43, 44, 45, 43, 44, 45, 91, 92, 237, 40,
6c35d22c
AD		 499 160, 41, 40, 161, 41, 55, 56, 57, 185, 46,
500 47, 48, 46, 47, 48, 50, 51, 186, 50, 51,
501 52, 112, 112, 52, 205, 58, 55, 56, 57, 115,
502
9280d3ef
AD		 503 116, 117, 118, 355, 46, 53, 48, 46, 53, 48,
504 60, 61, 60, 61, 354, 62, 58, 62, 83, 84,
505 85, 121, 122, 86, 123, 124, 353, 87, 126, 127,
e9955c83 506 58, 171, 58, 64, 65, 66, 67, 46, 68, 48,
6c35d22c
AD		 507 128, 129, 69, 194, 83, 84, 85, 132, 133, 86,
508 70, 195, 71, 87, 72, 134, 135, 147, 148, 149,
e9955c83 509 150, 152, 153, 46, 156, 48, 154, 155, 157, 162,
9280d3ef
AD		 510 274, 158, 158, 163, 172, 159, 164, 164, 73, 216,
511 74, 64, 65, 66, 67, 274, 68, 166, 167, 217,
512 69, 168, 169, 160, 174, 175, 161, 352, 70, 351,
6c35d22c 513
9280d3ef 514 71, 349, 72, 174, 176, 177, 175, 174, 175, 174,
6c35d22c
AD		 515 175, 174, 175, 89, 90, 91, 92, 178, 89, 90,
516 179, 91, 92, 187, 112, 112, 73, 182, 74, 76,
9280d3ef
AD		 517 77, 78, 183, 79, 80, 348, 188, 196, 81, 191,
518 189, 347, 192, 115, 116, 346, 197, 345, 46, 356,
519 48, 76, 77, 78, 198, 79, 80, 117, 118, 344,
e9955c83 520 81, 115, 116, 117, 118, 121, 122, 123, 124, 171,
9280d3ef 521 46, 343, 48, 93, 121, 122, 123, 124, 126, 127,
e9955c83 522 128, 129, 126, 127, 128, 129, 132, 133, 134, 135,
9280d3ef
AD		 523 132, 133, 356, 94, 342, 95, 96, 97, 134, 135,
524
525 147, 148, 98, 341, 99, 100, 101, 102, 103, 104,
526 105, 106, 356, 107, 108, 137, 149, 150, 147, 148,
527 149, 150, 340, 138, 152, 153, 154, 155, 152, 153,
528 154, 155, 339, 137, 158, 158, 139, 140, 158, 158,
529 338, 141, 164, 164, 164, 164, 166, 167, 142, 168,
530 169, 143, 337, 144, 336, 145, 146, 166, 167, 168,
6c35d22c 531 169, 174, 175, 174, 176, 177, 175, 177, 175, 174,
9280d3ef
AD		 532 176, 174, 175, 174, 209, 211, 221, 174, 209, 212,
533 177, 209, 279, 335, 334, 289, 333, 332, 292, 331,
534 213, 221, 207, 300, 207, 330, 207, 279, 207, 207,
535
536 289, 207, 156, 292, 222, 350, 157, 329, 300, 158,
537 158, 328, 327, 326, 325, 324, 323, 322, 321, 320,
538 350, 36, 36, 36, 36, 36, 36, 36, 36, 36,
539 36, 36, 36, 36, 42, 42, 42, 42, 42, 42,
540 42, 42, 42, 42, 42, 42, 42, 49, 49, 49,
541 49, 49, 49, 49, 49, 49, 49, 49, 49, 49,
6c35d22c 542 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
9280d3ef
AD		 543 54, 54, 54, 59, 59, 59, 59, 59, 59, 59,
544 59, 59, 59, 59, 59, 59, 63, 63, 63, 63,
545 63, 63, 63, 63, 63, 63, 63, 63, 63, 75,
546
6c35d22c 547 75, 75, 75, 75, 75, 75, 75, 75, 75, 75,
9280d3ef
AD		 548 75, 75, 82, 82, 82, 82, 82, 82, 82, 82,
549 82, 82, 82, 82, 82, 109, 109, 113, 113, 113,
550 113, 113, 113, 113, 113, 113, 113, 319, 113, 113,
551 114, 318, 317, 114, 114, 114, 114, 316, 114, 114,
552 114, 315, 114, 120, 314, 313, 312, 120, 120, 120,
553 120, 120, 120, 120, 125, 311, 125, 125, 125, 125,
554 125, 125, 125, 125, 125, 125, 125, 130, 310, 130,
555 130, 130, 130, 130, 130, 130, 130, 130, 130, 130,
556 131, 309, 308, 307, 131, 131, 131, 131, 131, 131,
557
558 131, 131, 136, 306, 136, 136, 136, 136, 136, 136,
559 136, 136, 136, 136, 136, 151, 305, 304, 303, 302,
560 151, 301, 151, 151, 151, 151, 299, 151, 165, 298,
561 297, 296, 165, 295, 294, 165, 165, 165, 165, 293,
562 165, 170, 291, 290, 170, 170, 170, 170, 170, 170,
563 170, 170, 170, 170, 173, 173, 173, 173, 173, 173,
564 173, 173, 173, 173, 173, 288, 173, 202, 287, 202,
565 202, 202, 202, 202, 202, 202, 202, 202, 202, 202,
566 206, 206, 206, 206, 206, 206, 206, 206, 206, 206,
567 286, 206, 206, 207, 285, 207, 207, 207, 207, 207,
568
569 207, 207, 207, 207, 207, 207, 208, 208, 208, 208,
570 208, 208, 208, 208, 208, 208, 208, 208, 208, 284,
571 283, 282, 281, 280, 278, 277, 276, 275, 273, 272,
572 271, 270, 269, 268, 267, 266, 265, 264, 263, 262,
573 261, 260, 259, 258, 257, 256, 255, 254, 253, 252,
574 251, 250, 249, 248, 247, 246, 245, 244, 243, 242,
575 241, 240, 239, 238, 236, 235, 234, 233, 232, 231,
576 230, 229, 228, 227, 226, 225, 224, 223, 220, 219,
577 218, 215, 214, 210, 204, 203, 201, 200, 199, 193,
578 190, 184, 181, 180, 88, 119, 88, 356, 19, 356,
75d1fe16 579
9280d3ef
AD		 580 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
581 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
582 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
583 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
584 356, 356, 356, 356, 356, 356, 356, 356, 356
e9955c83
AD		 585 } ;
586
9280d3ef 587static yyconst short int yy_chk[850] =
e9955c83
AD		 588 { 0,
589 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
590 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
591 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
592 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
593 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
594 3, 3, 28, 4, 4, 28, 3, 22, 22, 4,
9280d3ef 595 5, 5, 5, 6, 6, 6, 23, 23, 382, 3,
e9955c83
AD		 596 69, 3, 4, 69, 4, 9, 9, 9, 98, 5,
597 5, 5, 6, 6, 6, 7, 7, 98, 8, 8,
9280d3ef 598 7, 29, 29, 8, 378, 9, 10, 10, 10, 37,
e9955c83 599
9280d3ef
AD		 600 37, 38, 38, 354, 7, 7, 7, 8, 8, 8,
601 11, 11, 12, 12, 353, 11, 10, 12, 17, 17,
602 17, 43, 43, 17, 44, 44, 352, 17, 50, 50,
e9955c83
AD		 603 11, 79, 12, 13, 13, 13, 13, 17, 13, 17,
604 51, 51, 13, 103, 18, 18, 18, 55, 55, 18,
605 13, 103, 13, 18, 13, 56, 56, 60, 60, 61,
606 61, 64, 64, 18, 67, 18, 65, 65, 67, 70,
9280d3ef
AD		 607 249, 67, 67, 70, 79, 67, 70, 70, 13, 184,
608 13, 14, 14, 14, 14, 249, 14, 76, 76, 184,
609 14, 77, 77, 81, 82, 82, 81, 351, 14, 350,
e9955c83 610
9280d3ef 611 14, 347, 14, 83, 83, 84, 84, 85, 85, 86,
e9955c83
AD		 612 86, 87, 87, 89, 89, 90, 90, 87, 91, 91,
613 87, 92, 92, 99, 112, 112, 14, 96, 14, 15,
9280d3ef
AD		 614 15, 15, 96, 15, 15, 343, 99, 104, 15, 101,
615 99, 341, 101, 115, 115, 340, 104, 339, 15, 170,
616 15, 16, 16, 16, 104, 16, 16, 116, 116, 338,
e9955c83 617 16, 117, 117, 118, 118, 121, 121, 122, 122, 171,
9280d3ef 618 16, 337, 16, 25, 123, 123, 124, 124, 126, 126,
e9955c83 619 127, 127, 128, 128, 129, 129, 132, 132, 133, 133,
9280d3ef 620 134, 134, 170, 25, 336, 25, 25, 25, 135, 135,
e9955c83 621
9280d3ef 622 147, 147, 25, 335, 25, 25, 25, 25, 25, 25,
e9955c83 623 25, 25, 171, 25, 25, 58, 148, 148, 149, 149,
9280d3ef
AD		 624 150, 150, 333, 58, 152, 152, 153, 153, 154, 154,
625 155, 155, 332, 58, 157, 157, 58, 58, 158, 158,
626 331, 58, 163, 163, 164, 164, 166, 166, 58, 167,
627 167, 58, 329, 58, 328, 58, 58, 168, 168, 169,
6c35d22c 628 169, 173, 173, 174, 174, 175, 175, 176, 176, 177,
9280d3ef
AD		 629 177, 178, 178, 179, 179, 181, 188, 208, 208, 181,
630 209, 209, 255, 327, 326, 269, 325, 323, 272, 320,
631 181, 188, 179, 283, 179, 319, 208, 255, 208, 209,
632
633 269, 209, 238, 272, 188, 348, 238, 318, 283, 238,
634 238, 317, 316, 315, 313, 312, 311, 310, 309, 308,
635 348, 357, 357, 357, 357, 357, 357, 357, 357, 357,
636 357, 357, 357, 357, 358, 358, 358, 358, 358, 358,
637 358, 358, 358, 358, 358, 358, 358, 359, 359, 359,
638 359, 359, 359, 359, 359, 359, 359, 359, 359, 359,
639 360, 360, 360, 360, 360, 360, 360, 360, 360, 360,
640 360, 360, 360, 361, 361, 361, 361, 361, 361, 361,
641 361, 361, 361, 361, 361, 361, 362, 362, 362, 362,
642 362, 362, 362, 362, 362, 362, 362, 362, 362, 363,
643
644 363, 363, 363, 363, 363, 363, 363, 363, 363, 363,
645 363, 363, 364, 364, 364, 364, 364, 364, 364, 364,
646 364, 364, 364, 364, 364, 365, 365, 366, 366, 366,
647 366, 366, 366, 366, 366, 366, 366, 307, 366, 366,
648 367, 306, 305, 367, 367, 367, 367, 304, 367, 367,
649 367, 303, 367, 368, 301, 300, 299, 368, 368, 368,
650 368, 368, 368, 368, 369, 298, 369, 369, 369, 369,
651 369, 369, 369, 369, 369, 369, 369, 370, 296, 370,
652 370, 370, 370, 370, 370, 370, 370, 370, 370, 370,
653 371, 295, 294, 293, 371, 371, 371, 371, 371, 371,
654
655 371, 371, 372, 292, 372, 372, 372, 372, 372, 372,
656 372, 372, 372, 372, 372, 373, 291, 289, 288, 287,
657 373, 285, 373, 373, 373, 373, 281, 373, 374, 279,
658 278, 276, 374, 275, 274, 374, 374, 374, 374, 273,
659 374, 375, 271, 270, 375, 375, 375, 375, 375, 375,
660 375, 375, 375, 375, 376, 376, 376, 376, 376, 376,
661 376, 376, 376, 376, 376, 268, 376, 377, 267, 377,
662 377, 377, 377, 377, 377, 377, 377, 377, 377, 377,
663 379, 379, 379, 379, 379, 379, 379, 379, 379, 379,
664 265, 379, 379, 380, 263, 380, 380, 380, 380, 380,
665
666 380, 380, 380, 380, 380, 380, 381, 381, 381, 381,
667 381, 381, 381, 381, 381, 381, 381, 381, 381, 262,
668 260, 258, 257, 256, 253, 252, 251, 250, 248, 246,
669 245, 244, 243, 242, 241, 240, 239, 235, 234, 233,
670 232, 231, 230, 229, 228, 227, 226, 225, 224, 223,
671 222, 221, 220, 219, 218, 217, 216, 215, 214, 213,
672 212, 211, 210, 206, 204, 201, 200, 199, 198, 197,
673 196, 195, 194, 193, 192, 191, 190, 189, 187, 186,
674 185, 183, 182, 180, 138, 113, 107, 106, 105, 102,
675 100, 97, 95, 94, 88, 39, 21, 19, 356, 356,
75d1fe16
AD		 676
677 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
9280d3ef
AD		 678 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
679 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
680 356, 356, 356, 356, 356, 356, 356, 356, 356, 356,
681 356, 356, 356, 356, 356, 356, 356, 356, 356
e9955c83
AD		 682 } ;
683
684static yy_state_type yy_last_accepting_state;
685static char *yy_last_accepting_cpos;
686
687extern int yy_flex_debug;
688int yy_flex_debug = 1;
689
9280d3ef 690static yyconst short int yy_rule_linenum[93] =
e9955c83 691 { 0,
9280d3ef
AD		 692 122, 123, 124, 125, 126, 127, 128, 129, 130, 131,
693 132, 133, 134, 135, 136, 137, 138, 139, 140, 141,
694 142, 143, 144, 145, 146, 147, 148, 149, 151, 152,
695 153, 154, 156, 157, 158, 163, 166, 169, 172, 173,
696 176, 179, 182, 190, 196, 212, 213, 224, 236, 237,
697 238, 255, 264, 266, 286, 300, 302, 322, 334, 338,
698 339, 340, 341, 342, 343, 344, 345, 346, 361, 367,
699 368, 370, 388, 394, 395, 397, 415, 418, 421, 422,
700 433, 444, 446, 458, 460, 461, 464, 484, 491, 492,
701 493, 514
e9955c83
AD		 702
703 } ;
704
705/* The intent behind this definition is that it'll catch
706 * any uses of REJECT which flex missed.
707 */
708#define REJECT reject_used_but_not_detected
709#define yymore() yymore_used_but_not_detected
710#define YY_MORE_ADJ 0
711#define YY_RESTORE_YY_MORE_OFFSET
712char *yytext;
713#line 1 "scan-gram.l"
714#define INITIAL 0
715/* Bison Grammar Scanner -*- C -*-
716 Copyright (C) 2002 Free Software Foundation, Inc.
717
718 This file is part of Bison, the GNU Compiler Compiler.
719
720 This program is free software; you can redistribute it and/or modify
721 it under the terms of the GNU General Public License as published by
722 the Free Software Foundation; either version 2 of the License, or
723 (at your option) any later version.
724
725 This program is distributed in the hope that it will be useful,
726 but WITHOUT ANY WARRANTY; without even the implied warranty of
727 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
728 GNU General Public License for more details.
729
730 You should have received a copy of the GNU General Public License
731 along with this program; if not, write to the Free Software
732 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
733 02111-1307 USA
734*/
735#define YY_NO_UNPUT 1
736#define YY_NEVER_INTERACTIVE 1
737#define YY_STACK_USED 1
738#line 26 "scan-gram.l"
739#include "system.h"
740#include "complain.h"
741#include "quote.h"
742#include "getargs.h"
743#include "gram.h"
744#include "reader.h"
745
746/* Each time we match a string, move the end cursor to its end. */
8efe435c
AD		 747#define YY_USER_INIT \
748do { \
749 LOCATION_RESET (*yylloc); \
750 /* This is only to avoid GCC warnings. */ \
751 if (yycontrol) {;}; \
752} while (0)
753
e9955c83
AD		 754#define YY_USER_ACTION LOCATION_COLUMNS (*yylloc, yyleng)
755#define YY_LINES LOCATION_LINES (*yylloc, yyleng); lineno += yyleng;
756#define YY_STEP LOCATION_STEP (*yylloc)
757
44995b2e
AD		 758
759/* STRING_OBSTACK -- Used to store all the characters that we need to
760 keep (to construct ID, STRINGS etc.). Use the following macros to
761 use it.
762
1d6412ad
AD		 763 Use YY_OBS_GROW to append what has just been matched, and
764 YY_OBS_FINISH to end the string (it puts the ending 0).
765 YY_OBS_FINISH also stores this string in LAST_STRING, which can be
766 used, and which is used by YY_OBS_FREE to free the last string. */
44995b2e
AD		 767
768static struct obstack string_obstack;
769char *last_string;
770
44995b2e
AD		 771#define YY_OBS_GROW \
772 obstack_grow (&string_obstack, yytext, yyleng)
773
774#define YY_OBS_FINISH \
775 do { \
776 obstack_1grow (&string_obstack, '\0'); \
777 last_string = obstack_finish (&string_obstack); \
44995b2e
AD		 778 } while (0)
779
780#define YY_OBS_FREE \
781 do { \
782 obstack_free (&string_obstack, last_string); \
783 } while (0)
e9955c83 784
4cdb01db
AD		 785void
786scanner_last_string_free (void)
787{
788 YY_OBS_FREE;
789}
790
791
44995b2e 792
e9955c83
AD		 793static int braces_level = 0;
794static int percent_percent_count = 0;
795
9280d3ef
AD		 796static void handle_action_dollar PARAMS ((char *cp, location_t location));
797static void handle_destructor_dollar PARAMS ((char *cp, location_t location));
e9955c83
AD		 798static void handle_at PARAMS ((char *cp));
799
800#define SC_COMMENT 1
801
802#define SC_STRING 2
803#define SC_CHARACTER 3
804
805#define SC_ESCAPED_STRING 4
806#define SC_ESCAPED_CHARACTER 5
807
808#define SC_BRACED_CODE 6
809#define SC_PROLOGUE 7
810#define SC_EPILOGUE 8
811
9280d3ef 812#line 813 "lex.yy.c"
e9955c83
AD		 813
814/* Macros after this point can all be overridden by user definitions in
815 * section 1.
816 */
817
818#ifndef YY_SKIP_YYWRAP
819#ifdef __cplusplus
820extern "C" int yywrap YY_PROTO(( void ));
821#else
822extern int yywrap YY_PROTO(( void ));
823#endif
824#endif
825
826#ifndef YY_NO_UNPUT
827static void yyunput YY_PROTO(( int c, char *buf_ptr ));
828#endif
829
830#ifndef yytext_ptr
831static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
832#endif
833
834#ifdef YY_NEED_STRLEN
835static int yy_flex_strlen YY_PROTO(( yyconst char * ));
836#endif
837
838#ifndef YY_NO_INPUT
839#ifdef __cplusplus
840static int yyinput YY_PROTO(( void ));
841#else
842static int input YY_PROTO(( void ));
843#endif
844#endif
845
846#if YY_STACK_USED
847static int yy_start_stack_ptr = 0;
848static int yy_start_stack_depth = 0;
849static int *yy_start_stack = 0;
850#ifndef YY_NO_PUSH_STATE
851static void yy_push_state YY_PROTO(( int new_state ));
852#endif
853#ifndef YY_NO_POP_STATE
854static void yy_pop_state YY_PROTO(( void ));
855#endif
856#ifndef YY_NO_TOP_STATE
857static int yy_top_state YY_PROTO(( void ));
858#endif
859
860#else
861#define YY_NO_PUSH_STATE 1
862#define YY_NO_POP_STATE 1
863#define YY_NO_TOP_STATE 1
864#endif
865
866#ifdef YY_MALLOC_DECL
867YY_MALLOC_DECL
868#else
869#if __STDC__
870#ifndef __cplusplus
871#include <stdlib.h>
872#endif
873#else
874/* Just try to get by without declaring the routines. This will fail
875 * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
876 * or sizeof(void*) != sizeof(int).
877 */
878#endif
879#endif
880
881/* Amount of stuff to slurp up with each read. */
882#ifndef YY_READ_BUF_SIZE
883#define YY_READ_BUF_SIZE 8192
884#endif
885
886/* Copy whatever the last rule matched to the standard output. */
887
888#ifndef ECHO
889/* This used to be an fputs(), but since the string might contain NUL's,
890 * we now use fwrite().
891 */
892#define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
893#endif
894
895/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
896 * is returned in "result".
897 */
898#ifndef YY_INPUT
899#define YY_INPUT(buf,result,max_size) \
900 if ( yy_current_buffer->yy_is_interactive ) \
901 { \
902 int c = '*', n; \
903 for ( n = 0; n < max_size && \
904 (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
905 buf[n] = (char) c; \
906 if ( c == '\n' ) \
907 buf[n++] = (char) c; \
908 if ( c == EOF && ferror( yyin ) ) \
909 YY_FATAL_ERROR( "input in flex scanner failed" ); \
910 result = n; \
911 } \
44995b2e
AD		 912 else \
913 { \
914 errno=0; \
915 while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
916 { \
917 if( errno != EINTR) \
918 { \
919 YY_FATAL_ERROR( "input in flex scanner failed" ); \
920 break; \
921 } \
922 errno=0; \
923 clearerr(yyin); \
924 } \
925 }
e9955c83
AD		 926#endif
927
928/* No semi-colon after return; correct usage is to write "yyterminate();" -
929 * we don't want an extra ';' after the "return" because that will cause
930 * some compilers to complain about unreachable statements.
931 */
932#ifndef yyterminate
933#define yyterminate() return YY_NULL
934#endif
935
936/* Number of entries by which start-condition stack grows. */
937#ifndef YY_START_STACK_INCR
938#define YY_START_STACK_INCR 25
939#endif
940
941/* Report a fatal error. */
942#ifndef YY_FATAL_ERROR
943#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
944#endif
945
946/* Default declaration of generated scanner - a define so the user can
947 * easily add parameters.
948 */
949#ifndef YY_DECL
950#define YY_DECL int yylex YY_PROTO(( void ))
951#endif
952
953/* Code executed at the beginning of each rule, after yytext and yyleng
954 * have been set up.
955 */
956#ifndef YY_USER_ACTION
957#define YY_USER_ACTION
958#endif
959
960/* Code executed at the end of each rule. */
961#ifndef YY_BREAK
962#define YY_BREAK break;
963#endif
964
965#define YY_RULE_SETUP \
966 YY_USER_ACTION
967
968YY_DECL
969 {
970 register yy_state_type yy_current_state;
971 register char *yy_cp, *yy_bp;
972 register int yy_act;
973
9280d3ef 974#line 98 "scan-gram.l"
e9955c83
AD		 975
976
977 /* At each yylex invocation, mark the current position as the
978 start of the next token. */
979#define TR_POS 0
980#if TR_POS
8efe435c 981 fprintf (stderr, "FOO1: %p: ", yylloc);
e9955c83
AD		 982 LOCATION_PRINT (stderr, *yylloc);
983 fprintf (stderr, "\n");
984#endif
985 YY_STEP;
986#if TR_POS
987 fprintf (stderr, "BAR1: ");
988 LOCATION_PRINT (stderr, *yylloc);
989 fprintf (stderr, "\n");
990#endif
991
992
993
994 /*----------------------------.
995 | Scanning Bison directives. |
996 `----------------------------*/
9280d3ef 997#line 998 "lex.yy.c"
e9955c83
AD		 998
999 if ( yy_init )
1000 {
1001 yy_init = 0;
1002
1003#ifdef YY_USER_INIT
1004 YY_USER_INIT;
1005#endif
1006
1007 if ( ! yy_start )
1008 yy_start = 1; /* first start state */
1009
1010 if ( ! yyin )
1011 yyin = stdin;
1012
1013 if ( ! yyout )
1014 yyout = stdout;
1015
1016 if ( ! yy_current_buffer )
1017 yy_current_buffer =
1018 yy_create_buffer( yyin, YY_BUF_SIZE );
1019
1020 yy_load_buffer_state();
1021 }
1022
1023 while ( 1 ) /* loops until end-of-file is reached */
1024 {
1025 yy_cp = yy_c_buf_p;
1026
1027 /* Support of yytext. */
1028 *yy_cp = yy_hold_char;
1029
1030 /* yy_bp points to the position in yy_ch_buf of the start of
1031 * the current run.
1032 */
1033 yy_bp = yy_cp;
1034
1035 yy_current_state = yy_start;
1036yy_match:
1037 do
1038 {
1039 register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
1040 if ( yy_accept[yy_current_state] )
1041 {
1042 yy_last_accepting_state = yy_current_state;
1043 yy_last_accepting_cpos = yy_cp;
1044 }
1045 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1046 {
1047 yy_current_state = (int) yy_def[yy_current_state];
9280d3ef 1048 if ( yy_current_state >= 357 )
e9955c83
AD		 1049 yy_c = yy_meta[(unsigned int) yy_c];
1050 }
1051 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1052 ++yy_cp;
1053 }
9280d3ef 1054 while ( yy_base[yy_current_state] != 799 );
e9955c83
AD		 1055
1056yy_find_action:
1057 yy_act = yy_accept[yy_current_state];
1058 if ( yy_act == 0 )
1059 { /* have to back up */
1060 yy_cp = yy_last_accepting_cpos;
1061 yy_current_state = yy_last_accepting_state;
1062 yy_act = yy_accept[yy_current_state];
1063 }
1064
1065 YY_DO_BEFORE_ACTION;
1066
1067
1068do_action: /* This label is used only to access EOF actions. */
1069
1070 if ( yy_flex_debug )
1071 {
1072 if ( yy_act == 0 )
1073 fprintf( stderr, "--scanner backing up\n" );
9280d3ef 1074 else if ( yy_act < 93 )
e9955c83
AD		 1075 fprintf( stderr, "--accepting rule at line %d (\"%s\")\n",
1076 yy_rule_linenum[yy_act], yytext );
9280d3ef 1077 else if ( yy_act == 93 )
e9955c83
AD		 1078 fprintf( stderr, "--accepting default rule (\"%s\")\n",
1079 yytext );
9280d3ef 1080 else if ( yy_act == 94 )
e9955c83
AD		 1081 fprintf( stderr, "--(end of buffer or a NUL)\n" );
1082 else
1083 fprintf( stderr, "--EOF (start condition %d)\n", YY_START );
1084 }
1085
1086 switch ( yy_act )
1087 { /* beginning of action switch */
1088 case 0: /* must back up */
1089 /* undo the effects of YY_DO_BEFORE_ACTION */
1090 *yy_cp = yy_hold_char;
1091 yy_cp = yy_last_accepting_cpos;
1092 yy_current_state = yy_last_accepting_state;
1093 goto yy_find_action;
1094
1095
1096
1097case 1:
1098YY_RULE_SETUP
9280d3ef 1099#line 122 "scan-gram.l"
e9955c83
AD		 1100return PERCENT_NONASSOC;
1101 YY_BREAK
1102case 2:
1103YY_RULE_SETUP
9280d3ef 1104#line 123 "scan-gram.l"
e9955c83
AD		 1105return PERCENT_DEBUG;
1106 YY_BREAK
1107case 3:
1108YY_RULE_SETUP
9280d3ef 1109#line 124 "scan-gram.l"
e9955c83
AD		 1110return PERCENT_DEFINE;
1111 YY_BREAK
1112case 4:
1113YY_RULE_SETUP
9280d3ef 1114#line 125 "scan-gram.l"
e9955c83
AD		 1115return PERCENT_DEFINES;
1116 YY_BREAK
1117case 5:
1118YY_RULE_SETUP
9280d3ef
AD		 1119#line 126 "scan-gram.l"
1120return PERCENT_DESTRUCTOR;
e9955c83
AD		 1121 YY_BREAK
1122case 6:
1123YY_RULE_SETUP
9280d3ef
AD		 1124#line 127 "scan-gram.l"
1125return PERCENT_ERROR_VERBOSE;
e9955c83
AD		 1126 YY_BREAK
1127case 7:
1128YY_RULE_SETUP
9280d3ef
AD		 1129#line 128 "scan-gram.l"
1130return PERCENT_EXPECT;
e9955c83
AD		 1131 YY_BREAK
1132case 8:
1133YY_RULE_SETUP
9280d3ef
AD		 1134#line 129 "scan-gram.l"
1135return PERCENT_FILE_PREFIX;
e9955c83
AD		 1136 YY_BREAK
1137case 9:
1138YY_RULE_SETUP
9280d3ef
AD		 1139#line 130 "scan-gram.l"
1140return PERCENT_YACC;
e9955c83
AD		 1141 YY_BREAK
1142case 10:
1143YY_RULE_SETUP
9280d3ef
AD		 1144#line 131 "scan-gram.l"
1145return PERCENT_LEFT;
e9955c83
AD		 1146 YY_BREAK
1147case 11:
1148YY_RULE_SETUP
9280d3ef
AD		 1149#line 132 "scan-gram.l"
1150return PERCENT_LOCATIONS;
e9955c83
AD		 1151 YY_BREAK
1152case 12:
1153YY_RULE_SETUP
9280d3ef
AD		 1154#line 133 "scan-gram.l"
1155return PERCENT_NAME_PREFIX;
e9955c83
AD		 1156 YY_BREAK
1157case 13:
1158YY_RULE_SETUP
9280d3ef
AD		 1159#line 134 "scan-gram.l"
1160return PERCENT_NO_LINES;
e9955c83
AD		 1161 YY_BREAK
1162case 14:
1163YY_RULE_SETUP
9280d3ef
AD		 1164#line 135 "scan-gram.l"
1165return PERCENT_NONASSOC;
e9955c83
AD		 1166 YY_BREAK
1167case 15:
1168YY_RULE_SETUP
9280d3ef
AD		 1169#line 136 "scan-gram.l"
1170return PERCENT_NTERM;
e9955c83
AD		 1171 YY_BREAK
1172case 16:
1173YY_RULE_SETUP
9280d3ef
AD		 1174#line 137 "scan-gram.l"
1175return PERCENT_OUTPUT;
e9955c83
AD		 1176 YY_BREAK
1177case 17:
1178YY_RULE_SETUP
9280d3ef
AD		 1179#line 138 "scan-gram.l"
1180return PERCENT_PREC;
e9955c83
AD		 1181 YY_BREAK
1182case 18:
1183YY_RULE_SETUP
9280d3ef
AD		 1184#line 139 "scan-gram.l"
1185return PERCENT_PURE_PARSER;
e9955c83
AD		 1186 YY_BREAK
1187case 19:
1188YY_RULE_SETUP
9280d3ef
AD		 1189#line 140 "scan-gram.l"
1190return PERCENT_RIGHT;
e9955c83
AD		 1191 YY_BREAK
1192case 20:
1193YY_RULE_SETUP
9280d3ef
AD		 1194#line 141 "scan-gram.l"
1195return PERCENT_SKELETON;
e9955c83
AD		 1196 YY_BREAK
1197case 21:
1198YY_RULE_SETUP
9280d3ef
AD		 1199#line 142 "scan-gram.l"
1200return PERCENT_START;
e9955c83
AD		 1201 YY_BREAK
1202case 22:
1203YY_RULE_SETUP
9280d3ef 1204#line 143 "scan-gram.l"
e9955c83
AD		 1205return PERCENT_TOKEN;
1206 YY_BREAK
1207case 23:
1208YY_RULE_SETUP
9280d3ef
AD		 1209#line 144 "scan-gram.l"
1210return PERCENT_TOKEN;
e9955c83
AD		 1211 YY_BREAK
1212case 24:
1213YY_RULE_SETUP
9280d3ef
AD		 1214#line 145 "scan-gram.l"
1215return PERCENT_TOKEN_TABLE;
e9955c83
AD		 1216 YY_BREAK
1217case 25:
1218YY_RULE_SETUP
9280d3ef
AD		 1219#line 146 "scan-gram.l"
1220return PERCENT_TYPE;
e9955c83
AD		 1221 YY_BREAK
1222case 26:
1223YY_RULE_SETUP
9280d3ef
AD		 1224#line 147 "scan-gram.l"
1225return PERCENT_UNION;
e9955c83
AD		 1226 YY_BREAK
1227case 27:
1228YY_RULE_SETUP
9280d3ef
AD		 1229#line 148 "scan-gram.l"
1230return PERCENT_VERBOSE;
e9955c83
AD		 1231 YY_BREAK
1232case 28:
1233YY_RULE_SETUP
8efe435c 1234#line 149 "scan-gram.l"
9280d3ef 1235return PERCENT_YACC;
e9955c83
AD		 1236 YY_BREAK
1237case 29:
1238YY_RULE_SETUP
9280d3ef
AD		 1239#line 151 "scan-gram.l"
1240return EQUAL;
e9955c83
AD		 1241 YY_BREAK
1242case 30:
1243YY_RULE_SETUP
9280d3ef
AD		 1244#line 152 "scan-gram.l"
1245return COLON;
e9955c83
AD		 1246 YY_BREAK
1247case 31:
1248YY_RULE_SETUP
9280d3ef
AD		 1249#line 153 "scan-gram.l"
1250return PIPE;
e9955c83
AD		 1251 YY_BREAK
1252case 32:
1253YY_RULE_SETUP
8efe435c 1254#line 154 "scan-gram.l"
9280d3ef 1255return SEMICOLON;
e9955c83
AD		 1256 YY_BREAK
1257case 33:
1258YY_RULE_SETUP
9280d3ef
AD		 1259#line 156 "scan-gram.l"
1260YY_LINES; YY_STEP;
e9955c83
AD		 1261 YY_BREAK
1262case 34:
1263YY_RULE_SETUP
9280d3ef
AD		 1264#line 157 "scan-gram.l"
1265YY_STEP;
1266 YY_BREAK
1267case 35:
1268YY_RULE_SETUP
1269#line 158 "scan-gram.l"
e9955c83 1270{
ee000ba4 1271 yylval->symbol = getsym (yytext, *yylloc);
e9955c83
AD		 1272 return ID;
1273 }
1274 YY_BREAK
9280d3ef 1275case 36:
e9955c83 1276YY_RULE_SETUP
9280d3ef 1277#line 163 "scan-gram.l"
e9955c83
AD		 1278yylval->integer = strtol (yytext, 0, 10); return INT;
1279 YY_BREAK
1280/* Characters. We don't check there is only one. */
9280d3ef 1281case 37:
e9955c83 1282YY_RULE_SETUP
9280d3ef 1283#line 166 "scan-gram.l"
1d6412ad 1284YY_OBS_GROW; yy_push_state (SC_ESCAPED_CHARACTER);
e9955c83
AD		 1285 YY_BREAK
1286/* Strings. */
9280d3ef 1287case 38:
e9955c83 1288YY_RULE_SETUP
9280d3ef 1289#line 169 "scan-gram.l"
1d6412ad 1290YY_OBS_GROW; yy_push_state (SC_ESCAPED_STRING);
e9955c83
AD		 1291 YY_BREAK
1292/* Comments. */
9280d3ef 1293case 39:
e9955c83 1294YY_RULE_SETUP
9280d3ef 1295#line 172 "scan-gram.l"
e9955c83
AD		 1296yy_push_state (SC_COMMENT);
1297 YY_BREAK
9280d3ef 1298case 40:
e9955c83 1299YY_RULE_SETUP
9280d3ef 1300#line 173 "scan-gram.l"
e9955c83
AD		 1301YY_STEP;
1302 YY_BREAK
1303/* Prologue. */
9280d3ef 1304case 41:
e9955c83 1305YY_RULE_SETUP
9280d3ef 1306#line 176 "scan-gram.l"
1d6412ad 1307yy_push_state (SC_PROLOGUE);
e9955c83
AD		 1308 YY_BREAK
1309/* Code in between braces. */
9280d3ef 1310case 42:
e9955c83 1311YY_RULE_SETUP
9280d3ef 1312#line 179 "scan-gram.l"
1d6412ad 1313YY_OBS_GROW; ++braces_level; yy_push_state (SC_BRACED_CODE);
e9955c83
AD		 1314 YY_BREAK
1315/* A type. */
9280d3ef 1316case 43:
e9955c83 1317YY_RULE_SETUP
9280d3ef 1318#line 182 "scan-gram.l"
4cdb01db 1319{
4cdb01db
AD		 1320 obstack_grow (&string_obstack, yytext + 1, yyleng - 2);
1321 YY_OBS_FINISH;
1322 yylval->string = last_string;
1323 return TYPE;
1324 }
e9955c83 1325 YY_BREAK
9280d3ef 1326case 44:
e9955c83 1327YY_RULE_SETUP
9280d3ef 1328#line 190 "scan-gram.l"
e9955c83
AD		 1329{
1330 if (++percent_percent_count == 2)
1331 yy_push_state (SC_EPILOGUE);
1332 return PERCENT_PERCENT;
1333 }
1334 YY_BREAK
9280d3ef 1335case 45:
e9955c83 1336YY_RULE_SETUP
9280d3ef 1337#line 196 "scan-gram.l"
e9955c83
AD		 1338{
1339 LOCATION_PRINT (stderr, *yylloc);
1340 fprintf (stderr, ": invalid character: `%c'\n", *yytext);
1341 YY_STEP;
1342 }
1343 YY_BREAK
1344
1345/*------------------------------------------------------------.
1346 | Whatever the start condition (but those which correspond to |
1347 | entity `swallowed' by Bison: SC_ESCAPED_STRING and |
1348 | SC_ESCAPED_CHARACTER), no M4 character must escape as is. |
1349 `------------------------------------------------------------*/
1350
1351
9280d3ef 1352case 46:
e9955c83 1353YY_RULE_SETUP
9280d3ef 1354#line 212 "scan-gram.l"
1d6412ad 1355if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@<:@");
e9955c83 1356 YY_BREAK
9280d3ef 1357case 47:
e9955c83 1358YY_RULE_SETUP
9280d3ef 1359#line 213 "scan-gram.l"
1d6412ad 1360if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@:>@");
e9955c83
AD		 1361 YY_BREAK
1362
1363/*-----------------------------------------------------------.
1364 | Scanning a C comment. The initial `/ *' is already eaten. |
1365 `-----------------------------------------------------------*/
1366
1367
9280d3ef 1368case 48:
e9955c83 1369YY_RULE_SETUP
9280d3ef 1370#line 224 "scan-gram.l"
e9955c83
AD		 1371{ /* End of the comment. */
1372 if (yy_top_state () == INITIAL)
1373 {
1374 YY_STEP;
1375 }
1376 else
1377 {
44995b2e 1378 YY_OBS_GROW;
e9955c83
AD		 1379 }
1380 yy_pop_state ();
1381 }
1382 YY_BREAK
9280d3ef 1383case 49:
e9955c83 1384YY_RULE_SETUP
9280d3ef 1385#line 236 "scan-gram.l"
44995b2e 1386if (yy_top_state () != INITIAL) YY_OBS_GROW;
e9955c83 1387 YY_BREAK
9280d3ef 1388case 50:
e9955c83 1389YY_RULE_SETUP
9280d3ef 1390#line 237 "scan-gram.l"
44995b2e 1391if (yy_top_state () != INITIAL) YY_OBS_GROW; YY_LINES;
e9955c83 1392 YY_BREAK
9280d3ef 1393case 51:
e9955c83 1394YY_RULE_SETUP
9280d3ef 1395#line 238 "scan-gram.l"
44995b2e 1396/* Stray `*'. */if (yy_top_state () != INITIAL) YY_OBS_GROW;
e9955c83
AD		 1397 YY_BREAK
1398case YY_STATE_EOF(SC_COMMENT):
9280d3ef 1399#line 240 "scan-gram.l"
e9955c83
AD		 1400{
1401 LOCATION_PRINT (stderr, *yylloc);
1402 fprintf (stderr, ": unexpected end of file in a comment\n");
1403 yy_pop_state ();
1404 }
1405 YY_BREAK
1406
1407/*----------------------------------------------------------------.
1408 | Scanning a C string, including its escapes. The initial `"' is |
1409 | already eaten. |
1410 `----------------------------------------------------------------*/
1411
1412
9280d3ef 1413case 52:
e9955c83 1414YY_RULE_SETUP
9280d3ef 1415#line 255 "scan-gram.l"
e9955c83
AD		 1416{
1417 assert (yy_top_state () == INITIAL);
44995b2e
AD		 1418 YY_OBS_GROW;
1419 YY_OBS_FINISH;
4cdb01db 1420 yylval->string = last_string;
e9955c83
AD		 1421 yy_pop_state ();
1422 return STRING;
1423 }
1424 YY_BREAK
9280d3ef 1425case 53:
e9955c83 1426YY_RULE_SETUP
9280d3ef 1427#line 264 "scan-gram.l"
44995b2e 1428YY_OBS_GROW;
e9955c83 1429 YY_BREAK
9280d3ef 1430case 54:
e9955c83 1431YY_RULE_SETUP
9280d3ef 1432#line 266 "scan-gram.l"
e9955c83
AD		 1433obstack_1grow (&string_obstack, '\n'); YY_LINES;
1434 YY_BREAK
1435case YY_STATE_EOF(SC_ESCAPED_STRING):
9280d3ef 1436#line 268 "scan-gram.l"
e9955c83
AD		 1437{
1438 LOCATION_PRINT (stderr, *yylloc);
1439 fprintf (stderr, ": unexpected end of file in a string\n");
1440 assert (yy_top_state () == INITIAL);
44995b2e 1441 YY_OBS_FINISH;
4cdb01db 1442 yylval->string = last_string;
e9955c83
AD		 1443 yy_pop_state ();
1444 return STRING;
1445 }
1446 YY_BREAK
1447
1448/*---------------------------------------------------------------.
1449 | Scanning a C character, decoding its escapes. The initial "'" |
1450 | is already eaten. |
1451 `---------------------------------------------------------------*/
1452
1453
9280d3ef 1454case 55:
e9955c83 1455YY_RULE_SETUP
9280d3ef 1456#line 286 "scan-gram.l"
e9955c83 1457{
44995b2e 1458 YY_OBS_GROW;
e9955c83
AD		 1459 assert (yy_top_state () == INITIAL);
1460 {
44995b2e 1461 YY_OBS_FINISH;
ee000ba4 1462 yylval->symbol = getsym (last_string, *yylloc);
e9955c83 1463 symbol_class_set (yylval->symbol, token_sym);
44995b2e
AD		 1464 symbol_user_token_number_set (yylval->symbol, last_string[1]);
1465 YY_OBS_FREE;
e9955c83
AD		 1466 yy_pop_state ();
1467 return ID;
1468 }
1469 }
1470 YY_BREAK
9280d3ef 1471case 56:
e9955c83 1472YY_RULE_SETUP
9280d3ef 1473#line 300 "scan-gram.l"
44995b2e 1474YY_OBS_GROW;
e9955c83 1475 YY_BREAK
9280d3ef 1476case 57:
e9955c83 1477YY_RULE_SETUP
9280d3ef 1478#line 302 "scan-gram.l"
e9955c83
AD		 1479obstack_1grow (&string_obstack, '\n'); YY_LINES;
1480 YY_BREAK
1481case YY_STATE_EOF(SC_ESCAPED_CHARACTER):
9280d3ef 1482#line 304 "scan-gram.l"
e9955c83
AD		 1483{
1484 LOCATION_PRINT (stderr, *yylloc);
1485 fprintf (stderr, ": unexpected end of file in a character\n");
1486 assert (yy_top_state () == INITIAL);
44995b2e 1487 YY_OBS_FINISH;
4cdb01db 1488 yylval->string = last_string;
e9955c83
AD		 1489 yy_pop_state ();
1490 return CHARACTER;
1491 }
1492 YY_BREAK
1493
1494/*----------------------------.
1495 | Decode escaped characters. |
1496 `----------------------------*/
1497
1498
9280d3ef 1499case 58:
e9955c83 1500YY_RULE_SETUP
9280d3ef 1501#line 322 "scan-gram.l"
e9955c83
AD		 1502{
1503 long c = strtol (yytext + 1, 0, 8);
1504 if (c > 255)
1505 {
1506 LOCATION_PRINT (stderr, *yylloc);
1507 fprintf (stderr, ": invalid escape: %s\n", yytext);
1508 YY_STEP;
1509 }
1510 else
1511 obstack_1grow (&string_obstack, c);
1512 }
1513 YY_BREAK
9280d3ef 1514case 59:
e9955c83 1515YY_RULE_SETUP
9280d3ef 1516#line 334 "scan-gram.l"
e9955c83
AD		 1517{
1518 obstack_1grow (&string_obstack, strtol (yytext + 2, 0, 16));
1519 }
1520 YY_BREAK
9280d3ef 1521case 60:
e9955c83 1522YY_RULE_SETUP
9280d3ef 1523#line 338 "scan-gram.l"
e9955c83
AD		 1524obstack_1grow (&string_obstack, '\a');
1525 YY_BREAK
9280d3ef 1526case 61:
e9955c83 1527YY_RULE_SETUP
9280d3ef 1528#line 339 "scan-gram.l"
e9955c83
AD		 1529obstack_1grow (&string_obstack, '\b');
1530 YY_BREAK
9280d3ef 1531case 62:
e9955c83 1532YY_RULE_SETUP
9280d3ef 1533#line 340 "scan-gram.l"
e9955c83
AD		 1534obstack_1grow (&string_obstack, '\f');
1535 YY_BREAK
9280d3ef 1536case 63:
e9955c83 1537YY_RULE_SETUP
9280d3ef 1538#line 341 "scan-gram.l"
e9955c83
AD		 1539obstack_1grow (&string_obstack, '\n');
1540 YY_BREAK
9280d3ef 1541case 64:
e9955c83 1542YY_RULE_SETUP
9280d3ef 1543#line 342 "scan-gram.l"
e9955c83
AD		 1544obstack_1grow (&string_obstack, '\r');
1545 YY_BREAK
9280d3ef 1546case 65:
e9955c83 1547YY_RULE_SETUP
9280d3ef 1548#line 343 "scan-gram.l"
e9955c83
AD		 1549obstack_1grow (&string_obstack, '\t');
1550 YY_BREAK
9280d3ef 1551case 66:
e9955c83 1552YY_RULE_SETUP
9280d3ef 1553#line 344 "scan-gram.l"
e9955c83
AD		 1554obstack_1grow (&string_obstack, '\v');
1555 YY_BREAK
9280d3ef 1556case 67:
e9955c83 1557YY_RULE_SETUP
9280d3ef 1558#line 345 "scan-gram.l"
e9955c83
AD		 1559obstack_1grow (&string_obstack, yytext[1]);
1560 YY_BREAK
9280d3ef 1561case 68:
e9955c83 1562YY_RULE_SETUP
9280d3ef 1563#line 346 "scan-gram.l"
e9955c83
AD		 1564{
1565 LOCATION_PRINT (stderr, *yylloc);
1566 fprintf (stderr, ": unrecognized escape: %s\n", yytext);
44995b2e 1567 YY_OBS_GROW;
e9955c83
AD		 1568 }
1569 YY_BREAK
1570
1571/*----------------------------------------------------------.
1572 | Scanning a C character without decoding its escapes. The |
1573 | initial "'" is already eaten. |
1574 `----------------------------------------------------------*/
1575
1576
9280d3ef 1577case 69:
e9955c83 1578YY_RULE_SETUP
9280d3ef 1579#line 361 "scan-gram.l"
e9955c83 1580{
44995b2e 1581 YY_OBS_GROW;
e9955c83
AD		 1582 assert (yy_top_state () != INITIAL);
1583 yy_pop_state ();
1584 }
1585 YY_BREAK
e9955c83
AD		 1586case 70:
1587YY_RULE_SETUP
9280d3ef 1588#line 367 "scan-gram.l"
44995b2e 1589YY_OBS_GROW;
e9955c83
AD		 1590 YY_BREAK
1591case 71:
1592YY_RULE_SETUP
8efe435c 1593#line 368 "scan-gram.l"
9280d3ef
AD		 1594YY_OBS_GROW;
1595 YY_BREAK
1596case 72:
1597YY_RULE_SETUP
1598#line 370 "scan-gram.l"
44995b2e 1599YY_OBS_GROW; YY_LINES;
e9955c83
AD		 1600 YY_BREAK
1601case YY_STATE_EOF(SC_CHARACTER):
9280d3ef 1602#line 372 "scan-gram.l"
e9955c83
AD		 1603{
1604 LOCATION_PRINT (stderr, *yylloc);
1605 fprintf (stderr, ": unexpected end of file in a character\n");
1606 assert (yy_top_state () != INITIAL);
1607 yy_pop_state ();
1608 }
1609 YY_BREAK
1610
1611/*----------------------------------------------------------------.
1612 | Scanning a C string, without decoding its escapes. The initial |
1613 | `"' is already eaten. |
1614 `----------------------------------------------------------------*/
1615
1616
9280d3ef 1617case 73:
e9955c83 1618YY_RULE_SETUP
9280d3ef 1619#line 388 "scan-gram.l"
e9955c83
AD		 1620{
1621 assert (yy_top_state () != INITIAL);
44995b2e 1622 YY_OBS_GROW;
e9955c83
AD		 1623 yy_pop_state ();
1624 }
1625 YY_BREAK
e9955c83
AD		 1626case 74:
1627YY_RULE_SETUP
9280d3ef 1628#line 394 "scan-gram.l"
44995b2e 1629YY_OBS_GROW;
e9955c83
AD		 1630 YY_BREAK
1631case 75:
1632YY_RULE_SETUP
8efe435c 1633#line 395 "scan-gram.l"
9280d3ef
AD		 1634YY_OBS_GROW;
1635 YY_BREAK
1636case 76:
1637YY_RULE_SETUP
1638#line 397 "scan-gram.l"
44995b2e 1639YY_OBS_GROW; YY_LINES;
e9955c83
AD		 1640 YY_BREAK
1641case YY_STATE_EOF(SC_STRING):
9280d3ef 1642#line 399 "scan-gram.l"
e9955c83
AD		 1643{
1644 LOCATION_PRINT (stderr, *yylloc);
1645 fprintf (stderr, ": unexpected end of file in a string\n");
1646 assert (yy_top_state () != INITIAL);
1647 yy_pop_state ();
1648 }
1649 YY_BREAK
1650
1651/*---------------------------------------------------.
1652 | Strings, comments etc. can be found in user code. |
1653 `---------------------------------------------------*/
1654
1655
1656/* Characters. We don't check there is only one. */
9280d3ef 1657case 77:
e9955c83 1658YY_RULE_SETUP
9280d3ef 1659#line 415 "scan-gram.l"
44995b2e 1660YY_OBS_GROW; yy_push_state (SC_CHARACTER);
e9955c83
AD		 1661 YY_BREAK
1662/* Strings. */
9280d3ef 1663case 78:
e9955c83 1664YY_RULE_SETUP
9280d3ef 1665#line 418 "scan-gram.l"
44995b2e 1666YY_OBS_GROW; yy_push_state (SC_STRING);
e9955c83
AD		 1667 YY_BREAK
1668/* Comments. */
9280d3ef 1669case 79:
e9955c83 1670YY_RULE_SETUP
9280d3ef 1671#line 421 "scan-gram.l"
44995b2e 1672YY_OBS_GROW; yy_push_state (SC_COMMENT);
e9955c83 1673 YY_BREAK
9280d3ef 1674case 80:
e9955c83 1675YY_RULE_SETUP
9280d3ef 1676#line 422 "scan-gram.l"
44995b2e 1677YY_OBS_GROW;
e9955c83
AD		 1678 YY_BREAK
1679
1680/*---------------------------------------------------------------.
1681 | Scanning some code in braces (%union and actions). The initial |
1682 | "{" is already eaten. |
1683 `---------------------------------------------------------------*/
1684
1685
9280d3ef 1686case 81:
e9955c83 1687YY_RULE_SETUP
9280d3ef 1688#line 433 "scan-gram.l"
e9955c83 1689{
44995b2e 1690 YY_OBS_GROW;
e9955c83
AD		 1691 if (--braces_level == 0)
1692 {
1693 yy_pop_state ();
44995b2e 1694 YY_OBS_FINISH;
4cdb01db 1695 yylval->string = last_string;
e9955c83
AD		 1696 return BRACED_CODE;
1697 }
1698 }
1699 YY_BREAK
e9955c83
AD		 1700case 82:
1701YY_RULE_SETUP
8efe435c 1702#line 444 "scan-gram.l"
9280d3ef 1703YY_OBS_GROW; braces_level++;
e9955c83
AD		 1704 YY_BREAK
1705case 83:
1706YY_RULE_SETUP
9280d3ef
AD		 1707#line 446 "scan-gram.l"
1708{
1709 switch (current_braced_code)
1710 {
1711 case action_braced_code:
1712 handle_action_dollar (yytext, *yylloc);
1713 break;
1714
1715 case destructor_braced_code:
1716 handle_destructor_dollar (yytext, *yylloc);
1717 break;
1718 }
1719 }
e9955c83
AD		 1720 YY_BREAK
1721case 84:
1722YY_RULE_SETUP
9280d3ef
AD		 1723#line 458 "scan-gram.l"
1724{ handle_at (yytext); }
e9955c83
AD		 1725 YY_BREAK
1726case 85:
1727YY_RULE_SETUP
9280d3ef
AD		 1728#line 460 "scan-gram.l"
1729YY_OBS_GROW;
1730 YY_BREAK
1731case 86:
1732YY_RULE_SETUP
1733#line 461 "scan-gram.l"
44995b2e 1734YY_OBS_GROW; YY_LINES;
e9955c83
AD		 1735 YY_BREAK
1736/* A lose $, or /, or etc. */
9280d3ef 1737case 87:
e9955c83 1738YY_RULE_SETUP
9280d3ef 1739#line 464 "scan-gram.l"
44995b2e 1740YY_OBS_GROW;
e9955c83
AD		 1741 YY_BREAK
1742case YY_STATE_EOF(SC_BRACED_CODE):
9280d3ef 1743#line 466 "scan-gram.l"
e9955c83
AD		 1744{
1745 LOCATION_PRINT (stderr, *yylloc);
1746 fprintf (stderr, ": unexpected end of file in a braced code\n");
1747 yy_pop_state ();
44995b2e 1748 YY_OBS_FINISH;
4cdb01db
AD		 1749 yylval->string = last_string;
1750 return BRACED_CODE;
e9955c83
AD		 1751 }
1752 YY_BREAK
1753
1754/*--------------------------------------------------------------.
1755 | Scanning some prologue: from "%{" (already scanned) to "%}". |
1756 `--------------------------------------------------------------*/
1757
1758
9280d3ef 1759case 88:
e9955c83 1760YY_RULE_SETUP
9280d3ef 1761#line 484 "scan-gram.l"
e9955c83
AD		 1762{
1763 yy_pop_state ();
44995b2e 1764 YY_OBS_FINISH;
4cdb01db 1765 yylval->string = last_string;
e9955c83
AD		 1766 return PROLOGUE;
1767 }
1768 YY_BREAK
9280d3ef 1769case 89:
e9955c83 1770YY_RULE_SETUP
9280d3ef 1771#line 491 "scan-gram.l"
44995b2e 1772YY_OBS_GROW;
e9955c83 1773 YY_BREAK
9280d3ef 1774case 90:
e9955c83 1775YY_RULE_SETUP
9280d3ef 1776#line 492 "scan-gram.l"
44995b2e 1777YY_OBS_GROW;
e9955c83 1778 YY_BREAK
9280d3ef 1779case 91:
e9955c83 1780YY_RULE_SETUP
9280d3ef 1781#line 493 "scan-gram.l"
44995b2e 1782YY_OBS_GROW; YY_LINES;
e9955c83
AD		 1783 YY_BREAK
1784case YY_STATE_EOF(SC_PROLOGUE):
9280d3ef 1785#line 495 "scan-gram.l"
e9955c83
AD		 1786{
1787 LOCATION_PRINT (stderr, *yylloc);
1788 fprintf (stderr, ": unexpected end of file in a prologue\n");
1789 yy_pop_state ();
44995b2e 1790 YY_OBS_FINISH;
4cdb01db 1791 yylval->string = last_string;
e9955c83
AD		 1792 return PROLOGUE;
1793 }
1794 YY_BREAK
1795
1796/*---------------------------------------------------------------.
1797 | Scanning the epilogue (everything after the second "%%", which |
1798 | has already been eaten. |
1799 `---------------------------------------------------------------*/
1800
1801
9280d3ef 1802case 92:
e9955c83 1803YY_RULE_SETUP
9280d3ef 1804#line 514 "scan-gram.l"
44995b2e 1805YY_OBS_GROW;
e9955c83
AD		 1806 YY_BREAK
1807case YY_STATE_EOF(SC_EPILOGUE):
9280d3ef 1808#line 516 "scan-gram.l"
e9955c83
AD		 1809{
1810 yy_pop_state ();
44995b2e 1811 YY_OBS_FINISH;
4cdb01db 1812 yylval->string = last_string;
e9955c83
AD		 1813 return EPILOGUE;
1814 }
1815 YY_BREAK
1816
9280d3ef 1817case 93:
e9955c83 1818YY_RULE_SETUP
9280d3ef 1819#line 525 "scan-gram.l"
e9955c83
AD		 1820YY_FATAL_ERROR( "flex scanner jammed" );
1821 YY_BREAK
9280d3ef 1822#line 1823 "lex.yy.c"
e9955c83
AD		 1823case YY_STATE_EOF(INITIAL):
1824 yyterminate();
1825
1826 case YY_END_OF_BUFFER:
1827 {
1828 /* Amount of text matched not including the EOB char. */
1829 int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
1830
1831 /* Undo the effects of YY_DO_BEFORE_ACTION. */
1832 *yy_cp = yy_hold_char;
1833 YY_RESTORE_YY_MORE_OFFSET
1834
1835 if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
1836 {
1837 /* We're scanning a new file or input source. It's
1838 * possible that this happened because the user
1839 * just pointed yyin at a new source and called
1840 * yylex(). If so, then we have to assure
1841 * consistency between yy_current_buffer and our
1842 * globals. Here is the right place to do so, because
1843 * this is the first action (other than possibly a
1844 * back-up) that will match for the new input source.
1845 */
1846 yy_n_chars = yy_current_buffer->yy_n_chars;
1847 yy_current_buffer->yy_input_file = yyin;
1848 yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
1849 }
1850
1851 /* Note that here we test for yy_c_buf_p "<=" to the position
1852 * of the first EOB in the buffer, since yy_c_buf_p will
1853 * already have been incremented past the NUL character
1854 * (since all states make transitions on EOB to the
1855 * end-of-buffer state). Contrast this with the test
1856 * in input().
1857 */
1858 if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
1859 { /* This was really a NUL. */
1860 yy_state_type yy_next_state;
1861
1862 yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
1863
1864 yy_current_state = yy_get_previous_state();
1865
1866 /* Okay, we're now positioned to make the NUL
1867 * transition. We couldn't have
1868 * yy_get_previous_state() go ahead and do it
1869 * for us because it doesn't know how to deal
1870 * with the possibility of jamming (and we don't
1871 * want to build jamming into it because then it
1872 * will run more slowly).
1873 */
1874
1875 yy_next_state = yy_try_NUL_trans( yy_current_state );
1876
1877 yy_bp = yytext_ptr + YY_MORE_ADJ;
1878
1879 if ( yy_next_state )
1880 {
1881 /* Consume the NUL. */
1882 yy_cp = ++yy_c_buf_p;
1883 yy_current_state = yy_next_state;
1884 goto yy_match;
1885 }
1886
1887 else
1888 {
1889 yy_cp = yy_c_buf_p;
1890 goto yy_find_action;
1891 }
1892 }
1893
1894 else switch ( yy_get_next_buffer() )
1895 {
1896 case EOB_ACT_END_OF_FILE:
1897 {
1898 yy_did_buffer_switch_on_eof = 0;
1899
1900 if ( yywrap() )
1901 {
1902 /* Note: because we've taken care in
1903 * yy_get_next_buffer() to have set up
1904 * yytext, we can now set up
1905 * yy_c_buf_p so that if some total
1906 * hoser (like flex itself) wants to
1907 * call the scanner after we return the
1908 * YY_NULL, it'll still work - another
1909 * YY_NULL will get returned.
1910 */
1911 yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
1912
1913 yy_act = YY_STATE_EOF(YY_START);
1914 goto do_action;
1915 }
1916
1917 else
1918 {
1919 if ( ! yy_did_buffer_switch_on_eof )
1920 YY_NEW_FILE;
1921 }
1922 break;
1923 }
1924
1925 case EOB_ACT_CONTINUE_SCAN:
1926 yy_c_buf_p =
1927 yytext_ptr + yy_amount_of_matched_text;
1928
1929 yy_current_state = yy_get_previous_state();
1930
1931 yy_cp = yy_c_buf_p;
1932 yy_bp = yytext_ptr + YY_MORE_ADJ;
1933 goto yy_match;
1934
1935 case EOB_ACT_LAST_MATCH:
1936 yy_c_buf_p =
1937 &yy_current_buffer->yy_ch_buf[yy_n_chars];
1938
1939 yy_current_state = yy_get_previous_state();
1940
1941 yy_cp = yy_c_buf_p;
1942 yy_bp = yytext_ptr + YY_MORE_ADJ;
1943 goto yy_find_action;
1944 }
1945 break;
1946 }
1947
1948 default:
1949 YY_FATAL_ERROR(
1950 "fatal flex scanner internal error--no action found" );
1951 } /* end of action switch */
1952 } /* end of scanning one token */
1953 } /* end of yylex */
1954
1955
1956/* yy_get_next_buffer - try to read in a new buffer
1957 *
1958 * Returns a code representing an action:
1959 * EOB_ACT_LAST_MATCH -
1960 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
1961 * EOB_ACT_END_OF_FILE - end of file
1962 */
1963
1964static int yy_get_next_buffer()
1965 {
1966 register char *dest = yy_current_buffer->yy_ch_buf;
1967 register char *source = yytext_ptr;
1968 register int number_to_move, i;
1969 int ret_val;
1970
1971 if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
1972 YY_FATAL_ERROR(
1973 "fatal flex scanner internal error--end of buffer missed" );
1974
1975 if ( yy_current_buffer->yy_fill_buffer == 0 )
1976 { /* Don't try to fill the buffer, so this is an EOF. */
1977 if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
1978 {
1979 /* We matched a single character, the EOB, so
1980 * treat this as a final EOF.
1981 */
1982 return EOB_ACT_END_OF_FILE;
1983 }
1984
1985 else
1986 {
1987 /* We matched some text prior to the EOB, first
1988 * process it.
1989 */
1990 return EOB_ACT_LAST_MATCH;
1991 }
1992 }
1993
1994 /* Try to read more data. */
1995
1996 /* First move last chars to start of buffer. */
1997 number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
1998
1999 for ( i = 0; i < number_to_move; ++i )
2000 *(dest++) = *(source++);
2001
2002 if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
2003 /* don't do the read, it's not guaranteed to return an EOF,
2004 * just force an EOF
2005 */
2006 yy_current_buffer->yy_n_chars = yy_n_chars = 0;
2007
2008 else
2009 {
2010 int num_to_read =
2011 yy_current_buffer->yy_buf_size - number_to_move - 1;
2012
2013 while ( num_to_read <= 0 )
2014 { /* Not enough room in the buffer - grow it. */
2015#ifdef YY_USES_REJECT
2016 YY_FATAL_ERROR(
2017"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
2018#else
2019
2020 /* just a shorter name for the current buffer */
2021 YY_BUFFER_STATE b = yy_current_buffer;
2022
2023 int yy_c_buf_p_offset =
2024 (int) (yy_c_buf_p - b->yy_ch_buf);
2025
2026 if ( b->yy_is_our_buffer )
2027 {
2028 int new_size = b->yy_buf_size * 2;
2029
2030 if ( new_size <= 0 )
2031 b->yy_buf_size += b->yy_buf_size / 8;
2032 else
2033 b->yy_buf_size *= 2;
2034
2035 b->yy_ch_buf = (char *)
2036 /* Include room in for 2 EOB chars. */
2037 yy_flex_realloc( (void *) b->yy_ch_buf,
2038 b->yy_buf_size + 2 );
2039 }
2040 else
2041 /* Can't grow it, we don't own it. */
2042 b->yy_ch_buf = 0;
2043
2044 if ( ! b->yy_ch_buf )
2045 YY_FATAL_ERROR(
2046 "fatal error - scanner input buffer overflow" );
2047
2048 yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
2049
2050 num_to_read = yy_current_buffer->yy_buf_size -
2051 number_to_move - 1;
2052#endif
2053 }
2054
2055 if ( num_to_read > YY_READ_BUF_SIZE )
2056 num_to_read = YY_READ_BUF_SIZE;
2057
2058 /* Read in more data. */
2059 YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
2060 yy_n_chars, num_to_read );
2061
2062 yy_current_buffer->yy_n_chars = yy_n_chars;
2063 }
2064
2065 if ( yy_n_chars == 0 )
2066 {
2067 if ( number_to_move == YY_MORE_ADJ )
2068 {
2069 ret_val = EOB_ACT_END_OF_FILE;
2070 yyrestart( yyin );
2071 }
2072
2073 else
2074 {
2075 ret_val = EOB_ACT_LAST_MATCH;
2076 yy_current_buffer->yy_buffer_status =
2077 YY_BUFFER_EOF_PENDING;
2078 }
2079 }
2080
2081 else
2082 ret_val = EOB_ACT_CONTINUE_SCAN;
2083
2084 yy_n_chars += number_to_move;
2085 yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
2086 yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
2087
2088 yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
2089
2090 return ret_val;
2091 }
2092
2093
2094/* yy_get_previous_state - get the state just before the EOB char was reached */
2095
2096static yy_state_type yy_get_previous_state()
2097 {
2098 register yy_state_type yy_current_state;
2099 register char *yy_cp;
2100
2101 yy_current_state = yy_start;
2102
2103 for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
2104 {
2105 register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
2106 if ( yy_accept[yy_current_state] )
2107 {
2108 yy_last_accepting_state = yy_current_state;
2109 yy_last_accepting_cpos = yy_cp;
2110 }
2111 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2112 {
2113 yy_current_state = (int) yy_def[yy_current_state];
9280d3ef 2114 if ( yy_current_state >= 357 )
e9955c83
AD		 2115 yy_c = yy_meta[(unsigned int) yy_c];
2116 }
2117 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
2118 }
2119
2120 return yy_current_state;
2121 }
2122
2123
2124/* yy_try_NUL_trans - try to make a transition on the NUL character
2125 *
2126 * synopsis
2127 * next_state = yy_try_NUL_trans( current_state );
2128 */
2129
2130#ifdef YY_USE_PROTOS
2131static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
2132#else
2133static yy_state_type yy_try_NUL_trans( yy_current_state )
2134yy_state_type yy_current_state;
2135#endif
2136 {
2137 register int yy_is_jam;
2138 register char *yy_cp = yy_c_buf_p;
2139
2140 register YY_CHAR yy_c = 1;
2141 if ( yy_accept[yy_current_state] )
2142 {
2143 yy_last_accepting_state = yy_current_state;
2144 yy_last_accepting_cpos = yy_cp;
2145 }
2146 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2147 {
2148 yy_current_state = (int) yy_def[yy_current_state];
9280d3ef 2149 if ( yy_current_state >= 357 )
e9955c83
AD		 2150 yy_c = yy_meta[(unsigned int) yy_c];
2151 }
2152 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
9280d3ef 2153 yy_is_jam = (yy_current_state == 356);
e9955c83
AD		 2154
2155 return yy_is_jam ? 0 : yy_current_state;
2156 }
2157
2158
2159#ifndef YY_NO_UNPUT
2160#ifdef YY_USE_PROTOS
2161static void yyunput( int c, register char *yy_bp )
2162#else
2163static void yyunput( c, yy_bp )
2164int c;
2165register char *yy_bp;
2166#endif
2167 {
2168 register char *yy_cp = yy_c_buf_p;
2169
2170 /* undo effects of setting up yytext */
2171 *yy_cp = yy_hold_char;
2172
2173 if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
2174 { /* need to shift things up to make room */
2175 /* +2 for EOB chars. */
2176 register int number_to_move = yy_n_chars + 2;
2177 register char *dest = &yy_current_buffer->yy_ch_buf[
2178 yy_current_buffer->yy_buf_size + 2];
2179 register char *source =
2180 &yy_current_buffer->yy_ch_buf[number_to_move];
2181
2182 while ( source > yy_current_buffer->yy_ch_buf )
2183 *--dest = *--source;
2184
2185 yy_cp += (int) (dest - source);
2186 yy_bp += (int) (dest - source);
2187 yy_current_buffer->yy_n_chars =
2188 yy_n_chars = yy_current_buffer->yy_buf_size;
2189
2190 if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
2191 YY_FATAL_ERROR( "flex scanner push-back overflow" );
2192 }
2193
2194 *--yy_cp = (char) c;
2195
2196
2197 yytext_ptr = yy_bp;
2198 yy_hold_char = *yy_cp;
2199 yy_c_buf_p = yy_cp;
2200 }
2201#endif /* ifndef YY_NO_UNPUT */
2202
2203
2204#ifdef __cplusplus
2205static int yyinput()
2206#else
2207static int input()
2208#endif
2209 {
2210 int c;
2211
2212 *yy_c_buf_p = yy_hold_char;
2213
2214 if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
2215 {
2216 /* yy_c_buf_p now points to the character we want to return.
2217 * If this occurs *before* the EOB characters, then it's a
2218 * valid NUL; if not, then we've hit the end of the buffer.
2219 */
2220 if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
2221 /* This was really a NUL. */
2222 *yy_c_buf_p = '\0';
2223
2224 else
2225 { /* need more input */
2226 int offset = yy_c_buf_p - yytext_ptr;
2227 ++yy_c_buf_p;
2228
2229 switch ( yy_get_next_buffer() )
2230 {
2231 case EOB_ACT_LAST_MATCH:
2232 /* This happens because yy_g_n_b()
2233 * sees that we've accumulated a
2234 * token and flags that we need to
2235 * try matching the token before
2236 * proceeding. But for input(),
2237 * there's no matching to consider.
2238 * So convert the EOB_ACT_LAST_MATCH
2239 * to EOB_ACT_END_OF_FILE.
2240 */
2241
2242 /* Reset buffer status. */
2243 yyrestart( yyin );
2244
2245 /* fall through */
2246
2247 case EOB_ACT_END_OF_FILE:
2248 {
2249 if ( yywrap() )
2250 return EOF;
2251
2252 if ( ! yy_did_buffer_switch_on_eof )
2253 YY_NEW_FILE;
2254#ifdef __cplusplus
2255 return yyinput();
2256#else
2257 return input();
2258#endif
2259 }
2260
2261 case EOB_ACT_CONTINUE_SCAN:
2262 yy_c_buf_p = yytext_ptr + offset;
2263 break;
2264 }
2265 }
2266 }
2267
2268 c = *(unsigned char *) yy_c_buf_p; /* cast for 8-bit char's */
2269 *yy_c_buf_p = '\0'; /* preserve yytext */
2270 yy_hold_char = *++yy_c_buf_p;
2271
2272
2273 return c;
2274 }
2275
2276
2277#ifdef YY_USE_PROTOS
2278void yyrestart( FILE *input_file )
2279#else
2280void yyrestart( input_file )
2281FILE *input_file;
2282#endif
2283 {
2284 if ( ! yy_current_buffer )
2285 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
2286
2287 yy_init_buffer( yy_current_buffer, input_file );
2288 yy_load_buffer_state();
2289 }
2290
2291
2292#ifdef YY_USE_PROTOS
2293void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
2294#else
2295void yy_switch_to_buffer( new_buffer )
2296YY_BUFFER_STATE new_buffer;
2297#endif
2298 {
2299 if ( yy_current_buffer == new_buffer )
2300 return;
2301
2302 if ( yy_current_buffer )
2303 {
2304 /* Flush out information for old buffer. */
2305 *yy_c_buf_p = yy_hold_char;
2306 yy_current_buffer->yy_buf_pos = yy_c_buf_p;
2307 yy_current_buffer->yy_n_chars = yy_n_chars;
2308 }
2309
2310 yy_current_buffer = new_buffer;
2311 yy_load_buffer_state();
2312
2313 /* We don't actually know whether we did this switch during
2314 * EOF (yywrap()) processing, but the only time this flag
2315 * is looked at is after yywrap() is called, so it's safe
2316 * to go ahead and always set it.
2317 */
2318 yy_did_buffer_switch_on_eof = 1;
2319 }
2320
2321
2322#ifdef YY_USE_PROTOS
2323void yy_load_buffer_state( void )
2324#else
2325void yy_load_buffer_state()
2326#endif
2327 {
2328 yy_n_chars = yy_current_buffer->yy_n_chars;
2329 yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
2330 yyin = yy_current_buffer->yy_input_file;
2331 yy_hold_char = *yy_c_buf_p;
2332 }
2333
2334
2335#ifdef YY_USE_PROTOS
2336YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
2337#else
2338YY_BUFFER_STATE yy_create_buffer( file, size )
2339FILE *file;
2340int size;
2341#endif
2342 {
2343 YY_BUFFER_STATE b;
2344
2345 b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
2346 if ( ! b )
2347 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2348
2349 b->yy_buf_size = size;
2350
2351 /* yy_ch_buf has to be 2 characters longer than the size given because
2352 * we need to put in 2 end-of-buffer characters.
2353 */
2354 b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
2355 if ( ! b->yy_ch_buf )
2356 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2357
2358 b->yy_is_our_buffer = 1;
2359
2360 yy_init_buffer( b, file );
2361
2362 return b;
2363 }
2364
2365
2366#ifdef YY_USE_PROTOS
2367void yy_delete_buffer( YY_BUFFER_STATE b )
2368#else
2369void yy_delete_buffer( b )
2370YY_BUFFER_STATE b;
2371#endif
2372 {
2373 if ( ! b )
2374 return;
2375
2376 if ( b == yy_current_buffer )
2377 yy_current_buffer = (YY_BUFFER_STATE) 0;
2378
2379 if ( b->yy_is_our_buffer )
2380 yy_flex_free( (void *) b->yy_ch_buf );
2381
2382 yy_flex_free( (void *) b );
2383 }
2384
2385
44995b2e
AD		 2386#ifndef _WIN32
2387#include <unistd.h>
2388#else
e9955c83
AD		 2389#ifndef YY_ALWAYS_INTERACTIVE
2390#ifndef YY_NEVER_INTERACTIVE
2391extern int isatty YY_PROTO(( int ));
2392#endif
2393#endif
44995b2e 2394#endif
e9955c83
AD		 2395
2396#ifdef YY_USE_PROTOS
2397void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
2398#else
2399void yy_init_buffer( b, file )
2400YY_BUFFER_STATE b;
2401FILE *file;
2402#endif
2403
2404
2405 {
2406 yy_flush_buffer( b );
2407
2408 b->yy_input_file = file;
2409 b->yy_fill_buffer = 1;
2410
2411#if YY_ALWAYS_INTERACTIVE
2412 b->yy_is_interactive = 1;
2413#else
2414#if YY_NEVER_INTERACTIVE
2415 b->yy_is_interactive = 0;
2416#else
2417 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
2418#endif
2419#endif
2420 }
2421
2422
2423#ifdef YY_USE_PROTOS
2424void yy_flush_buffer( YY_BUFFER_STATE b )
2425#else
2426void yy_flush_buffer( b )
2427YY_BUFFER_STATE b;
2428#endif
2429
2430 {
2431 if ( ! b )
2432 return;
2433
2434 b->yy_n_chars = 0;
2435
2436 /* We always need two end-of-buffer characters. The first causes
2437 * a transition to the end-of-buffer state. The second causes
2438 * a jam in that state.
2439 */
2440 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
2441 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
2442
2443 b->yy_buf_pos = &b->yy_ch_buf[0];
2444
2445 b->yy_at_bol = 1;
2446 b->yy_buffer_status = YY_BUFFER_NEW;
2447
2448 if ( b == yy_current_buffer )
2449 yy_load_buffer_state();
2450 }
2451
2452
2453#ifndef YY_NO_SCAN_BUFFER
2454#ifdef YY_USE_PROTOS
2455YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
2456#else
2457YY_BUFFER_STATE yy_scan_buffer( base, size )
2458char *base;
2459yy_size_t size;
2460#endif
2461 {
2462 YY_BUFFER_STATE b;
2463
2464 if ( size < 2 ||
2465 base[size-2] != YY_END_OF_BUFFER_CHAR ||
2466 base[size-1] != YY_END_OF_BUFFER_CHAR )
2467 /* They forgot to leave room for the EOB's. */
2468 return 0;
2469
2470 b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
2471 if ( ! b )
2472 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
2473
2474 b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
2475 b->yy_buf_pos = b->yy_ch_buf = base;
2476 b->yy_is_our_buffer = 0;
2477 b->yy_input_file = 0;
2478 b->yy_n_chars = b->yy_buf_size;
2479 b->yy_is_interactive = 0;
2480 b->yy_at_bol = 1;
2481 b->yy_fill_buffer = 0;
2482 b->yy_buffer_status = YY_BUFFER_NEW;
2483
2484 yy_switch_to_buffer( b );
2485
2486 return b;
2487 }
2488#endif
2489
2490
2491#ifndef YY_NO_SCAN_STRING
2492#ifdef YY_USE_PROTOS
2493YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
2494#else
2495YY_BUFFER_STATE yy_scan_string( yy_str )
2496yyconst char *yy_str;
2497#endif
2498 {
2499 int len;
2500 for ( len = 0; yy_str[len]; ++len )
2501 ;
2502
2503 return yy_scan_bytes( yy_str, len );
2504 }
2505#endif
2506
2507
2508#ifndef YY_NO_SCAN_BYTES
2509#ifdef YY_USE_PROTOS
2510YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
2511#else
2512YY_BUFFER_STATE yy_scan_bytes( bytes, len )
2513yyconst char *bytes;
2514int len;
2515#endif
2516 {
2517 YY_BUFFER_STATE b;
2518 char *buf;
2519 yy_size_t n;
2520 int i;
2521
2522 /* Get memory for full buffer, including space for trailing EOB's. */
2523 n = len + 2;
2524 buf = (char *) yy_flex_alloc( n );
2525 if ( ! buf )
2526 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
2527
2528 for ( i = 0; i < len; ++i )
2529 buf[i] = bytes[i];
2530
2531 buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
2532
2533 b = yy_scan_buffer( buf, n );
2534 if ( ! b )
2535 YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
2536
2537 /* It's okay to grow etc. this buffer, and we should throw it
2538 * away when we're done.
2539 */
2540 b->yy_is_our_buffer = 1;
2541
2542 return b;
2543 }
2544#endif
2545
2546
2547#ifndef YY_NO_PUSH_STATE
2548#ifdef YY_USE_PROTOS
2549static void yy_push_state( int new_state )
2550#else
2551static void yy_push_state( new_state )
2552int new_state;
2553#endif
2554 {
2555 if ( yy_start_stack_ptr >= yy_start_stack_depth )
2556 {
2557 yy_size_t new_size;
2558
2559 yy_start_stack_depth += YY_START_STACK_INCR;
2560 new_size = yy_start_stack_depth * sizeof( int );
2561
2562 if ( ! yy_start_stack )
2563 yy_start_stack = (int *) yy_flex_alloc( new_size );
2564
2565 else
2566 yy_start_stack = (int *) yy_flex_realloc(
2567 (void *) yy_start_stack, new_size );
2568
2569 if ( ! yy_start_stack )
2570 YY_FATAL_ERROR(
2571 "out of memory expanding start-condition stack" );
2572 }
2573
2574 yy_start_stack[yy_start_stack_ptr++] = YY_START;
2575
2576 BEGIN(new_state);
2577 }
2578#endif
2579
2580
2581#ifndef YY_NO_POP_STATE
2582static void yy_pop_state()
2583 {
2584 if ( --yy_start_stack_ptr < 0 )
2585 YY_FATAL_ERROR( "start-condition stack underflow" );
2586
2587 BEGIN(yy_start_stack[yy_start_stack_ptr]);
2588 }
2589#endif
2590
2591
2592#ifndef YY_NO_TOP_STATE
2593static int yy_top_state()
2594 {
2595 return yy_start_stack[yy_start_stack_ptr - 1];
2596 }
2597#endif
2598
2599#ifndef YY_EXIT_FAILURE
2600#define YY_EXIT_FAILURE 2
2601#endif
2602
2603#ifdef YY_USE_PROTOS
2604static void yy_fatal_error( yyconst char msg[] )
2605#else
2606static void yy_fatal_error( msg )
2607char msg[];
2608#endif
2609 {
2610 (void) fprintf( stderr, "%s\n", msg );
2611 exit( YY_EXIT_FAILURE );
2612 }
2613
2614
2615
2616/* Redefine yyless() so it works in section 3 code. */
2617
2618#undef yyless
2619#define yyless(n) \
2620 do \
2621 { \
2622 /* Undo effects of setting up yytext. */ \
2623 yytext[yyleng] = yy_hold_char; \
2624 yy_c_buf_p = yytext + n; \
2625 yy_hold_char = *yy_c_buf_p; \
2626 *yy_c_buf_p = '\0'; \
2627 yyleng = n; \
2628 } \
2629 while ( 0 )
2630
2631
2632/* Internal utility routines. */
2633
2634#ifndef yytext_ptr
2635#ifdef YY_USE_PROTOS
2636static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
2637#else
2638static void yy_flex_strncpy( s1, s2, n )
2639char *s1;
2640yyconst char *s2;
2641int n;
2642#endif
2643 {
2644 register int i;
2645 for ( i = 0; i < n; ++i )
2646 s1[i] = s2[i];
2647 }
2648#endif
2649
2650#ifdef YY_NEED_STRLEN
2651#ifdef YY_USE_PROTOS
2652static int yy_flex_strlen( yyconst char *s )
2653#else
2654static int yy_flex_strlen( s )
2655yyconst char *s;
2656#endif
2657 {
2658 register int n;
2659 for ( n = 0; s[n]; ++n )
2660 ;
2661
2662 return n;
2663 }
2664#endif
2665
2666
2667#ifdef YY_USE_PROTOS
2668static void *yy_flex_alloc( yy_size_t size )
2669#else
2670static void *yy_flex_alloc( size )
2671yy_size_t size;
2672#endif
2673 {
2674 return (void *) malloc( size );
2675 }
2676
2677#ifdef YY_USE_PROTOS
2678static void *yy_flex_realloc( void *ptr, yy_size_t size )
2679#else
2680static void *yy_flex_realloc( ptr, size )
2681void *ptr;
2682yy_size_t size;
2683#endif
2684 {
2685 /* The cast to (char *) in the following accommodates both
2686 * implementations that use char* generic pointers, and those
2687 * that use void* generic pointers. It works with the latter
2688 * because both ANSI C and C++ allow castless assignment from
2689 * any pointer type to void*, and deal with argument conversions
2690 * as though doing an assignment.
2691 */
2692 return (void *) realloc( (char *) ptr, size );
2693 }
2694
2695#ifdef YY_USE_PROTOS
2696static void yy_flex_free( void *ptr )
2697#else
2698static void yy_flex_free( ptr )
2699void *ptr;
2700#endif
2701 {
2702 free( ptr );
2703 }
2704
2705#if YY_MAIN
2706int main()
2707 {
2708 yylex();
2709 return 0;
2710 }
2711#endif
9280d3ef 2712#line 525 "scan-gram.l"
e9955c83
AD		 2713
2714
2715/*------------------------------------------------------------------.
2716| CP is pointing to a wannabee semantic value (i.e., a `$'). |
2717| |
2718| Possible inputs: $[<TYPENAME>]($|integer) |
2719| |
2720| Output to the STRING_OBSTACK a reference to this semantic value. |
2721`------------------------------------------------------------------*/
2722
2723static void
9280d3ef 2724handle_action_dollar (char *cp, location_t location)
e9955c83
AD		 2725{
2726 const char *type_name = NULL;
2727
e9955c83
AD		 2728 ++cp;
2729
2730 /* Get the type name if explicit. */
2731 if (*cp == '<')
2732 {
2733 type_name = ++cp;
2734 while (*cp != '>')
2735 ++cp;
2736 *cp = '\0';
2737 ++cp;
2738 }
2739
2740 if (*cp == '$')
2741 {
2742 if (!type_name)
56c47203 2743 type_name = symbol_list_n_type_name_get (current_rule, location, 0);
e9955c83 2744 if (!type_name && typed)
56c47203
AD		 2745 complain_at (location, _("$$ of `%s' has no declared type"),
2746 current_rule->sym->tag);
e9955c83
AD		 2747 if (!type_name)
2748 type_name = "";
2749 obstack_fgrow1 (&string_obstack,
2750 "]b4_lhs_value([%s])[", type_name);
2751 }
2752 else if (isdigit (*cp) || *cp == '-')
2753 {
dafdc66f
AD		 2754 /* RULE_LENGTH is the number of values in the current rule so
2755 far, which says where to find `$0' with respect to the top of
2756 the stack. It is not the same as the rule->length in the
2757 case of mid rule actions. */
2758 int rule_length = symbol_list_length (current_rule->next);
e9955c83
AD		 2759 int n = strtol (cp, &cp, 10);
2760
2761 if (n > rule_length)
56c47203 2762 complain_at (location, _("invalid value: %s%d"), "$", n);
e9955c83
AD		 2763 else
2764 {
2765 if (!type_name && n > 0)
56c47203
AD		 2766 type_name = symbol_list_n_type_name_get (current_rule, location,
2767 n);
e9955c83 2768 if (!type_name && typed)
56c47203 2769 complain_at (location, _("$%d of `%s' has no declared type"),
e9955c83
AD		 2770 n, current_rule->sym->tag);
2771 if (!type_name)
2772 type_name = "";
2773 obstack_fgrow3 (&string_obstack,
2774 "]b4_rhs_value([%d], [%d], [%s])[",
2775 rule_length, n, type_name);
2776 }
2777 }
2778 else
2779 {
2780 char buf[] = "$c";
2781 buf[1] = *cp;
9280d3ef
AD		 2782 complain_at (location, _("%s is invalid"), quote (buf));
2783 }
2784}
2785
2786
2787/*---------------------------------------------------------------.
2788| CP is pointing to $$ in a destructor. This should probably be |
2789| done once the grammar completely parsed, instead of during its |
2790| parsing, since that means %type must be specified before |
2791| %destructor. |
2792`---------------------------------------------------------------*/
2793
2794static void
2795handle_destructor_dollar (char *cp, location_t location)
2796{
2797 ++cp;
2798 if (*cp == '$')
2799 {
2800 /* FIXME: We should find something more robust. */
2801 obstack_sgrow (&string_obstack, "b4_dollar_dollar");
2802 }
2803 else
2804 {
2805 char buf[] = "$c";
2806 buf[1] = *cp;
2807 complain_at (location, _("%s is invalid"), quote (buf));
e9955c83
AD		 2808 }
2809}
2810
2811/*-------------------------------------------------------.
2812| CP is pointing to a location (i.e., a `@'). Output to |
2813| STRING_OBSTACK a reference to this location. |
2814`-------------------------------------------------------*/
2815
2816static void
2817handle_at (char *cp)
2818{
e9955c83
AD		 2819 locations_flag = 1;
2820 ++cp;
2821
2822 if (*cp == '$')
2823 {
2824 obstack_sgrow (&string_obstack, "]b4_lhs_location[");
2825 }
2826 else if (isdigit (*cp) || *cp == '-')
2827 {
dafdc66f
AD		 2828 /* RULE_LENGTH is the number of values in the current rule so
2829 far, which says where to find `$0' with respect to the top of
2830 the stack. It is not the same as the rule->length in the
2831 case of mid rule actions. */
2832 int rule_length = symbol_list_length (current_rule->next);
e9955c83 2833 int n = strtol (cp, &cp, 10);
dafdc66f 2834
e9955c83
AD		 2835 if (n > rule_length)
2836 complain (_("invalid value: %s%d"), "@", n);
2837 else
2838 obstack_fgrow2 (&string_obstack, "]b4_rhs_location([%d], [%d])[",
2839 rule_length, n);
2840 }
2841 else
2842 {
2843 char buf[] = "@c";
2844 buf[1] = *cp;
2845 complain (_("%s is invalid"), quote (buf));
2846 }
2847}
4cdb01db 2848
1d6412ad
AD		 2849void
2850scanner_initialize (void)
2851{
2852 obstack_init (&string_obstack);
2853}
2854
2855
4cdb01db
AD		 2856void
2857scanner_free (void)
2858{
2859 obstack_free (&string_obstack, 0);
2860}
bison