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