?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
NHDT->ANH, nethack->anethack, nhdat->anhdat
[aNetHack.git] / sys / share / lev_lex.c
blob8d25bd0ceb8deb2661346d09b919183f71e2f677
1
2 #line 3 "lev_lex.c"
3
4 #define YY_INT_ALIGNED short int
5
6 /* A lexical scanner generated by flex via 'flex -S flexhack.skl'
7 * where flexhack.skl is a anethack-specific alternate skeleton derived
8 * from flex 2.6.0's skel.c (which in turn was generated from flex.skl).
9 *
10 * Support for C++, re-entrancy, and table serialization stripped out.
11 * aNetHack's usage doesn't need them and we want to reduce the size and
12 * complexity of this skeleton as well as of the generated scanner code.
13 */
14 #define FLEXHACK_SCANNER
15 #define YY_FLEX_MAJOR_VERSION 2
16 #define YY_FLEX_MINOR_VERSION 6
17 #define YY_FLEX_SUBMINOR_VERSION 0
18
19 #include "config.h"
20
21 #include <errno.h>
22
23 /* we don't care if actual types happen to have more bits than their names;
24 the tables will just take up more space, possibly slowing the parse;
25 still, allow config.h to override these via typedef+#define if desired */
26 #ifndef FLEX_INT32_T
27 typedef int flex_int32_t;
28 #endif
29 #ifndef FLEX_INT16_T
30 typedef short int flex_int16_t;
31 #endif
32 #ifndef FLEX_UINT16_T
33 typedef unsigned short int flex_uint16_t;
34 #endif
35
36 #define yyconst const
37
38 #define FDECL_dummy /*empty*/
39
40 /* Returned upon end-of-file. */
41 #define YY_NULL 0
42
43 /* Promotes a possibly negative, possibly signed char to an unsigned
44 * integer for use as an array index. If the signed char is negative,
45 * we want to instead treat it as an 8-bit unsigned char, hence the
46 * double cast.
47 */
48 #define YY_SC_TO_UI(c) ((unsigned int) (uchar) c)
49
50 /* Enter a start condition. This macro really ought to take a parameter,
51 * but we do it the disgusting crufty way forced on us by the ()-less
52 * definition of BEGIN.
53 */
54 #define BEGIN (yy_start) = 1 + 2 *
55
56 /* Translate the current start state into a value that can be later handed
57 * to BEGIN to return to the state. The YYSTATE alias is for lex
58 * compatibility.
59 */
60 #define YY_START (((yy_start) - 1) / 2)
61 #define YYSTATE YY_START
62
63 /* Action number for EOF rule of a given start state. */
64 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
65
66 /* Special action meaning "start processing a new file". */
67 #define YY_NEW_FILE yyrestart(yyin )
68
69 #define YY_END_OF_BUFFER_CHAR 0
70
71 /* Size of default input buffer. */
72 #ifndef YY_BUF_SIZE
73 #ifdef __ia64__
74 /* On IA-64, the buffer size is 16k, not 8k.
75 * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
76 * Ditto for the __ia64__ case accordingly.
77 */
78 #define YY_BUF_SIZE 32768
79 #else
80 #define YY_BUF_SIZE 16384
81 #endif /* __ia64__ */
82 #endif
83
84 /* The state buf must be large enough to hold one state per character
85 * in the main buffer.
86 */
87 #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
88
89 #ifndef YY_TYPEDEF_YY_BUFFER_STATE
90 #define YY_TYPEDEF_YY_BUFFER_STATE
91 typedef struct yy_buffer_state *YY_BUFFER_STATE;
92 #endif
93
94 #ifndef YY_TYPEDEF_YY_SIZE_T
95 #define YY_TYPEDEF_YY_SIZE_T
96 typedef size_t yy_size_t;
97 #endif
98
99 extern yy_size_t yyleng;
100 extern FILE *yyin, *yyout;
101
102 #define EOB_ACT_CONTINUE_SCAN 0
103 #define EOB_ACT_END_OF_FILE 1
104 #define EOB_ACT_LAST_MATCH 2
105
106 #define YY_LESS_LINENO(n)
107 #define YY_LINENO_REWIND_TO(ptr)
108
109 /* Return all but the first "n" matched characters back to the input stream. */
110 #define yyless(n) \
111 do { \
112 /* Undo effects of setting up yytext. */ \
113 int yyless_macro_arg = (n); \
114 YY_LESS_LINENO(yyless_macro_arg); \
115 *yy_cp = (yy_hold_char); \
116 YY_RESTORE_YY_MORE_OFFSET \
117 (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
118 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
119 } while ( 0 )
120
121 #define unput(c) yyunput( c, (yytext_ptr) )
122
123 #ifndef YY_STRUCT_YY_BUFFER_STATE
124 #define YY_STRUCT_YY_BUFFER_STATE
125 struct yy_buffer_state {
126 FILE *yy_input_file;
127
128 char *yy_ch_buf; /* input buffer */
129 char *yy_buf_pos; /* current position in input buffer */
130
131 /* Size of input buffer in bytes, not including room for EOB
132 * characters.
133 */
134 yy_size_t yy_buf_size;
135
136 /* Number of characters read into yy_ch_buf, not including EOB
137 * characters.
138 */
139 yy_size_t yy_n_chars;
140
141 /* Whether we "own" the buffer - i.e., we know we created it,
142 * and can realloc() it to grow it, and should free() it to
143 * delete it.
144 */
145 int yy_is_our_buffer;
146
147 /* Whether this is an "interactive" input source; if so, and
148 * if we're using stdio for input, then we want to use getc()
149 * instead of fread(), to make sure we stop fetching input after
150 * each newline.
151 */
152 int yy_is_interactive;
153
154 /* Whether we're considered to be at the beginning of a line.
155 * If so, '^' rules will be active on the next match, otherwise
156 * not.
157 */
158 int yy_at_bol;
159
160 int yy_bs_lineno; /**< The line count. */
161 int yy_bs_column; /**< The column count. */
162
163 /* Whether to try to fill the input buffer when we reach the
164 * end of it.
165 */
166 int yy_fill_buffer;
167
168 int yy_buffer_status;
169
170 #define YY_BUFFER_NEW 0
171 #define YY_BUFFER_NORMAL 1
172 /* When an EOF's been seen but there's still some text to process
173 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
174 * shouldn't try reading from the input source any more. We might
175 * still have a bunch of tokens to match, though, because of
176 * possible backing-up.
177 *
178 * When we actually see the EOF, we change the status to "new"
179 * (via yyrestart()), so that the user can continue scanning by
180 * just pointing yyin at a new input file.
181 */
182 #define YY_BUFFER_EOF_PENDING 2
183
184 };
185 #endif /* !YY_STRUCT_YY_BUFFER_STATE */
186
187 /* Stack of input buffers. */
188 static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
189 static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
190 static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
191
192 /* We provide macros for accessing buffer states in case in the
193 * future we want to put the buffer states in a more general
194 * "scanner state".
195 *
196 * Returns the top of the stack, or NULL.
197 */
198 #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
199 ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
200 : NULL)
201
202 /* Same as previous macro, but useful when we know that the buffer stack is not
203 * NULL or when we need an lvalue. For internal use only.
204 */
205 #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
206
207 /* yy_hold_char holds the character lost when yytext is formed. */
208 static char yy_hold_char;
209 static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */
210 yy_size_t yyleng;
211
212 /* Points to current character in buffer. */
213 static char *yy_c_buf_p = (char *) 0;
214 static int yy_init = 0; /* whether we need to initialize */
215 static int yy_start = 0; /* start state number */
216
217 /* Flag which is used to allow yywrap()'s to do buffer switches
218 * instead of setting up a fresh yyin. A bit of a hack ...
219 */
220 static int yy_did_buffer_switch_on_eof;
221
222 void yyrestart FDECL(FDECL_dummy, (FILE *input_file ));
223 void yy_switch_to_buffer FDECL(FDECL_dummy, (YY_BUFFER_STATE new_buffer ));
224 YY_BUFFER_STATE yy_create_buffer FDECL(FDECL_dummy, (FILE *file,int size ));
225 void yy_delete_buffer FDECL(FDECL_dummy, (YY_BUFFER_STATE b ));
226 void yy_flush_buffer FDECL(FDECL_dummy, (YY_BUFFER_STATE b ));
227 void yypush_buffer_state FDECL(FDECL_dummy, (YY_BUFFER_STATE new_buffer ));
228 void yypop_buffer_state FDECL(FDECL_dummy, (void ));
229
230 static void yyensure_buffer_stack FDECL(FDECL_dummy, (void ));
231 static void yy_load_buffer_state FDECL(FDECL_dummy, (void ));
232 static void yy_init_buffer FDECL(FDECL_dummy, (YY_BUFFER_STATE b,FILE *file ));
233
234 #define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
235
236 YY_BUFFER_STATE yy_scan_buffer FDECL(FDECL_dummy, (char *base,yy_size_t size ));
237 YY_BUFFER_STATE yy_scan_string FDECL(FDECL_dummy, (yyconst char *yy_str ));
238 YY_BUFFER_STATE yy_scan_bytes FDECL(FDECL_dummy, (yyconst char *bytes,yy_size_t len ));
239
240 void *yyalloc FDECL(FDECL_dummy, (yy_size_t ));
241 void *yyrealloc FDECL(FDECL_dummy, (void *,yy_size_t ));
242 void yyfree FDECL(FDECL_dummy, (void * ));
243
244 #define yy_new_buffer yy_create_buffer
245 #define yy_set_interactive(is_interactive) \
246 { \
247 if ( ! YY_CURRENT_BUFFER ) { \
248 yyensure_buffer_stack (); \
249 YY_CURRENT_BUFFER_LVALUE = \
250 yy_create_buffer(yyin,YY_BUF_SIZE ); \
251 } \
252 YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
253 }
254 #define yy_set_bol(at_bol) \
255 { \
256 if ( ! YY_CURRENT_BUFFER ) { \
257 yyensure_buffer_stack (); \
258 YY_CURRENT_BUFFER_LVALUE = \
259 yy_create_buffer(yyin,YY_BUF_SIZE ); \
260 } \
261 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
262 }
263 #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
264
265 /* Begin user sect3 */
266
267 typedef unsigned char YY_CHAR;
268
269 FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
270
271 typedef int yy_state_type;
272
273 extern int yylineno;
274
275 int yylineno = 1;
276
277 extern char *yytext;
278 #ifdef yytext_ptr
279 #undef yytext_ptr
280 #endif
281 #define yytext_ptr yytext
282
283 static yy_state_type yy_get_previous_state FDECL(FDECL_dummy, (void ));
284 static yy_state_type yy_try_NUL_trans FDECL(FDECL_dummy, (yy_state_type current_state ));
285 static int yy_get_next_buffer FDECL(FDECL_dummy, (void ));
286 static void yy_fatal_error FDECL(FDECL_dummy, (yyconst char msg[] )) NORETURN;
287
288 /* Done after the current pattern has been matched and before the
289 * corresponding action - sets up yytext.
290 */
291 #define YY_DO_BEFORE_ACTION \
292 (yytext_ptr) = yy_bp; \
293 yyleng = (size_t) (yy_cp - yy_bp); \
294 (yy_hold_char) = *yy_cp; \
295 *yy_cp = '\0'; \
296 (yy_c_buf_p) = yy_cp;
297
298 #define YY_NUM_RULES 200
299 #define YY_END_OF_BUFFER 201
300 /* This struct is not used in this scanner,
301 but its presence is necessary. */
302 struct yy_trans_info
303 {
304 flex_int32_t yy_verify;
305 flex_int32_t yy_nxt;
306 };
307 static yyconst flex_int16_t yy_accept[1057] =
308 { 0,
309 0, 0, 0, 0, 201, 199, 195, 194, 199, 199,
310 199, 199, 199, 199, 198, 184, 192, 199, 193, 198,
311 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
312 198, 198, 198, 198, 198, 198, 198, 199, 198, 198,
313 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
314 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
315 195, 199, 198, 2, 199, 195, 199, 199, 198, 184,
316 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
317 198, 198, 195, 199, 195, 194, 188, 0, 185, 186,
318 0, 0, 182, 198, 181, 183, 184, 198, 190, 189,
319
320 187, 191, 198, 198, 198, 198, 198, 198, 198, 198,
321 198, 198, 198, 198, 198, 198, 198, 198, 39, 198,
322 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
323 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
324 55, 198, 198, 0, 0, 198, 198, 198, 198, 198,
325 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
326 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
327 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
328 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
329 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
330
331 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
332 198, 198, 154, 198, 198, 195, 0, 0, 3, 198,
333 2, 2, 0, 195, 0, 182, 198, 181, 184, 198,
334 198, 198, 198, 39, 198, 198, 198, 198, 198, 198,
335 195, 0, 2, 0, 0, 197, 0, 197, 179, 198,
336 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
337 198, 198, 54, 198, 198, 198, 198, 198, 198, 198,
338 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
339 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
340 198, 198, 198, 198, 198, 0, 198, 104, 198, 83,
341
342 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
343 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
344 198, 79, 198, 198, 198, 198, 198, 198, 198, 198,
345 198, 198, 198, 198, 198, 198, 198, 198, 198, 81,
346 198, 198, 198, 198, 198, 139, 198, 198, 198, 198,
347 128, 198, 198, 198, 198, 198, 198, 198, 198, 198,
348 198, 198, 198, 198, 198, 198, 198, 16, 198, 198,
349 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
350 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
351 198, 198, 126, 198, 198, 198, 198, 198, 198, 198,
352
353 198, 80, 198, 198, 198, 198, 198, 198, 198, 198,
354 196, 198, 198, 198, 58, 198, 198, 198, 22, 198,
355 40, 198, 41, 198, 198, 198, 198, 49, 198, 198,
356 198, 198, 56, 6, 198, 198, 198, 53, 198, 198,
357 198, 36, 198, 198, 198, 198, 42, 198, 35, 198,
358 198, 198, 198, 198, 21, 198, 0, 180, 198, 198,
359 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
360 160, 198, 198, 198, 198, 198, 198, 198, 198, 198,
361 198, 155, 158, 114, 198, 198, 198, 198, 198, 198,
362 198, 198, 198, 198, 198, 198, 69, 198, 198, 198,
363
364 198, 198, 198, 198, 198, 198, 121, 198, 198, 67,
365 198, 198, 198, 198, 161, 198, 198, 198, 198, 198,
366 198, 198, 198, 198, 119, 198, 198, 198, 198, 107,
367 198, 198, 198, 198, 198, 198, 198, 65, 198, 198,
368 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
369 198, 198, 198, 198, 198, 198, 157, 198, 198, 198,
370 198, 198, 116, 15, 0, 198, 198, 198, 198, 198,
371 28, 198, 59, 198, 198, 198, 198, 198, 13, 198,
372 198, 198, 50, 198, 198, 7, 198, 198, 198, 198,
373 5, 198, 198, 198, 198, 198, 198, 198, 198, 198,
374
375 30, 198, 198, 198, 198, 198, 120, 153, 198, 198,
376 198, 147, 198, 198, 162, 198, 198, 198, 198, 198,
377 141, 198, 198, 198, 198, 198, 198, 198, 198, 198,
378 198, 156, 198, 198, 198, 198, 198, 198, 198, 198,
379 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
380 198, 198, 198, 198, 198, 198, 198, 198, 11, 198,
381 198, 198, 198, 198, 198, 198, 113, 198, 198, 198,
382 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
383 125, 198, 12, 198, 198, 198, 198, 198, 198, 198,
384 82, 115, 198, 198, 198, 198, 198, 198, 198, 198,
385
386 129, 198, 198, 198, 198, 33, 198, 198, 198, 198,
387 198, 198, 198, 198, 198, 29, 198, 198, 198, 198,
388 198, 198, 17, 31, 198, 27, 198, 198, 198, 198,
389 57, 198, 198, 198, 198, 146, 97, 198, 198, 127,
390 111, 86, 198, 123, 72, 108, 198, 198, 198, 198,
391 165, 198, 198, 87, 198, 94, 130, 198, 74, 198,
392 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
393 198, 198, 198, 135, 198, 198, 109, 198, 198, 198,
394 198, 198, 198, 198, 198, 198, 110, 168, 198, 198,
395 198, 16, 198, 198, 198, 198, 77, 198, 117, 198,
396
397 198, 198, 198, 198, 112, 198, 198, 198, 152, 173,
398 198, 198, 78, 198, 198, 198, 198, 198, 198, 198,
399 198, 1, 57, 198, 198, 198, 60, 198, 198, 198,
400 198, 198, 198, 198, 4, 198, 19, 198, 198, 198,
401 198, 198, 62, 43, 198, 46, 26, 198, 163, 99,
402 198, 198, 198, 198, 198, 73, 159, 198, 198, 98,
403 198, 198, 198, 93, 198, 198, 198, 198, 145, 198,
404 198, 198, 198, 198, 136, 198, 198, 198, 198, 198,
405 20, 63, 140, 138, 198, 198, 198, 198, 198, 198,
406 198, 198, 118, 198, 132, 96, 198, 151, 198, 198,
407
408 198, 198, 198, 101, 47, 89, 198, 198, 198, 198,
409 198, 198, 45, 198, 198, 34, 61, 14, 8, 25,
410 198, 198, 198, 198, 198, 23, 198, 169, 198, 198,
411 198, 102, 177, 198, 66, 198, 75, 198, 198, 198,
412 198, 198, 198, 198, 198, 198, 198, 198, 198, 150,
413 9, 198, 198, 198, 198, 198, 144, 198, 85, 68,
414 198, 71, 198, 198, 198, 198, 176, 164, 131, 134,
415 198, 106, 18, 198, 51, 198, 198, 198, 198, 198,
416 198, 95, 142, 198, 198, 70, 174, 122, 198, 167,
417 198, 175, 198, 92, 133, 84, 148, 149, 171, 198,
418
419 198, 198, 100, 172, 91, 198, 64, 198, 10, 137,
420 24, 52, 198, 198, 198, 198, 198, 76, 88, 124,
421 105, 198, 198, 198, 166, 103, 198, 198, 198, 198,
422 198, 198, 198, 198, 90, 198, 37, 38, 198, 198,
423 198, 198, 143, 170, 198, 198, 198, 178, 198, 198,
424 198, 198, 48, 32, 44, 0
425 } ;
426
427 static yyconst YY_CHAR yy_ec[256] =
428 { 0,
429 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
430 1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
431 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
432 1, 5, 6, 7, 8, 9, 10, 1, 11, 1,
433 1, 1, 12, 1, 13, 14, 1, 15, 15, 15,
434 15, 15, 15, 15, 15, 15, 15, 1, 1, 16,
435 17, 18, 1, 1, 19, 20, 21, 22, 23, 24,
436 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
437 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
438 45, 46, 47, 1, 48, 1, 49, 50, 51, 52,
439
440 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
441 63, 64, 65, 66, 67, 68, 69, 70, 71, 72,
442 73, 74, 14, 14, 14, 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, 1, 1, 1, 1, 1,
446 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
447 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
448 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
449 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
450
451 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
452 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
453 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
454 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
455 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
456 1, 1, 1, 1, 1
457 } ;
458
459 static yyconst YY_CHAR yy_meta[75] =
460 { 0,
461 1, 2, 3, 2, 2, 1, 1, 2, 1, 1,
462 1, 2, 4, 2, 4, 1, 1, 1, 5, 5,
463 5, 6, 6, 5, 6, 5, 5, 6, 5, 5,
464 6, 6, 6, 5, 6, 6, 5, 5, 6, 6,
465 5, 6, 6, 6, 1, 2, 1, 6, 6, 6,
466 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
467 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
468 6, 5, 6, 6
469 } ;
470
471 static yyconst flex_uint16_t yy_base[1064] =
472 { 0,
473 0, 73, 102, 77, 1254, 1255, 75, 1255, 1250, 1235,
474 1244, 0, 1204, 1234, 1233, 78, 66, 1230, 1229, 1215,
475 1208, 57, 63, 59, 64, 101, 0, 63, 79, 119,
476 94, 1223, 1209, 122, 123, 121, 1222, 104, 105, 100,
477 124, 90, 129, 137, 1174, 84, 117, 1176, 139, 150,
478 151, 151, 156, 1169, 163, 168, 166, 56, 1184, 1183,
479 232, 1232, 216, 1255, 1231, 242, 248, 251, 264, 196,
480 155, 167, 208, 228, 241, 1218, 249, 242, 195, 277,
481 284, 223, 319, 334, 257, 1255, 1255, 1225, 1255, 0,
482 1220, 1219, 1214, 0, 1213, 1255, 298, 1212, 1255, 1255,
483
484 1255, 1255, 1188, 263, 1188, 264, 1200, 1190, 1203, 1184,
485 1195, 1192, 1199, 270, 1185, 1183, 1185, 1195, 0, 1186,
486 1190, 1171, 1177, 1165, 1171, 1175, 1174, 1174, 280, 1176,
487 292, 1171, 301, 1169, 1162, 1168, 1180, 1178, 1170, 259,
488 0, 1177, 1165, 203, 304, 272, 1121, 1143, 1132, 1138,
489 1141, 288, 1121, 1125, 1121, 1124, 1123, 1135, 1117, 1119,
490 308, 1115, 1109, 1106, 1111, 1110, 1116, 1120, 1111, 1113,
491 1111, 1111, 234, 281, 296, 299, 1117, 282, 1103, 1111,
492 1096, 81, 315, 1115, 324, 26, 1103, 1102, 1102, 1093,
493 330, 1103, 1107, 1093, 1109, 1104, 1107, 281, 333, 1100,
494
495 1102, 1098, 1090, 342, 323, 321, 1082, 1081, 1083, 1084,
496 345, 350, 0, 1081, 332, 407, 1143, 1142, 1255, 363,
497 1255, 1255, 1141, 411, 415, 416, 1128, 0, 412, 390,
498 396, 404, 415, 1127, 410, 420, 421, 422, 423, 424,
499 0, 0, 1255, 1138, 0, 1255, 1129, 1128, 1123, 1118,
500 1104, 1116, 1111, 1095, 1096, 1112, 1094, 1088, 1105, 1091,
501 1088, 1100, 0, 1092, 1102, 1091, 1099, 1080, 1081, 1096,
502 1094, 1082, 1092, 1077, 1090, 1075, 1088, 1091, 1061, 1085,
503 1077, 1068, 1083, 1077, 1073, 1071, 1077, 1071, 1072, 1062,
504 1059, 1073, 1059, 1060, 1063, 435, 1037, 0, 1042, 0,
505
506 1027, 1036, 1026, 1028, 1019, 1023, 1021, 1015, 1023, 385,
507 1030, 1012, 1016, 1027, 1010, 1016, 1011, 1020, 1007, 1005,
508 1009, 0, 1002, 1001, 1011, 1001, 1014, 998, 1015, 383,
509 1010, 999, 392, 1012, 989, 1005, 1006, 1000, 988, 0,
510 1003, 1003, 996, 999, 989, 0, 982, 983, 991, 994,
511 0, 987, 992, 981, 993, 983, 988, 987, 378, 986,
512 970, 977, 973, 974, 404, 966, 408, 980, 970, 982,
513 979, 968, 966, 970, 974, 392, 956, 967, 967, 971,
514 952, 969, 953, 956, 964, 950, 395, 958, 946, 964,
515 950, 945, 0, 946, 956, 939, 950, 943, 948, 936,
516
517 935, 0, 462, 448, 453, 971, 454, 456, 434, 455,
518 1255, 965, 979, 970, 0, 979, 970, 957, 0, 975,
519 0, 975, 0, 956, 954, 953, 967, 0, 966, 940,
520 964, 956, 0, 944, 965, 947, 944, 0, 947, 452,
521 959, 0, 960, 945, 944, 957, 953, 950, 0, 937,
522 939, 950, 936, 950, 0, 941, 468, 1255, 905, 900,
523 899, 911, 908, 909, 894, 908, 907, 895, 904, 903,
524 0, 902, 901, 886, 892, 898, 893, 889, 879, 886,
525 893, 0, 0, 0, 881, 895, 890, 889, 881, 422,
526 887, 882, 886, 880, 883, 868, 0, 921, 879, 858,
527
528 874, 866, 878, 861, 872, 873, 0, 872, 856, 0,
529 870, 873, 859, 862, 0, 429, 852, 850, 844, 850,
530 858, 851, 864, 849, 0, 855, 842, 849, 857, 0,
531 847, 853, 856, 836, 854, 417, 853, 0, 841, 830,
532 831, 835, 844, 828, 842, 846, 842, 824, 829, 821,
533 837, 832, 821, 824, 836, 820, 0, 817, 822, 824,
534 426, 823, 0, 1255, 876, 463, 859, 466, 475, 476,
535 0, 851, 0, 849, 853, 844, 837, 832, 0, 852,
536 843, 831, 0, 837, 831, 0, 847, 840, 845, 840,
537 0, 835, 842, 822, 829, 827, 825, 835, 822, 824,
538
539 0, 820, 826, 818, 823, 825, 0, 0, 795, 783,
540 793, 0, 792, 791, 0, 782, 780, 789, 780, 773,
541 0, 785, 785, 781, 782, 767, 784, 780, 764, 760,
542 440, 0, 776, 776, 774, 760, 763, 770, 770, 749,
543 768, 435, 760, 756, 758, 754, 763, 758, 745, 761,
544 757, 758, 758, 741, 741, 754, 740, 752, 0, 751,
545 739, 753, 746, 734, 735, 749, 0, 731, 743, 727,
546 721, 739, 728, 734, 730, 732, 727, 721, 737, 732,
547 0, 721, 0, 714, 714, 713, 712, 712, 725, 725,
548 443, 0, 723, 722, 717, 720, 705, 711, 708, 712,
549
550 0, 717, 733, 483, 490, 0, 734, 732, 726, 736,
551 735, 734, 727, 723, 739, 0, 724, 712, 81, 122,
552 205, 226, 0, 0, 311, 0, 350, 460, 483, 476,
553 0, 472, 478, 468, 463, 0, 0, 461, 464, 0,
554 0, 0, 457, 0, 0, 0, 456, 458, 467, 447,
555 0, 469, 470, 0, 458, 0, 0, 474, 0, 471,
556 470, 466, 480, 478, 478, 475, 470, 472, 482, 473,
557 470, 488, 479, 0, 483, 489, 0, 473, 475, 493,
558 488, 476, 481, 495, 489, 488, 0, 0, 491, 503,
559 489, 0, 480, 486, 492, 489, 0, 496, 514, 505,
560
561 495, 510, 497, 503, 0, 499, 509, 510, 0, 0,
562 511, 515, 0, 518, 509, 520, 520, 521, 522, 508,
563 528, 0, 563, 564, 557, 545, 0, 560, 551, 552,
564 553, 543, 553, 559, 0, 562, 0, 565, 554, 571,
565 545, 558, 0, 0, 557, 0, 0, 536, 0, 0,
566 544, 545, 546, 548, 548, 0, 0, 539, 535, 0,
567 544, 537, 540, 0, 554, 554, 547, 543, 0, 552,
568 546, 554, 566, 553, 0, 551, 565, 551, 568, 568,
569 0, 0, 0, 0, 565, 559, 561, 572, 566, 574,
570 555, 576, 1255, 577, 0, 0, 579, 0, 583, 570,
571
572 579, 575, 563, 0, 0, 0, 585, 586, 587, 587,
573 581, 606, 0, 618, 619, 0, 0, 0, 0, 0,
574 601, 627, 606, 615, 611, 0, 602, 0, 599, 600,
575 591, 0, 0, 591, 0, 595, 0, 604, 589, 602,
576 593, 611, 594, 605, 610, 598, 603, 613, 601, 0,
577 0, 608, 614, 606, 605, 620, 0, 621, 0, 0,
578 622, 0, 611, 614, 621, 618, 0, 0, 0, 0,
579 627, 0, 0, 657, 0, 658, 662, 664, 648, 662,
580 650, 0, 0, 619, 634, 0, 0, 0, 621, 0,
581 630, 0, 641, 0, 0, 0, 0, 0, 0, 630,
582
583 640, 626, 0, 0, 0, 628, 0, 628, 0, 0,
584 0, 0, 667, 668, 663, 664, 678, 0, 0, 0,
585 0, 642, 650, 652, 0, 0, 652, 683, 677, 681,
586 673, 685, 658, 660, 0, 661, 0, 0, 692, 696,
587 689, 650, 0, 0, 685, 692, 687, 0, 685, 690,
588 691, 687, 0, 0, 0, 1255, 724, 726, 732, 735,
589 741, 746, 751
590 } ;
591
592 static yyconst flex_int16_t yy_def[1064] =
593 { 0,
594 1056, 1, 1, 3, 1056, 1056, 1056, 1056, 1056, 1056,
595 1057, 1058, 1059, 1056, 1060, 1060, 1056, 1056, 1056, 1060,
596 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
597 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1056, 1060, 1060,
598 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
599 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
600 1056, 1061, 1060, 1056, 1056, 1062, 1062, 1062, 1060, 69,
601 69, 69, 69, 1060, 69, 69, 69, 69, 69, 69,
602 69, 69, 1062, 1061, 1056, 1056, 1056, 1057, 1056, 1058,
603 1056, 1063, 1056, 1060, 1060, 1056, 1060, 1060, 1056, 1056,
604
605 1056, 1056, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
606 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
607 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
608 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
609 1060, 1060, 1060, 1056, 1056, 1060, 1060, 1060, 1060, 1060,
610 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
611 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
612 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
613 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
614 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
615
616 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
617 1060, 1060, 1060, 1060, 1060, 1056, 1061, 1061, 1056, 1060,
618 1056, 1056, 1056, 83, 83, 83, 69, 69, 69, 69,
619 69, 1060, 69, 69, 69, 69, 69, 69, 69, 69,
620 83, 84, 1056, 1061, 84, 1056, 1056, 1056, 1060, 1060,
621 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
622 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
623 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
624 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
625 1060, 1060, 1060, 1060, 1060, 1056, 1060, 1060, 1060, 1060,
626
627 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
628 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
629 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
630 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
631 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
632 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
633 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
634 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
635 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
636 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
637
638 1060, 1060, 1060, 69, 69, 1060, 69, 69, 69, 69,
639 1056, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
640 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
641 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
642 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
643 1060, 1060, 1060, 1060, 1060, 1060, 1056, 1056, 1060, 1060,
644 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
645 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
646 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
647 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
648
649 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
650 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
651 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
652 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
653 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
654 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
655 1060, 1060, 1060, 1056, 1056, 69, 1060, 69, 69, 69,
656 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
657 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
658 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
659
660 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
661 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
662 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
663 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
664 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
665 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
666 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
667 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
668 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
669 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
670
671 1060, 1060, 1060, 69, 69, 1060, 1060, 1060, 1060, 1060,
672 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
673 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
674 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
675 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
676 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
677 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
678 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
679 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
680 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
681
682 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
683 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
684 1060, 1060, 69, 69, 1060, 1060, 1060, 1060, 1060, 1060,
685 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
686 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
687 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
688 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
689 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
690 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
691 1060, 1060, 1056, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
692
693 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
694 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
695 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
696 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
697 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
698 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
699 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
700 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
701 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
702 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
703
704 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
705 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
706 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
707 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
708 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,
709 1060, 1060, 1060, 1060, 1060, 0, 1056, 1056, 1056, 1056,
710 1056, 1056, 1056
711 } ;
712
713 static yyconst flex_uint16_t yy_nxt[1330] =
714 { 0,
715 6, 7, 8, 9, 7, 10, 11, 6, 12, 6,
716 13, 14, 15, 6, 16, 17, 18, 19, 20, 21,
717 22, 23, 24, 25, 26, 27, 28, 27, 27, 29,
718 30, 31, 32, 33, 27, 34, 35, 36, 27, 27,
719 37, 27, 27, 27, 38, 6, 6, 27, 39, 40,
720 41, 42, 43, 44, 45, 46, 47, 48, 27, 49,
721 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
722 60, 27, 27, 27, 61, 105, 85, 61, 61, 85,
723 62, 83, 99, 100, 84, 107, 119, 96, 110, 106,
724 111, 356, 97, 113, 120, 108, 114, 121, 109, 357,
725
726 112, 122, 115, 63, 64, 65, 66, 63, 144, 67,
727 836, 123, 128, 68, 69, 67, 70, 212, 145, 213,
728 71, 72, 73, 116, 74, 75, 129, 76, 77, 98,
729 76, 78, 175, 117, 347, 79, 118, 124, 80, 81,
730 132, 125, 82, 140, 133, 126, 176, 67, 135, 136,
731 348, 127, 163, 141, 134, 164, 142, 837, 165, 152,
732 137, 138, 153, 139, 146, 154, 147, 177, 155, 227,
733 148, 149, 156, 76, 150, 151, 157, 166, 178, 158,
734 159, 227, 179, 160, 230, 170, 161, 181, 167, 171,
735 168, 182, 162, 172, 169, 183, 173, 185, 186, 189,
736
737 192, 184, 104, 190, 194, 96, 187, 144, 195, 227,
738 229, 198, 188, 191, 193, 199, 203, 145, 209, 200,
739 204, 196, 227, 205, 201, 202, 231, 131, 210, 838,
740 206, 211, 207, 216, 220, 208, 216, 227, 125, 217,
741 106, 240, 126, 85, 222, 223, 224, 98, 127, 1056,
742 222, 223, 1056, 222, 223, 227, 227, 110, 85, 232,
743 235, 85, 839, 227, 122, 226, 222, 223, 225, 112,
744 233, 225, 234, 114, 123, 225, 227, 225, 228, 115,
745 120, 251, 227, 227, 227, 252, 331, 227, 292, 227,
746 227, 227, 227, 227, 293, 254, 332, 227, 227, 255,
747
748 227, 227, 236, 237, 227, 263, 140, 96, 264, 225,
749 278, 279, 97, 296, 238, 138, 141, 239, 145, 142,
750 216, 222, 223, 241, 281, 284, 242, 282, 297, 333,
751 342, 298, 374, 334, 285, 227, 243, 244, 245, 299,
752 305, 245, 375, 335, 306, 245, 245, 245, 245, 98,
753 307, 343, 245, 245, 245, 336, 316, 245, 840, 245,
754 245, 337, 245, 245, 338, 339, 340, 245, 317, 318,
755 245, 245, 841, 319, 245, 349, 350, 353, 362, 245,
756 388, 363, 351, 376, 354, 386, 355, 377, 387, 389,
757 364, 365, 383, 394, 384, 366, 403, 367, 401, 402,
758
759 396, 385, 378, 397, 227, 245, 273, 398, 216, 399,
760 227, 216, 85, 395, 217, 224, 1056, 1056, 225, 225,
761 225, 96, 225, 225, 227, 406, 229, 404, 260, 227,
762 226, 270, 405, 407, 227, 227, 227, 227, 227, 457,
763 408, 470, 490, 494, 518, 519, 471, 537, 227, 409,
764 491, 549, 288, 410, 524, 527, 525, 550, 287, 538,
765 528, 495, 227, 98, 564, 565, 566, 227, 227, 227,
766 227, 569, 457, 592, 634, 415, 676, 227, 424, 677,
767 227, 458, 568, 657, 570, 593, 700, 635, 658, 227,
768 227, 754, 842, 701, 765, 704, 811, 227, 571, 812,
769
770 766, 601, 705, 755, 227, 843, 844, 845, 823, 846,
771 847, 848, 849, 824, 458, 850, 851, 852, 853, 854,
772 855, 856, 857, 858, 859, 860, 861, 862, 863, 864,
773 865, 866, 867, 868, 869, 870, 871, 872, 873, 874,
774 875, 876, 877, 878, 879, 880, 881, 882, 883, 884,
775 885, 886, 887, 888, 889, 890, 891, 892, 893, 894,
776 895, 896, 897, 898, 899, 900, 901, 902, 903, 904,
777 905, 906, 907, 908, 909, 910, 911, 227, 227, 912,
778 913, 914, 915, 916, 917, 918, 919, 920, 921, 922,
779 923, 924, 925, 926, 927, 928, 929, 930, 931, 932,
780
781 933, 934, 935, 936, 937, 938, 847, 939, 940, 941,
782 942, 943, 944, 945, 946, 947, 948, 949, 950, 951,
783 952, 953, 954, 955, 956, 957, 958, 959, 960, 961,
784 962, 963, 964, 965, 966, 967, 968, 969, 970, 971,
785 972, 973, 974, 975, 976, 977, 978, 979, 980, 981,
786 982, 983, 984, 985, 986, 987, 988, 989, 990, 991,
787 992, 993, 994, 995, 996, 997, 998, 999, 1000, 1001,
788 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011,
789 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021,
790 1022, 1023, 1024, 1025, 1026, 1027, 1028, 1029, 1030, 1031,
791
792 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 1041,
793 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1050, 1051,
794 1052, 1053, 1054, 1055, 88, 88, 88, 88, 88, 88,
795 90, 90, 91, 91, 835, 91, 91, 91, 94, 94,
796 94, 218, 218, 218, 218, 218, 218, 225, 225, 225,
797 225, 247, 247, 834, 247, 247, 247, 833, 832, 831,
798 830, 829, 828, 827, 826, 825, 822, 821, 820, 819,
799 818, 817, 816, 815, 814, 813, 810, 809, 808, 807,
800 806, 805, 804, 803, 802, 801, 800, 799, 798, 797,
801 796, 795, 794, 793, 792, 791, 790, 789, 788, 787,
802
803 786, 785, 784, 783, 782, 781, 780, 779, 778, 777,
804 776, 775, 774, 773, 772, 771, 770, 769, 768, 767,
805 764, 763, 762, 761, 760, 759, 758, 757, 756, 753,
806 752, 751, 750, 749, 748, 747, 746, 745, 744, 743,
807 742, 741, 740, 739, 738, 737, 736, 735, 734, 733,
808 732, 731, 730, 729, 728, 727, 726, 725, 724, 723,
809 722, 721, 720, 719, 718, 717, 716, 715, 714, 713,
810 712, 711, 710, 709, 708, 707, 706, 703, 564, 702,
811 699, 698, 697, 696, 695, 694, 693, 692, 691, 690,
812 689, 688, 687, 686, 685, 684, 683, 682, 681, 680,
813
814 679, 678, 675, 674, 673, 672, 671, 670, 669, 668,
815 667, 666, 665, 664, 663, 662, 661, 660, 659, 656,
816 655, 654, 653, 652, 651, 650, 649, 648, 647, 646,
817 645, 644, 643, 642, 641, 640, 639, 638, 637, 636,
818 633, 632, 631, 630, 629, 628, 627, 626, 625, 624,
819 623, 622, 621, 620, 619, 618, 617, 616, 615, 614,
820 613, 612, 611, 610, 609, 608, 607, 606, 605, 604,
821 603, 602, 601, 600, 599, 598, 597, 596, 595, 594,
822 591, 590, 589, 588, 587, 586, 585, 584, 583, 582,
823 581, 580, 579, 578, 577, 576, 575, 574, 573, 572,
824
825 571, 567, 563, 562, 561, 560, 559, 558, 557, 556,
826 555, 554, 553, 552, 551, 548, 547, 546, 545, 544,
827 543, 542, 541, 540, 539, 536, 535, 534, 533, 532,
828 531, 530, 529, 526, 523, 522, 521, 520, 438, 517,
829 516, 515, 514, 513, 512, 511, 510, 509, 508, 507,
830 506, 505, 504, 503, 502, 501, 500, 499, 498, 497,
831 496, 493, 492, 489, 488, 487, 486, 485, 484, 483,
832 482, 481, 480, 479, 478, 477, 476, 475, 474, 473,
833 472, 469, 468, 467, 466, 465, 464, 463, 462, 461,
834 460, 459, 456, 455, 454, 453, 452, 451, 450, 449,
835
836 448, 447, 446, 445, 444, 443, 442, 441, 440, 439,
837 438, 437, 436, 435, 434, 433, 432, 431, 430, 429,
838 428, 427, 426, 425, 424, 423, 422, 421, 420, 419,
839 418, 417, 416, 415, 414, 413, 412, 249, 411, 411,
840 243, 227, 227, 222, 219, 219, 400, 393, 392, 391,
841 390, 382, 381, 380, 379, 373, 372, 371, 370, 369,
842 368, 361, 360, 359, 358, 352, 346, 345, 344, 341,
843 330, 329, 328, 327, 326, 325, 324, 323, 322, 321,
844 320, 315, 314, 313, 312, 311, 310, 309, 308, 304,
845 303, 302, 301, 300, 295, 294, 291, 290, 289, 288,
846
847 287, 286, 283, 280, 277, 276, 275, 274, 273, 272,
848 271, 270, 269, 268, 267, 266, 265, 262, 261, 260,
849 259, 258, 257, 256, 253, 250, 249, 95, 93, 248,
850 246, 89, 227, 221, 219, 215, 214, 197, 180, 174,
851 143, 131, 130, 104, 103, 102, 101, 95, 93, 92,
852 89, 87, 86, 1056, 5, 1056, 1056, 1056, 1056, 1056,
853 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
854 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
855 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
856 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
857
858 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
859 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
860 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056
861 } ;
862
863 static yyconst flex_int16_t yy_chk[1330] =
864 { 0,
865 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
866 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
867 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
868 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
869 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
870 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
871 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
872 1, 1, 1, 1, 2, 22, 7, 2, 4, 7,
873 2, 4, 17, 17, 4, 23, 28, 16, 24, 22,
874 24, 186, 16, 25, 28, 23, 25, 29, 23, 186,
875
876 24, 29, 25, 2, 3, 3, 3, 4, 38, 3,
877 719, 29, 31, 3, 3, 3, 3, 58, 38, 58,
878 3, 3, 3, 26, 3, 3, 31, 3, 3, 16,
879 3, 3, 46, 26, 182, 3, 26, 30, 3, 3,
880 34, 30, 3, 36, 34, 30, 46, 3, 35, 35,
881 182, 30, 42, 36, 34, 42, 36, 720, 42, 40,
882 35, 35, 40, 35, 39, 40, 39, 47, 40, 71,
883 39, 39, 41, 3, 39, 39, 41, 43, 47, 41,
884 41, 72, 47, 41, 71, 44, 41, 49, 43, 44,
885 43, 49, 41, 44, 43, 49, 44, 50, 50, 51,
886
887 52, 49, 72, 51, 53, 70, 50, 144, 53, 79,
888 70, 55, 50, 51, 52, 55, 56, 144, 57, 55,
889 56, 53, 73, 56, 55, 55, 73, 79, 57, 721,
890 56, 57, 56, 61, 63, 56, 61, 82, 63, 61,
891 73, 82, 63, 66, 66, 66, 66, 70, 63, 67,
892 67, 67, 68, 68, 68, 75, 78, 74, 85, 74,
893 78, 85, 722, 77, 78, 68, 69, 69, 69, 74,
894 75, 69, 77, 75, 78, 69, 69, 69, 69, 75,
895 77, 104, 69, 69, 69, 104, 173, 69, 140, 69,
896 69, 80, 69, 69, 140, 106, 173, 69, 81, 106,
897
898 69, 69, 80, 80, 69, 114, 81, 97, 114, 69,
899 129, 129, 97, 145, 80, 80, 81, 80, 145, 81,
900 83, 83, 83, 83, 131, 133, 83, 131, 146, 174,
901 178, 146, 198, 174, 133, 69, 84, 84, 84, 146,
902 152, 84, 198, 174, 152, 84, 84, 84, 84, 97,
903 152, 178, 84, 84, 84, 175, 161, 84, 725, 84,
904 84, 175, 84, 84, 176, 176, 176, 84, 161, 161,
905 84, 84, 727, 161, 84, 183, 183, 185, 191, 84,
906 206, 191, 183, 199, 185, 205, 185, 199, 205, 206,
907 191, 191, 204, 211, 204, 191, 220, 191, 215, 215,
908
909 212, 204, 199, 212, 230, 84, 220, 212, 216, 212,
910 231, 216, 224, 211, 216, 224, 225, 226, 224, 225,
911 226, 229, 225, 226, 235, 232, 229, 230, 232, 233,
912 226, 235, 231, 233, 236, 237, 238, 239, 240, 296,
913 238, 310, 330, 333, 359, 359, 310, 376, 409, 239,
914 330, 387, 237, 240, 365, 367, 365, 387, 236, 376,
915 367, 333, 404, 229, 403, 403, 404, 405, 407, 410,
916 408, 409, 457, 440, 490, 405, 536, 566, 407, 536,
917 568, 296, 408, 516, 410, 440, 561, 490, 516, 569,
918 570, 631, 728, 561, 642, 569, 691, 704, 566, 691,
919
920 642, 568, 570, 631, 705, 729, 730, 732, 704, 733,
921 734, 735, 738, 705, 457, 739, 743, 747, 748, 749,
922 750, 752, 753, 755, 758, 760, 761, 762, 763, 764,
923 765, 766, 767, 768, 769, 770, 771, 772, 773, 775,
924 776, 778, 779, 780, 781, 782, 783, 784, 785, 786,
925 789, 790, 791, 793, 794, 795, 796, 798, 799, 800,
926 801, 802, 803, 804, 806, 807, 808, 811, 812, 814,
927 815, 816, 817, 818, 819, 820, 821, 823, 824, 825,
928 826, 828, 829, 830, 831, 832, 833, 834, 836, 838,
929 839, 840, 841, 842, 845, 848, 851, 852, 853, 854,
930
931 855, 858, 859, 861, 862, 863, 824, 865, 866, 867,
932 868, 870, 871, 872, 873, 874, 876, 877, 878, 879,
933 880, 885, 886, 887, 888, 889, 890, 891, 892, 894,
934 897, 899, 900, 901, 902, 903, 907, 908, 909, 910,
935 911, 912, 914, 915, 921, 922, 923, 924, 925, 927,
936 929, 930, 931, 934, 936, 938, 939, 940, 941, 942,
937 943, 944, 945, 946, 947, 948, 949, 952, 953, 954,
938 955, 956, 958, 961, 963, 964, 965, 966, 971, 974,
939 976, 977, 978, 979, 980, 981, 984, 985, 989, 991,
940 993, 1000, 1001, 1002, 1006, 1008, 1013, 1014, 1015, 1016,
941
942 1017, 1022, 1023, 1024, 1027, 1028, 1029, 1030, 1031, 1032,
943 1033, 1034, 1036, 1039, 1040, 1041, 1042, 1045, 1046, 1047,
944 1049, 1050, 1051, 1052, 1057, 1057, 1057, 1057, 1057, 1057,
945 1058, 1058, 1059, 1059, 718, 1059, 1059, 1059, 1060, 1060,
946 1060, 1061, 1061, 1061, 1061, 1061, 1061, 1062, 1062, 1062,
947 1062, 1063, 1063, 717, 1063, 1063, 1063, 715, 714, 713,
948 712, 711, 710, 709, 708, 707, 703, 702, 700, 699,
949 698, 697, 696, 695, 694, 693, 690, 689, 688, 687,
950 686, 685, 684, 682, 680, 679, 678, 677, 676, 675,
951 674, 673, 672, 671, 670, 669, 668, 666, 665, 664,
952
953 663, 662, 661, 660, 658, 657, 656, 655, 654, 653,
954 652, 651, 650, 649, 648, 647, 646, 645, 644, 643,
955 641, 640, 639, 638, 637, 636, 635, 634, 633, 630,
956 629, 628, 627, 626, 625, 624, 623, 622, 620, 619,
957 618, 617, 616, 614, 613, 611, 610, 609, 606, 605,
958 604, 603, 602, 600, 599, 598, 597, 596, 595, 594,
959 593, 592, 590, 589, 588, 587, 585, 584, 582, 581,
960 580, 578, 577, 576, 575, 574, 572, 567, 565, 562,
961 560, 559, 558, 556, 555, 554, 553, 552, 551, 550,
962 549, 548, 547, 546, 545, 544, 543, 542, 541, 540,
963
964 539, 537, 535, 534, 533, 532, 531, 529, 528, 527,
965 526, 524, 523, 522, 521, 520, 519, 518, 517, 514,
966 513, 512, 511, 509, 508, 506, 505, 504, 503, 502,
967 501, 500, 499, 498, 496, 495, 494, 493, 492, 491,
968 489, 488, 487, 486, 485, 481, 480, 479, 478, 477,
969 476, 475, 474, 473, 472, 470, 469, 468, 467, 466,
970 465, 464, 463, 462, 461, 460, 459, 456, 454, 453,
971 452, 451, 450, 448, 447, 446, 445, 444, 443, 441,
972 439, 437, 436, 435, 434, 432, 431, 430, 429, 427,
973 426, 425, 424, 422, 420, 418, 417, 416, 414, 413,
974
975 412, 406, 401, 400, 399, 398, 397, 396, 395, 394,
976 392, 391, 390, 389, 388, 386, 385, 384, 383, 382,
977 381, 380, 379, 378, 377, 375, 374, 373, 372, 371,
978 370, 369, 368, 366, 364, 363, 362, 361, 360, 358,
979 357, 356, 355, 354, 353, 352, 350, 349, 348, 347,
980 345, 344, 343, 342, 341, 339, 338, 337, 336, 335,
981 334, 332, 331, 329, 328, 327, 326, 325, 324, 323,
982 321, 320, 319, 318, 317, 316, 315, 314, 313, 312,
983 311, 309, 308, 307, 306, 305, 304, 303, 302, 301,
984 299, 297, 295, 294, 293, 292, 291, 290, 289, 288,
985
986 287, 286, 285, 284, 283, 282, 281, 280, 279, 278,
987 277, 276, 275, 274, 273, 272, 271, 270, 269, 268,
988 267, 266, 265, 264, 262, 261, 260, 259, 258, 257,
989 256, 255, 254, 253, 252, 251, 250, 249, 248, 247,
990 244, 234, 227, 223, 218, 217, 214, 210, 209, 208,
991 207, 203, 202, 201, 200, 197, 196, 195, 194, 193,
992 192, 190, 189, 188, 187, 184, 181, 180, 179, 177,
993 172, 171, 170, 169, 168, 167, 166, 165, 164, 163,
994 162, 160, 159, 158, 157, 156, 155, 154, 153, 151,
995 150, 149, 148, 147, 143, 142, 139, 138, 137, 136,
996
997 135, 134, 132, 130, 128, 127, 126, 125, 124, 123,
998 122, 121, 120, 118, 117, 116, 115, 113, 112, 111,
999 110, 109, 108, 107, 105, 103, 98, 95, 93, 92,
1000 91, 88, 76, 65, 62, 60, 59, 54, 48, 45,
1001 37, 33, 32, 21, 20, 19, 18, 15, 14, 13,
1002 11, 10, 9, 5, 1056, 1056, 1056, 1056, 1056, 1056,
1003 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
1004 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
1005 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
1006 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
1007
1008 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
1009 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056,
1010 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056, 1056
1011 } ;
1012
1013 static yy_state_type yy_last_accepting_state;
1014 static char *yy_last_accepting_cpos;
1015
1016 extern int yy_flex_debug;
1017 int yy_flex_debug = 0;
1018
1019 /* The intent behind this definition is that it'll catch
1020 * any uses of REJECT which flex missed.
1021 */
1022 #define REJECT reject_used_but_not_detected
1023 #define yymore() yymore_used_but_not_detected
1024 #define YY_MORE_ADJ 0
1025 #define YY_RESTORE_YY_MORE_OFFSET
1026 char *yytext;
1027 /* aNetHack 0.0.1 lev_comp.l $ANH-Date: 1455415237 2016/02/14 02:00:37 $ $ANH-Branch: aNetHack-3.6.0 $:$ANH-Revision: 1.27 $ */
1028 /* Copyright (c) 1989 by Jean-Christophe Collet */
1029 /* aNetHack may be freely redistributed. See license for details. */
1030
1031 #define LEV_LEX_C
1032
1033 #include "hack.h"
1034 #include "lev_comp.h"
1035 #include "sp_lev.h"
1036
1037 /* Most of these don't exist in flex, yywrap is macro and
1038 * yyunput is properly declared in flex.skel.
1039 */
1040 #if !defined(FLEX_SCANNER) && !defined(FLEXHACK_SCANNER)
1041 int FDECL(yyback, (int *,int));
1042 int NDECL(yylook);
1043 int NDECL(yyinput);
1044 int NDECL(yywrap);
1045 int NDECL(yylex);
1046 /* Traditional lexes let yyunput() and yyoutput() default to int;
1047 * newer ones may declare them as void since they don't return
1048 * values. For even more fun, the lex supplied as part of the
1049 * newer unbundled compiler for SunOS 4.x adds the void declarations
1050 * (under __STDC__ or _cplusplus ifdefs -- otherwise they remain
1051 * int) while the bundled lex and the one with the older unbundled
1052 * compiler do not. To detect this, we need help from outside --
1053 * sys/unix/Makefile.utl.
1054 *
1055 * Digital UNIX is difficult and still has int in spite of all
1056 * other signs.
1057 */
1058 # if defined(NeXT) || defined(SVR4) || defined(_AIX32)
1059 # define VOIDYYPUT
1060 # endif
1061 # if !defined(VOIDYYPUT) && defined(POSIX_TYPES)
1062 # if !defined(BOS) && !defined(HISX) && !defined(_M_UNIX) && !defined(VMS)
1063 # define VOIDYYPUT
1064 # endif
1065 # endif
1066 # if !defined(VOIDYYPUT) && defined(WEIRD_LEX)
1067 # if defined(SUNOS4) && defined(__STDC__) && (WEIRD_LEX > 1)
1068 # define VOIDYYPUT
1069 # endif
1070 # endif
1071 # if defined(VOIDYYPUT) && defined(__osf__)
1072 # undef VOIDYYPUT
1073 # endif
1074 # ifdef VOIDYYPUT
1075 void FDECL(yyunput, (int));
1076 void FDECL(yyoutput, (int));
1077 # else
1078 int FDECL(yyunput, (int));
1079 int FDECL(yyoutput, (int));
1080 # endif
1081
1082 #else /* !FLEX_SCANNER && !FLEXHACK_SCANNER */
1083 /* most recent flex allows suppressing yyunput() altogether when not needed */
1084 #define YY_NO_UNPUT
1085 #define YY_NO_INPUT
1086 #endif
1087
1088 #if defined(FLEX_SCANNER) || defined(FLEXHACK_SCANNER)
1089 /* older flex wants this */
1090 #define YY_MALLOC_DECL genericptr_t FDECL(malloc, (size_t)); \
1091 genericptr_t FDECL(realloc, (genericptr_t, size_t));
1092 /* newer flex assumes <stdlib.h> so needs this in case it's been suppressed */
1093 YY_MALLOC_DECL
1094 #endif
1095
1096 void FDECL(init_yyin, (FILE *));
1097 void FDECL(init_yyout, (FILE *));
1098
1099 long NDECL(handle_varstring_check);
1100 long FDECL(corefunc_str_check, (char *, long));
1101
1102 extern void VDECL(lc_error, (const char *, ...));
1103 extern struct lc_vardefs *FDECL(vardef_defined,(struct lc_vardefs *,char *, int));
1104
1105 extern struct lc_vardefs *variable_definitions;
1106
1107 extern long FDECL(method_defined, (char *, long, long *));
1108
1109 void FDECL(savetoken, (char *));
1110 void NDECL(newline);
1111 void FDECL(advancepos, (char *));
1112
1113 /*
1114 * This doesn't always get put in lev_comp.h
1115 * (esp. when using older versions of bison).
1116 */
1117 extern YYSTYPE yylval;
1118
1119 int nh_line_number = 1;
1120 int token_start_pos = 0;
1121 char curr_token[512];
1122 static char map[4096];
1123 static int map_cnt = 0;
1124
1125 FILE *orig_yyin = NULL;
1126
1127 #define ST_RET(x) do { savetoken(yytext); return x; } while (0);
1128 #define ST_RETF(y, x) do { savetoken(yytext); y; return x; } while (0);
1129
1130 #define INITIAL 0
1131 #define MAPC 1
1132
1133 #ifndef YY_EXTRA_TYPE
1134 #define YY_EXTRA_TYPE void *
1135 #endif
1136
1137 /* Accessor methods to globals.
1138 These are made visible to non-reentrant scanners for convenience. */
1139
1140 int yylex_destroy FDECL(FDECL_dummy, (void ));
1141 int yyget_debug FDECL(FDECL_dummy, (void ));
1142 void yyset_debug FDECL(FDECL_dummy, (int debug_flag ));
1143 YY_EXTRA_TYPE yyget_extra FDECL(FDECL_dummy, (void ));
1144 void yyset_extra FDECL(FDECL_dummy, (YY_EXTRA_TYPE user_defined ));
1145 FILE *yyget_in FDECL(FDECL_dummy, (void ));
1146 void yyset_in FDECL(FDECL_dummy, (FILE * _in_str ));
1147 FILE *yyget_out FDECL(FDECL_dummy, (void ));
1148 void yyset_out FDECL(FDECL_dummy, (FILE * _out_str ));
1149 yy_size_t yyget_leng FDECL(FDECL_dummy, (void ));
1150 char *yyget_text FDECL(FDECL_dummy, (void ));
1151 int yyget_lineno FDECL(FDECL_dummy, (void ));
1152 void yyset_lineno FDECL(FDECL_dummy, (int _line_number ));
1153
1154 /* Macros after this point can all be overridden by user definitions in
1155 * section 1.
1156 */
1157
1158 #ifndef YY_SKIP_YYWRAP
1159 extern int yywrap FDECL(FDECL_dummy, (void ));
1160 #endif
1161
1162 #ifndef YY_NO_UNPUT
1163
1164 static void yyunput FDECL(FDECL_dummy, (int c,char *buf_ptr ));
1165 #endif
1166
1167 #ifndef yytext_ptr
1168 static void yy_flex_strncpy FDECL(FDECL_dummy, (char *,yyconst char *,int ));
1169 #endif
1170
1171 #ifdef YY_NEED_STRLEN
1172 static int yy_flex_strlen FDECL(FDECL_dummy, (yyconst char * ));
1173 #endif
1174
1175 #ifndef YY_NO_INPUT
1176
1177 static int input FDECL(FDECL_dummy, (void ));
1178
1179 #endif
1180
1181 /* Amount of stuff to slurp up with each read. */
1182 #ifndef YY_READ_BUF_SIZE
1183 #ifdef __ia64__
1184 /* On IA-64, the buffer size is 16k, not 8k */
1185 #define YY_READ_BUF_SIZE 16384
1186 #else
1187 #define YY_READ_BUF_SIZE 8192
1188 #endif /* __ia64__ */
1189 #endif
1190
1191 /* Copy whatever the last rule matched to the standard output. */
1192 #ifndef ECHO
1193 /* This used to be an fputs(), but since the string might contain NUL's,
1194 * we now use fwrite().
1195 */
1196 #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
1197 #endif
1198
1199 /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
1200 * is returned in "result".
1201 */
1202 #ifndef YY_INPUT
1203 #define YY_INPUT(buf,result,max_size) \
1204 if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
1205 { \
1206 int c = '*'; \
1207 size_t n; \
1208 for ( n = 0; n < max_size && \
1209 (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
1210 buf[n] = (char) c; \
1211 if ( c == '\n' ) \
1212 buf[n++] = (char) c; \
1213 if ( c == EOF && ferror( yyin ) ) \
1214 YY_FATAL_ERROR( "input in flex scanner failed" ); \
1215 result = n; \
1216 } \
1217 else \
1218 { \
1219 errno=0; \
1220 while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
1221 { \
1222 if( errno != EINTR) \
1223 { \
1224 YY_FATAL_ERROR( "input in flex scanner failed" ); \
1225 break; \
1226 } \
1227 errno=0; \
1228 clearerr(yyin); \
1229 } \
1230 }\
1231
1232 #endif
1233
1234 /* No semi-colon after return; correct usage is to write "yyterminate();" -
1235 * we don't want an extra ';' after the "return" because that will cause
1236 * some compilers to complain about unreachable statements.
1237 */
1238 #ifndef yyterminate
1239 #define yyterminate() return YY_NULL
1240 #endif
1241
1242 /* Number of entries by which start-condition stack grows. */
1243 #ifndef YY_START_STACK_INCR
1244 #define YY_START_STACK_INCR 25
1245 #endif
1246
1247 /* Report a fatal error. */
1248 #ifndef YY_FATAL_ERROR
1249 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
1250 #endif
1251
1252 /* Default declaration of generated scanner - a define so the user can
1253 * easily add parameters.
1254 */
1255 #ifndef YY_DECL
1256 #define YY_DECL_IS_OURS 1
1257
1258 extern int yylex FDECL(FDECL_dummy, (void));
1259
1260 #define YY_DECL int yylex ()
1261 #endif /* !YY_DECL */
1262
1263 /* Code executed at the beginning of each rule, after yytext and yyleng
1264 * have been set up.
1265 */
1266 #ifndef YY_USER_ACTION
1267 #define YY_USER_ACTION
1268 #endif
1269
1270 /* Code executed at the end of each rule. */
1271 #ifndef YY_BREAK
1272 #define YY_BREAK /*LINTED*/break;
1273 #endif
1274
1275 #define YY_RULE_SETUP \
1276 if ( yyleng > 0 ) \
1277 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
1278 (yytext[yyleng - 1] == '\n'); \
1279 YY_USER_ACTION
1280
1281 /** The main scanner function which does all the work.
1282 */
1283 YY_DECL
1284 {
1285 yy_state_type yy_current_state;
1286 char *yy_cp, *yy_bp;
1287 int yy_act;
1288
1289 if ( !(yy_init) )
1290 {
1291 (yy_init) = 1;
1292
1293 #ifdef YY_USER_INIT
1294 YY_USER_INIT;
1295 #endif
1296
1297 if ( ! (yy_start) )
1298 (yy_start) = 1; /* first start state */
1299
1300 if ( ! yyin )
1301 yyin = stdin;
1302
1303 if ( ! yyout )
1304 yyout = stdout;
1305
1306 if ( ! YY_CURRENT_BUFFER ) {
1307 yyensure_buffer_stack ();
1308 YY_CURRENT_BUFFER_LVALUE =
1309 yy_create_buffer(yyin,YY_BUF_SIZE );
1310 }
1311
1312 yy_load_buffer_state( );
1313 }
1314
1315 {
1316
1317 while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */
1318 {
1319 yy_cp = (yy_c_buf_p);
1320
1321 /* Support of yytext. */
1322 *yy_cp = (yy_hold_char);
1323
1324 /* yy_bp points to the position in yy_ch_buf of the start of
1325 * the current run.
1326 */
1327 yy_bp = yy_cp;
1328
1329 yy_current_state = (yy_start);
1330 yy_current_state += YY_AT_BOL();
1331 yy_match:
1332 do
1333 {
1334 YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ;
1335 if ( yy_accept[yy_current_state] )
1336 {
1337 (yy_last_accepting_state) = yy_current_state;
1338 (yy_last_accepting_cpos) = yy_cp;
1339 }
1340 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1341 {
1342 yy_current_state = (int) yy_def[yy_current_state];
1343 if ( yy_current_state >= 1057 )
1344 yy_c = yy_meta[(unsigned int) yy_c];
1345 }
1346 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1347 ++yy_cp;
1348 }
1349 while ( yy_base[yy_current_state] != 1255 );
1350
1351 yy_find_action:
1352 yy_act = yy_accept[yy_current_state];
1353 if ( yy_act == 0 )
1354 { /* have to back up */
1355 yy_cp = (yy_last_accepting_cpos);
1356 yy_current_state = (yy_last_accepting_state);
1357 yy_act = yy_accept[yy_current_state];
1358 }
1359
1360 YY_DO_BEFORE_ACTION;
1361
1362 do_action: /* This label is used only to access EOF actions. */
1363
1364 switch ( yy_act )
1365 { /* beginning of action switch */
1366 case 0: /* must back up */
1367 /* undo the effects of YY_DO_BEFORE_ACTION */
1368 *yy_cp = (yy_hold_char);
1369 yy_cp = (yy_last_accepting_cpos);
1370 yy_current_state = (yy_last_accepting_state);
1371 goto yy_find_action;
1372
1373 case 1:
1374 YY_RULE_SETUP
1375 {
1376 savetoken(yytext);
1377 BEGIN(INITIAL);
1378 yylval.map = (char *) alloc(map_cnt + 1);
1379 (void) strncpy(yylval.map, map, map_cnt);
1380 yylval.map[map_cnt] = 0;
1381 map_cnt = 0;
1382 return MAP_ID;
1383 }
1384 YY_BREAK
1385 case 2:
1386 /* rule 2 can match eol */
1387 YY_RULE_SETUP
1388 {
1389 int len = yyleng;
1390 savetoken(yytext);
1391 /* convert \r\n to \n */
1392 if (len >= 2 && yytext[len - 2] == '\r')
1393 len -= 1;
1394 (void) strncpy(map + map_cnt, yytext, len);
1395 map_cnt += len;
1396 map[map_cnt - 1] = '\n';
1397 map[map_cnt] = '\0';
1398 newline();
1399 }
1400 YY_BREAK
1401 case 3:
1402 /* rule 3 can match eol */
1403 YY_RULE_SETUP
1404 { savetoken(yytext); newline(); }
1405 YY_BREAK
1406 case 4:
1407 YY_RULE_SETUP
1408 ST_RET(MESSAGE_ID);
1409 YY_BREAK
1410 case 5:
1411 YY_RULE_SETUP
1412 ST_RET(NOMAP_ID);
1413 YY_BREAK
1414 case 6:
1415 YY_RULE_SETUP
1416 ST_RET(MAZE_ID);
1417 YY_BREAK
1418 case 7:
1419 YY_RULE_SETUP
1420 ST_RET(LEVEL_ID);
1421 YY_BREAK
1422 case 8:
1423 YY_RULE_SETUP
1424 ST_RET(LEV_INIT_ID);
1425 YY_BREAK
1426 case 9:
1427 YY_RULE_SETUP
1428 ST_RET(MAZE_GRID_ID);
1429 YY_BREAK
1430 case 10:
1431 YY_RULE_SETUP
1432 ST_RET(SOLID_FILL_ID);
1433 YY_BREAK
1434 case 11:
1435 YY_RULE_SETUP
1436 ST_RET(MINES_ID);
1437 YY_BREAK
1438 case 12:
1439 YY_RULE_SETUP
1440 ST_RET(ROGUELEV_ID);
1441 YY_BREAK
1442 case 13:
1443 YY_RULE_SETUP
1444 ST_RET(FLAGS_ID);
1445 YY_BREAK
1446 case 14:
1447 YY_RULE_SETUP
1448 ST_RET(GEOMETRY_ID);
1449 YY_BREAK
1450 case 15:
1451 /* rule 15 can match eol */
1452 YY_RULE_SETUP
1453 { savetoken(yytext); BEGIN(MAPC); newline(); }
1454 YY_BREAK
1455 case 16:
1456 YY_RULE_SETUP
1457 ST_RET(object_ID);
1458 YY_BREAK
1459 case 17:
1460 YY_RULE_SETUP
1461 ST_RET(OBJECT_ID);
1462 YY_BREAK
1463 case 18:
1464 YY_RULE_SETUP
1465 ST_RET(COBJECT_ID);
1466 YY_BREAK
1467 case 19:
1468 YY_RULE_SETUP
1469 ST_RET(MONSTER_ID);
1470 YY_BREAK
1471 case 20:
1472 YY_RULE_SETUP
1473 ST_RET(monster_ID);
1474 YY_BREAK
1475 case 21:
1476 YY_RULE_SETUP
1477 ST_RET(TRAP_ID);
1478 YY_BREAK
1479 case 22:
1480 YY_RULE_SETUP
1481 ST_RET(DOOR_ID);
1482 YY_BREAK
1483 case 23:
1484 YY_RULE_SETUP
1485 ST_RET(ROOMDOOR_ID);
1486 YY_BREAK
1487 case 24:
1488 YY_RULE_SETUP
1489 ST_RET(DRAWBRIDGE_ID);
1490 YY_BREAK
1491 case 25:
1492 YY_RULE_SETUP
1493 ST_RET(MAZEWALK_ID);
1494 YY_BREAK
1495 case 26:
1496 YY_RULE_SETUP
1497 ST_RET(WALLIFY_ID);
1498 YY_BREAK
1499 case 27:
1500 YY_RULE_SETUP
1501 ST_RET(REGION_ID);
1502 YY_BREAK
1503 case 28:
1504 YY_RULE_SETUP
1505 ST_RET(ALTAR_ID);
1506 YY_BREAK
1507 case 29:
1508 YY_RULE_SETUP
1509 ST_RET(LADDER_ID);
1510 YY_BREAK
1511 case 30:
1512 YY_RULE_SETUP
1513 ST_RET(STAIR_ID);
1514 YY_BREAK
1515 case 31:
1516 YY_RULE_SETUP
1517 ST_RET(PORTAL_ID);
1518 YY_BREAK
1519 case 32:
1520 YY_RULE_SETUP
1521 ST_RET(TELEPRT_ID);
1522 YY_BREAK
1523 case 33:
1524 YY_RULE_SETUP
1525 ST_RET(BRANCH_ID);
1526 YY_BREAK
1527 case 34:
1528 YY_RULE_SETUP
1529 ST_RET(FOUNTAIN_ID);
1530 YY_BREAK
1531 case 35:
1532 YY_RULE_SETUP
1533 ST_RET(SINK_ID);
1534 YY_BREAK
1535 case 36:
1536 YY_RULE_SETUP
1537 ST_RET(POOL_ID);
1538 YY_BREAK
1539 case 37:
1540 YY_RULE_SETUP
1541 ST_RET(NON_DIGGABLE_ID);
1542 YY_BREAK
1543 case 38:
1544 YY_RULE_SETUP
1545 ST_RET(NON_PASSWALL_ID);
1546 YY_BREAK
1547 case 39:
1548 YY_RULE_SETUP
1549 ST_RET(IF_ID);
1550 YY_BREAK
1551 case 40:
1552 YY_RULE_SETUP
1553 ST_RET(ELSE_ID);
1554 YY_BREAK
1555 case 41:
1556 YY_RULE_SETUP
1557 ST_RET(EXIT_ID);
1558 YY_BREAK
1559 case 42:
1560 YY_RULE_SETUP
1561 ST_RET(ROOM_ID);
1562 YY_BREAK
1563 case 43:
1564 YY_RULE_SETUP
1565 ST_RET(SUBROOM_ID);
1566 YY_BREAK
1567 case 44:
1568 YY_RULE_SETUP
1569 ST_RET(RAND_CORRIDOR_ID);
1570 YY_BREAK
1571 case 45:
1572 YY_RULE_SETUP
1573 ST_RET(CORRIDOR_ID);
1574 YY_BREAK
1575 case 46:
1576 YY_RULE_SETUP
1577 ST_RET(TERRAIN_ID);
1578 YY_BREAK
1579 case 47:
1580 YY_RULE_SETUP
1581 ST_RET(terrain_ID);
1582 YY_BREAK
1583 case 48:
1584 YY_RULE_SETUP
1585 ST_RET(REPLACE_TERRAIN_ID);
1586 YY_BREAK
1587 case 49:
1588 YY_RULE_SETUP
1589 ST_RET(GOLD_ID);
1590 YY_BREAK
1591 case 50:
1592 YY_RULE_SETUP
1593 ST_RET(GRAVE_ID);
1594 YY_BREAK
1595 case 51:
1596 YY_RULE_SETUP
1597 ST_RET(ENGRAVING_ID);
1598 YY_BREAK
1599 case 52:
1600 YY_RULE_SETUP
1601 ST_RET(MINERALIZE_ID);
1602 YY_BREAK
1603 case 53:
1604 YY_RULE_SETUP
1605 ST_RET(NAME_ID);
1606 YY_BREAK
1607 case 54:
1608 YY_RULE_SETUP
1609 ST_RET(FOR_ID);
1610 YY_BREAK
1611 case 55:
1612 YY_RULE_SETUP
1613 ST_RET(TO_ID);
1614 YY_BREAK
1615 case 56:
1616 YY_RULE_SETUP
1617 ST_RET(LOOP_ID);
1618 YY_BREAK
1619 case 57:
1620 YY_RULE_SETUP
1621 ST_RET(SWITCH_ID);
1622 YY_BREAK
1623 case 58:
1624 YY_RULE_SETUP
1625 ST_RET(CASE_ID);
1626 YY_BREAK
1627 case 59:
1628 YY_RULE_SETUP
1629 ST_RET(BREAK_ID);
1630 YY_BREAK
1631 case 60:
1632 YY_RULE_SETUP
1633 ST_RET(DEFAULT_ID);
1634 YY_BREAK
1635 case 61:
1636 YY_RULE_SETUP
1637 ST_RET(FUNCTION_ID);
1638 YY_BREAK
1639 case 62:
1640 YY_RULE_SETUP
1641 ST_RET(SHUFFLE_ID);
1642 YY_BREAK
1643 case 63:
1644 YY_RULE_SETUP
1645 ST_RET(MONTYPE_ID);
1646 YY_BREAK
1647 case 64:
1648 YY_RULE_SETUP
1649 ST_RET(selection_ID);
1650 YY_BREAK
1651 case 65:
1652 YY_RULE_SETUP
1653 ST_RET(rect_ID);
1654 YY_BREAK
1655 case 66:
1656 YY_RULE_SETUP
1657 ST_RET(fillrect_ID);
1658 YY_BREAK
1659 case 67:
1660 YY_RULE_SETUP
1661 ST_RET(line_ID);
1662 YY_BREAK
1663 case 68:
1664 YY_RULE_SETUP
1665 ST_RET(randline_ID);
1666 YY_BREAK
1667 case 69:
1668 YY_RULE_SETUP
1669 ST_RET(grow_ID);
1670 YY_BREAK
1671 case 70:
1672 YY_RULE_SETUP
1673 ST_RET(flood_ID);
1674 YY_BREAK
1675 case 71:
1676 YY_RULE_SETUP
1677 ST_RET(rndcoord_ID);
1678 YY_BREAK
1679 case 72:
1680 YY_RULE_SETUP
1681 ST_RET(circle_ID);
1682 YY_BREAK
1683 case 73:
1684 YY_RULE_SETUP
1685 ST_RET(ellipse_ID);
1686 YY_BREAK
1687 case 74:
1688 YY_RULE_SETUP
1689 ST_RET(filter_ID);
1690 YY_BREAK
1691 case 75:
1692 YY_RULE_SETUP
1693 ST_RET(gradient_ID);
1694 YY_BREAK
1695 case 76:
1696 YY_RULE_SETUP
1697 ST_RET(complement_ID);
1698 YY_BREAK
1699 case 77:
1700 YY_RULE_SETUP
1701 { savetoken(yytext); yylval.i=SEL_GRADIENT_RADIAL; return GRADIENT_TYPE; }
1702 YY_BREAK
1703 case 78:
1704 YY_RULE_SETUP
1705 { savetoken(yytext); yylval.i=SEL_GRADIENT_SQUARE; return GRADIENT_TYPE; }
1706 YY_BREAK
1707 case 79:
1708 YY_RULE_SETUP
1709 { savetoken(yytext); yylval.i=DRY; return HUMIDITY_TYPE; }
1710 YY_BREAK
1711 case 80:
1712 YY_RULE_SETUP
1713 { savetoken(yytext); yylval.i=WET; return HUMIDITY_TYPE; }
1714 YY_BREAK
1715 case 81:
1716 YY_RULE_SETUP
1717 { savetoken(yytext); yylval.i=HOT; return HUMIDITY_TYPE; }
1718 YY_BREAK
1719 case 82:
1720 YY_RULE_SETUP
1721 { savetoken(yytext); yylval.i=SOLID; return HUMIDITY_TYPE; }
1722 YY_BREAK
1723 case 83:
1724 YY_RULE_SETUP
1725 { savetoken(yytext); yylval.i=ANY_LOC; return HUMIDITY_TYPE; }
1726 YY_BREAK
1727 case 84:
1728 YY_RULE_SETUP
1729 ST_RET(LEV);
1730 YY_BREAK
1731 case 85:
1732 YY_RULE_SETUP
1733 ST_RET(QUANTITY_ID);
1734 YY_BREAK
1735 case 86:
1736 YY_RULE_SETUP
1737 ST_RET(BURIED_ID);
1738 YY_BREAK
1739 case 87:
1740 YY_RULE_SETUP
1741 ST_RET(ERODED_ID);
1742 YY_BREAK
1743 case 88:
1744 YY_RULE_SETUP
1745 ST_RET(ERODEPROOF_ID);
1746 YY_BREAK
1747 case 89:
1748 YY_RULE_SETUP
1749 { savetoken(yytext); yylval.i=1; return TRAPPED_STATE; }
1750 YY_BREAK
1751 case 90:
1752 YY_RULE_SETUP
1753 { savetoken(yytext); yylval.i=0; return TRAPPED_STATE; }
1754 YY_BREAK
1755 case 91:
1756 YY_RULE_SETUP
1757 ST_RET(RECHARGED_ID);
1758 YY_BREAK
1759 case 92:
1760 YY_RULE_SETUP
1761 ST_RET(INVIS_ID);
1762 YY_BREAK
1763 case 93:
1764 YY_RULE_SETUP
1765 ST_RET(GREASED_ID);
1766 YY_BREAK
1767 case 94:
1768 YY_RULE_SETUP
1769 ST_RET(FEMALE_ID);
1770 YY_BREAK
1771 case 95:
1772 YY_RULE_SETUP
1773 ST_RET(CANCELLED_ID);
1774 YY_BREAK
1775 case 96:
1776 YY_RULE_SETUP
1777 ST_RET(REVIVED_ID);
1778 YY_BREAK
1779 case 97:
1780 YY_RULE_SETUP
1781 ST_RET(AVENGE_ID);
1782 YY_BREAK
1783 case 98:
1784 YY_RULE_SETUP
1785 ST_RET(FLEEING_ID);
1786 YY_BREAK
1787 case 99:
1788 YY_RULE_SETUP
1789 ST_RET(BLINDED_ID);
1790 YY_BREAK
1791 case 100:
1792 YY_RULE_SETUP
1793 ST_RET(PARALYZED_ID);
1794 YY_BREAK
1795 case 101:
1796 YY_RULE_SETUP
1797 ST_RET(STUNNED_ID);
1798 YY_BREAK
1799 case 102:
1800 YY_RULE_SETUP
1801 ST_RET(CONFUSED_ID);
1802 YY_BREAK
1803 case 103:
1804 YY_RULE_SETUP
1805 ST_RET(SEENTRAPS_ID);
1806 YY_BREAK
1807 case 104:
1808 YY_RULE_SETUP
1809 ST_RET(ALL_ID);
1810 YY_BREAK
1811 case 105:
1812 YY_RULE_SETUP
1813 ST_RETF((yylval.i=1), HORIZ_OR_VERT);
1814 YY_BREAK
1815 case 106:
1816 YY_RULE_SETUP
1817 { savetoken(yytext); yylval.i=2; return HORIZ_OR_VERT; }
1818 YY_BREAK
1819 case 107:
1820 YY_RULE_SETUP
1821 { savetoken(yytext); yylval.i=D_ISOPEN; return DOOR_STATE; }
1822 YY_BREAK
1823 case 108:
1824 YY_RULE_SETUP
1825 { savetoken(yytext); yylval.i=D_CLOSED; return DOOR_STATE; }
1826 YY_BREAK
1827 case 109:
1828 YY_RULE_SETUP
1829 { savetoken(yytext); yylval.i=D_LOCKED; return DOOR_STATE; }
1830 YY_BREAK
1831 case 110:
1832 YY_RULE_SETUP
1833 { savetoken(yytext); yylval.i=D_NODOOR; return DOOR_STATE; }
1834 YY_BREAK
1835 case 111:
1836 YY_RULE_SETUP
1837 { savetoken(yytext); yylval.i=D_BROKEN; return DOOR_STATE; }
1838 YY_BREAK
1839 case 112:
1840 YY_RULE_SETUP
1841 { savetoken(yytext); yylval.i=D_SECRET; return DOOR_STATE; }
1842 YY_BREAK
1843 case 113:
1844 YY_RULE_SETUP
1845 { savetoken(yytext); yylval.i=W_NORTH; return DIRECTION; }
1846 YY_BREAK
1847 case 114:
1848 YY_RULE_SETUP
1849 { savetoken(yytext); yylval.i=W_EAST; return DIRECTION; }
1850 YY_BREAK
1851 case 115:
1852 YY_RULE_SETUP
1853 { savetoken(yytext); yylval.i=W_SOUTH; return DIRECTION; }
1854 YY_BREAK
1855 case 116:
1856 YY_RULE_SETUP
1857 { savetoken(yytext); yylval.i=W_WEST; return DIRECTION; }
1858 YY_BREAK
1859 case 117:
1860 YY_RULE_SETUP
1861 { savetoken(yytext); yylval.i = -1; return RANDOM_TYPE; }
1862 YY_BREAK
1863 case 118:
1864 YY_RULE_SETUP
1865 { savetoken(yytext); yylval.i = -1; return RANDOM_TYPE_BRACKET; }
1866 YY_BREAK
1867 case 119:
1868 YY_RULE_SETUP
1869 { savetoken(yytext); yylval.i = -2; return NONE; }
1870 YY_BREAK
1871 case 120:
1872 YY_RULE_SETUP
1873 ST_RET(A_REGISTER);
1874 YY_BREAK
1875 case 121:
1876 YY_RULE_SETUP
1877 { savetoken(yytext); yylval.i=1; return LEFT_OR_RIGHT; }
1878 YY_BREAK
1879 case 122:
1880 YY_RULE_SETUP
1881 { savetoken(yytext); yylval.i=2; return LEFT_OR_RIGHT; }
1882 YY_BREAK
1883 case 123:
1884 YY_RULE_SETUP
1885 { savetoken(yytext); yylval.i=3; return CENTER; }
1886 YY_BREAK
1887 case 124:
1888 YY_RULE_SETUP
1889 { savetoken(yytext); yylval.i=4; return LEFT_OR_RIGHT; }
1890 YY_BREAK
1891 case 125:
1892 YY_RULE_SETUP
1893 { savetoken(yytext); yylval.i=5; return LEFT_OR_RIGHT; }
1894 YY_BREAK
1895 case 126:
1896 YY_RULE_SETUP
1897 { savetoken(yytext); yylval.i=1; return TOP_OR_BOT; }
1898 YY_BREAK
1899 case 127:
1900 YY_RULE_SETUP
1901 { savetoken(yytext); yylval.i=5; return TOP_OR_BOT; }
1902 YY_BREAK
1903 case 128:
1904 YY_RULE_SETUP
1905 { savetoken(yytext); yylval.i=1; return LIGHT_STATE; }
1906 YY_BREAK
1907 case 129:
1908 YY_RULE_SETUP
1909 { savetoken(yytext); yylval.i=0; return LIGHT_STATE; }
1910 YY_BREAK
1911 case 130:
1912 YY_RULE_SETUP
1913 { savetoken(yytext); yylval.i=1; return FILLING; }
1914 YY_BREAK
1915 case 131:
1916 YY_RULE_SETUP
1917 { savetoken(yytext); yylval.i=0; return FILLING; }
1918 YY_BREAK
1919 case 132:
1920 YY_RULE_SETUP
1921 { savetoken(yytext); yylval.i=0; return IRREGULAR; }
1922 YY_BREAK
1923 case 133:
1924 YY_RULE_SETUP
1925 { savetoken(yytext); yylval.i=1; return IRREGULAR; }
1926 YY_BREAK
1927 case 134:
1928 YY_RULE_SETUP
1929 { savetoken(yytext); yylval.i=1; return JOINED; }
1930 YY_BREAK
1931 case 135:
1932 YY_RULE_SETUP
1933 { savetoken(yytext); yylval.i=0; return JOINED; }
1934 YY_BREAK
1935 case 136:
1936 YY_RULE_SETUP
1937 { savetoken(yytext); yylval.i=1; return LIMITED; }
1938 YY_BREAK
1939 case 137:
1940 YY_RULE_SETUP
1941 { savetoken(yytext); yylval.i=0; return LIMITED; }
1942 YY_BREAK
1943 case 138:
1944 YY_RULE_SETUP
1945 { savetoken(yytext); yylval.i= AM_NONE; return ALIGNMENT; }
1946 YY_BREAK
1947 case 139:
1948 YY_RULE_SETUP
1949 { savetoken(yytext); yylval.i= AM_LAWFUL; return ALIGNMENT; }
1950 YY_BREAK
1951 case 140:
1952 YY_RULE_SETUP
1953 { savetoken(yytext); yylval.i= AM_NEUTRAL; return ALIGNMENT; }
1954 YY_BREAK
1955 case 141:
1956 YY_RULE_SETUP
1957 { savetoken(yytext); yylval.i= AM_CHAOTIC; return ALIGNMENT; }
1958 YY_BREAK
1959 case 142:
1960 YY_RULE_SETUP
1961 { savetoken(yytext); yylval.i= AM_SPLEV_CO; return ALIGNMENT; }
1962 YY_BREAK
1963 case 143:
1964 YY_RULE_SETUP
1965 { savetoken(yytext); yylval.i= AM_SPLEV_NONCO; return ALIGNMENT; }
1966 YY_BREAK
1967 case 144:
1968 YY_RULE_SETUP
1969 { savetoken(yytext); yylval.i=1; return MON_ATTITUDE; }
1970 YY_BREAK
1971 case 145:
1972 YY_RULE_SETUP
1973 { savetoken(yytext); yylval.i=0; return MON_ATTITUDE; }
1974 YY_BREAK
1975 case 146:
1976 YY_RULE_SETUP
1977 { savetoken(yytext); yylval.i=1; return MON_ALERTNESS; }
1978 YY_BREAK
1979 case 147:
1980 YY_RULE_SETUP
1981 { savetoken(yytext); yylval.i=0; return MON_ALERTNESS; }
1982 YY_BREAK
1983 case 148:
1984 YY_RULE_SETUP
1985 { savetoken(yytext); yylval.i= M_AP_FURNITURE; return MON_APPEARANCE; }
1986 YY_BREAK
1987 case 149:
1988 YY_RULE_SETUP
1989 { savetoken(yytext); yylval.i= M_AP_MONSTER; return MON_APPEARANCE; }
1990 YY_BREAK
1991 case 150:
1992 YY_RULE_SETUP
1993 { savetoken(yytext); yylval.i= M_AP_OBJECT; return MON_APPEARANCE; }
1994 YY_BREAK
1995 case 151:
1996 YY_RULE_SETUP
1997 { savetoken(yytext); yylval.i=2; return ALTAR_TYPE; }
1998 YY_BREAK
1999 case 152:
2000 YY_RULE_SETUP
2001 { savetoken(yytext); yylval.i=1; return ALTAR_TYPE; }
2002 YY_BREAK
2003 case 153:
2004 YY_RULE_SETUP
2005 { savetoken(yytext); yylval.i=0; return ALTAR_TYPE; }
2006 YY_BREAK
2007 case 154:
2008 YY_RULE_SETUP
2009 { savetoken(yytext); yylval.i=1; return UP_OR_DOWN; }
2010 YY_BREAK
2011 case 155:
2012 YY_RULE_SETUP
2013 { savetoken(yytext); yylval.i=0; return UP_OR_DOWN; }
2014 YY_BREAK
2015 case 156:
2016 YY_RULE_SETUP
2017 { savetoken(yytext); yylval.i=0; return BOOLEAN; }
2018 YY_BREAK
2019 case 157:
2020 YY_RULE_SETUP
2021 { savetoken(yytext); yylval.i=1; return BOOLEAN; }
2022 YY_BREAK
2023 case 158:
2024 YY_RULE_SETUP
2025 { savetoken(yytext); yylval.i=DUST; return ENGRAVING_TYPE; }
2026 YY_BREAK
2027 case 159:
2028 YY_RULE_SETUP
2029 { savetoken(yytext); yylval.i=ENGRAVE; return ENGRAVING_TYPE; }
2030 YY_BREAK
2031 case 160:
2032 YY_RULE_SETUP
2033 { savetoken(yytext); yylval.i=BURN; return ENGRAVING_TYPE; }
2034 YY_BREAK
2035 case 161:
2036 YY_RULE_SETUP
2037 { savetoken(yytext); yylval.i=MARK; return ENGRAVING_TYPE; }
2038 YY_BREAK
2039 case 162:
2040 YY_RULE_SETUP
2041 { savetoken(yytext); yylval.i=ENGR_BLOOD; return ENGRAVING_TYPE; }
2042 YY_BREAK
2043 case 163:
2044 YY_RULE_SETUP
2045 { savetoken(yytext); yylval.i=1; return CURSE_TYPE; }
2046 YY_BREAK
2047 case 164:
2048 YY_RULE_SETUP
2049 { savetoken(yytext); yylval.i=2; return CURSE_TYPE; }
2050 YY_BREAK
2051 case 165:
2052 YY_RULE_SETUP
2053 { savetoken(yytext); yylval.i=3; return CURSE_TYPE; }
2054 YY_BREAK
2055 case 166:
2056 YY_RULE_SETUP
2057 { savetoken(yytext); yylval.i=NOTELEPORT; return FLAG_TYPE; }
2058 YY_BREAK
2059 case 167:
2060 YY_RULE_SETUP
2061 { savetoken(yytext); yylval.i=HARDFLOOR; return FLAG_TYPE; }
2062 YY_BREAK
2063 case 168:
2064 YY_RULE_SETUP
2065 { savetoken(yytext); yylval.i=NOMMAP; return FLAG_TYPE; }
2066 YY_BREAK
2067 case 169:
2068 YY_RULE_SETUP
2069 { savetoken(yytext); yylval.i=ARBOREAL; return FLAG_TYPE; } /* KMH */
2070 YY_BREAK
2071 case 170:
2072 YY_RULE_SETUP
2073 { savetoken(yytext); yylval.i=SHORTSIGHTED; return FLAG_TYPE; }
2074 YY_BREAK
2075 case 171:
2076 YY_RULE_SETUP
2077 { savetoken(yytext); yylval.i=MAZELEVEL; return FLAG_TYPE; }
2078 YY_BREAK
2079 case 172:
2080 YY_RULE_SETUP
2081 { savetoken(yytext); yylval.i=PREMAPPED; return FLAG_TYPE; }
2082 YY_BREAK
2083 case 173:
2084 YY_RULE_SETUP
2085 { savetoken(yytext); yylval.i=SHROUD; return FLAG_TYPE; }
2086 YY_BREAK
2087 case 174:
2088 YY_RULE_SETUP
2089 { savetoken(yytext); yylval.i=GRAVEYARD; return FLAG_TYPE; }
2090 YY_BREAK
2091 case 175:
2092 YY_RULE_SETUP
2093 { savetoken(yytext); yylval.i=ICEDPOOLS; return FLAG_TYPE; }
2094 YY_BREAK
2095 case 176:
2096 YY_RULE_SETUP
2097 { savetoken(yytext); yylval.i=SOLIDIFY; return FLAG_TYPE; }
2098 YY_BREAK
2099 case 177:
2100 YY_RULE_SETUP
2101 { savetoken(yytext); yylval.i=CORRMAZE; return FLAG_TYPE; }
2102 YY_BREAK
2103 case 178:
2104 YY_RULE_SETUP
2105 { savetoken(yytext); yylval.i=CHECK_INACCESSIBLES; return FLAG_TYPE; }
2106 YY_BREAK
2107 case 179:
2108 YY_RULE_SETUP
2109 { char *p = index(yytext, 'd');
2110 savetoken(yytext);
2111 if (p) {
2112 *p++ = '\0';
2113 yylval.dice.num = atoi(yytext);
2114 yylval.dice.die = atoi(p);
2115 } else {
2116 yylval.dice.num = yylval.dice.die = 1;
2117 }
2118 return DICE;
2119 }
2120 YY_BREAK
2121 case 180:
2122 YY_RULE_SETUP
2123 { savetoken(yytext); yylval.i = atoi(yytext + 1);
2124 if (yylval.i < 0 || yylval.i > 100)
2125 lc_error("Unexpected percentile '%li%%'", yylval.i);
2126 return PERCENT; }
2127 YY_BREAK
2128 case 181:
2129 YY_RULE_SETUP
2130 { savetoken(yytext); yylval.i=atoi(yytext); return MINUS_INTEGER; }
2131 YY_BREAK
2132 case 182:
2133 YY_RULE_SETUP
2134 { savetoken(yytext); yylval.i=atoi(yytext); return PLUS_INTEGER; }
2135 YY_BREAK
2136 case 183:
2137 YY_RULE_SETUP
2138 { savetoken(yytext); yylval.i = atoi(yytext);
2139 if (yylval.i < 0 || yylval.i > 100)
2140 lc_error("Unexpected percentile '%li%%'", yylval.i);
2141 return SPERCENT; }
2142 YY_BREAK
2143 case 184:
2144 YY_RULE_SETUP
2145 { savetoken(yytext); yylval.i=atoi(yytext); return INTEGER; }
2146 YY_BREAK
2147 case 185:
2148 /* rule 185 can match eol */
2149 YY_RULE_SETUP
2150 { savetoken(yytext);
2151 yytext[yyleng - 1] = '\0'; /* discard the trailing \" */
2152 yylval.map = dupstr(yytext + 1); /* skip the first \" */
2153 return STRING; }
2154 YY_BREAK
2155 case 186:
2156 YY_RULE_SETUP
2157 { savetoken(yytext); return handle_varstring_check(); }
2158 YY_BREAK
2159 case 187:
2160 YY_RULE_SETUP
2161 { savetoken(yytext); yylval.i = SPO_JE; return COMPARE_TYPE; }
2162 YY_BREAK
2163 case 188:
2164 YY_RULE_SETUP
2165 { savetoken(yytext); yylval.i = SPO_JNE; return COMPARE_TYPE; }
2166 YY_BREAK
2167 case 189:
2168 YY_RULE_SETUP
2169 { savetoken(yytext); yylval.i = SPO_JNE; return COMPARE_TYPE; }
2170 YY_BREAK
2171 case 190:
2172 YY_RULE_SETUP
2173 { savetoken(yytext); yylval.i = SPO_JLE; return COMPARE_TYPE; }
2174 YY_BREAK
2175 case 191:
2176 YY_RULE_SETUP
2177 { savetoken(yytext); yylval.i = SPO_JGE; return COMPARE_TYPE; }
2178 YY_BREAK
2179 case 192:
2180 YY_RULE_SETUP
2181 { savetoken(yytext); yylval.i = SPO_JL; return COMPARE_TYPE; }
2182 YY_BREAK
2183 case 193:
2184 YY_RULE_SETUP
2185 { savetoken(yytext); yylval.i = SPO_JG; return COMPARE_TYPE; }
2186 YY_BREAK
2187 case 194:
2188 /* rule 194 can match eol */
2189 YY_RULE_SETUP
2190 { newline(); }
2191 YY_BREAK
2192 case 195:
2193 YY_RULE_SETUP
2194 { advancepos(yytext); }
2195 YY_BREAK
2196 case 196:
2197 YY_RULE_SETUP
2198 { savetoken(yytext); yylval.i = yytext[2]; return CHAR; }
2199 YY_BREAK
2200 case 197:
2201 YY_RULE_SETUP
2202 { savetoken(yytext); yylval.i = yytext[1]; return CHAR; }
2203 YY_BREAK
2204 case 198:
2205 YY_RULE_SETUP
2206 ST_RET(UNKNOWN_TYPE);
2207 YY_BREAK
2208 case 199:
2209 YY_RULE_SETUP
2210 { savetoken(yytext); return yytext[0]; }
2211 YY_BREAK
2212 case 200:
2213 YY_RULE_SETUP
2214 ECHO;
2215 YY_BREAK
2216 case YY_STATE_EOF(INITIAL):
2217 case YY_STATE_EOF(MAPC):
2218 yyterminate();
2219
2220 case YY_END_OF_BUFFER:
2221 {
2222 /* Amount of text matched not including the EOB char. */
2223 int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
2224
2225 /* Undo the effects of YY_DO_BEFORE_ACTION. */
2226 *yy_cp = (yy_hold_char);
2227 YY_RESTORE_YY_MORE_OFFSET
2228
2229 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
2230 {
2231 /* We're scanning a new file or input source. It's
2232 * possible that this happened because the user
2233 * just pointed yyin at a new source and called
2234 * yylex(). If so, then we have to assure
2235 * consistency between YY_CURRENT_BUFFER and our
2236 * globals. Here is the right place to do so, because
2237 * this is the first action (other than possibly a
2238 * back-up) that will match for the new input source.
2239 */
2240 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
2241 YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
2242 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
2243 }
2244
2245 /* Note that here we test for yy_c_buf_p "<=" to the position
2246 * of the first EOB in the buffer, since yy_c_buf_p will
2247 * already have been incremented past the NUL character
2248 * (since all states make transitions on EOB to the
2249 * end-of-buffer state). Contrast this with the test
2250 * in input().
2251 */
2252 if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
2253 { /* This was really a NUL. */
2254 yy_state_type yy_next_state;
2255
2256 (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
2257
2258 yy_current_state = yy_get_previous_state( );
2259
2260 /* Okay, we're now positioned to make the NUL
2261 * transition. We couldn't have
2262 * yy_get_previous_state() go ahead and do it
2263 * for us because it doesn't know how to deal
2264 * with the possibility of jamming (and we don't
2265 * want to build jamming into it because then it
2266 * will run more slowly).
2267 */
2268
2269 yy_next_state = yy_try_NUL_trans( yy_current_state );
2270
2271 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
2272
2273 if ( yy_next_state )
2274 {
2275 /* Consume the NUL. */
2276 yy_cp = ++(yy_c_buf_p);
2277 yy_current_state = yy_next_state;
2278 goto yy_match;
2279 }
2280
2281 else
2282 {
2283 yy_cp = (yy_c_buf_p);
2284 goto yy_find_action;
2285 }
2286 }
2287
2288 else switch ( yy_get_next_buffer( ) )
2289 {
2290 case EOB_ACT_END_OF_FILE:
2291 {
2292 (yy_did_buffer_switch_on_eof) = 0;
2293
2294 if ( yywrap( ) )
2295 {
2296 /* Note: because we've taken care in
2297 * yy_get_next_buffer() to have set up
2298 * yytext, we can now set up
2299 * yy_c_buf_p so that if some total
2300 * hoser (like flex itself) wants to
2301 * call the scanner after we return the
2302 * YY_NULL, it'll still work - another
2303 * YY_NULL will get returned.
2304 */
2305 (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
2306
2307 yy_act = YY_STATE_EOF(YY_START);
2308 goto do_action;
2309 }
2310
2311 else
2312 {
2313 if ( ! (yy_did_buffer_switch_on_eof) )
2314 YY_NEW_FILE;
2315 }
2316 break;
2317 }
2318
2319 case EOB_ACT_CONTINUE_SCAN:
2320 (yy_c_buf_p) =
2321 (yytext_ptr) + yy_amount_of_matched_text;
2322
2323 yy_current_state = yy_get_previous_state( );
2324
2325 yy_cp = (yy_c_buf_p);
2326 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
2327 goto yy_match;
2328
2329 case EOB_ACT_LAST_MATCH:
2330 (yy_c_buf_p) =
2331 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
2332
2333 yy_current_state = yy_get_previous_state( );
2334
2335 yy_cp = (yy_c_buf_p);
2336 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
2337 goto yy_find_action;
2338 }
2339 break;
2340 }
2341
2342 default:
2343 YY_FATAL_ERROR(
2344 "fatal flex scanner internal error--no action found" );
2345 } /* end of action switch */
2346 } /* end of scanning one token */
2347 } /* end of user's declarations */
2348 } /* end of yylex */
2349
2350 /* yy_get_next_buffer - try to read in a new buffer
2351 *
2352 * Returns a code representing an action:
2353 * EOB_ACT_LAST_MATCH -
2354 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
2355 * EOB_ACT_END_OF_FILE - end of file
2356 */
2357 static int yy_get_next_buffer ()
2358 {
2359 char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
2360 char *source = (yytext_ptr);
2361 yy_size_t number_to_move, i;
2362 int ret_val;
2363
2364 if ((yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1])
2365 YY_FATAL_ERROR("fatal flex scanner internal error--end of buffer missed");
2366
2367 if (YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0) {
2368 /* Don't try to fill the buffer, so this is an EOF. */
2369 if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 ) {
2370 /* We matched a single character, the EOB, so
2371 * treat this as a final EOF.
2372 */
2373 return EOB_ACT_END_OF_FILE;
2374 } else {
2375 /* We matched some text prior to the EOB, first
2376 * process it.
2377 */
2378 return EOB_ACT_LAST_MATCH;
2379 }
2380 }
2381
2382 /* Try to read more data. */
2383
2384 /* First move last chars to start of buffer. */
2385 number_to_move = (yy_size_t) ((yy_c_buf_p) - (yytext_ptr)) - 1;
2386
2387 for (i = 0; i < number_to_move; ++i)
2388 *(dest++) = *(source++);
2389
2390 if (YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING) {
2391 /* don't do the read, it's not guaranteed to return an EOF,
2392 * just force an EOF
2393 */
2394 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
2395 } else {
2396 yy_size_t num_to_read;
2397 /* just a shorter name for the current buffer */
2398 YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
2399
2400 /* [pr] This could probably be (b->yy_buf_size < number_to_move)
2401 * since the allocated size is actually b->yy_buf_size + 2.
2402 * The old code calculated num_to_read above (with same formula
2403 * as is used below), then used (num_to_read <= 0) here, which
2404 * got broken when num_to_read was changed to an unsigned type. */
2405 while (b->yy_buf_size <= number_to_move + 1) {
2406 /* Not enough room in the buffer - grow it. */
2407
2408 int yy_c_buf_p_offset = (int) ((yy_c_buf_p) - b->yy_ch_buf);
2409
2410 if ( b->yy_is_our_buffer ) {
2411 b->yy_buf_size += b->yy_buf_size / 4;
2412 b->yy_ch_buf = (char *)
2413 /* Include room in for 2 EOB chars. */
2414 yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 );
2415 } else
2416 /* Can't grow it, we don't own it. */
2417 b->yy_ch_buf = 0;
2418
2419 if (! b->yy_ch_buf)
2420 YY_FATAL_ERROR("fatal error - scanner input buffer overflow");
2421
2422 (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
2423
2424 }
2425
2426 num_to_read = b->yy_buf_size - number_to_move - 1;
2427 if ( num_to_read > YY_READ_BUF_SIZE )
2428 num_to_read = YY_READ_BUF_SIZE;
2429
2430 /* Read in more data. */
2431 YY_INPUT((&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
2432 (yy_n_chars), num_to_read);
2433 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
2434 }
2435
2436 if ((yy_n_chars) == 0) {
2437 if (number_to_move == YY_MORE_ADJ) {
2438 ret_val = EOB_ACT_END_OF_FILE;
2439 yyrestart(yyin );
2440 } else {
2441 ret_val = EOB_ACT_LAST_MATCH;
2442 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_EOF_PENDING;
2443 }
2444 } else
2445 ret_val = EOB_ACT_CONTINUE_SCAN;
2446
2447 if ((yy_size_t) ((yy_n_chars) + number_to_move)
2448 > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
2449 /* Extend the array by 50%, plus the number we really need. */
2450 yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
2451 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *)
2452 yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
2453 if (! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf)
2454 YY_FATAL_ERROR("out of dynamic memory in yy_get_next_buffer()");
2455 }
2456
2457 (yy_n_chars) += number_to_move;
2458 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
2459 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
2460
2461 (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
2462
2463 return ret_val;
2464 }
2465
2466 /* yy_get_previous_state - get the state just before EOB char was reached */
2467
2468 static yy_state_type yy_get_previous_state ()
2469 {
2470 yy_state_type yy_current_state;
2471 char *yy_cp;
2472
2473 yy_current_state = (yy_start);
2474 yy_current_state += YY_AT_BOL();
2475
2476 for (yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp) {
2477
2478 YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
2479 if ( yy_accept[yy_current_state] )
2480 {
2481 (yy_last_accepting_state) = yy_current_state;
2482 (yy_last_accepting_cpos) = yy_cp;
2483 }
2484 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2485 {
2486 yy_current_state = (int) yy_def[yy_current_state];
2487 if ( yy_current_state >= 1057 )
2488 yy_c = yy_meta[(unsigned int) yy_c];
2489 }
2490 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
2491 }
2492
2493 return yy_current_state;
2494 }
2495
2496 /* yy_try_NUL_trans - try to make a transition on the NUL character
2497 *
2498 * synopsis
2499 * next_state = yy_try_NUL_trans( current_state );
2500 */
2501
2502 static yy_state_type yy_try_NUL_trans (yy_current_state )
2503 yy_state_type yy_current_state;
2504 {
2505 int yy_is_jam;
2506 char *yy_cp = (yy_c_buf_p);
2507
2508 YY_CHAR yy_c = 1;
2509 if ( yy_accept[yy_current_state] )
2510 {
2511 (yy_last_accepting_state) = yy_current_state;
2512 (yy_last_accepting_cpos) = yy_cp;
2513 }
2514 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2515 {
2516 yy_current_state = (int) yy_def[yy_current_state];
2517 if ( yy_current_state >= 1057 )
2518 yy_c = yy_meta[(unsigned int) yy_c];
2519 }
2520 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
2521 yy_is_jam = (yy_current_state == 1056);
2522
2523 return yy_is_jam ? 0 : yy_current_state;
2524 }
2525
2526 #ifndef YY_NO_UNPUT
2527
2528 static void yyunput (c,yy_bp )
2529 int c;
2530 char * yy_bp;
2531 {
2532 char *yy_cp;
2533
2534 yy_cp = (yy_c_buf_p);
2535
2536 /* undo effects of setting up yytext */
2537 *yy_cp = (yy_hold_char);
2538
2539 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
2540 { /* need to shift things up to make room */
2541 /* +2 for EOB chars. */
2542 yy_size_t number_to_move = (yy_n_chars) + 2;
2543 char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
2544 YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
2545 char *source =
2546 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
2547
2548 while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
2549 *--dest = *--source;
2550
2551 yy_cp += (int) (dest - source);
2552 yy_bp += (int) (dest - source);
2553 YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
2554 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
2555
2556 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
2557 YY_FATAL_ERROR( "flex scanner push-back overflow" );
2558 }
2559
2560 *--yy_cp = (char) c;
2561
2562 (yytext_ptr) = yy_bp;
2563 (yy_hold_char) = *yy_cp;
2564 (yy_c_buf_p) = yy_cp;
2565 }
2566
2567 #endif
2568
2569 #ifndef YY_NO_INPUT
2570 static int input ()
2571 {
2572 int c;
2573
2574 *(yy_c_buf_p) = (yy_hold_char);
2575
2576 if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
2577 {
2578 /* yy_c_buf_p now points to the character we want to return.
2579 * If this occurs *before* the EOB characters, then it's a
2580 * valid NUL; if not, then we've hit the end of the buffer.
2581 */
2582 if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
2583 /* This was really a NUL. */
2584 *(yy_c_buf_p) = '\0';
2585
2586 else
2587 { /* need more input */
2588 yy_size_t offset = (yy_c_buf_p) - (yytext_ptr);
2589 ++(yy_c_buf_p);
2590
2591 switch ( yy_get_next_buffer( ) )
2592 {
2593 case EOB_ACT_LAST_MATCH:
2594 /* This happens because yy_g_n_b()
2595 * sees that we've accumulated a
2596 * token and flags that we need to
2597 * try matching the token before
2598 * proceeding. But for input(),
2599 * there's no matching to consider.
2600 * So convert the EOB_ACT_LAST_MATCH
2601 * to EOB_ACT_END_OF_FILE.
2602 */
2603
2604 /* Reset buffer status. */
2605 yyrestart(yyin );
2606
2607 /*FALLTHROUGH*/
2608
2609 case EOB_ACT_END_OF_FILE:
2610 {
2611 if ( yywrap( ) )
2612 return EOF;
2613
2614 if ( ! (yy_did_buffer_switch_on_eof) )
2615 YY_NEW_FILE;
2616 return input();
2617 }
2618
2619 case EOB_ACT_CONTINUE_SCAN:
2620 (yy_c_buf_p) = (yytext_ptr) + offset;
2621 break;
2622 }
2623 }
2624 }
2625
2626 c = *(uchar *) (yy_c_buf_p); /* cast for 8-bit char's */
2627 *(yy_c_buf_p) = '\0'; /* preserve yytext */
2628 (yy_hold_char) = *++(yy_c_buf_p);
2629
2630 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
2631
2632 return c;
2633 }
2634 #endif /* ifndef YY_NO_INPUT */
2635
2636 /** Immediately switch to a different input stream.
2637 * @param input_file A readable stream.
2638 *
2639 * @note This function does not reset the start condition to @c INITIAL .
2640 */
2641
2642 void yyrestart (input_file )
2643 FILE * input_file;
2644 {
2645
2646 if ( ! YY_CURRENT_BUFFER ){
2647 yyensure_buffer_stack ();
2648 YY_CURRENT_BUFFER_LVALUE =
2649 yy_create_buffer(yyin,YY_BUF_SIZE );
2650 }
2651
2652 yy_init_buffer(YY_CURRENT_BUFFER,input_file );
2653 yy_load_buffer_state( );
2654 }
2655
2656 /** Switch to a different input buffer.
2657 * @param new_buffer The new input buffer.
2658 *
2659 */
2660 void yy_switch_to_buffer (new_buffer )
2661 YY_BUFFER_STATE new_buffer;
2662 {
2663
2664 /* TODO. We should be able to replace this entire function body
2665 * with
2666 * yypop_buffer_state();
2667 * yypush_buffer_state(new_buffer);
2668 */
2669 yyensure_buffer_stack ();
2670 if ( YY_CURRENT_BUFFER == new_buffer )
2671 return;
2672
2673 if ( YY_CURRENT_BUFFER )
2674 {
2675 /* Flush out information for old buffer. */
2676 *(yy_c_buf_p) = (yy_hold_char);
2677 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
2678 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
2679 }
2680
2681 YY_CURRENT_BUFFER_LVALUE = new_buffer;
2682 yy_load_buffer_state( );
2683
2684 /* We don't actually know whether we did this switch during
2685 * EOF (yywrap()) processing, but the only time this flag
2686 * is looked at is after yywrap() is called, so it's safe
2687 * to go ahead and always set it.
2688 */
2689 (yy_did_buffer_switch_on_eof) = 1;
2690 }
2691
2692 static void yy_load_buffer_state ()
2693 {
2694 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
2695 (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
2696 yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
2697 (yy_hold_char) = *(yy_c_buf_p);
2698 }
2699
2700 /** Allocate and initialize an input buffer state.
2701 * @param file A readable stream.
2702 * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
2703 *
2704 * @return the allocated buffer state.
2705 */
2706 YY_BUFFER_STATE yy_create_buffer (file,size )
2707 FILE * file;
2708 int size;
2709 {
2710 YY_BUFFER_STATE b;
2711
2712 b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
2713 if ( ! b )
2714 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2715 if (!size)
2716 size = YY_BUF_SIZE;
2717
2718 b->yy_buf_size = (yy_size_t)size;
2719
2720 /* yy_ch_buf has to be 2 characters longer than the size given because
2721 * we need to put in 2 end-of-buffer characters.
2722 */
2723 b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
2724 if ( ! b->yy_ch_buf )
2725 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2726
2727 b->yy_is_our_buffer = 1;
2728
2729 yy_init_buffer(b,file );
2730
2731 return b;
2732 }
2733
2734 /** Destroy the buffer.
2735 * @param b a buffer created with yy_create_buffer()
2736 *
2737 */
2738 void yy_delete_buffer (b )
2739 YY_BUFFER_STATE b;
2740 {
2741
2742 if ( ! b )
2743 return;
2744
2745 if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
2746 YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
2747
2748 if ( b->yy_is_our_buffer )
2749 yyfree((void *) b->yy_ch_buf );
2750
2751 yyfree((void *) b );
2752 }
2753
2754 /* Initializes or reinitializes a buffer.
2755 * This function is sometimes called more than once on the same buffer,
2756 * such as during a yyrestart() or at EOF.
2757 */
2758 static void yy_init_buffer (b,file )
2759 YY_BUFFER_STATE b;
2760 FILE * file;
2761 {
2762 int oerrno = errno;
2763
2764 yy_flush_buffer(b );
2765
2766 b->yy_input_file = file;
2767 b->yy_fill_buffer = 1;
2768
2769 /* If b is the current buffer, then yy_init_buffer was _probably_
2770 * called from yyrestart() or through yy_get_next_buffer.
2771 * In that case, we don't want to reset the lineno or column.
2772 */
2773 if (b != YY_CURRENT_BUFFER){
2774 b->yy_bs_lineno = 1;
2775 b->yy_bs_column = 0;
2776 }
2777
2778 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
2779
2780 errno = oerrno;
2781 }
2782
2783 /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
2784 * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
2785 *
2786 */
2787 void yy_flush_buffer (b )
2788 YY_BUFFER_STATE b;
2789 {
2790 if ( ! b )
2791 return;
2792
2793 b->yy_n_chars = 0;
2794
2795 /* We always need two end-of-buffer characters. The first causes
2796 * a transition to the end-of-buffer state. The second causes
2797 * a jam in that state.
2798 */
2799 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
2800 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
2801
2802 b->yy_buf_pos = &b->yy_ch_buf[0];
2803
2804 b->yy_at_bol = 1;
2805 b->yy_buffer_status = YY_BUFFER_NEW;
2806
2807 if ( b == YY_CURRENT_BUFFER )
2808 yy_load_buffer_state( );
2809 }
2810
2811 /** Pushes the new state onto the stack. The new state becomes
2812 * the current state. This function will allocate the stack
2813 * if necessary.
2814 * @param new_buffer The new state.
2815 *
2816 */
2817 void yypush_buffer_state (new_buffer )
2818 YY_BUFFER_STATE new_buffer;
2819 {
2820 if (new_buffer == NULL)
2821 return;
2822
2823 yyensure_buffer_stack();
2824
2825 /* This block is copied from yy_switch_to_buffer. */
2826 if ( YY_CURRENT_BUFFER )
2827 {
2828 /* Flush out information for old buffer. */
2829 *(yy_c_buf_p) = (yy_hold_char);
2830 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
2831 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
2832 }
2833
2834 /* Only push if top exists. Otherwise, replace top. */
2835 if (YY_CURRENT_BUFFER)
2836 (yy_buffer_stack_top)++;
2837 YY_CURRENT_BUFFER_LVALUE = new_buffer;
2838
2839 /* copied from yy_switch_to_buffer. */
2840 yy_load_buffer_state( );
2841 (yy_did_buffer_switch_on_eof) = 1;
2842 }
2843
2844 /** Removes and deletes the top of the stack, if present.
2845 * The next element becomes the new top.
2846 *
2847 */
2848 void yypop_buffer_state ()
2849 {
2850 if (!YY_CURRENT_BUFFER)
2851 return;
2852
2853 yy_delete_buffer(YY_CURRENT_BUFFER );
2854 YY_CURRENT_BUFFER_LVALUE = NULL;
2855 if ((yy_buffer_stack_top) > 0)
2856 --(yy_buffer_stack_top);
2857
2858 if (YY_CURRENT_BUFFER) {
2859 yy_load_buffer_state( );
2860 (yy_did_buffer_switch_on_eof) = 1;
2861 }
2862 }
2863
2864 /* Allocates the stack if it does not exist.
2865 * Guarantees space for at least one push.
2866 */
2867 static void yyensure_buffer_stack ()
2868 {
2869 yy_size_t num_to_alloc;
2870
2871 if (!(yy_buffer_stack)) {
2872 /* First allocation is just for 2 elements, since we don't know if this
2873 * scanner will even need a stack. We use 2 instead of 1 to avoid an
2874 * immediate realloc on the next call.
2875 */
2876 #if 1 /* [PR] avoid C++-style comment; older C compilers choke on it */
2877 num_to_alloc = 2; /* also changed to match the comment... */
2878 #else
2879 num_to_alloc = 1; // After all that talk, this was set to 1 anyways...
2880 #endif
2881 (yy_buffer_stack) = (struct yy_buffer_state**)
2882 yyalloc(num_to_alloc * sizeof(struct yy_buffer_state*) );
2883 if (!(yy_buffer_stack))
2884 YY_FATAL_ERROR("out of dynamic memory in yyensure_buffer_stack()");
2885
2886 (void) memset((yy_buffer_stack), 0,
2887 num_to_alloc * sizeof(struct yy_buffer_state*));
2888
2889 (yy_buffer_stack_max) = num_to_alloc;
2890 (yy_buffer_stack_top) = 0;
2891 return;
2892 }
2893
2894 if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1) {
2895 /* Increase the buffer to prepare for a possible push. */
2896 yy_size_t grow_size = 8 /* arbitrary grow size */;
2897
2898 num_to_alloc = (yy_buffer_stack_max) + grow_size;
2899 (yy_buffer_stack) = (struct yy_buffer_state**)
2900 yyrealloc((yy_buffer_stack),num_to_alloc * sizeof(struct yy_buffer_state*) );
2901 if (!(yy_buffer_stack))
2902 YY_FATAL_ERROR("out of dynamic memory in yyensure_buffer_stack()");
2903
2904 /* zero only the new slots.*/
2905 (void) memset((yy_buffer_stack) + (yy_buffer_stack_max), 0,
2906 grow_size * sizeof(struct yy_buffer_state*));
2907 (yy_buffer_stack_max) = num_to_alloc;
2908 }
2909 }
2910
2911 /** Setup the input buffer state to scan directly from a user-specified
2912 * character buffer.
2913 * @param base the character buffer
2914 * @param size the size in bytes of the character buffer
2915 *
2916 * @return the newly allocated buffer state object.
2917 */
2918 YY_BUFFER_STATE yy_scan_buffer (base,size )
2919 char * base;
2920 yy_size_t size;
2921 {
2922 YY_BUFFER_STATE b;
2923
2924 if ( size < 2 ||
2925 base[size-2] != YY_END_OF_BUFFER_CHAR ||
2926 base[size-1] != YY_END_OF_BUFFER_CHAR )
2927 /* They forgot to leave room for the EOB's. */
2928 return 0;
2929
2930 b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
2931 if ( ! b )
2932 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
2933
2934 b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
2935 b->yy_buf_pos = b->yy_ch_buf = base;
2936 b->yy_is_our_buffer = 0;
2937 b->yy_input_file = 0;
2938 b->yy_n_chars = b->yy_buf_size;
2939 b->yy_is_interactive = 0;
2940 b->yy_at_bol = 1;
2941 b->yy_fill_buffer = 0;
2942 b->yy_buffer_status = YY_BUFFER_NEW;
2943
2944 yy_switch_to_buffer(b );
2945
2946 return b;
2947 }
2948
2949 /** Setup the input buffer state to scan a string. The next call to yylex()
2950 * will scan from a @e copy of @a str.
2951 * @param yystr a NUL-terminated string to scan
2952 *
2953 * @return the newly allocated buffer state object.
2954 * @note If you want to scan bytes that may contain NUL values, then use
2955 * yy_scan_bytes() instead.
2956 */
2957 YY_BUFFER_STATE yy_scan_string (yystr )
2958 yyconst char * yystr;
2959 {
2960
2961 return yy_scan_bytes(yystr,strlen(yystr) );
2962 }
2963
2964 /** Setup the input buffer state to scan the given bytes. The next call to
2965 * yylex() will scan from a @e copy of @a bytes.
2966 * @param yybytes the byte buffer to scan
2967 * @param _yybytes_len the number of bytes in the buffer pointed to by @a
2968 * bytes.
2969 *
2970 * @return the newly allocated buffer state object.
2971 */
2972 YY_BUFFER_STATE yy_scan_bytes (yybytes,_yybytes_len )
2973 yyconst char * yybytes;
2974 yy_size_t _yybytes_len;
2975 {
2976 YY_BUFFER_STATE b;
2977 char *buf;
2978 yy_size_t n;
2979 yy_size_t i;
2980
2981 /* Get memory for full buffer, including space for trailing EOB's. */
2982 n = _yybytes_len + 2;
2983 buf = (char *) yyalloc(n );
2984 if ( ! buf )
2985 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
2986
2987 for ( i = 0; i < _yybytes_len; ++i )
2988 buf[i] = yybytes[i];
2989
2990 buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
2991
2992 b = yy_scan_buffer(buf,n );
2993 if ( ! b )
2994 YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
2995
2996 /* It's okay to grow etc. this buffer, and we should throw it
2997 * away when we're done.
2998 */
2999 b->yy_is_our_buffer = 1;
3000
3001 return b;
3002 }
3003
3004 #ifndef YY_EXIT_FAILURE
3005 #define YY_EXIT_FAILURE 2
3006 #endif
3007
3008 static void yy_fatal_error (msg )
3009 yyconst char* msg;
3010 {
3011 (void) fprintf( stderr, "%s\n", msg );
3012 exit( YY_EXIT_FAILURE );
3013 }
3014
3015 /* Redefine yyless() so it works in section 3 code. */
3016
3017 #undef yyless
3018 #define yyless(n) \
3019 do { \
3020 /* Undo effects of setting up yytext. */ \
3021 int yyless_macro_arg = (n); \
3022 YY_LESS_LINENO(yyless_macro_arg); \
3023 yytext[yyleng] = (yy_hold_char); \
3024 (yy_c_buf_p) = yytext + yyless_macro_arg; \
3025 (yy_hold_char) = *(yy_c_buf_p); \
3026 *(yy_c_buf_p) = '\0'; \
3027 yyleng = yyless_macro_arg; \
3028 } while ( 0 )
3029
3030 /* Accessor methods (get/set functions) to struct members. */
3031
3032 /** Get the current line number.
3033 *
3034 */
3035 int yyget_lineno ()
3036 {
3037
3038 return yylineno;
3039 }
3040
3041 /** Get the input stream.
3042 *
3043 */
3044 FILE *yyget_in ()
3045 {
3046 return yyin;
3047 }
3048
3049 /** Get the output stream.
3050 *
3051 */
3052 FILE *yyget_out ()
3053 {
3054 return yyout;
3055 }
3056
3057 /** Get the length of the current token.
3058 *
3059 */
3060 yy_size_t yyget_leng ()
3061 {
3062 return yyleng;
3063 }
3064
3065 /** Get the current token.
3066 *
3067 */
3068
3069 char *yyget_text ()
3070 {
3071 return yytext;
3072 }
3073
3074 /** Set the current line number.
3075 * @param _line_number line number
3076 *
3077 */
3078 void yyset_lineno (_line_number )
3079 int _line_number;
3080 {
3081
3082 yylineno = _line_number;
3083 }
3084
3085 /** Set the input stream. This does not discard the current
3086 * input buffer.
3087 * @param _in_str A readable stream.
3088 *
3089 * @see yy_switch_to_buffer
3090 */
3091 void yyset_in (_in_str )
3092 FILE * _in_str;
3093 {
3094 yyin = _in_str ;
3095 }
3096
3097 void yyset_out (_out_str )
3098 FILE * _out_str;
3099 {
3100 yyout = _out_str ;
3101 }
3102
3103 int yyget_debug ()
3104 {
3105 return yy_flex_debug;
3106 }
3107
3108 void yyset_debug (_bdebug )
3109 int _bdebug;
3110 {
3111 yy_flex_debug = _bdebug ;
3112 }
3113
3114 static int yy_init_globals ()
3115 {
3116 /* Initialization is the same as for the non-reentrant scanner.
3117 * This function is called from yylex_destroy(), so don't allocate here.
3118 */
3119
3120 (yy_buffer_stack) = 0;
3121 (yy_buffer_stack_top) = 0;
3122 (yy_buffer_stack_max) = 0;
3123 (yy_c_buf_p) = (char *) 0;
3124 (yy_init) = 0;
3125 (yy_start) = 0;
3126
3127 /* Defined in main.c */
3128 #ifdef YY_STDINIT
3129 yyin = stdin;
3130 yyout = stdout;
3131 #else
3132 yyin = (FILE *) 0;
3133 yyout = (FILE *) 0;
3134 #endif
3135
3136 /* For future reference: Set errno on error, since we are called by
3137 * yylex_init()
3138 */
3139 return 0;
3140 }
3141
3142 /* yylex_destroy is for both reentrant and non-reentrant scanners. */
3143 int yylex_destroy ()
3144 {
3145
3146 /* Pop the buffer stack, destroying each element. */
3147 while (YY_CURRENT_BUFFER) {
3148 yy_delete_buffer(YY_CURRENT_BUFFER );
3149 YY_CURRENT_BUFFER_LVALUE = NULL;
3150 yypop_buffer_state();
3151 }
3152 /* Destroy the stack itself. */
3153 yyfree((yy_buffer_stack) );
3154 (yy_buffer_stack) = NULL;
3155
3156 /* Reset the globals. This is important in a non-reentrant scanner
3157 * so the next time yylex() is called, initialization will occur. */
3158 yy_init_globals( );
3159
3160 return 0;
3161 }
3162
3163 /*
3164 * Internal utility routines.
3165 */
3166
3167 #ifndef yytext_ptr
3168 static void yy_flex_strncpy (s1,s2,n )
3169 char* s1;
3170 yyconst char * s2;
3171 int n;
3172 {
3173
3174 int i;
3175 for ( i = 0; i < n; ++i )
3176 s1[i] = s2[i];
3177 }
3178 #endif
3179
3180 #ifdef YY_NEED_STRLEN
3181 static int yy_flex_strlen (s )
3182 yyconst char * s;
3183 {
3184 int n;
3185 for ( n = 0; s[n]; ++n )
3186 ;
3187
3188 return n;
3189 }
3190 #endif
3191
3192 void *yyalloc (size )
3193 yy_size_t size;
3194 {
3195
3196 return (void *) malloc( size );
3197 }
3198
3199 void *yyrealloc (ptr,size )
3200 void * ptr;
3201 yy_size_t size;
3202 {
3203
3204 /* The cast to (char *) in the following accommodates both
3205 * implementations that use char* generic pointers, and those
3206 * that use void* generic pointers. It works with the latter
3207 * because both ANSI C and C++ allow castless assignment from
3208 * any pointer type to void*, and deal with argument conversions
3209 * as though doing an assignment.
3210 */
3211 return (void *) realloc( (char *) ptr, size );
3212 }
3213
3214 void yyfree (ptr )
3215 void * ptr;
3216 {
3217
3218 free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
3219 }
3220
3221 #ifdef AMIGA
3222 long *
3223 alloc(n)
3224 unsigned n;
3225 {
3226 return (long *) malloc(n);
3227 }
3228 #endif
3229
3230 /* routine to switch to another input file; needed for flex */
3231 void
3232 init_yyin( input_f )
3233 FILE *input_f;
3234 {
3235 #if defined(FLEX_SCANNER) || defined(FLEXHACK_SCANNER)
3236 if (yyin)
3237 yyrestart(input_f);
3238 else
3239 #endif
3240 yyin = input_f;
3241
3242 if (!orig_yyin)
3243 orig_yyin = yyin;
3244 }
3245 /* analogous routine (for completeness) */
3246 void
3247 init_yyout( output_f )
3248 FILE *output_f;
3249 {
3250 yyout = output_f;
3251 }
3252
3253 long
3254 handle_varstring_check()
3255 {
3256 struct lc_vardefs *vd;
3257
3258 yylval.map = dupstr(yytext);
3259 if ((vd = vardef_defined(variable_definitions, yytext, 1)) != 0) {
3260 long l = vd->var_type;
3261 int a = ((l & SPOVAR_ARRAY) == SPOVAR_ARRAY);
3262
3263 l &= ~SPOVAR_ARRAY;
3264 if (l == SPOVAR_INT)
3265 return (a ? VARSTRING_INT_ARRAY : VARSTRING_INT);
3266 if (l == SPOVAR_STRING)
3267 return (a ? VARSTRING_STRING_ARRAY : VARSTRING_STRING);
3268 if (l == SPOVAR_VARIABLE)
3269 return (a ? VARSTRING_VAR_ARRAY : VARSTRING_VAR);
3270 if (l == SPOVAR_COORD)
3271 return (a ? VARSTRING_COORD_ARRAY : VARSTRING_COORD);
3272 if (l == SPOVAR_REGION)
3273 return (a ? VARSTRING_REGION_ARRAY : VARSTRING_REGION);
3274 if (l == SPOVAR_MAPCHAR)
3275 return (a ? VARSTRING_MAPCHAR_ARRAY : VARSTRING_MAPCHAR);
3276 if (l == SPOVAR_MONST)
3277 return (a ? VARSTRING_MONST_ARRAY : VARSTRING_MONST);
3278 if (l == SPOVAR_OBJ)
3279 return (a ? VARSTRING_OBJ_ARRAY : VARSTRING_OBJ);
3280 if (l == SPOVAR_SEL)
3281 return (a ? VARSTRING_SEL_ARRAY : VARSTRING_SEL);
3282 }
3283 return VARSTRING;
3284 }
3285
3286 void
3287 newline()
3288 {
3289 nh_line_number++;
3290 token_start_pos = 0;
3291 (void) memset((genericptr_t) curr_token, 0, 512);
3292 }
3293
3294 void
3295 savetoken(s)
3296 char *s;
3297 {
3298 Sprintf(curr_token, "%s", s);
3299 advancepos(s);
3300 }
3301
3302 void
3303 advancepos(s)
3304 char *s;
3305 {
3306 token_start_pos += strlen(s);
3307 }
3308
3309 /*lev_comp.l*/
3310
A variant of NetHack 3.6-dev