~mdw / mup / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Import upstream version 5.3.
[mup] / mup / mup / lex.c
1 /* A lexical scanner generated by flex */
2
3 /* Scanner skeleton version:
4 * $Header: /home/daffy/u0/vern/flex/RCS/flex.skl,v 2.91 96/09/10 16:58:48 vern Exp $
5 */
6
7 #define FLEX_SCANNER
8 #define YY_FLEX_MAJOR_VERSION 2
9 #define YY_FLEX_MINOR_VERSION 5
10
11 #include <stdio.h>
12
13
14 /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
15 #ifdef c_plusplus
16 #ifndef __cplusplus
17 #define __cplusplus
18 #endif
19 #endif
20
21
22 #ifdef __cplusplus
23
24 #include <stdlib.h>
25 #include <unistd.h>
26
27 /* Use prototypes in function declarations. */
28 #define YY_USE_PROTOS
29
30 /* The "const" storage-class-modifier is valid. */
31 #define YY_USE_CONST
32
33 #else /* ! __cplusplus */
34
35 #if __STDC__
36
37 #define YY_USE_PROTOS
38 #define YY_USE_CONST
39
40 #endif /* __STDC__ */
41 #endif /* ! __cplusplus */
42
43 #ifdef __TURBOC__
44 #pragma warn -rch
45 #pragma warn -use
46 #include <io.h>
47 #include <stdlib.h>
48 #define YY_USE_CONST
49 #define YY_USE_PROTOS
50 #endif
51
52 #ifdef YY_USE_CONST
53 #define yyconst const
54 #else
55 #define yyconst
56 #endif
57
58
59 #ifdef YY_USE_PROTOS
60 #define YY_PROTO(proto) proto
61 #else
62 #define YY_PROTO(proto) ()
63 #endif
64
65 /* Returned upon end-of-file. */
66 #define YY_NULL 0
67
68 /* Promotes a possibly negative, possibly signed char to an unsigned
69 * integer for use as an array index. If the signed char is negative,
70 * we want to instead treat it as an 8-bit unsigned char, hence the
71 * double cast.
72 */
73 #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
74
75 /* Enter a start condition. This macro really ought to take a parameter,
76 * but we do it the disgusting crufty way forced on us by the ()-less
77 * definition of BEGIN.
78 */
79 #define BEGIN yy_start = 1 + 2 *
80
81 /* Translate the current start state into a value that can be later handed
82 * to BEGIN to return to the state. The YYSTATE alias is for lex
83 * compatibility.
84 */
85 #define YY_START ((yy_start - 1) / 2)
86 #define YYSTATE YY_START
87
88 /* Action number for EOF rule of a given start state. */
89 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
90
91 /* Special action meaning "start processing a new file". */
92 #define YY_NEW_FILE yyrestart( yyin )
93
94 #define YY_END_OF_BUFFER_CHAR 0
95
96 /* Size of default input buffer. */
97 #define YY_BUF_SIZE 16384
98
99 typedef struct yy_buffer_state *YY_BUFFER_STATE;
100
101 extern int yyleng;
102 extern FILE *yyin, *yyout;
103
104 #define EOB_ACT_CONTINUE_SCAN 0
105 #define EOB_ACT_END_OF_FILE 1
106 #define EOB_ACT_LAST_MATCH 2
107
108 /* The funky do-while in the following #define is used to turn the definition
109 * int a single C statement (which needs a semi-colon terminator). This
110 * avoids problems with code like:
111 *
112 * if ( condition_holds )
113 * yyless( 5 );
114 * else
115 * do_something_else();
116 *
117 * Prior to using the do-while the compiler would get upset at the
118 * "else" because it interpreted the "if" statement as being all
119 * done when it reached the ';' after the yyless() call.
120 */
121
122 /* Return all but the first 'n' matched characters back to the input stream. */
123
124 #define yyless(n) \
125 do \
126 { \
127 /* Undo effects of setting up yytext. */ \
128 *yy_cp = yy_hold_char; \
129 YY_RESTORE_YY_MORE_OFFSET \
130 yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
131 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
132 } \
133 while ( 0 )
134
135 #define unput(c) yyunput( c, yytext_ptr )
136
137 /* The following is because we cannot portably get our hands on size_t
138 * (without autoconf's help, which isn't available because we want
139 * flex-generated scanners to compile on their own).
140 */
141 typedef unsigned int yy_size_t;
142
143
144 struct yy_buffer_state
145 {
146 FILE *yy_input_file;
147
148 char *yy_ch_buf; /* input buffer */
149 char *yy_buf_pos; /* current position in input buffer */
150
151 /* Size of input buffer in bytes, not including room for EOB
152 * characters.
153 */
154 yy_size_t yy_buf_size;
155
156 /* Number of characters read into yy_ch_buf, not including EOB
157 * characters.
158 */
159 int yy_n_chars;
160
161 /* Whether we "own" the buffer - i.e., we know we created it,
162 * and can realloc() it to grow it, and should free() it to
163 * delete it.
164 */
165 int yy_is_our_buffer;
166
167 /* Whether this is an "interactive" input source; if so, and
168 * if we're using stdio for input, then we want to use getc()
169 * instead of fread(), to make sure we stop fetching input after
170 * each newline.
171 */
172 int yy_is_interactive;
173
174 /* Whether we're considered to be at the beginning of a line.
175 * If so, '^' rules will be active on the next match, otherwise
176 * not.
177 */
178 int yy_at_bol;
179
180 /* Whether to try to fill the input buffer when we reach the
181 * end of it.
182 */
183 int yy_fill_buffer;
184
185 int yy_buffer_status;
186 #define YY_BUFFER_NEW 0
187 #define YY_BUFFER_NORMAL 1
188 /* When an EOF's been seen but there's still some text to process
189 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
190 * shouldn't try reading from the input source any more. We might
191 * still have a bunch of tokens to match, though, because of
192 * possible backing-up.
193 *
194 * When we actually see the EOF, we change the status to "new"
195 * (via yyrestart()), so that the user can continue scanning by
196 * just pointing yyin at a new input file.
197 */
198 #define YY_BUFFER_EOF_PENDING 2
199 };
200
201 static YY_BUFFER_STATE yy_current_buffer = 0;
202
203 /* We provide macros for accessing buffer states in case in the
204 * future we want to put the buffer states in a more general
205 * "scanner state".
206 */
207 #define YY_CURRENT_BUFFER yy_current_buffer
208
209
210 /* yy_hold_char holds the character lost when yytext is formed. */
211 static char yy_hold_char;
212
213 static int yy_n_chars; /* number of characters read into yy_ch_buf */
214
215
216 int yyleng;
217
218 /* Points to current character in buffer. */
219 static char *yy_c_buf_p = (char *) 0;
220 static int yy_init = 1; /* whether we need to initialize */
221 static int yy_start = 0; /* start state number */
222
223 /* Flag which is used to allow yywrap()'s to do buffer switches
224 * instead of setting up a fresh yyin. A bit of a hack ...
225 */
226 static int yy_did_buffer_switch_on_eof;
227
228 void yyrestart YY_PROTO(( FILE *input_file ));
229
230 void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
231 void yy_load_buffer_state YY_PROTO(( void ));
232 YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
233 void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
234 void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
235 void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
236 #define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
237
238 YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
239 YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
240 YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
241
242 static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
243 static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
244 static void yy_flex_free YY_PROTO(( void * ));
245
246 #define yy_new_buffer yy_create_buffer
247
248 #define yy_set_interactive(is_interactive) \
249 { \
250 if ( ! yy_current_buffer ) \
251 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
252 yy_current_buffer->yy_is_interactive = is_interactive; \
253 }
254
255 #define yy_set_bol(at_bol) \
256 { \
257 if ( ! yy_current_buffer ) \
258 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
259 yy_current_buffer->yy_at_bol = at_bol; \
260 }
261
262 #define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
263
264 typedef unsigned char YY_CHAR;
265 FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
266 typedef int yy_state_type;
267 extern char yytext[];
268
269
270 static yy_state_type yy_get_previous_state YY_PROTO(( void ));
271 static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
272 static int yy_get_next_buffer YY_PROTO(( void ));
273 static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
274
275 /* Done after the current pattern has been matched and before the
276 * corresponding action - sets up yytext.
277 */
278 #define YY_DO_BEFORE_ACTION \
279 yytext_ptr = yy_bp; \
280 yyleng = (int) (yy_cp - yy_bp); \
281 yy_hold_char = *yy_cp; \
282 *yy_cp = '\0'; \
283 if ( yyleng + yy_more_offset >= YYLMAX ) \
284 YY_FATAL_ERROR( "token too large, exceeds YYLMAX" ); \
285 yy_flex_strncpy( &yytext[yy_more_offset], yytext_ptr, yyleng + 1 ); \
286 yyleng += yy_more_offset; \
287 yy_prev_more_offset = yy_more_offset; \
288 yy_more_offset = 0; \
289 yy_c_buf_p = yy_cp;
290
291 #define YY_NUM_RULES 311
292 #define YY_END_OF_BUFFER 312
293 static yyconst short int yy_accept[1176] =
294 { 0,
295 0, 0, 0, 0, 0, 0, 312, 310, 309, 45,
296 43, 308, 54, 55, 99, 100, 306, 52, 53, 279,
297 58, 47, 57, 91, 145, 40, 40, 40, 46, 42,
298 259, 41, 258, 90, 304, 48, 310, 49, 86, 310,
299 310, 98, 98, 98, 98, 98, 98, 98, 103, 103,
300 103, 103, 103, 94, 101, 103, 103, 103, 95, 96,
301 103, 97, 103, 103, 102, 50, 51, 87, 298, 296,
302 296, 285, 285, 285, 293, 293, 285, 298, 285, 295,
303 298, 298, 298, 285, 311, 56, 44, 106, 306, 280,
304 265, 40, 0, 0, 260, 261, 304, 0, 307, 0,
305
306 264, 105, 0, 0, 0, 0, 0, 0, 0, 0,
307 0, 0, 0, 81, 0, 0, 0, 0, 0, 0,
308 0, 0, 210, 0, 0, 0, 0, 0, 0, 0,
309 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
310 0, 0, 0, 0, 0, 63, 64, 281, 0, 0,
311 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
312 0, 266, 267, 0, 144, 0, 0, 0, 0, 0,
313 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
314 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
315 0, 0, 0, 133, 0, 0, 76, 0, 0, 0,
316
317 0, 0, 0, 0, 0, 291, 283, 293, 0, 286,
318 288, 290, 289, 287, 295, 0, 0, 0, 284, 0,
319 56, 92, 93, 0, 0, 0, 305, 0, 0, 75,
320 80, 0, 16, 0, 111, 0, 0, 0, 0, 0,
321 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
322 0, 0, 0, 0, 59, 0, 146, 0, 0, 0,
323 0, 14, 0, 0, 0, 0, 0, 273, 83, 0,
324 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
325 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
326 0, 228, 0, 0, 0, 0, 78, 122, 0, 0,
327
328 22, 0, 0, 0, 0, 20, 0, 0, 0, 0,
329 0, 0, 121, 0, 0, 0, 0, 0, 85, 0,
330 0, 0, 0, 0, 18, 0, 0, 0, 0, 0,
331 0, 119, 0, 0, 0, 0, 0, 1, 104, 0,
332 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
333 0, 180, 0, 65, 275, 0, 0, 32, 0, 0,
334 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
335 0, 0, 0, 292, 0, 0, 0, 0, 0, 0,
336 253, 0, 0, 0, 0, 0, 0, 256, 0, 0,
337 0, 0, 2, 0, 0, 0, 0, 0, 0, 0,
338
339 0, 0, 0, 245, 0, 0, 0, 0, 0, 0,
340 0, 0, 62, 0, 162, 0, 0, 77, 257, 0,
341 302, 0, 0, 0, 82, 0, 0, 205, 238, 0,
342 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
343 0, 0, 4, 0, 0, 0, 136, 0, 0, 132,
344 0, 0, 0, 0, 0, 278, 0, 123, 0, 0,
345 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
346 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
347 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
348 0, 277, 0, 0, 0, 157, 0, 0, 68, 0,
349
350 0, 0, 0, 0, 0, 0, 229, 0, 34, 0,
351 0, 0, 0, 0, 0, 0, 0, 0, 0, 174,
352 129, 0, 127, 71, 0, 0, 0, 282, 0, 72,
353 0, 0, 0, 0, 0, 0, 0, 0, 73, 0,
354 36, 0, 0, 0, 0, 214, 221, 0, 135, 0,
355 0, 270, 0, 0, 0, 0, 134, 0, 0, 0,
356 0, 0, 0, 0, 0, 0, 0, 303, 0, 0,
357 0, 0, 0, 0, 60, 0, 37, 0, 0, 0,
358 0, 0, 0, 0, 0, 0, 0, 0, 235, 0,
359 0, 204, 0, 0, 23, 0, 0, 0, 21, 0,
360
361 38, 0, 0, 0, 0, 0, 0, 0, 0, 0,
362 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
363 268, 0, 0, 0, 216, 0, 0, 139, 0, 0,
364 0, 0, 0, 0, 0, 0, 137, 193, 25, 0,
365 79, 84, 0, 26, 0, 0, 0, 0, 0, 254,
366 5, 0, 24, 0, 0, 0, 0, 209, 246, 0,
367 0, 27, 0, 0, 61, 0, 297, 0, 0, 0,
368 0, 0, 0, 0, 219, 0, 0, 0, 0, 0,
369 0, 0, 0, 33, 0, 0, 138, 0, 0, 147,
370 0, 0, 131, 112, 0, 154, 0, 0, 130, 0,
371
372 117, 0, 124, 0, 0, 0, 0, 29, 0, 0,
373 0, 0, 0, 0, 0, 28, 0, 0, 0, 0,
374 211, 0, 0, 0, 236, 0, 0, 203, 107, 0,
375 128, 0, 0, 269, 0, 0, 0, 0, 0, 0,
376 276, 0, 0, 0, 0, 0, 0, 0, 0, 0,
377 0, 0, 0, 0, 0, 274, 0, 0, 0, 141,
378 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
379 0, 0, 0, 0, 148, 0, 0, 0, 0, 0,
380 0, 0, 0, 248, 0, 0, 0, 0, 0, 0,
381 247, 0, 0, 0, 0, 0, 0, 0, 0, 0,
382
383 0, 74, 0, 9, 0, 35, 0, 222, 0, 0,
384 215, 7, 0, 0, 263, 0, 0, 89, 0, 0,
385 0, 0, 262, 0, 0, 88, 163, 0, 0, 272,
386 0, 0, 0, 31, 0, 0, 0, 0, 0, 220,
387 0, 30, 0, 0, 0, 301, 0, 0, 0, 0,
388 0, 0, 0, 0, 233, 0, 0, 0, 109, 0,
389 0, 0, 0, 0, 0, 153, 190, 0, 0, 0,
390 0, 0, 0, 0, 218, 0, 19, 0, 0, 0,
391 0, 0, 166, 0, 0, 0, 118, 0, 0, 0,
392 0, 0, 0, 251, 0, 0, 0, 0, 194, 0,
393
394 0, 0, 0, 0, 0, 0, 249, 300, 0, 231,
395 149, 0, 0, 0, 0, 271, 0, 0, 255, 223,
396 0, 0, 0, 0, 3, 0, 0, 0, 0, 0,
397 0, 0, 299, 0, 165, 0, 0, 0, 0, 0,
398 0, 0, 0, 168, 0, 0, 0, 0, 0, 0,
399 0, 301, 0, 116, 0, 0, 0, 0, 0, 0,
400 0, 0, 0, 0, 0, 108, 0, 0, 0, 0,
401 0, 189, 0, 202, 0, 11, 0, 0, 217, 207,
402 0, 0, 0, 213, 0, 0, 0, 0, 0, 0,
403 159, 171, 152, 0, 160, 0, 158, 0, 0, 0,
404
405 0, 182, 0, 0, 300, 150, 0, 0, 0, 294,
406 0, 0, 17, 0, 196, 230, 0, 0, 185, 0,
407 234, 161, 164, 0, 67, 299, 299, 0, 0, 66,
408 125, 0, 170, 0, 0, 0, 0, 192, 0, 0,
409 0, 8, 0, 0, 142, 208, 0, 0, 0, 0,
410 0, 0, 0, 110, 0, 151, 237, 0, 173, 227,
411 0, 201, 0, 143, 0, 0, 120, 0, 114, 0,
412 0, 0, 0, 0, 0, 0, 183, 0, 0, 184,
413 197, 232, 0, 294, 294, 294, 224, 0, 6, 225,
414 0, 0, 70, 15, 69, 0, 239, 0, 0, 179,
415
416 0, 206, 39, 0, 0, 187, 0, 240, 155, 0,
417 0, 0, 10, 175, 200, 0, 140, 0, 115, 0,
418 0, 0, 0, 172, 191, 0, 0, 0, 0, 0,
419 0, 212, 0, 0, 0, 126, 12, 199, 0, 243,
420 242, 0, 0, 0, 113, 169, 177, 188, 195, 156,
421 181, 198, 226, 186, 13, 250, 0, 0, 0, 252,
422 0, 176, 0, 0, 0, 167, 178, 0, 0, 0,
423 0, 241, 0, 244, 0
424 } ;
425
426 static yyconst int yy_ec[256] =
427 { 0,
428 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
429 1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
430 1, 1, 1, 1, 1, 5, 1, 1, 1, 1,
431 1, 2, 6, 7, 8, 1, 9, 10, 11, 12,
432 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
433 23, 24, 23, 23, 23, 25, 23, 26, 27, 28,
434 29, 30, 31, 1, 32, 32, 32, 32, 32, 32,
435 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,
436 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,
437 34, 35, 36, 37, 38, 39, 40, 41, 42, 43,
438
439 44, 45, 46, 47, 48, 49, 50, 51, 52, 53,
440 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
441 64, 65, 66, 67, 68, 69, 1, 1, 1, 1,
442 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
443 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
444 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
445 1, 1, 1, 1, 1, 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
450 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
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
456 } ;
457
458 static yyconst int yy_meta[70] =
459 { 0,
460 1, 2, 3, 4, 1, 1, 4, 1, 1, 1,
461 1, 1, 5, 1, 1, 1, 1, 1, 1, 6,
462 6, 6, 6, 6, 6, 1, 1, 1, 1, 1,
463 1, 6, 7, 1, 1, 1, 1, 7, 8, 9,
464 9, 9, 9, 9, 9, 10, 10, 10, 10, 10,
465 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
466 10, 10, 10, 10, 10, 1, 1, 1, 1
467 } ;
468
469 static yyconst short int yy_base[1184] =
470 { 0,
471 0, 0, 69, 0, 1446, 1445, 1451, 1454, 1454, 1454,
472 1447, 1454, 1454, 1454, 1454, 1439, 1437, 1454, 1454, 1454,
473 1454, 1454, 1454, 1454, 120, 120, 127, 133, 1454, 1454,
474 1419, 1454, 1416, 1454, 139, 1454, 163, 1454, 1454, 0,
475 166, 133, 151, 166, 181, 129, 176, 1388, 188, 130,
476 1384, 1399, 199, 200, 215, 148, 211, 1454, 230, 229,
477 242, 126, 247, 209, 1389, 1454, 1454, 1454, 1454, 1454,
478 1454, 1412, 1454, 1430, 286, 292, 168, 1410, 243, 298,
479 1394, 1384, 1389, 1368, 1427, 1454, 1454, 1454, 1422, 1454,
480 1454, 304, 230, 1375, 1454, 1454, 318, 300, 1454, 1428,
481
482 1454, 0, 265, 176, 1376, 1386, 153, 1388, 1381, 1386,
483 275, 241, 1371, 1454, 294, 1384, 1372, 1369, 1368, 1366,
484 1362, 1374, 1454, 227, 1373, 302, 1358, 1364, 1369, 312,
485 126, 1353, 1359, 1359, 1352, 1366, 1367, 298, 1349, 281,
486 1362, 314, 1354, 307, 1361, 1454, 1454, 188, 158, 1363,
487 1344, 1337, 319, 321, 1347, 1342, 1349, 335, 326, 1337,
488 325, 1454, 1454, 1334, 1454, 323, 1343, 1335, 1334, 1345,
489 1347, 342, 344, 1333, 1349, 332, 1340, 1341, 347, 1340,
490 340, 1326, 356, 1344, 1318, 357, 1327, 363, 1333, 1329,
491 1338, 1325, 362, 1322, 364, 372, 1454, 1322, 1317, 1326,
492
493 1331, 355, 1328, 322, 1317, 1454, 1454, 402, 0, 1454,
494 1454, 1454, 1454, 1454, 411, 1325, 1326, 1324, 1454, 1360,
495 1454, 1454, 1454, 1322, 407, 416, 1454, 1304, 1305, 1454,
496 1309, 1311, 1309, 1307, 371, 1301, 1306, 1303, 1294, 1313,
497 1311, 1303, 386, 1308, 1309, 1304, 1307, 1289, 1290, 1304,
498 1300, 1292, 1286, 1284, 1454, 1280, 1454, 1293, 1298, 393,
499 1286, 1289, 1277, 1287, 1275, 1280, 1280, 1288, 1454, 1286,
500 409, 1277, 1287, 1269, 1286, 1266, 1265, 1270, 1280, 1278,
501 1260, 1274, 1275, 1256, 1272, 1271, 1271, 401, 1265, 1261,
502 1252, 1454, 1266, 1266, 1249, 1267, 1454, 1247, 1261, 1256,
503
504 1249, 1244, 1253, 1235, 1251, 1244, 1245, 1237, 403, 412,
505 1234, 1250, 1252, 1252, 1244, 1246, 1232, 1238, 1454, 1243,
506 1246, 1241, 1244, 400, 1238, 1242, 1233, 1221, 1220, 1225,
507 1231, 398, 1232, 1231, 1215, 1226, 1221, 1454, 1454, 1220,
508 1213, 1212, 1224, 1209, 1211, 1208, 1207, 1218, 1210, 1208,
509 1205, 1197, 1204, 1454, 1454, 1213, 1205, 242, 1202, 1213,
510 1209, 1193, 1207, 1198, 1201, 1206, 1200, 1193, 1181, 1187,
511 1199, 1195, 1182, 0, 1192, 1191, 1185, 1196, 1192, 1178,
512 1454, 1170, 1189, 1173, 1172, 1186, 1170, 1454, 1170, 1165,
513 1182, 1175, 1176, 1171, 1182, 1167, 1177, 415, 1175, 1174,
514
515 1173, 1173, 1164, 1454, 1160, 1165, 1170, 1167, 1166, 1169,
516 1155, 1165, 1454, 1153, 1454, 1147, 1160, 1454, 1454, 1155,
517 1454, 1162, 1148, 318, 1454, 1160, 1140, 1454, 1153, 1153,
518 1154, 1151, 415, 1139, 1142, 418, 1148, 1149, 1145, 1145,
519 1128, 1129, 1454, 1138, 1134, 1126, 1131, 1131, 1137, 1454,
520 1138, 1122, 1125, 1117, 1122, 1454, 1118, 1454, 1126, 1131,
521 1108, 1127, 1130, 1127, 1124, 1120, 1122, 1104, 1120, 1106,
522 1111, 419, 419, 1102, 1109, 1113, 1107, 1098, 1112, 1097,
523 1101, 1096, 1094, 1092, 1106, 1109, 1089, 1107, 1106, 429,
524 1086, 1454, 1100, 1099, 1098, 1454, 1094, 1096, 1454, 1099,
525
526 1093, 417, 1091, 1082, 1088, 1077, 379, 1089, 1454, 1092,
527 1073, 1079, 1084, 1070, 1068, 1085, 1084, 1080, 1079, 1454,
528 1454, 1078, 1454, 1454, 1077, 1067, 1074, 1454, 1067, 1063,
529 1076, 1057, 1061, 1067, 1058, 1068, 1046, 421, 1055, 1064,
530 1454, 1048, 1066, 1048, 1052, 1454, 1454, 1059, 1454, 1051,
531 1044, 1057, 1055, 1045, 1053, 1053, 1454, 1052, 1037, 1049,
532 1033, 1043, 1042, 1046, 1030, 1030, 1043, 1454, 1039, 1026,
533 1028, 434, 1025, 1034, 1454, 1023, 443, 1035, 1034, 1020,
534 1029, 1016, 1027, 1071, 1014, 1028, 1029, 1024, 1046, 1025,
535 1026, 1454, 1008, 1006, 1454, 1003, 1010, 1003, 1454, 1003,
536
537 1454, 1007, 1005, 1011, 1002, 998, 1010, 996, 1008, 1000,
538 991, 1009, 985, 1007, 1002, 997, 996, 995, 984, 984,
539 1454, 197, 998, 995, 1454, 998, 995, 984, 992, 977,
540 969, 974, 972, 973, 975, 964, 975, 1454, 431, 972,
541 1454, 1454, 972, 433, 980, 976, 962, 963, 972, 1454,
542 1454, 966, 1454, 961, 962, 972, 1013, 1454, 1454, 966,
543 962, 1454, 960, 951, 1454, 966, 1454, 965, 951, 954,
544 958, 946, 964, 950, 1454, 951, 947, 936, 942, 945,
545 957, 943, 949, 456, 935, 943, 1454, 944, 948, 1454,
546 933, 941, 488, 1454, 986, 1454, 929, 932, 490, 926,
547
548 1454, 936, 925, 924, 941, 928, 928, 956, 916, 932,
549 916, 934, 926, 929, 912, 948, 929, 920, 927, 477,
550 1454, 922, 919, 910, 1454, 909, 891, 1454, 453, 890,
551 1454, 884, 893, 1454, 873, 887, 873, 865, 129, 285,
552 1454, 338, 450, 440, 441, 455, 451, 435, 458, 449,
553 448, 464, 449, 456, 453, 1454, 465, 457, 455, 1454,
554 459, 468, 476, 480, 463, 471, 473, 486, 487, 484,
555 476, 476, 483, 492, 491, 481, 482, 484, 491, 481,
556 493, 496, 489, 519, 543, 497, 507, 508, 495, 511,
557 1454, 512, 498, 500, 516, 504, 518, 519, 509, 514,
558
559 523, 513, 517, 1454, 521, 1454, 530, 1454, 527, 514,
560 1454, 1454, 515, 572, 1454, 526, 530, 1454, 577, 533,
561 528, 580, 1454, 532, 536, 1454, 1454, 532, 527, 1454,
562 541, 540, 545, 1454, 542, 532, 548, 542, 550, 1454,
563 536, 1454, 541, 555, 545, 581, 597, 550, 567, 557,
564 569, 565, 563, 570, 575, 566, 564, 563, 1454, 580,
565 585, 583, 570, 575, 566, 1454, 1454, 573, 588, 591,
566 577, 583, 596, 587, 1454, 599, 1454, 585, 597, 595,
567 607, 604, 1454, 596, 598, 593, 1454, 612, 602, 598,
568 613, 602, 614, 1454, 606, 617, 621, 607, 1454, 606,
569
570 616, 606, 622, 608, 620, 611, 1454, 650, 632, 1454,
571 1454, 633, 677, 634, 626, 1454, 641, 642, 1454, 1454,
572 642, 643, 646, 634, 1454, 639, 636, 630, 636, 637,
573 637, 654, 691, 655, 1454, 640, 657, 656, 640, 661,
574 655, 705, 654, 1454, 664, 674, 662, 676, 677, 682,
575 679, 710, 734, 1454, 683, 683, 680, 689, 685, 674,
576 686, 696, 688, 687, 690, 1454, 694, 692, 696, 708,
577 694, 1454, 707, 1454, 708, 1454, 699, 710, 1454, 1454,
578 703, 700, 709, 1454, 702, 719, 723, 716, 705, 720,
579 1454, 1454, 1454, 723, 1454, 717, 1454, 710, 711, 723,
580
581 731, 1454, 720, 730, 755, 1454, 738, 780, 782, 787,
582 729, 737, 1454, 750, 1454, 1454, 738, 753, 1454, 751,
583 1454, 1454, 1454, 741, 1454, 1454, 796, 756, 744, 1454,
584 1454, 751, 1454, 739, 802, 754, 763, 1454, 763, 753,
585 753, 1454, 778, 0, 1454, 1454, 770, 778, 766, 782,
586 774, 765, 791, 1454, 768, 1454, 1454, 774, 1454, 1454,
587 776, 1454, 781, 1454, 778, 785, 1454, 792, 1454, 783,
588 788, 791, 795, 786, 801, 802, 1454, 793, 794, 1454,
589 1454, 1454, 847, 849, 1454, 851, 1454, 797, 1454, 1454,
590 812, 809, 1454, 1454, 1454, 814, 1454, 0, 811, 1454,
591
592 800, 1454, 1454, 803, 856, 1454, 812, 821, 1454, 808,
593 824, 816, 1454, 1454, 1454, 830, 1454, 811, 1454, 813,
594 829, 815, 822, 1454, 1454, 823, 824, 815, 837, 825,
595 830, 1454, 877, 832, 828, 1454, 1454, 1454, 847, 843,
596 1454, 835, 844, 839, 1454, 1454, 1454, 1454, 1454, 1454,
597 1454, 1454, 1454, 1454, 1454, 1454, 848, 841, 854, 1454,
598 851, 1454, 853, 849, 846, 1454, 1454, 848, 852, 837,
599 851, 1454, 839, 1454, 1454, 903, 908, 918, 927, 930,
600 938, 945, 955
601 } ;
602
603 static yyconst short int yy_def[1184] =
604 { 0,
605 1175, 1, 1175, 3, 1176, 1176, 1175, 1175, 1175, 1175,
606 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
607 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
608 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1177,
609 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
610 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
611 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
612 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
613 1175, 1175, 1175, 1175, 1178, 1175, 1175, 1175, 1175, 1175,
614 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
615
616 1175, 1177, 1175, 1179, 1175, 1175, 1175, 1175, 1175, 1175,
617 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
618 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
619 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
620 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
621 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
622 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
623 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
624 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
625 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
626
627 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1180, 1175,
628 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1178,
629 1175, 1175, 1175, 1175, 1175, 1179, 1175, 1175, 1175, 1175,
630 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
631 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
632 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
633 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
634 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
635 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
636 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
637
638 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
639 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
640 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
641 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
642 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
643 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
644 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
645 1175, 1175, 1175, 1180, 1175, 1175, 1175, 1175, 1175, 1175,
646 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
647 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
648
649 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
650 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
651 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
652 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
653 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
654 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
655 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
656 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
657 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
658 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
659
660 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
661 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
662 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
663 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
664 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
665 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
666 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
667 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
668 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
669 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
670
671 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
672 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
673 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
674 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
675 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
676 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
677 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
678 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
679 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
680 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
681
682 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
683 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
684 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
685 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
686 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
687 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
688 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
689 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
690 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
691 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
692
693 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
694 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
695 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
696 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
697 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
698 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
699 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
700 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
701 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
702 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
703
704 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
705 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
706 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
707 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
708 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
709 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
710 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
711 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
712 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
713 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
714
715 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1181,
716 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
717 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
718 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
719 1175, 1175, 1175, 1182, 1175, 1175, 1175, 1175, 1175, 1175,
720 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
721 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
722 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
723 1175, 1175, 1175, 1175, 1175, 1181, 1175, 1175, 1175, 1175,
724 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1183, 1175, 1175,
725
726 1175, 1175, 1175, 1175, 1182, 1175, 1175, 1175, 1175, 1175,
727 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
728 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
729 1175, 1175, 1183, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
730 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
731 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
732 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
733 1175, 1175, 1175, 1175, 0, 1175, 1175, 1175, 1175, 1175,
734 1175, 1175, 1175
735 } ;
736
737 static yyconst short int yy_nxt[1524] =
738 { 0,
739 8, 9, 10, 11, 12, 13, 14, 15, 8, 16,
740 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
741 27, 26, 26, 26, 28, 29, 30, 31, 32, 33,
742 34, 35, 35, 36, 37, 38, 39, 40, 41, 42,
743 43, 44, 45, 46, 47, 48, 49, 50, 51, 52,
744 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
745 63, 64, 65, 58, 58, 66, 8, 67, 68, 69,
746 70, 71, 69, 69, 72, 69, 69, 73, 74, 69,
747 73, 73, 73, 73, 73, 73, 73, 73, 75, 76,
748 76, 76, 76, 76, 73, 69, 77, 78, 79, 73,
749
750 80, 80, 69, 69, 69, 73, 69, 69, 69, 69,
751 69, 81, 82, 69, 69, 69, 69, 69, 69, 69,
752 69, 69, 69, 69, 69, 69, 69, 83, 69, 69,
753 69, 69, 69, 69, 69, 84, 69, 73, 90, 92,
754 92, 92, 92, 92, 92, 93, 92, 92, 92, 92,
755 92, 92, 92, 92, 92, 92, 92, 92, 97, 97,
756 97, 97, 97, 97, 98, 99, 100, 103, 862, 134,
757 97, 97, 91, 105, 148, 106, 97, 225, 196, 135,
758 197, 136, 149, 107, 265, 108, 137, 266, 150, 168,
759 111, 94, 109, 110, 112, 210, 211, 104, 104, 288,
760
761 169, 113, 114, 230, 115, 118, 170, 116, 171, 119,
762 117, 231, 120, 121, 227, 101, 122, 123, 289, 124,
763 127, 128, 125, 138, 129, 126, 139, 143, 130, 140,
764 286, 144, 141, 162, 131, 145, 753, 132, 153, 157,
765 287, 146, 154, 158, 133, 147, 155, 159, 202, 163,
766 172, 222, 160, 223, 173, 203, 204, 174, 164, 161,
767 754, 175, 156, 509, 176, 165, 103, 177, 166, 178,
768 183, 213, 214, 179, 167, 184, 185, 180, 252, 186,
769 237, 191, 187, 181, 182, 192, 253, 188, 198, 193,
770 189, 238, 190, 510, 199, 194, 104, 104, 195, 239,
771
772 200, 98, 99, 100, 201, 208, 208, 208, 208, 208,
773 208, 208, 208, 208, 208, 208, 208, 215, 215, 215,
774 215, 215, 215, 92, 92, 92, 92, 92, 92, 215,
775 215, 235, 236, 276, 277, 215, 863, 97, 97, 97,
776 97, 97, 97, 273, 241, 255, 283, 242, 209, 97,
777 97, 261, 243, 279, 274, 97, 244, 284, 256, 293,
778 257, 280, 568, 262, 371, 295, 296, 281, 305, 263,
779 569, 294, 264, 297, 302, 308, 311, 303, 306, 298,
780 372, 312, 309, 318, 319, 864, 324, 320, 328, 329,
781 337, 338, 321, 332, 322, 340, 344, 333, 323, 304,
782
783 325, 334, 348, 359, 335, 354, 349, 360, 225, 341,
784 345, 368, 355, 356, 361, 369, 346, 225, 385, 362,
785 357, 208, 208, 208, 208, 208, 208, 386, 387, 363,
786 215, 215, 215, 215, 215, 215, 651, 395, 652, 477,
787 411, 486, 215, 215, 396, 227, 412, 440, 215, 422,
788 460, 441, 423, 462, 227, 487, 424, 478, 547, 576,
789 461, 580, 613, 614, 548, 615, 463, 645, 634, 464,
790 635, 677, 577, 706, 646, 581, 616, 806, 720, 678,
791 617, 707, 711, 773, 712, 769, 636, 774, 770, 814,
792 775, 822, 852, 865, 866, 867, 868, 853, 869, 870,
793
794 871, 872, 873, 874, 713, 875, 876, 807, 846, 846,
795 854, 877, 878, 879, 880, 815, 881, 823, 882, 883,
796 884, 887, 888, 885, 889, 890, 891, 892, 893, 894,
797 895, 896, 897, 899, 898, 900, 901, 886, 902, 903,
798 904, 905, 906, 907, 785, 816, 817, 824, 825, 909,
799 910, 911, 912, 913, 914, 915, 818, 916, 826, 917,
800 918, 919, 920, 921, 922, 923, 924, 925, 926, 927,
801 928, 929, 930, 814, 908, 908, 931, 932, 819, 934,
802 935, 822, 936, 937, 938, 939, 940, 941, 942, 943,
803 944, 945, 946, 947, 948, 949, 950, 951, 953, 815,
804
805 952, 952, 952, 952, 952, 952, 954, 823, 933, 933,
806 955, 956, 952, 952, 957, 958, 959, 960, 952, 961,
807 963, 964, 965, 966, 967, 968, 969, 970, 971, 816,
808 817, 972, 962, 973, 974, 975, 976, 824, 825, 977,
809 818, 978, 979, 980, 981, 982, 983, 984, 826, 985,
810 986, 987, 988, 989, 990, 991, 992, 993, 994, 995,
811 996, 997, 998, 999, 1000, 1001, 1002, 1003, 1004, 1005,
812 1005, 1005, 1005, 1005, 1005, 1006, 1007, 1011, 1008, 1008,
813 1012, 1005, 1005, 1013, 1014, 1015, 1016, 1005, 1009, 1017,
814 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1028, 1029,
815
816 1030, 1031, 1026, 1032, 1033, 1034, 1035, 1036, 1010, 1010,
817 1027, 1027, 1027, 1027, 1027, 1027, 1037, 1038, 1039, 1040,
818 1041, 1042, 1027, 1027, 1043, 1045, 1046, 1047, 1027, 952,
819 952, 952, 952, 952, 952, 953, 1048, 1049, 1050, 1051,
820 1044, 952, 952, 1052, 1053, 1054, 1055, 952, 1056, 1057,
821 1058, 1059, 1060, 1061, 1062, 1063, 1064, 1065, 1066, 1067,
822 1068, 1069, 1070, 1071, 1072, 1073, 1074, 1075, 1076, 1077,
823 1078, 1079, 1080, 1081, 1005, 1005, 1005, 1005, 1005, 1005,
824 1082, 1008, 1008, 1083, 1083, 1087, 1005, 1005, 1084, 1084,
825 1088, 1009, 1005, 1089, 1090, 1091, 1092, 1093, 1094, 1085,
826
827 1095, 1096, 1097, 1035, 1099, 1100, 1101, 1026, 1098, 1102,
828 1103, 1010, 1010, 1010, 1010, 1027, 1027, 1027, 1027, 1027,
829 1027, 1104, 1106, 1107, 1108, 1109, 1110, 1027, 1027, 1111,
830 1112, 1113, 1114, 1027, 1115, 1116, 1117, 1118, 1119, 1120,
831 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1083, 1083,
832 1084, 1084, 1084, 1084, 1129, 1130, 1131, 1132, 1134, 1135,
833 1136, 1085, 1137, 1085, 1138, 1139, 1140, 1141, 1142, 1143,
834 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 1010, 1010,
835 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161,
836 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171,
837
838 1172, 1173, 1174, 85, 85, 85, 85, 85, 85, 85,
839 85, 85, 85, 102, 102, 861, 102, 102, 220, 220,
840 220, 220, 220, 220, 220, 220, 220, 220, 226, 860,
841 859, 858, 226, 226, 226, 374, 857, 856, 374, 1086,
842 1086, 855, 1086, 1086, 1086, 1105, 1105, 851, 850, 1105,
843 1105, 1105, 1105, 1105, 1105, 1133, 1133, 849, 848, 1133,
844 1133, 1133, 1133, 1133, 1133, 847, 845, 844, 843, 842,
845 841, 840, 839, 838, 837, 836, 835, 834, 833, 832,
846 831, 830, 829, 828, 827, 821, 820, 819, 813, 812,
847 811, 810, 809, 808, 805, 804, 803, 802, 801, 800,
848
849 799, 798, 797, 796, 795, 794, 793, 792, 791, 790,
850 789, 788, 787, 786, 785, 784, 783, 782, 781, 780,
851 779, 778, 777, 776, 772, 771, 768, 767, 766, 765,
852 764, 763, 762, 761, 760, 759, 758, 757, 756, 755,
853 752, 751, 750, 749, 748, 747, 746, 745, 744, 743,
854 742, 741, 740, 739, 738, 737, 736, 735, 734, 733,
855 732, 731, 730, 729, 728, 727, 726, 725, 724, 723,
856 722, 721, 720, 719, 718, 717, 716, 715, 714, 710,
857 709, 708, 705, 704, 703, 702, 701, 700, 699, 698,
858 697, 696, 695, 694, 693, 692, 691, 690, 689, 688,
859
860 687, 686, 685, 684, 683, 682, 681, 680, 679, 676,
861 675, 674, 673, 672, 671, 670, 669, 668, 667, 666,
862 665, 664, 663, 662, 661, 660, 659, 658, 657, 656,
863 655, 654, 653, 650, 649, 648, 647, 644, 643, 642,
864 641, 640, 639, 638, 637, 633, 632, 631, 630, 629,
865 628, 627, 626, 625, 624, 623, 622, 621, 620, 619,
866 618, 612, 611, 610, 609, 608, 607, 606, 605, 604,
867 603, 602, 601, 600, 599, 598, 597, 596, 595, 594,
868 593, 592, 591, 590, 589, 588, 587, 586, 585, 584,
869 583, 582, 579, 578, 575, 574, 573, 572, 571, 570,
870
871 567, 566, 565, 564, 563, 562, 561, 560, 559, 558,
872 557, 556, 555, 554, 553, 552, 551, 550, 549, 546,
873 545, 544, 543, 542, 541, 540, 539, 538, 537, 536,
874 535, 534, 533, 532, 531, 530, 529, 528, 527, 526,
875 525, 524, 523, 522, 521, 520, 519, 518, 517, 516,
876 515, 514, 513, 512, 511, 508, 507, 506, 505, 504,
877 503, 502, 501, 500, 499, 498, 497, 496, 495, 494,
878 493, 492, 491, 490, 489, 488, 485, 484, 483, 482,
879 481, 480, 479, 476, 475, 474, 473, 472, 471, 470,
880 469, 468, 467, 466, 465, 459, 458, 457, 456, 455,
881
882 454, 453, 452, 451, 450, 449, 448, 447, 446, 445,
883 444, 443, 442, 286, 439, 438, 437, 436, 435, 434,
884 433, 432, 431, 430, 429, 428, 427, 426, 425, 421,
885 420, 419, 418, 417, 416, 415, 414, 413, 410, 409,
886 408, 407, 406, 405, 404, 403, 402, 401, 400, 399,
887 398, 397, 394, 393, 392, 391, 390, 389, 388, 384,
888 383, 382, 381, 380, 379, 378, 221, 377, 376, 375,
889 373, 370, 367, 366, 365, 364, 358, 353, 352, 351,
890 350, 347, 343, 342, 339, 336, 331, 330, 327, 326,
891 317, 316, 315, 314, 313, 310, 307, 301, 300, 299,
892
893 292, 291, 290, 285, 282, 278, 275, 272, 271, 270,
894 269, 268, 267, 260, 259, 258, 254, 251, 250, 249,
895 248, 247, 246, 245, 240, 234, 233, 232, 229, 228,
896 99, 224, 89, 221, 219, 218, 217, 216, 212, 207,
897 206, 205, 152, 151, 142, 96, 95, 89, 88, 87,
898 1175, 86, 86, 7, 1175, 1175, 1175, 1175, 1175, 1175,
899 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
900 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
901 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
902 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
903
904 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
905 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
906 1175, 1175, 1175
907 } ;
908
909 static yyconst short int yy_chk[1524] =
910 { 0,
911 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
912 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
913 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
914 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
915 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
916 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
917 1, 1, 1, 1, 1, 1, 1, 1, 1, 3,
918 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
919 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
920 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
921
922 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
923 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
924 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
925 3, 3, 3, 3, 3, 3, 3, 3, 25, 26,
926 26, 26, 26, 26, 26, 27, 27, 27, 27, 27,
927 27, 27, 28, 28, 28, 28, 28, 28, 35, 35,
928 35, 35, 35, 35, 37, 37, 37, 41, 739, 46,
929 35, 35, 25, 42, 50, 42, 35, 104, 62, 46,
930 62, 46, 50, 42, 131, 42, 46, 131, 50, 56,
931 43, 28, 42, 42, 43, 77, 77, 41, 41, 149,
932
933 56, 43, 43, 107, 43, 44, 56, 43, 56, 44,
934 43, 107, 44, 44, 104, 37, 44, 44, 149, 44,
935 45, 45, 44, 47, 45, 44, 47, 49, 45, 47,
936 148, 49, 47, 55, 45, 49, 622, 45, 53, 54,
937 148, 49, 53, 54, 45, 49, 53, 54, 64, 55,
938 57, 93, 54, 93, 57, 64, 64, 57, 55, 54,
939 622, 57, 53, 358, 57, 55, 103, 57, 55, 59,
940 60, 79, 79, 59, 55, 60, 60, 59, 124, 60,
941 112, 61, 60, 59, 59, 61, 124, 60, 63, 61,
942 60, 112, 60, 358, 63, 61, 103, 103, 61, 112,
943
944 63, 98, 98, 98, 63, 75, 75, 75, 75, 75,
945 75, 76, 76, 76, 76, 76, 76, 80, 80, 80,
946 80, 80, 80, 92, 92, 92, 92, 92, 92, 80,
947 80, 111, 111, 140, 140, 80, 740, 97, 97, 97,
948 97, 97, 97, 138, 115, 126, 144, 115, 75, 97,
949 97, 130, 115, 142, 138, 97, 115, 144, 126, 153,
950 126, 142, 424, 130, 204, 154, 154, 142, 159, 130,
951 424, 153, 130, 154, 158, 161, 166, 158, 159, 154,
952 204, 166, 161, 172, 172, 742, 173, 172, 176, 176,
953 181, 181, 172, 179, 172, 183, 186, 179, 172, 158,
954
955 173, 179, 188, 195, 179, 193, 188, 195, 225, 183,
956 186, 202, 193, 193, 196, 202, 186, 226, 235, 196,
957 193, 208, 208, 208, 208, 208, 208, 235, 235, 196,
958 215, 215, 215, 215, 215, 215, 507, 243, 507, 324,
959 260, 332, 215, 215, 243, 225, 260, 288, 215, 271,
960 309, 288, 271, 310, 226, 332, 271, 324, 398, 433,
961 309, 436, 472, 472, 398, 473, 310, 502, 490, 310,
962 490, 538, 433, 572, 502, 436, 473, 684, 720, 538,
963 473, 572, 577, 644, 577, 639, 490, 644, 639, 693,
964 644, 699, 729, 743, 744, 745, 746, 729, 747, 748,
965
966 749, 750, 751, 752, 577, 753, 754, 684, 720, 720,
967 729, 755, 757, 758, 759, 693, 761, 699, 762, 763,
968 764, 765, 766, 764, 767, 768, 769, 770, 771, 772,
969 773, 774, 775, 776, 775, 777, 778, 764, 779, 780,
970 781, 782, 783, 784, 785, 693, 693, 699, 699, 786,
971 787, 788, 789, 790, 792, 793, 693, 794, 699, 795,
972 796, 797, 798, 799, 800, 801, 802, 803, 805, 807,
973 809, 810, 813, 814, 785, 785, 816, 817, 819, 820,
974 821, 822, 824, 825, 828, 829, 831, 832, 833, 835,
975 836, 837, 838, 839, 841, 843, 844, 845, 847, 814,
976
977 846, 846, 846, 846, 846, 846, 848, 822, 819, 819,
978 849, 850, 846, 846, 851, 852, 853, 854, 846, 855,
979 856, 857, 858, 860, 861, 862, 863, 864, 865, 814,
980 814, 868, 855, 869, 870, 871, 872, 822, 822, 873,
981 814, 874, 876, 878, 879, 880, 881, 882, 822, 884,
982 885, 886, 888, 889, 890, 891, 892, 893, 895, 896,
983 897, 898, 900, 901, 902, 903, 904, 905, 906, 908,
984 908, 908, 908, 908, 908, 909, 912, 914, 913, 913,
985 915, 908, 908, 917, 918, 921, 922, 908, 913, 923,
986 924, 926, 927, 928, 929, 930, 931, 932, 934, 936,
987
988 937, 938, 933, 939, 940, 941, 942, 943, 913, 913,
989 933, 933, 933, 933, 933, 933, 945, 946, 947, 948,
990 949, 950, 933, 933, 951, 955, 956, 957, 933, 952,
991 952, 952, 952, 952, 952, 953, 958, 959, 960, 961,
992 953, 952, 952, 962, 963, 964, 965, 952, 967, 968,
993 969, 970, 971, 973, 975, 977, 978, 981, 982, 983,
994 985, 986, 987, 988, 989, 990, 994, 996, 998, 999,
995 1000, 1001, 1003, 1004, 1005, 1005, 1005, 1005, 1005, 1005,
996 1007, 1008, 1008, 1009, 1009, 1011, 1005, 1005, 1010, 1010,
997 1012, 1008, 1005, 1014, 1017, 1018, 1020, 1024, 1028, 1010,
998
999 1029, 1032, 1034, 1035, 1036, 1037, 1039, 1027, 1035, 1040,
1000 1041, 1008, 1008, 1009, 1009, 1027, 1027, 1027, 1027, 1027,
1001 1027, 1043, 1047, 1048, 1049, 1050, 1051, 1027, 1027, 1052,
1002 1053, 1055, 1058, 1027, 1061, 1063, 1065, 1066, 1068, 1070,
1003 1071, 1072, 1073, 1074, 1075, 1076, 1078, 1079, 1083, 1083,
1004 1084, 1084, 1086, 1086, 1088, 1091, 1092, 1096, 1099, 1101,
1005 1104, 1084, 1105, 1086, 1107, 1108, 1110, 1111, 1112, 1116,
1006 1118, 1120, 1121, 1122, 1123, 1126, 1127, 1128, 1083, 1083,
1007 1129, 1130, 1131, 1133, 1134, 1135, 1139, 1140, 1142, 1143,
1008 1144, 1157, 1158, 1159, 1161, 1163, 1164, 1165, 1168, 1169,
1009
1010 1170, 1171, 1173, 1176, 1176, 1176, 1176, 1176, 1176, 1176,
1011 1176, 1176, 1176, 1177, 1177, 738, 1177, 1177, 1178, 1178,
1012 1178, 1178, 1178, 1178, 1178, 1178, 1178, 1178, 1179, 737,
1013 736, 735, 1179, 1179, 1179, 1180, 733, 732, 1180, 1181,
1014 1181, 730, 1181, 1181, 1181, 1182, 1182, 727, 726, 1182,
1015 1182, 1182, 1182, 1182, 1182, 1183, 1183, 724, 723, 1183,
1016 1183, 1183, 1183, 1183, 1183, 722, 719, 718, 717, 716,
1017 715, 714, 713, 712, 711, 710, 709, 708, 707, 706,
1018 705, 704, 703, 702, 700, 698, 697, 695, 692, 691,
1019 689, 688, 686, 685, 683, 682, 681, 680, 679, 678,
1020
1021 677, 676, 674, 673, 672, 671, 670, 669, 668, 666,
1022 664, 663, 661, 660, 657, 656, 655, 654, 652, 649,
1023 648, 647, 646, 645, 643, 640, 637, 636, 635, 634,
1024 633, 632, 631, 630, 629, 628, 627, 626, 624, 623,
1025 620, 619, 618, 617, 616, 615, 614, 613, 612, 611,
1026 610, 609, 608, 607, 606, 605, 604, 603, 602, 600,
1027 598, 597, 596, 594, 593, 591, 590, 589, 588, 587,
1028 586, 585, 584, 583, 582, 581, 580, 579, 578, 576,
1029 574, 573, 571, 570, 569, 567, 566, 565, 564, 563,
1030 562, 561, 560, 559, 558, 556, 555, 554, 553, 552,
1031
1032 551, 550, 548, 545, 544, 543, 542, 540, 539, 537,
1033 536, 535, 534, 533, 532, 531, 530, 529, 527, 526,
1034 525, 522, 519, 518, 517, 516, 515, 514, 513, 512,
1035 511, 510, 508, 506, 505, 504, 503, 501, 500, 498,
1036 497, 495, 494, 493, 491, 489, 488, 487, 486, 485,
1037 484, 483, 482, 481, 480, 479, 478, 477, 476, 475,
1038 474, 471, 470, 469, 468, 467, 466, 465, 464, 463,
1039 462, 461, 460, 459, 457, 455, 454, 453, 452, 451,
1040 449, 448, 447, 446, 445, 444, 442, 441, 440, 439,
1041 438, 437, 435, 434, 432, 431, 430, 429, 427, 426,
1042
1043 423, 422, 420, 417, 416, 414, 412, 411, 410, 409,
1044 408, 407, 406, 405, 403, 402, 401, 400, 399, 397,
1045 396, 395, 394, 393, 392, 391, 390, 389, 387, 386,
1046 385, 384, 383, 382, 380, 379, 378, 377, 376, 375,
1047 373, 372, 371, 370, 369, 368, 367, 366, 365, 364,
1048 363, 362, 361, 360, 359, 357, 356, 353, 352, 351,
1049 350, 349, 348, 347, 346, 345, 344, 343, 342, 341,
1050 340, 337, 336, 335, 334, 333, 331, 330, 329, 328,
1051 327, 326, 325, 323, 322, 321, 320, 318, 317, 316,
1052 315, 314, 313, 312, 311, 308, 307, 306, 305, 304,
1053
1054 303, 302, 301, 300, 299, 298, 296, 295, 294, 293,
1055 291, 290, 289, 287, 286, 285, 284, 283, 282, 281,
1056 280, 279, 278, 277, 276, 275, 274, 273, 272, 270,
1057 268, 267, 266, 265, 264, 263, 262, 261, 259, 258,
1058 256, 254, 253, 252, 251, 250, 249, 248, 247, 246,
1059 245, 244, 242, 241, 240, 239, 238, 237, 236, 234,
1060 233, 232, 231, 229, 228, 224, 220, 218, 217, 216,
1061 205, 203, 201, 200, 199, 198, 194, 192, 191, 190,
1062 189, 187, 185, 184, 182, 180, 178, 177, 175, 174,
1063 171, 170, 169, 168, 167, 164, 160, 157, 156, 155,
1064
1065 152, 151, 150, 145, 143, 141, 139, 137, 136, 135,
1066 134, 133, 132, 129, 128, 127, 125, 122, 121, 120,
1067 119, 118, 117, 116, 113, 110, 109, 108, 106, 105,
1068 100, 94, 89, 85, 84, 83, 82, 81, 78, 74,
1069 72, 65, 52, 51, 48, 33, 31, 17, 16, 11,
1070 7, 6, 5, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
1071 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
1072 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
1073 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
1074 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
1075
1076 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
1077 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
1078 1175, 1175, 1175
1079 } ;
1080
1081 static yy_state_type yy_last_accepting_state;
1082 static char *yy_last_accepting_cpos;
1083
1084 /* The intent behind this definition is that it'll catch
1085 * any uses of REJECT which flex missed.
1086 */
1087 #define REJECT reject_used_but_not_detected
1088 static int yy_more_offset = 0;
1089 static int yy_prev_more_offset = 0;
1090 #define yymore() (yy_more_offset = yy_flex_strlen( yytext ))
1091 #define YY_NEED_STRLEN
1092 #define YY_MORE_ADJ 0
1093 #define YY_RESTORE_YY_MORE_OFFSET \
1094 { \
1095 yy_more_offset = yy_prev_more_offset; \
1096 yyleng -= yy_more_offset; \
1097 }
1098 #ifndef YYLMAX
1099 #define YYLMAX 8192
1100 #endif
1101
1102 char yytext[YYLMAX];
1103 char *yytext_ptr;
1104 #line 1 "lex.l"
1105 #define INITIAL 0
1106 #line 3 "lex.l"
1107
1108 /* Copyright (c) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
1109 * 2005, 2006 by Arkkra Enterprises */
1110 /* All rights reserved */
1111
1112 /* lexer for music publication program. Recognizes and returns all the
1113 * tokens needed by yacc. */
1114
1115 #include <errno.h>
1116 #include "rational.h"
1117 #include "ytab.h"
1118 #include "defines.h"
1119 #include "structs.h"
1120 #include "globals.h"
1121
1122
1123 /* In order to reduce the number of terminal symbols so yacc wouldn't blow
1124 * up, we mapped several similar tokens to the same return code. The
1125 * yylval variable is then used to say which specific one of the set
1126 * was actually in the input. Bison doesn't have the number of tokens
1127 * restriction, but grouping related tokens is still useful. */
1128 extern YYSTYPE yylval;
1129
1130
1131 #define YY_INPUT(buf,result,max_size) \
1132 { \
1133 int c = getc(yyin); \
1134 if (c == '\n') { \
1135 Last_was_newline = YES; \
1136 yylineno += not_in_mac(1); \
1137 } \
1138 else { \
1139 Last_was_newline = NO; \
1140 } \
1141 if (c == EOF || c == 0) { \
1142 result = YY_NULL; \
1143 } else { \
1144 buf[0] = c; \
1145 result = 1; \
1146 } \
1147 } \
1148
1149 /* list of Flex buffers for includes/macros */
1150 struct Lexbuffer {
1151 YY_BUFFER_STATE buff;
1152 struct Lexbuffer *next;
1153 };
1154 static struct Lexbuffer *Lexlist;
1155
1156 /* We add a newline at end of input, to avoid cryptic error message
1157 * if user didn't end the file with a newline. */
1158 static YY_BUFFER_STATE Eof_newline = 0;
1159
1160 /* The compressed form of an "if" clause is stored here,
1161 * then passed to a mini-parser. */
1162 unsigned char Ifclause_buff[1024];
1163 int If_length; /* how much of Ifclause_buffer is used */
1164 static void add_ifclause P((int token));
1165 static void addnum_ifclause P((int value));
1166 static void addnumstr_ifclause P((char *numtoken));
1167 extern void set_ifclause_buffer P((unsigned char * buffer, int length));
1168 extern int ifparse P((void));
1169 static void bad_input P((char *where));
1170
1171 int yylineno;
1172
1173
1174 static int If_count = 0; /* how many if, ifdef, and ifndef constructs in progress */
1175 static int If_errs; /* to try to deduce missing 'then' */
1176 static int Escapedquotes = 0;
1177 static int Raw_string = NO; /* YES if doing raw string (not expanding
1178 * any non-ASCII into Mup escapes) */
1179
1180 static int get_a_param P((char *macname));
1181 static void skipwhite P((void));
1182 static void to_eol P((void));
1183 static int skip2else P((void));
1184 static int oddbs P((void));
1185 static void embedquotes P((void));
1186 static void xpand_non_ascii P((void));
1187 static void ignore P((void));
1188 #define IF_CLAUSE 1
1189 #define STRING 2
1190
1191
1192 /* Macros after this point can all be overridden by user definitions in
1193 * section 1.
1194 */
1195
1196 #ifndef YY_SKIP_YYWRAP
1197 #ifdef __cplusplus
1198 extern "C" int yywrap YY_PROTO(( void ));
1199 #else
1200 extern int yywrap YY_PROTO(( void ));
1201 #endif
1202 #endif
1203
1204 #ifndef YY_NO_UNPUT
1205 static void yyunput YY_PROTO(( int c, char *buf_ptr ));
1206 #endif
1207
1208 #ifndef yytext_ptr
1209 static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
1210 #endif
1211
1212 #ifdef YY_NEED_STRLEN
1213 static int yy_flex_strlen YY_PROTO(( yyconst char * ));
1214 #endif
1215
1216 #ifndef YY_NO_INPUT
1217 #ifdef __cplusplus
1218 static int yyinput YY_PROTO(( void ));
1219 #else
1220 static int input YY_PROTO(( void ));
1221 #endif
1222 #endif
1223
1224 #if YY_STACK_USED
1225 static int yy_start_stack_ptr = 0;
1226 static int yy_start_stack_depth = 0;
1227 static int *yy_start_stack = 0;
1228 #ifndef YY_NO_PUSH_STATE
1229 static void yy_push_state YY_PROTO(( int new_state ));
1230 #endif
1231 #ifndef YY_NO_POP_STATE
1232 static void yy_pop_state YY_PROTO(( void ));
1233 #endif
1234 #ifndef YY_NO_TOP_STATE
1235 static int yy_top_state YY_PROTO(( void ));
1236 #endif
1237
1238 #else
1239 #define YY_NO_PUSH_STATE 1
1240 #define YY_NO_POP_STATE 1
1241 #define YY_NO_TOP_STATE 1
1242 #endif
1243
1244 #ifdef YY_MALLOC_DECL
1245 YY_MALLOC_DECL
1246 #else
1247 #if __STDC__
1248 #ifndef __cplusplus
1249 #include <stdlib.h>
1250 #endif
1251 #else
1252 /* Just try to get by without declaring the routines. This will fail
1253 * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
1254 * or sizeof(void*) != sizeof(int).
1255 */
1256 #endif
1257 #endif
1258
1259 /* Amount of stuff to slurp up with each read. */
1260 #ifndef YY_READ_BUF_SIZE
1261 #define YY_READ_BUF_SIZE 8192
1262 #endif
1263
1264 /* Copy whatever the last rule matched to the standard output. */
1265
1266 #ifndef ECHO
1267 /* This used to be an fputs(), but since the string might contain NUL's,
1268 * we now use fwrite().
1269 */
1270 #define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
1271 #endif
1272
1273 /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
1274 * is returned in "result".
1275 */
1276 #ifndef YY_INPUT
1277 #define YY_INPUT(buf,result,max_size) \
1278 if ( yy_current_buffer->yy_is_interactive ) \
1279 { \
1280 int c = '*', n; \
1281 for ( n = 0; n < max_size && \
1282 (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
1283 buf[n] = (char) c; \
1284 if ( c == '\n' ) \
1285 buf[n++] = (char) c; \
1286 if ( c == EOF && ferror( yyin ) ) \
1287 YY_FATAL_ERROR( "input in flex scanner failed" ); \
1288 result = n; \
1289 } \
1290 else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
1291 && ferror( yyin ) ) \
1292 YY_FATAL_ERROR( "input in flex scanner failed" );
1293 #endif
1294
1295 /* No semi-colon after return; correct usage is to write "yyterminate();" -
1296 * we don't want an extra ';' after the "return" because that will cause
1297 * some compilers to complain about unreachable statements.
1298 */
1299 #ifndef yyterminate
1300 #define yyterminate() return YY_NULL
1301 #endif
1302
1303 /* Number of entries by which start-condition stack grows. */
1304 #ifndef YY_START_STACK_INCR
1305 #define YY_START_STACK_INCR 25
1306 #endif
1307
1308 /* Report a fatal error. */
1309 #ifndef YY_FATAL_ERROR
1310 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
1311 #endif
1312
1313 /* Default declaration of generated scanner - a define so the user can
1314 * easily add parameters.
1315 */
1316 #ifndef YY_DECL
1317 #define YY_DECL int yylex YY_PROTO(( void ))
1318 #endif
1319
1320 /* Code executed at the beginning of each rule, after yytext and yyleng
1321 * have been set up.
1322 */
1323 #ifndef YY_USER_ACTION
1324 #define YY_USER_ACTION
1325 #endif
1326
1327 /* Code executed at the end of each rule. */
1328 #ifndef YY_BREAK
1329 #define YY_BREAK break;
1330 #endif
1331
1332 #define YY_RULE_SETUP \
1333 YY_USER_ACTION
1334
1335 YY_DECL
1336 {
1337 register yy_state_type yy_current_state;
1338 register char *yy_cp, *yy_bp;
1339 register int yy_act;
1340
1341 #line 91 "lex.l"
1342
1343
1344
1345 if ( yy_init )
1346 {
1347 yy_init = 0;
1348
1349 #ifdef YY_USER_INIT
1350 YY_USER_INIT;
1351 #endif
1352
1353 if ( ! yy_start )
1354 yy_start = 1; /* first start state */
1355
1356 if ( ! yyin )
1357 yyin = stdin;
1358
1359 if ( ! yyout )
1360 yyout = stdout;
1361
1362 if ( ! yy_current_buffer )
1363 yy_current_buffer =
1364 yy_create_buffer( yyin, YY_BUF_SIZE );
1365
1366 yy_load_buffer_state();
1367 }
1368
1369 while ( 1 ) /* loops until end-of-file is reached */
1370 {
1371 yy_cp = yy_c_buf_p;
1372
1373 /* Support of yytext. */
1374 *yy_cp = yy_hold_char;
1375
1376 /* yy_bp points to the position in yy_ch_buf of the start of
1377 * the current run.
1378 */
1379 yy_bp = yy_cp;
1380
1381 yy_current_state = yy_start;
1382 yy_match:
1383 do
1384 {
1385 register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
1386 if ( yy_accept[yy_current_state] )
1387 {
1388 yy_last_accepting_state = yy_current_state;
1389 yy_last_accepting_cpos = yy_cp;
1390 }
1391 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1392 {
1393 yy_current_state = (int) yy_def[yy_current_state];
1394 if ( yy_current_state >= 1176 )
1395 yy_c = yy_meta[(unsigned int) yy_c];
1396 }
1397 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1398 ++yy_cp;
1399 }
1400 while ( yy_base[yy_current_state] != 1454 );
1401
1402 yy_find_action:
1403 yy_act = yy_accept[yy_current_state];
1404 if ( yy_act == 0 )
1405 { /* have to back up */
1406 yy_cp = yy_last_accepting_cpos;
1407 yy_current_state = yy_last_accepting_state;
1408 yy_act = yy_accept[yy_current_state];
1409 }
1410
1411 YY_DO_BEFORE_ACTION;
1412
1413
1414 do_action: /* This label is used only to access EOF actions. */
1415
1416
1417 switch ( yy_act )
1418 { /* beginning of action switch */
1419 case 0: /* must back up */
1420 /* undo the effects of YY_DO_BEFORE_ACTION */
1421 *yy_cp = yy_hold_char;
1422 yy_cp = yy_last_accepting_cpos;
1423 yy_current_state = yy_last_accepting_state;
1424 goto yy_find_action;
1425
1426 case 1:
1427 YY_RULE_SETUP
1428 #line 93 "lex.l"
1429 { yylval.intval = FONT_TR; return(T_FONT); }
1430 YY_BREAK
1431 case 2:
1432 YY_RULE_SETUP
1433 #line 94 "lex.l"
1434 { yylval.intval = FONT_TB; return(T_FONT); }
1435 YY_BREAK
1436 case 3:
1437 YY_RULE_SETUP
1438 #line 95 "lex.l"
1439 { yylval.intval = FONT_TX; return(T_FONT); }
1440 YY_BREAK
1441 case 4:
1442 YY_RULE_SETUP
1443 #line 96 "lex.l"
1444 { yylval.intval = FONT_TI; return(T_FONT); }
1445 YY_BREAK
1446 case 5:
1447 YY_RULE_SETUP
1448 #line 98 "lex.l"
1449 { yylval.intval = BASE_TIMES; return(T_FFAMILY); }
1450 YY_BREAK
1451 case 6:
1452 YY_RULE_SETUP
1453 #line 99 "lex.l"
1454 { yylval.intval = BASE_AVANTGARDE; return(T_FFAMILY); }
1455 YY_BREAK
1456 case 7:
1457 YY_RULE_SETUP
1458 #line 100 "lex.l"
1459 { yylval.intval = BASE_COURIER; return(T_FFAMILY); }
1460 YY_BREAK
1461 case 8:
1462 YY_RULE_SETUP
1463 #line 101 "lex.l"
1464 { yylval.intval = BASE_HELVETICA; return(T_FFAMILY); }
1465 YY_BREAK
1466 case 9:
1467 YY_RULE_SETUP
1468 #line 102 "lex.l"
1469 { yylval.intval = BASE_BOOKMAN; return(T_FFAMILY); }
1470 YY_BREAK
1471 case 10:
1472 YY_RULE_SETUP
1473 #line 103 "lex.l"
1474 { yylval.intval = BASE_NEWCENTURY; return(T_FFAMILY); }
1475 YY_BREAK
1476 case 11:
1477 YY_RULE_SETUP
1478 #line 104 "lex.l"
1479 { yylval.intval = BASE_PALATINO; return(T_FFAMILY); }
1480 YY_BREAK
1481 case 12:
1482 YY_RULE_SETUP
1483 #line 106 "lex.l"
1484 {
1485 /* set up include using filename with quotes stripped */
1486 yytext[yyleng - 1] = '\0';
1487 includefile(strchr(yytext, '"') + 1);
1488 }
1489 YY_BREAK
1490 case 13:
1491 YY_RULE_SETUP
1492 #line 112 "lex.l"
1493 {
1494 yytext[yyleng - 1] = '\0';
1495 parse_font_file(strchr(yytext, '"') + 1);
1496 }
1497 YY_BREAK
1498 case 14:
1499 #line 118 "lex.l"
1500 case 15:
1501 YY_RULE_SETUP
1502 #line 118 "lex.l"
1503 { yylval.intval = DIMINISHED; return(T_XPOS_INT); }
1504 YY_BREAK
1505 case 16:
1506 #line 120 "lex.l"
1507 case 17:
1508 YY_RULE_SETUP
1509 #line 120 "lex.l"
1510 { yylval.intval = AUGMENTED; return(T_XPOS_INT); }
1511 YY_BREAK
1512 case 18:
1513 #line 122 "lex.l"
1514 case 19:
1515 YY_RULE_SETUP
1516 #line 122 "lex.l"
1517 { yylval.intval = PERFECT; return(T_XPOS_INT); }
1518 YY_BREAK
1519 case 20:
1520 #line 124 "lex.l"
1521 case 21:
1522 YY_RULE_SETUP
1523 #line 124 "lex.l"
1524 { yylval.intval = MINOR; return(T_XPOS_INT); }
1525 YY_BREAK
1526 case 22:
1527 #line 126 "lex.l"
1528 case 23:
1529 YY_RULE_SETUP
1530 #line 126 "lex.l"
1531 { yylval.intval = MAJOR; return(T_XPOS_INT); }
1532 YY_BREAK
1533 case 24:
1534 YY_RULE_SETUP
1535 #line 128 "lex.l"
1536 return(T_TITLE);
1537 YY_BREAK
1538 case 25:
1539 YY_RULE_SETUP
1540 #line 130 "lex.l"
1541 return(T_SCORE);
1542 YY_BREAK
1543 case 26:
1544 YY_RULE_SETUP
1545 #line 131 "lex.l"
1546 return(T_STAFF);
1547 YY_BREAK
1548 case 27:
1549 YY_RULE_SETUP
1550 #line 132 "lex.l"
1551 return(T_VOICE);
1552 YY_BREAK
1553 case 28:
1554 YY_RULE_SETUP
1555 #line 133 "lex.l"
1556 { yylval.intval = C_HEADER; return(T_BLOCKHEAD); }
1557 YY_BREAK
1558 case 29:
1559 YY_RULE_SETUP
1560 #line 134 "lex.l"
1561 { yylval.intval = C_FOOTER; return(T_BLOCKHEAD); }
1562 YY_BREAK
1563 case 30:
1564 YY_RULE_SETUP
1565 #line 135 "lex.l"
1566 { yylval.intval = C_HEAD2; return(T_BLOCKHEAD); }
1567 YY_BREAK
1568 case 31:
1569 YY_RULE_SETUP
1570 #line 136 "lex.l"
1571 { yylval.intval = C_FOOT2; return(T_BLOCKHEAD); }
1572 YY_BREAK
1573 case 32:
1574 YY_RULE_SETUP
1575 #line 137 "lex.l"
1576 { yylval.intval = C_TOP; return(T_BLOCKHEAD); }
1577 YY_BREAK
1578 case 33:
1579 YY_RULE_SETUP
1580 #line 138 "lex.l"
1581 { yylval.intval = C_BOT; return(T_BLOCKHEAD); }
1582 YY_BREAK
1583 case 34:
1584 YY_RULE_SETUP
1585 #line 139 "lex.l"
1586 { yylval.intval = C_TOP2; return(T_BLOCKHEAD); }
1587 YY_BREAK
1588 case 35:
1589 YY_RULE_SETUP
1590 #line 140 "lex.l"
1591 { yylval.intval = C_BOT2; return(T_BLOCKHEAD); }
1592 YY_BREAK
1593 case 36:
1594 YY_RULE_SETUP
1595 #line 141 "lex.l"
1596 { yylval.intval = C_BLOCK; return(T_BLOCKHEAD); }
1597 YY_BREAK
1598 case 37:
1599 YY_RULE_SETUP
1600 #line 142 "lex.l"
1601 return(T_GRIDS);
1602 YY_BREAK
1603 case 38:
1604 YY_RULE_SETUP
1605 #line 143 "lex.l"
1606 return(T_MUSIC);
1607 YY_BREAK
1608 case 39:
1609 YY_RULE_SETUP
1610 #line 144 "lex.l"
1611 return(T_HEADSHAPES);
1612 YY_BREAK
1613 case 40:
1614 YY_RULE_SETUP
1615 #line 146 "lex.l"
1616 return(T_NUMBER);
1617 YY_BREAK
1618 case 41:
1619 YY_RULE_SETUP
1620 #line 148 "lex.l"
1621 return(T_EQUAL);
1622 YY_BREAK
1623 case 42:
1624 YY_RULE_SETUP
1625 #line 149 "lex.l"
1626 return(T_SEMICOLON);
1627 YY_BREAK
1628 case 43:
1629 #line 151 "lex.l"
1630 case 44:
1631 #line 152 "lex.l"
1632 case 45:
1633 YY_RULE_SETUP
1634 #line 152 "lex.l"
1635 return(T_NEWLINE);
1636 YY_BREAK
1637 case 46:
1638 YY_RULE_SETUP
1639 #line 153 "lex.l"
1640 return(T_COLON);
1641 YY_BREAK
1642 case 47:
1643 YY_RULE_SETUP
1644 #line 154 "lex.l"
1645 return(T_COMMA);
1646 YY_BREAK
1647 case 48:
1648 YY_RULE_SETUP
1649 #line 155 "lex.l"
1650 return(T_LBRACKET);
1651 YY_BREAK
1652 case 49:
1653 YY_RULE_SETUP
1654 #line 156 "lex.l"
1655 return(T_RBRACKET);
1656 YY_BREAK
1657 case 50:
1658 YY_RULE_SETUP
1659 #line 157 "lex.l"
1660 return(T_LBRACE);
1661 YY_BREAK
1662 case 51:
1663 YY_RULE_SETUP
1664 #line 158 "lex.l"
1665 return(T_RBRACE);
1666 YY_BREAK
1667 case 52:
1668 YY_RULE_SETUP
1669 #line 159 "lex.l"
1670 return(T_LPAREN);
1671 YY_BREAK
1672 case 53:
1673 YY_RULE_SETUP
1674 #line 160 "lex.l"
1675 return(T_RPAREN);
1676 YY_BREAK
1677 case 54:
1678 YY_RULE_SETUP
1679 #line 161 "lex.l"
1680 return(T_EXCLAM);
1681 YY_BREAK
1682 case 55:
1683 YY_RULE_SETUP
1684 #line 163 "lex.l"
1685 { BEGIN STRING; yymore(); }
1686 YY_BREAK
1687 case 56:
1688 YY_RULE_SETUP
1689 #line 164 "lex.l"
1690 {
1691 /* string: handle embedded backslashed quotes */
1692 if (yytext[yyleng-2] == '\\' && oddbs() == YES) {
1693 Escapedquotes++;
1694 yymore();
1695 }
1696 else {
1697 embedquotes();
1698 BEGIN 0;
1699 xpand_non_ascii();
1700 if (yyleng > YYLMAX) {
1701 l_ufatal(Curr_filename, yylineno,
1702 "text string too long");
1703 }
1704 return(T_STRING);
1705 }
1706 }
1707 YY_BREAK
1708 case 57:
1709 YY_RULE_SETUP
1710 #line 182 "lex.l"
1711 return(T_DASH);
1712 YY_BREAK
1713 case 58:
1714 YY_RULE_SETUP
1715 #line 183 "lex.l"
1716 return(T_PLUS);
1717 YY_BREAK
1718 case 59:
1719 YY_RULE_SETUP
1720 #line 185 "lex.l"
1721 return(T_CUE);
1722 YY_BREAK
1723 case 60:
1724 YY_RULE_SETUP
1725 #line 186 "lex.l"
1726 return(T_GRACE);
1727 YY_BREAK
1728 case 61:
1729 YY_RULE_SETUP
1730 #line 187 "lex.l"
1731 return(T_XNOTE);
1732 YY_BREAK
1733 case 62:
1734 YY_RULE_SETUP
1735 #line 188 "lex.l"
1736 return(T_DIAM);
1737 YY_BREAK
1738 case 63:
1739 YY_RULE_SETUP
1740 #line 189 "lex.l"
1741 return(T_HO);
1742 YY_BREAK
1743 case 64:
1744 YY_RULE_SETUP
1745 #line 190 "lex.l"
1746 return(T_HS);
1747 YY_BREAK
1748 case 65:
1749 YY_RULE_SETUP
1750 #line 191 "lex.l"
1751 { yylval.intval = L_NORMAL; return(T_TIE); }
1752 YY_BREAK
1753 case 66:
1754 YY_RULE_SETUP
1755 #line 192 "lex.l"
1756 { yylval.intval = L_DOTTED; return(T_TIE); }
1757 YY_BREAK
1758 case 67:
1759 YY_RULE_SETUP
1760 #line 193 "lex.l"
1761 { yylval.intval = L_DASHED; return(T_TIE); }
1762 YY_BREAK
1763 case 68:
1764 YY_RULE_SETUP
1765 #line 194 "lex.l"
1766 { yylval.intval = L_NORMAL; return(T_SLUR); }
1767 YY_BREAK
1768 case 69:
1769 YY_RULE_SETUP
1770 #line 195 "lex.l"
1771 { yylval.intval = L_DOTTED; return(T_SLUR); }
1772 YY_BREAK
1773 case 70:
1774 YY_RULE_SETUP
1775 #line 196 "lex.l"
1776 { yylval.intval = L_DASHED; return(T_SLUR); }
1777 YY_BREAK
1778 case 71:
1779 YY_RULE_SETUP
1780 #line 197 "lex.l"
1781 return(T_WITH);
1782 YY_BREAK
1783 case 72:
1784 YY_RULE_SETUP
1785 #line 198 "lex.l"
1786 { yylval.intval = PL_ABOVE; return(T_PLACE); }
1787 YY_BREAK
1788 case 73:
1789 YY_RULE_SETUP
1790 #line 199 "lex.l"
1791 { yylval.intval = PL_BELOW; return(T_PLACE); }
1792 YY_BREAK
1793 case 74:
1794 YY_RULE_SETUP
1795 #line 200 "lex.l"
1796 { yylval.intval = PL_BETWEEN; return(T_PLACE); }
1797 YY_BREAK
1798 case 75:
1799 YY_RULE_SETUP
1800 #line 201 "lex.l"
1801 return(T_ALL);
1802 YY_BREAK
1803 case 76:
1804 YY_RULE_SETUP
1805 #line 202 "lex.l"
1806 return(T_UP);
1807 YY_BREAK
1808 case 77:
1809 YY_RULE_SETUP
1810 #line 203 "lex.l"
1811 return(T_DOWN);
1812 YY_BREAK
1813 case 78:
1814 YY_RULE_SETUP
1815 #line 204 "lex.l"
1816 return(T_LEN);
1817 YY_BREAK
1818 case 79:
1819 YY_RULE_SETUP
1820 #line 205 "lex.l"
1821 return(T_SLASHMARK);
1822 YY_BREAK
1823 case 80:
1824 YY_RULE_SETUP
1825 #line 206 "lex.l"
1826 return(T_ALT);
1827 YY_BREAK
1828 case 81:
1829 YY_RULE_SETUP
1830 #line 207 "lex.l"
1831 return(T_BM);
1832 YY_BREAK
1833 case 82:
1834 YY_RULE_SETUP
1835 #line 208 "lex.l"
1836 return(T_ESBM);
1837 YY_BREAK
1838 case 83:
1839 YY_RULE_SETUP
1840 #line 209 "lex.l"
1841 return(T_EBM);
1842 YY_BREAK
1843 case 84:
1844 YY_RULE_SETUP
1845 #line 210 "lex.l"
1846 return(T_SLOPE);
1847 YY_BREAK
1848 case 85:
1849 YY_RULE_SETUP
1850 #line 211 "lex.l"
1851 { yylval.intval = PAD; return(T_PAD); }
1852 YY_BREAK
1853 case 86:
1854 YY_RULE_SETUP
1855 #line 213 "lex.l"
1856 return(T_HAT);
1857 YY_BREAK
1858 case 87:
1859 YY_RULE_SETUP
1860 #line 214 "lex.l"
1861 { yylval.intval = L_NORMAL; return(T_TILDE); }
1862 YY_BREAK
1863 case 88:
1864 YY_RULE_SETUP
1865 #line 215 "lex.l"
1866 { yylval.intval = L_DOTTED; return(T_TILDE); }
1867 YY_BREAK
1868 case 89:
1869 YY_RULE_SETUP
1870 #line 216 "lex.l"
1871 { yylval.intval = L_DASHED; return(T_TILDE); }
1872 YY_BREAK
1873 case 90:
1874 YY_RULE_SETUP
1875 #line 217 "lex.l"
1876 return(T_QUESTION);
1877 YY_BREAK
1878 case 91:
1879 YY_RULE_SETUP
1880 #line 219 "lex.l"
1881 return(T_DOT);
1882 YY_BREAK
1883 case 92:
1884 YY_RULE_SETUP
1885 #line 220 "lex.l"
1886 { yylval.intval = 2; return(T_MULTIWHOLE); }
1887 YY_BREAK
1888 case 93:
1889 YY_RULE_SETUP
1890 #line 221 "lex.l"
1891 { yylval.intval = 4; return(T_MULTIWHOLE); }
1892 YY_BREAK
1893 case 94:
1894 YY_RULE_SETUP
1895 #line 223 "lex.l"
1896 return(T_LET_M);
1897 YY_BREAK
1898 case 95:
1899 YY_RULE_SETUP
1900 #line 224 "lex.l"
1901 return(T_LET_R);
1902 YY_BREAK
1903 case 96:
1904 YY_RULE_SETUP
1905 #line 225 "lex.l"
1906 return(T_LET_S);
1907 YY_BREAK
1908 case 97:
1909 YY_RULE_SETUP
1910 #line 226 "lex.l"
1911 return(T_LET_U);
1912 YY_BREAK
1913 case 98:
1914 YY_RULE_SETUP
1915 #line 227 "lex.l"
1916 return(T_PITCH);
1917 YY_BREAK
1918 case 99:
1919 YY_RULE_SETUP
1920 #line 228 "lex.l"
1921 return(T_SHARP);
1922 YY_BREAK
1923 case 100:
1924 YY_RULE_SETUP
1925 #line 229 "lex.l"
1926 return(T_AMPERSAND);
1927 YY_BREAK
1928 case 101:
1929 YY_RULE_SETUP
1930 #line 230 "lex.l"
1931 return(T_LET_N);
1932 YY_BREAK
1933 case 102:
1934 YY_RULE_SETUP
1935 #line 231 "lex.l"
1936 return(T_LET_X);
1937 YY_BREAK
1938 case 103:
1939 YY_RULE_SETUP
1940 #line 232 "lex.l"
1941 return(T_LETTER); /* all letters not used for something special */
1942 YY_BREAK
1943 case 104:
1944 YY_RULE_SETUP
1945 #line 233 "lex.l"
1946 return(T_RPT);
1947 YY_BREAK
1948 case 105:
1949 YY_RULE_SETUP
1950 #line 234 "lex.l"
1951 return(T_LVAR); /* multi-character location variable names */
1952 YY_BREAK
1953 case 106:
1954 YY_RULE_SETUP
1955 #line 235 "lex.l"
1956 return(T_DBLFLAT);
1957 YY_BREAK
1958 case 107:
1959 YY_RULE_SETUP
1960 #line 237 "lex.l"
1961 return(T_LYRICS);
1962 YY_BREAK
1963 case 108:
1964 YY_RULE_SETUP
1965 #line 239 "lex.l"
1966 { yylval.intval = NO; return(T_SCOREFEED); }
1967 YY_BREAK
1968 case 109:
1969 YY_RULE_SETUP
1970 #line 240 "lex.l"
1971 { yylval.intval = YES; return(T_SCOREFEED); }
1972 YY_BREAK
1973 case 110:
1974 YY_RULE_SETUP
1975 #line 242 "lex.l"
1976 return(T_MULTIREST);
1977 YY_BREAK
1978 case 111:
1979 YY_RULE_SETUP
1980 #line 244 "lex.l"
1981 { yylval.intval = SINGLEBAR; return(T_BARTYPE); }
1982 YY_BREAK
1983 case 112:
1984 YY_RULE_SETUP
1985 #line 245 "lex.l"
1986 { yylval.intval = DOUBLEBAR; return(T_BARTYPE); }
1987 YY_BREAK
1988 case 113:
1989 YY_RULE_SETUP
1990 #line 246 "lex.l"
1991 { yylval.intval = REPEATSTART; return(T_BARTYPE); }
1992 YY_BREAK
1993 case 114:
1994 YY_RULE_SETUP
1995 #line 247 "lex.l"
1996 { yylval.intval = REPEATEND; return(T_BARTYPE); }
1997 YY_BREAK
1998 case 115:
1999 YY_RULE_SETUP
2000 #line 248 "lex.l"
2001 { yylval.intval = REPEATBOTH; return(T_BARTYPE); }
2002 YY_BREAK
2003 case 116:
2004 YY_RULE_SETUP
2005 #line 249 "lex.l"
2006 { yylval.intval = INVISBAR; return(T_BARTYPE); }
2007 YY_BREAK
2008 case 117:
2009 YY_RULE_SETUP
2010 #line 250 "lex.l"
2011 { yylval.intval = ENDBAR; return(T_BARTYPE); }
2012 YY_BREAK
2013 case 118:
2014 YY_RULE_SETUP
2015 #line 251 "lex.l"
2016 { yylval.intval = RESTART; return(T_BARTYPE); }
2017 YY_BREAK
2018 case 119:
2019 #line 254 "lex.l"
2020 case 120:
2021 YY_RULE_SETUP
2022 #line 254 "lex.l"
2023 return(T_REHEARSAL);
2024 YY_BREAK
2025 case 121:
2026 YY_RULE_SETUP
2027 #line 255 "lex.l"
2028 return(T_NUM);
2029 YY_BREAK
2030 case 122:
2031 YY_RULE_SETUP
2032 #line 256 "lex.l"
2033 return(T_LET);
2034 YY_BREAK
2035 case 123:
2036 YY_RULE_SETUP
2037 #line 257 "lex.l"
2038 return(T_MNUM);
2039 YY_BREAK
2040 case 124:
2041 YY_RULE_SETUP
2042 #line 259 "lex.l"
2043 return(T_ENDING);
2044 YY_BREAK
2045 case 125:
2046 YY_RULE_SETUP
2047 #line 260 "lex.l"
2048 return(T_ENDENDING);
2049 YY_BREAK
2050 case 126:
2051 YY_RULE_SETUP
2052 #line 262 "lex.l"
2053 return(T_HIDECHANGES);
2054 YY_BREAK
2055 case 127:
2056 YY_RULE_SETUP
2057 #line 264 "lex.l"
2058 { yylval.intval = L_WIDE; return(T_LINETYPE); }
2059 YY_BREAK
2060 case 128:
2061 YY_RULE_SETUP
2062 #line 265 "lex.l"
2063 { yylval.intval = L_MEDIUM; return(T_LINETYPE); }
2064 YY_BREAK
2065 case 129:
2066 YY_RULE_SETUP
2067 #line 266 "lex.l"
2068 { yylval.intval = L_WAVY; return(T_LINETYPE); }
2069 YY_BREAK
2070 case 130:
2071 YY_RULE_SETUP
2072 #line 267 "lex.l"
2073 { yylval.intval = L_DOTTED; return(T_LINETYPE); }
2074 YY_BREAK
2075 case 131:
2076 YY_RULE_SETUP
2077 #line 268 "lex.l"
2078 { yylval.intval = L_DASHED; return(T_LINETYPE); }
2079 YY_BREAK
2080 case 132:
2081 YY_RULE_SETUP
2082 #line 270 "lex.l"
2083 return(T_LINE);
2084 YY_BREAK
2085 case 133:
2086 YY_RULE_SETUP
2087 #line 271 "lex.l"
2088 return(T_TO);
2089 YY_BREAK
2090 case 134:
2091 YY_RULE_SETUP
2092 #line 272 "lex.l"
2093 return(T_CURVE);
2094 YY_BREAK
2095 case 135:
2096 YY_RULE_SETUP
2097 #line 273 "lex.l"
2098 return(T_BULGE);
2099 YY_BREAK
2100 case 136:
2101 YY_RULE_SETUP
2102 #line 275 "lex.l"
2103 { yylval.intval = J_LEFT; return(T_PRINTTYPE); }
2104 YY_BREAK
2105 case 137:
2106 YY_RULE_SETUP
2107 #line 276 "lex.l"
2108 { yylval.intval = J_RIGHT; return(T_PRINTTYPE); }
2109 YY_BREAK
2110 case 138:
2111 YY_RULE_SETUP
2112 #line 277 "lex.l"
2113 { yylval.intval = J_CENTER; return(T_PRINTTYPE); }
2114 YY_BREAK
2115 case 139:
2116 YY_RULE_SETUP
2117 #line 278 "lex.l"
2118 { yylval.intval = J_NONE; return(T_PRINTTYPE); }
2119 YY_BREAK
2120 case 140:
2121 YY_RULE_SETUP
2122 #line 279 "lex.l"
2123 { return(T_POSTSCRIPT); }
2124 YY_BREAK
2125 case 141:
2126 YY_RULE_SETUP
2127 #line 280 "lex.l"
2128 { yylval.intval = J_RAGPARA; return(T_PARATYPE); }
2129 YY_BREAK
2130 case 142:
2131 YY_RULE_SETUP
2132 #line 281 "lex.l"
2133 { yylval.intval = J_JUSTPARA; return(T_PARATYPE); }
2134 YY_BREAK
2135 case 143:
2136 YY_RULE_SETUP
2137 #line 282 "lex.l"
2138 return(T_PARAGRAPH);
2139 YY_BREAK
2140 case 144:
2141 YY_RULE_SETUP
2142 #line 283 "lex.l"
2143 return(T_NL);
2144 YY_BREAK
2145 case 145:
2146 YY_RULE_SETUP
2147 #line 285 "lex.l"
2148 return(T_SLASH);
2149 YY_BREAK
2150 case 146:
2151 YY_RULE_SETUP
2152 #line 286 "lex.l"
2153 return(T_CUT);
2154 YY_BREAK
2155 case 147:
2156 YY_RULE_SETUP
2157 #line 287 "lex.l"
2158 return(T_COMMON);
2159 YY_BREAK
2160 case 148:
2161 YY_RULE_SETUP
2162 #line 289 "lex.l"
2163 { yylval.intval = NUMSTAFF; return(T_NUMVAR); }
2164 YY_BREAK
2165 case 149:
2166 YY_RULE_SETUP
2167 #line 290 "lex.l"
2168 { yylval.intval = VSCHEME; return(T_VVAR); }
2169 YY_BREAK
2170 case 150:
2171 YY_RULE_SETUP
2172 #line 291 "lex.l"
2173 { yylval.intval = VCOMBINE; return(T_VCOMBINE); }
2174 YY_BREAK
2175 case 151:
2176 YY_RULE_SETUP
2177 #line 292 "lex.l"
2178 { yylval.intval = VC_NOOVERLAP; return(T_VCOMBVAL); }
2179 YY_BREAK
2180 case 152:
2181 YY_RULE_SETUP
2182 #line 293 "lex.l"
2183 { yylval.intval = VC_SHAREONE; return(T_VCOMBVAL); }
2184 YY_BREAK
2185 case 153:
2186 YY_RULE_SETUP
2187 #line 294 "lex.l"
2188 { yylval.intval = VC_OVERLAP; return(T_VCOMBVAL); }
2189 YY_BREAK
2190 case 154:
2191 YY_RULE_SETUP
2192 #line 295 "lex.l"
2193 { yylval.intval = DEFOCT; return(T_NUMVAR); }
2194 YY_BREAK
2195 case 155:
2196 YY_RULE_SETUP
2197 #line 296 "lex.l"
2198 { yylval.intval = LYRICSSIZE; return(T_NUMVAR); }
2199 YY_BREAK
2200 case 156:
2201 YY_RULE_SETUP
2202 #line 297 "lex.l"
2203 { yylval.intval = SYLPOSITION; return(T_NUMVAR); }
2204 YY_BREAK
2205 case 157:
2206 YY_RULE_SETUP
2207 #line 298 "lex.l"
2208 { yylval.intval = SIZE; return(T_NUMVAR); }
2209 YY_BREAK
2210 case 158:
2211 YY_RULE_SETUP
2212 #line 299 "lex.l"
2213 { yylval.intval = MINSTSEP; return(T_NUMVAR); }
2214 YY_BREAK
2215 case 159:
2216 YY_RULE_SETUP
2217 #line 300 "lex.l"
2218 { yylval.intval = MINSCPAD; return(T_SCOREPAD); }
2219 YY_BREAK
2220 case 160:
2221 YY_RULE_SETUP
2222 #line 301 "lex.l"
2223 { yylval.intval = STAFFPAD; return(T_NUMVAR); }
2224 YY_BREAK
2225 case 161:
2226 YY_RULE_SETUP
2227 #line 302 "lex.l"
2228 { yylval.intval = CHORDDIST; return(T_NUMVAR); }
2229 YY_BREAK
2230 case 162:
2231 YY_RULE_SETUP
2232 #line 303 "lex.l"
2233 { yylval.intval = DIST; return(T_NUMVAR); }
2234 YY_BREAK
2235 case 163:
2236 YY_RULE_SETUP
2237 #line 304 "lex.l"
2238 { yylval.intval = DYNDIST; return(T_NUMVAR); }
2239 YY_BREAK
2240 case 164:
2241 YY_RULE_SETUP
2242 #line 305 "lex.l"
2243 {
2244 l_yyerror(Curr_filename, yylineno,
2245 "'crescdist' has been renamed 'dyndist'");
2246 yylval.intval = DYNDIST;
2247 return(T_NUMVAR);
2248 }
2249 YY_BREAK
2250 case 165:
2251 YY_RULE_SETUP
2252 #line 311 "lex.l"
2253 { yylval.intval = DIVISION; return(T_NUMVAR); }
2254 YY_BREAK
2255 case 166:
2256 YY_RULE_SETUP
2257 #line 312 "lex.l"
2258 { yylval.intval = RELEASE; return(T_NUMVAR); }
2259 YY_BREAK
2260 case 167:
2261 YY_RULE_SETUP
2262 #line 313 "lex.l"
2263 { yylval.intval = PANELSPERPAGE; return(T_NUMVAR); }
2264 YY_BREAK
2265 case 168:
2266 YY_RULE_SETUP
2267 #line 314 "lex.l"
2268 { yylval.intval = GRIDFRET; return(T_NUMVAR); }
2269 YY_BREAK
2270 case 169:
2271 YY_RULE_SETUP
2272 #line 315 "lex.l"
2273 { yylval.intval = RESTCOMBINE; return(T_NUMVAR); }
2274 YY_BREAK
2275 case 170:
2276 YY_RULE_SETUP
2277 #line 316 "lex.l"
2278 { yylval.intval = FIRSTPAGE; return(T_NUMVAR); }
2279 YY_BREAK
2280 case 171:
2281 YY_RULE_SETUP
2282 #line 317 "lex.l"
2283 { yylval.intval = MINSCSEP; return(T_SCORESEP); }
2284 YY_BREAK
2285 case 172:
2286 YY_RULE_SETUP
2287 #line 318 "lex.l"
2288 { yylval.intval = STAFFLINES; return(T_STAFFLINES); }
2289 YY_BREAK
2290 case 173:
2291 YY_RULE_SETUP
2292 #line 319 "lex.l"
2293 { yylval.intval = ONTHELINE; return(T_YESNOVAR); }
2294 YY_BREAK
2295 case 174:
2296 YY_RULE_SETUP
2297 #line 320 "lex.l"
2298 { yylval.intval = WARN; return(T_YESNOVAR); }
2299 YY_BREAK
2300 case 175:
2301 YY_RULE_SETUP
2302 #line 321 "lex.l"
2303 { yylval.intval = NUMBERMRPT; return(T_YESNOVAR); }
2304 YY_BREAK
2305 case 176:
2306 YY_RULE_SETUP
2307 #line 322 "lex.l"
2308 { yylval.intval = PRINTMULTNUM; return(T_YESNOVAR); }
2309 YY_BREAK
2310 case 177:
2311 YY_RULE_SETUP
2312 #line 323 "lex.l"
2313 { yylval.intval = RESTSYMMULT; return(T_YESNOVAR); }
2314 YY_BREAK
2315 case 178:
2316 YY_RULE_SETUP
2317 #line 324 "lex.l"
2318 { yylval.intval = GRIDSWHEREUSED; return(T_YESNOVAR); }
2319 YY_BREAK
2320 case 179:
2321 YY_RULE_SETUP
2322 #line 325 "lex.l"
2323 { yylval.intval = GRIDSATEND; return(T_YESNOVAR); }
2324 YY_BREAK
2325 case 180:
2326 YY_RULE_SETUP
2327 #line 326 "lex.l"
2328 return(T_TAB);
2329 YY_BREAK
2330 case 181:
2331 YY_RULE_SETUP
2332 #line 327 "lex.l"
2333 { yylval.intval = TABWHITEBOX; return(T_YESNOVAR); }
2334 YY_BREAK
2335 case 182:
2336 YY_RULE_SETUP
2337 #line 328 "lex.l"
2338 { yylval.intval = TIMEUNIT; return(T_TIMEUNIT); }
2339 YY_BREAK
2340 case 183:
2341 YY_RULE_SETUP
2342 #line 329 "lex.l"
2343 { yylval.intval = SWINGUNIT; return(T_SWINGUNIT); }
2344 YY_BREAK
2345 case 184:
2346 YY_RULE_SETUP
2347 #line 330 "lex.l"
2348 { yylval.intval = TOPMARGIN; return(T_FNUMVAR); }
2349 YY_BREAK
2350 case 185:
2351 YY_RULE_SETUP
2352 #line 331 "lex.l"
2353 { yylval.intval = BOTMARGIN; return(T_FNUMVAR); }
2354 YY_BREAK
2355 case 186:
2356 YY_RULE_SETUP
2357 #line 332 "lex.l"
2358 { yylval.intval = BOTMARGIN; return(T_FNUMVAR); }
2359 YY_BREAK
2360 case 187:
2361 YY_RULE_SETUP
2362 #line 333 "lex.l"
2363 { yylval.intval = LEFTMARGIN; return(T_FNUMVAR); }
2364 YY_BREAK
2365 case 188:
2366 YY_RULE_SETUP
2367 #line 334 "lex.l"
2368 { yylval.intval = RIGHTMARGIN; return(T_FNUMVAR); }
2369 YY_BREAK
2370 case 189:
2371 YY_RULE_SETUP
2372 #line 335 "lex.l"
2373 { yylval.intval = PACKFACT; return(T_FNUMVAR); }
2374 YY_BREAK
2375 case 190:
2376 YY_RULE_SETUP
2377 #line 336 "lex.l"
2378 { yylval.intval = PACKEXP; return(T_FNUMVAR); }
2379 YY_BREAK
2380 case 191:
2381 YY_RULE_SETUP
2382 #line 337 "lex.l"
2383 { yylval.intval = STAFFSCALE; return(T_FNUMVAR); }
2384 YY_BREAK
2385 case 192:
2386 YY_RULE_SETUP
2387 #line 338 "lex.l"
2388 { yylval.intval = GRIDSCALE; return(T_FNUMVAR); }
2389 YY_BREAK
2390 case 193:
2391 YY_RULE_SETUP
2392 #line 339 "lex.l"
2393 { yylval.intval = SCALE_FACTOR; return(T_FNUMVAR); }
2394 YY_BREAK
2395 case 194:
2396 YY_RULE_SETUP
2397 #line 340 "lex.l"
2398 { yylval.intval = STEMLEN; return(T_FNUMVAR); }
2399 YY_BREAK
2400 case 195:
2401 YY_RULE_SETUP
2402 #line 341 "lex.l"
2403 { yylval.intval = STEMSHORTEN; return(T_FNUMVAR); }
2404 YY_BREAK
2405 case 196:
2406 YY_RULE_SETUP
2407 #line 342 "lex.l"
2408 { yylval.intval = BEAMSLOPE; return(T_2FNUMVAR); }
2409 YY_BREAK
2410 case 197:
2411 YY_RULE_SETUP
2412 #line 343 "lex.l"
2413 { yylval.intval = TRANSPOSITION; return(T_TRANSPOSE); }
2414 YY_BREAK
2415 case 198:
2416 YY_RULE_SETUP
2417 #line 344 "lex.l"
2418 { yylval.intval = ADDTRANSPOSITION; return(T_TRANSPOSE); }
2419 YY_BREAK
2420 case 199:
2421 YY_RULE_SETUP
2422 #line 345 "lex.l"
2423 { yylval.intval = LYRICSALIGN; return(T_FNUMVAR); }
2424 YY_BREAK
2425 case 200:
2426 YY_RULE_SETUP
2427 #line 346 "lex.l"
2428 { yylval.intval = PAGEHEIGHT; return(T_FNUMVAR); }
2429 YY_BREAK
2430 case 201:
2431 YY_RULE_SETUP
2432 #line 347 "lex.l"
2433 { yylval.intval = PAGEWIDTH; return(T_FNUMVAR); }
2434 YY_BREAK
2435 case 202:
2436 YY_RULE_SETUP
2437 #line 348 "lex.l"
2438 { return(T_PSVAR); }
2439 YY_BREAK
2440 case 203:
2441 YY_RULE_SETUP
2442 #line 349 "lex.l"
2443 { yylval.intval = PS_LETTER; return(T_PAGESIZE); }
2444 YY_BREAK
2445 case 204:
2446 YY_RULE_SETUP
2447 #line 350 "lex.l"
2448 { yylval.intval = PS_LEGAL; return(T_PAGESIZE); }
2449 YY_BREAK
2450 case 205:
2451 YY_RULE_SETUP
2452 #line 351 "lex.l"
2453 { yylval.intval = PS_FLSA; return(T_PAGESIZE); }
2454 YY_BREAK
2455 case 206:
2456 YY_RULE_SETUP
2457 #line 352 "lex.l"
2458 { yylval.intval = PS_HALFLETTER; return(T_PAGESIZE); }
2459 YY_BREAK
2460 case 207:
2461 YY_RULE_SETUP
2462 #line 353 "lex.l"
2463 { yylval.intval = O_PORTRAIT; return(T_ORIENTATION); }
2464 YY_BREAK
2465 case 208:
2466 YY_RULE_SETUP
2467 #line 354 "lex.l"
2468 { yylval.intval = O_LANDSCAPE; return(T_ORIENTATION); }
2469 YY_BREAK
2470 case 209:
2471 YY_RULE_SETUP
2472 #line 355 "lex.l"
2473 { yylval.intval = UNITS; return(T_UNITS); }
2474 YY_BREAK
2475 case 210:
2476 YY_RULE_SETUP
2477 #line 356 "lex.l"
2478 { yylval.intval = CM; return(T_UNITTYPE); }
2479 YY_BREAK
2480 case 211:
2481 YY_RULE_SETUP
2482 #line 357 "lex.l"
2483 { yylval.intval = INCHES; return(T_UNITTYPE); }
2484 YY_BREAK
2485 case 212:
2486 YY_RULE_SETUP
2487 #line 359 "lex.l"
2488 { yylval.intval = ENDINGSTYLE; return(T_ENDSTYLE); }
2489 YY_BREAK
2490 case 213:
2491 YY_RULE_SETUP
2492 #line 360 "lex.l"
2493 { yylval.intval = REHSTYLE; return(T_REH_STYLE); }
2494 YY_BREAK
2495 case 214:
2496 YY_RULE_SETUP
2497 #line 361 "lex.l"
2498 { yylval.intval = RS_BOXED; return(T_REHTYPE); }
2499 YY_BREAK
2500 case 215:
2501 YY_RULE_SETUP
2502 #line 362 "lex.l"
2503 { yylval.intval = RS_CIRCLED; return(T_REHTYPE); }
2504 YY_BREAK
2505 case 216:
2506 YY_RULE_SETUP
2507 #line 363 "lex.l"
2508 { yylval.intval = RS_PLAIN; return(T_REHTYPE); }
2509 YY_BREAK
2510 case 217:
2511 YY_RULE_SETUP
2512 #line 364 "lex.l"
2513 { yylval.intval = PEDSTYLE; return(T_PEDSTYLE); }
2514 YY_BREAK
2515 case 218:
2516 YY_RULE_SETUP
2517 #line 365 "lex.l"
2518 return(T_PEDSTAR);
2519 YY_BREAK
2520 case 219:
2521 YY_RULE_SETUP
2522 #line 366 "lex.l"
2523 { yylval.intval = ENDING_BARRED; return(T_ENDTYPE); }
2524 YY_BREAK
2525 case 220:
2526 YY_RULE_SETUP
2527 #line 367 "lex.l"
2528 { yylval.intval = ENDING_GROUPED; return(T_ENDTYPE); }
2529 YY_BREAK
2530 case 221:
2531 YY_RULE_SETUP
2532 #line 369 "lex.l"
2533 { yylval.intval = BRACELIST; return(T_RANGELISTVAR); }
2534 YY_BREAK
2535 case 222:
2536 YY_RULE_SETUP
2537 #line 370 "lex.l"
2538 { yylval.intval = BRACKLIST; return(T_RANGELISTVAR); }
2539 YY_BREAK
2540 case 223:
2541 YY_RULE_SETUP
2542 #line 371 "lex.l"
2543 { yylval.intval = BARSTLIST; return(T_BARSTLISTVAR); }
2544 YY_BREAK
2545 case 224:
2546 YY_RULE_SETUP
2547 #line 372 "lex.l"
2548 { yylval.intval = PL_ABOVE; return(T_ORDER); }
2549 YY_BREAK
2550 case 225:
2551 YY_RULE_SETUP
2552 #line 373 "lex.l"
2553 { yylval.intval = PL_BELOW; return(T_ORDER); }
2554 YY_BREAK
2555 case 226:
2556 YY_RULE_SETUP
2557 #line 374 "lex.l"
2558 { yylval.intval = PL_BETWEEN; return(T_ORDER); }
2559 YY_BREAK
2560 case 227:
2561 YY_RULE_SETUP
2562 #line 375 "lex.l"
2563 return(T_OTHERTEXT);
2564 YY_BREAK
2565 case 228:
2566 YY_RULE_SETUP
2567 #line 376 "lex.l"
2568 { yylval.intval = SHARPS; return(T_KEY); }
2569 YY_BREAK
2570 case 229:
2571 YY_RULE_SETUP
2572 #line 377 "lex.l"
2573 { yylval.intval = TIME; return(T_TIME); }
2574 YY_BREAK
2575 case 230:
2576 YY_RULE_SETUP
2577 #line 378 "lex.l"
2578 { yylval.intval = BEAMSTLIST; return(T_RATNUMLISTVAR); }
2579 YY_BREAK
2580 case 231:
2581 YY_RULE_SETUP
2582 #line 379 "lex.l"
2583 { yylval.intval = VISIBLE; return(T_VISVAR); }
2584 YY_BREAK
2585 case 232:
2586 YY_RULE_SETUP
2587 #line 380 "lex.l"
2588 { return(T_WHEREUSED); }
2589 YY_BREAK
2590 case 233:
2591 YY_RULE_SETUP
2592 #line 381 "lex.l"
2593 { yylval.intval = MEASNUM; return(T_YESNOVAR); }
2594 YY_BREAK
2595 case 234:
2596 YY_RULE_SETUP
2597 #line 382 "lex.l"
2598 { yylval.intval = CANCELKEY; return(T_YESNOVAR); }
2599 YY_BREAK
2600 case 235:
2601 YY_RULE_SETUP
2602 #line 383 "lex.l"
2603 { yylval.intval = LABEL; return(T_STRVAR); }
2604 YY_BREAK
2605 case 236:
2606 YY_RULE_SETUP
2607 #line 384 "lex.l"
2608 { yylval.intval = LABEL2; return(T_STRVAR); }
2609 YY_BREAK
2610 case 237:
2611 YY_RULE_SETUP
2612 #line 385 "lex.l"
2613 { yylval.intval = NOTEHEADS; return(T_STRVAR); }
2614 YY_BREAK
2615 case 238:
2616 YY_RULE_SETUP
2617 #line 386 "lex.l"
2618 { yylval.intval = FONT; return(T_FONTVAR); }
2619 YY_BREAK
2620 case 239:
2621 YY_RULE_SETUP
2622 #line 387 "lex.l"
2623 { yylval.intval = FONTFAMILY; return(T_FAMILY); }
2624 YY_BREAK
2625 case 240:
2626 YY_RULE_SETUP
2627 #line 388 "lex.l"
2628 { yylval.intval = LYRICSFONT; return(T_FONTVAR); }
2629 YY_BREAK
2630 case 241:
2631 YY_RULE_SETUP
2632 #line 389 "lex.l"
2633 { yylval.intval = LYRICSFAMILY; return(T_FAMILY); }
2634 YY_BREAK
2635 case 242:
2636 YY_RULE_SETUP
2637 #line 390 "lex.l"
2638 { yylval.intval = MEASNUMSIZE; return(T_NUMVAR); }
2639 YY_BREAK
2640 case 243:
2641 YY_RULE_SETUP
2642 #line 391 "lex.l"
2643 { yylval.intval = MEASNUMFONT; return(T_FONTVAR); }
2644 YY_BREAK
2645 case 244:
2646 YY_RULE_SETUP
2647 #line 392 "lex.l"
2648 { yylval.intval = MEASNUMFAMILY; return(T_FAMILY); }
2649 YY_BREAK
2650 case 245:
2651 YY_RULE_SETUP
2652 #line 393 "lex.l"
2653 { yylval.intval = CLEF; return(T_CLEFVAR); }
2654 YY_BREAK
2655 case 246:
2656 YY_RULE_SETUP
2657 #line 394 "lex.l"
2658 { return(T_UNSET); }
2659 YY_BREAK
2660 case 247:
2661 YY_RULE_SETUP
2662 #line 396 "lex.l"
2663 { yylval.intval = TREBLE_8A; return(T_CLEF); }
2664 YY_BREAK
2665 case 248:
2666 YY_RULE_SETUP
2667 #line 397 "lex.l"
2668 { yylval.intval = TREBLE; return(T_CLEF); }
2669 YY_BREAK
2670 case 249:
2671 YY_RULE_SETUP
2672 #line 398 "lex.l"
2673 { yylval.intval = TREBLE_8; return(T_CLEF); }
2674 YY_BREAK
2675 case 250:
2676 YY_RULE_SETUP
2677 #line 399 "lex.l"
2678 { yylval.intval = FRENCHVIOLIN; return(T_CLEF); }
2679 YY_BREAK
2680 case 251:
2681 YY_RULE_SETUP
2682 #line 400 "lex.l"
2683 { yylval.intval = SOPRANO; return(T_CLEF); }
2684 YY_BREAK
2685 case 252:
2686 YY_RULE_SETUP
2687 #line 401 "lex.l"
2688 { yylval.intval = MEZZOSOPRANO; return(T_CLEF); }
2689 YY_BREAK
2690 case 253:
2691 YY_RULE_SETUP
2692 #line 402 "lex.l"
2693 { yylval.intval = ALTO; return(T_CLEF); }
2694 YY_BREAK
2695 case 254:
2696 YY_RULE_SETUP
2697 #line 403 "lex.l"
2698 { yylval.intval = TENOR; return(T_CLEF); }
2699 YY_BREAK
2700 case 255:
2701 YY_RULE_SETUP
2702 #line 404 "lex.l"
2703 { yylval.intval = BARITONE; return(T_CLEF); }
2704 YY_BREAK
2705 case 256:
2706 YY_RULE_SETUP
2707 #line 405 "lex.l"
2708 { yylval.intval = BASS; return(T_CLEF); }
2709 YY_BREAK
2710 case 257:
2711 YY_RULE_SETUP
2712 #line 406 "lex.l"
2713 { return(T_DRUM); }
2714 YY_BREAK
2715 case 258:
2716 YY_RULE_SETUP
2717 #line 408 "lex.l"
2718 return(T_R_ANGLE);
2719 YY_BREAK
2720 case 259:
2721 YY_RULE_SETUP
2722 #line 409 "lex.l"
2723 { yylval.intval = L_NORMAL; return(T_L_ANGLE); }
2724 YY_BREAK
2725 case 260:
2726 YY_RULE_SETUP
2727 #line 410 "lex.l"
2728 { return(T_L_DBLANGLE); }
2729 YY_BREAK
2730 case 261:
2731 YY_RULE_SETUP
2732 #line 411 "lex.l"
2733 { return(T_R_DBLANGLE); }
2734 YY_BREAK
2735 case 262:
2736 YY_RULE_SETUP
2737 #line 412 "lex.l"
2738 { yylval.intval = L_DOTTED; return(T_L_ANGLE); }
2739 YY_BREAK
2740 case 263:
2741 YY_RULE_SETUP
2742 #line 413 "lex.l"
2743 { yylval.intval = L_DASHED; return(T_L_ANGLE); }
2744 YY_BREAK
2745 case 264:
2746 YY_RULE_SETUP
2747 #line 414 "lex.l"
2748 { yylval.intval = IN_DOWNWARD; return(T_NOWHERE_SLIDE); }
2749 YY_BREAK
2750 case 265:
2751 YY_RULE_SETUP
2752 #line 415 "lex.l"
2753 { yylval.intval = IN_UPWARD; return(T_NOWHERE_SLIDE); }
2754 YY_BREAK
2755 case 266:
2756 YY_RULE_SETUP
2757 #line 416 "lex.l"
2758 { yylval.intval = OUT_UPWARD; return(T_NOWHERE_SLIDE); }
2759 YY_BREAK
2760 case 267:
2761 YY_RULE_SETUP
2762 #line 417 "lex.l"
2763 { yylval.intval = OUT_DOWNWARD; return(T_NOWHERE_SLIDE); }
2764 YY_BREAK
2765 case 268:
2766 YY_RULE_SETUP
2767 #line 419 "lex.l"
2768 return(T_PEDAL);
2769 YY_BREAK
2770 case 269:
2771 YY_RULE_SETUP
2772 #line 420 "lex.l"
2773 return(T_MUSSYM);
2774 YY_BREAK
2775 case 270:
2776 YY_RULE_SETUP
2777 #line 421 "lex.l"
2778 { yylval.intval = TM_CHORD; return(T_MODIFIER); }
2779 YY_BREAK
2780 case 271:
2781 YY_RULE_SETUP
2782 #line 422 "lex.l"
2783 { yylval.intval = TM_ANALYSIS; return(T_MODIFIER); }
2784 YY_BREAK
2785 case 272:
2786 YY_RULE_SETUP
2787 #line 423 "lex.l"
2788 { yylval.intval = TM_FIGBASS; return(T_MODIFIER); }
2789 YY_BREAK
2790 case 273:
2791 YY_RULE_SETUP
2792 #line 424 "lex.l"
2793 { yylval.intval = TM_DYN; return(T_MODIFIER); }
2794 YY_BREAK
2795 case 274:
2796 YY_RULE_SETUP
2797 #line 425 "lex.l"
2798 return(T_PHRASE);
2799 YY_BREAK
2800 case 275:
2801 YY_RULE_SETUP
2802 #line 426 "lex.l"
2803 return(T_TIL);
2804 YY_BREAK
2805 case 276:
2806 YY_RULE_SETUP
2807 #line 427 "lex.l"
2808 return(T_OCTAVE);
2809 YY_BREAK
2810 case 277:
2811 YY_RULE_SETUP
2812 #line 428 "lex.l"
2813 return(T_ROLL);
2814 YY_BREAK
2815 case 278:
2816 YY_RULE_SETUP
2817 #line 429 "lex.l"
2818 return(T_MIDI);
2819 YY_BREAK
2820 case 279:
2821 YY_RULE_SETUP
2822 #line 431 "lex.l"
2823 return(T_STAR);
2824 YY_BREAK
2825 case 280:
2826 YY_RULE_SETUP
2827 #line 433 "lex.l"
2828 to_eol();
2829 YY_BREAK
2830 case 281:
2831 YY_RULE_SETUP
2832 #line 435 "lex.l"
2833 {
2834 If_length = 0;
2835 If_errs = 0;
2836 BEGIN IF_CLAUSE;
2837 }
2838 YY_BREAK
2839 case 282:
2840 YY_RULE_SETUP
2841 #line 440 "lex.l"
2842 {
2843 /* End of 'if' clause'. Set back to the
2844 * normal lexer. Call the mini-paser on
2845 * the compressed form of the clause we
2846 * have just gotten
2847 */
2848 BEGIN 0;
2849 set_ifclause_buffer(Ifclause_buff, If_length);
2850 if (ifparse() == YES) {
2851 If_count++;
2852 }
2853 else {
2854 /* skip ifdef-ed part */
2855 if (skip2else() == YES) {
2856 /* found an else */
2857 If_count++;
2858 }
2859 /* if found an endif instead,
2860 * we just continue */
2861 }
2862 }
2863 YY_BREAK
2864 case 283:
2865 YY_RULE_SETUP
2866 #line 461 "lex.l"
2867 { add_ifclause('a'); }
2868 YY_BREAK
2869 case 284:
2870 YY_RULE_SETUP
2871 #line 462 "lex.l"
2872 { add_ifclause('o'); }
2873 YY_BREAK
2874 case 285:
2875 YY_RULE_SETUP
2876 #line 463 "lex.l"
2877 { add_ifclause(yytext[0]); }
2878 YY_BREAK
2879 case 286:
2880 YY_RULE_SETUP
2881 #line 464 "lex.l"
2882 { add_ifclause('l'); }
2883 YY_BREAK
2884 case 287:
2885 YY_RULE_SETUP
2886 #line 465 "lex.l"
2887 { add_ifclause('r'); }
2888 YY_BREAK
2889 case 288:
2890 YY_RULE_SETUP
2891 #line 466 "lex.l"
2892 { add_ifclause('L'); }
2893 YY_BREAK
2894 case 289:
2895 YY_RULE_SETUP
2896 #line 467 "lex.l"
2897 { add_ifclause('G'); }
2898 YY_BREAK
2899 case 290:
2900 YY_RULE_SETUP
2901 #line 468 "lex.l"
2902 { add_ifclause('E'); }
2903 YY_BREAK
2904 case 291:
2905 YY_RULE_SETUP
2906 #line 469 "lex.l"
2907 { add_ifclause('N'); }
2908 YY_BREAK
2909 case 292:
2910 #line 471 "lex.l"
2911 case 293:
2912 YY_RULE_SETUP
2913 #line 471 "lex.l"
2914 { addnumstr_ifclause(yytext); }
2915 YY_BREAK
2916 case 294:
2917 YY_RULE_SETUP
2918 #line 472 "lex.l"
2919 {
2920 char * macname;
2921 int parens;
2922 int m;
2923
2924 for (parens = m = 0; m < yyleng; m++) {
2925 if (yytext[m] == '(') {
2926 parens++;
2927 } else if (yytext[m] == ')') {
2928 parens--;
2929 }
2930 }
2931 if (parens != 0) {
2932 yyerror("unmatched parentheses around target of 'defined'");
2933 }
2934 macname = yytext + 7 + strspn(yytext + 7, "( \t\n");
2935 strtok(macname, " \t\n)");
2936 add_ifclause(is_defined(macname, YES) ? 'T' : 'F');
2937 }
2938 YY_BREAK
2939 case 295:
2940 YY_RULE_SETUP
2941 #line 492 "lex.l"
2942 {
2943 if (is_defined(yytext, YES) != 0) {
2944 call_macro(yytext);
2945 }
2946 else {
2947 addnumstr_ifclause("0");
2948 }
2949 }
2950 YY_BREAK
2951 case 296:
2952 YY_RULE_SETUP
2953 #line 500 "lex.l"
2954 ;
2955 YY_BREAK
2956 case 297:
2957 YY_RULE_SETUP
2958 #line 501 "lex.l"
2959 {
2960 yyerror("Missing 'then' for 'if' clause");
2961 BEGIN 0;
2962 }
2963 YY_BREAK
2964 case 298:
2965 YY_RULE_SETUP
2966 #line 505 "lex.l"
2967 {
2968 bad_input("'if' clause");
2969 /* User forgetting or misspelling 'then' can
2970 * quickly cause hundreds of errors,
2971 * so bail out if we suspect that.
2972 * The actual number of errors to bail out on
2973 * is arbitrary. */
2974 if (++If_errs > 20) {
2975 ufatal("Too many errors in 'if' clause. Maybe missing 'then'?");
2976 }
2977 }
2978 YY_BREAK
2979 case 299:
2980 YY_RULE_SETUP
2981 #line 517 "lex.l"
2982 define_macro(yytext + 7);
2983 YY_BREAK
2984 case 300:
2985 YY_RULE_SETUP
2986 #line 519 "lex.l"
2987 undef_macro(yytext + 6);
2988 YY_BREAK
2989 case 301:
2990 YY_RULE_SETUP
2991 #line 521 "lex.l"
2992 {
2993 int result;
2994
2995 /* do ifdef or ifndef as appropriate */
2996 if (yytext[2] == 'n') {
2997 result = ! is_defined(yytext + 7
2998 + strspn(yytext + 7, " \t"), NO);
2999 }
3000 else {
3001 result = is_defined(yytext + 6
3002 + strspn(yytext + 6, " \t"), NO);
3003 }
3004
3005 if (result) {
3006 /* do stuff till else or endif */
3007 If_count++;
3008 }
3009 else {
3010 /* skip ifdef-ed part */
3011 if (skip2else() == YES) {
3012 /* found an else */
3013 If_count++;
3014 }
3015 /* if found an endif instead,
3016 * we just continue */
3017 }
3018 }
3019 YY_BREAK
3020 case 302:
3021 YY_RULE_SETUP
3022 #line 549 "lex.l"
3023 {
3024 if (If_count < 1) {
3025 yyerror("else without ifdef");
3026 }
3027 else {
3028 If_count--;
3029 if (skip2else() == YES) {
3030 yyerror("else without ifdef");
3031 }
3032 }
3033 }
3034 YY_BREAK
3035 case 303:
3036 YY_RULE_SETUP
3037 #line 561 "lex.l"
3038 {
3039 if (If_count < 1) {
3040 yyerror("endif without ifdef");
3041 }
3042 else {
3043 If_count--;
3044 }
3045 }
3046 YY_BREAK
3047 case 304:
3048 YY_RULE_SETUP
3049 #line 570 "lex.l"
3050 call_macro(yytext);
3051 YY_BREAK
3052 case 305:
3053 YY_RULE_SETUP
3054 #line 571 "lex.l"
3055 {
3056 if (isspace(yytext[1]) ||
3057 isspace(yytext[yyleng-2])) {
3058 yyerror("spaces not allowed inside ` ` marks");
3059 }
3060 else {
3061 /* We only need the leading ` to tell
3062 * it is a quoted macro parm,
3063 * and it's easier to deal with later
3064 * if there is no trailing `
3065 * so strip off the trailing. */
3066 yytext[yyleng - 1] = '\0';
3067 call_macro(yytext);
3068 }
3069 }
3070 YY_BREAK
3071 case 306:
3072 YY_RULE_SETUP
3073 #line 587 "lex.l"
3074 { yylval.intval = strlen(yytext); return(T_TICKS); }
3075 YY_BREAK
3076 case 307:
3077 YY_RULE_SETUP
3078 #line 589 "lex.l"
3079 {
3080 /* ignore backslashed newlines;
3081 * allow white space after backslash */
3082 ignore();
3083 }
3084 YY_BREAK
3085 case 308:
3086 YY_RULE_SETUP
3087 #line 595 "lex.l"
3088 {
3089 /* in case we get control-Z from DOS */
3090 ignore();
3091 }
3092 YY_BREAK
3093 case 309:
3094 YY_RULE_SETUP
3095 #line 600 "lex.l"
3096 {
3097 /* ignore extra white space */
3098 ignore();
3099 }
3100 YY_BREAK
3101 case 310:
3102 YY_RULE_SETUP
3103 #line 604 "lex.l"
3104 {
3105 bad_input("input");
3106 }
3107 YY_BREAK
3108 case YY_STATE_EOF(INITIAL):
3109 case YY_STATE_EOF(IF_CLAUSE):
3110 case YY_STATE_EOF(STRING):
3111 #line 608 "lex.l"
3112 {
3113 /* In case user used an editor or other tool to
3114 * create the input file which may leave the final
3115 * line without a newline, add a newline to the
3116 * input. If there was already a newline, an extra
3117 * one should never hurt. Adding it can prevent
3118 * cryptic message about error at token '' */
3119 if (Eof_newline == 0) {
3120 Eof_newline = yy_scan_string("\n");
3121 }
3122 else {
3123 yy_delete_buffer(Eof_newline);
3124 return(0);
3125 }
3126 }
3127 YY_BREAK
3128 case 311:
3129 YY_RULE_SETUP
3130 #line 625 "lex.l"
3131 ECHO;
3132 YY_BREAK
3133
3134 case YY_END_OF_BUFFER:
3135 {
3136 /* Amount of text matched not including the EOB char. */
3137 int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
3138
3139 /* Undo the effects of YY_DO_BEFORE_ACTION. */
3140 *yy_cp = yy_hold_char;
3141 YY_RESTORE_YY_MORE_OFFSET
3142
3143 if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
3144 {
3145 /* We're scanning a new file or input source. It's
3146 * possible that this happened because the user
3147 * just pointed yyin at a new source and called
3148 * yylex(). If so, then we have to assure
3149 * consistency between yy_current_buffer and our
3150 * globals. Here is the right place to do so, because
3151 * this is the first action (other than possibly a
3152 * back-up) that will match for the new input source.
3153 */
3154 yy_n_chars = yy_current_buffer->yy_n_chars;
3155 yy_current_buffer->yy_input_file = yyin;
3156 yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
3157 }
3158
3159 /* Note that here we test for yy_c_buf_p "<=" to the position
3160 * of the first EOB in the buffer, since yy_c_buf_p will
3161 * already have been incremented past the NUL character
3162 * (since all states make transitions on EOB to the
3163 * end-of-buffer state). Contrast this with the test
3164 * in input().
3165 */
3166 if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
3167 { /* This was really a NUL. */
3168 yy_state_type yy_next_state;
3169
3170 yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
3171
3172 yy_current_state = yy_get_previous_state();
3173
3174 /* Okay, we're now positioned to make the NUL
3175 * transition. We couldn't have
3176 * yy_get_previous_state() go ahead and do it
3177 * for us because it doesn't know how to deal
3178 * with the possibility of jamming (and we don't
3179 * want to build jamming into it because then it
3180 * will run more slowly).
3181 */
3182
3183 yy_next_state = yy_try_NUL_trans( yy_current_state );
3184
3185 yy_bp = yytext_ptr + YY_MORE_ADJ;
3186
3187 if ( yy_next_state )
3188 {
3189 /* Consume the NUL. */
3190 yy_cp = ++yy_c_buf_p;
3191 yy_current_state = yy_next_state;
3192 goto yy_match;
3193 }
3194
3195 else
3196 {
3197 yy_cp = yy_c_buf_p;
3198 goto yy_find_action;
3199 }
3200 }
3201
3202 else switch ( yy_get_next_buffer() )
3203 {
3204 case EOB_ACT_END_OF_FILE:
3205 {
3206 yy_did_buffer_switch_on_eof = 0;
3207
3208 if ( yywrap() )
3209 {
3210 /* Note: because we've taken care in
3211 * yy_get_next_buffer() to have set up
3212 * yytext, we can now set up
3213 * yy_c_buf_p so that if some total
3214 * hoser (like flex itself) wants to
3215 * call the scanner after we return the
3216 * YY_NULL, it'll still work - another
3217 * YY_NULL will get returned.
3218 */
3219 yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
3220
3221 yy_act = YY_STATE_EOF(YY_START);
3222 goto do_action;
3223 }
3224
3225 else
3226 {
3227 if ( ! yy_did_buffer_switch_on_eof )
3228 YY_NEW_FILE;
3229 }
3230 break;
3231 }
3232
3233 case EOB_ACT_CONTINUE_SCAN:
3234 yy_c_buf_p =
3235 yytext_ptr + yy_amount_of_matched_text;
3236
3237 yy_current_state = yy_get_previous_state();
3238
3239 yy_cp = yy_c_buf_p;
3240 yy_bp = yytext_ptr + YY_MORE_ADJ;
3241 goto yy_match;
3242
3243 case EOB_ACT_LAST_MATCH:
3244 yy_c_buf_p =
3245 &yy_current_buffer->yy_ch_buf[yy_n_chars];
3246
3247 yy_current_state = yy_get_previous_state();
3248
3249 yy_cp = yy_c_buf_p;
3250 yy_bp = yytext_ptr + YY_MORE_ADJ;
3251 goto yy_find_action;
3252 }
3253 break;
3254 }
3255
3256 default:
3257 YY_FATAL_ERROR(
3258 "fatal flex scanner internal error--no action found" );
3259 } /* end of action switch */
3260 } /* end of scanning one token */
3261 } /* end of yylex */
3262
3263
3264 /* yy_get_next_buffer - try to read in a new buffer
3265 *
3266 * Returns a code representing an action:
3267 * EOB_ACT_LAST_MATCH -
3268 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
3269 * EOB_ACT_END_OF_FILE - end of file
3270 */
3271
3272 static int yy_get_next_buffer()
3273 {
3274 register char *dest = yy_current_buffer->yy_ch_buf;
3275 register char *source = yytext_ptr;
3276 register int number_to_move, i;
3277 int ret_val;
3278
3279 if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
3280 YY_FATAL_ERROR(
3281 "fatal flex scanner internal error--end of buffer missed" );
3282
3283 if ( yy_current_buffer->yy_fill_buffer == 0 )
3284 { /* Don't try to fill the buffer, so this is an EOF. */
3285 if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
3286 {
3287 /* We matched a single character, the EOB, so
3288 * treat this as a final EOF.
3289 */
3290 return EOB_ACT_END_OF_FILE;
3291 }
3292
3293 else
3294 {
3295 /* We matched some text prior to the EOB, first
3296 * process it.
3297 */
3298 return EOB_ACT_LAST_MATCH;
3299 }
3300 }
3301
3302 /* Try to read more data. */
3303
3304 /* First move last chars to start of buffer. */
3305 number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
3306
3307 for ( i = 0; i < number_to_move; ++i )
3308 *(dest++) = *(source++);
3309
3310 if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
3311 /* don't do the read, it's not guaranteed to return an EOF,
3312 * just force an EOF
3313 */
3314 yy_current_buffer->yy_n_chars = yy_n_chars = 0;
3315
3316 else
3317 {
3318 int num_to_read =
3319 yy_current_buffer->yy_buf_size - number_to_move - 1;
3320
3321 while ( num_to_read <= 0 )
3322 { /* Not enough room in the buffer - grow it. */
3323 #ifdef YY_USES_REJECT
3324 YY_FATAL_ERROR(
3325 "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
3326 #else
3327
3328 /* just a shorter name for the current buffer */
3329 YY_BUFFER_STATE b = yy_current_buffer;
3330
3331 int yy_c_buf_p_offset =
3332 (int) (yy_c_buf_p - b->yy_ch_buf);
3333
3334 if ( b->yy_is_our_buffer )
3335 {
3336 int new_size = b->yy_buf_size * 2;
3337
3338 if ( new_size <= 0 )
3339 b->yy_buf_size += b->yy_buf_size / 8;
3340 else
3341 b->yy_buf_size *= 2;
3342
3343 b->yy_ch_buf = (char *)
3344 /* Include room in for 2 EOB chars. */
3345 yy_flex_realloc( (void *) b->yy_ch_buf,
3346 b->yy_buf_size + 2 );
3347 }
3348 else
3349 /* Can't grow it, we don't own it. */
3350 b->yy_ch_buf = 0;
3351
3352 if ( ! b->yy_ch_buf )
3353 YY_FATAL_ERROR(
3354 "fatal error - scanner input buffer overflow" );
3355
3356 yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
3357
3358 num_to_read = yy_current_buffer->yy_buf_size -
3359 number_to_move - 1;
3360 #endif
3361 }
3362
3363 if ( num_to_read > YY_READ_BUF_SIZE )
3364 num_to_read = YY_READ_BUF_SIZE;
3365
3366 /* Read in more data. */
3367 YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
3368 yy_n_chars, num_to_read );
3369
3370 yy_current_buffer->yy_n_chars = yy_n_chars;
3371 }
3372
3373 if ( yy_n_chars == 0 )
3374 {
3375 if ( number_to_move == YY_MORE_ADJ )
3376 {
3377 ret_val = EOB_ACT_END_OF_FILE;
3378 yyrestart( yyin );
3379 }
3380
3381 else
3382 {
3383 ret_val = EOB_ACT_LAST_MATCH;
3384 yy_current_buffer->yy_buffer_status =
3385 YY_BUFFER_EOF_PENDING;
3386 }
3387 }
3388
3389 else
3390 ret_val = EOB_ACT_CONTINUE_SCAN;
3391
3392 yy_n_chars += number_to_move;
3393 yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
3394 yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
3395
3396 yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
3397
3398 return ret_val;
3399 }
3400
3401
3402 /* yy_get_previous_state - get the state just before the EOB char was reached */
3403
3404 static yy_state_type yy_get_previous_state()
3405 {
3406 register yy_state_type yy_current_state;
3407 register char *yy_cp;
3408
3409 yy_current_state = yy_start;
3410
3411 for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
3412 {
3413 register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
3414 if ( yy_accept[yy_current_state] )
3415 {
3416 yy_last_accepting_state = yy_current_state;
3417 yy_last_accepting_cpos = yy_cp;
3418 }
3419 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
3420 {
3421 yy_current_state = (int) yy_def[yy_current_state];
3422 if ( yy_current_state >= 1176 )
3423 yy_c = yy_meta[(unsigned int) yy_c];
3424 }
3425 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
3426 }
3427
3428 return yy_current_state;
3429 }
3430
3431
3432 /* yy_try_NUL_trans - try to make a transition on the NUL character
3433 *
3434 * synopsis
3435 * next_state = yy_try_NUL_trans( current_state );
3436 */
3437
3438 #ifdef YY_USE_PROTOS
3439 static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
3440 #else
3441 static yy_state_type yy_try_NUL_trans( yy_current_state )
3442 yy_state_type yy_current_state;
3443 #endif
3444 {
3445 register int yy_is_jam;
3446 register char *yy_cp = yy_c_buf_p;
3447
3448 register YY_CHAR yy_c = 1;
3449 if ( yy_accept[yy_current_state] )
3450 {
3451 yy_last_accepting_state = yy_current_state;
3452 yy_last_accepting_cpos = yy_cp;
3453 }
3454 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
3455 {
3456 yy_current_state = (int) yy_def[yy_current_state];
3457 if ( yy_current_state >= 1176 )
3458 yy_c = yy_meta[(unsigned int) yy_c];
3459 }
3460 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
3461 yy_is_jam = (yy_current_state == 1175);
3462
3463 return yy_is_jam ? 0 : yy_current_state;
3464 }
3465
3466
3467 #ifndef YY_NO_UNPUT
3468 #ifdef YY_USE_PROTOS
3469 static void yyunput( int c, register char *yy_bp )
3470 #else
3471 static void yyunput( c, yy_bp )
3472 int c;
3473 register char *yy_bp;
3474 #endif
3475 {
3476 register char *yy_cp = yy_c_buf_p;
3477
3478 /* undo effects of setting up yytext */
3479 *yy_cp = yy_hold_char;
3480
3481 if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
3482 { /* need to shift things up to make room */
3483 /* +2 for EOB chars. */
3484 register int number_to_move = yy_n_chars + 2;
3485 register char *dest = &yy_current_buffer->yy_ch_buf[
3486 yy_current_buffer->yy_buf_size + 2];
3487 register char *source =
3488 &yy_current_buffer->yy_ch_buf[number_to_move];
3489
3490 while ( source > yy_current_buffer->yy_ch_buf )
3491 *--dest = *--source;
3492
3493 yy_cp += (int) (dest - source);
3494 yy_bp += (int) (dest - source);
3495 yy_current_buffer->yy_n_chars =
3496 yy_n_chars = yy_current_buffer->yy_buf_size;
3497
3498 if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
3499 YY_FATAL_ERROR( "flex scanner push-back overflow" );
3500 }
3501
3502 *--yy_cp = (char) c;
3503
3504
3505 yytext_ptr = yy_bp;
3506 yy_hold_char = *yy_cp;
3507 yy_c_buf_p = yy_cp;
3508 }
3509 #endif /* ifndef YY_NO_UNPUT */
3510
3511
3512 #ifdef __cplusplus
3513 static int yyinput()
3514 #else
3515 static int input()
3516 #endif
3517 {
3518 int c;
3519
3520 *yy_c_buf_p = yy_hold_char;
3521
3522 if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
3523 {
3524 /* yy_c_buf_p now points to the character we want to return.
3525 * If this occurs *before* the EOB characters, then it's a
3526 * valid NUL; if not, then we've hit the end of the buffer.
3527 */
3528 if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
3529 /* This was really a NUL. */
3530 *yy_c_buf_p = '\0';
3531
3532 else
3533 { /* need more input */
3534 int offset = yy_c_buf_p - yytext_ptr;
3535 ++yy_c_buf_p;
3536
3537 switch ( yy_get_next_buffer() )
3538 {
3539 case EOB_ACT_LAST_MATCH:
3540 /* This happens because yy_g_n_b()
3541 * sees that we've accumulated a
3542 * token and flags that we need to
3543 * try matching the token before
3544 * proceeding. But for input(),
3545 * there's no matching to consider.
3546 * So convert the EOB_ACT_LAST_MATCH
3547 * to EOB_ACT_END_OF_FILE.
3548 */
3549
3550 /* Reset buffer status. */
3551 yyrestart( yyin );
3552
3553 /* fall through */
3554
3555 case EOB_ACT_END_OF_FILE:
3556 {
3557 if ( yywrap() )
3558 return EOF;
3559
3560 if ( ! yy_did_buffer_switch_on_eof )
3561 YY_NEW_FILE;
3562 #ifdef __cplusplus
3563 return yyinput();
3564 #else
3565 return input();
3566 #endif
3567 }
3568
3569 case EOB_ACT_CONTINUE_SCAN:
3570 yy_c_buf_p = yytext_ptr + offset;
3571 break;
3572 }
3573 }
3574 }
3575
3576 c = *(unsigned char *) yy_c_buf_p; /* cast for 8-bit char's */
3577 *yy_c_buf_p = '\0'; /* preserve yytext */
3578 yy_hold_char = *++yy_c_buf_p;
3579
3580
3581 return c;
3582 }
3583
3584
3585 #ifdef YY_USE_PROTOS
3586 void yyrestart( FILE *input_file )
3587 #else
3588 void yyrestart( input_file )
3589 FILE *input_file;
3590 #endif
3591 {
3592 if ( ! yy_current_buffer )
3593 yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
3594
3595 yy_init_buffer( yy_current_buffer, input_file );
3596 yy_load_buffer_state();
3597 }
3598
3599
3600 #ifdef YY_USE_PROTOS
3601 void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
3602 #else
3603 void yy_switch_to_buffer( new_buffer )
3604 YY_BUFFER_STATE new_buffer;
3605 #endif
3606 {
3607 if ( yy_current_buffer == new_buffer )
3608 return;
3609
3610 if ( yy_current_buffer )
3611 {
3612 /* Flush out information for old buffer. */
3613 *yy_c_buf_p = yy_hold_char;
3614 yy_current_buffer->yy_buf_pos = yy_c_buf_p;
3615 yy_current_buffer->yy_n_chars = yy_n_chars;
3616 }
3617
3618 yy_current_buffer = new_buffer;
3619 yy_load_buffer_state();
3620
3621 /* We don't actually know whether we did this switch during
3622 * EOF (yywrap()) processing, but the only time this flag
3623 * is looked at is after yywrap() is called, so it's safe
3624 * to go ahead and always set it.
3625 */
3626 yy_did_buffer_switch_on_eof = 1;
3627 }
3628
3629
3630 #ifdef YY_USE_PROTOS
3631 void yy_load_buffer_state( void )
3632 #else
3633 void yy_load_buffer_state()
3634 #endif
3635 {
3636 yy_n_chars = yy_current_buffer->yy_n_chars;
3637 yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
3638 yyin = yy_current_buffer->yy_input_file;
3639 yy_hold_char = *yy_c_buf_p;
3640 }
3641
3642
3643 #ifdef YY_USE_PROTOS
3644 YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
3645 #else
3646 YY_BUFFER_STATE yy_create_buffer( file, size )
3647 FILE *file;
3648 int size;
3649 #endif
3650 {
3651 YY_BUFFER_STATE b;
3652
3653 b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
3654 if ( ! b )
3655 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
3656
3657 b->yy_buf_size = size;
3658
3659 /* yy_ch_buf has to be 2 characters longer than the size given because
3660 * we need to put in 2 end-of-buffer characters.
3661 */
3662 b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
3663 if ( ! b->yy_ch_buf )
3664 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
3665
3666 b->yy_is_our_buffer = 1;
3667
3668 yy_init_buffer( b, file );
3669
3670 return b;
3671 }
3672
3673
3674 #ifdef YY_USE_PROTOS
3675 void yy_delete_buffer( YY_BUFFER_STATE b )
3676 #else
3677 void yy_delete_buffer( b )
3678 YY_BUFFER_STATE b;
3679 #endif
3680 {
3681 if ( ! b )
3682 return;
3683
3684 if ( b == yy_current_buffer )
3685 yy_current_buffer = (YY_BUFFER_STATE) 0;
3686
3687 if ( b->yy_is_our_buffer )
3688 yy_flex_free( (void *) b->yy_ch_buf );
3689
3690 yy_flex_free( (void *) b );
3691 }
3692
3693
3694 #ifndef YY_ALWAYS_INTERACTIVE
3695 #ifndef YY_NEVER_INTERACTIVE
3696 extern int isatty YY_PROTO(( int ));
3697 #endif
3698 #endif
3699
3700 #ifdef YY_USE_PROTOS
3701 void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
3702 #else
3703 void yy_init_buffer( b, file )
3704 YY_BUFFER_STATE b;
3705 FILE *file;
3706 #endif
3707
3708
3709 {
3710 yy_flush_buffer( b );
3711
3712 b->yy_input_file = file;
3713 b->yy_fill_buffer = 1;
3714
3715 #if YY_ALWAYS_INTERACTIVE
3716 b->yy_is_interactive = 1;
3717 #else
3718 #if YY_NEVER_INTERACTIVE
3719 b->yy_is_interactive = 0;
3720 #else
3721 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
3722 #endif
3723 #endif
3724 }
3725
3726
3727 #ifdef YY_USE_PROTOS
3728 void yy_flush_buffer( YY_BUFFER_STATE b )
3729 #else
3730 void yy_flush_buffer( b )
3731 YY_BUFFER_STATE b;
3732 #endif
3733
3734 {
3735 if ( ! b )
3736 return;
3737
3738 b->yy_n_chars = 0;
3739
3740 /* We always need two end-of-buffer characters. The first causes
3741 * a transition to the end-of-buffer state. The second causes
3742 * a jam in that state.
3743 */
3744 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
3745 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
3746
3747 b->yy_buf_pos = &b->yy_ch_buf[0];
3748
3749 b->yy_at_bol = 1;
3750 b->yy_buffer_status = YY_BUFFER_NEW;
3751
3752 if ( b == yy_current_buffer )
3753 yy_load_buffer_state();
3754 }
3755
3756
3757 #ifndef YY_NO_SCAN_BUFFER
3758 #ifdef YY_USE_PROTOS
3759 YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
3760 #else
3761 YY_BUFFER_STATE yy_scan_buffer( base, size )
3762 char *base;
3763 yy_size_t size;
3764 #endif
3765 {
3766 YY_BUFFER_STATE b;
3767
3768 if ( size < 2 ||
3769 base[size-2] != YY_END_OF_BUFFER_CHAR ||
3770 base[size-1] != YY_END_OF_BUFFER_CHAR )
3771 /* They forgot to leave room for the EOB's. */
3772 return 0;
3773
3774 b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
3775 if ( ! b )
3776 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
3777
3778 b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
3779 b->yy_buf_pos = b->yy_ch_buf = base;
3780 b->yy_is_our_buffer = 0;
3781 b->yy_input_file = 0;
3782 b->yy_n_chars = b->yy_buf_size;
3783 b->yy_is_interactive = 0;
3784 b->yy_at_bol = 1;
3785 b->yy_fill_buffer = 0;
3786 b->yy_buffer_status = YY_BUFFER_NEW;
3787
3788 yy_switch_to_buffer( b );
3789
3790 return b;
3791 }
3792 #endif
3793
3794
3795 #ifndef YY_NO_SCAN_STRING
3796 #ifdef YY_USE_PROTOS
3797 YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
3798 #else
3799 YY_BUFFER_STATE yy_scan_string( yy_str )
3800 yyconst char *yy_str;
3801 #endif
3802 {
3803 int len;
3804 for ( len = 0; yy_str[len]; ++len )
3805 ;
3806
3807 return yy_scan_bytes( yy_str, len );
3808 }
3809 #endif
3810
3811
3812 #ifndef YY_NO_SCAN_BYTES
3813 #ifdef YY_USE_PROTOS
3814 YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
3815 #else
3816 YY_BUFFER_STATE yy_scan_bytes( bytes, len )
3817 yyconst char *bytes;
3818 int len;
3819 #endif
3820 {
3821 YY_BUFFER_STATE b;
3822 char *buf;
3823 yy_size_t n;
3824 int i;
3825
3826 /* Get memory for full buffer, including space for trailing EOB's. */
3827 n = len + 2;
3828 buf = (char *) yy_flex_alloc( n );
3829 if ( ! buf )
3830 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
3831
3832 for ( i = 0; i < len; ++i )
3833 buf[i] = bytes[i];
3834
3835 buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
3836
3837 b = yy_scan_buffer( buf, n );
3838 if ( ! b )
3839 YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
3840
3841 /* It's okay to grow etc. this buffer, and we should throw it
3842 * away when we're done.
3843 */
3844 b->yy_is_our_buffer = 1;
3845
3846 return b;
3847 }
3848 #endif
3849
3850
3851 #ifndef YY_NO_PUSH_STATE
3852 #ifdef YY_USE_PROTOS
3853 static void yy_push_state( int new_state )
3854 #else
3855 static void yy_push_state( new_state )
3856 int new_state;
3857 #endif
3858 {
3859 if ( yy_start_stack_ptr >= yy_start_stack_depth )
3860 {
3861 yy_size_t new_size;
3862
3863 yy_start_stack_depth += YY_START_STACK_INCR;
3864 new_size = yy_start_stack_depth * sizeof( int );
3865
3866 if ( ! yy_start_stack )
3867 yy_start_stack = (int *) yy_flex_alloc( new_size );
3868
3869 else
3870 yy_start_stack = (int *) yy_flex_realloc(
3871 (void *) yy_start_stack, new_size );
3872
3873 if ( ! yy_start_stack )
3874 YY_FATAL_ERROR(
3875 "out of memory expanding start-condition stack" );
3876 }
3877
3878 yy_start_stack[yy_start_stack_ptr++] = YY_START;
3879
3880 BEGIN(new_state);
3881 }
3882 #endif
3883
3884
3885 #ifndef YY_NO_POP_STATE
3886 static void yy_pop_state()
3887 {
3888 if ( --yy_start_stack_ptr < 0 )
3889 YY_FATAL_ERROR( "start-condition stack underflow" );
3890
3891 BEGIN(yy_start_stack[yy_start_stack_ptr]);
3892 }
3893 #endif
3894
3895
3896 #ifndef YY_NO_TOP_STATE
3897 static int yy_top_state()
3898 {
3899 return yy_start_stack[yy_start_stack_ptr - 1];
3900 }
3901 #endif
3902
3903 #ifndef YY_EXIT_FAILURE
3904 #define YY_EXIT_FAILURE 2
3905 #endif
3906
3907 #ifdef YY_USE_PROTOS
3908 static void yy_fatal_error( yyconst char msg[] )
3909 #else
3910 static void yy_fatal_error( msg )
3911 char msg[];
3912 #endif
3913 {
3914 (void) fprintf( stderr, "%s\n", msg );
3915 exit( YY_EXIT_FAILURE );
3916 }
3917
3918
3919
3920 /* Redefine yyless() so it works in section 3 code. */
3921
3922 #undef yyless
3923 #define yyless(n) \
3924 do \
3925 { \
3926 /* Undo effects of setting up yytext. */ \
3927 yytext[yyleng] = yy_hold_char; \
3928 yy_c_buf_p = yytext + n; \
3929 yy_hold_char = *yy_c_buf_p; \
3930 *yy_c_buf_p = '\0'; \
3931 yyleng = n; \
3932 } \
3933 while ( 0 )
3934
3935
3936 /* Internal utility routines. */
3937
3938 #ifndef yytext_ptr
3939 #ifdef YY_USE_PROTOS
3940 static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
3941 #else
3942 static void yy_flex_strncpy( s1, s2, n )
3943 char *s1;
3944 yyconst char *s2;
3945 int n;
3946 #endif
3947 {
3948 register int i;
3949 for ( i = 0; i < n; ++i )
3950 s1[i] = s2[i];
3951 }
3952 #endif
3953
3954 #ifdef YY_NEED_STRLEN
3955 #ifdef YY_USE_PROTOS
3956 static int yy_flex_strlen( yyconst char *s )
3957 #else
3958 static int yy_flex_strlen( s )
3959 yyconst char *s;
3960 #endif
3961 {
3962 register int n;
3963 for ( n = 0; s[n]; ++n )
3964 ;
3965
3966 return n;
3967 }
3968 #endif
3969
3970
3971 #ifdef YY_USE_PROTOS
3972 static void *yy_flex_alloc( yy_size_t size )
3973 #else
3974 static void *yy_flex_alloc( size )
3975 yy_size_t size;
3976 #endif
3977 {
3978 return (void *) malloc( size );
3979 }
3980
3981 #ifdef YY_USE_PROTOS
3982 static void *yy_flex_realloc( void *ptr, yy_size_t size )
3983 #else
3984 static void *yy_flex_realloc( ptr, size )
3985 void *ptr;
3986 yy_size_t size;
3987 #endif
3988 {
3989 /* The cast to (char *) in the following accommodates both
3990 * implementations that use char* generic pointers, and those
3991 * that use void* generic pointers. It works with the latter
3992 * because both ANSI C and C++ allow castless assignment from
3993 * any pointer type to void*, and deal with argument conversions
3994 * as though doing an assignment.
3995 */
3996 return (void *) realloc( (char *) ptr, size );
3997 }
3998
3999 #ifdef YY_USE_PROTOS
4000 static void yy_flex_free( void *ptr )
4001 #else
4002 static void yy_flex_free( ptr )
4003 void *ptr;
4004 #endif
4005 {
4006 free( ptr );
4007 }
4008
4009 #if YY_MAIN
4010 int main()
4011 {
4012 yylex();
4013 return 0;
4014 }
4015 #endif
4016 #line 625 "lex.l"
4017
4018 \f
4019
4020 /* comments go to end of line. This can be done with a simple
4021 * lex pattern, but when taken with all the other patterns, lex blows
4022 * up because of too many right contexts. So we do this special case
4023 * with this function.
4024 */
4025
4026 static void
4027 to_eol()
4028
4029 {
4030 while ((yytext[yyleng] = input()) != '\n' && yytext[yyleng] != 0 &&
4031 yytext[yyleng] != EOF) {
4032 if (++yyleng >= YYLMAX) {
4033 l_ufatal(Curr_filename, yylineno, "input line too long");
4034 }
4035 if (yytext[yyleng-1] == '\r') {
4036 /* If the \r is by itself, treat like a newline */
4037 char c;
4038 if ((c = input()) == '\n') {
4039 yytext[--yyleng] = '\n';
4040 break;
4041 }
4042 else if (c != 0) {
4043 unput(c);
4044 }
4045 }
4046 }
4047
4048 if (yytext[yyleng] == 0 || yytext[yyleng] == EOF) {
4049 return;
4050 }
4051 else {
4052 if (yyleng > 0 && yytext[yyleng - 1] == '\\') {
4053 /* if backslashed newline, replace with real newline
4054 * and continue */
4055 yytext[--yyleng] = '\n';
4056 to_eol();
4057 }
4058 /* handle DOS style backslashed \r\n */
4059 else if (yyleng > 1 && yytext[yyleng - 1] == '\r'
4060 && yytext[yyleng - 2] == '\\') {
4061 yytext[yyleng - 2] = '\r';
4062 yytext[--yyleng] = '\n';
4063 to_eol();
4064 }
4065
4066 /* put newline back onto input stream */
4067 unput('\n');
4068 }
4069
4070 yytext[yyleng] = '\0';
4071
4072 if (Preproc == YES && Ppcomments == YES) {
4073 printf("%s", yytext);
4074 }
4075 }
4076 \f
4077
4078 /* Save macro text in specified file.
4079 * @ is used to mark end of macro definition.
4080 * Returns YES if there appeared to be any references to
4081 * macro parameters to be quoted.
4082 * (See the comment above the QS_ #defines in macros.c for more details.) */
4083
4084 int
4085 save_macro(file)
4086
4087 FILE *file; /* put macro text into this file */
4088
4089 {
4090 int c; /* character read from macro */
4091 int num_backslashes = 0;
4092 int has_quoted_parameters = NO;
4093
4094
4095 while ((c = input()) != 0 && c != EOF) {
4096 if (c == '@') {
4097 /* if had a backslash before it, use real @ */
4098 if (num_backslashes == 1) {
4099 putc(c, file);
4100 num_backslashes = 0;
4101 }
4102 else {
4103 /* reached end of macro definition */
4104 return(has_quoted_parameters);
4105 }
4106 }
4107 else {
4108 if (c == '\\') {
4109 num_backslashes++;
4110 if (num_backslashes == 2) {
4111 putc(c, file);
4112 num_backslashes = 0;
4113 }
4114 }
4115 else {
4116 if (num_backslashes == 1) {
4117 putc('\\', file);
4118 }
4119 putc(c, file);
4120 num_backslashes = 0;
4121 if (c == '`') {
4122 has_quoted_parameters = YES;
4123 }
4124 }
4125 }
4126 }
4127
4128 yyerror("unterminated macro");
4129 return(has_quoted_parameters);
4130 }
4131 \f
4132
4133 /* collect the parameter names on the definition of a macro with parameters */
4134
4135 void
4136 get_parameters(macname)
4137
4138 char *macname; /* name of macro being defined */
4139
4140 {
4141 while (get_a_param(macname) == YES) {
4142 ;
4143 }
4144 }
4145
4146 static int
4147 get_a_param(macname)
4148
4149 char *macname;
4150
4151 {
4152 int c; /* input character */
4153 int index; /* into name buffer */
4154
4155
4156 /* skip leading white space */
4157 skipwhite();
4158
4159 /* collect macro-like parameter names (upper case, digits, or
4160 * underscore, starting with upper case), delimited by comma
4161 * and ended by close parenthesis. */
4162 while ((c = input()) != '\0' && c != EOF) {
4163 if (isupper(c)) {
4164 yytext[0] = c;
4165 index = 1;
4166 while ((c = input()) != '\0' && c != EOF) {
4167 if (isupper(c) || isdigit(c) || c == '_') {
4168 yytext[index++] = c;
4169 }
4170 else {
4171 /* found end of parameter name */
4172 unput(c);
4173 yytext[index] = '\0';
4174 add_parameter(macname, yytext);
4175
4176 /* skip white space */
4177 skipwhite();
4178
4179 /* next better be , or ) */
4180 if ((c = input()) != ',' && c != ')') {
4181 l_yyerror(Curr_filename, yylineno,
4182 "unexpected character '%c' in parameter list for macro %s",
4183 c, macname);
4184 return(NO);
4185 }
4186 if (c == ')') {
4187 /* return to input so we can
4188 * read on next call to know
4189 * we are at end of list */
4190 unput(c);
4191 }
4192 return(YES);
4193 }
4194 }
4195 }
4196 else if (c == ')') {
4197 /* end of parameter list */
4198 return(NO);
4199 }
4200 else {
4201 l_yyerror(Curr_filename, yylineno,
4202 "illegal macro parameter name starting at character '%c'", c);
4203 return(NO);
4204 }
4205 }
4206 yyerror("unexpected end-of-file in macro parameter list");
4207 return(NO);
4208 }
4209 \f
4210
4211 /* Read input, skipping any white space. White space is space, tab, return,
4212 * backslashed return, newline, or backslashed newline.
4213 * Backslashed anything else will leave the backslash in the input
4214 * without the thing that followed it.
4215 */
4216
4217
4218 static void
4219 skipwhite()
4220
4221 {
4222 int c;
4223
4224 while ((c = input()) != '\0' && c != EOF) {
4225 if (c == ' ' || c == '\t' || c == '\n' || c == '\r') {
4226 continue;
4227 }
4228
4229 if (c == '\\') {
4230 if ((c = input()) == '\n' || c == '\r' ) {
4231 /* backslashed newline/return is white space */
4232 continue;
4233 }
4234 else {
4235 unput('\\');
4236 return;
4237 }
4238 }
4239 /* non-space. Stuff back into input and return */
4240 unput(c);
4241 return;
4242 }
4243 }
4244
4245 \f
4246
4247 /* collect arguments to a call to a macro with parameters */
4248
4249 int
4250 get_mac_arguments(macname, num_args)
4251
4252 char *macname; /* name of the macro, to use in error messages */
4253 int num_args; /* number of arguments expected */
4254
4255 {
4256 int c; /* input character */
4257 char *argbuff; /* for storing argument */
4258 int n; /* number of arguments collected so far */
4259
4260
4261 /* first skip any white space before the opening parenthesis */
4262 skipwhite();
4263
4264 /* next thing better be open parenthesis */
4265 if ((c = input()) != '(') {
4266
4267 l_yyerror(Curr_filename, yylineno,
4268 "macro %s has parameters, but has no '(' on call",
4269 macname);
4270
4271 /* Trying to parse anything more in this file might be
4272 * almost hopeless. But we'll try just skipping to end of
4273 * the line and returning failure and hope for the best. */
4274 while (((c = input()) != '\0') && (c != EOF) &&
4275 (c != '\n') && (c != '\r')) {
4276 ;
4277 }
4278 return(NO);
4279 }
4280
4281 /* init to no argument collected. Space will be malloc-ed when needed */
4282 argbuff = (char *) 0;
4283 n = 0;
4284
4285 /* Now collect arguments. Read and process input
4286 * one character at a time */
4287 while ((c = input()) != '\0' && c != EOF) {
4288 switch (c) {
4289 case '\\':
4290 /* something that has been escaped with a backslash.
4291 * Get the next character and do appropriate escape. */
4292 switch (c = input()) {
4293 default:
4294 /* some unexpected backslashed thing */
4295 l_warning(Curr_filename, yylineno,
4296 "dubious escape \\%c in argument %d of macro %s",
4297 c, n+1, macname);
4298 /* fall through to use the literal, to be
4299 * sort of consistent with how C handles
4300 * such dubious escapes */
4301 /*FALLTHRU*/
4302
4303 case ',': /* would normally mean end of argument */
4304 case ')': /* would normally mean end of argument list */
4305 case '\\': /* user wants a real backslash */
4306 /* escaped to allow literal, so copy the
4307 * character without backslash to buffer */
4308 argbuff = add2argbuff(argbuff, c);
4309 break;
4310
4311 case '\n':
4312 /* user wanted to put a newline in the input
4313 * to make it look better, but doesn't really
4314 * want a newline here in the argument text,
4315 * so just skip over this character */
4316 break;
4317
4318 case '\r':
4319 /* If by itself, treat like newline.
4320 * If immediately followed by a newline,
4321 * treat the pair like newline.
4322 */
4323 if ((c = input()) != '\n') {
4324 /* Followed by something other than
4325 * newline, so push back into input.
4326 */
4327 if (c != EOF) {
4328 unput(c);
4329 }
4330 }
4331 break;
4332 case '\0':
4333 l_yyerror(Curr_filename, yylineno,
4334 "unexpected end of file in macro %s argument %d",
4335 macname, n + 1);
4336 return(NO);
4337 }
4338 break;
4339
4340 case ',':
4341 /* This marks the end of an argument.
4342 * Process this argument, then reset for next one */
4343 if (++n <= num_args) {
4344 set_parm_value(macname, argbuff, n);
4345 }
4346 else {
4347 /* discard this one. It's extra. But wait
4348 * to print error until we find the ),
4349 * so if they have lots of extras we only
4350 * print one message */
4351 if (argbuff != (char *) 0) {
4352 FREE(argbuff);
4353 }
4354 }
4355
4356 /* reset for next argument */
4357 argbuff = (char *) 0;
4358 break;
4359
4360 case ')':
4361 /* this marks end of arguments. Save the last one
4362 * collected and signal success */
4363 if (++n == num_args) {
4364 /* good. got exactly the right number of
4365 * arguments. Save the last one and
4366 * declare victory */
4367 set_parm_value(macname, argbuff, n);
4368 return(YES);
4369 }
4370 else {
4371 l_yyerror(Curr_filename, yylineno,
4372 "too %s arguments to macro %s (expected %d, got %d)",
4373 ((n < num_args) ? "few" : "many"),
4374 macname, num_args, n);
4375 }
4376 return(NO);
4377
4378 default:
4379 /* ordinary character. Save it away */
4380 argbuff = add2argbuff(argbuff, c);
4381 break;
4382 }
4383 }
4384
4385 l_yyerror(Curr_filename, yylineno, "unexpected end of file in call to %s macro",
4386 macname);
4387 return(NO);
4388 }
4389 \f
4390
4391 /* skip input until find an else or endif. If find else, return YES, if find
4392 * endif or end of file, return NO */
4393 /* It probably would be possible to get lex to do this pattern matching with
4394 * appropriate start conditions, but it seems like too much trouble to figure
4395 * that out. Just need to look for 2 simple patterns, so do simple state
4396 * machine */
4397
4398 typedef enum { STATE_NONE, STATE_E, STATE_EL, STATE_ELS, STATE_EN,
4399 STATE_END, STATE_ENDI, STATE_I, STATE_IF, STATE_IFD,
4400 STATE_IFDE } STATE;
4401
4402 static int
4403 skip2else()
4404
4405 {
4406 int c; /* char read from input */
4407 STATE state = STATE_NONE;
4408 int escaped; /* true if got odd number of backslashes */
4409 int saved_ppcomments; /* saved value of Ppcomments */
4410
4411
4412 /* When skipping stuff in if/else, we don't want anything to come
4413 * out when using -E -C. Since this function can call to_eol(),
4414 * we have to convince it -C isn't on even if it is. */
4415 saved_ppcomments = Ppcomments;
4416 Ppcomments = NO;
4417
4418 /* read characters. Based on current character and state, go into
4419 * new state if appropriate. */
4420 while ((c = input()) != 0 && c != EOF) {
4421
4422 switch (c) {
4423
4424 case 'e':
4425 if (state == STATE_ELS) {
4426 YY_FLUSH_BUFFER;
4427 Ppcomments = saved_ppcomments;
4428 return(YES);
4429 }
4430 else if (state == STATE_IFD) {
4431 state = STATE_IFDE;
4432 }
4433 else {
4434 state = STATE_E;
4435 }
4436 break;
4437
4438 case 'l':
4439 state = (state == STATE_E ? STATE_EL : STATE_NONE);
4440 break;
4441
4442 case 's':
4443 state = (state == STATE_EL ? STATE_ELS : STATE_NONE);
4444 break;
4445
4446 case 'n':
4447 if (state == STATE_E) {
4448 state = STATE_EN;
4449 }
4450 else if (state == STATE_IF) {
4451 /* for ifndef. Treat this like ifdef. There is
4452 * a tiny bug here in that user could input
4453 * ifnnndef and we would interpret that as
4454 * ifndef. However, since if we're in this
4455 * function, we are skipping stuff that is
4456 * ifdef-ed out, who cares if we miss some
4457 * off-the-wall syntax error? */
4458 ;
4459 }
4460 else {
4461 state = STATE_NONE;
4462 }
4463 break;
4464
4465 case 'd':
4466 if (state == STATE_EN) {
4467 state = STATE_END;
4468 }
4469 else if (state == STATE_IF) {
4470 state = STATE_IFD;
4471 }
4472 else {
4473 state = STATE_NONE;
4474 }
4475 break;
4476
4477 case 'i':
4478 state = (state == STATE_END ? STATE_ENDI : STATE_I);
4479 break;
4480
4481 case 'f':
4482 if (state == STATE_ENDI) {
4483 YY_FLUSH_BUFFER;
4484 Ppcomments = saved_ppcomments;
4485 return(NO);
4486 }
4487 else if (state == STATE_I) {
4488 state = STATE_IF;
4489 }
4490 else if (state == STATE_IFDE) {
4491 if (skip2else() == YES) {
4492 if (skip2else() == YES) {
4493 yyerror("else without ifdef");
4494 }
4495 }
4496 }
4497 else {
4498 state = STATE_NONE;
4499 }
4500 break;
4501
4502 case '/':
4503 if ((c = input()) == '/') {
4504 /* Skip past comments, in case they happen to
4505 * contain 'else' or 'endif'
4506 * that could confuse us. */
4507 to_eol();
4508 }
4509 else if (c != 0 && c != EOF) {
4510 unput(c);
4511 }
4512 state = STATE_NONE;
4513 break;
4514
4515 case '"':
4516 /* Skip strings, in case they happen to contain
4517 * 'else' or 'endif' that could confuse us. */
4518 escaped = 0;
4519 while ((c = input()) != 0 && c != EOF) {
4520 if (c == '"' && ! escaped) {
4521 break;
4522 }
4523 if (c == '\\') {
4524 escaped ^= 1;
4525 }
4526 else {
4527 escaped = 0;
4528 }
4529 }
4530 state = STATE_NONE;
4531 break;
4532 default:
4533 if (state == STATE_IF) {
4534 /* skip to else or endif */
4535 if (skip2else() == YES) {
4536 /* if was an else, need to continue
4537 * to the endif */
4538 if (skip2else() == YES) {
4539 yyerror("else without ifdef");
4540 }
4541 }
4542 }
4543 state = STATE_NONE;
4544 break;
4545 }
4546 }
4547
4548 /* end of file */
4549 yyerror("unexpected end-of-file: missing endif");
4550 return(NO);
4551 }
4552 \f
4553
4554 /* at the very end, verify all if, ifdef, and ifndef clauses are closed */
4555
4556 void
4557 chk_ifdefs()
4558
4559 {
4560 if (If_count != 0) {
4561 yyerror("missing endif");
4562 }
4563 }
4564 \f
4565
4566 /* check if there is an odd number of backslashes starting before the final
4567 * double quote. If so, return YES--the last backslash applies to the double
4568 * quote. Otherwise return NO, because the backslash was itself backslashed
4569 * which means user wants to end string with a backslash */
4570
4571 static int
4572 oddbs()
4573
4574 {
4575 int i;
4576 int bscount = 0; /* count of backslashes */
4577
4578 for (i = yyleng - 2; i >= 0; i--) {
4579 if (yytext[i] == '\\') {
4580 bscount++;
4581 }
4582 else {
4583 break;
4584 }
4585 }
4586 return ((bscount & 1) ? YES: NO);
4587 }
4588 \f
4589
4590 /* Flex has the (documented) limitation that you can't change the value
4591 * of yyleng in the same rule action as you use yymore. So when there is
4592 * an escaped double quote mark inside a string, we can't remove it and
4593 * also use yymore in the same rule. So we collect the whole string,
4594 * including their embedded quote marks and their backslashes,
4595 * then call this function which moves the characters back to get rid of
4596 * the backslashes, and adjusts yyleng appropriately.
4597 */
4598
4599 static void
4600 embedquotes()
4601
4602 {
4603 int i;
4604 int moveback;
4605
4606 if (Escapedquotes < 1) {
4607 /* No escaped quote found, so nothing to do here */
4608 return;
4609 }
4610
4611 moveback = 0;
4612 for (i = 1; i < yyleng; i++) {
4613 /* if there is a quote inside the string,
4614 * it must have been escaped */
4615 if (yytext[i] == '"' && yytext[i-1] == '\\' && i < yyleng - 1) {
4616 moveback++;
4617 }
4618 /* If we have come across one or more embedded quotes,
4619 * move bytes to the left one position for each quote,
4620 * which gets rid of the backslashes. */
4621 if (moveback > 0) {
4622 yytext[i-moveback] = yytext[i];
4623 }
4624 }
4625 yytext[i-moveback] = '\0';
4626 yyleng -= Escapedquotes;
4627 Escapedquotes = 0;
4628
4629 }
4630 \f
4631
4632 /* Mapping of Latin-1 non-ASCII characters to their Mup names. If Mup
4633 * doesn't support the value, or the value is undefined in Latin-1,
4634 * value in this table is 0. */
4635 static char *latin1_to_mup_name[] = {
4636 /* 128 */ 0,
4637 /* 129 */ 0,
4638 /* 130 */ 0,
4639 /* 131 */ 0,
4640 /* 132 */ 0,
4641 /* 133 */ 0,
4642 /* 134 */ 0,
4643 /* 135 */ 0,
4644 /* 136 */ 0,
4645 /* 137 */ 0,
4646 /* 138 */ 0,
4647 /* 139 */ 0,
4648 /* 140 */ 0,
4649 /* 141 */ 0,
4650 /* 142 */ 0,
4651 /* 143 */ 0,
4652 /* 144 */ 0,
4653 /* 145 */ 0,
4654 /* 146 */ 0,
4655 /* 147 */ 0,
4656 /* 148 */ 0,
4657 /* 149 */ 0,
4658 /* 150 */ 0,
4659 /* 151 */ 0,
4660 /* 152 */ 0,
4661 /* 153 */ 0,
4662 /* 154 */ 0,
4663 /* 155 */ 0,
4664 /* 156 */ 0,
4665 /* 157 */ 0,
4666 /* 158 */ 0,
4667 /* 159 */ 0,
4668 /* 160 */ 0,
4669 /* 161 */ "exclamdown",
4670 /* 162 */ 0,
4671 /* 163 */ "sterling",
4672 /* 164 */ 0,
4673 /* 165 */ "yen",
4674 /* 166 */ 0,
4675 /* 167 */ 0,
4676 /* 168 */ "dieresis",
4677 /* 169 */ "copyright",
4678 /* 170 */ "ordfeminine",
4679 /* 171 */ "<<",
4680 /* 172 */ 0,
4681 /* 173 */ "emdash",
4682 /* 174 */ 0,
4683 /* 175 */ "macron",
4684 /* 176 */ "ring",
4685 /* 177 */ 0,
4686 /* 178 */ 0,
4687 /* 179 */ 0,
4688 /* 180 */ "acute",
4689 /* 181 */ 0,
4690 /* 182 */ 0,
4691 /* 183 */ 0,
4692 /* 184 */ "cedilla",
4693 /* 185 */ 0,
4694 /* 186 */ 0,
4695 /* 187 */ ">>",
4696 /* 188 */ 0,
4697 /* 189 */ 0,
4698 /* 190 */ 0,
4699 /* 191 */ "questiondown",
4700 /* 192 */ "A`",
4701 /* 193 */ "A'",
4702 /* 194 */ "A^",
4703 /* 195 */ "A~",
4704 /* 196 */ "A:",
4705 /* 197 */ "Ao",
4706 /* 198 */ "AE",
4707 /* 199 */ "C,",
4708 /* 200 */ "E`",
4709 /* 201 */ "E'",
4710 /* 202 */ "E^",
4711 /* 203 */ "E:",
4712 /* 204 */ "I`",
4713 /* 205 */ "I'",
4714 /* 206 */ "I^",
4715 /* 207 */ "I:",
4716 /* 208 */ 0,
4717 /* 209 */ 0,
4718 /* 210 */ "N~",
4719 /* 211 */ "O`",
4720 /* 212 */ "O'",
4721 /* 213 */ "O^",
4722 /* 214 */ "O~",
4723 /* 215 */ "O:",
4724 /* 216 */ "U`",
4725 /* 217 */ "U'",
4726 /* 218 */ "U^",
4727 /* 219 */ "U:",
4728 /* 220 */ 0,
4729 /* 221 */ 0,
4730 /* 222 */ 0,
4731 /* 223 */ 0,
4732 /* 224 */ "a`",
4733 /* 225 */ "a'",
4734 /* 226 */ "a^",
4735 /* 227 */ "a~",
4736 /* 228 */ "a:",
4737 /* 229 */ "ao",
4738 /* 230 */ "ae",
4739 /* 231 */ "c,",
4740 /* 232 */ "e`",
4741 /* 233 */ "e'",
4742 /* 234 */ "e^",
4743 /* 235 */ "e:",
4744 /* 236 */ "i`",
4745 /* 237 */ "i'",
4746 /* 238 */ "i^",
4747 /* 239 */ "i:",
4748 /* 240 */ 0,
4749 /* 241 */ "n~",
4750 /* 242 */ "o`",
4751 /* 243 */ "o'",
4752 /* 244 */ "o^",
4753 /* 245 */ "o~",
4754 /* 246 */ "o:",
4755 /* 247 */ 0,
4756 /* 248 */ "o/",
4757 /* 249 */ "u`",
4758 /* 250 */ "u'",
4759 /* 251 */ "u^",
4760 /* 252 */ "u:",
4761 /* 253 */ 0,
4762 /* 254 */ 0,
4763 /* 255 */ "y:"
4764 };
4765
4766 /* This function goes through the string currently in yytext, and if it finds
4767 * any non-ASCII characters that can be transformed into the non-ASCII
4768 * characters that Mup supports through the \(....) escape mechanism,
4769 * it replaces them with the appropriate escape strings.
4770 * This functionality probably logically belongs in fix_string(),
4771 * but for historical reasons, that function is not allowed
4772 * to increase the length of a string,
4773 * so it's easier to do this step separately.
4774 */
4775
4776 static void
4777 xpand_non_ascii()
4778 {
4779 int index; /* walk through yytext */
4780 int start; /* index of first non-ascii */
4781 int value; /* value of a character */
4782 char *replacement; /* Mup's name for the non_ascii */
4783 static char *tmp_buff = 0; /* for expanded version */
4784 int tmp_index; /* index into tmp_buff */
4785
4786 if (Raw_string == YES) {
4787 /* Collecting a string for something like raw PostScript,
4788 * that shouldn't be converted. */
4789 return;
4790 }
4791
4792 /* see if any non-ascii */
4793 for (index = 0; index < yyleng; index++) {
4794 if (yytext[index] & 0x80) {
4795 break;
4796 }
4797 }
4798
4799 if (index == yyleng) {
4800 /* no non-ascii in current string, so leave it as is */
4801 return;
4802 }
4803
4804 /* If we don't have a buffer yet, allocate it. If an input file
4805 * has no non-ascii in it at all, we'll never get here, and no
4806 * memory will be wasted on a buffer we don't need. If we do get
4807 * here, chances are there will be lots more non-ascii, so we
4808 * keep the buffer around, rather than constantly doing malloc/free. */
4809 if (tmp_buff == 0) {
4810 MALLOCA(char, tmp_buff, YYLMAX);
4811 }
4812
4813 /* only need to rewrite the part of the string
4814 * beyond the first non-ascii, so remember where we are now */
4815 start = index;
4816
4817 /* walk through, converting non-ascii to their Mup names */
4818 for (tmp_index = 0; index < yyleng; index++) {
4819
4820 if (yytext[index] & 0x80) {
4821 /* Look up replacement. The replacement table
4822 * only contains entries for 128-255,
4823 * so adjust the value of the non-ascii character
4824 * to get the appropriate array offset. */
4825 value = ((int)(yytext[index])) & 0xff;
4826 replacement = latin1_to_mup_name[value - 128];
4827
4828 if (replacement == (char *) 0) {
4829 /* Apparently user is able to input a
4830 * character that Mup doesn't support... */
4831 l_yyerror(Curr_filename, yylineno,
4832 "unsupported non-ASCII character (0x%x) in string",
4833 yytext[index] & 0xff);
4834 }
4835 else {
4836 (void) sprintf(tmp_buff + tmp_index, "\\(%s)",
4837 replacement);
4838 tmp_index += strlen(replacement) + 3;
4839 }
4840 }
4841 else {
4842 /* normal ASCII character; copy as is */
4843 tmp_buff[tmp_index++] = yytext[index];
4844 }
4845 }
4846
4847 /* Now we can copy the expanded string back into yytext and update
4848 * yyleng so that all later code will think the user typed in the
4849 * expanded version themselves. */
4850 (void) strncpy(yytext + start, tmp_buff, tmp_index);
4851 yyleng = start + tmp_index;
4852 yytext[yyleng] = '\0';
4853 }
4854 \f
4855
4856 /* push a character back into input. This allows another C file to
4857 * access the unput macro */
4858
4859 void
4860 pushback(c)
4861
4862 int c;
4863
4864 {
4865 unput(c);
4866 }
4867 \f
4868
4869 /* this function will do nothing unless the "preprocessor only" flag is on,
4870 * in which case it will print the current token
4871 */
4872
4873 static void
4874 ignore()
4875
4876 {
4877 if (Preproc == YES) {
4878 printf("%s", yytext);
4879 }
4880 }
4881 \f
4882
4883 /* When collecting raw PostScript, we don't want to convert non-ASCII to
4884 * Mup escapes. These functions turn the raw processing on and off. */
4885
4886 void
4887 begin_raw()
4888 {
4889 Raw_string = YES;
4890 }
4891
4892 void
4893 end_raw()
4894 {
4895 Raw_string = NO;
4896 }
4897 \f
4898
4899 /* Create a new flex buffer for the given input file and switch to it */
4900
4901 void
4902 new_lexbuff(file)
4903
4904 FILE * file;
4905
4906 {
4907 struct Lexbuffer *newbuff;
4908
4909 if (Lexlist == 0) {
4910 MALLOC(Lexbuffer, newbuff, 1);
4911 newbuff->next = 0;
4912 newbuff->buff = YY_CURRENT_BUFFER;
4913 Lexlist = newbuff;
4914 }
4915
4916 MALLOC(Lexbuffer, newbuff, 1);
4917 newbuff->next = Lexlist;
4918 Lexlist = newbuff;
4919 newbuff->buff = yy_create_buffer(file, YY_BUF_SIZE);
4920 yy_switch_to_buffer(newbuff->buff);
4921 }
4922
4923 /* Switch back to previous flex buffer on the stack */
4924
4925 void
4926 del_lexbuff()
4927
4928 {
4929 struct Lexbuffer *nextbuff;
4930
4931 if (Lexlist == 0) {
4932 pfatal("attempt to pop from empty lex buffer stack");
4933 }
4934 nextbuff = Lexlist->next;
4935 yy_delete_buffer(Lexlist->buff);
4936 FREE(Lexlist);
4937 Lexlist = nextbuff;
4938 yy_switch_to_buffer(nextbuff->buff);
4939 }
4940 \f
4941
4942 /* The contents of an "if clause" is stored in compressed form in
4943 * Ifclause_buff, and eventually passed to a mini-parser. This function
4944 * add tokens to the buffer. Compressed format:
4945 * input compressed token
4946 * -------------------------------------
4947 * ( (
4948 * ) )
4949 * ! !
4950 * ~ ~
4951 * * *
4952 * / /
4953 * % %
4954 * + +
4955 * - -
4956 * << l
4957 * >> r
4958 * < <
4959 * > >
4960 * <= L
4961 * >= G
4962 * == E
4963 * != N
4964 * & &
4965 * ^ ^
4966 * | |
4967 * && a
4968 * || o
4969 * ? ?
4970 * : :
4971 * defined(X) T or F depending on whether X is defined or not
4972 * literal number # followed by 4 bytes in MSB order
4973 * macro name # followed by macro's value as 4 bytes in MSB order
4974 */
4975
4976 static void
4977 add_ifclause(token)
4978
4979 int token;
4980
4981 {
4982 if (If_length >= sizeof(Ifclause_buff)) {
4983 ufatal("Sorry, 'if' clause is too complex");
4984 }
4985 Ifclause_buff[If_length++] = (unsigned char) (token & 0xff);
4986 }
4987
4988 /* We store numbers in the if-clause compressed form as '#' followed by
4989 * 4 bytes in MSB order.
4990 */
4991
4992
4993 static void
4994 addnum_ifclause(value)
4995
4996 int value;
4997
4998 {
4999 int shift;
5000
5001 add_ifclause('#');
5002 for (shift = 24; shift >= 0; shift -= 8) {
5003 add_ifclause((value >> shift) & 0xff);
5004 }
5005 }
5006
5007
5008 /* Add number in ASCII. Convert to value and add */
5009
5010 static void
5011 addnumstr_ifclause(numtoken)
5012
5013 char *numtoken;
5014
5015 {
5016 int value;
5017 char *end_p;
5018
5019 #ifdef ERANGE
5020 errno = 0;
5021 #endif
5022 value = strtol(numtoken, &end_p, 0);
5023 if (*end_p != '\0') {
5024 /* Lexer shouldn't allow unparsable number,
5025 * so if strtol didn't get to end, must be too big */
5026 yyerror("bad number (probably out of range)");
5027 }
5028 #ifdef ERANGE
5029 /* Additional range check assuming strtol sets this properly
5030 * on all systems. */
5031 else if (errno == ERANGE) {
5032 yyerror("number is out of range");
5033 }
5034 #endif
5035
5036 addnum_ifclause(value);
5037 }
5038 \f
5039
5040 /* Give error message for invalid input character, as actual character
5041 * if printable, otherwise as hex value. */
5042
5043 static void
5044 bad_input(where)
5045
5046 char *where; /* describes where the bad input was found */
5047
5048 {
5049 if (isgraph(yytext[0])) {
5050 l_yyerror(Curr_filename, yylineno,
5051 "invalid character in %s: '%c'",
5052 where, yytext[0]);
5053 }
5054 else {
5055 l_yyerror(Curr_filename, yylineno,
5056 "invalid character in %s: 0x%x",
5057 where, (int) yytext[0]);
5058 }
5059 }
Music publishing software, including Debian packaging.