1 /* A lexical scanner for NetHack generated by flex */
2
3 /* Scanner skeleton version:
4 * flexhack.skl 3.3.0 (from .../flex/RCS/flex.skl,v 2.85 95/04/24 10:48:47)
5 */
6 #define FLEXHACK_SCANNER
7 #define YY_FLEX_MAJOR_VERSION 2
8 #define YY_FLEX_MINOR_VERSION 5
9
10 #include "config.h"
11 #define yyconst const /* some code inserted by flex will refer to yyconst */
12
13 /* Returned upon end-of-file. */
14 #define YY_NULL 0
15
16 /* Promotes a possibly negative, possibly signed char to an unsigned
17 * integer for use as an array index. If the signed char is negative,
18 * we want to instead treat it as an 8-bit unsigned char, hence the
19 * double cast.
20 */
21 #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
22
23 /* Enter a start condition. This macro really ought to take a parameter,
24 * but we do it the disgusting crufty way forced on us by the ()-less
25 * definition of BEGIN.
26 */
27 #define BEGIN yy_start = 1 + 2 *
28
29 /* Translate the current start state into a value that can be later handed
30 * to BEGIN to return to the state. The YYSTATE alias is for lex
31 * compatibility.
32 */
33 #define YY_START ((yy_start - 1) / 2)
34 #define YYSTATE YY_START
35
36 /* Action number for EOF rule of a given start state. */
37 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
38
39 /* Special action meaning "start processing a new file". */
40 #define YY_NEW_FILE yyrestart( yyin )
41
42 #define YY_END_OF_BUFFER_CHAR 0
43
44 /* Size of default input buffer. */
45 #define YY_BUF_SIZE 16384
46
47 typedef struct yy_buffer_state *YY_BUFFER_STATE;
48
49 extern int yyleng;
50 extern FILE *yyin, *yyout;
51
52 #define EOB_ACT_CONTINUE_SCAN 0
53 #define EOB_ACT_END_OF_FILE 1
54 #define EOB_ACT_LAST_MATCH 2
55
56 /* Return all but the first 'n' matched characters back to the input stream. */
57 #define yyless(n) \
58 do \
59 { \
60 /* Undo effects of setting up yytext. */ \
61 *yy_cp = yy_hold_char; \
62 yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
63 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
64 } \
65 while ( 0 )
66
67 #define unput(c) yyunput( c, yytext_ptr )
68
69 /* The following is because we cannot portably get our hands on size_t
70 * (without autoconf's help, which isn't available because we want
71 * flex-generated scanners to compile on their own).
72 */
73 typedef unsigned int yy_size_t;
74
75
76 struct yy_buffer_state
77 {
78 FILE *yy_input_file;
79
80 char *yy_ch_buf; /* input buffer */
81 char *yy_buf_pos; /* current position in input buffer */
82
83 /* Size of input buffer in bytes, not including room for EOB
84 * characters.
85 */
86 yy_size_t yy_buf_size;
87
88 /* Number of characters read into yy_ch_buf, not including EOB
89 * characters.
90 */
91 int yy_n_chars;
92
93 /* Whether we "own" the buffer - i.e., we know we created it,
94 * and can realloc() it to grow it, and should free() it to
95 * delete it.
96 */
97 int yy_is_our_buffer;
98
99 /* Whether this is an "interactive" input source; if so, and
100 * if we're using stdio for input, then we want to use getc()
101 * instead of fread(), to make sure we stop fetching input after
102 * each newline.
103 */
104 int yy_is_interactive;
105
106 /* Whether we're considered to be at the beginning of a line.
107 * If so, '^' rules will be active on the next match, otherwise
108 * not.
109 */
110 int yy_at_bol;
111
112 /* Whether to try to fill the input buffer when we reach the
113 * end of it.
114 */
115 int yy_fill_buffer;
116
117 int yy_buffer_status;
118 #define YY_BUFFER_NEW 0
119 #define YY_BUFFER_NORMAL 1
120 /* When an EOF's been seen but there's still some text to process
121 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
122 * shouldn't try reading from the input source any more. We might
123 * still have a bunch of tokens to match, though, because of
124 * possible backing-up.
125 *
126 * When we actually see the EOF, we change the status to "new"
127 * (via yyrestart()), so that the user can continue scanning by
128 * just pointing yyin at a new input file.
129 */
130 #define YY_BUFFER_EOF_PENDING 2
131 };
132
133 static YY_BUFFER_STATE yy_current_buffer = 0;
134
135 /* We provide macros for accessing buffer states in case in the
136 * future we want to put the buffer states in a more general
137 * "scanner state".
138 */
139 #define YY_CURRENT_BUFFER yy_current_buffer
140
141 /* yy_hold_char holds the character lost when yytext is formed. */
142 static char yy_hold_char;
143
144 static int yy_n_chars; /* number of characters read into yy_ch_buf */
145
146 int yyleng;
147
148 /* Points to current character in buffer. */
149 static char *yy_c_buf_p = (char *) 0;
150 static int yy_init = 1; /* whether we need to initialize */
151 static int yy_start = 0; /* start state number */
152
153 /* Flag which is used to allow yywrap()'s to do buffer switches
154 * instead of setting up a fresh yyin. A bit of a hack ...
155 */
156 static int yy_did_buffer_switch_on_eof;
157
158 void FDECL(yyrestart, (FILE *));
159
160 void FDECL(yy_switch_to_buffer, (YY_BUFFER_STATE));
161 void NDECL(yy_load_buffer_state);
162 YY_BUFFER_STATE FDECL(yy_create_buffer, (FILE *,int));
163 void FDECL(yy_delete_buffer, (YY_BUFFER_STATE));
164 void FDECL(yy_init_buffer, (YY_BUFFER_STATE,FILE *));
165 void FDECL(yy_flush_buffer, (YY_BUFFER_STATE));
166 #define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
167
168 static genericptr_t FDECL(yy_flex_alloc, (yy_size_t));
169 static genericptr_t FDECL(yy_flex_realloc2, (genericptr_t,yy_size_t,int));
170 static void FDECL(yy_flex_free, (genericptr_t));
171
172 #define yy_new_buffer yy_create_buffer
173
174 #define yy_set_interactive(is_interactive) \
175 { \
176 if ( ! yy_current_buffer ) \
177 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
178 yy_current_buffer->yy_is_interactive = is_interactive; \
179 }
180
181 #define yy_set_bol(at_bol) \
182 { \
183 if ( ! yy_current_buffer ) \
184 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
185 yy_current_buffer->yy_at_bol = at_bol; \
186 }
187
188 #define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
189
190 typedef unsigned char YY_CHAR;
191 FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
192 typedef int yy_state_type;
193 extern char *yytext;
194 #define yytext_ptr yytext
195
196 static yy_state_type NDECL(yy_get_previous_state);
197 static yy_state_type FDECL(yy_try_NUL_trans, (yy_state_type));
198 static int NDECL(yy_get_next_buffer);
199 static void FDECL(yy_fatal_error, (const char *));
200
201 /* Done after the current pattern has been matched and before the
202 * corresponding action - sets up yytext.
203 */
204 #define YY_DO_BEFORE_ACTION \
205 yytext_ptr = yy_bp; \
206 yyleng = (int) (yy_cp - yy_bp); \
207 yy_hold_char = *yy_cp; \
208 *yy_cp = '\0'; \
209 yy_c_buf_p = yy_cp;
210
211 #define YY_NUM_RULES 35
212 #define YY_END_OF_BUFFER 36
213 static yyconst short int yy_accept[196] =
214 { 0,
215 0, 0, 36, 34, 33, 32, 34, 34, 29, 34,
216 34, 34, 34, 34, 34, 34, 34, 34, 34, 34,
217 34, 34, 34, 34, 34, 34, 34, 34, 34, 33,
218 32, 0, 30, 29, 0, 0, 0, 0, 0, 0,
219 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
220 0, 0, 0, 0, 0, 2, 0, 31, 0, 0,
221 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
222 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
223 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
224 0, 0, 3, 0, 0, 0, 0, 0, 0, 0,
225
226 0, 0, 0, 14, 0, 0, 0, 0, 0, 0,
227 4, 0, 25, 0, 0, 0, 0, 0, 0, 0,
228 0, 0, 6, 0, 0, 0, 5, 0, 0, 23,
229 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
230 0, 20, 0, 0, 0, 0, 8, 0, 0, 0,
231 0, 0, 0, 1, 0, 0, 0, 0, 0, 22,
232 15, 0, 21, 7, 19, 0, 0, 0, 0, 0,
233 0, 13, 0, 0, 0, 26, 16, 0, 0, 12,
234 0, 0, 0, 11, 9, 0, 17, 18, 0, 27,
235 0, 28, 24, 10, 0
236
237 } ;
238
239 static yyconst int yy_ec[256] =
240 { 0,
241 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
242 1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
243 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
244 1, 2, 1, 5, 6, 1, 1, 1, 1, 1,
245 1, 1, 1, 1, 7, 1, 1, 7, 7, 7,
246 7, 7, 7, 7, 7, 7, 7, 1, 1, 1,
247 1, 1, 1, 1, 8, 9, 10, 11, 12, 13,
248 14, 15, 16, 1, 1, 17, 18, 19, 20, 21,
249 1, 22, 23, 24, 25, 26, 1, 1, 27, 1,
250 1, 1, 1, 1, 28, 1, 29, 1, 30, 31,
251
252 32, 33, 34, 35, 36, 1, 37, 38, 39, 40,
253 41, 42, 1, 43, 44, 45, 46, 1, 47, 1,
254 1, 48, 1, 1, 1, 1, 1, 1, 1, 1,
255 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
256 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
257 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
258 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
259 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
260 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
261 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
262
263 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
264 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
265 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
266 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
267 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
268 1, 1, 1, 1, 1
269 } ;
270
271 static yyconst int yy_meta[49] =
272 { 0,
273 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
274 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
275 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
276 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
277 1, 1, 1, 1, 1, 1, 1, 1
278 } ;
279
280 static yyconst short int yy_base[198] =
281 { 0,
282 0, 213, 218, 220, 215, 220, 213, 210, 207, 196,
283 190, 196, 37, 191, 197, 186, 188, 171, 164, 172,
284 174, 173, 18, 160, 159, 154, 157, 11, 194, 194,
285 220, 190, 220, 187, 177, 184, 183, 167, 170, 164,
286 161, 166, 174, 155, 136, 144, 134, 132, 133, 26,
287 135, 143, 147, 128, 145, 220, 170, 220, 158, 152,
288 154, 159, 154, 145, 44, 142, 47, 124, 124, 125,
289 129, 129, 115, 27, 121, 113, 111, 120, 115, 116,
290 134, 142, 132, 128, 137, 121, 130, 129, 125, 129,
291 131, 97, 220, 105, 94, 101, 95, 96, 94, 99,
292
293 105, 101, 89, 220, 95, 112, 114, 51, 112, 107,
294 220, 110, 114, 111, 106, 96, 85, 76, 81, 82,
295 88, 69, 220, 81, 76, 75, 220, 78, 99, 220,
296 88, 97, 87, 88, 92, 93, 88, 91, 90, 71,
297 65, 220, 62, 60, 57, 56, 220, 59, 54, 74,
298 84, 65, 66, 220, 70, 65, 70, 60, 68, 220,
299 220, 52, 220, 220, 220, 46, 50, 57, 61, 67,
300 62, 220, 67, 64, 63, 220, 220, 42, 41, 220,
301 61, 53, 49, 220, 220, 50, 220, 220, 51, 220,
302 46, 220, 220, 220, 220, 62, 60
303
304 } ;
305
306 static yyconst short int yy_def[198] =
307 { 0,
308 195, 1, 195, 195, 195, 195, 195, 196, 195, 195,
309 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
310 195, 195, 195, 195, 195, 195, 195, 195, 197, 195,
311 195, 196, 195, 195, 195, 195, 195, 195, 195, 195,
312 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
313 195, 195, 195, 195, 195, 195, 197, 195, 195, 195,
314 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
315 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
316 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
317 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
318
319 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
320 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
321 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
322 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
323 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
324 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
325 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
326 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
327 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
328 195, 195, 195, 195, 0, 195, 195
329
330 } ;
331
332 static yyconst short int yy_nxt[269] =
333 { 0,
334 4, 5, 6, 7, 8, 4, 9, 10, 11, 12,
335 13, 14, 4, 4, 4, 4, 15, 4, 4, 4,
336 16, 17, 4, 4, 4, 4, 4, 4, 4, 18,
337 19, 4, 4, 4, 20, 4, 4, 21, 22, 23,
338 4, 24, 25, 26, 27, 28, 4, 4, 38, 49,
339 55, 87, 56, 74, 75, 88, 90, 98, 50, 131,
340 57, 39, 32, 91, 194, 193, 192, 132, 191, 190,
341 189, 188, 99, 187, 186, 185, 184, 183, 182, 181,
342 180, 179, 178, 177, 176, 175, 174, 173, 172, 171,
343 170, 169, 168, 167, 166, 165, 164, 163, 162, 161,
344
345 160, 159, 158, 157, 156, 155, 154, 153, 152, 151,
346 150, 149, 148, 147, 146, 145, 144, 143, 142, 141,
347 140, 139, 138, 137, 136, 135, 134, 133, 130, 129,
348 128, 127, 126, 125, 124, 123, 122, 121, 120, 119,
349 118, 117, 116, 115, 114, 113, 112, 111, 110, 109,
350 108, 107, 106, 105, 104, 103, 102, 101, 100, 97,
351 96, 95, 94, 93, 92, 89, 86, 85, 84, 83,
352 82, 81, 58, 80, 79, 78, 77, 76, 73, 72,
353 71, 70, 69, 68, 67, 66, 65, 64, 63, 62,
354 61, 60, 59, 34, 33, 30, 58, 54, 53, 52,
355
356 51, 48, 47, 46, 45, 44, 43, 42, 41, 40,
357 37, 36, 35, 34, 33, 31, 30, 195, 29, 3,
358 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
359 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
360 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
361 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
362 195, 195, 195, 195, 195, 195, 195, 195
363 } ;
364
365 static yyconst short int yy_chk[269] =
366 { 0,
367 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
368 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
369 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
370 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
371 1, 1, 1, 1, 1, 1, 1, 1, 13, 23,
372 28, 65, 28, 50, 50, 65, 67, 74, 23, 108,
373 197, 13, 196, 67, 191, 189, 186, 108, 183, 182,
374 181, 179, 74, 178, 175, 174, 173, 171, 170, 169,
375 168, 167, 166, 162, 159, 158, 157, 156, 155, 153,
376 152, 151, 150, 149, 148, 146, 145, 144, 143, 141,
377
378 140, 139, 138, 137, 136, 135, 134, 133, 132, 131,
379 129, 128, 126, 125, 124, 122, 121, 120, 119, 118,
380 117, 116, 115, 114, 113, 112, 110, 109, 107, 106,
381 105, 103, 102, 101, 100, 99, 98, 97, 96, 95,
382 94, 92, 91, 90, 89, 88, 87, 86, 85, 84,
383 83, 82, 81, 80, 79, 78, 77, 76, 75, 73,
384 72, 71, 70, 69, 68, 66, 64, 63, 62, 61,
385 60, 59, 57, 55, 54, 53, 52, 51, 49, 48,
386 47, 46, 45, 44, 43, 42, 41, 40, 39, 38,
387 37, 36, 35, 34, 32, 30, 29, 27, 26, 25,
388
389 24, 22, 21, 20, 19, 18, 17, 16, 15, 14,
390 12, 11, 10, 9, 8, 7, 5, 3, 2, 195,
391 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
392 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
393 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
394 195, 195, 195, 195, 195, 195, 195, 195, 195, 195,
395 195, 195, 195, 195, 195, 195, 195, 195
396 } ;
397
398 static yy_state_type yy_last_accepting_state;
399 static char *yy_last_accepting_cpos;
400
401 /* The intent behind this definition is that it'll catch
402 * any uses of REJECT which flex missed.
403 */
404 #define REJECT reject_used_but_not_detected
405 #define yymore() yymore_used_but_not_detected
406 #define YY_MORE_ADJ 0
407 char *yytext;
408 #define INITIAL 0
409 /* SCCS Id: @(#)dgn_lex.c 3.4 2002/03/27 */
410 /* Copyright (c) 1989 by Jean-Christophe Collet */
411 /* Copyright (c) 1990 by M. Stephenson */
412 /* NetHack may be freely redistributed. See license for details. */
413
414 #define DGN_COMP
415
416 #include "config.h"
417 #include "dgn_comp.h"
418 #include "dgn_file.h"
419
420 /*
421 * Most of these don't exist in flex, yywrap is macro and
422 * yyunput is properly declared in flex.skel.
423 */
424 #if !defined(FLEX_SCANNER) && !defined(FLEXHACK_SCANNER)
425 int FDECL(yyback, (int *,int));
426 int NDECL(yylook);
427 int NDECL(yyinput);
428 int NDECL(yywrap);
429 int NDECL(yylex);
430 /* Traditional lexes let yyunput() and yyoutput() default to int;
431 * newer ones may declare them as void since they don't return
432 * values. For even more fun, the lex supplied as part of the
433 * newer unbundled compiler for SunOS 4.x adds the void declarations
434 * (under __STDC__ or _cplusplus ifdefs -- otherwise they remain
435 * int) while the bundled lex and the one with the older unbundled
436 * compiler do not. To detect this, we need help from outside --
437 * sys/unix/Makefile.utl.
438 *
439 * Digital UNIX is difficult and still has int in spite of all
440 * other signs.
441 */
442 # if defined(NeXT) || defined(SVR4) || defined(_AIX32)
443 # define VOIDYYPUT
444 # endif
445 # if !defined(VOIDYYPUT) && defined(POSIX_TYPES)
446 # if !defined(BOS) && !defined(HISX) && !defined(_M_UNIX) && !defined(VMS)
447 # define VOIDYYPUT
448 # endif
449 # endif
450 # if !defined(VOIDYYPUT) && defined(WEIRD_LEX)
451 # if defined(SUNOS4) && defined(__STDC__) && (WEIRD_LEX > 1)
452 # define VOIDYYPUT
453 # endif
454 # endif
455 # if defined(VOIDYYPUT) && defined(__osf__)
456 # undef VOIDYYPUT
457 # endif
458 # ifdef VOIDYYPUT
459 void FDECL(yyunput, (int));
460 void FDECL(yyoutput, (int));
461 # else
462 int FDECL(yyunput, (int));
463 int FDECL(yyoutput, (int));
464 # endif
465 #endif /* !FLEX_SCANNER && !FLEXHACK_SCANNER */
466
467 #ifdef FLEX_SCANNER
468 #define YY_MALLOC_DECL \
469 genericptr_t FDECL(malloc, (size_t)); \
470 genericptr_t FDECL(realloc, (genericptr_t,size_t));
471 #endif
472
473
474 void FDECL(init_yyin, (FILE *));
475 void FDECL(init_yyout, (FILE *));
476
477 /* this doesn't always get put in dgn_comp.h
478 * (esp. when using older versions of bison)
479 */
480
481 extern YYSTYPE yylval;
482
483 int line_number = 1;
484
485
486 /* Macros after this point can all be overridden by user definitions in
487 * section 1.
488 */
489
490 #ifndef YY_SKIP_YYWRAP
491 extern int NDECL(yywrap);
492 #endif
493
494 #ifndef YY_NO_UNPUT
495 static void FDECL(yyunput, (int,char *));
496 #endif
497
498 #ifndef yytext_ptr
499 static void FDECL(yy_flex_strncpy, (char *,const char *,int));
500 #endif
501
502 #ifndef YY_NO_INPUT
503 static int NDECL(input);
504 #endif
505
506 /* Amount of stuff to slurp up with each read. */
507 #ifndef YY_READ_BUF_SIZE
508 #define YY_READ_BUF_SIZE 8192
509 #endif
510
511 /* Copy whatever the last rule matched to the standard output. */
512
513 #ifndef ECHO
514 /* This used to be an fputs(), but since the string might contain NUL's,
515 * we now use fwrite().
516 */
517 #define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
518 #endif
519
520 /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
521 * is returned in "result".
522 */
523 #ifndef YY_INPUT
524 #define YY_INPUT(buf,result,max_size) \
525 if ( yy_current_buffer->yy_is_interactive ) \
526 { \
527 int c = '*', n; \
528 for ( n = 0; n < max_size && \
529 (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
530 buf[n] = (char) c; \
531 if ( c == '\n' ) \
532 buf[n++] = (char) c; \
533 if ( c == EOF && ferror( yyin ) ) \
534 YY_FATAL_ERROR( "input in flex scanner failed" ); \
535 result = n; \
536 } \
537 else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
538 && ferror( yyin ) ) \
539 YY_FATAL_ERROR( "input in flex scanner failed" );
540 #endif
541
542 /* No semi-colon after return; correct usage is to write "yyterminate();" -
543 * we don't want an extra ';' after the "return" because that will cause
544 * some compilers to complain about unreachable statements.
545 */
546 #ifndef yyterminate
547 #define yyterminate() return YY_NULL
548 #endif
549
550 /* Number of entries by which start-condition stack grows. */
551 #ifndef YY_START_STACK_INCR
552 #define YY_START_STACK_INCR 25
553 #endif
554
555 /* Report a fatal error. */
556 #ifndef YY_FATAL_ERROR
557 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
558 #endif
559
560 /* Code executed at the beginning of each rule, after yytext and yyleng
561 * have been set up.
562 */
563 #ifndef YY_USER_ACTION
564 #define YY_USER_ACTION
565 #endif
566
567 /* Code executed at the end of each rule. */
568 #ifndef YY_BREAK
569 #define YY_BREAK break;
570 #endif
571
572 #define YY_RULE_SETUP \
573 if ( yyleng > 0 ) \
574 yy_current_buffer->yy_at_bol = \
575 (yytext[yyleng - 1] == '\n'); \
576 YY_USER_ACTION
577
578 int NDECL(yylex);
yylex()579 int yylex()
580 {
581 register yy_state_type yy_current_state;
582 register char *yy_cp, *yy_bp;
583 register int yy_act;
584
585
586
587 if ( yy_init )
588 {
589 yy_init = 0;
590
591 #ifdef YY_USER_INIT
592 YY_USER_INIT;
593 #endif
594
595 if ( ! yy_start )
596 yy_start = 1; /* first start state */
597
598 if ( ! yyin )
599 yyin = stdin;
600
601 if ( ! yyout )
602 yyout = stdout;
603
604 if ( ! yy_current_buffer )
605 yy_current_buffer =
606 yy_create_buffer( yyin, YY_BUF_SIZE );
607
608 yy_load_buffer_state();
609 }
610
611 while ( 1 ) /* loops until end-of-file is reached */
612 {
613 yy_cp = yy_c_buf_p;
614
615 /* Support of yytext. */
616 *yy_cp = yy_hold_char;
617
618 /* yy_bp points to the position in yy_ch_buf of the start of
619 * the current run.
620 */
621 yy_bp = yy_cp;
622
623 yy_current_state = yy_start;
624 yy_current_state += YY_AT_BOL();
625 yy_match:
626 do
627 {
628 register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
629 if ( yy_accept[yy_current_state] )
630 {
631 yy_last_accepting_state = yy_current_state;
632 yy_last_accepting_cpos = yy_cp;
633 }
634 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
635 {
636 yy_current_state = (int) yy_def[yy_current_state];
637 if ( yy_current_state >= 196 )
638 yy_c = yy_meta[(unsigned int) yy_c];
639 }
640 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
641 ++yy_cp;
642 }
643 while ( yy_base[yy_current_state] != 220 );
644
645 yy_find_action:
646 yy_act = yy_accept[yy_current_state];
647 if ( yy_act == 0 )
648 { /* have to back up */
649 yy_cp = yy_last_accepting_cpos;
650 yy_current_state = yy_last_accepting_state;
651 yy_act = yy_accept[yy_current_state];
652 }
653
654 YY_DO_BEFORE_ACTION;
655
656
657 do_action: /* This label is used only to access EOF actions. */
658
659
660 switch ( yy_act )
661 { /* beginning of action switch */
662 case 0: /* must back up */
663 /* undo the effects of YY_DO_BEFORE_ACTION */
664 *yy_cp = yy_hold_char;
665 yy_cp = yy_last_accepting_cpos;
666 yy_current_state = yy_last_accepting_state;
667 goto yy_find_action;
668
669 case 1:
670 YY_RULE_SETUP
671 return(A_DUNGEON);
672 YY_BREAK
673 case 2:
674 YY_RULE_SETUP
675 { yylval.i=1; return(UP_OR_DOWN); }
676 YY_BREAK
677 case 3:
678 YY_RULE_SETUP
679 { yylval.i=0; return(UP_OR_DOWN); }
680 YY_BREAK
681 case 4:
682 YY_RULE_SETUP
683 return(ENTRY);
684 YY_BREAK
685 case 5:
686 YY_RULE_SETUP
687 return(STAIR);
688 YY_BREAK
689 case 6:
690 YY_RULE_SETUP
691 return(NO_UP);
692 YY_BREAK
693 case 7:
694 YY_RULE_SETUP
695 return(NO_DOWN);
696 YY_BREAK
697 case 8:
698 YY_RULE_SETUP
699 return(PORTAL);
700 YY_BREAK
701 case 9:
702 YY_RULE_SETUP
703 return(PROTOFILE);
704 YY_BREAK
705 case 10:
706 YY_RULE_SETUP
707 return(DESCRIPTION);
708 YY_BREAK
709 case 11:
710 YY_RULE_SETUP
711 return(LEVELDESC);
712 YY_BREAK
713 case 12:
714 YY_RULE_SETUP
715 return(ALIGNMENT);
716 YY_BREAK
717 case 13:
718 YY_RULE_SETUP
719 return(LEVALIGN);
720 YY_BREAK
721 case 14:
722 YY_RULE_SETUP
723 { yylval.i=TOWN ; return(DESCRIPTOR); }
724 YY_BREAK
725 case 15:
726 YY_RULE_SETUP
727 { yylval.i=HELLISH ; return(DESCRIPTOR); }
728 YY_BREAK
729 case 16:
730 YY_RULE_SETUP
731 { yylval.i=MAZELIKE ; return(DESCRIPTOR); }
732 YY_BREAK
733 case 17:
734 YY_RULE_SETUP
735 { yylval.i=ROGUELIKE ; return(DESCRIPTOR); }
736 YY_BREAK
737 case 18:
738 YY_RULE_SETUP
739 { yylval.i=D_ALIGN_NONE ; return(DESCRIPTOR); }
740 YY_BREAK
741 case 19:
742 YY_RULE_SETUP
743 { yylval.i=D_ALIGN_NONE ; return(DESCRIPTOR); }
744 YY_BREAK
745 case 20:
746 YY_RULE_SETUP
747 { yylval.i=D_ALIGN_LAWFUL ; return(DESCRIPTOR); }
748 YY_BREAK
749 case 21:
750 YY_RULE_SETUP
751 { yylval.i=D_ALIGN_NEUTRAL ; return(DESCRIPTOR); }
752 YY_BREAK
753 case 22:
754 YY_RULE_SETUP
755 { yylval.i=D_ALIGN_CHAOTIC ; return(DESCRIPTOR); }
756 YY_BREAK
757 case 23:
758 YY_RULE_SETUP
759 return(BRANCH);
760 YY_BREAK
761 case 24:
762 YY_RULE_SETUP
763 return(CHBRANCH);
764 YY_BREAK
765 case 25:
766 YY_RULE_SETUP
767 return(LEVEL);
768 YY_BREAK
769 case 26:
770 YY_RULE_SETUP
771 return(RNDLEVEL);
772 YY_BREAK
773 case 27:
774 YY_RULE_SETUP
775 return(CHLEVEL);
776 YY_BREAK
777 case 28:
778 YY_RULE_SETUP
779 return(RNDCHLEVEL);
780 YY_BREAK
781 case 29:
782 YY_RULE_SETUP
783 { yylval.i=atoi(yytext); return(INTEGER); }
784 YY_BREAK
785 case 30:
786 YY_RULE_SETUP
787 { yytext[yyleng-1] = 0; /* Discard the trailing \" */
788 yylval.str = (char *) alloc(strlen(yytext+1)+1);
789 Strcpy(yylval.str, yytext+1); /* Discard the first \" */
790 return(STRING); }
791 YY_BREAK
792 case 31:
793 YY_RULE_SETUP
794 { line_number++; }
795 YY_BREAK
796 case 32:
797 YY_RULE_SETUP
798 { line_number++; }
799 YY_BREAK
800 case 33:
801 YY_RULE_SETUP
802 ; /* skip trailing tabs & spaces */
803 YY_BREAK
804 case 34:
805 YY_RULE_SETUP
806 { return yytext[0]; }
807 YY_BREAK
808 case 35:
809 YY_RULE_SETUP
810 ECHO;
811 YY_BREAK
812 case YY_STATE_EOF(INITIAL):
813 yyterminate();
814
815 case YY_END_OF_BUFFER:
816 {
817 /* Amount of text matched not including the EOB char. */
818 int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
819
820 /* Undo the effects of YY_DO_BEFORE_ACTION. */
821 *yy_cp = yy_hold_char;
822
823 if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
824 {
825 /* We're scanning a new file or input source. It's
826 * possible that this happened because the user
827 * just pointed yyin at a new source and called
828 * yylex(). If so, then we have to assure
829 * consistency between yy_current_buffer and our
830 * globals. Here is the right place to do so, because
831 * this is the first action (other than possibly a
832 * back-up) that will match for the new input source.
833 */
834 yy_n_chars = yy_current_buffer->yy_n_chars;
835 yy_current_buffer->yy_input_file = yyin;
836 yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
837 }
838
839 /* Note that here we test for yy_c_buf_p "<=" to the position
840 * of the first EOB in the buffer, since yy_c_buf_p will
841 * already have been incremented past the NUL character
842 * (since all states make transitions on EOB to the
843 * end-of-buffer state). Contrast this with the test
844 * in input().
845 */
846 if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
847 { /* This was really a NUL. */
848 yy_state_type yy_next_state;
849
850 yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
851
852 yy_current_state = yy_get_previous_state();
853
854 /* Okay, we're now positioned to make the NUL
855 * transition. We couldn't have
856 * yy_get_previous_state() go ahead and do it
857 * for us because it doesn't know how to deal
858 * with the possibility of jamming (and we don't
859 * want to build jamming into it because then it
860 * will run more slowly).
861 */
862
863 yy_next_state = yy_try_NUL_trans( yy_current_state );
864
865 yy_bp = yytext_ptr + YY_MORE_ADJ;
866
867 if ( yy_next_state )
868 {
869 /* Consume the NUL. */
870 yy_cp = ++yy_c_buf_p;
871 yy_current_state = yy_next_state;
872 goto yy_match;
873 }
874
875 else
876 {
877 yy_cp = yy_c_buf_p;
878 goto yy_find_action;
879 }
880 }
881
882 else switch ( yy_get_next_buffer() )
883 {
884 case EOB_ACT_END_OF_FILE:
885 {
886 yy_did_buffer_switch_on_eof = 0;
887
888 if ( yywrap() )
889 {
890 /* Note: because we've taken care in
891 * yy_get_next_buffer() to have set up
892 * yytext, we can now set up
893 * yy_c_buf_p so that if some total
894 * hoser (like flex itself) wants to
895 * call the scanner after we return the
896 * YY_NULL, it'll still work - another
897 * YY_NULL will get returned.
898 */
899 yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
900
901 yy_act = YY_STATE_EOF(YY_START);
902 goto do_action;
903 }
904
905 else
906 {
907 if ( ! yy_did_buffer_switch_on_eof )
908 YY_NEW_FILE;
909 }
910 break;
911 }
912
913 case EOB_ACT_CONTINUE_SCAN:
914 yy_c_buf_p =
915 yytext_ptr + yy_amount_of_matched_text;
916
917 yy_current_state = yy_get_previous_state();
918
919 yy_cp = yy_c_buf_p;
920 yy_bp = yytext_ptr + YY_MORE_ADJ;
921 goto yy_match;
922
923 case EOB_ACT_LAST_MATCH:
924 yy_c_buf_p =
925 &yy_current_buffer->yy_ch_buf[yy_n_chars];
926
927 yy_current_state = yy_get_previous_state();
928
929 yy_cp = yy_c_buf_p;
930 yy_bp = yytext_ptr + YY_MORE_ADJ;
931 goto yy_find_action;
932 }
933 break;
934 }
935
936 default:
937 YY_FATAL_ERROR(
938 "fatal flex scanner internal error--no action found" );
939 } /* end of action switch */
940 } /* end of scanning one token */
941 } /* end of yylex */
942
943
944 /* yy_get_next_buffer - try to read in a new buffer
945 *
946 * Returns a code representing an action:
947 * EOB_ACT_LAST_MATCH -
948 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
949 * EOB_ACT_END_OF_FILE - end of file
950 */
951
yy_get_next_buffer()952 static int yy_get_next_buffer()
953 {
954 register char *dest = yy_current_buffer->yy_ch_buf;
955 register char *source = yytext_ptr;
956 register int number_to_move, i;
957 int ret_val;
958
959 if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
960 YY_FATAL_ERROR(
961 "fatal flex scanner internal error--end of buffer missed" );
962
963 if ( yy_current_buffer->yy_fill_buffer == 0 )
964 { /* Don't try to fill the buffer, so this is an EOF. */
965 if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
966 {
967 /* We matched a singled characater, the EOB, so
968 * treat this as a final EOF.
969 */
970 return EOB_ACT_END_OF_FILE;
971 }
972
973 else
974 {
975 /* We matched some text prior to the EOB, first
976 * process it.
977 */
978 return EOB_ACT_LAST_MATCH;
979 }
980 }
981
982 /* Try to read more data. */
983
984 /* First move last chars to start of buffer. */
985 number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
986
987 for ( i = 0; i < number_to_move; ++i )
988 *(dest++) = *(source++);
989
990 if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
991 /* don't do the read, it's not guaranteed to return an EOF,
992 * just force an EOF
993 */
994 yy_n_chars = 0;
995
996 else
997 {
998 int num_to_read =
999 yy_current_buffer->yy_buf_size - number_to_move - 1;
1000
1001 while ( num_to_read <= 0 )
1002 { /* Not enough room in the buffer - grow it. */
1003 #ifdef YY_USES_REJECT
1004 YY_FATAL_ERROR(
1005 "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
1006 #else
1007
1008 /* just a shorter name for the current buffer */
1009 YY_BUFFER_STATE b = yy_current_buffer;
1010
1011 int yy_c_buf_p_offset =
1012 (int) (yy_c_buf_p - b->yy_ch_buf);
1013
1014 if ( b->yy_is_our_buffer )
1015 {
1016 int old_size = b->yy_buf_size + 2;
1017 int new_size = b->yy_buf_size * 2;
1018
1019 if ( new_size <= 0 )
1020 b->yy_buf_size += b->yy_buf_size / 8;
1021 else
1022 b->yy_buf_size *= 2;
1023
1024 b->yy_ch_buf = (char *)
1025 /* Include room in for 2 EOB chars. */
1026 yy_flex_realloc2( (genericptr_t) b->yy_ch_buf,
1027 b->yy_buf_size + 2, old_size );
1028 }
1029 else
1030 /* Can't grow it, we don't own it. */
1031 b->yy_ch_buf = 0;
1032
1033 if ( ! b->yy_ch_buf )
1034 YY_FATAL_ERROR(
1035 "fatal error - scanner input buffer overflow" );
1036
1037 yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
1038
1039 num_to_read = yy_current_buffer->yy_buf_size -
1040 number_to_move - 1;
1041 #endif
1042 }
1043
1044 if ( num_to_read > YY_READ_BUF_SIZE )
1045 num_to_read = YY_READ_BUF_SIZE;
1046
1047 /* Read in more data. */
1048 YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
1049 yy_n_chars, num_to_read );
1050 }
1051
1052 if ( yy_n_chars == 0 )
1053 {
1054 if ( number_to_move == YY_MORE_ADJ )
1055 {
1056 ret_val = EOB_ACT_END_OF_FILE;
1057 yyrestart( yyin );
1058 }
1059
1060 else
1061 {
1062 ret_val = EOB_ACT_LAST_MATCH;
1063 yy_current_buffer->yy_buffer_status =
1064 YY_BUFFER_EOF_PENDING;
1065 }
1066 }
1067
1068 else
1069 ret_val = EOB_ACT_CONTINUE_SCAN;
1070
1071 yy_n_chars += number_to_move;
1072 yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
1073 yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
1074
1075 yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
1076
1077 return ret_val;
1078 }
1079
1080
1081 /* yy_get_previous_state - get the state just before the EOB char was reached */
1082
yy_get_previous_state()1083 static yy_state_type yy_get_previous_state()
1084 {
1085 register yy_state_type yy_current_state;
1086 register char *yy_cp;
1087
1088 yy_current_state = yy_start;
1089 yy_current_state += YY_AT_BOL();
1090
1091 for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
1092 {
1093 register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
1094 if ( yy_accept[yy_current_state] )
1095 {
1096 yy_last_accepting_state = yy_current_state;
1097 yy_last_accepting_cpos = yy_cp;
1098 }
1099 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1100 {
1101 yy_current_state = (int) yy_def[yy_current_state];
1102 if ( yy_current_state >= 196 )
1103 yy_c = yy_meta[(unsigned int) yy_c];
1104 }
1105 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1106 }
1107
1108 return yy_current_state;
1109 }
1110
1111
1112 /* yy_try_NUL_trans - try to make a transition on the NUL character
1113 *
1114 * synopsis
1115 * next_state = yy_try_NUL_trans( current_state );
1116 */
1117
yy_try_NUL_trans(yy_current_state)1118 static yy_state_type yy_try_NUL_trans( yy_current_state )
1119 yy_state_type yy_current_state;
1120 {
1121 register int yy_is_jam;
1122 register char *yy_cp = yy_c_buf_p;
1123
1124 register YY_CHAR yy_c = 1;
1125 if ( yy_accept[yy_current_state] )
1126 {
1127 yy_last_accepting_state = yy_current_state;
1128 yy_last_accepting_cpos = yy_cp;
1129 }
1130 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1131 {
1132 yy_current_state = (int) yy_def[yy_current_state];
1133 if ( yy_current_state >= 196 )
1134 yy_c = yy_meta[(unsigned int) yy_c];
1135 }
1136 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1137 yy_is_jam = (yy_current_state == 195);
1138
1139 return yy_is_jam ? 0 : yy_current_state;
1140 }
1141
1142
1143 #ifndef YY_NO_UNPUT
yyunput(c,yy_bp)1144 static void yyunput( c, yy_bp )
1145 int c;
1146 register char *yy_bp;
1147 {
1148 register char *yy_cp = yy_c_buf_p;
1149
1150 /* undo effects of setting up yytext */
1151 *yy_cp = yy_hold_char;
1152
1153 if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
1154 { /* need to shift things up to make room */
1155 /* +2 for EOB chars. */
1156 register int number_to_move = yy_n_chars + 2;
1157 register char *dest = &yy_current_buffer->yy_ch_buf[
1158 yy_current_buffer->yy_buf_size + 2];
1159 register char *source =
1160 &yy_current_buffer->yy_ch_buf[number_to_move];
1161
1162 while ( source > yy_current_buffer->yy_ch_buf )
1163 *--dest = *--source;
1164
1165 yy_cp += (int) (dest - source);
1166 yy_bp += (int) (dest - source);
1167 yy_n_chars = yy_current_buffer->yy_buf_size;
1168
1169 if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
1170 YY_FATAL_ERROR( "flex scanner push-back overflow" );
1171 }
1172
1173 *--yy_cp = (char) c;
1174
1175
1176 yytext_ptr = yy_bp;
1177 yy_hold_char = *yy_cp;
1178 yy_c_buf_p = yy_cp;
1179 }
1180 #endif /* ifndef YY_NO_UNPUT */
1181
1182
input()1183 static int input()
1184 {
1185 int c;
1186
1187 *yy_c_buf_p = yy_hold_char;
1188
1189 if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
1190 {
1191 /* yy_c_buf_p now points to the character we want to return.
1192 * If this occurs *before* the EOB characters, then it's a
1193 * valid NUL; if not, then we've hit the end of the buffer.
1194 */
1195 if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
1196 /* This was really a NUL. */
1197 *yy_c_buf_p = '\0';
1198
1199 else
1200 { /* need more input */
1201 yytext_ptr = yy_c_buf_p;
1202 ++yy_c_buf_p;
1203
1204 switch ( yy_get_next_buffer() )
1205 {
1206 case EOB_ACT_END_OF_FILE:
1207 {
1208 if ( yywrap() )
1209 {
1210 yy_c_buf_p =
1211 yytext_ptr + YY_MORE_ADJ;
1212 return EOF;
1213 }
1214
1215 if ( ! yy_did_buffer_switch_on_eof )
1216 YY_NEW_FILE;
1217 return input();
1218 }
1219
1220 case EOB_ACT_CONTINUE_SCAN:
1221 yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
1222 break;
1223
1224 case EOB_ACT_LAST_MATCH:
1225 YY_FATAL_ERROR(
1226 "unexpected last match in input()" );
1227 }
1228 }
1229 }
1230
1231 c = *(unsigned char *) yy_c_buf_p; /* cast for 8-bit char's */
1232 *yy_c_buf_p = '\0'; /* preserve yytext */
1233 yy_hold_char = *++yy_c_buf_p;
1234
1235 yy_current_buffer->yy_at_bol = (c == '\n');
1236
1237 return c;
1238 }
1239
1240
yyrestart(input_file)1241 void yyrestart( input_file )
1242 FILE *input_file;
1243 {
1244 if ( ! yy_current_buffer )
1245 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
1246
1247 yy_init_buffer( yy_current_buffer, input_file );
1248 yy_load_buffer_state();
1249 }
1250
1251
yy_switch_to_buffer(new_buffer)1252 void yy_switch_to_buffer( new_buffer )
1253 YY_BUFFER_STATE new_buffer;
1254 {
1255 if ( yy_current_buffer == new_buffer )
1256 return;
1257
1258 if ( yy_current_buffer )
1259 {
1260 /* Flush out information for old buffer. */
1261 *yy_c_buf_p = yy_hold_char;
1262 yy_current_buffer->yy_buf_pos = yy_c_buf_p;
1263 yy_current_buffer->yy_n_chars = yy_n_chars;
1264 }
1265
1266 yy_current_buffer = new_buffer;
1267 yy_load_buffer_state();
1268
1269 /* We don't actually know whether we did this switch during
1270 * EOF (yywrap()) processing, but the only time this flag
1271 * is looked at is after yywrap() is called, so it's safe
1272 * to go ahead and always set it.
1273 */
1274 yy_did_buffer_switch_on_eof = 1;
1275 }
1276
1277
yy_load_buffer_state()1278 void yy_load_buffer_state()
1279 {
1280 yy_n_chars = yy_current_buffer->yy_n_chars;
1281 yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
1282 yyin = yy_current_buffer->yy_input_file;
1283 yy_hold_char = *yy_c_buf_p;
1284 }
1285
1286
yy_create_buffer(file,size)1287 YY_BUFFER_STATE yy_create_buffer( file, size )
1288 FILE *file;
1289 int size;
1290 {
1291 YY_BUFFER_STATE b;
1292
1293 b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
1294 if ( ! b )
1295 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1296
1297 b->yy_buf_size = size;
1298
1299 /* yy_ch_buf has to be 2 characters longer than the size given because
1300 * we need to put in 2 end-of-buffer characters.
1301 */
1302 b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
1303 if ( ! b->yy_ch_buf )
1304 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1305
1306 b->yy_is_our_buffer = 1;
1307
1308 yy_init_buffer( b, file );
1309
1310 return b;
1311 }
1312
1313
yy_delete_buffer(b)1314 void yy_delete_buffer( b )
1315 YY_BUFFER_STATE b;
1316 {
1317 if ( ! b )
1318 return;
1319
1320 if ( b == yy_current_buffer )
1321 yy_current_buffer = (YY_BUFFER_STATE) 0;
1322
1323 if ( b->yy_is_our_buffer )
1324 yy_flex_free( (genericptr_t) b->yy_ch_buf );
1325
1326 yy_flex_free( (genericptr_t) b );
1327 }
1328
1329
1330 #ifndef YY_ALWAYS_INTERACTIVE
1331 #ifndef YY_NEVER_INTERACTIVE
1332 extern int FDECL(isatty, (int));
1333 #endif
1334 #endif
1335
yy_init_buffer(b,file)1336 void yy_init_buffer( b, file )
1337 YY_BUFFER_STATE b;
1338 FILE *file;
1339 {
1340 yy_flush_buffer( b );
1341
1342 b->yy_input_file = file;
1343 b->yy_fill_buffer = 1;
1344
1345 #ifdef YY_ALWAYS_INTERACTIVE
1346 b->yy_is_interactive = 1;
1347 #else
1348 #ifdef YY_NEVER_INTERACTIVE
1349 b->yy_is_interactive = 0;
1350 #else
1351 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
1352 #endif
1353 #endif
1354 }
1355
1356
yy_flush_buffer(b)1357 void yy_flush_buffer( b )
1358 YY_BUFFER_STATE b;
1359 {
1360 b->yy_n_chars = 0;
1361
1362 /* We always need two end-of-buffer characters. The first causes
1363 * a transition to the end-of-buffer state. The second causes
1364 * a jam in that state.
1365 */
1366 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
1367 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
1368
1369 b->yy_buf_pos = &b->yy_ch_buf[0];
1370
1371 b->yy_at_bol = 1;
1372 b->yy_buffer_status = YY_BUFFER_NEW;
1373
1374 if ( b == yy_current_buffer )
1375 yy_load_buffer_state();
1376 }
1377
1378
1379
1380 #ifndef YY_EXIT_FAILURE
1381 #define YY_EXIT_FAILURE 2
1382 #endif
1383
yy_fatal_error(msg)1384 static void yy_fatal_error( msg )
1385 const char msg[];
1386 {
1387 (void) fprintf( stderr, "%s\n", msg );
1388 exit( YY_EXIT_FAILURE );
1389 }
1390
1391
1392
1393 /* Redefine yyless() so it works in section 3 code. */
1394
1395 #undef yyless
1396 #define yyless(n) \
1397 do \
1398 { \
1399 /* Undo effects of setting up yytext. */ \
1400 yytext[yyleng] = yy_hold_char; \
1401 yy_c_buf_p = yytext + n - YY_MORE_ADJ; \
1402 yy_hold_char = *yy_c_buf_p; \
1403 *yy_c_buf_p = '\0'; \
1404 yyleng = n; \
1405 } \
1406 while ( 0 )
1407
1408
1409 /* Internal utility routines. */
1410
1411 #ifndef yytext_ptr
yy_flex_strncpy(s1,s2,n)1412 static void yy_flex_strncpy( s1, s2, n )
1413 char *s1;
1414 const char *s2;
1415 int n;
1416 {
1417 register int i;
1418 for ( i = 0; i < n; ++i )
1419 s1[i] = s2[i];
1420 }
1421 #endif
1422
1423
yy_flex_alloc(size)1424 static genericptr_t yy_flex_alloc( size )
1425 yy_size_t size;
1426 {
1427 return (genericptr_t) alloc((unsigned)size);
1428 }
1429
1430 /* we want to avoid use of realloc(), so we require that caller supply the
1431 size of the old block of memory */
yy_flex_realloc2(ptr,size,old_size)1432 static genericptr_t yy_flex_realloc2( ptr, size, old_size )
1433 genericptr_t ptr;
1434 yy_size_t size;
1435 int old_size;
1436 {
1437 genericptr_t outptr = yy_flex_alloc(size);
1438
1439 if (ptr) {
1440 char *p = (char *) outptr, *q = (char *) ptr;
1441
1442 while (--old_size >= 0) *p++ = *q++;
1443 yy_flex_free(ptr);
1444 }
1445 return outptr;
1446 }
1447
yy_flex_free(ptr)1448 static void yy_flex_free( ptr )
1449 genericptr_t ptr;
1450 {
1451 free( ptr );
1452 }
1453
1454 /*flexhack.skl*/
1455
1456
1457 /* routine to switch to another input file; needed for flex */
init_yyin(input_f)1458 void init_yyin( input_f )
1459 FILE *input_f;
1460 {
1461 #if defined(FLEX_SCANNER) || defined(FLEXHACK_SCANNER)
1462 if (yyin)
1463 yyrestart(input_f);
1464 else
1465 #endif
1466 yyin = input_f;
1467 }
1468 /* analogous routine (for completeness) */
init_yyout(output_f)1469 void init_yyout( output_f )
1470 FILE *output_f;
1471 {
1472 yyout = output_f;
1473 }
1474
1475 /*dgn_comp.l*/
1476