Branch data Line data Source code
1 : : #line 2 "scan_touchstone.cpp"
2 : :
3 : : #line 4 "scan_touchstone.cpp"
4 : :
5 : : #define YY_INT_ALIGNED short int
6 : :
7 : : /* A lexical scanner generated by flex */
8 : :
9 : : #define yy_create_buffer touchstone__create_buffer
10 : : #define yy_delete_buffer touchstone__delete_buffer
11 : : #define yy_flex_debug touchstone__flex_debug
12 : : #define yy_init_buffer touchstone__init_buffer
13 : : #define yy_flush_buffer touchstone__flush_buffer
14 : : #define yy_load_buffer_state touchstone__load_buffer_state
15 : : #define yy_switch_to_buffer touchstone__switch_to_buffer
16 : : #define yyin touchstone_in
17 : : #define yyleng touchstone_leng
18 : : #define yylex touchstone_lex
19 : : #define yylineno touchstone_lineno
20 : : #define yyout touchstone_out
21 : : #define yyrestart touchstone_restart
22 : : #define yytext touchstone_text
23 : : #define yywrap touchstone_wrap
24 : : #define yyalloc touchstone_alloc
25 : : #define yyrealloc touchstone_realloc
26 : : #define yyfree touchstone_free
27 : :
28 : : #define FLEX_SCANNER
29 : : #define YY_FLEX_MAJOR_VERSION 2
30 : : #define YY_FLEX_MINOR_VERSION 5
31 : : #define YY_FLEX_SUBMINOR_VERSION 37
32 : : #if YY_FLEX_SUBMINOR_VERSION > 0
33 : : #define FLEX_BETA
34 : : #endif
35 : :
36 : : /* First, we deal with platform-specific or compiler-specific issues. */
37 : :
38 : : /* begin standard C headers. */
39 : : #include <stdio.h>
40 : : #include <string.h>
41 : : #include <errno.h>
42 : : #include <stdlib.h>
43 : :
44 : : /* end standard C headers. */
45 : :
46 : : /* flex integer type definitions */
47 : :
48 : : #ifndef FLEXINT_H
49 : : #define FLEXINT_H
50 : :
51 : : /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
52 : :
53 : : #if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
54 : :
55 : : /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
56 : : * if you want the limit (max/min) macros for int types.
57 : : */
58 : : #ifndef __STDC_LIMIT_MACROS
59 : : #define __STDC_LIMIT_MACROS 1
60 : : #endif
61 : :
62 : : #include <inttypes.h>
63 : : typedef int8_t flex_int8_t;
64 : : typedef uint8_t flex_uint8_t;
65 : : typedef int16_t flex_int16_t;
66 : : typedef uint16_t flex_uint16_t;
67 : : typedef int32_t flex_int32_t;
68 : : typedef uint32_t flex_uint32_t;
69 : : #else
70 : : typedef signed char flex_int8_t;
71 : : typedef short int flex_int16_t;
72 : : typedef int flex_int32_t;
73 : : typedef unsigned char flex_uint8_t;
74 : : typedef unsigned short int flex_uint16_t;
75 : : typedef unsigned int flex_uint32_t;
76 : :
77 : : /* Limits of integral types. */
78 : : #ifndef INT8_MIN
79 : : #define INT8_MIN (-128)
80 : : #endif
81 : : #ifndef INT16_MIN
82 : : #define INT16_MIN (-32767-1)
83 : : #endif
84 : : #ifndef INT32_MIN
85 : : #define INT32_MIN (-2147483647-1)
86 : : #endif
87 : : #ifndef INT8_MAX
88 : : #define INT8_MAX (127)
89 : : #endif
90 : : #ifndef INT16_MAX
91 : : #define INT16_MAX (32767)
92 : : #endif
93 : : #ifndef INT32_MAX
94 : : #define INT32_MAX (2147483647)
95 : : #endif
96 : : #ifndef UINT8_MAX
97 : : #define UINT8_MAX (255U)
98 : : #endif
99 : : #ifndef UINT16_MAX
100 : : #define UINT16_MAX (65535U)
101 : : #endif
102 : : #ifndef UINT32_MAX
103 : : #define UINT32_MAX (4294967295U)
104 : : #endif
105 : :
106 : : #endif /* ! C99 */
107 : :
108 : : #endif /* ! FLEXINT_H */
109 : :
110 : : #ifdef __cplusplus
111 : :
112 : : /* The "const" storage-class-modifier is valid. */
113 : : #define YY_USE_CONST
114 : :
115 : : #else /* ! __cplusplus */
116 : :
117 : : /* C99 requires __STDC__ to be defined as 1. */
118 : : #if defined (__STDC__)
119 : :
120 : : #define YY_USE_CONST
121 : :
122 : : #endif /* defined (__STDC__) */
123 : : #endif /* ! __cplusplus */
124 : :
125 : : #ifdef YY_USE_CONST
126 : : #define yyconst const
127 : : #else
128 : : #define yyconst
129 : : #endif
130 : :
131 : : /* Returned upon end-of-file. */
132 : : #define YY_NULL 0
133 : :
134 : : /* Promotes a possibly negative, possibly signed char to an unsigned
135 : : * integer for use as an array index. If the signed char is negative,
136 : : * we want to instead treat it as an 8-bit unsigned char, hence the
137 : : * double cast.
138 : : */
139 : : #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
140 : :
141 : : /* Enter a start condition. This macro really ought to take a parameter,
142 : : * but we do it the disgusting crufty way forced on us by the ()-less
143 : : * definition of BEGIN.
144 : : */
145 : : #define BEGIN (yy_start) = 1 + 2 *
146 : :
147 : : /* Translate the current start state into a value that can be later handed
148 : : * to BEGIN to return to the state. The YYSTATE alias is for lex
149 : : * compatibility.
150 : : */
151 : : #define YY_START (((yy_start) - 1) / 2)
152 : : #define YYSTATE YY_START
153 : :
154 : : /* Action number for EOF rule of a given start state. */
155 : : #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
156 : :
157 : : /* Special action meaning "start processing a new file". */
158 : : #define YY_NEW_FILE touchstone_restart(touchstone_in )
159 : :
160 : : #define YY_END_OF_BUFFER_CHAR 0
161 : :
162 : : /* Size of default input buffer. */
163 : : #ifndef YY_BUF_SIZE
164 : : #define YY_BUF_SIZE 16384
165 : : #endif
166 : :
167 : : /* The state buf must be large enough to hold one state per character in the main buffer.
168 : : */
169 : : #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
170 : :
171 : : #ifndef YY_TYPEDEF_YY_BUFFER_STATE
172 : : #define YY_TYPEDEF_YY_BUFFER_STATE
173 : : typedef struct yy_buffer_state *YY_BUFFER_STATE;
174 : : #endif
175 : :
176 : : #ifndef YY_TYPEDEF_YY_SIZE_T
177 : : #define YY_TYPEDEF_YY_SIZE_T
178 : : typedef size_t yy_size_t;
179 : : #endif
180 : :
181 : : extern yy_size_t touchstone_leng;
182 : :
183 : : extern FILE *touchstone_in, *touchstone_out;
184 : :
185 : : #define EOB_ACT_CONTINUE_SCAN 0
186 : : #define EOB_ACT_END_OF_FILE 1
187 : : #define EOB_ACT_LAST_MATCH 2
188 : :
189 : : /* Note: We specifically omit the test for yy_rule_can_match_eol because it requires
190 : : * access to the local variable yy_act. Since yyless() is a macro, it would break
191 : : * existing scanners that call yyless() from OUTSIDE touchstone_lex.
192 : : * One obvious solution it to make yy_act a global. I tried that, and saw
193 : : * a 5% performance hit in a non-touchstone_lineno scanner, because yy_act is
194 : : * normally declared as a register variable-- so it is not worth it.
195 : : */
196 : : #define YY_LESS_LINENO(n) \
197 : : do { \
198 : : int yyl;\
199 : : for ( yyl = n; yyl < touchstone_leng; ++yyl )\
200 : : if ( touchstone_text[yyl] == '\n' )\
201 : : --touchstone_lineno;\
202 : : }while(0)
203 : :
204 : : /* Return all but the first "n" matched characters back to the input stream. */
205 : : #define yyless(n) \
206 : : do \
207 : : { \
208 : : /* Undo effects of setting up touchstone_text. */ \
209 : : int yyless_macro_arg = (n); \
210 : : YY_LESS_LINENO(yyless_macro_arg);\
211 : : *yy_cp = (yy_hold_char); \
212 : : YY_RESTORE_YY_MORE_OFFSET \
213 : : (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
214 : : YY_DO_BEFORE_ACTION; /* set up touchstone_text again */ \
215 : : } \
216 : : while ( 0 )
217 : :
218 : : #define unput(c) yyunput( c, (yytext_ptr) )
219 : :
220 : : #ifndef YY_STRUCT_YY_BUFFER_STATE
221 : : #define YY_STRUCT_YY_BUFFER_STATE
222 : : struct yy_buffer_state
223 : : {
224 : : FILE *yy_input_file;
225 : :
226 : : char *yy_ch_buf; /* input buffer */
227 : : char *yy_buf_pos; /* current position in input buffer */
228 : :
229 : : /* Size of input buffer in bytes, not including room for EOB
230 : : * characters.
231 : : */
232 : : yy_size_t yy_buf_size;
233 : :
234 : : /* Number of characters read into yy_ch_buf, not including EOB
235 : : * characters.
236 : : */
237 : : yy_size_t yy_n_chars;
238 : :
239 : : /* Whether we "own" the buffer - i.e., we know we created it,
240 : : * and can realloc() it to grow it, and should free() it to
241 : : * delete it.
242 : : */
243 : : int yy_is_our_buffer;
244 : :
245 : : /* Whether this is an "interactive" input source; if so, and
246 : : * if we're using stdio for input, then we want to use getc()
247 : : * instead of fread(), to make sure we stop fetching input after
248 : : * each newline.
249 : : */
250 : : int yy_is_interactive;
251 : :
252 : : /* Whether we're considered to be at the beginning of a line.
253 : : * If so, '^' rules will be active on the next match, otherwise
254 : : * not.
255 : : */
256 : : int yy_at_bol;
257 : :
258 : : int yy_bs_lineno; /**< The line count. */
259 : : int yy_bs_column; /**< The column count. */
260 : :
261 : : /* Whether to try to fill the input buffer when we reach the
262 : : * end of it.
263 : : */
264 : : int yy_fill_buffer;
265 : :
266 : : int yy_buffer_status;
267 : :
268 : : #define YY_BUFFER_NEW 0
269 : : #define YY_BUFFER_NORMAL 1
270 : : /* When an EOF's been seen but there's still some text to process
271 : : * then we mark the buffer as YY_EOF_PENDING, to indicate that we
272 : : * shouldn't try reading from the input source any more. We might
273 : : * still have a bunch of tokens to match, though, because of
274 : : * possible backing-up.
275 : : *
276 : : * When we actually see the EOF, we change the status to "new"
277 : : * (via touchstone_restart()), so that the user can continue scanning by
278 : : * just pointing touchstone_in at a new input file.
279 : : */
280 : : #define YY_BUFFER_EOF_PENDING 2
281 : :
282 : : };
283 : : #endif /* !YY_STRUCT_YY_BUFFER_STATE */
284 : :
285 : : /* Stack of input buffers. */
286 : : static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
287 : : static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
288 : : static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
289 : :
290 : : /* We provide macros for accessing buffer states in case in the
291 : : * future we want to put the buffer states in a more general
292 : : * "scanner state".
293 : : *
294 : : * Returns the top of the stack, or NULL.
295 : : */
296 : : #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
297 : : ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
298 : : : NULL)
299 : :
300 : : /* Same as previous macro, but useful when we know that the buffer stack is not
301 : : * NULL or when we need an lvalue. For internal use only.
302 : : */
303 : : #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
304 : :
305 : : /* yy_hold_char holds the character lost when touchstone_text is formed. */
306 : : static char yy_hold_char;
307 : : static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */
308 : : yy_size_t touchstone_leng;
309 : :
310 : : /* Points to current character in buffer. */
311 : : static char *yy_c_buf_p = (char *) 0;
312 : : static int yy_init = 0; /* whether we need to initialize */
313 : : static int yy_start = 0; /* start state number */
314 : :
315 : : /* Flag which is used to allow touchstone_wrap()'s to do buffer switches
316 : : * instead of setting up a fresh touchstone_in. A bit of a hack ...
317 : : */
318 : : static int yy_did_buffer_switch_on_eof;
319 : :
320 : : void touchstone_restart (FILE *input_file );
321 : : void touchstone__switch_to_buffer (YY_BUFFER_STATE new_buffer );
322 : : YY_BUFFER_STATE touchstone__create_buffer (FILE *file,int size );
323 : : void touchstone__delete_buffer (YY_BUFFER_STATE b );
324 : : void touchstone__flush_buffer (YY_BUFFER_STATE b );
325 : : void touchstone_push_buffer_state (YY_BUFFER_STATE new_buffer );
326 : : void touchstone_pop_buffer_state (void );
327 : :
328 : : static void touchstone_ensure_buffer_stack (void );
329 : : static void touchstone__load_buffer_state (void );
330 : : static void touchstone__init_buffer (YY_BUFFER_STATE b,FILE *file );
331 : :
332 : : #define YY_FLUSH_BUFFER touchstone__flush_buffer(YY_CURRENT_BUFFER )
333 : :
334 : : YY_BUFFER_STATE touchstone__scan_buffer (char *base,yy_size_t size );
335 : : YY_BUFFER_STATE touchstone__scan_string (yyconst char *yy_str );
336 : : YY_BUFFER_STATE touchstone__scan_bytes (yyconst char *bytes,yy_size_t len );
337 : :
338 : : void *touchstone_alloc (yy_size_t );
339 : : void *touchstone_realloc (void *,yy_size_t );
340 : : void touchstone_free (void * );
341 : :
342 : : #define yy_new_buffer touchstone__create_buffer
343 : :
344 : : #define yy_set_interactive(is_interactive) \
345 : : { \
346 : : if ( ! YY_CURRENT_BUFFER ){ \
347 : : touchstone_ensure_buffer_stack (); \
348 : : YY_CURRENT_BUFFER_LVALUE = \
349 : : touchstone__create_buffer(touchstone_in,YY_BUF_SIZE ); \
350 : : } \
351 : : YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
352 : : }
353 : :
354 : : #define yy_set_bol(at_bol) \
355 : : { \
356 : : if ( ! YY_CURRENT_BUFFER ){\
357 : : touchstone_ensure_buffer_stack (); \
358 : : YY_CURRENT_BUFFER_LVALUE = \
359 : : touchstone__create_buffer(touchstone_in,YY_BUF_SIZE ); \
360 : : } \
361 : : YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
362 : : }
363 : :
364 : : #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
365 : :
366 : : /* Begin user sect3 */
367 : :
368 : : #define touchstone_wrap() 1
369 : : #define YY_SKIP_YYWRAP
370 : :
371 : : typedef unsigned char YY_CHAR;
372 : :
373 : : FILE *touchstone_in = (FILE *) 0, *touchstone_out = (FILE *) 0;
374 : :
375 : : typedef int yy_state_type;
376 : :
377 : : extern int touchstone_lineno;
378 : :
379 : : int touchstone_lineno = 1;
380 : :
381 : : extern char *touchstone_text;
382 : : #define yytext_ptr touchstone_text
383 : :
384 : : static yy_state_type yy_get_previous_state (void );
385 : : static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
386 : : static int yy_get_next_buffer (void );
387 : : static void yy_fatal_error (yyconst char msg[] );
388 : :
389 : : /* Done after the current pattern has been matched and before the
390 : : * corresponding action - sets up touchstone_text.
391 : : */
392 : : #define YY_DO_BEFORE_ACTION \
393 : : (yytext_ptr) = yy_bp; \
394 : : touchstone_leng = (size_t) (yy_cp - yy_bp); \
395 : : (yy_hold_char) = *yy_cp; \
396 : : *yy_cp = '\0'; \
397 : : (yy_c_buf_p) = yy_cp;
398 : :
399 : : #define YY_NUM_RULES 11
400 : : #define YY_END_OF_BUFFER 12
401 : : /* This struct is not used in this scanner,
402 : : but its presence is necessary. */
403 : : struct yy_trans_info
404 : : {
405 : : flex_int32_t yy_verify;
406 : : flex_int32_t yy_nxt;
407 : : };
408 : : static yyconst flex_int16_t yy_accept[34] =
409 : : { 0,
410 : : 0, 0, 0, 0, 12, 8, 4, 3, 8, 7,
411 : : 8, 8, 6, 5, 1, 2, 9, 4, 10, 9,
412 : : 3, 0, 6, 6, 0, 5, 10, 0, 0, 6,
413 : : 0, 6, 0
414 : : } ;
415 : :
416 : : static yyconst flex_int32_t yy_ec[256] =
417 : : { 0,
418 : : 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
419 : : 1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
420 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
421 : : 1, 2, 5, 1, 6, 1, 1, 1, 1, 1,
422 : : 1, 1, 7, 1, 7, 8, 1, 9, 9, 9,
423 : : 9, 9, 9, 9, 9, 9, 9, 1, 1, 1,
424 : : 1, 1, 1, 1, 10, 10, 10, 10, 11, 10,
425 : : 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
426 : : 10, 12, 10, 10, 10, 10, 10, 10, 10, 10,
427 : : 1, 1, 1, 1, 10, 1, 10, 10, 10, 10,
428 : :
429 : : 11, 10, 10, 10, 10, 10, 10, 10, 10, 10,
430 : : 10, 10, 10, 12, 10, 10, 10, 10, 10, 10,
431 : : 10, 10, 1, 1, 1, 1, 1, 1, 1, 1,
432 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
433 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
434 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
435 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
436 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
437 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
438 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
439 : :
440 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
441 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
442 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
443 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
444 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
445 : : 1, 1, 1, 1, 1
446 : : } ;
447 : :
448 : : static yyconst flex_int32_t yy_meta[13] =
449 : : { 0,
450 : : 1, 1, 1, 1, 1, 1, 1, 1, 2, 2,
451 : : 2, 2
452 : : } ;
453 : :
454 : : static yyconst flex_int16_t yy_base[36] =
455 : : { 0,
456 : : 0, 34, 11, 14, 39, 41, 41, 41, 35, 41,
457 : : 11, 28, 25, 0, 0, 41, 41, 41, 41, 32,
458 : : 41, 25, 0, 12, 17, 0, 41, 20, 24, 23,
459 : : 19, 16, 41, 29, 20
460 : : } ;
461 : :
462 : : static yyconst flex_int16_t yy_def[36] =
463 : : { 0,
464 : : 33, 1, 34, 34, 33, 33, 33, 33, 33, 33,
465 : : 33, 33, 11, 35, 35, 33, 33, 33, 33, 33,
466 : : 33, 33, 13, 33, 33, 35, 33, 33, 33, 33,
467 : : 33, 33, 0, 33, 33
468 : : } ;
469 : :
470 : : static yyconst flex_int16_t yy_nxt[54] =
471 : : { 0,
472 : : 6, 7, 8, 9, 10, 6, 11, 12, 13, 14,
473 : : 14, 15, 18, 19, 20, 18, 19, 20, 22, 23,
474 : : 24, 26, 28, 29, 32, 30, 31, 32, 32, 17,
475 : : 17, 30, 30, 24, 27, 25, 24, 21, 33, 16,
476 : : 5, 33, 33, 33, 33, 33, 33, 33, 33, 33,
477 : : 33, 33, 33
478 : : } ;
479 : :
480 : : static yyconst flex_int16_t yy_chk[54] =
481 : : { 0,
482 : : 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
483 : : 1, 1, 3, 3, 3, 4, 4, 4, 11, 11,
484 : : 24, 35, 24, 25, 32, 25, 28, 31, 28, 34,
485 : : 34, 30, 29, 22, 20, 13, 12, 9, 5, 2,
486 : : 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,
487 : : 33, 33, 33
488 : : } ;
489 : :
490 : : /* Table of booleans, true if rule could match eol. */
491 : : static yyconst flex_int32_t yy_rule_can_match_eol[12] =
492 : : { 0,
493 : : 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, };
494 : :
495 : : static yy_state_type yy_last_accepting_state;
496 : : static char *yy_last_accepting_cpos;
497 : :
498 : : extern int touchstone__flex_debug;
499 : : int touchstone__flex_debug = 0;
500 : :
501 : : /* The intent behind this definition is that it'll catch
502 : : * any uses of REJECT which flex missed.
503 : : */
504 : : #define REJECT reject_used_but_not_detected
505 : : #define yymore() yymore_used_but_not_detected
506 : : #define YY_MORE_ADJ 0
507 : : #define YY_RESTORE_YY_MORE_OFFSET
508 : : char *touchstone_text;
509 : : #line 1 "scan_touchstone.l"
510 : : /* -*-c-*- */
511 : : #line 4 "scan_touchstone.l"
512 : : /*
513 : : * scan_touchstone.l - scanner for Touchstone files
514 : : *
515 : : * Copyright (C) 2003, 2004, 2005, 2008 Stefan Jahn <stefan@lkcc.org>
516 : : *
517 : : * This is free software; you can redistribute it and/or modify
518 : : * it under the terms of the GNU General Public License as published by
519 : : * the Free Software Foundation; either version 2, or (at your option)
520 : : * any later version.
521 : : *
522 : : * This software is distributed in the hope that it will be useful,
523 : : * but WITHOUT ANY WARRANTY; without even the implied warranty of
524 : : * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
525 : : * GNU General Public License for more details.
526 : : *
527 : : * You should have received a copy of the GNU General Public License
528 : : * along with this package; see the file COPYING. If not, write to
529 : : * the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
530 : : * Boston, MA 02110-1301, USA.
531 : : *
532 : : * $Id$
533 : : *
534 : : */
535 : :
536 : : #if HAVE_CONFIG_H
537 : : # include <config.h>
538 : : #endif
539 : :
540 : : #include <stdio.h>
541 : : #include <stdlib.h>
542 : : #include <string.h>
543 : : #include <ctype.h>
544 : :
545 : : #ifdef __MINGW32__
546 : : #include <io.h>
547 : : #endif
548 : :
549 : : #ifdef HAVE_UNISTD_H
550 : : #include <unistd.h>
551 : : #endif
552 : :
553 : : #include "logging.h"
554 : : #include "complex.h"
555 : : #include "object.h"
556 : : #include "vector.h"
557 : : #include "dataset.h"
558 : : #include "check_touchstone.h"
559 : : #include "tokens_touchstone.h"
560 : :
561 : : using namespace qucs;
562 : :
563 : :
564 : : #line 565 "scan_touchstone.cpp"
565 : :
566 : : #define INITIAL 0
567 : : #define COMMENT 1
568 : :
569 : : #ifndef YY_EXTRA_TYPE
570 : : #define YY_EXTRA_TYPE void *
571 : : #endif
572 : :
573 : : static int yy_init_globals (void );
574 : :
575 : : /* Accessor methods to globals.
576 : : These are made visible to non-reentrant scanners for convenience. */
577 : :
578 : : int touchstone_lex_destroy (void );
579 : :
580 : : int touchstone_get_debug (void );
581 : :
582 : : void touchstone_set_debug (int debug_flag );
583 : :
584 : : YY_EXTRA_TYPE touchstone_get_extra (void );
585 : :
586 : : void touchstone_set_extra (YY_EXTRA_TYPE user_defined );
587 : :
588 : : FILE *touchstone_get_in (void );
589 : :
590 : : void touchstone_set_in (FILE * in_str );
591 : :
592 : : FILE *touchstone_get_out (void );
593 : :
594 : : void touchstone_set_out (FILE * out_str );
595 : :
596 : : yy_size_t touchstone_get_leng (void );
597 : :
598 : : char *touchstone_get_text (void );
599 : :
600 : : int touchstone_get_lineno (void );
601 : :
602 : : void touchstone_set_lineno (int line_number );
603 : :
604 : : /* Macros after this point can all be overridden by user definitions in
605 : : * section 1.
606 : : */
607 : :
608 : : #ifndef YY_SKIP_YYWRAP
609 : : #ifdef __cplusplus
610 : : extern "C" int touchstone_wrap (void );
611 : : #else
612 : : extern int touchstone_wrap (void );
613 : : #endif
614 : : #endif
615 : :
616 : : #ifndef yytext_ptr
617 : : static void yy_flex_strncpy (char *,yyconst char *,int );
618 : : #endif
619 : :
620 : : #ifdef YY_NEED_STRLEN
621 : : static int yy_flex_strlen (yyconst char * );
622 : : #endif
623 : :
624 : : #ifndef YY_NO_INPUT
625 : :
626 : : #ifdef __cplusplus
627 : : static int yyinput (void );
628 : : #else
629 : : static int input (void );
630 : : #endif
631 : :
632 : : #endif
633 : :
634 : : /* Amount of stuff to slurp up with each read. */
635 : : #ifndef YY_READ_BUF_SIZE
636 : : #define YY_READ_BUF_SIZE 8192
637 : : #endif
638 : :
639 : : /* Copy whatever the last rule matched to the standard output. */
640 : : #ifndef ECHO
641 : : /* This used to be an fputs(), but since the string might contain NUL's,
642 : : * we now use fwrite().
643 : : */
644 : : #define ECHO do { if (fwrite( touchstone_text, touchstone_leng, 1, touchstone_out )) {} } while (0)
645 : : #endif
646 : :
647 : : /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
648 : : * is returned in "result".
649 : : */
650 : : #ifndef YY_INPUT
651 : : #define YY_INPUT(buf,result,max_size) \
652 : : if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
653 : : { \
654 : : int c = '*'; \
655 : : size_t n; \
656 : : for ( n = 0; n < max_size && \
657 : : (c = getc( touchstone_in )) != EOF && c != '\n'; ++n ) \
658 : : buf[n] = (char) c; \
659 : : if ( c == '\n' ) \
660 : : buf[n++] = (char) c; \
661 : : if ( c == EOF && ferror( touchstone_in ) ) \
662 : : YY_FATAL_ERROR( "input in flex scanner failed" ); \
663 : : result = n; \
664 : : } \
665 : : else \
666 : : { \
667 : : errno=0; \
668 : : while ( (result = fread(buf, 1, max_size, touchstone_in))==0 && ferror(touchstone_in)) \
669 : : { \
670 : : if( errno != EINTR) \
671 : : { \
672 : : YY_FATAL_ERROR( "input in flex scanner failed" ); \
673 : : break; \
674 : : } \
675 : : errno=0; \
676 : : clearerr(touchstone_in); \
677 : : } \
678 : : }\
679 : : \
680 : :
681 : : #endif
682 : :
683 : : /* No semi-colon after return; correct usage is to write "yyterminate();" -
684 : : * we don't want an extra ';' after the "return" because that will cause
685 : : * some compilers to complain about unreachable statements.
686 : : */
687 : : #ifndef yyterminate
688 : : #define yyterminate() return YY_NULL
689 : : #endif
690 : :
691 : : /* Number of entries by which start-condition stack grows. */
692 : : #ifndef YY_START_STACK_INCR
693 : : #define YY_START_STACK_INCR 25
694 : : #endif
695 : :
696 : : /* Report a fatal error. */
697 : : #ifndef YY_FATAL_ERROR
698 : : #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
699 : : #endif
700 : :
701 : : /* end tables serialization structures and prototypes */
702 : :
703 : : /* Default declaration of generated scanner - a define so the user can
704 : : * easily add parameters.
705 : : */
706 : : #ifndef YY_DECL
707 : : #define YY_DECL_IS_OURS 1
708 : :
709 : : extern int touchstone_lex (void);
710 : :
711 : : #define YY_DECL int touchstone_lex (void)
712 : : #endif /* !YY_DECL */
713 : :
714 : : /* Code executed at the beginning of each rule, after touchstone_text and touchstone_leng
715 : : * have been set up.
716 : : */
717 : : #ifndef YY_USER_ACTION
718 : : #define YY_USER_ACTION
719 : : #endif
720 : :
721 : : /* Code executed at the end of each rule. */
722 : : #ifndef YY_BREAK
723 : : #define YY_BREAK break;
724 : : #endif
725 : :
726 : : #define YY_RULE_SETUP \
727 : : if ( touchstone_leng > 0 ) \
728 : : YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
729 : : (touchstone_text[touchstone_leng - 1] == '\n'); \
730 : : YY_USER_ACTION
731 : :
732 : : /** The main scanner function which does all the work.
733 : : */
734 : 0 : YY_DECL
735 : : {
736 : : register yy_state_type yy_current_state;
737 : : register char *yy_cp, *yy_bp;
738 : : register int yy_act;
739 : :
740 : : #line 69 "scan_touchstone.l"
741 : :
742 : :
743 : : #line 744 "scan_touchstone.cpp"
744 : :
745 [ # # ]: 0 : if ( !(yy_init) )
746 : : {
747 : 0 : (yy_init) = 1;
748 : :
749 : : #ifdef YY_USER_INIT
750 : : YY_USER_INIT;
751 : : #endif
752 : :
753 [ # # ]: 0 : if ( ! (yy_start) )
754 : 0 : (yy_start) = 1; /* first start state */
755 : :
756 [ # # ]: 0 : if ( ! touchstone_in )
757 : 0 : touchstone_in = stdin;
758 : :
759 [ # # ]: 0 : if ( ! touchstone_out )
760 : 0 : touchstone_out = stdout;
761 : :
762 [ # # ][ # # ]: 0 : if ( ! YY_CURRENT_BUFFER ) {
763 : 0 : touchstone_ensure_buffer_stack ();
764 : 0 : YY_CURRENT_BUFFER_LVALUE =
765 : 0 : touchstone__create_buffer(touchstone_in,YY_BUF_SIZE );
766 : : }
767 : :
768 : 0 : touchstone__load_buffer_state( );
769 : : }
770 : :
771 : 0 : while ( 1 ) /* loops until end-of-file is reached */
772 : : {
773 : 0 : yy_cp = (yy_c_buf_p);
774 : :
775 : : /* Support of touchstone_text. */
776 : 0 : *yy_cp = (yy_hold_char);
777 : :
778 : : /* yy_bp points to the position in yy_ch_buf of the start of
779 : : * the current run.
780 : : */
781 : 0 : yy_bp = yy_cp;
782 : :
783 : 0 : yy_current_state = (yy_start);
784 : 0 : yy_current_state += YY_AT_BOL();
785 : : yy_match:
786 [ # # ]: 0 : do
787 : : {
788 : 0 : register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
789 [ # # ]: 0 : if ( yy_accept[yy_current_state] )
790 : : {
791 : 0 : (yy_last_accepting_state) = yy_current_state;
792 : 0 : (yy_last_accepting_cpos) = yy_cp;
793 : : }
794 [ # # ]: 0 : while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
795 : : {
796 : 0 : yy_current_state = (int) yy_def[yy_current_state];
797 [ # # ]: 0 : if ( yy_current_state >= 34 )
798 : 0 : yy_c = yy_meta[(unsigned int) yy_c];
799 : : }
800 : 0 : yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
801 : 0 : ++yy_cp;
802 : : }
803 : 0 : while ( yy_base[yy_current_state] != 41 );
804 : :
805 : : yy_find_action:
806 : 0 : yy_act = yy_accept[yy_current_state];
807 [ # # ]: 0 : if ( yy_act == 0 )
808 : : { /* have to back up */
809 : 0 : yy_cp = (yy_last_accepting_cpos);
810 : 0 : yy_current_state = (yy_last_accepting_state);
811 : 0 : yy_act = yy_accept[yy_current_state];
812 : : }
813 : :
814 : 0 : YY_DO_BEFORE_ACTION;
815 : :
816 [ # # ][ # # ]: 0 : if ( yy_act != YY_END_OF_BUFFER && yy_rule_can_match_eol[yy_act] )
817 : : {
818 : : int yyl;
819 [ # # ]: 0 : for ( yyl = 0; yyl < touchstone_leng; ++yyl )
820 [ # # ]: 0 : if ( touchstone_text[yyl] == '\n' )
821 : :
822 : 0 : touchstone_lineno++;
823 : : ;
824 : : }
825 : :
826 : : do_action: /* This label is used only to access EOF actions. */
827 : :
828 [ # # # # : 0 : switch ( yy_act )
# # # # #
# # # # #
# ]
829 : : { /* beginning of action switch */
830 : : case 0: /* must back up */
831 : : /* undo the effects of YY_DO_BEFORE_ACTION */
832 : 0 : *yy_cp = (yy_hold_char);
833 : 0 : yy_cp = (yy_last_accepting_cpos);
834 : 0 : yy_current_state = (yy_last_accepting_state);
835 : 0 : goto yy_find_action;
836 : :
837 : : case 1:
838 [ # # ]: 0 : YY_RULE_SETUP
839 : : #line 71 "scan_touchstone.l"
840 : : { /* pass the 'R' to the parser */ return 'R'; }
841 : : YY_BREAK
842 : : case 2:
843 : : YY_RULE_SETUP
844 : : #line 72 "scan_touchstone.l"
845 : : { /* pass the leading '#' to the parser */ return '#'; }
846 : : YY_BREAK
847 : : case 3:
848 : : /* rule 3 can match eol */
849 : : YY_RULE_SETUP
850 : : #line 73 "scan_touchstone.l"
851 : : { /* detect end of line */ return Eol; }
852 : : YY_BREAK
853 : : case 4:
854 : : YY_RULE_SETUP
855 : : #line 75 "scan_touchstone.l"
856 : : /* skip spaces */
857 : : YY_BREAK
858 : : case 5:
859 : : YY_RULE_SETUP
860 : : #line 77 "scan_touchstone.l"
861 : : { /* identify identifier */
862 : : touchstone_lval.ident = strdup (touchstone_text);
863 : : return Option;
864 : : }
865 : : YY_BREAK
866 : : case 6:
867 : : YY_RULE_SETUP
868 : : #line 82 "scan_touchstone.l"
869 : : { /* identify float */
870 : : touchstone_lval.f = strtod (touchstone_text, NULL);
871 : : return Float;
872 : : }
873 : : YY_BREAK
874 : : case 7:
875 : : YY_RULE_SETUP
876 : : #line 87 "scan_touchstone.l"
877 : : { /* leave these characters */
878 : : BEGIN(COMMENT);
879 : : }
880 : : YY_BREAK
881 : : case 8:
882 : : YY_RULE_SETUP
883 : : #line 91 "scan_touchstone.l"
884 : : { /* any other character in invalid */
885 : : logprint (LOG_ERROR,
886 : : "line %d: syntax error, unrecognized character: `%s'\n",
887 : : touchstone_lineno, touchstone_text);
888 : : return InvalidCharacter;
889 : : }
890 : : YY_BREAK
891 : : case 9:
892 : : YY_RULE_SETUP
893 : : #line 98 "scan_touchstone.l"
894 : : { /* skip any character in here */ }
895 : : YY_BREAK
896 : : case 10:
897 : : /* rule 10 can match eol */
898 : : YY_RULE_SETUP
899 : : #line 99 "scan_touchstone.l"
900 : : { BEGIN(INITIAL); /* skipping ends here */ return Eol; }
901 : : YY_BREAK
902 : : case 11:
903 : : YY_RULE_SETUP
904 : : #line 101 "scan_touchstone.l"
905 : : ECHO;
906 : : YY_BREAK
907 : : #line 908 "scan_touchstone.cpp"
908 : : case YY_STATE_EOF(INITIAL):
909 : : case YY_STATE_EOF(COMMENT):
910 : 0 : yyterminate();
911 : :
912 : : case YY_END_OF_BUFFER:
913 : : {
914 : : /* Amount of text matched not including the EOB char. */
915 : 0 : int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
916 : :
917 : : /* Undo the effects of YY_DO_BEFORE_ACTION. */
918 : 0 : *yy_cp = (yy_hold_char);
919 : : YY_RESTORE_YY_MORE_OFFSET
920 : :
921 [ # # ]: 0 : if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
922 : : {
923 : : /* We're scanning a new file or input source. It's
924 : : * possible that this happened because the user
925 : : * just pointed touchstone_in at a new source and called
926 : : * touchstone_lex(). If so, then we have to assure
927 : : * consistency between YY_CURRENT_BUFFER and our
928 : : * globals. Here is the right place to do so, because
929 : : * this is the first action (other than possibly a
930 : : * back-up) that will match for the new input source.
931 : : */
932 : 0 : (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
933 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_input_file = touchstone_in;
934 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
935 : : }
936 : :
937 : : /* Note that here we test for yy_c_buf_p "<=" to the position
938 : : * of the first EOB in the buffer, since yy_c_buf_p will
939 : : * already have been incremented past the NUL character
940 : : * (since all states make transitions on EOB to the
941 : : * end-of-buffer state). Contrast this with the test
942 : : * in input().
943 : : */
944 [ # # ]: 0 : if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
945 : : { /* This was really a NUL. */
946 : : yy_state_type yy_next_state;
947 : :
948 : 0 : (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
949 : :
950 : 0 : yy_current_state = yy_get_previous_state( );
951 : :
952 : : /* Okay, we're now positioned to make the NUL
953 : : * transition. We couldn't have
954 : : * yy_get_previous_state() go ahead and do it
955 : : * for us because it doesn't know how to deal
956 : : * with the possibility of jamming (and we don't
957 : : * want to build jamming into it because then it
958 : : * will run more slowly).
959 : : */
960 : :
961 : 0 : yy_next_state = yy_try_NUL_trans( yy_current_state );
962 : :
963 : 0 : yy_bp = (yytext_ptr) + YY_MORE_ADJ;
964 : :
965 [ # # ]: 0 : if ( yy_next_state )
966 : : {
967 : : /* Consume the NUL. */
968 : 0 : yy_cp = ++(yy_c_buf_p);
969 : 0 : yy_current_state = yy_next_state;
970 : 0 : goto yy_match;
971 : : }
972 : :
973 : : else
974 : : {
975 : 0 : yy_cp = (yy_c_buf_p);
976 : 0 : goto yy_find_action;
977 : : }
978 : : }
979 : :
980 [ # # # # ]: 0 : else switch ( yy_get_next_buffer( ) )
981 : : {
982 : : case EOB_ACT_END_OF_FILE:
983 : : {
984 : 0 : (yy_did_buffer_switch_on_eof) = 0;
985 : :
986 : : if ( touchstone_wrap( ) )
987 : : {
988 : : /* Note: because we've taken care in
989 : : * yy_get_next_buffer() to have set up
990 : : * touchstone_text, we can now set up
991 : : * yy_c_buf_p so that if some total
992 : : * hoser (like flex itself) wants to
993 : : * call the scanner after we return the
994 : : * YY_NULL, it'll still work - another
995 : : * YY_NULL will get returned.
996 : : */
997 : 0 : (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
998 : :
999 : 0 : yy_act = YY_STATE_EOF(YY_START);
1000 : 0 : goto do_action;
1001 : : }
1002 : :
1003 : : else
1004 : : {
1005 : : if ( ! (yy_did_buffer_switch_on_eof) )
1006 : : YY_NEW_FILE;
1007 : : }
1008 : : break;
1009 : : }
1010 : :
1011 : : case EOB_ACT_CONTINUE_SCAN:
1012 : : (yy_c_buf_p) =
1013 : 0 : (yytext_ptr) + yy_amount_of_matched_text;
1014 : :
1015 : 0 : yy_current_state = yy_get_previous_state( );
1016 : :
1017 : 0 : yy_cp = (yy_c_buf_p);
1018 : 0 : yy_bp = (yytext_ptr) + YY_MORE_ADJ;
1019 : 0 : goto yy_match;
1020 : :
1021 : : case EOB_ACT_LAST_MATCH:
1022 : : (yy_c_buf_p) =
1023 : 0 : &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
1024 : :
1025 : 0 : yy_current_state = yy_get_previous_state( );
1026 : :
1027 : 0 : yy_cp = (yy_c_buf_p);
1028 : 0 : yy_bp = (yytext_ptr) + YY_MORE_ADJ;
1029 : 0 : goto yy_find_action;
1030 : : }
1031 : 0 : break;
1032 : : }
1033 : :
1034 : : default:
1035 : : YY_FATAL_ERROR(
1036 : 0 : "fatal flex scanner internal error--no action found" );
1037 : : } /* end of action switch */
1038 : : } /* end of scanning one token */
1039 : : } /* end of touchstone_lex */
1040 : :
1041 : : /* yy_get_next_buffer - try to read in a new buffer
1042 : : *
1043 : : * Returns a code representing an action:
1044 : : * EOB_ACT_LAST_MATCH -
1045 : : * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
1046 : : * EOB_ACT_END_OF_FILE - end of file
1047 : : */
1048 : 0 : static int yy_get_next_buffer (void)
1049 : : {
1050 : 0 : register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
1051 : 0 : register char *source = (yytext_ptr);
1052 : : register int number_to_move, i;
1053 : : int ret_val;
1054 : :
1055 [ # # ]: 0 : if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
1056 : : YY_FATAL_ERROR(
1057 : 0 : "fatal flex scanner internal error--end of buffer missed" );
1058 : :
1059 [ # # ]: 0 : if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
1060 : : { /* Don't try to fill the buffer, so this is an EOF. */
1061 [ # # ]: 0 : if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
1062 : : {
1063 : : /* We matched a single character, the EOB, so
1064 : : * treat this as a final EOF.
1065 : : */
1066 : 0 : return EOB_ACT_END_OF_FILE;
1067 : : }
1068 : :
1069 : : else
1070 : : {
1071 : : /* We matched some text prior to the EOB, first
1072 : : * process it.
1073 : : */
1074 : 0 : return EOB_ACT_LAST_MATCH;
1075 : : }
1076 : : }
1077 : :
1078 : : /* Try to read more data. */
1079 : :
1080 : : /* First move last chars to start of buffer. */
1081 : 0 : number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
1082 : :
1083 [ # # ]: 0 : for ( i = 0; i < number_to_move; ++i )
1084 : 0 : *(dest++) = *(source++);
1085 : :
1086 [ # # ]: 0 : if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
1087 : : /* don't do the read, it's not guaranteed to return an EOF,
1088 : : * just force an EOF
1089 : : */
1090 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
1091 : :
1092 : : else
1093 : : {
1094 : : yy_size_t num_to_read =
1095 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
1096 : :
1097 [ # # ]: 0 : while ( num_to_read <= 0 )
1098 : : { /* Not enough room in the buffer - grow it. */
1099 : :
1100 : : /* just a shorter name for the current buffer */
1101 : 0 : YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
1102 : :
1103 : : int yy_c_buf_p_offset =
1104 : 0 : (int) ((yy_c_buf_p) - b->yy_ch_buf);
1105 : :
1106 [ # # ]: 0 : if ( b->yy_is_our_buffer )
1107 : : {
1108 : 0 : yy_size_t new_size = b->yy_buf_size * 2;
1109 : :
1110 [ # # ]: 0 : if ( new_size <= 0 )
1111 : 0 : b->yy_buf_size += b->yy_buf_size / 8;
1112 : : else
1113 : 0 : b->yy_buf_size *= 2;
1114 : :
1115 : : b->yy_ch_buf = (char *)
1116 : : /* Include room in for 2 EOB chars. */
1117 : 0 : touchstone_realloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 );
1118 : : }
1119 : : else
1120 : : /* Can't grow it, we don't own it. */
1121 : 0 : b->yy_ch_buf = 0;
1122 : :
1123 [ # # ]: 0 : if ( ! b->yy_ch_buf )
1124 : : YY_FATAL_ERROR(
1125 : 0 : "fatal error - scanner input buffer overflow" );
1126 : :
1127 : 0 : (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
1128 : :
1129 : 0 : num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
1130 : 0 : number_to_move - 1;
1131 : :
1132 : : }
1133 : :
1134 [ # # ]: 0 : if ( num_to_read > YY_READ_BUF_SIZE )
1135 : 0 : num_to_read = YY_READ_BUF_SIZE;
1136 : :
1137 : : /* Read in more data. */
1138 [ # # ][ # # ]: 0 : YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
1139 : : (yy_n_chars), num_to_read );
1140 : :
1141 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1142 : : }
1143 : :
1144 [ # # ]: 0 : if ( (yy_n_chars) == 0 )
1145 : : {
1146 [ # # ]: 0 : if ( number_to_move == YY_MORE_ADJ )
1147 : : {
1148 : 0 : ret_val = EOB_ACT_END_OF_FILE;
1149 : 0 : touchstone_restart(touchstone_in );
1150 : : }
1151 : :
1152 : : else
1153 : : {
1154 : 0 : ret_val = EOB_ACT_LAST_MATCH;
1155 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
1156 : 0 : YY_BUFFER_EOF_PENDING;
1157 : : }
1158 : : }
1159 : :
1160 : : else
1161 : 0 : ret_val = EOB_ACT_CONTINUE_SCAN;
1162 : :
1163 [ # # ]: 0 : if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
1164 : : /* Extend the array by 50%, plus the number we really need. */
1165 : 0 : yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
1166 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) touchstone_realloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
1167 [ # # ]: 0 : if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
1168 : 0 : YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
1169 : : }
1170 : :
1171 : 0 : (yy_n_chars) += number_to_move;
1172 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
1173 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
1174 : :
1175 : 0 : (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
1176 : :
1177 : 0 : return ret_val;
1178 : : }
1179 : :
1180 : : /* yy_get_previous_state - get the state just before the EOB char was reached */
1181 : :
1182 : 0 : static yy_state_type yy_get_previous_state (void)
1183 : : {
1184 : : register yy_state_type yy_current_state;
1185 : : register char *yy_cp;
1186 : :
1187 : 0 : yy_current_state = (yy_start);
1188 : 0 : yy_current_state += YY_AT_BOL();
1189 : :
1190 [ # # ]: 0 : for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
1191 : : {
1192 [ # # ]: 0 : register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
1193 [ # # ]: 0 : if ( yy_accept[yy_current_state] )
1194 : : {
1195 : 0 : (yy_last_accepting_state) = yy_current_state;
1196 : 0 : (yy_last_accepting_cpos) = yy_cp;
1197 : : }
1198 [ # # ]: 0 : while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1199 : : {
1200 : 0 : yy_current_state = (int) yy_def[yy_current_state];
1201 [ # # ]: 0 : if ( yy_current_state >= 34 )
1202 : 0 : yy_c = yy_meta[(unsigned int) yy_c];
1203 : : }
1204 : 0 : yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1205 : : }
1206 : :
1207 : 0 : return yy_current_state;
1208 : : }
1209 : :
1210 : : /* yy_try_NUL_trans - try to make a transition on the NUL character
1211 : : *
1212 : : * synopsis
1213 : : * next_state = yy_try_NUL_trans( current_state );
1214 : : */
1215 : 0 : static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
1216 : : {
1217 : : register int yy_is_jam;
1218 : 0 : register char *yy_cp = (yy_c_buf_p);
1219 : :
1220 : 0 : register YY_CHAR yy_c = 1;
1221 [ # # ]: 0 : if ( yy_accept[yy_current_state] )
1222 : : {
1223 : 0 : (yy_last_accepting_state) = yy_current_state;
1224 : 0 : (yy_last_accepting_cpos) = yy_cp;
1225 : : }
1226 [ # # ]: 0 : while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1227 : : {
1228 : 0 : yy_current_state = (int) yy_def[yy_current_state];
1229 [ # # ]: 0 : if ( yy_current_state >= 34 )
1230 : 0 : yy_c = yy_meta[(unsigned int) yy_c];
1231 : : }
1232 : 0 : yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1233 : 0 : yy_is_jam = (yy_current_state == 33);
1234 : :
1235 [ # # ]: 0 : return yy_is_jam ? 0 : yy_current_state;
1236 : : }
1237 : :
1238 : : #ifndef YY_NO_INPUT
1239 : : #ifdef __cplusplus
1240 : 0 : static int yyinput (void)
1241 : : #else
1242 : : static int input (void)
1243 : : #endif
1244 : :
1245 : : {
1246 : : int c;
1247 : :
1248 : 0 : *(yy_c_buf_p) = (yy_hold_char);
1249 : :
1250 [ # # ]: 0 : if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
1251 : : {
1252 : : /* yy_c_buf_p now points to the character we want to return.
1253 : : * If this occurs *before* the EOB characters, then it's a
1254 : : * valid NUL; if not, then we've hit the end of the buffer.
1255 : : */
1256 [ # # ]: 0 : if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
1257 : : /* This was really a NUL. */
1258 : 0 : *(yy_c_buf_p) = '\0';
1259 : :
1260 : : else
1261 : : { /* need more input */
1262 : 0 : yy_size_t offset = (yy_c_buf_p) - (yytext_ptr);
1263 : 0 : ++(yy_c_buf_p);
1264 : :
1265 [ # # # # ]: 0 : switch ( yy_get_next_buffer( ) )
1266 : : {
1267 : : case EOB_ACT_LAST_MATCH:
1268 : : /* This happens because yy_g_n_b()
1269 : : * sees that we've accumulated a
1270 : : * token and flags that we need to
1271 : : * try matching the token before
1272 : : * proceeding. But for input(),
1273 : : * there's no matching to consider.
1274 : : * So convert the EOB_ACT_LAST_MATCH
1275 : : * to EOB_ACT_END_OF_FILE.
1276 : : */
1277 : :
1278 : : /* Reset buffer status. */
1279 : 0 : touchstone_restart(touchstone_in );
1280 : :
1281 : : /*FALLTHROUGH*/
1282 : :
1283 : : case EOB_ACT_END_OF_FILE:
1284 : : {
1285 : : if ( touchstone_wrap( ) )
1286 : 0 : return EOF;
1287 : :
1288 : : if ( ! (yy_did_buffer_switch_on_eof) )
1289 : : YY_NEW_FILE;
1290 : : #ifdef __cplusplus
1291 : : return yyinput();
1292 : : #else
1293 : : return input();
1294 : : #endif
1295 : : }
1296 : :
1297 : : case EOB_ACT_CONTINUE_SCAN:
1298 : 0 : (yy_c_buf_p) = (yytext_ptr) + offset;
1299 : 0 : break;
1300 : : }
1301 : : }
1302 : : }
1303 : :
1304 : 0 : c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
1305 : 0 : *(yy_c_buf_p) = '\0'; /* preserve touchstone_text */
1306 : 0 : (yy_hold_char) = *++(yy_c_buf_p);
1307 : :
1308 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
1309 [ # # ]: 0 : if ( YY_CURRENT_BUFFER_LVALUE->yy_at_bol )
1310 : :
1311 : 0 : touchstone_lineno++;
1312 : : ;
1313 : :
1314 : 0 : return c;
1315 : : }
1316 : : #endif /* ifndef YY_NO_INPUT */
1317 : :
1318 : : /** Immediately switch to a different input stream.
1319 : : * @param input_file A readable stream.
1320 : : *
1321 : : * @note This function does not reset the start condition to @c INITIAL .
1322 : : */
1323 : 0 : void touchstone_restart (FILE * input_file )
1324 : : {
1325 : :
1326 [ # # ][ # # ]: 0 : if ( ! YY_CURRENT_BUFFER ){
1327 : 0 : touchstone_ensure_buffer_stack ();
1328 : 0 : YY_CURRENT_BUFFER_LVALUE =
1329 : 0 : touchstone__create_buffer(touchstone_in,YY_BUF_SIZE );
1330 : : }
1331 : :
1332 [ # # ]: 0 : touchstone__init_buffer(YY_CURRENT_BUFFER,input_file );
1333 : 0 : touchstone__load_buffer_state( );
1334 : 0 : }
1335 : :
1336 : : /** Switch to a different input buffer.
1337 : : * @param new_buffer The new input buffer.
1338 : : *
1339 : : */
1340 : 0 : void touchstone__switch_to_buffer (YY_BUFFER_STATE new_buffer )
1341 : : {
1342 : :
1343 : : /* TODO. We should be able to replace this entire function body
1344 : : * with
1345 : : * touchstone_pop_buffer_state();
1346 : : * touchstone_push_buffer_state(new_buffer);
1347 : : */
1348 : 0 : touchstone_ensure_buffer_stack ();
1349 [ # # ][ # # ]: 0 : if ( YY_CURRENT_BUFFER == new_buffer )
1350 : 0 : return;
1351 : :
1352 [ # # ][ # # ]: 0 : if ( YY_CURRENT_BUFFER )
1353 : : {
1354 : : /* Flush out information for old buffer. */
1355 : 0 : *(yy_c_buf_p) = (yy_hold_char);
1356 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
1357 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1358 : : }
1359 : :
1360 : 0 : YY_CURRENT_BUFFER_LVALUE = new_buffer;
1361 : 0 : touchstone__load_buffer_state( );
1362 : :
1363 : : /* We don't actually know whether we did this switch during
1364 : : * EOF (touchstone_wrap()) processing, but the only time this flag
1365 : : * is looked at is after touchstone_wrap() is called, so it's safe
1366 : : * to go ahead and always set it.
1367 : : */
1368 : 0 : (yy_did_buffer_switch_on_eof) = 1;
1369 : : }
1370 : :
1371 : 0 : static void touchstone__load_buffer_state (void)
1372 : : {
1373 : 0 : (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
1374 : 0 : (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
1375 : 0 : touchstone_in = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
1376 : 0 : (yy_hold_char) = *(yy_c_buf_p);
1377 : 0 : }
1378 : :
1379 : : /** Allocate and initialize an input buffer state.
1380 : : * @param file A readable stream.
1381 : : * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
1382 : : *
1383 : : * @return the allocated buffer state.
1384 : : */
1385 : 0 : YY_BUFFER_STATE touchstone__create_buffer (FILE * file, int size )
1386 : : {
1387 : : YY_BUFFER_STATE b;
1388 : :
1389 : 0 : b = (YY_BUFFER_STATE) touchstone_alloc(sizeof( struct yy_buffer_state ) );
1390 [ # # ]: 0 : if ( ! b )
1391 : 0 : YY_FATAL_ERROR( "out of dynamic memory in touchstone__create_buffer()" );
1392 : :
1393 : 0 : b->yy_buf_size = size;
1394 : :
1395 : : /* yy_ch_buf has to be 2 characters longer than the size given because
1396 : : * we need to put in 2 end-of-buffer characters.
1397 : : */
1398 : 0 : b->yy_ch_buf = (char *) touchstone_alloc(b->yy_buf_size + 2 );
1399 [ # # ]: 0 : if ( ! b->yy_ch_buf )
1400 : 0 : YY_FATAL_ERROR( "out of dynamic memory in touchstone__create_buffer()" );
1401 : :
1402 : 0 : b->yy_is_our_buffer = 1;
1403 : :
1404 : 0 : touchstone__init_buffer(b,file );
1405 : :
1406 : 0 : return b;
1407 : : }
1408 : :
1409 : : /** Destroy the buffer.
1410 : : * @param b a buffer created with touchstone__create_buffer()
1411 : : *
1412 : : */
1413 : 0 : void touchstone__delete_buffer (YY_BUFFER_STATE b )
1414 : : {
1415 : :
1416 [ # # ]: 0 : if ( ! b )
1417 : 0 : return;
1418 : :
1419 [ # # ][ # # ]: 0 : if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
1420 : 0 : YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
1421 : :
1422 [ # # ]: 0 : if ( b->yy_is_our_buffer )
1423 : 0 : touchstone_free((void *) b->yy_ch_buf );
1424 : :
1425 : 0 : touchstone_free((void *) b );
1426 : : }
1427 : :
1428 : : /* Initializes or reinitializes a buffer.
1429 : : * This function is sometimes called more than once on the same buffer,
1430 : : * such as during a touchstone_restart() or at EOF.
1431 : : */
1432 : 0 : static void touchstone__init_buffer (YY_BUFFER_STATE b, FILE * file )
1433 : :
1434 : : {
1435 : 0 : int oerrno = errno;
1436 : :
1437 : 0 : touchstone__flush_buffer(b );
1438 : :
1439 : 0 : b->yy_input_file = file;
1440 : 0 : b->yy_fill_buffer = 1;
1441 : :
1442 : : /* If b is the current buffer, then touchstone__init_buffer was _probably_
1443 : : * called from touchstone_restart() or through yy_get_next_buffer.
1444 : : * In that case, we don't want to reset the lineno or column.
1445 : : */
1446 [ # # ][ # # ]: 0 : if (b != YY_CURRENT_BUFFER){
1447 : 0 : b->yy_bs_lineno = 1;
1448 : 0 : b->yy_bs_column = 0;
1449 : : }
1450 : :
1451 [ # # ][ # # ]: 0 : b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
1452 : :
1453 : 0 : errno = oerrno;
1454 : 0 : }
1455 : :
1456 : : /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
1457 : : * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
1458 : : *
1459 : : */
1460 : 0 : void touchstone__flush_buffer (YY_BUFFER_STATE b )
1461 : : {
1462 [ # # ]: 0 : if ( ! b )
1463 : 0 : return;
1464 : :
1465 : 0 : b->yy_n_chars = 0;
1466 : :
1467 : : /* We always need two end-of-buffer characters. The first causes
1468 : : * a transition to the end-of-buffer state. The second causes
1469 : : * a jam in that state.
1470 : : */
1471 : 0 : b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
1472 : 0 : b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
1473 : :
1474 : 0 : b->yy_buf_pos = &b->yy_ch_buf[0];
1475 : :
1476 : 0 : b->yy_at_bol = 1;
1477 : 0 : b->yy_buffer_status = YY_BUFFER_NEW;
1478 : :
1479 [ # # ][ # # ]: 0 : if ( b == YY_CURRENT_BUFFER )
1480 : 0 : touchstone__load_buffer_state( );
1481 : : }
1482 : :
1483 : : /** Pushes the new state onto the stack. The new state becomes
1484 : : * the current state. This function will allocate the stack
1485 : : * if necessary.
1486 : : * @param new_buffer The new state.
1487 : : *
1488 : : */
1489 : 0 : void touchstone_push_buffer_state (YY_BUFFER_STATE new_buffer )
1490 : : {
1491 [ # # ]: 0 : if (new_buffer == NULL)
1492 : 0 : return;
1493 : :
1494 : 0 : touchstone_ensure_buffer_stack();
1495 : :
1496 : : /* This block is copied from touchstone__switch_to_buffer. */
1497 [ # # ][ # # ]: 0 : if ( YY_CURRENT_BUFFER )
1498 : : {
1499 : : /* Flush out information for old buffer. */
1500 : 0 : *(yy_c_buf_p) = (yy_hold_char);
1501 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
1502 : 0 : YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1503 : : }
1504 : :
1505 : : /* Only push if top exists. Otherwise, replace top. */
1506 [ # # ][ # # ]: 0 : if (YY_CURRENT_BUFFER)
1507 : 0 : (yy_buffer_stack_top)++;
1508 : 0 : YY_CURRENT_BUFFER_LVALUE = new_buffer;
1509 : :
1510 : : /* copied from touchstone__switch_to_buffer. */
1511 : 0 : touchstone__load_buffer_state( );
1512 : 0 : (yy_did_buffer_switch_on_eof) = 1;
1513 : : }
1514 : :
1515 : : /** Removes and deletes the top of the stack, if present.
1516 : : * The next element becomes the new top.
1517 : : *
1518 : : */
1519 : 0 : void touchstone_pop_buffer_state (void)
1520 : : {
1521 [ # # ][ # # ]: 0 : if (!YY_CURRENT_BUFFER)
1522 : 0 : return;
1523 : :
1524 [ # # ]: 0 : touchstone__delete_buffer(YY_CURRENT_BUFFER );
1525 : 0 : YY_CURRENT_BUFFER_LVALUE = NULL;
1526 [ # # ]: 0 : if ((yy_buffer_stack_top) > 0)
1527 : 0 : --(yy_buffer_stack_top);
1528 : :
1529 [ # # ][ # # ]: 0 : if (YY_CURRENT_BUFFER) {
1530 : 0 : touchstone__load_buffer_state( );
1531 : 0 : (yy_did_buffer_switch_on_eof) = 1;
1532 : : }
1533 : : }
1534 : :
1535 : : /* Allocates the stack if it does not exist.
1536 : : * Guarantees space for at least one push.
1537 : : */
1538 : 0 : static void touchstone_ensure_buffer_stack (void)
1539 : : {
1540 : : yy_size_t num_to_alloc;
1541 : :
1542 [ # # ]: 0 : if (!(yy_buffer_stack)) {
1543 : :
1544 : : /* First allocation is just for 2 elements, since we don't know if this
1545 : : * scanner will even need a stack. We use 2 instead of 1 to avoid an
1546 : : * immediate realloc on the next call.
1547 : : */
1548 : 0 : num_to_alloc = 1;
1549 : : (yy_buffer_stack) = (struct yy_buffer_state**)touchstone_alloc
1550 : : (num_to_alloc * sizeof(struct yy_buffer_state*)
1551 : 0 : );
1552 [ # # ]: 0 : if ( ! (yy_buffer_stack) )
1553 : 0 : YY_FATAL_ERROR( "out of dynamic memory in touchstone_ensure_buffer_stack()" );
1554 : :
1555 : 0 : memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
1556 : :
1557 : 0 : (yy_buffer_stack_max) = num_to_alloc;
1558 : 0 : (yy_buffer_stack_top) = 0;
1559 : 0 : return;
1560 : : }
1561 : :
1562 [ # # ]: 0 : if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
1563 : :
1564 : : /* Increase the buffer to prepare for a possible push. */
1565 : 0 : int grow_size = 8 /* arbitrary grow size */;
1566 : :
1567 : 0 : num_to_alloc = (yy_buffer_stack_max) + grow_size;
1568 : : (yy_buffer_stack) = (struct yy_buffer_state**)touchstone_realloc
1569 : : ((yy_buffer_stack),
1570 : : num_to_alloc * sizeof(struct yy_buffer_state*)
1571 : 0 : );
1572 [ # # ]: 0 : if ( ! (yy_buffer_stack) )
1573 : 0 : YY_FATAL_ERROR( "out of dynamic memory in touchstone_ensure_buffer_stack()" );
1574 : :
1575 : : /* zero only the new slots.*/
1576 : 0 : memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
1577 : 0 : (yy_buffer_stack_max) = num_to_alloc;
1578 : : }
1579 : : }
1580 : :
1581 : : /** Setup the input buffer state to scan directly from a user-specified character buffer.
1582 : : * @param base the character buffer
1583 : : * @param size the size in bytes of the character buffer
1584 : : *
1585 : : * @return the newly allocated buffer state object.
1586 : : */
1587 : 0 : YY_BUFFER_STATE touchstone__scan_buffer (char * base, yy_size_t size )
1588 : : {
1589 : : YY_BUFFER_STATE b;
1590 : :
1591 [ # # ][ # # ]: 0 : if ( size < 2 ||
[ # # ]
1592 : 0 : base[size-2] != YY_END_OF_BUFFER_CHAR ||
1593 : 0 : base[size-1] != YY_END_OF_BUFFER_CHAR )
1594 : : /* They forgot to leave room for the EOB's. */
1595 : 0 : return 0;
1596 : :
1597 : 0 : b = (YY_BUFFER_STATE) touchstone_alloc(sizeof( struct yy_buffer_state ) );
1598 [ # # ]: 0 : if ( ! b )
1599 : 0 : YY_FATAL_ERROR( "out of dynamic memory in touchstone__scan_buffer()" );
1600 : :
1601 : 0 : b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
1602 : 0 : b->yy_buf_pos = b->yy_ch_buf = base;
1603 : 0 : b->yy_is_our_buffer = 0;
1604 : 0 : b->yy_input_file = 0;
1605 : 0 : b->yy_n_chars = b->yy_buf_size;
1606 : 0 : b->yy_is_interactive = 0;
1607 : 0 : b->yy_at_bol = 1;
1608 : 0 : b->yy_fill_buffer = 0;
1609 : 0 : b->yy_buffer_status = YY_BUFFER_NEW;
1610 : :
1611 : 0 : touchstone__switch_to_buffer(b );
1612 : :
1613 : 0 : return b;
1614 : : }
1615 : :
1616 : : /** Setup the input buffer state to scan a string. The next call to touchstone_lex() will
1617 : : * scan from a @e copy of @a str.
1618 : : * @param yystr a NUL-terminated string to scan
1619 : : *
1620 : : * @return the newly allocated buffer state object.
1621 : : * @note If you want to scan bytes that may contain NUL values, then use
1622 : : * touchstone__scan_bytes() instead.
1623 : : */
1624 : 0 : YY_BUFFER_STATE touchstone__scan_string (yyconst char * yystr )
1625 : : {
1626 : :
1627 : 0 : return touchstone__scan_bytes(yystr,strlen(yystr) );
1628 : : }
1629 : :
1630 : : /** Setup the input buffer state to scan the given bytes. The next call to touchstone_lex() will
1631 : : * scan from a @e copy of @a bytes.
1632 : : * @param yybytes the byte buffer to scan
1633 : : * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
1634 : : *
1635 : : * @return the newly allocated buffer state object.
1636 : : */
1637 : 0 : YY_BUFFER_STATE touchstone__scan_bytes (yyconst char * yybytes, yy_size_t _yybytes_len )
1638 : : {
1639 : : YY_BUFFER_STATE b;
1640 : : char *buf;
1641 : : yy_size_t n;
1642 : : int i;
1643 : :
1644 : : /* Get memory for full buffer, including space for trailing EOB's. */
1645 : 0 : n = _yybytes_len + 2;
1646 : 0 : buf = (char *) touchstone_alloc(n );
1647 [ # # ]: 0 : if ( ! buf )
1648 : 0 : YY_FATAL_ERROR( "out of dynamic memory in touchstone__scan_bytes()" );
1649 : :
1650 [ # # ]: 0 : for ( i = 0; i < _yybytes_len; ++i )
1651 : 0 : buf[i] = yybytes[i];
1652 : :
1653 : 0 : buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
1654 : :
1655 : 0 : b = touchstone__scan_buffer(buf,n );
1656 [ # # ]: 0 : if ( ! b )
1657 : 0 : YY_FATAL_ERROR( "bad buffer in touchstone__scan_bytes()" );
1658 : :
1659 : : /* It's okay to grow etc. this buffer, and we should throw it
1660 : : * away when we're done.
1661 : : */
1662 : 0 : b->yy_is_our_buffer = 1;
1663 : :
1664 : 0 : return b;
1665 : : }
1666 : :
1667 : : #ifndef YY_EXIT_FAILURE
1668 : : #define YY_EXIT_FAILURE 2
1669 : : #endif
1670 : :
1671 : 0 : static void yy_fatal_error (yyconst char* msg )
1672 : : {
1673 : 0 : (void) fprintf( stderr, "%s\n", msg );
1674 : 0 : exit( YY_EXIT_FAILURE );
1675 : : }
1676 : :
1677 : : /* Redefine yyless() so it works in section 3 code. */
1678 : :
1679 : : #undef yyless
1680 : : #define yyless(n) \
1681 : : do \
1682 : : { \
1683 : : /* Undo effects of setting up touchstone_text. */ \
1684 : : int yyless_macro_arg = (n); \
1685 : : YY_LESS_LINENO(yyless_macro_arg);\
1686 : : touchstone_text[touchstone_leng] = (yy_hold_char); \
1687 : : (yy_c_buf_p) = touchstone_text + yyless_macro_arg; \
1688 : : (yy_hold_char) = *(yy_c_buf_p); \
1689 : : *(yy_c_buf_p) = '\0'; \
1690 : : touchstone_leng = yyless_macro_arg; \
1691 : : } \
1692 : : while ( 0 )
1693 : :
1694 : : /* Accessor methods (get/set functions) to struct members. */
1695 : :
1696 : : /** Get the current line number.
1697 : : *
1698 : : */
1699 : 0 : int touchstone_get_lineno (void)
1700 : : {
1701 : :
1702 : 0 : return touchstone_lineno;
1703 : : }
1704 : :
1705 : : /** Get the input stream.
1706 : : *
1707 : : */
1708 : 0 : FILE *touchstone_get_in (void)
1709 : : {
1710 : 0 : return touchstone_in;
1711 : : }
1712 : :
1713 : : /** Get the output stream.
1714 : : *
1715 : : */
1716 : 0 : FILE *touchstone_get_out (void)
1717 : : {
1718 : 0 : return touchstone_out;
1719 : : }
1720 : :
1721 : : /** Get the length of the current token.
1722 : : *
1723 : : */
1724 : 0 : yy_size_t touchstone_get_leng (void)
1725 : : {
1726 : 0 : return touchstone_leng;
1727 : : }
1728 : :
1729 : : /** Get the current token.
1730 : : *
1731 : : */
1732 : :
1733 : 0 : char *touchstone_get_text (void)
1734 : : {
1735 : 0 : return touchstone_text;
1736 : : }
1737 : :
1738 : : /** Set the current line number.
1739 : : * @param line_number
1740 : : *
1741 : : */
1742 : 0 : void touchstone_set_lineno (int line_number )
1743 : : {
1744 : :
1745 : 0 : touchstone_lineno = line_number;
1746 : 0 : }
1747 : :
1748 : : /** Set the input stream. This does not discard the current
1749 : : * input buffer.
1750 : : * @param in_str A readable stream.
1751 : : *
1752 : : * @see touchstone__switch_to_buffer
1753 : : */
1754 : 0 : void touchstone_set_in (FILE * in_str )
1755 : : {
1756 : 0 : touchstone_in = in_str ;
1757 : 0 : }
1758 : :
1759 : 0 : void touchstone_set_out (FILE * out_str )
1760 : : {
1761 : 0 : touchstone_out = out_str ;
1762 : 0 : }
1763 : :
1764 : 0 : int touchstone_get_debug (void)
1765 : : {
1766 : 0 : return touchstone__flex_debug;
1767 : : }
1768 : :
1769 : 0 : void touchstone_set_debug (int bdebug )
1770 : : {
1771 : 0 : touchstone__flex_debug = bdebug ;
1772 : 0 : }
1773 : :
1774 : 0 : static int yy_init_globals (void)
1775 : : {
1776 : : /* Initialization is the same as for the non-reentrant scanner.
1777 : : * This function is called from touchstone_lex_destroy(), so don't allocate here.
1778 : : */
1779 : :
1780 : : /* We do not touch touchstone_lineno unless the option is enabled. */
1781 : 0 : touchstone_lineno = 1;
1782 : :
1783 : 0 : (yy_buffer_stack) = 0;
1784 : 0 : (yy_buffer_stack_top) = 0;
1785 : 0 : (yy_buffer_stack_max) = 0;
1786 : 0 : (yy_c_buf_p) = (char *) 0;
1787 : 0 : (yy_init) = 0;
1788 : 0 : (yy_start) = 0;
1789 : :
1790 : : /* Defined in main.c */
1791 : : #ifdef YY_STDINIT
1792 : : touchstone_in = stdin;
1793 : : touchstone_out = stdout;
1794 : : #else
1795 : 0 : touchstone_in = (FILE *) 0;
1796 : 0 : touchstone_out = (FILE *) 0;
1797 : : #endif
1798 : :
1799 : : /* For future reference: Set errno on error, since we are called by
1800 : : * touchstone_lex_init()
1801 : : */
1802 : 0 : return 0;
1803 : : }
1804 : :
1805 : : /* touchstone_lex_destroy is for both reentrant and non-reentrant scanners. */
1806 : 0 : int touchstone_lex_destroy (void)
1807 : : {
1808 : :
1809 : : /* Pop the buffer stack, destroying each element. */
1810 [ # # ][ # # ]: 0 : while(YY_CURRENT_BUFFER){
[ # # ]
1811 [ # # ]: 0 : touchstone__delete_buffer(YY_CURRENT_BUFFER );
1812 : 0 : YY_CURRENT_BUFFER_LVALUE = NULL;
1813 : 0 : touchstone_pop_buffer_state();
1814 : : }
1815 : :
1816 : : /* Destroy the stack itself. */
1817 : 0 : touchstone_free((yy_buffer_stack) );
1818 : 0 : (yy_buffer_stack) = NULL;
1819 : :
1820 : : /* Reset the globals. This is important in a non-reentrant scanner so the next time
1821 : : * touchstone_lex() is called, initialization will occur. */
1822 : 0 : yy_init_globals( );
1823 : :
1824 : 0 : return 0;
1825 : : }
1826 : :
1827 : : /*
1828 : : * Internal utility routines.
1829 : : */
1830 : :
1831 : : #ifndef yytext_ptr
1832 : : static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
1833 : : {
1834 : : register int i;
1835 : : for ( i = 0; i < n; ++i )
1836 : : s1[i] = s2[i];
1837 : : }
1838 : : #endif
1839 : :
1840 : : #ifdef YY_NEED_STRLEN
1841 : : static int yy_flex_strlen (yyconst char * s )
1842 : : {
1843 : : register int n;
1844 : : for ( n = 0; s[n]; ++n )
1845 : : ;
1846 : :
1847 : : return n;
1848 : : }
1849 : : #endif
1850 : :
1851 : 0 : void *touchstone_alloc (yy_size_t size )
1852 : : {
1853 : 0 : return (void *) malloc( size );
1854 : : }
1855 : :
1856 : 0 : void *touchstone_realloc (void * ptr, yy_size_t size )
1857 : : {
1858 : : /* The cast to (char *) in the following accommodates both
1859 : : * implementations that use char* generic pointers, and those
1860 : : * that use void* generic pointers. It works with the latter
1861 : : * because both ANSI C and C++ allow castless assignment from
1862 : : * any pointer type to void*, and deal with argument conversions
1863 : : * as though doing an assignment.
1864 : : */
1865 : 0 : return (void *) realloc( (char *) ptr, size );
1866 : : }
1867 : :
1868 : 0 : void touchstone_free (void * ptr )
1869 : : {
1870 : 0 : free( (char *) ptr ); /* see touchstone_realloc() for (char *) cast */
1871 : 0 : }
1872 : :
1873 : : #define YYTABLES_NAME "yytables"
1874 : :
1875 : : #line 101 "scan_touchstone.l"
1876 : :
1877 : :
1878 : :
|
