chiark / gitweb /
~mdw / mup / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Import upstream version 5.3.
[mup] / mup / mup / lex.c
CommitLineData
69695f33
MW		 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
99typedef struct yy_buffer_state *YY_BUFFER_STATE;
100
101extern int yyleng;
102extern 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 */
141typedef unsigned int yy_size_t;
142
143
144struct 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
201static 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. */
211static char yy_hold_char;
212
213static int yy_n_chars; /* number of characters read into yy_ch_buf */
214
215
216int yyleng;
217
218/* Points to current character in buffer. */
219static char *yy_c_buf_p = (char *) 0;
220static int yy_init = 1; /* whether we need to initialize */
221static 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 */
226static int yy_did_buffer_switch_on_eof;
227
228void yyrestart YY_PROTO(( FILE *input_file ));
229
230void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
231void yy_load_buffer_state YY_PROTO(( void ));
232YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
233void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
234void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
235void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
236#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
237
238YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
239YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
240YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
241
242static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
243static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
244static 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
264typedef unsigned char YY_CHAR;
265FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
266typedef int yy_state_type;
267extern char yytext[];
268
269
270static yy_state_type yy_get_previous_state YY_PROTO(( void ));
271static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
272static int yy_get_next_buffer YY_PROTO(( void ));
273static 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
293static 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
426static 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
458static 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
469static 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
603static 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
737static 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
909static 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
1081static yy_state_type yy_last_accepting_state;
1082static 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
1088static int yy_more_offset = 0;
1089static 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
1102char yytext[YYLMAX];
1103char *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. */
1128extern 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 */
1150struct Lexbuffer {
1151 YY_BUFFER_STATE buff;
1152 struct Lexbuffer *next;
1153};
1154static 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. */
1158static 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. */
1162unsigned char Ifclause_buff[1024];
1163int If_length; /* how much of Ifclause_buffer is used */
1164static void add_ifclause P((int token));
1165static void addnum_ifclause P((int value));
1166static void addnumstr_ifclause P((char *numtoken));
1167extern void set_ifclause_buffer P((unsigned char * buffer, int length));
1168extern int ifparse P((void));
1169static void bad_input P((char *where));
1170
1171int yylineno;
1172
1173
1174static int If_count = 0; /* how many if, ifdef, and ifndef constructs in progress */
1175static int If_errs; /* to try to deduce missing 'then' */
1176static int Escapedquotes = 0;
1177static int Raw_string = NO; /* YES if doing raw string (not expanding
1178 * any non-ASCII into Mup escapes) */
1179
1180static int get_a_param P((char *macname));
1181static void skipwhite P((void));
1182static void to_eol P((void));
1183static int skip2else P((void));
1184static int oddbs P((void));
1185static void embedquotes P((void));
1186static void xpand_non_ascii P((void));
1187static 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
1198extern "C" int yywrap YY_PROTO(( void ));
1199#else
1200extern int yywrap YY_PROTO(( void ));
1201#endif
1202#endif
1203
1204#ifndef YY_NO_UNPUT
1205static void yyunput YY_PROTO(( int c, char *buf_ptr ));
1206#endif
1207
1208#ifndef yytext_ptr
1209static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
1210#endif
1211
1212#ifdef YY_NEED_STRLEN
1213static int yy_flex_strlen YY_PROTO(( yyconst char * ));
1214#endif
1215
1216#ifndef YY_NO_INPUT
1217#ifdef __cplusplus
1218static int yyinput YY_PROTO(( void ));
1219#else
1220static int input YY_PROTO(( void ));
1221#endif
1222#endif
1223
1224#if YY_STACK_USED
1225static int yy_start_stack_ptr = 0;
1226static int yy_start_stack_depth = 0;
1227static int *yy_start_stack = 0;
1228#ifndef YY_NO_PUSH_STATE
1229static void yy_push_state YY_PROTO(( int new_state ));
1230#endif
1231#ifndef YY_NO_POP_STATE
1232static void yy_pop_state YY_PROTO(( void ));
1233#endif
1234#ifndef YY_NO_TOP_STATE
1235static 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
1245YY_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
1335YY_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;
1382yy_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
1402yy_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
1414do_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
1426case 1:
1427YY_RULE_SETUP
1428#line 93 "lex.l"
1429{ yylval.intval = FONT_TR; return(T_FONT); }
1430 YY_BREAK
1431case 2:
1432YY_RULE_SETUP
1433#line 94 "lex.l"
1434{ yylval.intval = FONT_TB; return(T_FONT); }
1435 YY_BREAK
1436case 3:
1437YY_RULE_SETUP
1438#line 95 "lex.l"
1439{ yylval.intval = FONT_TX; return(T_FONT); }
1440 YY_BREAK
1441case 4:
1442YY_RULE_SETUP
1443#line 96 "lex.l"
1444{ yylval.intval = FONT_TI; return(T_FONT); }
1445 YY_BREAK
1446case 5:
1447YY_RULE_SETUP
1448#line 98 "lex.l"
1449{ yylval.intval = BASE_TIMES; return(T_FFAMILY); }
1450 YY_BREAK
1451case 6:
1452YY_RULE_SETUP
1453#line 99 "lex.l"
1454{ yylval.intval = BASE_AVANTGARDE; return(T_FFAMILY); }
1455 YY_BREAK
1456case 7:
1457YY_RULE_SETUP
1458#line 100 "lex.l"
1459{ yylval.intval = BASE_COURIER; return(T_FFAMILY); }
1460 YY_BREAK
1461case 8:
1462YY_RULE_SETUP
1463#line 101 "lex.l"
1464{ yylval.intval = BASE_HELVETICA; return(T_FFAMILY); }
1465 YY_BREAK
1466case 9:
1467YY_RULE_SETUP
1468#line 102 "lex.l"
1469{ yylval.intval = BASE_BOOKMAN; return(T_FFAMILY); }
1470 YY_BREAK
1471case 10:
1472YY_RULE_SETUP
1473#line 103 "lex.l"
1474{ yylval.intval = BASE_NEWCENTURY; return(T_FFAMILY); }
1475 YY_BREAK
1476case 11:
1477YY_RULE_SETUP
1478#line 104 "lex.l"
1479{ yylval.intval = BASE_PALATINO; return(T_FFAMILY); }
1480 YY_BREAK
1481case 12:
1482YY_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
1490case 13:
1491YY_RULE_SETUP
1492#line 112 "lex.l"
1493{
1494 yytext[yyleng - 1] = '\0';
1495 parse_font_file(strchr(yytext, '"') + 1);
1496 }
1497 YY_BREAK
1498case 14:
1499#line 118 "lex.l"
1500case 15:
1501YY_RULE_SETUP
1502#line 118 "lex.l"
1503{ yylval.intval = DIMINISHED; return(T_XPOS_INT); }
1504 YY_BREAK
1505case 16:
1506#line 120 "lex.l"
1507case 17:
1508YY_RULE_SETUP
1509#line 120 "lex.l"
1510{ yylval.intval = AUGMENTED; return(T_XPOS_INT); }
1511 YY_BREAK
1512case 18:
1513#line 122 "lex.l"
1514case 19:
1515YY_RULE_SETUP
1516#line 122 "lex.l"
1517{ yylval.intval = PERFECT; return(T_XPOS_INT); }
1518 YY_BREAK
1519case 20:
1520#line 124 "lex.l"
1521case 21:
1522YY_RULE_SETUP
1523#line 124 "lex.l"
1524{ yylval.intval = MINOR; return(T_XPOS_INT); }
1525 YY_BREAK
1526case 22:
1527#line 126 "lex.l"
1528case 23:
1529YY_RULE_SETUP
1530#line 126 "lex.l"
1531{ yylval.intval = MAJOR; return(T_XPOS_INT); }
1532 YY_BREAK
1533case 24:
1534YY_RULE_SETUP
1535#line 128 "lex.l"
1536return(T_TITLE);
1537 YY_BREAK
1538case 25:
1539YY_RULE_SETUP
1540#line 130 "lex.l"
1541return(T_SCORE);
1542 YY_BREAK
1543case 26:
1544YY_RULE_SETUP
1545#line 131 "lex.l"
1546return(T_STAFF);
1547 YY_BREAK
1548case 27:
1549YY_RULE_SETUP
1550#line 132 "lex.l"
1551return(T_VOICE);
1552 YY_BREAK
1553case 28:
1554YY_RULE_SETUP
1555#line 133 "lex.l"
1556{ yylval.intval = C_HEADER; return(T_BLOCKHEAD); }
1557 YY_BREAK
1558case 29:
1559YY_RULE_SETUP
1560#line 134 "lex.l"
1561{ yylval.intval = C_FOOTER; return(T_BLOCKHEAD); }
1562 YY_BREAK
1563case 30:
1564YY_RULE_SETUP
1565#line 135 "lex.l"
1566{ yylval.intval = C_HEAD2; return(T_BLOCKHEAD); }
1567 YY_BREAK
1568case 31:
1569YY_RULE_SETUP
1570#line 136 "lex.l"
1571{ yylval.intval = C_FOOT2; return(T_BLOCKHEAD); }
1572 YY_BREAK
1573case 32:
1574YY_RULE_SETUP
1575#line 137 "lex.l"
1576{ yylval.intval = C_TOP; return(T_BLOCKHEAD); }
1577 YY_BREAK
1578case 33:
1579YY_RULE_SETUP
1580#line 138 "lex.l"
1581{ yylval.intval = C_BOT; return(T_BLOCKHEAD); }
1582 YY_BREAK
1583case 34:
1584YY_RULE_SETUP
1585#line 139 "lex.l"
1586{ yylval.intval = C_TOP2; return(T_BLOCKHEAD); }
1587 YY_BREAK
1588case 35:
1589YY_RULE_SETUP
1590#line 140 "lex.l"
1591{ yylval.intval = C_BOT2; return(T_BLOCKHEAD); }
1592 YY_BREAK
1593case 36:
1594YY_RULE_SETUP
1595#line 141 "lex.l"
1596{ yylval.intval = C_BLOCK; return(T_BLOCKHEAD); }
1597 YY_BREAK
1598case 37:
1599YY_RULE_SETUP
1600#line 142 "lex.l"
1601return(T_GRIDS);
1602 YY_BREAK
1603case 38:
1604YY_RULE_SETUP
1605#line 143 "lex.l"
1606return(T_MUSIC);
1607 YY_BREAK
1608case 39:
1609YY_RULE_SETUP
1610#line 144 "lex.l"
1611return(T_HEADSHAPES);
1612 YY_BREAK
1613case 40:
1614YY_RULE_SETUP
1615#line 146 "lex.l"
1616return(T_NUMBER);
1617 YY_BREAK
1618case 41:
1619YY_RULE_SETUP
1620#line 148 "lex.l"
1621return(T_EQUAL);
1622 YY_BREAK
1623case 42:
1624YY_RULE_SETUP
1625#line 149 "lex.l"
1626return(T_SEMICOLON);
1627 YY_BREAK
1628case 43:
1629#line 151 "lex.l"
1630case 44:
1631#line 152 "lex.l"
1632case 45:
1633YY_RULE_SETUP
1634#line 152 "lex.l"
1635return(T_NEWLINE);
1636 YY_BREAK
1637case 46:
1638YY_RULE_SETUP
1639#line 153 "lex.l"
1640return(T_COLON);
1641 YY_BREAK
1642case 47:
1643YY_RULE_SETUP
1644#line 154 "lex.l"
1645return(T_COMMA);
1646 YY_BREAK
1647case 48:
1648YY_RULE_SETUP
1649#line 155 "lex.l"
1650return(T_LBRACKET);
1651 YY_BREAK
1652case 49:
1653YY_RULE_SETUP
1654#line 156 "lex.l"
1655return(T_RBRACKET);
1656 YY_BREAK
1657case 50:
1658YY_RULE_SETUP
1659#line 157 "lex.l"
1660return(T_LBRACE);
1661 YY_BREAK
1662case 51:
1663YY_RULE_SETUP
1664#line 158 "lex.l"
1665return(T_RBRACE);
1666 YY_BREAK
1667case 52:
1668YY_RULE_SETUP
1669#line 159 "lex.l"
1670return(T_LPAREN);
1671 YY_BREAK
1672case 53:
1673YY_RULE_SETUP
1674#line 160 "lex.l"
1675return(T_RPAREN);
1676 YY_BREAK
1677case 54:
1678YY_RULE_SETUP
1679#line 161 "lex.l"
1680return(T_EXCLAM);
1681 YY_BREAK
1682case 55:
1683YY_RULE_SETUP
1684#line 163 "lex.l"
1685{ BEGIN STRING; yymore(); }
1686 YY_BREAK
1687case 56:
1688YY_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
1708case 57:
1709YY_RULE_SETUP
1710#line 182 "lex.l"
1711return(T_DASH);
1712 YY_BREAK
1713case 58:
1714YY_RULE_SETUP
1715#line 183 "lex.l"
1716return(T_PLUS);
1717 YY_BREAK
1718case 59:
1719YY_RULE_SETUP
1720#line 185 "lex.l"
1721return(T_CUE);
1722 YY_BREAK
1723case 60:
1724YY_RULE_SETUP
1725#line 186 "lex.l"
1726return(T_GRACE);
1727 YY_BREAK
1728case 61:
1729YY_RULE_SETUP
1730#line 187 "lex.l"
1731return(T_XNOTE);
1732 YY_BREAK
1733case 62:
1734YY_RULE_SETUP
1735#line 188 "lex.l"
1736return(T_DIAM);
1737 YY_BREAK
1738case 63:
1739YY_RULE_SETUP
1740#line 189 "lex.l"
1741return(T_HO);
1742 YY_BREAK
1743case 64:
1744YY_RULE_SETUP
1745#line 190 "lex.l"
1746return(T_HS);
1747 YY_BREAK
1748case 65:
1749YY_RULE_SETUP
1750#line 191 "lex.l"
1751{ yylval.intval = L_NORMAL; return(T_TIE); }
1752 YY_BREAK
1753case 66:
1754YY_RULE_SETUP
1755#line 192 "lex.l"
1756{ yylval.intval = L_DOTTED; return(T_TIE); }
1757 YY_BREAK
1758case 67:
1759YY_RULE_SETUP
1760#line 193 "lex.l"
1761{ yylval.intval = L_DASHED; return(T_TIE); }
1762 YY_BREAK
1763case 68:
1764YY_RULE_SETUP
1765#line 194 "lex.l"
1766{ yylval.intval = L_NORMAL; return(T_SLUR); }
1767 YY_BREAK
1768case 69:
1769YY_RULE_SETUP
1770#line 195 "lex.l"
1771{ yylval.intval = L_DOTTED; return(T_SLUR); }
1772 YY_BREAK
1773case 70:
1774YY_RULE_SETUP
1775#line 196 "lex.l"
1776{ yylval.intval = L_DASHED; return(T_SLUR); }
1777 YY_BREAK
1778case 71:
1779YY_RULE_SETUP
1780#line 197 "lex.l"
1781return(T_WITH);
1782 YY_BREAK
1783case 72:
1784YY_RULE_SETUP
1785#line 198 "lex.l"
1786{ yylval.intval = PL_ABOVE; return(T_PLACE); }
1787 YY_BREAK
1788case 73:
1789YY_RULE_SETUP
1790#line 199 "lex.l"
1791{ yylval.intval = PL_BELOW; return(T_PLACE); }
1792 YY_BREAK
1793case 74:
1794YY_RULE_SETUP
1795#line 200 "lex.l"
1796{ yylval.intval = PL_BETWEEN; return(T_PLACE); }
1797 YY_BREAK
1798case 75:
1799YY_RULE_SETUP
1800#line 201 "lex.l"
1801return(T_ALL);
1802 YY_BREAK
1803case 76:
1804YY_RULE_SETUP
1805#line 202 "lex.l"
1806return(T_UP);
1807 YY_BREAK
1808case 77:
1809YY_RULE_SETUP
1810#line 203 "lex.l"
1811return(T_DOWN);
1812 YY_BREAK
1813case 78:
1814YY_RULE_SETUP
1815#line 204 "lex.l"
1816return(T_LEN);
1817 YY_BREAK
1818case 79:
1819YY_RULE_SETUP
1820#line 205 "lex.l"
1821return(T_SLASHMARK);
1822 YY_BREAK
1823case 80:
1824YY_RULE_SETUP
1825#line 206 "lex.l"
1826return(T_ALT);
1827 YY_BREAK
1828case 81:
1829YY_RULE_SETUP
1830#line 207 "lex.l"
1831return(T_BM);
1832 YY_BREAK
1833case 82:
1834YY_RULE_SETUP
1835#line 208 "lex.l"
1836return(T_ESBM);
1837 YY_BREAK
1838case 83:
1839YY_RULE_SETUP
1840#line 209 "lex.l"
1841return(T_EBM);
1842 YY_BREAK
1843case 84:
1844YY_RULE_SETUP
1845#line 210 "lex.l"
1846return(T_SLOPE);
1847 YY_BREAK
1848case 85:
1849YY_RULE_SETUP
1850#line 211 "lex.l"
1851{ yylval.intval = PAD; return(T_PAD); }
1852 YY_BREAK
1853case 86:
1854YY_RULE_SETUP
1855#line 213 "lex.l"
1856return(T_HAT);
1857 YY_BREAK
1858case 87:
1859YY_RULE_SETUP
1860#line 214 "lex.l"
1861{ yylval.intval = L_NORMAL; return(T_TILDE); }
1862 YY_BREAK
1863case 88:
1864YY_RULE_SETUP
1865#line 215 "lex.l"
1866{ yylval.intval = L_DOTTED; return(T_TILDE); }
1867 YY_BREAK
1868case 89:
1869YY_RULE_SETUP
1870#line 216 "lex.l"
1871{ yylval.intval = L_DASHED; return(T_TILDE); }
1872 YY_BREAK
1873case 90:
1874YY_RULE_SETUP
1875#line 217 "lex.l"
1876return(T_QUESTION);
1877 YY_BREAK
1878case 91:
1879YY_RULE_SETUP
1880#line 219 "lex.l"
1881return(T_DOT);
1882 YY_BREAK
1883case 92:
1884YY_RULE_SETUP
1885#line 220 "lex.l"
1886{ yylval.intval = 2; return(T_MULTIWHOLE); }
1887 YY_BREAK
1888case 93:
1889YY_RULE_SETUP
1890#line 221 "lex.l"
1891{ yylval.intval = 4; return(T_MULTIWHOLE); }
1892 YY_BREAK
1893case 94:
1894YY_RULE_SETUP
1895#line 223 "lex.l"
1896return(T_LET_M);
1897 YY_BREAK
1898case 95:
1899YY_RULE_SETUP
1900#line 224 "lex.l"
1901return(T_LET_R);
1902 YY_BREAK
1903case 96:
1904YY_RULE_SETUP
1905#line 225 "lex.l"
1906return(T_LET_S);
1907 YY_BREAK
1908case 97:
1909YY_RULE_SETUP
1910#line 226 "lex.l"
1911return(T_LET_U);
1912 YY_BREAK
1913case 98:
1914YY_RULE_SETUP
1915#line 227 "lex.l"
1916return(T_PITCH);
1917 YY_BREAK
1918case 99:
1919YY_RULE_SETUP
1920#line 228 "lex.l"
1921return(T_SHARP);
1922 YY_BREAK
1923case 100:
1924YY_RULE_SETUP
1925#line 229 "lex.l"
1926return(T_AMPERSAND);
1927 YY_BREAK
1928case 101:
1929YY_RULE_SETUP
1930#line 230 "lex.l"
1931return(T_LET_N);
1932 YY_BREAK
1933case 102:
1934YY_RULE_SETUP
1935#line 231 "lex.l"
1936return(T_LET_X);
1937 YY_BREAK
1938case 103:
1939YY_RULE_SETUP
1940#line 232 "lex.l"
1941return(T_LETTER); /* all letters not used for something special */
1942 YY_BREAK
1943case 104:
1944YY_RULE_SETUP
1945#line 233 "lex.l"
1946return(T_RPT);
1947 YY_BREAK
1948case 105:
1949YY_RULE_SETUP
1950#line 234 "lex.l"
1951return(T_LVAR); /* multi-character location variable names */
1952 YY_BREAK
1953case 106:
1954YY_RULE_SETUP
1955#line 235 "lex.l"
1956return(T_DBLFLAT);
1957 YY_BREAK
1958case 107:
1959YY_RULE_SETUP
1960#line 237 "lex.l"
1961return(T_LYRICS);
1962 YY_BREAK
1963case 108:
1964YY_RULE_SETUP
1965#line 239 "lex.l"
1966{ yylval.intval = NO; return(T_SCOREFEED); }
1967 YY_BREAK
1968case 109:
1969YY_RULE_SETUP
1970#line 240 "lex.l"
1971{ yylval.intval = YES; return(T_SCOREFEED); }
1972 YY_BREAK
1973case 110:
1974YY_RULE_SETUP
1975#line 242 "lex.l"
1976return(T_MULTIREST);
1977 YY_BREAK
1978case 111:
1979YY_RULE_SETUP
1980#line 244 "lex.l"
1981{ yylval.intval = SINGLEBAR; return(T_BARTYPE); }
1982 YY_BREAK
1983case 112:
1984YY_RULE_SETUP
1985#line 245 "lex.l"
1986{ yylval.intval = DOUBLEBAR; return(T_BARTYPE); }
1987 YY_BREAK
1988case 113:
1989YY_RULE_SETUP
1990#line 246 "lex.l"
1991{ yylval.intval = REPEATSTART; return(T_BARTYPE); }
1992 YY_BREAK
1993case 114:
1994YY_RULE_SETUP
1995#line 247 "lex.l"
1996{ yylval.intval = REPEATEND; return(T_BARTYPE); }
1997 YY_BREAK
1998case 115:
1999YY_RULE_SETUP
2000#line 248 "lex.l"
2001{ yylval.intval = REPEATBOTH; return(T_BARTYPE); }
2002 YY_BREAK
2003case 116:
2004YY_RULE_SETUP
2005#line 249 "lex.l"
2006{ yylval.intval = INVISBAR; return(T_BARTYPE); }
2007 YY_BREAK
2008case 117:
2009YY_RULE_SETUP
2010#line 250 "lex.l"
2011{ yylval.intval = ENDBAR; return(T_BARTYPE); }
2012 YY_BREAK
2013case 118:
2014YY_RULE_SETUP
2015#line 251 "lex.l"
2016{ yylval.intval = RESTART; return(T_BARTYPE); }
2017 YY_BREAK
2018case 119:
2019#line 254 "lex.l"
2020case 120:
2021YY_RULE_SETUP
2022#line 254 "lex.l"
2023return(T_REHEARSAL);
2024 YY_BREAK
2025case 121:
2026YY_RULE_SETUP
2027#line 255 "lex.l"
2028return(T_NUM);
2029 YY_BREAK
2030case 122:
2031YY_RULE_SETUP
2032#line 256 "lex.l"
2033return(T_LET);
2034 YY_BREAK
2035case 123:
2036YY_RULE_SETUP
2037#line 257 "lex.l"
2038return(T_MNUM);
2039 YY_BREAK
2040case 124:
2041YY_RULE_SETUP
2042#line 259 "lex.l"
2043return(T_ENDING);
2044 YY_BREAK
2045case 125:
2046YY_RULE_SETUP
2047#line 260 "lex.l"
2048return(T_ENDENDING);
2049 YY_BREAK
2050case 126:
2051YY_RULE_SETUP
2052#line 262 "lex.l"
2053return(T_HIDECHANGES);
2054 YY_BREAK
2055case 127:
2056YY_RULE_SETUP
2057#line 264 "lex.l"
2058{ yylval.intval = L_WIDE; return(T_LINETYPE); }
2059 YY_BREAK
2060case 128:
2061YY_RULE_SETUP
2062#line 265 "lex.l"
2063{ yylval.intval = L_MEDIUM; return(T_LINETYPE); }
2064 YY_BREAK
2065case 129:
2066YY_RULE_SETUP
2067#line 266 "lex.l"
2068{ yylval.intval = L_WAVY; return(T_LINETYPE); }
2069 YY_BREAK
2070case 130:
2071YY_RULE_SETUP
2072#line 267 "lex.l"
2073{ yylval.intval = L_DOTTED; return(T_LINETYPE); }
2074 YY_BREAK
2075case 131:
2076YY_RULE_SETUP
2077#line 268 "lex.l"
2078{ yylval.intval = L_DASHED; return(T_LINETYPE); }
2079 YY_BREAK
2080case 132:
2081YY_RULE_SETUP
2082#line 270 "lex.l"
2083return(T_LINE);
2084 YY_BREAK
2085case 133:
2086YY_RULE_SETUP
2087#line 271 "lex.l"
2088return(T_TO);
2089 YY_BREAK
2090case 134:
2091YY_RULE_SETUP
2092#line 272 "lex.l"
2093return(T_CURVE);
2094 YY_BREAK
2095case 135:
2096YY_RULE_SETUP
2097#line 273 "lex.l"
2098return(T_BULGE);
2099 YY_BREAK
2100case 136:
2101YY_RULE_SETUP
2102#line 275 "lex.l"
2103{ yylval.intval = J_LEFT; return(T_PRINTTYPE); }
2104 YY_BREAK
2105case 137:
2106YY_RULE_SETUP
2107#line 276 "lex.l"
2108{ yylval.intval = J_RIGHT; return(T_PRINTTYPE); }
2109 YY_BREAK
2110case 138:
2111YY_RULE_SETUP
2112#line 277 "lex.l"
2113{ yylval.intval = J_CENTER; return(T_PRINTTYPE); }
2114 YY_BREAK
2115case 139:
2116YY_RULE_SETUP
2117#line 278 "lex.l"
2118{ yylval.intval = J_NONE; return(T_PRINTTYPE); }
2119 YY_BREAK
2120case 140:
2121YY_RULE_SETUP
2122#line 279 "lex.l"
2123{ return(T_POSTSCRIPT); }
2124 YY_BREAK
2125case 141:
2126YY_RULE_SETUP
2127#line 280 "lex.l"
2128{ yylval.intval = J_RAGPARA; return(T_PARATYPE); }
2129 YY_BREAK
2130case 142:
2131YY_RULE_SETUP
2132#line 281 "lex.l"
2133{ yylval.intval = J_JUSTPARA; return(T_PARATYPE); }
2134 YY_BREAK
2135case 143:
2136YY_RULE_SETUP
2137#line 282 "lex.l"
2138return(T_PARAGRAPH);
2139 YY_BREAK
2140case 144:
2141YY_RULE_SETUP
2142#line 283 "lex.l"
2143return(T_NL);
2144 YY_BREAK
2145case 145:
2146YY_RULE_SETUP
2147#line 285 "lex.l"
2148return(T_SLASH);
2149 YY_BREAK
2150case 146:
2151YY_RULE_SETUP
2152#line 286 "lex.l"
2153return(T_CUT);
2154 YY_BREAK
2155case 147:
2156YY_RULE_SETUP
2157#line 287 "lex.l"
2158return(T_COMMON);
2159 YY_BREAK
2160case 148:
2161YY_RULE_SETUP
2162#line 289 "lex.l"
2163{ yylval.intval = NUMSTAFF; return(T_NUMVAR); }
2164 YY_BREAK
2165case 149:
2166YY_RULE_SETUP
2167#line 290 "lex.l"
2168{ yylval.intval = VSCHEME; return(T_VVAR); }
2169 YY_BREAK
2170case 150:
2171YY_RULE_SETUP
2172#line 291 "lex.l"
2173{ yylval.intval = VCOMBINE; return(T_VCOMBINE); }
2174 YY_BREAK
2175case 151:
2176YY_RULE_SETUP
2177#line 292 "lex.l"
2178{ yylval.intval = VC_NOOVERLAP; return(T_VCOMBVAL); }
2179 YY_BREAK
2180case 152:
2181YY_RULE_SETUP
2182#line 293 "lex.l"
2183{ yylval.intval = VC_SHAREONE; return(T_VCOMBVAL); }
2184 YY_BREAK
2185case 153:
2186YY_RULE_SETUP
2187#line 294 "lex.l"
2188{ yylval.intval = VC_OVERLAP; return(T_VCOMBVAL); }
2189 YY_BREAK
2190case 154:
2191YY_RULE_SETUP
2192#line 295 "lex.l"
2193{ yylval.intval = DEFOCT; return(T_NUMVAR); }
2194 YY_BREAK
2195case 155:
2196YY_RULE_SETUP
2197#line 296 "lex.l"
2198{ yylval.intval = LYRICSSIZE; return(T_NUMVAR); }
2199 YY_BREAK
2200case 156:
2201YY_RULE_SETUP
2202#line 297 "lex.l"
2203{ yylval.intval = SYLPOSITION; return(T_NUMVAR); }
2204 YY_BREAK
2205case 157:
2206YY_RULE_SETUP
2207#line 298 "lex.l"
2208{ yylval.intval = SIZE; return(T_NUMVAR); }
2209 YY_BREAK
2210case 158:
2211YY_RULE_SETUP
2212#line 299 "lex.l"
2213{ yylval.intval = MINSTSEP; return(T_NUMVAR); }
2214 YY_BREAK
2215case 159:
2216YY_RULE_SETUP
2217#line 300 "lex.l"
2218{ yylval.intval = MINSCPAD; return(T_SCOREPAD); }
2219 YY_BREAK
2220case 160:
2221YY_RULE_SETUP
2222#line 301 "lex.l"
2223{ yylval.intval = STAFFPAD; return(T_NUMVAR); }
2224 YY_BREAK
2225case 161:
2226YY_RULE_SETUP
2227#line 302 "lex.l"
2228{ yylval.intval = CHORDDIST; return(T_NUMVAR); }
2229 YY_BREAK
2230case 162:
2231YY_RULE_SETUP
2232#line 303 "lex.l"
2233{ yylval.intval = DIST; return(T_NUMVAR); }
2234 YY_BREAK
2235case 163:
2236YY_RULE_SETUP
2237#line 304 "lex.l"
2238{ yylval.intval = DYNDIST; return(T_NUMVAR); }
2239 YY_BREAK
2240case 164:
2241YY_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
2250case 165:
2251YY_RULE_SETUP
2252#line 311 "lex.l"
2253{ yylval.intval = DIVISION; return(T_NUMVAR); }
2254 YY_BREAK
2255case 166:
2256YY_RULE_SETUP
2257#line 312 "lex.l"
2258{ yylval.intval = RELEASE; return(T_NUMVAR); }
2259 YY_BREAK
2260case 167:
2261YY_RULE_SETUP
2262#line 313 "lex.l"
2263{ yylval.intval = PANELSPERPAGE; return(T_NUMVAR); }
2264 YY_BREAK
2265case 168:
2266YY_RULE_SETUP
2267#line 314 "lex.l"
2268{ yylval.intval = GRIDFRET; return(T_NUMVAR); }
2269 YY_BREAK
2270case 169:
2271YY_RULE_SETUP
2272#line 315 "lex.l"
2273{ yylval.intval = RESTCOMBINE; return(T_NUMVAR); }
2274 YY_BREAK
2275case 170:
2276YY_RULE_SETUP
2277#line 316 "lex.l"
2278{ yylval.intval = FIRSTPAGE; return(T_NUMVAR); }
2279 YY_BREAK
2280case 171:
2281YY_RULE_SETUP
2282#line 317 "lex.l"
2283{ yylval.intval = MINSCSEP; return(T_SCORESEP); }
2284 YY_BREAK
2285case 172:
2286YY_RULE_SETUP
2287#line 318 "lex.l"
2288{ yylval.intval = STAFFLINES; return(T_STAFFLINES); }
2289 YY_BREAK
2290case 173:
2291YY_RULE_SETUP
2292#line 319 "lex.l"
2293{ yylval.intval = ONTHELINE; return(T_YESNOVAR); }
2294 YY_BREAK
2295case 174:
2296YY_RULE_SETUP
2297#line 320 "lex.l"
2298{ yylval.intval = WARN; return(T_YESNOVAR); }
2299 YY_BREAK
2300case 175:
2301YY_RULE_SETUP
2302#line 321 "lex.l"
2303{ yylval.intval = NUMBERMRPT; return(T_YESNOVAR); }
2304 YY_BREAK
2305case 176:
2306YY_RULE_SETUP
2307#line 322 "lex.l"
2308{ yylval.intval = PRINTMULTNUM; return(T_YESNOVAR); }
2309 YY_BREAK
2310case 177:
2311YY_RULE_SETUP
2312#line 323 "lex.l"
2313{ yylval.intval = RESTSYMMULT; return(T_YESNOVAR); }
2314 YY_BREAK
2315case 178:
2316YY_RULE_SETUP
2317#line 324 "lex.l"
2318{ yylval.intval = GRIDSWHEREUSED; return(T_YESNOVAR); }
2319 YY_BREAK
2320case 179:
2321YY_RULE_SETUP
2322#line 325 "lex.l"
2323{ yylval.intval = GRIDSATEND; return(T_YESNOVAR); }
2324 YY_BREAK
2325case 180:
2326YY_RULE_SETUP
2327#line 326 "lex.l"
2328return(T_TAB);
2329 YY_BREAK
2330case 181:
2331YY_RULE_SETUP
2332#line 327 "lex.l"
2333{ yylval.intval = TABWHITEBOX; return(T_YESNOVAR); }
2334 YY_BREAK
2335case 182:
2336YY_RULE_SETUP
2337#line 328 "lex.l"
2338{ yylval.intval = TIMEUNIT; return(T_TIMEUNIT); }
2339 YY_BREAK
2340case 183:
2341YY_RULE_SETUP
2342#line 329 "lex.l"
2343{ yylval.intval = SWINGUNIT; return(T_SWINGUNIT); }
2344 YY_BREAK
2345case 184:
2346YY_RULE_SETUP
2347#line 330 "lex.l"
2348{ yylval.intval = TOPMARGIN; return(T_FNUMVAR); }
2349 YY_BREAK
2350case 185:
2351YY_RULE_SETUP
2352#line 331 "lex.l"
2353{ yylval.intval = BOTMARGIN; return(T_FNUMVAR); }
2354 YY_BREAK
2355case 186:
2356YY_RULE_SETUP
2357#line 332 "lex.l"
2358{ yylval.intval = BOTMARGIN; return(T_FNUMVAR); }
2359 YY_BREAK
2360case 187:
2361YY_RULE_SETUP
2362#line 333 "lex.l"
2363{ yylval.intval = LEFTMARGIN; return(T_FNUMVAR); }
2364 YY_BREAK
2365case 188:
2366YY_RULE_SETUP
2367#line 334 "lex.l"
2368{ yylval.intval = RIGHTMARGIN; return(T_FNUMVAR); }
2369 YY_BREAK
2370case 189:
2371YY_RULE_SETUP
2372#line 335 "lex.l"
2373{ yylval.intval = PACKFACT; return(T_FNUMVAR); }
2374 YY_BREAK
2375case 190:
2376YY_RULE_SETUP
2377#line 336 "lex.l"
2378{ yylval.intval = PACKEXP; return(T_FNUMVAR); }
2379 YY_BREAK
2380case 191:
2381YY_RULE_SETUP
2382#line 337 "lex.l"
2383{ yylval.intval = STAFFSCALE; return(T_FNUMVAR); }
2384 YY_BREAK
2385case 192:
2386YY_RULE_SETUP
2387#line 338 "lex.l"
2388{ yylval.intval = GRIDSCALE; return(T_FNUMVAR); }
2389 YY_BREAK
2390case 193:
2391YY_RULE_SETUP
2392#line 339 "lex.l"
2393{ yylval.intval = SCALE_FACTOR; return(T_FNUMVAR); }
2394 YY_BREAK
2395case 194:
2396YY_RULE_SETUP
2397#line 340 "lex.l"
2398{ yylval.intval = STEMLEN; return(T_FNUMVAR); }
2399 YY_BREAK
2400case 195:
2401YY_RULE_SETUP
2402#line 341 "lex.l"
2403{ yylval.intval = STEMSHORTEN; return(T_FNUMVAR); }
2404 YY_BREAK
2405case 196:
2406YY_RULE_SETUP
2407#line 342 "lex.l"
2408{ yylval.intval = BEAMSLOPE; return(T_2FNUMVAR); }
2409 YY_BREAK
2410case 197:
2411YY_RULE_SETUP
2412#line 343 "lex.l"
2413{ yylval.intval = TRANSPOSITION; return(T_TRANSPOSE); }
2414 YY_BREAK
2415case 198:
2416YY_RULE_SETUP
2417#line 344 "lex.l"
2418{ yylval.intval = ADDTRANSPOSITION; return(T_TRANSPOSE); }
2419 YY_BREAK
2420case 199:
2421YY_RULE_SETUP
2422#line 345 "lex.l"
2423{ yylval.intval = LYRICSALIGN; return(T_FNUMVAR); }
2424 YY_BREAK
2425case 200:
2426YY_RULE_SETUP
2427#line 346 "lex.l"
2428{ yylval.intval = PAGEHEIGHT; return(T_FNUMVAR); }
2429 YY_BREAK
2430case 201:
2431YY_RULE_SETUP
2432#line 347 "lex.l"
2433{ yylval.intval = PAGEWIDTH; return(T_FNUMVAR); }
2434 YY_BREAK
2435case 202:
2436YY_RULE_SETUP
2437#line 348 "lex.l"
2438{ return(T_PSVAR); }
2439 YY_BREAK
2440case 203:
2441YY_RULE_SETUP
2442#line 349 "lex.l"
2443{ yylval.intval = PS_LETTER; return(T_PAGESIZE); }
2444 YY_BREAK
2445case 204:
2446YY_RULE_SETUP
2447#line 350 "lex.l"
2448{ yylval.intval = PS_LEGAL; return(T_PAGESIZE); }
2449 YY_BREAK
2450case 205:
2451YY_RULE_SETUP
2452#line 351 "lex.l"
2453{ yylval.intval = PS_FLSA; return(T_PAGESIZE); }
2454 YY_BREAK
2455case 206:
2456YY_RULE_SETUP
2457#line 352 "lex.l"
2458{ yylval.intval = PS_HALFLETTER; return(T_PAGESIZE); }
2459 YY_BREAK
2460case 207:
2461YY_RULE_SETUP
2462#line 353 "lex.l"
2463{ yylval.intval = O_PORTRAIT; return(T_ORIENTATION); }
2464 YY_BREAK
2465case 208:
2466YY_RULE_SETUP
2467#line 354 "lex.l"
2468{ yylval.intval = O_LANDSCAPE; return(T_ORIENTATION); }
2469 YY_BREAK
2470case 209:
2471YY_RULE_SETUP
2472#line 355 "lex.l"
2473{ yylval.intval = UNITS; return(T_UNITS); }
2474 YY_BREAK
2475case 210:
2476YY_RULE_SETUP
2477#line 356 "lex.l"
2478{ yylval.intval = CM; return(T_UNITTYPE); }
2479 YY_BREAK
2480case 211:
2481YY_RULE_SETUP
2482#line 357 "lex.l"
2483{ yylval.intval = INCHES; return(T_UNITTYPE); }
2484 YY_BREAK
2485case 212:
2486YY_RULE_SETUP
2487#line 359 "lex.l"
2488{ yylval.intval = ENDINGSTYLE; return(T_ENDSTYLE); }
2489 YY_BREAK
2490case 213:
2491YY_RULE_SETUP
2492#line 360 "lex.l"
2493{ yylval.intval = REHSTYLE; return(T_REH_STYLE); }
2494 YY_BREAK
2495case 214:
2496YY_RULE_SETUP
2497#line 361 "lex.l"
2498{ yylval.intval = RS_BOXED; return(T_REHTYPE); }
2499 YY_BREAK
2500case 215:
2501YY_RULE_SETUP
2502#line 362 "lex.l"
2503{ yylval.intval = RS_CIRCLED; return(T_REHTYPE); }
2504 YY_BREAK
2505case 216:
2506YY_RULE_SETUP
2507#line 363 "lex.l"
2508{ yylval.intval = RS_PLAIN; return(T_REHTYPE); }
2509 YY_BREAK
2510case 217:
2511YY_RULE_SETUP
2512#line 364 "lex.l"
2513{ yylval.intval = PEDSTYLE; return(T_PEDSTYLE); }
2514 YY_BREAK
2515case 218:
2516YY_RULE_SETUP
2517#line 365 "lex.l"
2518return(T_PEDSTAR);
2519 YY_BREAK
2520case 219:
2521YY_RULE_SETUP
2522#line 366 "lex.l"
2523{ yylval.intval = ENDING_BARRED; return(T_ENDTYPE); }
2524 YY_BREAK
2525case 220:
2526YY_RULE_SETUP
2527#line 367 "lex.l"
2528{ yylval.intval = ENDING_GROUPED; return(T_ENDTYPE); }
2529 YY_BREAK
2530case 221:
2531YY_RULE_SETUP
2532#line 369 "lex.l"
2533{ yylval.intval = BRACELIST; return(T_RANGELISTVAR); }
2534 YY_BREAK
2535case 222:
2536YY_RULE_SETUP
2537#line 370 "lex.l"
2538{ yylval.intval = BRACKLIST; return(T_RANGELISTVAR); }
2539 YY_BREAK
2540case 223:
2541YY_RULE_SETUP
2542#line 371 "lex.l"
2543{ yylval.intval = BARSTLIST; return(T_BARSTLISTVAR); }
2544 YY_BREAK
2545case 224:
2546YY_RULE_SETUP
2547#line 372 "lex.l"
2548{ yylval.intval = PL_ABOVE; return(T_ORDER); }
2549 YY_BREAK
2550case 225:
2551YY_RULE_SETUP
2552#line 373 "lex.l"
2553{ yylval.intval = PL_BELOW; return(T_ORDER); }
2554 YY_BREAK
2555case 226:
2556YY_RULE_SETUP
2557#line 374 "lex.l"
2558{ yylval.intval = PL_BETWEEN; return(T_ORDER); }
2559 YY_BREAK
2560case 227:
2561YY_RULE_SETUP
2562#line 375 "lex.l"
2563return(T_OTHERTEXT);
2564 YY_BREAK
2565case 228:
2566YY_RULE_SETUP
2567#line 376 "lex.l"
2568{ yylval.intval = SHARPS; return(T_KEY); }
2569 YY_BREAK
2570case 229:
2571YY_RULE_SETUP
2572#line 377 "lex.l"
2573{ yylval.intval = TIME; return(T_TIME); }
2574 YY_BREAK
2575case 230:
2576YY_RULE_SETUP
2577#line 378 "lex.l"
2578{ yylval.intval = BEAMSTLIST; return(T_RATNUMLISTVAR); }
2579 YY_BREAK
2580case 231:
2581YY_RULE_SETUP
2582#line 379 "lex.l"
2583{ yylval.intval = VISIBLE; return(T_VISVAR); }
2584 YY_BREAK
2585case 232:
2586YY_RULE_SETUP
2587#line 380 "lex.l"
2588{ return(T_WHEREUSED); }
2589 YY_BREAK
2590case 233:
2591YY_RULE_SETUP
2592#line 381 "lex.l"
2593{ yylval.intval = MEASNUM; return(T_YESNOVAR); }
2594 YY_BREAK
2595case 234:
2596YY_RULE_SETUP
2597#line 382 "lex.l"
2598{ yylval.intval = CANCELKEY; return(T_YESNOVAR); }
2599 YY_BREAK
2600case 235:
2601YY_RULE_SETUP
2602#line 383 "lex.l"
2603{ yylval.intval = LABEL; return(T_STRVAR); }
2604 YY_BREAK
2605case 236:
2606YY_RULE_SETUP
2607#line 384 "lex.l"
2608{ yylval.intval = LABEL2; return(T_STRVAR); }
2609 YY_BREAK
2610case 237:
2611YY_RULE_SETUP
2612#line 385 "lex.l"
2613{ yylval.intval = NOTEHEADS; return(T_STRVAR); }
2614 YY_BREAK
2615case 238:
2616YY_RULE_SETUP
2617#line 386 "lex.l"
2618{ yylval.intval = FONT; return(T_FONTVAR); }
2619 YY_BREAK
2620case 239:
2621YY_RULE_SETUP
2622#line 387 "lex.l"
2623{ yylval.intval = FONTFAMILY; return(T_FAMILY); }
2624 YY_BREAK
2625case 240:
2626YY_RULE_SETUP
2627#line 388 "lex.l"
2628{ yylval.intval = LYRICSFONT; return(T_FONTVAR); }
2629 YY_BREAK
2630case 241:
2631YY_RULE_SETUP
2632#line 389 "lex.l"
2633{ yylval.intval = LYRICSFAMILY; return(T_FAMILY); }
2634 YY_BREAK
2635case 242:
2636YY_RULE_SETUP
2637#line 390 "lex.l"
2638{ yylval.intval = MEASNUMSIZE; return(T_NUMVAR); }
2639 YY_BREAK
2640case 243:
2641YY_RULE_SETUP
2642#line 391 "lex.l"
2643{ yylval.intval = MEASNUMFONT; return(T_FONTVAR); }
2644 YY_BREAK
2645case 244:
2646YY_RULE_SETUP
2647#line 392 "lex.l"
2648{ yylval.intval = MEASNUMFAMILY; return(T_FAMILY); }
2649 YY_BREAK
2650case 245:
2651YY_RULE_SETUP
2652#line 393 "lex.l"
2653{ yylval.intval = CLEF; return(T_CLEFVAR); }
2654 YY_BREAK
2655case 246:
2656YY_RULE_SETUP
2657#line 394 "lex.l"
2658{ return(T_UNSET); }
2659 YY_BREAK
2660case 247:
2661YY_RULE_SETUP
2662#line 396 "lex.l"
2663{ yylval.intval = TREBLE_8A; return(T_CLEF); }
2664 YY_BREAK
2665case 248:
2666YY_RULE_SETUP
2667#line 397 "lex.l"
2668{ yylval.intval = TREBLE; return(T_CLEF); }
2669 YY_BREAK
2670case 249:
2671YY_RULE_SETUP
2672#line 398 "lex.l"
2673{ yylval.intval = TREBLE_8; return(T_CLEF); }
2674 YY_BREAK
2675case 250:
2676YY_RULE_SETUP
2677#line 399 "lex.l"
2678{ yylval.intval = FRENCHVIOLIN; return(T_CLEF); }
2679 YY_BREAK
2680case 251:
2681YY_RULE_SETUP
2682#line 400 "lex.l"
2683{ yylval.intval = SOPRANO; return(T_CLEF); }
2684 YY_BREAK
2685case 252:
2686YY_RULE_SETUP
2687#line 401 "lex.l"
2688{ yylval.intval = MEZZOSOPRANO; return(T_CLEF); }
2689 YY_BREAK
2690case 253:
2691YY_RULE_SETUP
2692#line 402 "lex.l"
2693{ yylval.intval = ALTO; return(T_CLEF); }
2694 YY_BREAK
2695case 254:
2696YY_RULE_SETUP
2697#line 403 "lex.l"
2698{ yylval.intval = TENOR; return(T_CLEF); }
2699 YY_BREAK
2700case 255:
2701YY_RULE_SETUP
2702#line 404 "lex.l"
2703{ yylval.intval = BARITONE; return(T_CLEF); }
2704 YY_BREAK
2705case 256:
2706YY_RULE_SETUP
2707#line 405 "lex.l"
2708{ yylval.intval = BASS; return(T_CLEF); }
2709 YY_BREAK
2710case 257:
2711YY_RULE_SETUP
2712#line 406 "lex.l"
2713{ return(T_DRUM); }
2714 YY_BREAK
2715case 258:
2716YY_RULE_SETUP
2717#line 408 "lex.l"
2718return(T_R_ANGLE);
2719 YY_BREAK
2720case 259:
2721YY_RULE_SETUP
2722#line 409 "lex.l"
2723{ yylval.intval = L_NORMAL; return(T_L_ANGLE); }
2724 YY_BREAK
2725case 260:
2726YY_RULE_SETUP
2727#line 410 "lex.l"
2728{ return(T_L_DBLANGLE); }
2729 YY_BREAK
2730case 261:
2731YY_RULE_SETUP
2732#line 411 "lex.l"
2733{ return(T_R_DBLANGLE); }
2734 YY_BREAK
2735case 262:
2736YY_RULE_SETUP
2737#line 412 "lex.l"
2738{ yylval.intval = L_DOTTED; return(T_L_ANGLE); }
2739 YY_BREAK
2740case 263:
2741YY_RULE_SETUP
2742#line 413 "lex.l"
2743{ yylval.intval = L_DASHED; return(T_L_ANGLE); }
2744 YY_BREAK
2745case 264:
2746YY_RULE_SETUP
2747#line 414 "lex.l"
2748{ yylval.intval = IN_DOWNWARD; return(T_NOWHERE_SLIDE); }
2749 YY_BREAK
2750case 265:
2751YY_RULE_SETUP
2752#line 415 "lex.l"
2753{ yylval.intval = IN_UPWARD; return(T_NOWHERE_SLIDE); }
2754 YY_BREAK
2755case 266:
2756YY_RULE_SETUP
2757#line 416 "lex.l"
2758{ yylval.intval = OUT_UPWARD; return(T_NOWHERE_SLIDE); }
2759 YY_BREAK
2760case 267:
2761YY_RULE_SETUP
2762#line 417 "lex.l"
2763{ yylval.intval = OUT_DOWNWARD; return(T_NOWHERE_SLIDE); }
2764 YY_BREAK
2765case 268:
2766YY_RULE_SETUP
2767#line 419 "lex.l"
2768return(T_PEDAL);
2769 YY_BREAK
2770case 269:
2771YY_RULE_SETUP
2772#line 420 "lex.l"
2773return(T_MUSSYM);
2774 YY_BREAK
2775case 270:
2776YY_RULE_SETUP
2777#line 421 "lex.l"
2778{ yylval.intval = TM_CHORD; return(T_MODIFIER); }
2779 YY_BREAK
2780case 271:
2781YY_RULE_SETUP
2782#line 422 "lex.l"
2783{ yylval.intval = TM_ANALYSIS; return(T_MODIFIER); }
2784 YY_BREAK
2785case 272:
2786YY_RULE_SETUP
2787#line 423 "lex.l"
2788{ yylval.intval = TM_FIGBASS; return(T_MODIFIER); }
2789 YY_BREAK
2790case 273:
2791YY_RULE_SETUP
2792#line 424 "lex.l"
2793{ yylval.intval = TM_DYN; return(T_MODIFIER); }
2794 YY_BREAK
2795case 274:
2796YY_RULE_SETUP
2797#line 425 "lex.l"
2798return(T_PHRASE);
2799 YY_BREAK
2800case 275:
2801YY_RULE_SETUP
2802#line 426 "lex.l"
2803return(T_TIL);
2804 YY_BREAK
2805case 276:
2806YY_RULE_SETUP
2807#line 427 "lex.l"
2808return(T_OCTAVE);
2809 YY_BREAK
2810case 277:
2811YY_RULE_SETUP
2812#line 428 "lex.l"
2813return(T_ROLL);
2814 YY_BREAK
2815case 278:
2816YY_RULE_SETUP
2817#line 429 "lex.l"
2818return(T_MIDI);
2819 YY_BREAK
2820case 279:
2821YY_RULE_SETUP
2822#line 431 "lex.l"
2823return(T_STAR);
2824 YY_BREAK
2825case 280:
2826YY_RULE_SETUP
2827#line 433 "lex.l"
2828to_eol();
2829 YY_BREAK
2830case 281:
2831YY_RULE_SETUP
2832#line 435 "lex.l"
2833{
2834 If_length = 0;
2835 If_errs = 0;
2836 BEGIN IF_CLAUSE;
2837 }
2838 YY_BREAK
2839case 282:
2840YY_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
2864case 283:
2865YY_RULE_SETUP
2866#line 461 "lex.l"
2867{ add_ifclause('a'); }
2868 YY_BREAK
2869case 284:
2870YY_RULE_SETUP
2871#line 462 "lex.l"
2872{ add_ifclause('o'); }
2873 YY_BREAK
2874case 285:
2875YY_RULE_SETUP
2876#line 463 "lex.l"
2877{ add_ifclause(yytext[0]); }
2878 YY_BREAK
2879case 286:
2880YY_RULE_SETUP
2881#line 464 "lex.l"
2882{ add_ifclause('l'); }
2883 YY_BREAK
2884case 287:
2885YY_RULE_SETUP
2886#line 465 "lex.l"
2887{ add_ifclause('r'); }
2888 YY_BREAK
2889case 288:
2890YY_RULE_SETUP
2891#line 466 "lex.l"
2892{ add_ifclause('L'); }
2893 YY_BREAK
2894case 289:
2895YY_RULE_SETUP
2896#line 467 "lex.l"
2897{ add_ifclause('G'); }
2898 YY_BREAK
2899case 290:
2900YY_RULE_SETUP
2901#line 468 "lex.l"
2902{ add_ifclause('E'); }
2903 YY_BREAK
2904case 291:
2905YY_RULE_SETUP
2906#line 469 "lex.l"
2907{ add_ifclause('N'); }
2908 YY_BREAK
2909case 292:
2910#line 471 "lex.l"
2911case 293:
2912YY_RULE_SETUP
2913#line 471 "lex.l"
2914{ addnumstr_ifclause(yytext); }
2915 YY_BREAK
2916case 294:
2917YY_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
2939case 295:
2940YY_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
2951case 296:
2952YY_RULE_SETUP
2953#line 500 "lex.l"
2954;
2955 YY_BREAK
2956case 297:
2957YY_RULE_SETUP
2958#line 501 "lex.l"
2959{
2960 yyerror("Missing 'then' for 'if' clause");
2961 BEGIN 0;
2962 }
2963 YY_BREAK
2964case 298:
2965YY_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
2979case 299:
2980YY_RULE_SETUP
2981#line 517 "lex.l"
2982define_macro(yytext + 7);
2983 YY_BREAK
2984case 300:
2985YY_RULE_SETUP
2986#line 519 "lex.l"
2987undef_macro(yytext + 6);
2988 YY_BREAK
2989case 301:
2990YY_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
3020case 302:
3021YY_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
3035case 303:
3036YY_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
3047case 304:
3048YY_RULE_SETUP
3049#line 570 "lex.l"
3050call_macro(yytext);
3051 YY_BREAK
3052case 305:
3053YY_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
3071case 306:
3072YY_RULE_SETUP
3073#line 587 "lex.l"
3074{ yylval.intval = strlen(yytext); return(T_TICKS); }
3075 YY_BREAK
3076case 307:
3077YY_RULE_SETUP
3078#line 589 "lex.l"
3079{
3080 /* ignore backslashed newlines;
3081 * allow white space after backslash */
3082 ignore();
3083 }
3084 YY_BREAK
3085case 308:
3086YY_RULE_SETUP
3087#line 595 "lex.l"
3088{
3089 /* in case we get control-Z from DOS */
3090 ignore();
3091 }
3092 YY_BREAK
3093case 309:
3094YY_RULE_SETUP
3095#line 600 "lex.l"
3096{
3097 /* ignore extra white space */
3098 ignore();
3099 }
3100 YY_BREAK
3101case 310:
3102YY_RULE_SETUP
3103#line 604 "lex.l"
3104{
3105 bad_input("input");
3106 }
3107 YY_BREAK
3108case YY_STATE_EOF(INITIAL):
3109case YY_STATE_EOF(IF_CLAUSE):
3110case 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
3128case 311:
3129YY_RULE_SETUP
3130#line 625 "lex.l"
3131ECHO;
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
3272static 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
3404static 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
3439static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
3440#else
3441static yy_state_type yy_try_NUL_trans( yy_current_state )
3442yy_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
3469static void yyunput( int c, register char *yy_bp )
3470#else
3471static void yyunput( c, yy_bp )
3472int c;
3473register 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
3513static int yyinput()
3514#else
3515static 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
3586void yyrestart( FILE *input_file )
3587#else
3588void yyrestart( input_file )
3589FILE *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
3601void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
3602#else
3603void yy_switch_to_buffer( new_buffer )
3604YY_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
3631void yy_load_buffer_state( void )
3632#else
3633void 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
3644YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
3645#else
3646YY_BUFFER_STATE yy_create_buffer( file, size )
3647FILE *file;
3648int 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
3675void yy_delete_buffer( YY_BUFFER_STATE b )
3676#else
3677void yy_delete_buffer( b )
3678YY_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
3696extern int isatty YY_PROTO(( int ));
3697#endif
3698#endif
3699
3700#ifdef YY_USE_PROTOS
3701void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
3702#else
3703void yy_init_buffer( b, file )
3704YY_BUFFER_STATE b;
3705FILE *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
3728void yy_flush_buffer( YY_BUFFER_STATE b )
3729#else
3730void yy_flush_buffer( b )
3731YY_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
3759YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
3760#else
3761YY_BUFFER_STATE yy_scan_buffer( base, size )
3762char *base;
3763yy_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
3797YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
3798#else
3799YY_BUFFER_STATE yy_scan_string( yy_str )
3800yyconst 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
3814YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
3815#else
3816YY_BUFFER_STATE yy_scan_bytes( bytes, len )
3817yyconst char *bytes;
3818int 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
3853static void yy_push_state( int new_state )
3854#else
3855static void yy_push_state( new_state )
3856int 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
3886static 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
3897static 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
3908static void yy_fatal_error( yyconst char msg[] )
3909#else
3910static void yy_fatal_error( msg )
3911char 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
3940static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
3941#else
3942static void yy_flex_strncpy( s1, s2, n )
3943char *s1;
3944yyconst char *s2;
3945int 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
3956static int yy_flex_strlen( yyconst char *s )
3957#else
3958static int yy_flex_strlen( s )
3959yyconst 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
3972static void *yy_flex_alloc( yy_size_t size )
3973#else
3974static void *yy_flex_alloc( size )
3975yy_size_t size;
3976#endif
3977 {
3978 return (void *) malloc( size );
3979 }
3980
3981#ifdef YY_USE_PROTOS
3982static void *yy_flex_realloc( void *ptr, yy_size_t size )
3983#else
3984static void *yy_flex_realloc( ptr, size )
3985void *ptr;
3986yy_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
4000static void yy_flex_free( void *ptr )
4001#else
4002static void yy_flex_free( ptr )
4003void *ptr;
4004#endif
4005 {
4006 free( ptr );
4007 }
4008
4009#if YY_MAIN
4010int 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
4026static void
4027to_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
4084int
4085save_macro(file)
4086
4087FILE *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
4135void
4136get_parameters(macname)
4137
4138char *macname; /* name of macro being defined */
4139
4140{
4141 while (get_a_param(macname) == YES) {
4142 ;
4143 }
4144}
4145
4146static int
4147get_a_param(macname)
4148
4149char *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
4218static void
4219skipwhite()
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
4249int
4250get_mac_arguments(macname, num_args)
4251
4252char *macname; /* name of the macro, to use in error messages */
4253int 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
4398typedef 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
4402static int
4403skip2else()
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
4556void
4557chk_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
4571static int
4572oddbs()
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
4599static void
4600embedquotes()
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. */
4635static 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
4776static void
4777xpand_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
4859void
4860pushback(c)
4861
4862int 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
4873static void
4874ignore()
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
4886void
4887begin_raw()
4888{
4889 Raw_string = YES;
4890}
4891
4892void
4893end_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
4901void
4902new_lexbuff(file)
4903
4904FILE * 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
4925void
4926del_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
4976static void
4977add_ifclause(token)
4978
4979int 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
4993static void
4994addnum_ifclause(value)
4995
4996int 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
5010static void
5011addnumstr_ifclause(numtoken)
5012
5013char *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
5043static void
5044bad_input(where)
5045
5046char *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.