Resync
[CMakeLuaTailorHgBridge.git] / CMakeLua / Source / cmDependsFortranLexer.cxx
blobfe484bd7cb8a9833151a8aed209cfa5736898670
1 #line 2 "cmDependsFortranLexer.cxx"
3 #line 4 "cmDependsFortranLexer.cxx"
5 #define YY_INT_ALIGNED short int
7 /* A lexical scanner generated by flex */
9 #define FLEX_SCANNER
10 #define YY_FLEX_MAJOR_VERSION 2
11 #define YY_FLEX_MINOR_VERSION 5
12 #define YY_FLEX_SUBMINOR_VERSION 33
13 #if YY_FLEX_SUBMINOR_VERSION > 0
14 #define FLEX_BETA
15 #endif
17 /* First, we deal with platform-specific or compiler-specific issues. */
19 /* begin standard C headers. */
20 #include <stdio.h>
21 #include <string.h>
22 #include <errno.h>
23 #include <stdlib.h>
25 /* end standard C headers. */
27 /* flex integer type definitions */
29 #ifndef FLEXINT_H
30 #define FLEXINT_H
32 /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
34 #if __STDC_VERSION__ >= 199901L
36 /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
37 * if you want the limit (max/min) macros for int types.
39 #ifndef __STDC_LIMIT_MACROS
40 #define __STDC_LIMIT_MACROS 1
41 #endif
43 #include <inttypes.h>
44 typedef int8_t flex_int8_t;
45 typedef uint8_t flex_uint8_t;
46 typedef int16_t flex_int16_t;
47 typedef uint16_t flex_uint16_t;
48 typedef int32_t flex_int32_t;
49 typedef uint32_t flex_uint32_t;
50 #else
51 typedef signed char flex_int8_t;
52 typedef short int flex_int16_t;
53 typedef int flex_int32_t;
54 typedef unsigned char flex_uint8_t;
55 typedef unsigned short int flex_uint16_t;
56 typedef unsigned int flex_uint32_t;
57 #endif /* ! C99 */
59 /* Limits of integral types. */
60 #ifndef INT8_MIN
61 #define INT8_MIN (-128)
62 #endif
63 #ifndef INT16_MIN
64 #define INT16_MIN (-32767-1)
65 #endif
66 #ifndef INT32_MIN
67 #define INT32_MIN (-2147483647-1)
68 #endif
69 #ifndef INT8_MAX
70 #define INT8_MAX (127)
71 #endif
72 #ifndef INT16_MAX
73 #define INT16_MAX (32767)
74 #endif
75 #ifndef INT32_MAX
76 #define INT32_MAX (2147483647)
77 #endif
78 #ifndef UINT8_MAX
79 #define UINT8_MAX (255U)
80 #endif
81 #ifndef UINT16_MAX
82 #define UINT16_MAX (65535U)
83 #endif
84 #ifndef UINT32_MAX
85 #define UINT32_MAX (4294967295U)
86 #endif
88 #endif /* ! FLEXINT_H */
90 #ifdef __cplusplus
92 /* The "const" storage-class-modifier is valid. */
93 #define YY_USE_CONST
95 #else /* ! __cplusplus */
97 #if __STDC__
99 #define YY_USE_CONST
101 #endif /* __STDC__ */
102 #endif /* ! __cplusplus */
104 #ifdef YY_USE_CONST
105 #define yyconst const
106 #else
107 #define yyconst
108 #endif
110 /* Returned upon end-of-file. */
111 #define YY_NULL 0
113 /* Promotes a possibly negative, possibly signed char to an unsigned
114 * integer for use as an array index. If the signed char is negative,
115 * we want to instead treat it as an 8-bit unsigned char, hence the
116 * double cast.
118 #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
120 /* An opaque pointer. */
121 #ifndef YY_TYPEDEF_YY_SCANNER_T
122 #define YY_TYPEDEF_YY_SCANNER_T
123 typedef void* yyscan_t;
124 #endif
126 /* For convenience, these vars (plus the bison vars far below)
127 are macros in the reentrant scanner. */
128 #define yyin yyg->yyin_r
129 #define yyout yyg->yyout_r
130 #define yyextra yyg->yyextra_r
131 #define yyleng yyg->yyleng_r
132 #define yytext yyg->yytext_r
133 #define yylineno (YY_CURRENT_BUFFER_LVALUE->yy_bs_lineno)
134 #define yycolumn (YY_CURRENT_BUFFER_LVALUE->yy_bs_column)
135 #define yy_flex_debug yyg->yy_flex_debug_r
137 int cmDependsFortran_yylex_init (yyscan_t* scanner);
139 /* Enter a start condition. This macro really ought to take a parameter,
140 * but we do it the disgusting crufty way forced on us by the ()-less
141 * definition of BEGIN.
143 #define BEGIN yyg->yy_start = 1 + 2 *
145 /* Translate the current start state into a value that can be later handed
146 * to BEGIN to return to the state. The YYSTATE alias is for lex
147 * compatibility.
149 #define YY_START ((yyg->yy_start - 1) / 2)
150 #define YYSTATE YY_START
152 /* Action number for EOF rule of a given start state. */
153 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
155 /* Special action meaning "start processing a new file". */
156 #define YY_NEW_FILE cmDependsFortran_yyrestart(yyin ,yyscanner )
158 #define YY_END_OF_BUFFER_CHAR 0
160 /* Size of default input buffer. */
161 #ifndef YY_BUF_SIZE
162 #define YY_BUF_SIZE 16384
163 #endif
165 /* The state buf must be large enough to hold one state per character in the main buffer.
167 #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
169 #ifndef YY_TYPEDEF_YY_BUFFER_STATE
170 #define YY_TYPEDEF_YY_BUFFER_STATE
171 typedef struct yy_buffer_state *YY_BUFFER_STATE;
172 #endif
174 #define EOB_ACT_CONTINUE_SCAN 0
175 #define EOB_ACT_END_OF_FILE 1
176 #define EOB_ACT_LAST_MATCH 2
178 #define YY_LESS_LINENO(n)
180 /* Return all but the first "n" matched characters back to the input stream. */
181 #define yyless(n) \
182 do \
184 /* Undo effects of setting up yytext. */ \
185 int yyless_macro_arg = (n); \
186 YY_LESS_LINENO(yyless_macro_arg);\
187 *yy_cp = yyg->yy_hold_char; \
188 YY_RESTORE_YY_MORE_OFFSET \
189 yyg->yy_c_buf_p = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
190 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
192 while ( 0 )
194 #define unput(c) yyunput( c, yyg->yytext_ptr , yyscanner )
196 /* The following is because we cannot portably get our hands on size_t
197 * (without autoconf's help, which isn't available because we want
198 * flex-generated scanners to compile on their own).
201 #ifndef YY_TYPEDEF_YY_SIZE_T
202 #define YY_TYPEDEF_YY_SIZE_T
203 typedef unsigned int yy_size_t;
204 #endif
206 #ifndef YY_STRUCT_YY_BUFFER_STATE
207 #define YY_STRUCT_YY_BUFFER_STATE
208 struct yy_buffer_state
210 FILE *yy_input_file;
212 char *yy_ch_buf; /* input buffer */
213 char *yy_buf_pos; /* current position in input buffer */
215 /* Size of input buffer in bytes, not including room for EOB
216 * characters.
218 yy_size_t yy_buf_size;
220 /* Number of characters read into yy_ch_buf, not including EOB
221 * characters.
223 int yy_n_chars;
225 /* Whether we "own" the buffer - i.e., we know we created it,
226 * and can realloc() it to grow it, and should free() it to
227 * delete it.
229 int yy_is_our_buffer;
231 /* Whether this is an "interactive" input source; if so, and
232 * if we're using stdio for input, then we want to use getc()
233 * instead of fread(), to make sure we stop fetching input after
234 * each newline.
236 int yy_is_interactive;
238 /* Whether we're considered to be at the beginning of a line.
239 * If so, '^' rules will be active on the next match, otherwise
240 * not.
242 int yy_at_bol;
244 int yy_bs_lineno; /**< The line count. */
245 int yy_bs_column; /**< The column count. */
247 /* Whether to try to fill the input buffer when we reach the
248 * end of it.
250 int yy_fill_buffer;
252 int yy_buffer_status;
254 #define YY_BUFFER_NEW 0
255 #define YY_BUFFER_NORMAL 1
256 /* When an EOF's been seen but there's still some text to process
257 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
258 * shouldn't try reading from the input source any more. We might
259 * still have a bunch of tokens to match, though, because of
260 * possible backing-up.
262 * When we actually see the EOF, we change the status to "new"
263 * (via cmDependsFortran_yyrestart()), so that the user can continue scanning by
264 * just pointing yyin at a new input file.
266 #define YY_BUFFER_EOF_PENDING 2
269 #endif /* !YY_STRUCT_YY_BUFFER_STATE */
271 /* We provide macros for accessing buffer states in case in the
272 * future we want to put the buffer states in a more general
273 * "scanner state".
275 * Returns the top of the stack, or NULL.
277 #define YY_CURRENT_BUFFER ( yyg->yy_buffer_stack \
278 ? yyg->yy_buffer_stack[yyg->yy_buffer_stack_top] \
279 : NULL)
281 /* Same as previous macro, but useful when we know that the buffer stack is not
282 * NULL or when we need an lvalue. For internal use only.
284 #define YY_CURRENT_BUFFER_LVALUE yyg->yy_buffer_stack[yyg->yy_buffer_stack_top]
286 void cmDependsFortran_yyrestart (FILE *input_file ,yyscan_t yyscanner );
287 void cmDependsFortran_yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ,yyscan_t yyscanner );
288 YY_BUFFER_STATE cmDependsFortran_yy_create_buffer (FILE *file,int size ,yyscan_t yyscanner );
289 void cmDependsFortran_yy_delete_buffer (YY_BUFFER_STATE b ,yyscan_t yyscanner );
290 void cmDependsFortran_yy_flush_buffer (YY_BUFFER_STATE b ,yyscan_t yyscanner );
291 void cmDependsFortran_yypush_buffer_state (YY_BUFFER_STATE new_buffer ,yyscan_t yyscanner );
292 void cmDependsFortran_yypop_buffer_state (yyscan_t yyscanner );
294 static void cmDependsFortran_yyensure_buffer_stack (yyscan_t yyscanner );
295 static void cmDependsFortran_yy_load_buffer_state (yyscan_t yyscanner );
296 static void cmDependsFortran_yy_init_buffer (YY_BUFFER_STATE b,FILE *file ,yyscan_t yyscanner );
298 #define YY_FLUSH_BUFFER cmDependsFortran_yy_flush_buffer(YY_CURRENT_BUFFER ,yyscanner)
300 YY_BUFFER_STATE cmDependsFortran_yy_scan_buffer (char *base,yy_size_t size ,yyscan_t yyscanner );
301 YY_BUFFER_STATE cmDependsFortran_yy_scan_string (yyconst char *yy_str ,yyscan_t yyscanner );
302 YY_BUFFER_STATE cmDependsFortran_yy_scan_bytes (yyconst char *bytes,int len ,yyscan_t yyscanner );
304 void *cmDependsFortran_yyalloc (yy_size_t ,yyscan_t yyscanner );
305 void *cmDependsFortran_yyrealloc (void *,yy_size_t ,yyscan_t yyscanner );
306 void cmDependsFortran_yyfree (void * ,yyscan_t yyscanner );
308 #define yy_new_buffer cmDependsFortran_yy_create_buffer
310 #define yy_set_interactive(is_interactive) \
312 if ( ! YY_CURRENT_BUFFER ){ \
313 cmDependsFortran_yyensure_buffer_stack (yyscanner); \
314 YY_CURRENT_BUFFER_LVALUE = \
315 cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner); \
317 YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
320 #define yy_set_bol(at_bol) \
322 if ( ! YY_CURRENT_BUFFER ){\
323 cmDependsFortran_yyensure_buffer_stack (yyscanner); \
324 YY_CURRENT_BUFFER_LVALUE = \
325 cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner); \
327 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
330 #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
332 /* Begin user sect3 */
334 #define cmDependsFortran_yywrap(n) 1
335 #define YY_SKIP_YYWRAP
337 typedef unsigned char YY_CHAR;
339 typedef int yy_state_type;
341 #define yytext_ptr yytext_r
343 static yy_state_type yy_get_previous_state (yyscan_t yyscanner );
344 static yy_state_type yy_try_NUL_trans (yy_state_type current_state ,yyscan_t yyscanner);
345 static int yy_get_next_buffer (yyscan_t yyscanner );
346 static void yy_fatal_error (yyconst char msg[] ,yyscan_t yyscanner );
348 /* Done after the current pattern has been matched and before the
349 * corresponding action - sets up yytext.
351 #define YY_DO_BEFORE_ACTION \
352 yyg->yytext_ptr = yy_bp; \
353 yyleng = (size_t) (yy_cp - yy_bp); \
354 yyg->yy_hold_char = *yy_cp; \
355 *yy_cp = '\0'; \
356 yyg->yy_c_buf_p = yy_cp;
358 #define YY_NUM_RULES 41
359 #define YY_END_OF_BUFFER 42
360 /* This struct is not used in this scanner,
361 but its presence is necessary. */
362 struct yy_trans_info
364 flex_int32_t yy_verify;
365 flex_int32_t yy_nxt;
367 static yyconst flex_int16_t yy_accept[155] =
368 { 0,
369 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
370 42, 36, 38, 37, 40, 1, 36, 36, 31, 2,
371 37, 34, 36, 35, 36, 35, 37, 36, 35, 9,
372 8, 9, 4, 3, 36, 0, 10, 0, 0, 0,
373 0, 0, 0, 0, 0, 0, 0, 31, 31, 32,
374 34, 36, 35, 0, 39, 35, 0, 36, 0, 11,
375 35, 0, 0, 5, 0, 0, 0, 21, 0, 0,
376 0, 0, 0, 0, 27, 0, 31, 31, 31, 31,
377 0, 0, 0, 0, 0, 6, 0, 0, 0, 0,
378 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
380 0, 0, 0, 0, 0, 0, 22, 23, 0, 0,
381 0, 0, 0, 0, 0, 28, 29, 0, 0, 0,
382 0, 0, 0, 0, 0, 24, 19, 0, 0, 17,
383 0, 18, 30, 25, 0, 0, 0, 0, 0, 15,
384 20, 0, 16, 26, 0, 0, 7, 33, 7, 12,
385 13, 0, 14, 0
388 static yyconst flex_int32_t yy_ec[256] =
389 { 0,
390 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
391 1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
392 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
393 1, 5, 6, 7, 8, 9, 1, 10, 11, 1,
394 1, 12, 1, 4, 1, 1, 1, 13, 13, 13,
395 13, 13, 13, 13, 13, 13, 13, 1, 14, 1,
396 15, 16, 17, 1, 18, 18, 19, 20, 21, 22,
397 18, 18, 23, 18, 18, 18, 18, 24, 18, 18,
398 18, 18, 18, 18, 25, 18, 18, 18, 18, 18,
399 1, 26, 1, 1, 27, 1, 18, 18, 28, 29,
401 30, 31, 18, 18, 32, 18, 18, 33, 18, 34,
402 18, 18, 18, 18, 35, 18, 36, 18, 18, 18,
403 18, 18, 1, 1, 1, 1, 1, 1, 1, 1,
404 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
405 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
406 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
407 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
408 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
409 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
410 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
412 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
413 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
414 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
415 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
416 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
417 1, 1, 1, 1, 1
420 static yyconst flex_int32_t yy_meta[37] =
421 { 0,
422 1, 2, 2, 3, 4, 3, 3, 1, 1, 3,
423 3, 1, 5, 3, 3, 1, 1, 6, 6, 6,
424 6, 6, 6, 6, 6, 1, 5, 6, 6, 6,
425 6, 6, 6, 6, 6, 6
428 static yyconst flex_int16_t yy_base[163] =
429 { 0,
430 0, 0, 0, 0, 276, 34, 37, 39, 48, 49,
431 277, 0, 356, 356, 273, 356, 62, 97, 63, 356,
432 356, 259, 257, 0, 36, 129, 267, 156, 183, 356,
433 266, 69, 356, 356, 0, 267, 356, 218, 239, 10,
434 26, 234, 253, 246, 242, 42, 46, 76, 98, 356,
435 356, 82, 0, 104, 356, 0, 260, 285, 261, 356,
436 0, 258, 108, 83, 231, 80, 232, 61, 232, 230,
437 235, 236, 84, 224, 89, 224, 129, 148, 219, 225,
438 131, 217, 244, 241, 138, 356, 213, 213, 213, 210,
439 211, 211, 206, 208, 214, 215, 203, 203, 200, 196,
441 152, 147, 151, 173, 172, 142, 356, 356, 144, 143,
442 141, 134, 136, 142, 140, 356, 356, 130, 129, 122,
443 113, 114, 139, 123, 96, 356, 356, 94, 95, 356,
444 100, 356, 356, 356, 89, 76, 53, 94, 0, 356,
445 356, 53, 356, 356, 40, 32, 356, 356, 356, 356,
446 356, 15, 356, 356, 312, 318, 323, 325, 331, 337,
447 343, 349
450 static yyconst flex_int16_t yy_def[163] =
451 { 0,
452 154, 1, 1, 1, 1, 1, 155, 155, 155, 155,
453 154, 156, 154, 154, 157, 154, 156, 156, 154, 154,
454 154, 154, 156, 158, 156, 158, 154, 159, 154, 154,
455 154, 154, 154, 154, 156, 157, 154, 154, 154, 154,
456 154, 154, 154, 154, 154, 154, 154, 154, 160, 154,
457 154, 156, 158, 154, 154, 26, 154, 159, 159, 154,
458 29, 154, 154, 154, 154, 154, 154, 154, 154, 154,
459 154, 154, 154, 154, 154, 154, 160, 160, 160, 160,
460 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
461 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
463 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
464 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
465 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
466 154, 154, 154, 154, 154, 154, 154, 161, 162, 154,
467 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
468 154, 154, 154, 0, 154, 154, 154, 154, 154, 154,
469 154, 154
472 static yyconst flex_int16_t yy_nxt[393] =
473 { 0,
474 12, 13, 14, 13, 13, 15, 16, 17, 18, 19,
475 20, 12, 12, 21, 22, 12, 23, 24, 24, 24,
476 24, 24, 24, 24, 24, 25, 26, 24, 24, 24,
477 24, 24, 24, 24, 24, 24, 27, 54, 55, 31,
478 54, 31, 66, 67, 153, 28, 32, 33, 32, 33,
479 31, 31, 29, 29, 34, 34, 68, 32, 32, 69,
480 152, 29, 29, 38, 48, 48, 38, 48, 49, 151,
481 63, 64, 50, 63, 73, 74, 75, 48, 48, 76,
482 48, 49, 150, 81, 85, 50, 81, 85, 146, 91,
483 39, 40, 86, 41, 92, 148, 148, 42, 43, 78,
485 48, 43, 78, 79, 145, 54, 55, 80, 54, 63,
486 64, 88, 63, 82, 89, 97, 44, 100, 98, 144,
487 143, 45, 101, 142, 141, 140, 46, 139, 47, 35,
488 78, 48, 81, 78, 79, 81, 35, 35, 80, 85,
489 35, 56, 85, 138, 35, 35, 137, 86, 136, 78,
490 48, 135, 78, 79, 35, 56, 58, 80, 60, 134,
491 133, 132, 82, 58, 58, 131, 130, 58, 58, 129,
492 128, 58, 58, 127, 126, 125, 124, 123, 122, 121,
493 120, 58, 58, 59, 59, 60, 59, 59, 59, 59,
494 59, 59, 59, 59, 59, 61, 59, 59, 59, 59,
496 61, 61, 61, 61, 61, 61, 61, 61, 59, 61,
497 61, 61, 61, 61, 61, 61, 61, 61, 61, 38,
498 78, 48, 38, 78, 79, 119, 78, 48, 80, 78,
499 79, 118, 117, 116, 80, 115, 114, 113, 112, 111,
500 110, 109, 108, 107, 106, 105, 39, 40, 104, 41,
501 103, 102, 99, 42, 43, 96, 95, 43, 94, 93,
502 90, 87, 84, 60, 83, 72, 71, 70, 65, 37,
503 62, 57, 44, 52, 51, 37, 154, 45, 27, 154,
504 154, 154, 46, 154, 47, 58, 154, 60, 154, 154,
505 154, 154, 58, 58, 154, 154, 58, 58, 154, 154,
507 58, 58, 154, 154, 154, 154, 154, 154, 154, 154,
508 58, 58, 30, 30, 30, 30, 30, 30, 35, 154,
509 154, 154, 35, 36, 36, 36, 36, 36, 36, 53,
510 53, 59, 59, 59, 59, 59, 59, 77, 77, 77,
511 77, 77, 77, 147, 147, 147, 154, 147, 147, 149,
512 154, 149, 154, 149, 149, 11, 154, 154, 154, 154,
513 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
514 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
515 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
516 154, 154
520 static yyconst flex_int16_t yy_chk[393] =
521 { 0,
522 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
523 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
524 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
525 1, 1, 1, 1, 1, 1, 6, 25, 25, 7,
526 25, 8, 40, 40, 152, 6, 7, 7, 8, 8,
527 9, 10, 6, 6, 9, 10, 41, 9, 10, 41,
528 146, 6, 6, 17, 19, 19, 17, 19, 19, 145,
529 32, 32, 19, 32, 46, 46, 47, 48, 48, 47,
530 48, 48, 142, 52, 64, 48, 52, 64, 137, 68,
531 17, 17, 64, 17, 68, 138, 138, 17, 18, 49,
533 49, 18, 49, 49, 136, 54, 54, 49, 54, 63,
534 63, 66, 63, 52, 66, 73, 18, 75, 73, 135,
535 131, 18, 75, 129, 128, 125, 18, 124, 18, 26,
536 77, 77, 81, 77, 77, 81, 26, 26, 77, 85,
537 26, 26, 85, 123, 26, 26, 122, 85, 121, 78,
538 78, 120, 78, 78, 26, 26, 28, 78, 28, 119,
539 118, 115, 81, 28, 28, 114, 113, 28, 28, 112,
540 111, 28, 28, 110, 109, 106, 105, 104, 103, 102,
541 101, 28, 28, 29, 29, 29, 29, 29, 29, 29,
542 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
544 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
545 29, 29, 29, 29, 29, 29, 29, 29, 29, 38,
546 79, 79, 38, 79, 79, 100, 80, 80, 79, 80,
547 80, 99, 98, 97, 80, 96, 95, 94, 93, 92,
548 91, 90, 89, 88, 87, 84, 38, 38, 83, 38,
549 82, 76, 74, 38, 43, 72, 71, 43, 70, 69,
550 67, 65, 62, 59, 57, 45, 44, 42, 39, 36,
551 31, 27, 43, 23, 22, 15, 11, 43, 5, 0,
552 0, 0, 43, 0, 43, 58, 0, 58, 0, 0,
553 0, 0, 58, 58, 0, 0, 58, 58, 0, 0,
555 58, 58, 0, 0, 0, 0, 0, 0, 0, 0,
556 58, 58, 155, 155, 155, 155, 155, 155, 156, 0,
557 0, 0, 156, 157, 157, 157, 157, 157, 157, 158,
558 158, 159, 159, 159, 159, 159, 159, 160, 160, 160,
559 160, 160, 160, 161, 161, 161, 0, 161, 161, 162,
560 0, 162, 0, 162, 162, 154, 154, 154, 154, 154,
561 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
562 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
563 154, 154, 154, 154, 154, 154, 154, 154, 154, 154,
564 154, 154
568 /* The intent behind this definition is that it'll catch
569 * any uses of REJECT which flex missed.
571 #define REJECT reject_used_but_not_detected
572 #define yymore() yymore_used_but_not_detected
573 #define YY_MORE_ADJ 0
574 #define YY_RESTORE_YY_MORE_OFFSET
575 #line 1 "cmDependsFortranLexer.in.l"
576 #line 2 "cmDependsFortranLexer.in.l"
577 /*=========================================================================
579 Program: CMake - Cross-Platform Makefile Generator
580 Module: $RCSfile: cmDependsFortranLexer.cxx,v $
581 Language: C++
582 Date: $Date: 2007/10/03 19:41:39 $
583 Version: $Revision: 1.10 $
585 Copyright (c) 2002 Kitware, Inc., Insight Consortium. All rights reserved.
586 See Copyright.txt or http://www.cmake.org/HTML/Copyright.html for details.
588 This software is distributed WITHOUT ANY WARRANTY; without even
589 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
590 PURPOSE. See the above copyright notices for more information.
592 =========================================================================*/
593 /*-------------------------------------------------------------------------
594 Portions of this source have been derived from makefdep90 version 2.8.8,
596 Copyright (C) 2000,2001 Erik Edelmann <eedelman@beam.helsinki.fi>.
598 The code was originally distributed under the GPL but permission
599 from the copyright holder has been obtained to distribute this
600 derived work under the CMake license.
601 -------------------------------------------------------------------------*/
605 This file must be translated to C and modified to build everywhere.
607 Run flex like this:
609 flex -i --prefix=cmDependsFortran_yy --header-file=cmDependsFortranLexer.h -ocmDependsFortranLexer.cxx cmDependsFortranLexer.in.l
611 Modify cmDependsFortranLexer.cxx:
612 - remove TABs
613 - remove "yyscanner" argument from these methods:
614 yy_fatal_error, cmDependsFortran_yyalloc, cmDependsFortran_yyrealloc, cmDependsFortran_yyfree
615 - remove all YY_BREAK lines occurring right after return statements
616 - change while ( 1 ) to for(;;)
618 Modify cmDependsFortranLexer.h:
619 - remove TABs
620 - remove the yy_init_globals function
621 - remove the block that includes unistd.h
622 - remove #line directives (avoids bogus warning on old Sun)
626 #include "cmStandardLexer.h"
628 #define cmDependsFortranLexer_cxx
629 #include "cmDependsFortranParser.h" /* Interface to parser object. */
631 /* Replace the lexer input function. */
632 #undef YY_INPUT
633 #define YY_INPUT(buf, result, max_size) \
634 { result = cmDependsFortranParser_Input(yyextra, buf, max_size); }
636 /* Include the set of tokens from the parser. */
637 #include "cmDependsFortranParserTokens.h"
639 /*--------------------------------------------------------------------------*/
642 #line 643 "cmDependsFortranLexer.cxx"
644 #define INITIAL 0
645 #define free_fmt 1
646 #define fixed_fmt 2
647 #define str_sq 3
648 #define str_dq 4
650 #ifndef YY_NO_UNISTD_H
651 /* Special case for "unistd.h", since it is non-ANSI. We include it way
652 * down here because we want the user's section 1 to have been scanned first.
653 * The user has a chance to override it with an option.
655 #include <unistd.h>
656 #endif
658 #ifndef YY_EXTRA_TYPE
659 #define YY_EXTRA_TYPE void *
660 #endif
662 /* Holds the entire state of the reentrant scanner. */
663 struct yyguts_t
666 /* User-defined. Not touched by flex. */
667 YY_EXTRA_TYPE yyextra_r;
669 /* The rest are the same as the globals declared in the non-reentrant scanner. */
670 FILE *yyin_r, *yyout_r;
671 size_t yy_buffer_stack_top; /**< index of top of stack. */
672 size_t yy_buffer_stack_max; /**< capacity of stack. */
673 YY_BUFFER_STATE * yy_buffer_stack; /**< Stack as an array. */
674 char yy_hold_char;
675 int yy_n_chars;
676 int yyleng_r;
677 char *yy_c_buf_p;
678 int yy_init;
679 int yy_start;
680 int yy_did_buffer_switch_on_eof;
681 int yy_start_stack_ptr;
682 int yy_start_stack_depth;
683 int *yy_start_stack;
684 yy_state_type yy_last_accepting_state;
685 char* yy_last_accepting_cpos;
687 int yylineno_r;
688 int yy_flex_debug_r;
690 char *yytext_r;
691 int yy_more_flag;
692 int yy_more_len;
694 }; /* end struct yyguts_t */
696 static int yy_init_globals (yyscan_t yyscanner );
698 /* Accessor methods to globals.
699 These are made visible to non-reentrant scanners for convenience. */
701 int cmDependsFortran_yylex_destroy (yyscan_t yyscanner );
703 int cmDependsFortran_yyget_debug (yyscan_t yyscanner );
705 void cmDependsFortran_yyset_debug (int debug_flag ,yyscan_t yyscanner );
707 YY_EXTRA_TYPE cmDependsFortran_yyget_extra (yyscan_t yyscanner );
709 void cmDependsFortran_yyset_extra (YY_EXTRA_TYPE user_defined ,yyscan_t yyscanner );
711 FILE *cmDependsFortran_yyget_in (yyscan_t yyscanner );
713 void cmDependsFortran_yyset_in (FILE * in_str ,yyscan_t yyscanner );
715 FILE *cmDependsFortran_yyget_out (yyscan_t yyscanner );
717 void cmDependsFortran_yyset_out (FILE * out_str ,yyscan_t yyscanner );
719 int cmDependsFortran_yyget_leng (yyscan_t yyscanner );
721 char *cmDependsFortran_yyget_text (yyscan_t yyscanner );
723 int cmDependsFortran_yyget_lineno (yyscan_t yyscanner );
725 void cmDependsFortran_yyset_lineno (int line_number ,yyscan_t yyscanner );
727 /* Macros after this point can all be overridden by user definitions in
728 * section 1.
731 #ifndef YY_SKIP_YYWRAP
732 #ifdef __cplusplus
733 extern "C" int cmDependsFortran_yywrap (yyscan_t yyscanner );
734 #else
735 extern int cmDependsFortran_yywrap (yyscan_t yyscanner );
736 #endif
737 #endif
739 static void yyunput (int c,char *buf_ptr ,yyscan_t yyscanner);
741 #ifndef yytext_ptr
742 static void yy_flex_strncpy (char *,yyconst char *,int ,yyscan_t yyscanner);
743 #endif
745 #ifdef YY_NEED_STRLEN
746 static int yy_flex_strlen (yyconst char * ,yyscan_t yyscanner);
747 #endif
749 #ifndef YY_NO_INPUT
751 #ifdef __cplusplus
752 static int yyinput (yyscan_t yyscanner );
753 #else
754 static int input (yyscan_t yyscanner );
755 #endif
757 #endif
759 /* Amount of stuff to slurp up with each read. */
760 #ifndef YY_READ_BUF_SIZE
761 #define YY_READ_BUF_SIZE 8192
762 #endif
764 /* Copy whatever the last rule matched to the standard output. */
765 #ifndef ECHO
766 /* This used to be an fputs(), but since the string might contain NUL's,
767 * we now use fwrite().
769 #define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
770 #endif
772 /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
773 * is returned in "result".
775 #ifndef YY_INPUT
776 #define YY_INPUT(buf,result,max_size) \
777 if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
779 int c = '*'; \
780 size_t n; \
781 for ( n = 0; n < max_size && \
782 (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
783 buf[n] = (char) c; \
784 if ( c == '\n' ) \
785 buf[n++] = (char) c; \
786 if ( c == EOF && ferror( yyin ) ) \
787 YY_FATAL_ERROR( "input in flex scanner failed" ); \
788 result = n; \
790 else \
792 errno=0; \
793 while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
795 if( errno != EINTR) \
797 YY_FATAL_ERROR( "input in flex scanner failed" ); \
798 break; \
800 errno=0; \
801 clearerr(yyin); \
806 #endif
808 /* No semi-colon after return; correct usage is to write "yyterminate();" -
809 * we don't want an extra ';' after the "return" because that will cause
810 * some compilers to complain about unreachable statements.
812 #ifndef yyterminate
813 #define yyterminate() return YY_NULL
814 #endif
816 /* Number of entries by which start-condition stack grows. */
817 #ifndef YY_START_STACK_INCR
818 #define YY_START_STACK_INCR 25
819 #endif
821 /* Report a fatal error. */
822 #ifndef YY_FATAL_ERROR
823 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg , yyscanner)
824 #endif
826 /* end tables serialization structures and prototypes */
828 /* Default declaration of generated scanner - a define so the user can
829 * easily add parameters.
831 #ifndef YY_DECL
832 #define YY_DECL_IS_OURS 1
834 extern int cmDependsFortran_yylex (yyscan_t yyscanner);
836 #define YY_DECL int cmDependsFortran_yylex (yyscan_t yyscanner)
837 #endif /* !YY_DECL */
839 /* Code executed at the beginning of each rule, after yytext and yyleng
840 * have been set up.
842 #ifndef YY_USER_ACTION
843 #define YY_USER_ACTION
844 #endif
846 /* Code executed at the end of each rule. */
847 #ifndef YY_BREAK
848 #define YY_BREAK break;
849 #endif
851 #define YY_RULE_SETUP \
852 if ( yyleng > 0 ) \
853 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
854 (yytext[yyleng - 1] == '\n'); \
855 YY_USER_ACTION
857 /** The main scanner function which does all the work.
859 YY_DECL
861 register yy_state_type yy_current_state;
862 register char *yy_cp, *yy_bp;
863 register int yy_act;
864 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
866 #line 75 "cmDependsFortranLexer.in.l"
869 #line 870 "cmDependsFortranLexer.cxx"
871 if ( !yyg->yy_init )
873 yyg->yy_init = 1;
875 #ifdef YY_USER_INIT
876 YY_USER_INIT;
877 #endif
879 if ( ! yyg->yy_start )
880 yyg->yy_start = 1; /* first start state */
882 if ( ! yyin )
883 yyin = stdin;
885 if ( ! yyout )
886 yyout = stdout;
888 if ( ! YY_CURRENT_BUFFER ) {
889 cmDependsFortran_yyensure_buffer_stack (yyscanner);
890 YY_CURRENT_BUFFER_LVALUE =
891 cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner);
894 cmDependsFortran_yy_load_buffer_state(yyscanner );
897 for(;;) /* loops until end-of-file is reached */
899 yy_cp = yyg->yy_c_buf_p;
901 /* Support of yytext. */
902 *yy_cp = yyg->yy_hold_char;
904 /* yy_bp points to the position in yy_ch_buf of the start of
905 * the current run.
907 yy_bp = yy_cp;
909 yy_current_state = yyg->yy_start;
910 yy_current_state += YY_AT_BOL();
911 yy_match:
914 register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
915 if ( yy_accept[yy_current_state] )
917 yyg->yy_last_accepting_state = yy_current_state;
918 yyg->yy_last_accepting_cpos = yy_cp;
920 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
922 yy_current_state = (int) yy_def[yy_current_state];
923 if ( yy_current_state >= 155 )
924 yy_c = yy_meta[(unsigned int) yy_c];
926 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
927 ++yy_cp;
929 while ( yy_base[yy_current_state] != 356 );
931 yy_find_action:
932 yy_act = yy_accept[yy_current_state];
933 if ( yy_act == 0 )
934 { /* have to back up */
935 yy_cp = yyg->yy_last_accepting_cpos;
936 yy_current_state = yyg->yy_last_accepting_state;
937 yy_act = yy_accept[yy_current_state];
940 YY_DO_BEFORE_ACTION;
942 do_action: /* This label is used only to access EOF actions. */
944 switch ( yy_act )
945 { /* beginning of action switch */
946 case 0: /* must back up */
947 /* undo the effects of YY_DO_BEFORE_ACTION */
948 *yy_cp = yyg->yy_hold_char;
949 yy_cp = yyg->yy_last_accepting_cpos;
950 yy_current_state = yyg->yy_last_accepting_state;
951 goto yy_find_action;
953 case 1:
954 YY_RULE_SETUP
955 #line 77 "cmDependsFortranLexer.in.l"
957 cmDependsFortranParser_StringStart(yyextra);
958 cmDependsFortranParser_SetOldStartcond(yyextra, YY_START);
959 BEGIN(str_dq);
961 YY_BREAK
962 case 2:
963 YY_RULE_SETUP
964 #line 83 "cmDependsFortranLexer.in.l"
966 cmDependsFortranParser_StringStart(yyextra);
967 cmDependsFortranParser_SetOldStartcond(yyextra, YY_START);
968 BEGIN(str_sq);
970 YY_BREAK
971 case 3:
972 #line 90 "cmDependsFortranLexer.in.l"
973 case 4:
974 YY_RULE_SETUP
975 #line 90 "cmDependsFortranLexer.in.l"
977 BEGIN(cmDependsFortranParser_GetOldStartcond(yyextra) );
978 yylvalp->string = strdup(cmDependsFortranParser_StringEnd(yyextra));
979 return STRING;
981 case 5:
982 /* rule 5 can match eol */
983 #line 97 "cmDependsFortranLexer.in.l"
984 case 6:
985 /* rule 6 can match eol */
986 YY_RULE_SETUP
987 #line 97 "cmDependsFortranLexer.in.l"
988 /* Ignore (continued strings, free fmt) */
989 YY_BREAK
990 case 7:
991 /* rule 7 can match eol */
992 YY_RULE_SETUP
993 #line 99 "cmDependsFortranLexer.in.l"
995 if (cmDependsFortranParser_GetOldStartcond(yyextra) == fixed_fmt)
996 ; /* Ignore (cont. strings, fixed fmt) */
997 else
999 unput(yytext[strlen(yytext)-1]);
1002 YY_BREAK
1003 case 8:
1004 /* rule 8 can match eol */
1005 YY_RULE_SETUP
1006 #line 109 "cmDependsFortranLexer.in.l"
1008 unput ('\n');
1009 BEGIN(INITIAL);
1010 return UNTERMINATED_STRING;
1012 case 9:
1013 YY_RULE_SETUP
1014 #line 115 "cmDependsFortranLexer.in.l"
1016 cmDependsFortranParser_StringAppend(yyextra, yytext[0]);
1018 YY_BREAK
1019 case 10:
1020 /* rule 10 can match eol */
1021 YY_RULE_SETUP
1022 #line 119 "cmDependsFortranLexer.in.l"
1023 { return EOSTMT; } /* Treat comments like */
1024 case 11:
1025 /* rule 11 can match eol */
1026 YY_RULE_SETUP
1027 #line 120 "cmDependsFortranLexer.in.l"
1028 { return EOSTMT; } /* empty lines */
1029 case 12:
1030 YY_RULE_SETUP
1031 #line 122 "cmDependsFortranLexer.in.l"
1032 { return CPP_INCLUDE; }
1033 case 13:
1034 YY_RULE_SETUP
1035 #line 123 "cmDependsFortranLexer.in.l"
1036 { return F90PPR_INCLUDE; }
1037 case 14:
1038 YY_RULE_SETUP
1039 #line 124 "cmDependsFortranLexer.in.l"
1040 { return COCO_INCLUDE; }
1041 case 15:
1042 YY_RULE_SETUP
1043 #line 126 "cmDependsFortranLexer.in.l"
1044 { return CPP_DEFINE; }
1045 case 16:
1046 YY_RULE_SETUP
1047 #line 127 "cmDependsFortranLexer.in.l"
1048 { return F90PPR_DEFINE; }
1049 case 17:
1050 YY_RULE_SETUP
1051 #line 129 "cmDependsFortranLexer.in.l"
1052 { return CPP_UNDEF; }
1053 case 18:
1054 YY_RULE_SETUP
1055 #line 130 "cmDependsFortranLexer.in.l"
1056 { return F90PPR_UNDEF; }
1057 case 19:
1058 YY_RULE_SETUP
1059 #line 132 "cmDependsFortranLexer.in.l"
1060 { return CPP_IFDEF; }
1061 case 20:
1062 YY_RULE_SETUP
1063 #line 133 "cmDependsFortranLexer.in.l"
1064 { return CPP_IFNDEF; }
1065 case 21:
1066 YY_RULE_SETUP
1067 #line 134 "cmDependsFortranLexer.in.l"
1068 { return CPP_IF; }
1069 case 22:
1070 YY_RULE_SETUP
1071 #line 135 "cmDependsFortranLexer.in.l"
1072 { return CPP_ELIF; }
1073 case 23:
1074 YY_RULE_SETUP
1075 #line 136 "cmDependsFortranLexer.in.l"
1076 { return CPP_ELSE; }
1077 case 24:
1078 YY_RULE_SETUP
1079 #line 137 "cmDependsFortranLexer.in.l"
1080 { return CPP_ENDIF; }
1081 case 25:
1082 YY_RULE_SETUP
1083 #line 139 "cmDependsFortranLexer.in.l"
1084 { return F90PPR_IFDEF; }
1085 case 26:
1086 YY_RULE_SETUP
1087 #line 140 "cmDependsFortranLexer.in.l"
1088 { return F90PPR_IFNDEF; }
1089 case 27:
1090 YY_RULE_SETUP
1091 #line 141 "cmDependsFortranLexer.in.l"
1092 { return F90PPR_IF; }
1093 case 28:
1094 YY_RULE_SETUP
1095 #line 142 "cmDependsFortranLexer.in.l"
1096 { return F90PPR_ELIF; }
1097 case 29:
1098 YY_RULE_SETUP
1099 #line 143 "cmDependsFortranLexer.in.l"
1100 { return F90PPR_ELSE; }
1101 case 30:
1102 YY_RULE_SETUP
1103 #line 144 "cmDependsFortranLexer.in.l"
1104 { return F90PPR_ENDIF; }
1105 /* Line continuations, possible involving comments. */
1106 case 31:
1107 /* rule 31 can match eol */
1108 YY_RULE_SETUP
1109 #line 147 "cmDependsFortranLexer.in.l"
1111 YY_BREAK
1112 case 32:
1113 /* rule 32 can match eol */
1114 YY_RULE_SETUP
1115 #line 148 "cmDependsFortranLexer.in.l"
1117 YY_BREAK
1118 case 33:
1119 /* rule 33 can match eol */
1120 YY_RULE_SETUP
1121 #line 150 "cmDependsFortranLexer.in.l"
1122 { return GARBAGE; }
1123 case 34:
1124 YY_RULE_SETUP
1125 #line 152 "cmDependsFortranLexer.in.l"
1126 { return ASSIGNMENT_OP; }
1127 case 35:
1128 YY_RULE_SETUP
1129 #line 154 "cmDependsFortranLexer.in.l"
1131 yylvalp->string = strdup(yytext);
1132 return WORD;
1134 case 36:
1135 YY_RULE_SETUP
1136 #line 159 "cmDependsFortranLexer.in.l"
1137 { return GARBAGE; }
1138 case 37:
1139 /* rule 37 can match eol */
1140 YY_RULE_SETUP
1141 #line 161 "cmDependsFortranLexer.in.l"
1142 { return EOSTMT; }
1143 case 38:
1144 YY_RULE_SETUP
1145 #line 164 "cmDependsFortranLexer.in.l"
1146 /* Ignore */
1147 YY_BREAK
1148 case 39:
1149 /* rule 39 can match eol */
1150 YY_RULE_SETUP
1151 #line 165 "cmDependsFortranLexer.in.l"
1152 /* Ignore line-endings preceeded by \ */
1153 YY_BREAK
1154 case 40:
1155 YY_RULE_SETUP
1156 #line 167 "cmDependsFortranLexer.in.l"
1157 { return *yytext; }
1158 case YY_STATE_EOF(INITIAL):
1159 case YY_STATE_EOF(free_fmt):
1160 case YY_STATE_EOF(fixed_fmt):
1161 case YY_STATE_EOF(str_sq):
1162 case YY_STATE_EOF(str_dq):
1163 #line 169 "cmDependsFortranLexer.in.l"
1165 if(!cmDependsFortranParser_FilePop(yyextra) )
1167 return YY_NULL;
1170 YY_BREAK
1171 case 41:
1172 YY_RULE_SETUP
1173 #line 176 "cmDependsFortranLexer.in.l"
1174 ECHO;
1175 YY_BREAK
1176 #line 1206 "cmDependsFortranLexer.cxx"
1178 case YY_END_OF_BUFFER:
1180 /* Amount of text matched not including the EOB char. */
1181 int yy_amount_of_matched_text = (int) (yy_cp - yyg->yytext_ptr) - 1;
1183 /* Undo the effects of YY_DO_BEFORE_ACTION. */
1184 *yy_cp = yyg->yy_hold_char;
1185 YY_RESTORE_YY_MORE_OFFSET
1187 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
1189 /* We're scanning a new file or input source. It's
1190 * possible that this happened because the user
1191 * just pointed yyin at a new source and called
1192 * cmDependsFortran_yylex(). If so, then we have to assure
1193 * consistency between YY_CURRENT_BUFFER and our
1194 * globals. Here is the right place to do so, because
1195 * this is the first action (other than possibly a
1196 * back-up) that will match for the new input source.
1198 yyg->yy_n_chars = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
1199 YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
1200 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
1203 /* Note that here we test for yy_c_buf_p "<=" to the position
1204 * of the first EOB in the buffer, since yy_c_buf_p will
1205 * already have been incremented past the NUL character
1206 * (since all states make transitions on EOB to the
1207 * end-of-buffer state). Contrast this with the test
1208 * in input().
1210 if ( yyg->yy_c_buf_p <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars] )
1211 { /* This was really a NUL. */
1212 yy_state_type yy_next_state;
1214 yyg->yy_c_buf_p = yyg->yytext_ptr + yy_amount_of_matched_text;
1216 yy_current_state = yy_get_previous_state( yyscanner );
1218 /* Okay, we're now positioned to make the NUL
1219 * transition. We couldn't have
1220 * yy_get_previous_state() go ahead and do it
1221 * for us because it doesn't know how to deal
1222 * with the possibility of jamming (and we don't
1223 * want to build jamming into it because then it
1224 * will run more slowly).
1227 yy_next_state = yy_try_NUL_trans( yy_current_state , yyscanner);
1229 yy_bp = yyg->yytext_ptr + YY_MORE_ADJ;
1231 if ( yy_next_state )
1233 /* Consume the NUL. */
1234 yy_cp = ++yyg->yy_c_buf_p;
1235 yy_current_state = yy_next_state;
1236 goto yy_match;
1239 else
1241 yy_cp = yyg->yy_c_buf_p;
1242 goto yy_find_action;
1246 else switch ( yy_get_next_buffer( yyscanner ) )
1248 case EOB_ACT_END_OF_FILE:
1250 yyg->yy_did_buffer_switch_on_eof = 0;
1252 if ( cmDependsFortran_yywrap(yyscanner ) )
1254 /* Note: because we've taken care in
1255 * yy_get_next_buffer() to have set up
1256 * yytext, we can now set up
1257 * yy_c_buf_p so that if some total
1258 * hoser (like flex itself) wants to
1259 * call the scanner after we return the
1260 * YY_NULL, it'll still work - another
1261 * YY_NULL will get returned.
1263 yyg->yy_c_buf_p = yyg->yytext_ptr + YY_MORE_ADJ;
1265 yy_act = YY_STATE_EOF(YY_START);
1266 goto do_action;
1269 else
1271 if ( ! yyg->yy_did_buffer_switch_on_eof )
1272 YY_NEW_FILE;
1274 break;
1277 case EOB_ACT_CONTINUE_SCAN:
1278 yyg->yy_c_buf_p =
1279 yyg->yytext_ptr + yy_amount_of_matched_text;
1281 yy_current_state = yy_get_previous_state( yyscanner );
1283 yy_cp = yyg->yy_c_buf_p;
1284 yy_bp = yyg->yytext_ptr + YY_MORE_ADJ;
1285 goto yy_match;
1287 case EOB_ACT_LAST_MATCH:
1288 yyg->yy_c_buf_p =
1289 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars];
1291 yy_current_state = yy_get_previous_state( yyscanner );
1293 yy_cp = yyg->yy_c_buf_p;
1294 yy_bp = yyg->yytext_ptr + YY_MORE_ADJ;
1295 goto yy_find_action;
1297 break;
1300 default:
1301 YY_FATAL_ERROR(
1302 "fatal flex scanner internal error--no action found" );
1303 } /* end of action switch */
1304 } /* end of scanning one token */
1305 } /* end of cmDependsFortran_yylex */
1307 /* yy_get_next_buffer - try to read in a new buffer
1309 * Returns a code representing an action:
1310 * EOB_ACT_LAST_MATCH -
1311 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
1312 * EOB_ACT_END_OF_FILE - end of file
1314 static int yy_get_next_buffer (yyscan_t yyscanner)
1316 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1317 register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
1318 register char *source = yyg->yytext_ptr;
1319 register int number_to_move, i;
1320 int ret_val;
1322 if ( yyg->yy_c_buf_p > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars + 1] )
1323 YY_FATAL_ERROR(
1324 "fatal flex scanner internal error--end of buffer missed" );
1326 if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
1327 { /* Don't try to fill the buffer, so this is an EOF. */
1328 if ( yyg->yy_c_buf_p - yyg->yytext_ptr - YY_MORE_ADJ == 1 )
1330 /* We matched a single character, the EOB, so
1331 * treat this as a final EOF.
1333 return EOB_ACT_END_OF_FILE;
1336 else
1338 /* We matched some text prior to the EOB, first
1339 * process it.
1341 return EOB_ACT_LAST_MATCH;
1345 /* Try to read more data. */
1347 /* First move last chars to start of buffer. */
1348 number_to_move = (int) (yyg->yy_c_buf_p - yyg->yytext_ptr) - 1;
1350 for ( i = 0; i < number_to_move; ++i )
1351 *(dest++) = *(source++);
1353 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
1354 /* don't do the read, it's not guaranteed to return an EOF,
1355 * just force an EOF
1357 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars = 0;
1359 else
1361 int num_to_read =
1362 YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
1364 while ( num_to_read <= 0 )
1365 { /* Not enough room in the buffer - grow it. */
1367 /* just a shorter name for the current buffer */
1368 YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
1370 int yy_c_buf_p_offset =
1371 (int) (yyg->yy_c_buf_p - b->yy_ch_buf);
1373 if ( b->yy_is_our_buffer )
1375 int new_size = b->yy_buf_size * 2;
1377 if ( new_size <= 0 )
1378 b->yy_buf_size += b->yy_buf_size / 8;
1379 else
1380 b->yy_buf_size *= 2;
1382 b->yy_ch_buf = (char *)
1383 /* Include room in for 2 EOB chars. */
1384 cmDependsFortran_yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 ,yyscanner );
1386 else
1387 /* Can't grow it, we don't own it. */
1388 b->yy_ch_buf = 0;
1390 if ( ! b->yy_ch_buf )
1391 YY_FATAL_ERROR(
1392 "fatal error - scanner input buffer overflow" );
1394 yyg->yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
1396 num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
1397 number_to_move - 1;
1401 if ( num_to_read > YY_READ_BUF_SIZE )
1402 num_to_read = YY_READ_BUF_SIZE;
1404 /* Read in more data. */
1405 YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
1406 yyg->yy_n_chars, (size_t) num_to_read );
1408 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars;
1411 if ( yyg->yy_n_chars == 0 )
1413 if ( number_to_move == YY_MORE_ADJ )
1415 ret_val = EOB_ACT_END_OF_FILE;
1416 cmDependsFortran_yyrestart(yyin ,yyscanner);
1419 else
1421 ret_val = EOB_ACT_LAST_MATCH;
1422 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
1423 YY_BUFFER_EOF_PENDING;
1427 else
1428 ret_val = EOB_ACT_CONTINUE_SCAN;
1430 yyg->yy_n_chars += number_to_move;
1431 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars] = YY_END_OF_BUFFER_CHAR;
1432 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
1434 yyg->yytext_ptr = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
1436 return ret_val;
1439 /* yy_get_previous_state - get the state just before the EOB char was reached */
1441 static yy_state_type yy_get_previous_state (yyscan_t yyscanner)
1443 register yy_state_type yy_current_state;
1444 register char *yy_cp;
1445 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1447 yy_current_state = yyg->yy_start;
1448 yy_current_state += YY_AT_BOL();
1450 for ( yy_cp = yyg->yytext_ptr + YY_MORE_ADJ; yy_cp < yyg->yy_c_buf_p; ++yy_cp )
1452 register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
1453 if ( yy_accept[yy_current_state] )
1455 yyg->yy_last_accepting_state = yy_current_state;
1456 yyg->yy_last_accepting_cpos = yy_cp;
1458 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1460 yy_current_state = (int) yy_def[yy_current_state];
1461 if ( yy_current_state >= 155 )
1462 yy_c = yy_meta[(unsigned int) yy_c];
1464 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1467 return yy_current_state;
1470 /* yy_try_NUL_trans - try to make a transition on the NUL character
1472 * synopsis
1473 * next_state = yy_try_NUL_trans( current_state );
1475 static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state , yyscan_t yyscanner)
1477 register int yy_is_jam;
1478 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner; /* This var may be unused depending upon options. */
1479 register char *yy_cp = yyg->yy_c_buf_p;
1481 register YY_CHAR yy_c = 1;
1482 if ( yy_accept[yy_current_state] )
1484 yyg->yy_last_accepting_state = yy_current_state;
1485 yyg->yy_last_accepting_cpos = yy_cp;
1487 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1489 yy_current_state = (int) yy_def[yy_current_state];
1490 if ( yy_current_state >= 155 )
1491 yy_c = yy_meta[(unsigned int) yy_c];
1493 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1494 yy_is_jam = (yy_current_state == 154);
1496 return yy_is_jam ? 0 : yy_current_state;
1499 static void yyunput (int c, register char * yy_bp , yyscan_t yyscanner)
1501 register char *yy_cp;
1502 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1504 yy_cp = yyg->yy_c_buf_p;
1506 /* undo effects of setting up yytext */
1507 *yy_cp = yyg->yy_hold_char;
1509 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
1510 { /* need to shift things up to make room */
1511 /* +2 for EOB chars. */
1512 register int number_to_move = yyg->yy_n_chars + 2;
1513 register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
1514 YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
1515 register char *source =
1516 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
1518 while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
1519 *--dest = *--source;
1521 yy_cp += (int) (dest - source);
1522 yy_bp += (int) (dest - source);
1523 YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
1524 yyg->yy_n_chars = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
1526 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
1527 YY_FATAL_ERROR( "flex scanner push-back overflow" );
1530 *--yy_cp = (char) c;
1532 yyg->yytext_ptr = yy_bp;
1533 yyg->yy_hold_char = *yy_cp;
1534 yyg->yy_c_buf_p = yy_cp;
1537 #ifndef YY_NO_INPUT
1538 #ifdef __cplusplus
1539 static int yyinput (yyscan_t yyscanner)
1540 #else
1541 static int input (yyscan_t yyscanner)
1542 #endif
1545 int c;
1546 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1548 *yyg->yy_c_buf_p = yyg->yy_hold_char;
1550 if ( *yyg->yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
1552 /* yy_c_buf_p now points to the character we want to return.
1553 * If this occurs *before* the EOB characters, then it's a
1554 * valid NUL; if not, then we've hit the end of the buffer.
1556 if ( yyg->yy_c_buf_p < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars] )
1557 /* This was really a NUL. */
1558 *yyg->yy_c_buf_p = '\0';
1560 else
1561 { /* need more input */
1562 int offset = yyg->yy_c_buf_p - yyg->yytext_ptr;
1563 ++yyg->yy_c_buf_p;
1565 switch ( yy_get_next_buffer( yyscanner ) )
1567 case EOB_ACT_LAST_MATCH:
1568 /* This happens because yy_g_n_b()
1569 * sees that we've accumulated a
1570 * token and flags that we need to
1571 * try matching the token before
1572 * proceeding. But for input(),
1573 * there's no matching to consider.
1574 * So convert the EOB_ACT_LAST_MATCH
1575 * to EOB_ACT_END_OF_FILE.
1578 /* Reset buffer status. */
1579 cmDependsFortran_yyrestart(yyin ,yyscanner);
1581 /*FALLTHROUGH*/
1583 case EOB_ACT_END_OF_FILE:
1585 if ( cmDependsFortran_yywrap(yyscanner ) )
1586 return EOF;
1588 if ( ! yyg->yy_did_buffer_switch_on_eof )
1589 YY_NEW_FILE;
1590 #ifdef __cplusplus
1591 return yyinput(yyscanner);
1592 #else
1593 return input(yyscanner);
1594 #endif
1597 case EOB_ACT_CONTINUE_SCAN:
1598 yyg->yy_c_buf_p = yyg->yytext_ptr + offset;
1599 break;
1604 c = *(unsigned char *) yyg->yy_c_buf_p; /* cast for 8-bit char's */
1605 *yyg->yy_c_buf_p = '\0'; /* preserve yytext */
1606 yyg->yy_hold_char = *++yyg->yy_c_buf_p;
1608 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
1610 return c;
1612 #endif /* ifndef YY_NO_INPUT */
1614 /** Immediately switch to a different input stream.
1615 * @param input_file A readable stream.
1616 * @param yyscanner The scanner object.
1617 * @note This function does not reset the start condition to @c INITIAL .
1619 void cmDependsFortran_yyrestart (FILE * input_file , yyscan_t yyscanner)
1621 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1623 if ( ! YY_CURRENT_BUFFER ){
1624 cmDependsFortran_yyensure_buffer_stack (yyscanner);
1625 YY_CURRENT_BUFFER_LVALUE =
1626 cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner);
1629 cmDependsFortran_yy_init_buffer(YY_CURRENT_BUFFER,input_file ,yyscanner);
1630 cmDependsFortran_yy_load_buffer_state(yyscanner );
1633 /** Switch to a different input buffer.
1634 * @param new_buffer The new input buffer.
1635 * @param yyscanner The scanner object.
1637 void cmDependsFortran_yy_switch_to_buffer (YY_BUFFER_STATE new_buffer , yyscan_t yyscanner)
1639 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1641 /* TODO. We should be able to replace this entire function body
1642 * with
1643 * cmDependsFortran_yypop_buffer_state();
1644 * cmDependsFortran_yypush_buffer_state(new_buffer);
1646 cmDependsFortran_yyensure_buffer_stack (yyscanner);
1647 if ( YY_CURRENT_BUFFER == new_buffer )
1648 return;
1650 if ( YY_CURRENT_BUFFER )
1652 /* Flush out information for old buffer. */
1653 *yyg->yy_c_buf_p = yyg->yy_hold_char;
1654 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = yyg->yy_c_buf_p;
1655 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars;
1658 YY_CURRENT_BUFFER_LVALUE = new_buffer;
1659 cmDependsFortran_yy_load_buffer_state(yyscanner );
1661 /* We don't actually know whether we did this switch during
1662 * EOF (cmDependsFortran_yywrap()) processing, but the only time this flag
1663 * is looked at is after cmDependsFortran_yywrap() is called, so it's safe
1664 * to go ahead and always set it.
1666 yyg->yy_did_buffer_switch_on_eof = 1;
1669 static void cmDependsFortran_yy_load_buffer_state (yyscan_t yyscanner)
1671 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1672 yyg->yy_n_chars = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
1673 yyg->yytext_ptr = yyg->yy_c_buf_p = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
1674 yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
1675 yyg->yy_hold_char = *yyg->yy_c_buf_p;
1678 /** Allocate and initialize an input buffer state.
1679 * @param file A readable stream.
1680 * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
1681 * @param yyscanner The scanner object.
1682 * @return the allocated buffer state.
1684 YY_BUFFER_STATE cmDependsFortran_yy_create_buffer (FILE * file, int size , yyscan_t yyscanner)
1686 YY_BUFFER_STATE b;
1688 b = (YY_BUFFER_STATE) cmDependsFortran_yyalloc(sizeof( struct yy_buffer_state ) ,yyscanner );
1689 if ( ! b )
1690 YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_create_buffer()" );
1692 b->yy_buf_size = size;
1694 /* yy_ch_buf has to be 2 characters longer than the size given because
1695 * we need to put in 2 end-of-buffer characters.
1697 b->yy_ch_buf = (char *) cmDependsFortran_yyalloc(b->yy_buf_size + 2 ,yyscanner );
1698 if ( ! b->yy_ch_buf )
1699 YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_create_buffer()" );
1701 b->yy_is_our_buffer = 1;
1703 cmDependsFortran_yy_init_buffer(b,file ,yyscanner);
1705 return b;
1708 /** Destroy the buffer.
1709 * @param b a buffer created with cmDependsFortran_yy_create_buffer()
1710 * @param yyscanner The scanner object.
1712 void cmDependsFortran_yy_delete_buffer (YY_BUFFER_STATE b , yyscan_t yyscanner)
1714 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1716 if ( ! b )
1717 return;
1719 if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
1720 YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
1722 if ( b->yy_is_our_buffer )
1723 cmDependsFortran_yyfree((void *) b->yy_ch_buf ,yyscanner );
1725 cmDependsFortran_yyfree((void *) b ,yyscanner );
1728 #ifndef __cplusplus
1729 extern int isatty (int );
1730 #endif /* __cplusplus */
1732 /* Initializes or reinitializes a buffer.
1733 * This function is sometimes called more than once on the same buffer,
1734 * such as during a cmDependsFortran_yyrestart() or at EOF.
1736 static void cmDependsFortran_yy_init_buffer (YY_BUFFER_STATE b, FILE * file , yyscan_t yyscanner)
1739 int oerrno = errno;
1740 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1742 cmDependsFortran_yy_flush_buffer(b ,yyscanner);
1744 b->yy_input_file = file;
1745 b->yy_fill_buffer = 1;
1747 /* If b is the current buffer, then cmDependsFortran_yy_init_buffer was _probably_
1748 * called from cmDependsFortran_yyrestart() or through yy_get_next_buffer.
1749 * In that case, we don't want to reset the lineno or column.
1751 if (b != YY_CURRENT_BUFFER){
1752 b->yy_bs_lineno = 1;
1753 b->yy_bs_column = 0;
1756 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
1758 errno = oerrno;
1761 /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
1762 * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
1763 * @param yyscanner The scanner object.
1765 void cmDependsFortran_yy_flush_buffer (YY_BUFFER_STATE b , yyscan_t yyscanner)
1767 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1768 if ( ! b )
1769 return;
1771 b->yy_n_chars = 0;
1773 /* We always need two end-of-buffer characters. The first causes
1774 * a transition to the end-of-buffer state. The second causes
1775 * a jam in that state.
1777 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
1778 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
1780 b->yy_buf_pos = &b->yy_ch_buf[0];
1782 b->yy_at_bol = 1;
1783 b->yy_buffer_status = YY_BUFFER_NEW;
1785 if ( b == YY_CURRENT_BUFFER )
1786 cmDependsFortran_yy_load_buffer_state(yyscanner );
1789 /** Pushes the new state onto the stack. The new state becomes
1790 * the current state. This function will allocate the stack
1791 * if necessary.
1792 * @param new_buffer The new state.
1793 * @param yyscanner The scanner object.
1795 void cmDependsFortran_yypush_buffer_state (YY_BUFFER_STATE new_buffer , yyscan_t yyscanner)
1797 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1798 if (new_buffer == NULL)
1799 return;
1801 cmDependsFortran_yyensure_buffer_stack(yyscanner);
1803 /* This block is copied from cmDependsFortran_yy_switch_to_buffer. */
1804 if ( YY_CURRENT_BUFFER )
1806 /* Flush out information for old buffer. */
1807 *yyg->yy_c_buf_p = yyg->yy_hold_char;
1808 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = yyg->yy_c_buf_p;
1809 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars;
1812 /* Only push if top exists. Otherwise, replace top. */
1813 if (YY_CURRENT_BUFFER)
1814 yyg->yy_buffer_stack_top++;
1815 YY_CURRENT_BUFFER_LVALUE = new_buffer;
1817 /* copied from cmDependsFortran_yy_switch_to_buffer. */
1818 cmDependsFortran_yy_load_buffer_state(yyscanner );
1819 yyg->yy_did_buffer_switch_on_eof = 1;
1822 /** Removes and deletes the top of the stack, if present.
1823 * The next element becomes the new top.
1824 * @param yyscanner The scanner object.
1826 void cmDependsFortran_yypop_buffer_state (yyscan_t yyscanner)
1828 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1829 if (!YY_CURRENT_BUFFER)
1830 return;
1832 cmDependsFortran_yy_delete_buffer(YY_CURRENT_BUFFER ,yyscanner);
1833 YY_CURRENT_BUFFER_LVALUE = NULL;
1834 if (yyg->yy_buffer_stack_top > 0)
1835 --yyg->yy_buffer_stack_top;
1837 if (YY_CURRENT_BUFFER) {
1838 cmDependsFortran_yy_load_buffer_state(yyscanner );
1839 yyg->yy_did_buffer_switch_on_eof = 1;
1843 /* Allocates the stack if it does not exist.
1844 * Guarantees space for at least one push.
1846 static void cmDependsFortran_yyensure_buffer_stack (yyscan_t yyscanner)
1848 int num_to_alloc;
1849 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
1851 if (!yyg->yy_buffer_stack) {
1853 /* First allocation is just for 2 elements, since we don't know if this
1854 * scanner will even need a stack. We use 2 instead of 1 to avoid an
1855 * immediate realloc on the next call.
1857 num_to_alloc = 1;
1858 yyg->yy_buffer_stack = (struct yy_buffer_state**)cmDependsFortran_yyalloc
1859 (num_to_alloc * sizeof(struct yy_buffer_state*)
1860 , yyscanner);
1862 memset(yyg->yy_buffer_stack, 0, num_to_alloc * sizeof(struct yy_buffer_state*));
1864 yyg->yy_buffer_stack_max = num_to_alloc;
1865 yyg->yy_buffer_stack_top = 0;
1866 return;
1869 if (yyg->yy_buffer_stack_top >= (yyg->yy_buffer_stack_max) - 1){
1871 /* Increase the buffer to prepare for a possible push. */
1872 int grow_size = 8 /* arbitrary grow size */;
1874 num_to_alloc = yyg->yy_buffer_stack_max + grow_size;
1875 yyg->yy_buffer_stack = (struct yy_buffer_state**)cmDependsFortran_yyrealloc
1876 (yyg->yy_buffer_stack,
1877 num_to_alloc * sizeof(struct yy_buffer_state*)
1878 , yyscanner);
1880 /* zero only the new slots.*/
1881 memset(yyg->yy_buffer_stack + yyg->yy_buffer_stack_max, 0, grow_size * sizeof(struct yy_buffer_state*));
1882 yyg->yy_buffer_stack_max = num_to_alloc;
1886 /** Setup the input buffer state to scan directly from a user-specified character buffer.
1887 * @param base the character buffer
1888 * @param size the size in bytes of the character buffer
1889 * @param yyscanner The scanner object.
1890 * @return the newly allocated buffer state object.
1892 YY_BUFFER_STATE cmDependsFortran_yy_scan_buffer (char * base, yy_size_t size , yyscan_t yyscanner)
1894 YY_BUFFER_STATE b;
1896 if ( size < 2 ||
1897 base[size-2] != YY_END_OF_BUFFER_CHAR ||
1898 base[size-1] != YY_END_OF_BUFFER_CHAR )
1899 /* They forgot to leave room for the EOB's. */
1900 return 0;
1902 b = (YY_BUFFER_STATE) cmDependsFortran_yyalloc(sizeof( struct yy_buffer_state ) ,yyscanner );
1903 if ( ! b )
1904 YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_scan_buffer()" );
1906 b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
1907 b->yy_buf_pos = b->yy_ch_buf = base;
1908 b->yy_is_our_buffer = 0;
1909 b->yy_input_file = 0;
1910 b->yy_n_chars = b->yy_buf_size;
1911 b->yy_is_interactive = 0;
1912 b->yy_at_bol = 1;
1913 b->yy_fill_buffer = 0;
1914 b->yy_buffer_status = YY_BUFFER_NEW;
1916 cmDependsFortran_yy_switch_to_buffer(b ,yyscanner );
1918 return b;
1921 /** Setup the input buffer state to scan a string. The next call to cmDependsFortran_yylex() will
1922 * scan from a @e copy of @a str.
1923 * @param yystr a NUL-terminated string to scan
1924 * @param yyscanner The scanner object.
1925 * @return the newly allocated buffer state object.
1926 * @note If you want to scan bytes that may contain NUL values, then use
1927 * cmDependsFortran_yy_scan_bytes() instead.
1929 YY_BUFFER_STATE cmDependsFortran_yy_scan_string (yyconst char * yystr , yyscan_t yyscanner)
1932 return cmDependsFortran_yy_scan_bytes(yystr,strlen(yystr) ,yyscanner);
1935 /** Setup the input buffer state to scan the given bytes. The next call to cmDependsFortran_yylex() will
1936 * scan from a @e copy of @a bytes.
1937 * @param bytes the byte buffer to scan
1938 * @param len the number of bytes in the buffer pointed to by @a bytes.
1939 * @param yyscanner The scanner object.
1940 * @return the newly allocated buffer state object.
1942 YY_BUFFER_STATE cmDependsFortran_yy_scan_bytes (yyconst char * yybytes, int _yybytes_len , yyscan_t yyscanner)
1944 YY_BUFFER_STATE b;
1945 char *buf;
1946 yy_size_t n;
1947 int i;
1949 /* Get memory for full buffer, including space for trailing EOB's. */
1950 n = _yybytes_len + 2;
1951 buf = (char *) cmDependsFortran_yyalloc(n ,yyscanner );
1952 if ( ! buf )
1953 YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_scan_bytes()" );
1955 for ( i = 0; i < _yybytes_len; ++i )
1956 buf[i] = yybytes[i];
1958 buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
1960 b = cmDependsFortran_yy_scan_buffer(buf,n ,yyscanner);
1961 if ( ! b )
1962 YY_FATAL_ERROR( "bad buffer in cmDependsFortran_yy_scan_bytes()" );
1964 /* It's okay to grow etc. this buffer, and we should throw it
1965 * away when we're done.
1967 b->yy_is_our_buffer = 1;
1969 return b;
1972 #ifndef YY_EXIT_FAILURE
1973 #define YY_EXIT_FAILURE 2
1974 #endif
1976 static void yy_fatal_error (yyconst char* msg , yyscan_t)
1978 (void) fprintf( stderr, "%s\n", msg );
1979 exit( YY_EXIT_FAILURE );
1982 /* Redefine yyless() so it works in section 3 code. */
1984 #undef yyless
1985 #define yyless(n) \
1986 do \
1988 /* Undo effects of setting up yytext. */ \
1989 int yyless_macro_arg = (n); \
1990 YY_LESS_LINENO(yyless_macro_arg);\
1991 yytext[yyleng] = yyg->yy_hold_char; \
1992 yyg->yy_c_buf_p = yytext + yyless_macro_arg; \
1993 yyg->yy_hold_char = *yyg->yy_c_buf_p; \
1994 *yyg->yy_c_buf_p = '\0'; \
1995 yyleng = yyless_macro_arg; \
1997 while ( 0 )
1999 /* Accessor methods (get/set functions) to struct members. */
2001 /** Get the user-defined data for this scanner.
2002 * @param yyscanner The scanner object.
2004 YY_EXTRA_TYPE cmDependsFortran_yyget_extra (yyscan_t yyscanner)
2006 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2007 return yyextra;
2010 /** Get the current line number.
2011 * @param yyscanner The scanner object.
2013 int cmDependsFortran_yyget_lineno (yyscan_t yyscanner)
2015 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2017 if (! YY_CURRENT_BUFFER)
2018 return 0;
2020 return yylineno;
2023 /** Get the current column number.
2024 * @param yyscanner The scanner object.
2026 int cmDependsFortran_yyget_column (yyscan_t yyscanner)
2028 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2030 if (! YY_CURRENT_BUFFER)
2031 return 0;
2033 return yycolumn;
2036 /** Get the input stream.
2037 * @param yyscanner The scanner object.
2039 FILE *cmDependsFortran_yyget_in (yyscan_t yyscanner)
2041 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2042 return yyin;
2045 /** Get the output stream.
2046 * @param yyscanner The scanner object.
2048 FILE *cmDependsFortran_yyget_out (yyscan_t yyscanner)
2050 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2051 return yyout;
2054 /** Get the length of the current token.
2055 * @param yyscanner The scanner object.
2057 int cmDependsFortran_yyget_leng (yyscan_t yyscanner)
2059 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2060 return yyleng;
2063 /** Get the current token.
2064 * @param yyscanner The scanner object.
2067 char *cmDependsFortran_yyget_text (yyscan_t yyscanner)
2069 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2070 return yytext;
2073 /** Set the user-defined data. This data is never touched by the scanner.
2074 * @param user_defined The data to be associated with this scanner.
2075 * @param yyscanner The scanner object.
2077 void cmDependsFortran_yyset_extra (YY_EXTRA_TYPE user_defined , yyscan_t yyscanner)
2079 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2080 yyextra = user_defined ;
2083 /** Set the current line number.
2084 * @param line_number
2085 * @param yyscanner The scanner object.
2087 void cmDependsFortran_yyset_lineno (int line_number , yyscan_t yyscanner)
2089 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2091 /* lineno is only valid if an input buffer exists. */
2092 if (! YY_CURRENT_BUFFER )
2093 yy_fatal_error( "cmDependsFortran_yyset_lineno called with no buffer" , yyscanner);
2095 yylineno = line_number;
2098 /** Set the current column.
2099 * @param line_number
2100 * @param yyscanner The scanner object.
2102 void cmDependsFortran_yyset_column (int column_no , yyscan_t yyscanner)
2104 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2106 /* column is only valid if an input buffer exists. */
2107 if (! YY_CURRENT_BUFFER )
2108 yy_fatal_error( "cmDependsFortran_yyset_column called with no buffer" , yyscanner);
2110 yycolumn = column_no;
2113 /** Set the input stream. This does not discard the current
2114 * input buffer.
2115 * @param in_str A readable stream.
2116 * @param yyscanner The scanner object.
2117 * @see cmDependsFortran_yy_switch_to_buffer
2119 void cmDependsFortran_yyset_in (FILE * in_str , yyscan_t yyscanner)
2121 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2122 yyin = in_str ;
2125 void cmDependsFortran_yyset_out (FILE * out_str , yyscan_t yyscanner)
2127 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2128 yyout = out_str ;
2131 int cmDependsFortran_yyget_debug (yyscan_t yyscanner)
2133 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2134 return yy_flex_debug;
2137 void cmDependsFortran_yyset_debug (int bdebug , yyscan_t yyscanner)
2139 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2140 yy_flex_debug = bdebug ;
2143 /* Accessor methods for yylval and yylloc */
2145 /* User-visible API */
2147 /* cmDependsFortran_yylex_init is special because it creates the scanner itself, so it is
2148 * the ONLY reentrant function that doesn't take the scanner as the last argument.
2149 * That's why we explicitly handle the declaration, instead of using our macros.
2152 int cmDependsFortran_yylex_init(yyscan_t* ptr_yy_globals)
2155 if (ptr_yy_globals == NULL){
2156 errno = EINVAL;
2157 return 1;
2160 *ptr_yy_globals = (yyscan_t) cmDependsFortran_yyalloc ( sizeof( struct yyguts_t ), NULL );
2162 if (*ptr_yy_globals == NULL){
2163 errno = ENOMEM;
2164 return 1;
2167 /* By setting to 0xAA, we expose bugs in yy_init_globals. Leave at 0x00 for releases. */
2168 memset(*ptr_yy_globals,0x00,sizeof(struct yyguts_t));
2170 return yy_init_globals ( *ptr_yy_globals );
2173 static int yy_init_globals (yyscan_t yyscanner)
2175 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2176 /* Initialization is the same as for the non-reentrant scanner.
2177 * This function is called from cmDependsFortran_yylex_destroy(), so don't allocate here.
2180 yyg->yy_buffer_stack = 0;
2181 yyg->yy_buffer_stack_top = 0;
2182 yyg->yy_buffer_stack_max = 0;
2183 yyg->yy_c_buf_p = (char *) 0;
2184 yyg->yy_init = 0;
2185 yyg->yy_start = 0;
2187 yyg->yy_start_stack_ptr = 0;
2188 yyg->yy_start_stack_depth = 0;
2189 yyg->yy_start_stack = NULL;
2191 /* Defined in main.c */
2192 #ifdef YY_STDINIT
2193 yyin = stdin;
2194 yyout = stdout;
2195 #else
2196 yyin = (FILE *) 0;
2197 yyout = (FILE *) 0;
2198 #endif
2200 /* For future reference: Set errno on error, since we are called by
2201 * cmDependsFortran_yylex_init()
2203 return 0;
2206 /* cmDependsFortran_yylex_destroy is for both reentrant and non-reentrant scanners. */
2207 int cmDependsFortran_yylex_destroy (yyscan_t yyscanner)
2209 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2211 /* Pop the buffer stack, destroying each element. */
2212 while(YY_CURRENT_BUFFER){
2213 cmDependsFortran_yy_delete_buffer(YY_CURRENT_BUFFER ,yyscanner );
2214 YY_CURRENT_BUFFER_LVALUE = NULL;
2215 cmDependsFortran_yypop_buffer_state(yyscanner);
2218 /* Destroy the stack itself. */
2219 cmDependsFortran_yyfree(yyg->yy_buffer_stack ,yyscanner);
2220 yyg->yy_buffer_stack = NULL;
2222 /* Destroy the start condition stack. */
2223 cmDependsFortran_yyfree(yyg->yy_start_stack ,yyscanner );
2224 yyg->yy_start_stack = NULL;
2226 /* Reset the globals. This is important in a non-reentrant scanner so the next time
2227 * cmDependsFortran_yylex() is called, initialization will occur. */
2228 yy_init_globals( yyscanner);
2230 /* Destroy the main struct (reentrant only). */
2231 cmDependsFortran_yyfree ( yyscanner , yyscanner );
2232 yyscanner = NULL;
2233 return 0;
2237 * Internal utility routines.
2240 #ifndef yytext_ptr
2241 static void yy_flex_strncpy (char* s1, yyconst char * s2, int n , yyscan_t yyscanner)
2243 register int i;
2244 for ( i = 0; i < n; ++i )
2245 s1[i] = s2[i];
2247 #endif
2249 #ifdef YY_NEED_STRLEN
2250 static int yy_flex_strlen (yyconst char * s , yyscan_t yyscanner)
2252 register int n;
2253 for ( n = 0; s[n]; ++n )
2256 return n;
2258 #endif
2260 void *cmDependsFortran_yyalloc (yy_size_t size , yyscan_t)
2262 return (void *) malloc( size );
2265 void *cmDependsFortran_yyrealloc (void * ptr, yy_size_t size , yyscan_t)
2267 /* The cast to (char *) in the following accommodates both
2268 * implementations that use char* generic pointers, and those
2269 * that use void* generic pointers. It works with the latter
2270 * because both ANSI C and C++ allow castless assignment from
2271 * any pointer type to void*, and deal with argument conversions
2272 * as though doing an assignment.
2274 return (void *) realloc( (char *) ptr, size );
2277 void cmDependsFortran_yyfree (void * ptr , yyscan_t)
2279 free( (char *) ptr ); /* see cmDependsFortran_yyrealloc() for (char *) cast */
2282 #define YYTABLES_NAME "yytables"
2284 #line 176 "cmDependsFortranLexer.in.l"
2288 /*--------------------------------------------------------------------------*/
2289 YY_BUFFER_STATE cmDependsFortranLexer_GetCurrentBuffer(yyscan_t yyscanner)
2291 /* Hack into the internal flex-generated scanner to get the buffer. */
2292 struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
2293 return YY_CURRENT_BUFFER;