Context Navigation

source: git/Singular/libparse.cc @ bb66b9

spielwiese

Last change on this file since bb66b9 was bb66b9, checked in by Michael Brickenstein <bricken@…>, 19 years ago
*bricken: reverted olivers changes git-svn-id: file:///usr/local/Singular/svn/trunk@8691 2c84dea3-7e68-4137-9b89-c4e89433aadc
Property mode set to `100644`
File size: 107.2 KB

Line
1	#define yy_create_buffer yylp_create_buffer
2	#define yy_delete_buffer yylp_delete_buffer
3	#define yy_scan_buffer yylp_scan_buffer
4	#define yy_scan_string yylp_scan_string
5	#define yy_scan_bytes yylp_scan_bytes
6	#define yy_flex_debug yylp_flex_debug
7	#define yy_init_buffer yylp_init_buffer
8	#define yy_flush_buffer yylp_flush_buffer
9	#define yy_load_buffer_state yylp_load_buffer_state
10	#define yy_switch_to_buffer yylp_switch_to_buffer
11	#define yyin yylpin
12	#define yyleng yylpleng
13	#define yylex yylplex
14	#define yyout yylpout
15	#define yyrestart yylprestart
16	#define yytext yylptext
17	#define yywrap yylpwrap
18
19	/* A lexical scanner generated by flex */
20
21	/* Scanner skeleton version:
22	* $Header: /exports/cvsroot-2/cvsroot/Singular/libparse.cc,v 1.11 2005-10-05 14:18:46 bricken Exp $
23	*/
24
25	#define FLEX_SCANNER
26	#define YY_FLEX_MAJOR_VERSION 2
27	#define YY_FLEX_MINOR_VERSION 5
28
29	#include <stdio.h>
30	#include <unistd.h>
31
32
33	/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
34	#ifdef c_plusplus
35	#ifndef __cplusplus
36	#define __cplusplus
37	#endif
38	#endif
39
40
41	#ifdef __cplusplus
42
43	#include <stdlib.h>
44
45	/* Use prototypes in function declarations. */
46	#define YY_USE_PROTOS
47
48	/* The "const" storage-class-modifier is valid. */
49	#define YY_USE_CONST
50
51	#else /* ! __cplusplus */
52
53	#if __STDC__
54
55	#define YY_USE_PROTOS
56	#define YY_USE_CONST
57
58	#endif /* __STDC__ */
59	#endif /* ! __cplusplus */
60
61	#ifdef __TURBOC__
62	#pragma warn -rch
63	#pragma warn -use
64	#include <io.h>
65	#include <stdlib.h>
66	#define YY_USE_CONST
67	#define YY_USE_PROTOS
68	#endif
69
70	#ifdef YY_USE_CONST
71	#define yyconst const
72	#else
73	#define yyconst
74	#endif
75
76
77	#ifdef YY_USE_PROTOS
78	#define YY_PROTO(proto) proto
79	#else
80	#define YY_PROTO(proto) ()
81	#endif
82
83	/* Returned upon end-of-file. */
84	#define YY_NULL 0
85
86	/* Promotes a possibly negative, possibly signed char to an unsigned
87	* integer for use as an array index. If the signed char is negative,
88	* we want to instead treat it as an 8-bit unsigned char, hence the
89	* double cast.
90	*/
91	#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
92
93	/* Enter a start condition. This macro really ought to take a parameter,
94	* but we do it the disgusting crufty way forced on us by the ()-less
95	* definition of BEGIN.
96	*/
97	#define BEGIN yy_start = 1 + 2 *
98
99	/* Translate the current start state into a value that can be later handed
100	* to BEGIN to return to the state. The YYSTATE alias is for lex
101	* compatibility.
102	*/
103	#define YY_START ((yy_start - 1) / 2)
104	#define YYSTATE YY_START
105
106	/* Action number for EOF rule of a given start state. */
107	#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
108
109	/* Special action meaning "start processing a new file". */
110	#define YY_NEW_FILE yyrestart( yyin )
111
112	#define YY_END_OF_BUFFER_CHAR 0
113
114	/* Size of default input buffer. */
115	#define YY_BUF_SIZE 16384
116
117	typedef struct yy_buffer_state *YY_BUFFER_STATE;
118
119	extern int yyleng;
120	extern FILE yyin, yyout;
121
122	#define EOB_ACT_CONTINUE_SCAN 0
123	#define EOB_ACT_END_OF_FILE 1
124	#define EOB_ACT_LAST_MATCH 2
125
126	/* The funky do-while in the following #define is used to turn the definition
127	* int a single C statement (which needs a semi-colon terminator). This
128	* avoids problems with code like:
129	*
130	* if ( condition_holds )
131	* yyless( 5 );
132	* else
133	* do_something_else();
134	*
135	* Prior to using the do-while the compiler would get upset at the
136	* "else" because it interpreted the "if" statement as being all
137	* done when it reached the ';' after the yyless() call.
138	*/
139
140	/* Return all but the first 'n' matched characters back to the input stream. */
141
142	#define yyless(n) \
143	do \
144	{ \
145	/* Undo effects of setting up yytext. */ \
146	*yy_cp = yy_hold_char; \
147	YY_RESTORE_YY_MORE_OFFSET \
148	yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
149	YY_DO_BEFORE_ACTION; /* set up yytext again */ \
150	} \
151	while ( 0 )
152
153	#define unput(c) yyunput( c, yytext_ptr )
154
155	/* The following is because we cannot portably get our hands on size_t
156	* (without autoconf's help, which isn't available because we want
157	* flex-generated scanners to compile on their own).
158	*/
159	typedef unsigned int yy_size_t;
160
161
162	struct yy_buffer_state
163	{
164	FILE *yy_input_file;
165
166	char yy_ch_buf; / input buffer */
167	char yy_buf_pos; / current position in input buffer */
168
169	/* Size of input buffer in bytes, not including room for EOB
170	* characters.
171	*/
172	yy_size_t yy_buf_size;
173
174	/* Number of characters read into yy_ch_buf, not including EOB
175	* characters.
176	*/
177	int yy_n_chars;
178
179	/* Whether we "own" the buffer - i.e., we know we created it,
180	* and can realloc() it to grow it, and should free() it to
181	* delete it.
182	*/
183	int yy_is_our_buffer;
184
185	/* Whether this is an "interactive" input source; if so, and
186	* if we're using stdio for input, then we want to use getc()
187	* instead of fread(), to make sure we stop fetching input after
188	* each newline.
189	*/
190	int yy_is_interactive;
191
192	/* Whether we're considered to be at the beginning of a line.
193	* If so, '^' rules will be active on the next match, otherwise
194	* not.
195	*/
196	int yy_at_bol;
197
198	/* Whether to try to fill the input buffer when we reach the
199	* end of it.
200	*/
201	int yy_fill_buffer;
202
203	int yy_buffer_status;
204	#define YY_BUFFER_NEW 0
205	#define YY_BUFFER_NORMAL 1
206	/* When an EOF's been seen but there's still some text to process
207	* then we mark the buffer as YY_EOF_PENDING, to indicate that we
208	* shouldn't try reading from the input source any more. We might
209	* still have a bunch of tokens to match, though, because of
210	* possible backing-up.
211	*
212	* When we actually see the EOF, we change the status to "new"
213	* (via yyrestart()), so that the user can continue scanning by
214	* just pointing yyin at a new input file.
215	*/
216	#define YY_BUFFER_EOF_PENDING 2
217	};
218
219	static YY_BUFFER_STATE yy_current_buffer = 0;
220
221	/* We provide macros for accessing buffer states in case in the
222	* future we want to put the buffer states in a more general
223	* "scanner state".
224	*/
225	#define YY_CURRENT_BUFFER yy_current_buffer
226
227
228	/* yy_hold_char holds the character lost when yytext is formed. */
229	static char yy_hold_char;
230
231	static int yy_n_chars; /* number of characters read into yy_ch_buf */
232
233
234	int yyleng;
235
236	/* Points to current character in buffer. */
237	static char yy_c_buf_p = (char ) 0;
238	static int yy_init = 1; /* whether we need to initialize */
239	static int yy_start = 0; /* start state number */
240
241	/* Flag which is used to allow yywrap()'s to do buffer switches
242	* instead of setting up a fresh yyin. A bit of a hack ...
243	*/
244	static int yy_did_buffer_switch_on_eof;
245
246	void yyrestart YY_PROTO(( FILE *input_file ));
247
248	void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
249	void yy_load_buffer_state YY_PROTO(( void ));
250	YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
251	void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
252	void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
253	void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
254	#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
255
256	YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
257	YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
258	YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
259
260	static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
261	static void yy_flex_realloc YY_PROTO(( void , yy_size_t ));
262	static void yy_flex_free YY_PROTO(( void * ));
263
264	#define yy_new_buffer yy_create_buffer
265
266	#define yy_set_interactive(is_interactive) \
267	{ \
268	if ( ! yy_current_buffer ) \
269	yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
270	yy_current_buffer->yy_is_interactive = is_interactive; \
271	}
272
273	#define yy_set_bol(at_bol) \
274	{ \
275	if ( ! yy_current_buffer ) \
276	yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
277	yy_current_buffer->yy_at_bol = at_bol; \
278	}
279
280	#define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
281
282	typedef unsigned char YY_CHAR;
283	FILE yyin = (FILE ) 0, yyout = (FILE ) 0;
284	typedef int yy_state_type;
285	extern char *yytext;
286	#define yytext_ptr yytext
287
288	static yy_state_type yy_get_previous_state YY_PROTO(( void ));
289	static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
290	static int yy_get_next_buffer YY_PROTO(( void ));
291	static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
292
293	/* Done after the current pattern has been matched and before the
294	* corresponding action - sets up yytext.
295	*/
296	#define YY_DO_BEFORE_ACTION \
297	yytext_ptr = yy_bp; \
298	yytext_ptr -= yy_more_len; \
299	yyleng = (int) (yy_cp - yytext_ptr); \
300	yy_hold_char = *yy_cp; \
301	*yy_cp = '\0'; \
302	yy_c_buf_p = yy_cp;
303
304	#define YY_NUM_RULES 96
305	#define YY_END_OF_BUFFER 97
306	static yyconst short int yy_accept[485] =
307	{ 0,
308	0, 0, 0, 0, 28, 28, 0, 0, 0, 0,
309	0, 0, 0, 0, 0, 0, 49, 49, 0, 0,
310	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
311	0, 0, 0, 0, 0, 0, 0, 0, 97, 95,
312	1, 92, 93, 2, 94, 95, 95, 95, 95, 95,
313	95, 95, 95, 95, 20, 19, 20, 20, 20, 20,
314	20, 20, 20, 20, 29, 28, 27, 29, 29, 29,
315	29, 29, 29, 29, 29, 96, 30, 96, 96, 96,
316	39, 32, 36, 33, 34, 38, 35, 43, 43, 96,
317	43, 43, 43, 43, 43, 43, 42, 47, 46, 47,
318
319	45, 49, 51, 48, 50, 63, 62, 53, 58, 59,
320	63, 60, 61, 63, 56, 57, 83, 82, 75, 78,
321	79, 83, 80, 81, 76, 77, 88, 87, 84, 88,
322	73, 72, 70, 73, 91, 90, 91, 66, 65, 64,
323	69, 68, 67, 0, 1, 0, 0, 0, 0, 0,
324	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
325	0, 0, 0, 28, 28, 0, 0, 0, 0, 0,
326	0, 0, 0, 30, 0, 31, 0, 0, 37, 0,
327	0, 0, 0, 0, 0, 0, 42, 0, 0, 0,
328	0, 0, 42, 42, 44, 49, 52, 0, 74, 86,
329
330	85, 71, 89, 0, 1, 1, 0, 1, 0, 0,
331	0, 0, 0, 0, 0, 0, 0, 0, 14, 13,
332	0, 0, 0, 0, 0, 0, 28, 28, 28, 28,
333	22, 21, 0, 0, 0, 0, 0, 0, 37, 37,
334	0, 0, 0, 41, 0, 42, 0, 0, 0, 0,
335	0, 52, 0, 74, 0, 0, 0, 1, 0, 0,
336	0, 0, 0, 0, 0, 0, 0, 0, 14, 13,
337	13, 0, 0, 0, 0, 0, 0, 0, 28, 22,
338	21, 21, 0, 0, 0, 0, 0, 0, 0, 0,
339	0, 41, 0, 0, 40, 0, 41, 0, 0, 0,
340
341	10, 11, 0, 0, 0, 0, 0, 0, 0, 0,
342	0, 0, 0, 13, 0, 0, 0, 0, 16, 0,
343	17, 0, 15, 21, 0, 0, 0, 0, 23, 0,
344	25, 0, 24, 0, 0, 40, 0, 0, 0, 0,
345	0, 0, 0, 0, 0, 8, 8, 7, 0, 0,
346	5, 0, 0, 0, 0, 12, 0, 0, 0, 18,
347	0, 0, 0, 26, 0, 0, 0, 0, 0, 55,
348	0, 0, 8, 8, 0, 9, 0, 0, 3, 0,
349	0, 8, 8, 8, 5, 5, 0, 0, 12, 12,
350	12, 0, 0, 0, 0, 0, 0, 8, 8, 8,
351
352	0, 3, 3, 0, 0, 0, 0, 0, 0, 0,
353	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
354	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
355	0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
356	0, 6, 0, 0, 12, 0, 0, 0, 0, 0,
357	0, 54, 0, 0, 0, 0, 0, 4, 0, 0,
358	6, 6, 12, 12, 12, 0, 0, 0, 0, 0,
359	0, 0, 4, 4, 0, 0, 0, 0, 0, 0,
360	0, 0, 0, 0
361	} ;
362
363	static yyconst int yy_ec[256] =
364	{ 0,
365	1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
366	1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
367	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
368	1, 5, 6, 7, 8, 9, 10, 11, 12, 13,
369	14, 15, 11, 16, 11, 10, 17, 18, 18, 18,
370	18, 18, 18, 18, 18, 18, 18, 19, 20, 11,
371	21, 11, 11, 12, 22, 23, 22, 22, 22, 22,
372	22, 24, 25, 22, 22, 26, 22, 22, 22, 22,
373	22, 22, 22, 22, 22, 22, 22, 22, 22, 22,
374	27, 28, 29, 30, 31, 11, 32, 22, 33, 34,
375
376	35, 36, 37, 22, 38, 22, 22, 39, 40, 41,
377	42, 43, 22, 44, 45, 46, 47, 48, 22, 49,
378	50, 22, 51, 11, 52, 11, 1, 1, 1, 1,
379	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
380	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
381	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
382	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
383	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
384	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
385	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
386
387	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
388	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
389	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
390	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
391	1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
392	1, 1, 1, 1, 1
393	} ;
394
395	static yyconst int yy_meta[53] =
396	{ 0,
397	1, 2, 3, 4, 2, 1, 5, 6, 1, 5,
398	1, 7, 8, 9, 5, 10, 5, 11, 5, 1,
399	1, 7, 7, 7, 7, 7, 1, 1, 1, 5,
400	7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
401	7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
402	4, 1
403	} ;
404
405	static yyconst short int yy_base[533] =
406	{ 0,
407	0, 47, 6, 93, 140, 187, 235, 287, 339, 391,
408	5, 11, 443, 0, 9, 12, 63, 69, 493, 543,
409	0, 0, 593, 643, 72, 80, 81, 90, 26, 31,
410	24, 52, 54, 95, 0, 0, 0, 0, 1250, 2200,
411	1202, 2200, 2200, 1226, 2200, 1213, 1221, 1183, 1164, 1170,
412	1162, 1105, 1106, 1114, 2200, 2200, 1131, 61, 1115, 1105,
413	1100, 1108, 1117, 1096, 2200, 84, 2200, 1121, 95, 1105,
414	1095, 1091, 1098, 1100, 1073, 2200, 2200, 1109, 1099, 1101,
415	2200, 2200, 2200, 2200, 2200, 1083, 2200, 2200, 694, 0,
416	0, 125, 745, 144, 151, 157, 2200, 2200, 2200, 1048,
417
418	2200, 99, 2200, 2200, 2200, 2200, 2200, 2200, 2200, 2200,
419	1080, 2200, 2200, 1052, 2200, 2200, 2200, 2200, 2200, 2200,
420	2200, 1073, 2200, 2200, 2200, 2200, 2200, 2200, 2200, 4,
421	2200, 2200, 2200, 14, 2200, 2200, 1071, 2200, 2200, 2200,
422	2200, 2200, 2200, 1041, 1066, 1056, 1071, 1029, 1042, 1032,
423	1024, 1033, 1024, 1002, 163, 1039, 1027, 984, 992, 983,
424	976, 986, 966, 111, 796, 985, 972, 941, 945, 936,
425	874, 894, 874, 2200, 908, 2200, 900, 906, 895, 0,
426	0, 172, 0, 179, 191, 207, 2200, 904, 903, 219,
427	902, 74, 847, 198, 2200, 119, 0, 866, 0, 2200,
428
429	2200, 2200, 2200, 865, 0, 889, 213, 0, 869, 760,
430	757, 659, 645, 263, 645, 245, 82, 672, 0, 671,
431	651, 643, 274, 639, 132, 650, 665, 651, 649, 642,
432	0, 632, 612, 601, 278, 593, 133, 601, 0, 611,
433	318, 324, 330, 0, 375, 612, 0, 0, 381, 0,
434	609, 0, 578, 0, 576, 349, 594, 0, 562, 555,
435	368, 161, 559, 404, 509, 547, 548, 547, 0, 0,
436	560, 538, 500, 412, 522, 536, 422, 564, 0, 0,
437	0, 551, 530, 550, 530, 559, 527, 571, 553, 586,
438	610, 2200, 622, 628, 0, 307, 2200, 536, 226, 214,
439
440	2200, 2200, 507, 509, 600, 660, 577, 514, 898, 918,
441	495, 491, 500, 501, 475, 637, 969, 975, 2200, 473,
442	2200, 502, 2200, 491, 459, 650, 981, 990, 2200, 457,
443	2200, 491, 2200, 996, 1001, 0, 646, 1051, 1010, 1101,
444	1005, 453, 406, 1014, 1151, 121, 2200, 2200, 433, 432,
445	0, 431, 430, 390, 396, 1203, 384, 1022, 381, 2200,
446	369, 1055, 362, 2200, 1029, 227, 370, 270, 526, 2200,
447	269, 0, 287, 2200, 349, 2200, 380, 358, 0, 357,
448	350, 288, 318, 343, 2200, 348, 1046, 312, 0, 1255,
449	311, 274, 1068, 254, 1089, 1093, 1076, 345, 403, 405,
450
451	1223, 2200, 290, 1118, 1124, 241, 1231, 1216, 1244, 1237,
452	1275, 1287, 1110, 101, 1307, 1293, 1314, 1344, 1334, 1351,
453	1364, 1374, 1394, 254, 1445, 1449, 1455, 1469, 1475, 1481,
454	662, 1300, 238, 0, 239, 1313, 154, 1490, 1510, 245,
455	200, 0, 199, 192, 1562, 1590, 1596, 1591, 605, 214,
456	1035, 2200, 1610, 1332, 1607, 190, 184, 0, 143, 137,
457	2200, 126, 0, 1641, 103, 1622, 155, 1692, 1655, 1673,
458	1722, 1712, 2200, 104, 1618, 0, 91, 1685, 220, 1728,
459	656, 230, 1734, 2200, 1765, 1776, 1787, 1798, 1809, 1820,
460	1831, 1842, 1853, 1864, 1875, 1886, 1897, 1908, 1919, 1926,
461
462	1933, 1944, 1955, 1966, 1977, 1988, 1999, 2010, 2021, 2032,
463	2042, 2048, 2054, 2064, 2065, 2076, 92, 2081, 2092, 2102,
464	2112, 2118, 2124, 2129, 51, 2140, 2150, 2160, 2167, 2177,
465	2183, 2188
466	} ;
467
468	static yyconst short int yy_def[533] =
469	{ 0,
470	485, 485, 486, 486, 487, 487, 488, 488, 489, 489,
471	490, 490, 484, 13, 491, 491, 492, 492, 493, 493,
472	492, 492, 494, 494, 495, 495, 496, 496, 497, 497,
473	498, 498, 499, 499, 492, 492, 492, 492, 484, 484,
474	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
475	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
476	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
477	484, 484, 484, 484, 484, 484, 484, 500, 484, 501,
478	484, 484, 484, 484, 484, 484, 484, 484, 484, 89,
479	89, 89, 484, 89, 89, 89, 484, 484, 484, 484,
480
481	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
482	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
483	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
484	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
485	484, 484, 484, 484, 502, 484, 484, 484, 484, 484,
486	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
487	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
488	484, 484, 484, 484, 500, 484, 484, 501, 503, 89,
489	89, 89, 93, 89, 89, 89, 484, 93, 93, 93,
490	93, 93, 484, 89, 484, 484, 504, 484, 505, 484,
491
492	484, 484, 484, 484, 502, 502, 484, 506, 484, 484,
493	484, 484, 484, 484, 484, 484, 484, 484, 507, 508,
494	484, 484, 484, 484, 484, 484, 165, 165, 165, 165,
495	509, 510, 484, 484, 484, 484, 484, 484, 503, 503,
496	89, 93, 93, 193, 93, 93, 193, 193, 484, 193,
497	193, 504, 484, 505, 484, 484, 484, 506, 484, 484,
498	484, 484, 484, 484, 484, 484, 484, 484, 507, 508,
499	508, 484, 484, 484, 484, 484, 484, 484, 165, 509,
500	510, 510, 484, 484, 484, 484, 484, 484, 484, 89,
501	89, 484, 93, 93, 193, 484, 484, 193, 511, 484,
502
503	484, 484, 484, 484, 484, 484, 512, 484, 484, 484,
504	484, 484, 484, 508, 484, 484, 484, 484, 484, 484,
505	484, 484, 484, 510, 484, 484, 484, 484, 484, 484,
506	484, 484, 484, 193, 193, 193, 511, 513, 511, 513,
507	514, 484, 484, 484, 484, 515, 484, 484, 310, 310,
508	310, 310, 310, 484, 484, 516, 484, 484, 484, 484,
509	484, 484, 484, 484, 484, 340, 517, 340, 340, 484,
510	339, 340, 518, 484, 484, 484, 345, 345, 345, 345,
511	345, 515, 515, 515, 484, 310, 484, 484, 519, 516,
512	390, 484, 484, 484, 484, 520, 521, 518, 518, 518,
513
514	484, 484, 345, 484, 484, 484, 484, 484, 484, 484,
515	484, 484, 522, 484, 523, 520, 520, 523, 521, 484,
516	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
517	524, 484, 525, 418, 484, 417, 417, 484, 484, 423,
518	423, 423, 423, 423, 526, 484, 484, 524, 484, 484,
519	484, 484, 527, 528, 524, 439, 439, 439, 439, 439,
520	484, 423, 529, 526, 464, 530, 484, 531, 527, 527,
521	531, 528, 484, 439, 532, 471, 484, 470, 470, 532,
522	484, 484, 532, 0, 484, 484, 484, 484, 484, 484,
523	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
524
525	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
526	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
527	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
528	484, 484
529	} ;
530
531	static yyconst short int yy_nxt[2253] =
532	{ 0,
533	484, 41, 42, 43, 41, 484, 82, 83, 56, 82,
534	200, 99, 82, 83, 99, 82, 44, 84, 85, 45,
535	202, 86, 57, 84, 85, 46, 139, 86, 136, 47,
536	140, 201, 48, 136, 49, 58, 100, 50, 59, 100,
537	137, 202, 51, 60, 52, 137, 53, 54, 41, 42,
538	43, 41, 61, 62, 139, 87, 142, 453, 140, 101,
539	143, 87, 101, 44, 102, 103, 45, 102, 156, 104,
540	102, 103, 46, 102, 128, 104, 47, 157, 129, 48,
541	245, 49, 128, 132, 50, 164, 129, 133, 164, 51,
542	217, 52, 132, 53, 54, 56, 133, 142, 396, 130,
543
544	196, 143, 166, 196, 483, 267, 268, 130, 134, 57,
545	473, 167, 164, 105, 432, 164, 433, 134, 63, 105,
546	196, 465, 58, 196, 246, 59, 182, 185, 185, 182,
547	60, 185, 461, 277, 288, 64, 277, 288, 383, 61,
548	62, 66, 67, 474, 66, 182, 185, 185, 182, 473,
549	185, 384, 182, 185, 185, 182, 68, 185, 182, 185,
550	185, 182, 307, 185, 216, 307, 435, 216, 432, 69,
551	433, 217, 70, 182, 185, 185, 182, 71, 185, 218,
552	182, 185, 185, 182, 437, 185, 72, 73, 66, 67,
553	473, 66, 182, 185, 185, 182, 473, 185, 462, 182,
554
555	185, 185, 182, 68, 185, 461, 461, 194, 182, 185,
556	185, 182, 74, 185, 256, 341, 69, 256, 341, 70,
557	242, 243, 243, 242, 71, 257, 435, 337, 365, 75,
558	337, 365, 477, 72, 73, 76, 76, 76, 76, 76,
559	76, 77, 477, 76, 450, 76, 216, 76, 76, 216,
560	479, 461, 455, 217, 76, 76, 339, 194, 340, 366,
561	482, 76, 76, 76, 264, 264, 264, 264, 454, 244,
562	371, 365, 445, 371, 365, 274, 274, 274, 274, 285,
563	285, 285, 285, 265, 424, 76, 76, 76, 76, 76,
564	76, 76, 76, 77, 275, 76, 402, 76, 286, 76,
565
566	76, 214, 366, 410, 399, 383, 76, 76, 296, 296,
567	296, 296, 223, 76, 76, 76, 235, 400, 384, 290,
568	291, 291, 290, 407, 241, 242, 243, 243, 242, 391,
569	241, 242, 243, 243, 242, 383, 241, 76, 76, 76,
570	76, 76, 76, 76, 76, 79, 406, 76, 384, 76,
571	256, 76, 76, 256, 385, 301, 403, 297, 76, 76,
572	383, 257, 399, 402, 402, 76, 76, 76, 292, 305,
573	305, 305, 305, 384, 244, 400, 293, 294, 294, 293,
574	244, 241, 296, 296, 296, 296, 402, 249, 306, 76,
575	76, 76, 76, 76, 76, 76, 76, 79, 401, 76,
576
577	397, 76, 395, 76, 76, 264, 264, 264, 264, 261,
578	76, 76, 394, 274, 274, 274, 274, 76, 76, 76,
579	399, 393, 399, 277, 265, 295, 277, 392, 321, 388,
580	387, 297, 275, 400, 322, 400, 386, 385, 385, 385,
581	376, 76, 76, 88, 89, 90, 91, 89, 92, 93,
582	92, 94, 92, 92, 94, 92, 92, 92, 92, 92,
583	94, 92, 92, 92, 95, 95, 95, 95, 95, 92,
584	96, 92, 92, 92, 95, 95, 95, 95, 95, 95,
585	95, 95, 95, 95, 95, 95, 95, 95, 95, 95,
586	95, 95, 95, 97, 92, 107, 375, 364, 363, 108,
587
588	361, 316, 316, 316, 316, 109, 110, 282, 360, 111,
589	309, 309, 309, 309, 359, 310, 357, 271, 356, 112,
590	317, 113, 355, 318, 318, 318, 318, 365, 319, 265,
591	365, 285, 285, 285, 285, 114, 354, 334, 335, 335,
592	334, 273, 275, 115, 116, 107, 348, 343, 342, 108,
593	286, 326, 326, 326, 326, 109, 110, 333, 366, 111,
594	328, 328, 328, 328, 330, 329, 325, 324, 323, 112,
595	327, 113, 288, 320, 315, 288, 314, 331, 307, 286,
596	313, 307, 312, 332, 311, 114, 336, 290, 291, 291,
597	290, 284, 185, 115, 116, 118, 308, 304, 303, 119,
598
599	302, 305, 305, 305, 305, 120, 121, 347, 300, 122,
600	299, 290, 291, 291, 290, 298, 185, 435, 241, 123,
601	306, 124, 449, 293, 294, 294, 293, 240, 241, 293,
602	294, 294, 293, 289, 241, 450, 292, 287, 316, 316,
603	316, 316, 284, 125, 126, 118, 283, 337, 282, 119,
604	337, 326, 326, 326, 326, 120, 121, 317, 279, 122,
605	292, 344, 344, 344, 344, 227, 345, 227, 477, 123,
606	327, 124, 295, 481, 435, 432, 339, 433, 295, 449,
607	306, 227, 278, 276, 273, 272, 482, 271, 155, 266,
608	263, 262, 450, 125, 126, 180, 181, 181, 180, 182,
609
610	183, 182, 184, 182, 182, 184, 182, 182, 182, 182,
611	182, 184, 182, 182, 182, 185, 185, 185, 185, 185,
612	182, 186, 182, 182, 182, 185, 185, 185, 185, 185,
613	185, 185, 185, 185, 185, 185, 185, 185, 185, 185,
614	185, 185, 185, 185, 187, 182, 188, 189, 189, 188,
615	188, 190, 188, 191, 188, 188, 191, 188, 188, 188,
616	188, 188, 191, 188, 188, 188, 189, 189, 189, 189,
617	189, 188, 192, 188, 188, 188, 189, 189, 189, 189,
618	189, 189, 189, 189, 189, 189, 189, 189, 189, 189,
619	189, 189, 189, 189, 189, 193, 188, 227, 261, 260,
620
621	227, 227, 228, 227, 229, 227, 227, 229, 227, 227,
622	227, 227, 230, 229, 227, 227, 227, 228, 228, 228,
623	228, 228, 227, 227, 227, 227, 227, 228, 228, 228,
624	228, 228, 228, 228, 228, 228, 228, 228, 228, 228,
625	228, 228, 228, 228, 228, 228, 227, 227, 247, 248,
626	248, 247, 247, 249, 247, 250, 247, 247, 250, 247,
627	247, 247, 247, 247, 250, 247, 247, 247, 248, 248,
628	248, 248, 248, 247, 251, 247, 247, 247, 248, 248,
629	248, 248, 248, 248, 248, 248, 248, 248, 248, 248,
630	248, 248, 248, 248, 248, 248, 248, 247, 247, 309,
631
632	309, 309, 309, 259, 310, 206, 255, 253, 241, 241,
633	241, 240, 177, 176, 174, 238, 237, 236, 265, 349,
634	350, 350, 349, 349, 351, 349, 352, 349, 349, 352,
635	349, 349, 349, 349, 349, 352, 349, 349, 349, 350,
636	350, 350, 350, 350, 349, 353, 349, 349, 349, 350,
637	350, 350, 350, 350, 350, 350, 350, 350, 350, 350,
638	350, 350, 350, 350, 350, 350, 350, 350, 349, 349,
639	358, 358, 358, 358, 235, 319, 318, 318, 318, 318,
640	234, 319, 362, 362, 362, 362, 233, 329, 232, 317,
641	231, 328, 328, 328, 328, 275, 329, 334, 335, 335,
642
643	334, 327, 334, 335, 335, 334, 341, 226, 225, 341,
644	286, 365, 365, 365, 365, 344, 344, 344, 344, 224,
645	345, 223, 367, 358, 358, 358, 358, 222, 319, 221,
646	365, 365, 365, 365, 306, 374, 451, 451, 451, 451,
647	339, 367, 317, 220, 219, 215, 336, 404, 404, 404,
648	404, 336, 365, 365, 365, 365, 362, 362, 362, 362,
649	370, 329, 214, 367, 213, 212, 405, 211, 368, 408,
650	408, 408, 408, 210, 209, 327, 208, 413, 207, 370,
651	413, 369, 206, 414, 204, 452, 387, 203, 409, 199,
652	411, 411, 411, 411, 413, 198, 197, 413, 195, 179,
653
654	414, 370, 371, 365, 365, 371, 419, 177, 393, 412,
655	416, 413, 176, 367, 413, 174, 173, 414, 368, 404,
656	404, 404, 404, 417, 172, 422, 422, 422, 422, 395,
657	423, 369, 171, 372, 170, 169, 168, 165, 405, 163,
658	414, 162, 161, 160, 405, 159, 158, 155, 154, 153,
659	152, 370, 377, 378, 378, 377, 377, 379, 377, 380,
660	377, 377, 380, 377, 377, 377, 377, 377, 380, 377,
661	377, 377, 378, 378, 378, 378, 378, 377, 381, 377,
662	377, 377, 378, 378, 378, 378, 378, 378, 378, 378,
663	378, 378, 378, 378, 378, 378, 378, 378, 378, 378,
664
665	378, 377, 377, 389, 389, 151, 389, 389, 389, 389,
666	150, 389, 149, 389, 148, 389, 389, 408, 408, 408,
667	408, 391, 389, 389, 420, 420, 420, 420, 147, 389,
668	389, 389, 425, 425, 425, 425, 409, 146, 428, 428,
669	428, 428, 145, 421, 144, 427, 427, 427, 427, 484,
670	319, 426, 484, 389, 389, 389, 389, 429, 389, 389,
671	389, 389, 484, 389, 409, 389, 484, 389, 389, 484,
672	484, 484, 401, 484, 389, 389, 411, 411, 411, 411,
673	407, 389, 389, 389, 484, 484, 410, 484, 430, 430,
674	430, 430, 484, 329, 413, 412, 484, 413, 484, 484,
675
676	414, 451, 451, 451, 451, 389, 389, 412, 413, 484,
677	416, 413, 367, 484, 414, 413, 484, 484, 413, 435,
678	432, 414, 433, 417, 436, 435, 484, 432, 484, 433,
679	436, 416, 484, 466, 484, 413, 466, 437, 413, 467,
680	484, 414, 484, 437, 417, 413, 484, 432, 413, 433,
681	452, 414, 420, 420, 420, 420, 435, 432, 484, 433,
682	484, 436, 472, 484, 419, 438, 438, 438, 438, 484,
683	439, 421, 484, 484, 437, 422, 422, 422, 422, 484,
684	423, 484, 484, 484, 421, 484, 484, 484, 484, 484,
685	484, 484, 484, 484, 405, 440, 441, 441, 440, 440,
686
687	442, 440, 443, 440, 440, 443, 440, 440, 440, 440,
688	440, 443, 440, 440, 440, 441, 441, 441, 441, 441,
689	440, 444, 440, 440, 440, 441, 441, 441, 441, 441,
690	441, 441, 441, 441, 441, 441, 441, 441, 441, 441,
691	441, 441, 441, 441, 440, 440, 425, 425, 425, 425,
692	446, 446, 446, 446, 484, 319, 427, 427, 427, 427,
693	484, 319, 484, 484, 484, 426, 484, 484, 484, 426,
694	428, 428, 428, 428, 484, 409, 447, 447, 447, 447,
695	484, 329, 430, 430, 430, 430, 484, 329, 484, 429,
696	484, 438, 438, 438, 438, 429, 439, 484, 484, 484,
697
698	484, 412, 484, 484, 484, 484, 484, 484, 484, 484,
699	421, 456, 457, 457, 456, 456, 458, 456, 459, 456,
700	456, 459, 456, 456, 456, 456, 456, 459, 456, 456,
701	456, 457, 457, 457, 457, 457, 456, 460, 456, 456,
702	456, 457, 457, 457, 457, 457, 457, 457, 457, 457,
703	457, 457, 457, 457, 457, 457, 457, 457, 457, 457,
704	456, 456, 463, 463, 484, 463, 463, 463, 463, 484,
705	463, 484, 463, 484, 463, 463, 484, 484, 484, 484,
706	465, 463, 463, 484, 484, 484, 484, 484, 463, 463,
707	463, 446, 446, 446, 446, 484, 319, 447, 447, 447,
708
709	447, 484, 329, 435, 484, 484, 484, 484, 449, 484,
710	426, 466, 463, 463, 466, 484, 429, 467, 484, 435,
711	432, 450, 433, 466, 449, 484, 466, 469, 484, 467,
712	477, 432, 484, 433, 484, 481, 484, 450, 484, 484,
713	470, 463, 463, 484, 463, 463, 463, 463, 482, 463,
714	484, 463, 467, 463, 463, 484, 466, 484, 484, 466,
715	463, 463, 467, 484, 484, 484, 484, 463, 463, 463,
716	484, 484, 469, 484, 466, 484, 484, 466, 484, 484,
717	467, 484, 484, 484, 484, 470, 432, 484, 433, 484,
718	469, 463, 463, 466, 484, 484, 466, 477, 484, 467,
719
720	484, 484, 478, 470, 477, 432, 484, 433, 484, 478,
721	484, 484, 484, 466, 484, 479, 466, 484, 484, 467,
722	484, 484, 479, 466, 484, 432, 466, 433, 484, 467,
723	484, 484, 484, 484, 477, 432, 484, 433, 484, 478,
724	477, 484, 472, 484, 484, 481, 477, 432, 484, 433,
725	484, 481, 479, 484, 484, 484, 484, 484, 482, 484,
726	484, 484, 484, 484, 482, 40, 40, 40, 40, 40,
727	40, 40, 40, 40, 40, 40, 55, 55, 55, 55,
728	55, 55, 55, 55, 55, 55, 55, 65, 65, 65,
729	65, 65, 65, 65, 65, 65, 65, 65, 78, 78,
730
731	78, 78, 78, 78, 78, 78, 78, 78, 78, 80,
732	80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
733	81, 81, 81, 81, 81, 81, 81, 81, 81, 81,
734	81, 98, 98, 98, 98, 98, 98, 98, 98, 98,
735	98, 98, 76, 76, 76, 76, 76, 76, 76, 76,
736	76, 76, 76, 106, 106, 106, 106, 106, 106, 106,
737	106, 106, 106, 106, 117, 117, 117, 117, 117, 117,
738	117, 117, 117, 117, 117, 127, 127, 127, 127, 127,
739	127, 127, 127, 127, 127, 127, 131, 131, 131, 131,
740	131, 131, 131, 131, 131, 131, 131, 135, 135, 135,
741
742	135, 135, 135, 135, 135, 135, 135, 135, 138, 138,
743	138, 138, 138, 138, 138, 138, 138, 138, 138, 141,
744	141, 141, 141, 141, 141, 141, 141, 141, 141, 141,
745	175, 175, 175, 484, 484, 175, 175, 178, 178, 178,
746	484, 484, 178, 178, 205, 205, 484, 205, 205, 205,
747	205, 205, 205, 205, 205, 239, 239, 484, 239, 239,
748	239, 239, 239, 239, 239, 239, 252, 252, 484, 252,
749	252, 252, 252, 252, 252, 252, 252, 254, 254, 484,
750	254, 254, 254, 254, 254, 254, 254, 254, 258, 258,
751	484, 258, 258, 258, 258, 258, 258, 258, 258, 269,
752
753	269, 484, 269, 269, 269, 269, 269, 269, 269, 269,
754	270, 270, 484, 270, 270, 270, 270, 270, 270, 270,
755	270, 280, 280, 484, 280, 280, 280, 280, 280, 280,
756	280, 280, 281, 281, 484, 281, 281, 281, 281, 281,
757	281, 281, 281, 338, 484, 484, 484, 484, 338, 346,
758	484, 484, 484, 484, 346, 366, 366, 366, 484, 484,
759	366, 366, 484, 484, 366, 373, 484, 484, 484, 484,
760	373, 382, 484, 484, 484, 382, 390, 390, 484, 390,
761	390, 390, 390, 390, 390, 390, 390, 398, 484, 484,
762	484, 398, 389, 389, 484, 389, 389, 389, 389, 389,
763
764	389, 389, 389, 415, 484, 484, 484, 415, 415, 484,
765	484, 484, 415, 418, 484, 484, 484, 418, 418, 431,
766	484, 484, 484, 431, 431, 434, 484, 484, 484, 434,
767	434, 434, 434, 434, 434, 448, 448, 448, 448, 448,
768	464, 464, 484, 464, 464, 464, 464, 464, 464, 464,
769	464, 468, 484, 484, 484, 468, 468, 484, 484, 484,
770	468, 471, 484, 484, 484, 471, 471, 463, 463, 484,
771	463, 463, 463, 463, 463, 463, 463, 463, 475, 484,
772	484, 484, 475, 475, 476, 484, 484, 484, 476, 476,
773	476, 476, 476, 476, 480, 480, 480, 480, 480, 39,
774
775	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
776	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
777	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
778	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
779	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
780	484, 484
781	} ;
782
783	static yyconst short int yy_chk[2253] =
784	{ 0,
785	0, 1, 1, 1, 1, 0, 11, 11, 3, 11,
786	130, 15, 12, 12, 16, 12, 1, 11, 11, 1,
787	134, 11, 3, 12, 12, 1, 31, 12, 29, 1,
788	31, 130, 1, 30, 1, 3, 15, 1, 3, 16,
789	29, 134, 1, 3, 1, 30, 1, 1, 2, 2,
790	2, 2, 3, 3, 32, 11, 33, 525, 32, 15,
791	33, 12, 16, 2, 17, 17, 2, 17, 58, 17,
792	18, 18, 2, 18, 25, 18, 2, 58, 25, 2,
793	192, 2, 26, 27, 2, 66, 26, 27, 66, 2,
794	217, 2, 28, 2, 2, 4, 28, 34, 517, 25,
795
796	102, 34, 69, 102, 477, 217, 217, 26, 27, 4,
797	474, 69, 164, 17, 414, 164, 414, 28, 4, 18,
798	196, 465, 4, 196, 192, 4, 92, 92, 92, 92,
799	4, 92, 462, 225, 237, 4, 225, 237, 346, 4,
800	4, 5, 5, 460, 5, 94, 94, 94, 94, 459,
801	94, 346, 95, 95, 95, 95, 5, 95, 96, 96,
802	96, 96, 262, 96, 155, 262, 437, 155, 467, 5,
803	467, 155, 5, 182, 182, 182, 182, 5, 182, 155,
804	184, 184, 184, 184, 437, 184, 5, 5, 6, 6,
805	457, 6, 185, 185, 185, 185, 456, 185, 444, 194,
806
807	194, 194, 194, 6, 194, 443, 441, 96, 186, 186,
808	186, 186, 6, 186, 207, 300, 6, 207, 300, 6,
809	190, 190, 190, 190, 6, 207, 450, 299, 366, 6,
810	299, 366, 479, 6, 6, 7, 7, 7, 7, 7,
811	7, 7, 482, 7, 450, 7, 216, 7, 7, 216,
812	479, 440, 435, 216, 7, 7, 299, 186, 299, 366,
813	482, 7, 7, 7, 214, 214, 214, 214, 433, 190,
814	371, 368, 424, 371, 368, 223, 223, 223, 223, 235,
815	235, 235, 235, 214, 406, 7, 7, 8, 8, 8,
816	8, 8, 8, 8, 223, 8, 403, 8, 235, 8,
817
818	8, 214, 368, 394, 373, 382, 8, 8, 296, 296,
819	296, 296, 223, 8, 8, 8, 235, 373, 382, 241,
820	241, 241, 241, 392, 241, 242, 242, 242, 242, 391,
821	242, 243, 243, 243, 243, 383, 243, 8, 8, 9,
822	9, 9, 9, 9, 9, 9, 388, 9, 383, 9,
823	256, 9, 9, 256, 386, 256, 381, 296, 9, 9,
824	384, 256, 398, 380, 378, 9, 9, 9, 241, 261,
825	261, 261, 261, 384, 242, 398, 245, 245, 245, 245,
826	243, 245, 249, 249, 249, 249, 377, 249, 261, 9,
827	9, 10, 10, 10, 10, 10, 10, 10, 375, 10,
828
829	367, 10, 363, 10, 10, 264, 264, 264, 264, 261,
830	10, 10, 361, 274, 274, 274, 274, 10, 10, 10,
831	399, 359, 400, 277, 264, 245, 277, 357, 277, 355,
832	354, 249, 274, 399, 277, 400, 353, 352, 350, 349,
833	343, 10, 10, 13, 13, 13, 13, 13, 13, 13,
834	13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
835	13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
836	13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
837	13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
838	13, 13, 13, 13, 13, 19, 342, 332, 330, 19,
839
840	325, 273, 273, 273, 273, 19, 19, 324, 322, 19,
841	265, 265, 265, 265, 320, 265, 315, 314, 313, 19,
842	273, 19, 312, 275, 275, 275, 275, 369, 275, 265,
843	369, 285, 285, 285, 285, 19, 311, 298, 298, 298,
844	298, 273, 275, 19, 19, 20, 308, 304, 303, 20,
845	285, 284, 284, 284, 284, 20, 20, 289, 369, 20,
846	286, 286, 286, 286, 287, 286, 283, 282, 278, 20,
847	284, 20, 288, 276, 272, 288, 271, 288, 307, 286,
848	268, 307, 267, 288, 266, 20, 298, 290, 290, 290,
849	290, 284, 290, 20, 20, 23, 263, 260, 259, 23,
850
851	257, 305, 305, 305, 305, 23, 23, 307, 255, 23,
852	253, 291, 291, 291, 291, 251, 291, 449, 246, 23,
853	305, 23, 449, 293, 293, 293, 293, 240, 293, 294,
854	294, 294, 294, 238, 294, 449, 290, 236, 316, 316,
855	316, 316, 234, 23, 23, 24, 233, 337, 232, 24,
856	337, 326, 326, 326, 326, 24, 24, 316, 230, 24,
857	291, 306, 306, 306, 306, 229, 306, 228, 481, 24,
858	326, 24, 293, 481, 431, 431, 337, 431, 294, 431,
859	306, 227, 226, 224, 222, 221, 481, 220, 218, 215,
860	213, 212, 431, 24, 24, 89, 89, 89, 89, 89,
861
862	89, 89, 89, 89, 89, 89, 89, 89, 89, 89,
863	89, 89, 89, 89, 89, 89, 89, 89, 89, 89,
864	89, 89, 89, 89, 89, 89, 89, 89, 89, 89,
865	89, 89, 89, 89, 89, 89, 89, 89, 89, 89,
866	89, 89, 89, 89, 89, 89, 93, 93, 93, 93,
867	93, 93, 93, 93, 93, 93, 93, 93, 93, 93,
868	93, 93, 93, 93, 93, 93, 93, 93, 93, 93,
869	93, 93, 93, 93, 93, 93, 93, 93, 93, 93,
870	93, 93, 93, 93, 93, 93, 93, 93, 93, 93,
871	93, 93, 93, 93, 93, 93, 93, 165, 211, 210,
872
873	165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
874	165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
875	165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
876	165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
877	165, 165, 165, 165, 165, 165, 165, 165, 193, 193,
878	193, 193, 193, 193, 193, 193, 193, 193, 193, 193,
879	193, 193, 193, 193, 193, 193, 193, 193, 193, 193,
880	193, 193, 193, 193, 193, 193, 193, 193, 193, 193,
881	193, 193, 193, 193, 193, 193, 193, 193, 193, 193,
882	193, 193, 193, 193, 193, 193, 193, 193, 193, 309,
883
884	309, 309, 309, 209, 309, 206, 204, 198, 191, 189,
885	188, 179, 178, 177, 175, 173, 172, 171, 309, 310,
886	310, 310, 310, 310, 310, 310, 310, 310, 310, 310,
887	310, 310, 310, 310, 310, 310, 310, 310, 310, 310,
888	310, 310, 310, 310, 310, 310, 310, 310, 310, 310,
889	310, 310, 310, 310, 310, 310, 310, 310, 310, 310,
890	310, 310, 310, 310, 310, 310, 310, 310, 310, 310,
891	317, 317, 317, 317, 170, 317, 318, 318, 318, 318,
892	169, 318, 327, 327, 327, 327, 168, 327, 167, 317,
893	166, 328, 328, 328, 328, 318, 328, 334, 334, 334,
894
895	334, 327, 335, 335, 335, 335, 341, 163, 162, 341,
896	328, 339, 339, 339, 339, 344, 344, 344, 344, 161,
897	344, 160, 339, 358, 358, 358, 358, 159, 358, 158,
898	365, 365, 365, 365, 344, 341, 451, 451, 451, 451,
899	339, 365, 358, 157, 156, 154, 334, 387, 387, 387,
900	387, 335, 338, 338, 338, 338, 362, 362, 362, 362,
901	339, 362, 153, 338, 152, 151, 387, 150, 338, 393,
902	393, 393, 393, 149, 148, 362, 147, 397, 146, 365,
903	397, 338, 145, 397, 144, 451, 387, 137, 393, 122,
904	395, 395, 395, 395, 396, 114, 111, 396, 100, 86,
905
906	396, 338, 340, 340, 340, 340, 397, 80, 393, 395,
907	396, 413, 79, 340, 413, 78, 75, 413, 340, 404,
908	404, 404, 404, 396, 74, 405, 405, 405, 405, 395,
909	405, 340, 73, 340, 72, 71, 70, 68, 404, 64,
910	413, 63, 62, 61, 405, 60, 59, 57, 54, 53,
911	52, 340, 345, 345, 345, 345, 345, 345, 345, 345,
912	345, 345, 345, 345, 345, 345, 345, 345, 345, 345,
913	345, 345, 345, 345, 345, 345, 345, 345, 345, 345,
914	345, 345, 345, 345, 345, 345, 345, 345, 345, 345,
915	345, 345, 345, 345, 345, 345, 345, 345, 345, 345,
916
917	345, 345, 345, 356, 356, 51, 356, 356, 356, 356,
918	50, 356, 49, 356, 48, 356, 356, 408, 408, 408,
919	408, 356, 356, 356, 401, 401, 401, 401, 47, 356,
920	356, 356, 407, 407, 407, 407, 408, 46, 410, 410,
921	410, 410, 44, 401, 41, 409, 409, 409, 409, 39,
922	409, 407, 0, 356, 356, 390, 390, 410, 390, 390,
923	390, 390, 0, 390, 409, 390, 0, 390, 390, 0,
924	0, 0, 401, 0, 390, 390, 411, 411, 411, 411,
925	407, 390, 390, 390, 0, 0, 410, 0, 412, 412,
926	412, 412, 0, 412, 416, 411, 0, 416, 0, 0,
927
928	416, 432, 432, 432, 432, 390, 390, 412, 415, 0,
929	416, 415, 432, 0, 415, 417, 0, 0, 417, 415,
930	415, 417, 415, 416, 415, 436, 436, 417, 436, 417,
931	436, 417, 0, 454, 0, 419, 454, 415, 419, 454,
932	0, 419, 0, 436, 417, 418, 0, 419, 418, 419,
933	432, 418, 420, 420, 420, 420, 418, 418, 0, 418,
934	0, 418, 454, 0, 419, 421, 421, 421, 421, 0,
935	421, 420, 0, 0, 418, 422, 422, 422, 422, 0,
936	422, 0, 0, 0, 421, 0, 0, 0, 0, 0,
937	0, 0, 0, 0, 422, 423, 423, 423, 423, 423,
938
939	423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
940	423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
941	423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
942	423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
943	423, 423, 423, 423, 423, 423, 425, 425, 425, 425,
944	426, 426, 426, 426, 0, 426, 427, 427, 427, 427,
945	0, 427, 0, 0, 0, 425, 0, 0, 0, 426,
946	428, 428, 428, 428, 0, 427, 429, 429, 429, 429,
947	0, 429, 430, 430, 430, 430, 0, 430, 0, 428,
948	0, 438, 438, 438, 438, 429, 438, 0, 0, 0,
949
950	0, 430, 0, 0, 0, 0, 0, 0, 0, 0,
951	438, 439, 439, 439, 439, 439, 439, 439, 439, 439,
952	439, 439, 439, 439, 439, 439, 439, 439, 439, 439,
953	439, 439, 439, 439, 439, 439, 439, 439, 439, 439,
954	439, 439, 439, 439, 439, 439, 439, 439, 439, 439,
955	439, 439, 439, 439, 439, 439, 439, 439, 439, 439,
956	439, 439, 445, 445, 0, 445, 445, 445, 445, 0,
957	445, 0, 445, 0, 445, 445, 0, 0, 0, 0,
958	445, 445, 445, 0, 0, 0, 0, 0, 445, 445,
959	445, 446, 446, 446, 446, 0, 446, 447, 447, 447,
960
961	447, 0, 447, 448, 448, 0, 448, 0, 448, 0,
962	446, 453, 445, 445, 453, 0, 447, 453, 0, 455,
963	455, 448, 455, 466, 455, 0, 466, 453, 0, 466,
964	475, 475, 0, 475, 0, 475, 0, 455, 0, 0,
965	453, 464, 464, 0, 464, 464, 464, 464, 475, 464,
966	0, 464, 466, 464, 464, 0, 469, 0, 0, 469,
967	464, 464, 469, 0, 0, 0, 0, 464, 464, 464,
968	0, 0, 469, 0, 470, 0, 0, 470, 0, 0,
969	470, 0, 0, 0, 0, 469, 470, 0, 470, 0,
970	470, 464, 464, 468, 0, 0, 468, 478, 478, 468,
971
972	478, 0, 478, 470, 468, 468, 0, 468, 0, 468,
973	0, 0, 0, 472, 0, 478, 472, 0, 0, 472,
974	0, 0, 468, 471, 0, 472, 471, 472, 0, 471,
975	0, 0, 0, 0, 471, 471, 0, 471, 0, 471,
976	480, 480, 472, 480, 0, 480, 483, 483, 0, 483,
977	0, 483, 471, 0, 0, 0, 0, 0, 480, 0,
978	0, 0, 0, 0, 483, 485, 485, 485, 485, 485,
979	485, 485, 485, 485, 485, 485, 486, 486, 486, 486,
980	486, 486, 486, 486, 486, 486, 486, 487, 487, 487,
981	487, 487, 487, 487, 487, 487, 487, 487, 488, 488,
982
983	488, 488, 488, 488, 488, 488, 488, 488, 488, 489,
984	489, 489, 489, 489, 489, 489, 489, 489, 489, 489,
985	490, 490, 490, 490, 490, 490, 490, 490, 490, 490,
986	490, 491, 491, 491, 491, 491, 491, 491, 491, 491,
987	491, 491, 492, 492, 492, 492, 492, 492, 492, 492,
988	492, 492, 492, 493, 493, 493, 493, 493, 493, 493,
989	493, 493, 493, 493, 494, 494, 494, 494, 494, 494,
990	494, 494, 494, 494, 494, 495, 495, 495, 495, 495,
991	495, 495, 495, 495, 495, 495, 496, 496, 496, 496,
992	496, 496, 496, 496, 496, 496, 496, 497, 497, 497,
993
994	497, 497, 497, 497, 497, 497, 497, 497, 498, 498,
995	498, 498, 498, 498, 498, 498, 498, 498, 498, 499,
996	499, 499, 499, 499, 499, 499, 499, 499, 499, 499,
997	500, 500, 500, 0, 0, 500, 500, 501, 501, 501,
998	0, 0, 501, 501, 502, 502, 0, 502, 502, 502,
999	502, 502, 502, 502, 502, 503, 503, 0, 503, 503,
1000	503, 503, 503, 503, 503, 503, 504, 504, 0, 504,
1001	504, 504, 504, 504, 504, 504, 504, 505, 505, 0,
1002	505, 505, 505, 505, 505, 505, 505, 505, 506, 506,
1003	0, 506, 506, 506, 506, 506, 506, 506, 506, 507,
1004
1005	507, 0, 507, 507, 507, 507, 507, 507, 507, 507,
1006	508, 508, 0, 508, 508, 508, 508, 508, 508, 508,
1007	508, 509, 509, 0, 509, 509, 509, 509, 509, 509,
1008	509, 509, 510, 510, 0, 510, 510, 510, 510, 510,
1009	510, 510, 510, 511, 0, 0, 0, 0, 511, 512,
1010	0, 0, 0, 0, 512, 513, 513, 513, 0, 0,
1011	513, 513, 0, 0, 513, 514, 0, 0, 0, 0,
1012	514, 515, 0, 0, 0, 515, 516, 516, 0, 516,
1013	516, 516, 516, 516, 516, 516, 516, 518, 0, 0,
1014	0, 518, 519, 519, 0, 519, 519, 519, 519, 519,
1015
1016	519, 519, 519, 520, 0, 0, 0, 520, 520, 0,
1017	0, 0, 520, 521, 0, 0, 0, 521, 521, 522,
1018	0, 0, 0, 522, 522, 523, 0, 0, 0, 523,
1019	523, 523, 523, 523, 523, 524, 524, 524, 524, 524,
1020	526, 526, 0, 526, 526, 526, 526, 526, 526, 526,
1021	526, 527, 0, 0, 0, 527, 527, 0, 0, 0,
1022	527, 528, 0, 0, 0, 528, 528, 529, 529, 0,
1023	529, 529, 529, 529, 529, 529, 529, 529, 530, 0,
1024	0, 0, 530, 530, 531, 0, 0, 0, 531, 531,
1025	531, 531, 531, 531, 532, 532, 532, 532, 532, 484,
1026
1027	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
1028	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
1029	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
1030	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
1031	484, 484, 484, 484, 484, 484, 484, 484, 484, 484,
1032	484, 484
1033	} ;
1034
1035	static yy_state_type yy_last_accepting_state;
1036	static char *yy_last_accepting_cpos;
1037
1038	/* The intent behind this definition is that it'll catch
1039	* any uses of REJECT which flex missed.
1040	*/
1041	#define REJECT reject_used_but_not_detected
1042	static int yy_more_flag = 0;
1043	static int yy_more_len = 0;
1044	#define yymore() (yy_more_flag = 1)
1045	#define YY_MORE_ADJ yy_more_len
1046	#define YY_RESTORE_YY_MORE_OFFSET
1047	char *yytext;
1048	#line 1 "libparse.l"
1049	#define INITIAL 0
1050	#line 2 "libparse.l"
1051	/****************************************
1052	* Computer Algebra System SINGULAR *
1053	****************************************/
1054	/* $Id: libparse.cc,v 1.11 2005-10-05 14:18:46 bricken Exp $ */
1055	#include <stdio.h>
1056	#include <string.h>
1057	#include <stdlib.h>
1058	#include <ctype.h>
1059	#include "mod2.h"
1060	#ifdef STANDALONE_PARSER
1061	#include "utils.h"
1062	#define HAVE_LIBPARSER
1063	#define YYLPDEBUG 1
1064	#include "../kernel/febase.cc"
1065	#else
1066	#include "subexpr.h"
1067	#include "grammar.h"
1068	#include "ipshell.h"
1069	#include "ipid.h"
1070	#include "tok.h"
1071	#include "febase.h"
1072	#include "omalloc.h"
1073	#endif
1074	#include "libparse.h"
1075
1076	#ifdef HAVE_LIBPARSER
1077	#define YY_SKIP_YYWRAP
1078
1079	typedef enum { LP_NONE, LP_INFO, LP_CATEGORY, LP_URL, LP_VERSION} lib_cmds;
1080
1081	int libread(FILE* f, char* buf, int max_size);
1082	int current_pos(int i);
1083	void print_version(lp_modes mode, char *p);
1084	void copy_string(lp_modes mode);
1085	extern void piCleanUp(procinfov pi);
1086	void make_version(char *p, int what);
1087
1088	int brace1 = 0; /* { } */
1089	int brace2 = 0; /* ( ) */
1090	int brace3 = 0; /* [ ] */
1091	int quote = 0; /* " */
1092	int offset = 0;
1093	BOOLEAN p_static = FALSE;
1094	int old_state = 0;
1095	lib_cmds last_cmd = LP_NONE;
1096
1097	char libnamebuf[128];
1098	char *text_buffer=NULL;
1099	long string_start;
1100
1101	char *yylp_buffer_start;
1102	int yylplineno = 1;
1103	int lpverbose = 0, check = 0;
1104	int texinfo_out = 0;
1105	int found_info=0,
1106	found_cat=0,
1107	found_version=0,
1108	found_oldhelp = 0,
1109	found_proc_in_proc = 0;
1110
1111	char *yylp_errlist[]= {
1112	"",
1113	"missing close bracket ')' for proc definition in line %d.", /* 1 */
1114	"missing close bracket ')' for procbody in line %d.", /* 2 */
1115	"missing close bracket ']' for procbody in line %d.", /* 3 */
1116	"too many ')' closed brackets in line %d.", /* 4 */
1117	"too many ']' closed brackets in line %d.", /* 5 */
1118	"missing close bracket ')' for example in line %d.", /* 6 */
1119	"missing close bracket ']' for example in line %d.", /* 7 */
1120	"cannot assign character '%c' in line %d to any group.", /* 8 */
1121	"there must be a quote missing somewhere before line %d.", /* 9 */
1122	"missing close bracket '}' at end of library in line %d.", /* 10 */
1123	"missing close bracket ')' at end of library in line %d.", /* 11 */
1124	"missing close bracket ']' at end of library in line %d.", /* 12 */
1125	NULL
1126	};
1127	int yylp_errno = 0;
1128
1129	#ifdef STANDALONE_PARSER
1130	procinfov pi;
1131	int category_out = 0;
1132	void printpi(procinfov pi);
1133	void pi_clear(procinfov pi);
1134	extern "C" {
1135	int yylpwrap();
1136	}
1137	void main_init(int argc, char *argv[]);
1138	void main_result(char *libname);
1139	#else /* STANDALONE_PARSER */
1140	idhdl h0;
1141	#ifdef HAVE_NS
1142	idhdl h_top;
1143	#endif
1144	#define pi IDPROC(h0)
1145	extern "C"
1146	{
1147	int yylpwrap();
1148	}
1149	extern libstackv library_stack;
1150	#endif /* STANDALONE_PARSER */
1151
1152	static unsigned long help_chksum;
1153
1154	#define SET_DEF_END(mode, pi, p) \
1155	if ( mode == LOAD_LIB) pi->data.s.def_end = p;
1156	#define SET_HELP_START(mode, pi, p) \
1157	if ( mode == LOAD_LIB) {pi->data.s.help_start = p; help_chksum = 0;}
1158	#define SET_HELP_END(mode, pi, p) \
1159	if ( mode == LOAD_LIB) {pi->data.s.help_end = p; \
1160	pi->data.s.help_chksum = help_chksum;}
1161
1162	#define SET_BODY_START(mode, pi, l, p) \
1163	if ( mode == LOAD_LIB) \
1164	{ \
1165	pi->data.s.body_lineno = l; \
1166	pi->data.s.body_start = p; \
1167	}
1168	#define SET_BODY_END(mode, pi, p) \
1169	if ( mode == LOAD_LIB) \
1170	{ \
1171	pi->data.s.body_end = p-1; \
1172	pi->data.s.proc_end = p-1; \
1173	}
1174
1175	#define SET_EXAMPLE_START(mode, pi, l, p) \
1176	if ( mode == LOAD_LIB) \
1177	{ \
1178	pi->data.s.example_lineno = l; \
1179	pi->data.s.example_start = p; \
1180	}
1181	#define SET_PROC_END(mode, pi, p) \
1182	if ( mode == LOAD_LIB) \
1183	{ \
1184	pi->data.s.proc_end = p-1; \
1185	if(pi->data.s.body_end==0) \
1186	pi->data.s.body_end = p-1; \
1187	}
1188
1189	#define ROTATE_RIGHT(c) if ((c) & 01) (c) = ((c) >>1) + 0x8000; else (c) >>= 1;
1190	#define IncrCheckSum(c) \
1191	do \
1192	{ \
1193	ROTATE_RIGHT(help_chksum); \
1194	help_chksum += c; \
1195	help_chksum &= 0xffff; \
1196	} \
1197	while(0)
1198
1199	#undef YY_DECL
1200	#ifdef HAVE_NS
1201	#define YY_DECL int yylex(char newlib, char libfile, \
1202	lib_style_types *lib_style, \
1203	idhdl pl, BOOLEAN autoexport, lp_modes mode)
1204	#else
1205	#define YY_DECL int yylex(char newlib, char libfile, \
1206	lib_style_types *lib_style, \
1207	lp_modes mode)
1208	#endif /* HAVE_NS */
1209
1210	#undef YY_INPUT
1211	#define YY_INPUT(buf,result,max_size) \
1212	if ( ((result = libread( (yyin), (char *) buf, max_size )) < 0 ) \
1213	&& ferror( yyin ) ) \
1214	YY_FATAL_ERROR( "read in flex scanner failed" );
1215
1216	#define YY_USER_INIT { \
1217	BEGIN(header); \
1218	yylplineno = 1; \
1219	yylp_errno = 0; \
1220	*lib_style = OLD_LIBSTYLE; \
1221	strcpy(libnamebuf,"(unknown version)"); \
1222	}
1223
1224	#if 0
1225	<pbody>proc[ \t]+{name} {
1226	printf("MISSING: PROC-cmd found. ERROR!\n"); }
1227	<pbody>example[ \t]*\n {
1228	yylplineno++;
1229	printf("MISSING: EXAMPLE-cmd found. ERROR!\n"); }
1230	info=+"\"" {
1231	#endif
1232
1233	/* %start START */
1234	#define header 1
1235
1236	#define help 2
1237
1238	#define libcmd 3
1239
1240	#define libcmd2 4
1241
1242	#define pdef 5
1243
1244	#define phead 6
1245
1246	#define poldhelp 7
1247
1248	#define phelp 8
1249
1250	#define pbody 9
1251
1252	#define pstr 10
1253
1254	#define pexample 11
1255
1256	#define pestr 12
1257
1258	#define string 13
1259
1260	#define comment 14
1261
1262	#define info 15
1263
1264	#define category 16
1265
1266	#define url 17
1267
1268	#define version 18
1269
1270
1271	/* Macros after this point can all be overridden by user definitions in
1272	* section 1.
1273	*/
1274
1275	#ifndef YY_SKIP_YYWRAP
1276	#ifdef __cplusplus
1277	extern "C" int yywrap YY_PROTO(( void ));
1278	#else
1279	extern int yywrap YY_PROTO(( void ));
1280	#endif
1281	#endif
1282
1283	#ifndef YY_NO_UNPUT
1284	static void yyunput YY_PROTO(( int c, char *buf_ptr ));
1285	#endif
1286
1287	#ifndef yytext_ptr
1288	static void yy_flex_strncpy YY_PROTO(( char , yyconst char , int ));
1289	#endif
1290
1291	#ifdef YY_NEED_STRLEN
1292	static int yy_flex_strlen YY_PROTO(( yyconst char * ));
1293	#endif
1294
1295	#ifndef YY_NO_INPUT
1296	#ifdef __cplusplus
1297	static int yyinput YY_PROTO(( void ));
1298	#else
1299	static int input YY_PROTO(( void ));
1300	#endif
1301	#endif
1302
1303	#if YY_STACK_USED
1304	static int yy_start_stack_ptr = 0;
1305	static int yy_start_stack_depth = 0;
1306	static int *yy_start_stack = 0;
1307	#ifndef YY_NO_PUSH_STATE
1308	static void yy_push_state YY_PROTO(( int new_state ));
1309	#endif
1310	#ifndef YY_NO_POP_STATE
1311	static void yy_pop_state YY_PROTO(( void ));
1312	#endif
1313	#ifndef YY_NO_TOP_STATE
1314	static int yy_top_state YY_PROTO(( void ));
1315	#endif
1316
1317	#else
1318	#define YY_NO_PUSH_STATE 1
1319	#define YY_NO_POP_STATE 1
1320	#define YY_NO_TOP_STATE 1
1321	#endif
1322
1323	#ifdef YY_MALLOC_DECL
1324	YY_MALLOC_DECL
1325	#else
1326	#if __STDC__
1327	#ifndef __cplusplus
1328	#include <stdlib.h>
1329	#endif
1330	#else
1331	/* Just try to get by without declaring the routines. This will fail
1332	* miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
1333	* or sizeof(void*) != sizeof(int).
1334	*/
1335	#endif
1336	#endif
1337
1338	/* Amount of stuff to slurp up with each read. */
1339	#ifndef YY_READ_BUF_SIZE
1340	#define YY_READ_BUF_SIZE 8192
1341	#endif
1342
1343	/* Copy whatever the last rule matched to the standard output. */
1344
1345	#ifndef ECHO
1346	/* This used to be an fputs(), but since the string might contain NUL's,
1347	* we now use fwrite().
1348	*/
1349	#define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
1350	#endif
1351
1352	/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
1353	* is returned in "result".
1354	*/
1355	#ifndef YY_INPUT
1356	#define YY_INPUT(buf,result,max_size) \
1357	if ( yy_current_buffer->yy_is_interactive ) \
1358	{ \
1359	int c = '*', n; \
1360	for ( n = 0; n < max_size && \
1361	(c = getc( yyin )) != EOF && c != '\n'; ++n ) \
1362	buf[n] = (char) c; \
1363	if ( c == '\n' ) \
1364	buf[n++] = (char) c; \
1365	if ( c == EOF && ferror( yyin ) ) \
1366	YY_FATAL_ERROR( "input in flex scanner failed" ); \
1367	result = n; \
1368	} \
1369	else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
1370	&& ferror( yyin ) ) \
1371	YY_FATAL_ERROR( "input in flex scanner failed" );
1372	#endif
1373
1374	/* No semi-colon after return; correct usage is to write "yyterminate();" -
1375	* we don't want an extra ';' after the "return" because that will cause
1376	* some compilers to complain about unreachable statements.
1377	*/
1378	#ifndef yyterminate
1379	#define yyterminate() return YY_NULL
1380	#endif
1381
1382	/* Number of entries by which start-condition stack grows. */
1383	#ifndef YY_START_STACK_INCR
1384	#define YY_START_STACK_INCR 25
1385	#endif
1386
1387	/* Report a fatal error. */
1388	#ifndef YY_FATAL_ERROR
1389	#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
1390	#endif
1391
1392	/* Default declaration of generated scanner - a define so the user can
1393	* easily add parameters.
1394	*/
1395	#ifndef YY_DECL
1396	#define YY_DECL int yylex YY_PROTO(( void ))
1397	#endif
1398
1399	/* Code executed at the beginning of each rule, after yytext and yyleng
1400	* have been set up.
1401	*/
1402	#ifndef YY_USER_ACTION
1403	#define YY_USER_ACTION
1404	#endif
1405
1406	/* Code executed at the end of each rule. */
1407	#ifndef YY_BREAK
1408	#define YY_BREAK break;
1409	#endif
1410
1411	#define YY_RULE_SETUP \
1412	if ( yyleng > 0 ) \
1413	yy_current_buffer->yy_at_bol = \
1414	(yytext[yyleng - 1] == '\n'); \
1415	YY_USER_ACTION
1416
1417	YY_DECL
1418	{
1419	register yy_state_type yy_current_state;
1420	register char yy_cp = NULL, yy_bp = NULL;
1421	register int yy_act;
1422
1423	#line 237 "libparse.l"
1424
1425
1426	if ( yy_init )
1427	{
1428	yy_init = 0;
1429
1430	#ifdef YY_USER_INIT
1431	YY_USER_INIT;
1432	#endif
1433
1434	if ( ! yy_start )
1435	yy_start = 1; /* first start state */
1436
1437	if ( ! yyin )
1438	yyin = stdin;
1439
1440	if ( ! yyout )
1441	yyout = stdout;
1442
1443	if ( ! yy_current_buffer )
1444	yy_current_buffer =
1445	yy_create_buffer( yyin, YY_BUF_SIZE );
1446
1447	yy_load_buffer_state();
1448	}
1449
1450	while ( 1 ) /* loops until end-of-file is reached */
1451	{
1452	yy_more_len = 0;
1453	if ( yy_more_flag )
1454	{
1455	yy_more_len = yy_c_buf_p - yytext_ptr;
1456	yy_more_flag = 0;
1457	}
1458	yy_cp = yy_c_buf_p;
1459
1460	/* Support of yytext. */
1461	*yy_cp = yy_hold_char;
1462
1463	/* yy_bp points to the position in yy_ch_buf of the start of
1464	* the current run.
1465	*/
1466	yy_bp = yy_cp;
1467
1468	yy_current_state = yy_start;
1469	yy_current_state += YY_AT_BOL();
1470	yy_match:
1471	do
1472	{
1473	register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
1474	if ( yy_accept[yy_current_state] )
1475	{
1476	yy_last_accepting_state = yy_current_state;
1477	yy_last_accepting_cpos = yy_cp;
1478	}
1479	while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1480	{
1481	yy_current_state = (int) yy_def[yy_current_state];
1482	if ( yy_current_state >= 485 )
1483	yy_c = yy_meta[(unsigned int) yy_c];
1484	}
1485	yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1486	++yy_cp;
1487	}
1488	while ( yy_base[yy_current_state] != 2200 );
1489
1490	yy_find_action:
1491	yy_act = yy_accept[yy_current_state];
1492	if ( yy_act == 0 )
1493	{ /* have to back up */
1494	yy_cp = yy_last_accepting_cpos;
1495	yy_current_state = yy_last_accepting_state;
1496	yy_act = yy_accept[yy_current_state];
1497	}
1498
1499	YY_DO_BEFORE_ACTION;
1500
1501
1502	do_action: /* This label is used only to access EOF actions. */
1503
1504
1505	switch ( yy_act )
1506	{ /* beginning of action switch */
1507	case 0: /* must back up */
1508	/* undo the effects of YY_DO_BEFORE_ACTION */
1509	*yy_cp = yy_hold_char;
1510	yy_cp = yy_last_accepting_cpos;
1511	yy_current_state = yy_last_accepting_state;
1512	goto yy_find_action;
1513
1514	case 1:
1515	YY_RULE_SETUP
1516	#line 238 "libparse.l"
1517	{ }
1518	YY_BREAK
1519	case 2:
1520	YY_RULE_SETUP
1521	#line 239 "libparse.l"
1522	{ old_state = YYSTATE; BEGIN(comment); }
1523	YY_BREAK
1524	case 3:
1525	YY_RULE_SETUP
1526	#line 241 "libparse.l"
1527	{
1528	yyless(4); old_state = YYSTATE; BEGIN(info);
1529	}
1530	YY_BREAK
1531	case 4:
1532	YY_RULE_SETUP
1533	#line 244 "libparse.l"
1534	{
1535	yyless(8); old_state = YYSTATE; BEGIN(category);
1536	}
1537	YY_BREAK
1538	case 5:
1539	YY_RULE_SETUP
1540	#line 247 "libparse.l"
1541	{
1542	if ( mode != GET_INFO )
1543	{
1544	#ifdef STANDALONE_PARSER
1545	if (texinfo_out)
1546	{
1547	char *c = yytext;
1548	printf("$url = \"");
1549	while ((c != '\0') && (c != '"')) c++;
1550	c++;
1551	while ((c != '\0') && (c != '"'))
1552	{
1553	if (c != '\r') putchar(c);
1554	c++;
1555	}
1556	printf("\";\n");
1557	}
1558	#endif
1559	}
1560	}
1561	YY_BREAK
1562	case 6:
1563	YY_RULE_SETUP
1564	#line 268 "libparse.l"
1565	{
1566	found_version++;
1567	if ( mode != GET_INFO )
1568	{
1569	make_version(yytext,1);
1570	#ifdef STANDALONE_PARSER
1571	if (texinfo_out)
1572	{
1573	char *c = libnamebuf;
1574	printf("$version = \"");
1575	while (*c != '\0')
1576	{
1577	if (c == '$' \|\| c == '@') putchar('\\');
1578	if (c != '\r') putchar(c);
1579	if (*c == '\\')
1580	{
1581	c++;
1582	if (*c != '"') putchar('\\');
1583	}
1584	else
1585	c++;
1586	}
1587	printf("\";\n");
1588	}
1589	else if (!category_out)
1590	printf("Version:%s;\n", libnamebuf);
1591	#else
1592	if (text_buffer!=NULL) omFree((ADDRESS)text_buffer);
1593	text_buffer = omStrDup(libnamebuf);
1594	omMarkAsStaticAddr(text_buffer);
1595	#endif
1596	}
1597	}
1598	YY_BREAK
1599	case 7:
1600	YY_RULE_SETUP
1601	#line 302 "libparse.l"
1602	{ p_static=TRUE; }
1603	YY_BREAK
1604	case 8:
1605	YY_RULE_SETUP
1606	#line 304 "libparse.l"
1607	{
1608	char proc[256];
1609	BEGIN(pdef);
1610	found_proc_in_proc = 0;
1611	proc[0]='\0';
1612	sscanf( yytext, "%*[^p]proc %s", proc);
1613	if(strlen(proc)<1) sscanf( yytext, "proc %s", proc);
1614	#if YYLPDEBUG > 1
1615	printf("Newlib:%s\n", newlib);
1616	#endif
1617	#ifdef STANDALONE_PARSER
1618	if ( pi != NULL )
1619	{
1620	printpi(pi);
1621	pi_clear(pi);
1622	}
1623	#ifdef STANDALONE_PARSER
1624	pi = (procinfo *)malloc(sizeof(procinfo));
1625	#else
1626	pi = (procinfo *)omAlloc(sizeof(procinfo));
1627	#endif
1628	iiInitSingularProcinfo(pi, newlib, proc, yylplineno,
1629	current_pos(0), p_static);
1630	#else /STANDALONE_PARSER/
1631	if( mode == LOAD_LIB)
1632	{
1633	#ifdef HAVE_NS
1634	h0 = enterid( proc, 0 /myynest/, PROC_CMD,
1635	&(IDPACKAGE(pl)->idroot), TRUE);
1636	if (h0==NULL) return(1);
1637	if((!p_static) && autoexport)
1638	{
1639	h_top = enterid( proc, 0 /myynest/, PROC_CMD,
1640	&(basePack->idroot), FALSE );
1641	if (h_top==NULL) return(1);
1642	}
1643	#else
1644	h0 = enterid( proc, 0 /myynest/, PROC_CMD,
1645	&IDROOT, TRUE );
1646	#endif /* HAVE_NS */
1647	/* omCheckAddr(IDID(h0)); */
1648	if (h0!=NULL)
1649	{
1650	iiInitSingularProcinfo(IDPROC(h0), newlib, proc,
1651	yylplineno, current_pos(0),p_static);
1652	#ifdef HAVE_NS
1653	if ((!p_static) && (h_top != NULL) && autoexport)
1654	{
1655	if(IDPROC(h_top)!=NULL) piCleanUp((procinfo *)IDPROC(h_top));
1656	IDPROC(h_top)=IDPROC(h0);
1657	IDPROC(h_top)->ref++;
1658	}
1659	IDPROC(h0)->pack=IDPACKAGE(pl);
1660	#endif /* HAVE_NS */
1661	if (BVERBOSE(V_LOAD_PROC))
1662	Warn( " proc '%s' registered", proc );
1663	}
1664	#endif /STANDALONE_PARSER/
1665	SET_DEF_END(mode, pi, current_pos(yyleng+1));
1666	#if YYLPDEBUG
1667	if(lpverbose)
1668	{
1669	printf("// PROCEDURE '%s' status: %s, ", proc,
1670	p_static ? "local" : "global");
1671	printf("starting at line %d,%d: definition end: %d (%d).\n",
1672	yylplineno, current_pos(0), (int)pi->data.s.def_end, brace1);
1673	}
1674	#endif
1675	p_static=FALSE;
1676	#ifndef STANDALONE_PARSER
1677	}
1678	#endif /STANDALONE_PARSER/
1679	}
1680	YY_BREAK
1681	case 9:
1682	YY_RULE_SETUP
1683	#line 377 "libparse.l"
1684	{
1685	BEGIN(pexample);
1686	SET_EXAMPLE_START(mode, pi, yylplineno, current_pos(0));
1687	#if YYLPDEBUG
1688	if(lpverbose)
1689	{
1690	printf("// EXAMPLE at line %d,%d (%d)\n", yylplineno,
1691	current_pos(0), brace1);
1692	}
1693	#endif
1694	}
1695	YY_BREAK
1696	case 10:
1697	YY_RULE_SETUP
1698	#line 389 "libparse.l"
1699	{ quote++;
1700	BEGIN(libcmd);
1701	}
1702	YY_BREAK
1703	case 11:
1704	YY_RULE_SETUP
1705	#line 393 "libparse.l"
1706	{ quote++; brace2++;
1707	BEGIN(libcmd2);
1708	}
1709	YY_BREAK
1710	case 12:
1711	YY_RULE_SETUP
1712	#line 397 "libparse.l"
1713	{
1714	make_version(yytext, 0);
1715	#if YYLPDEBUG > 1
1716	printf("+(id)HEAD:%s\n", yytext);
1717	#endif
1718	}
1719	YY_BREAK
1720	case 13:
1721	YY_RULE_SETUP
1722	#line 403 "libparse.l"
1723	{
1724	#if YYLPDEBUG
1725	printf("+(cmt)HEAD:%s\n", yytext);
1726	#endif
1727	}
1728	YY_BREAK
1729	case 14:
1730	YY_RULE_SETUP
1731	#line 408 "libparse.l"
1732	{
1733	#if YYLPDEBUG > 1
1734	printf("-HEAD:%s\n", yytext);
1735	#endif
1736	}
1737	YY_BREAK
1738	case 15:
1739	YY_RULE_SETUP
1740	#line 413 "libparse.l"
1741	{ yyless(0);
1742	BEGIN(INITIAL);
1743	yymore();
1744	}
1745	YY_BREAK
1746	case 16:
1747	YY_RULE_SETUP
1748	#line 417 "libparse.l"
1749	{
1750	yyless(0);
1751	*lib_style = NEW_LIBSTYLE;
1752	BEGIN(INITIAL);
1753	yymore();
1754	}
1755	YY_BREAK
1756	case 17:
1757	YY_RULE_SETUP
1758	#line 424 "libparse.l"
1759	{ quote++;
1760	BEGIN(libcmd);
1761	}
1762	YY_BREAK
1763	case 18:
1764	YY_RULE_SETUP
1765	#line 427 "libparse.l"
1766	{ quote++; brace2++;
1767	BEGIN(libcmd2);
1768	}
1769	YY_BREAK
1770	case 19:
1771	YY_RULE_SETUP
1772	#line 430 "libparse.l"
1773	{ yylplineno++; }
1774	YY_BREAK
1775	case 20:
1776	YY_RULE_SETUP
1777	#line 431 "libparse.l"
1778	{
1779	#if YYLPDEBUG > 1
1780	printf(" HEAD:%s\n", yytext);
1781	#endif
1782	yyless(0);
1783	BEGIN(help);
1784	}
1785	YY_BREAK
1786	case 21:
1787	YY_RULE_SETUP
1788	#line 438 "libparse.l"
1789	{
1790	#if YYLPDEBUG > 1
1791	printf(" HELP:%s\n", yytext);
1792	#endif
1793	BEGIN(INITIAL); }
1794	YY_BREAK
1795	case 22:
1796	YY_RULE_SETUP
1797	#line 443 "libparse.l"
1798	{
1799	#if YYLPDEBUG > 1
1800	printf(" HELP:%s\n", yytext);
1801	#endif
1802	BEGIN(INITIAL);
1803	}
1804	YY_BREAK
1805	case 23:
1806	YY_RULE_SETUP
1807	#line 449 "libparse.l"
1808	{
1809	yyless(0);
1810	*lib_style = NEW_LIBSTYLE;
1811	BEGIN(INITIAL);
1812	yymore();
1813	}
1814	YY_BREAK
1815	case 24:
1816	YY_RULE_SETUP
1817	#line 455 "libparse.l"
1818	{
1819	yyless(0);
1820	//printf("2) proc found.\n");
1821	BEGIN(INITIAL);
1822	yymore();
1823	}
1824	YY_BREAK
1825	case 25:
1826	YY_RULE_SETUP
1827	#line 461 "libparse.l"
1828	{ quote++;
1829	BEGIN(libcmd);
1830	}
1831	YY_BREAK
1832	case 26:
1833	YY_RULE_SETUP
1834	#line 464 "libparse.l"
1835	{ quote++; brace2++;
1836	BEGIN(libcmd2);
1837	}
1838	YY_BREAK
1839	case 27:
1840	YY_RULE_SETUP
1841	#line 468 "libparse.l"
1842	{ yylplineno++; }
1843	YY_BREAK
1844	case 28:
1845	YY_RULE_SETUP
1846	#line 469 "libparse.l"
1847	{
1848	#if YYLPDEBUG
1849	if(lpverbose>2) printf("--->%s<---\n", yytext);
1850	#endif
1851	}
1852	YY_BREAK
1853	case 29:
1854	YY_RULE_SETUP
1855	#line 474 "libparse.l"
1856	{
1857	found_oldhelp=1;
1858	#if YYLPDEBUG > 1
1859	printf("-HELP:%s\n", yytext);
1860	#endif
1861	}
1862	YY_BREAK
1863	case 30:
1864	YY_RULE_SETUP
1865	#line 482 "libparse.l"
1866	{ quote--;
1867	yytext[yyleng-1] = '\0';
1868	#ifndef STANDALONE_PARSER
1869	if ( mode == LOAD_LIB )
1870	{
1871	library_stack->push(newlib, yytext);
1872	}
1873	#endif /* STANDALONE_PARSER */
1874	#if YYLPDEBUG
1875	if(lpverbose>1) printf("LIB:'%s'\n", yytext);
1876	#endif
1877	BEGIN(INITIAL);
1878	}
1879	YY_BREAK
1880	case 31:
1881	YY_RULE_SETUP
1882	#line 495 "libparse.l"
1883	{ quote--; brace2--;
1884	yytext[yyleng-1] = '\0';
1885	#ifndef STANDALONE_PARSER
1886	if ( mode == LOAD_LIB )
1887	{
1888	library_stack->push(newlib, yytext);
1889	}
1890	#endif /* STANDALONE_PARSER */
1891	#if YYLPDEBUG
1892	if(lpverbose>1) printf("LIB:'%s'\n", yytext);
1893	#endif
1894	BEGIN(INITIAL);
1895	}
1896	YY_BREAK
1897	case 32:
1898	YY_RULE_SETUP
1899	#line 509 "libparse.l"
1900	{ }
1901	YY_BREAK
1902	case 33:
1903	YY_RULE_SETUP
1904	#line 510 "libparse.l"
1905	{
1906	brace2++;
1907	#if YYLPDEBUG > 1
1908	printf("%s", yytext);
1909	#endif
1910	}
1911	YY_BREAK
1912	case 34:
1913	YY_RULE_SETUP
1914	#line 516 "libparse.l"
1915	{
1916	brace2--;
1917	#if YYLPDEBUG > 1
1918	printf(">%s<\n", yytext);
1919	printf("{=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1920	#endif
1921	if(brace2<=0)
1922	{
1923	#if YYLPDEBUG > 1
1924	printf("BEGIN(phead){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1925	#endif
1926	SET_DEF_END(mode, pi, current_pos(yyleng));
1927	BEGIN(phead);
1928	}
1929	}
1930	YY_BREAK
1931	case 35:
1932	YY_RULE_SETUP
1933	#line 531 "libparse.l"
1934	{
1935	if(brace2>0)
1936	{
1937	#if YYLPDEBUG > 1
1938	printf("{=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1939	#endif
1940	yylp_errno = YYLP_DEF_BR2;
1941	return(1);
1942	}
1943	else
1944	{
1945	brace1++; BEGIN(pbody);
1946	if(lpverbose)
1947	printf("// BODY at line %d,%d (%d)\n", yylplineno,
1948	current_pos(0), brace1);
1949	SET_BODY_START(mode, pi, yylplineno, current_pos(0));
1950	}
1951	}
1952	YY_BREAK
1953	case 36:
1954	YY_RULE_SETUP
1955	#line 549 "libparse.l"
1956	{ yylplineno++;
1957	if(brace2<=0)
1958	{
1959	#if YYLPDEBUG > 1
1960	printf("BEGIN(phead-2){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1961	#endif
1962	BEGIN(phead);
1963	}
1964	}
1965	YY_BREAK
1966	case 37:
1967	YY_RULE_SETUP
1968	#line 558 "libparse.l"
1969	{ }
1970	YY_BREAK
1971	case 38:
1972	YY_RULE_SETUP
1973	#line 559 "libparse.l"
1974	{ old_state = YYSTATE; BEGIN(comment); }
1975	YY_BREAK
1976	case 39:
1977	YY_RULE_SETUP
1978	#line 560 "libparse.l"
1979	{
1980	if(brace2<=0)
1981	{
1982	BEGIN(phead);
1983	yyless(0);
1984	}
1985	}
1986	YY_BREAK
1987	case 40:
1988	YY_RULE_SETUP
1989	#line 568 "libparse.l"
1990	{
1991	#if YYLPDEBUG
1992	if(lpverbose>2)printf("0-Len=%d;\n", yyleng);
1993	#endif
1994	if(check)
1995	{
1996	printf("Procedure %s (line %d) has OLD-STYLE-HELP!\n",
1997	pi->procname, pi->data.s.proc_lineno);
1998	}
1999	SET_HELP_START(mode, pi, current_pos(0));
2000	BEGIN(poldhelp);
2001	yyless(0);
2002	}
2003	YY_BREAK
2004	case 41:
2005	YY_RULE_SETUP
2006	#line 581 "libparse.l"
2007	{
2008	#if YYLPDEBUG
2009	if(lpverbose>2)printf("1-Len=%d;\n", yyleng);
2010	#endif
2011	BEGIN(phelp);
2012	yyless(0);
2013	}
2014	YY_BREAK
2015	case 42:
2016	YY_RULE_SETUP
2017	#line 588 "libparse.l"
2018	{
2019	if(check && yyleng>2)
2020	{
2021	printf("Procedure %s (line %d) has OLD-STYLE-HELP!\n",
2022	pi->procname, pi->data.s.proc_lineno);
2023	}
2024	#if YYLPDEBUG
2025	if(lpverbose>2 && yyleng>2)
2026	printf("2-Len=%d, %s;\n", yyleng, pi->procname);
2027	#endif
2028	SET_HELP_START(mode, pi, current_pos(0));
2029	BEGIN(poldhelp);
2030	yyless(0);
2031	}
2032	YY_BREAK
2033	case 43:
2034	YY_RULE_SETUP
2035	#line 602 "libparse.l"
2036	{ printf("[%s]", yytext); }
2037	YY_BREAK
2038	case 44:
2039	YY_RULE_SETUP
2040	#line 604 "libparse.l"
2041	{ }
2042	YY_BREAK
2043	case 45:
2044	YY_RULE_SETUP
2045	#line 605 "libparse.l"
2046	{
2047	SET_HELP_END(mode, pi, current_pos(0));
2048	brace1++; BEGIN(pbody);
2049	if(lpverbose)
2050	{
2051	printf("// HELP from %d to %d\n",
2052	(int)pi->data.s.help_start, (int)pi->data.s.help_end);
2053	printf("// BODY at line %d,%d (%d)\n", yylplineno,
2054	current_pos(0), brace1);
2055	}
2056	#if YYLPDEBUG > 1
2057	printf("BEGIN(pbody){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
2058	#endif
2059	SET_BODY_START(mode, pi, yylplineno, current_pos(0));
2060	#if YYLPDEBUG > 1
2061	printf("BODY at %d/%d", yylplineno, current_pos(0));
2062	#endif
2063	}
2064	YY_BREAK
2065	case 46:
2066	YY_RULE_SETUP
2067	#line 623 "libparse.l"
2068	{ yylplineno++; }
2069	YY_BREAK
2070	case 47:
2071	YY_RULE_SETUP
2072	#line 624 "libparse.l"
2073	{ }
2074	YY_BREAK
2075	case 48:
2076	YY_RULE_SETUP
2077	#line 626 "libparse.l"
2078	{
2079	old_state = YYSTATE;
2080	BEGIN(string);
2081	SET_HELP_START(mode, pi, current_pos(1));
2082	}
2083	YY_BREAK
2084	case 49:
2085	YY_RULE_SETUP
2086	#line 631 "libparse.l"
2087	{}
2088	YY_BREAK
2089	case 50:
2090	YY_RULE_SETUP
2091	#line 632 "libparse.l"
2092	{
2093	brace1++; BEGIN(pbody);
2094	if(lpverbose)
2095	{
2096	printf("// HELP from %d to %d\n",
2097	(int)pi->data.s.help_start, (int)pi->data.s.help_end);
2098	printf("// BODY at line %d,%d (%d)\n", yylplineno,
2099	current_pos(0), brace1);
2100	}
2101	#if YYLPDEBUG > 1
2102	printf("BEGIN(pbody){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
2103	#endif
2104	SET_BODY_START(mode, pi, yylplineno, current_pos(0));
2105	#if YYLPDEBUG > 1
2106	printf("BODY at %d/%d", yylplineno, current_pos(0));
2107	#endif
2108	}
2109	YY_BREAK
2110	case 51:
2111	YY_RULE_SETUP
2112	#line 649 "libparse.l"
2113	{ yylplineno++;}
2114	YY_BREAK
2115	case 52:
2116	YY_RULE_SETUP
2117	#line 651 "libparse.l"
2118	{ }
2119	YY_BREAK
2120	case 53:
2121	YY_RULE_SETUP
2122	#line 652 "libparse.l"
2123	{ quote++; old_state = YYSTATE;
2124	BEGIN(string); /* printf("%s", yytext); */
2125	}
2126	YY_BREAK
2127	case 54:
2128	YY_RULE_SETUP
2129	#line 656 "libparse.l"
2130	{
2131	if(check) printf("*** found 2 proc whithin procedure '%s'.\n",
2132	pi->procname);
2133	yyless(yyleng-1);
2134	}
2135	YY_BREAK
2136	case 55:
2137	YY_RULE_SETUP
2138	#line 661 "libparse.l"
2139	{
2140	if(check) printf("*** found 1 proc whithin procedure '%s'.\n",
2141	pi->procname);
2142	yyless(yyleng-1);
2143	}
2144	YY_BREAK
2145	case 56:
2146	YY_RULE_SETUP
2147	#line 666 "libparse.l"
2148	{
2149	brace1++;
2150	#if YYLPDEBUG > 1
2151	printf("line: %d, (%d)%s\n", yylplineno, brace1, yytext);
2152	#endif
2153	}
2154	YY_BREAK
2155	case 57:
2156	YY_RULE_SETUP
2157	#line 672 "libparse.l"
2158	{
2159	#if YYLPDEBUG > 1
2160	printf("line: %d, (%d)%s\n",
2161	yylplineno, brace1, yytext);
2162	#endif
2163	brace1--;
2164	if(brace2>0)
2165	{
2166	yylp_errno = YYLP_BODY_BR2;
2167	return(1);
2168	}
2169	if(brace3>0)
2170	{
2171	yylp_errno = YYLP_BODY_BR3;
2172	return(1);
2173	}
2174	if(brace1<=0)
2175	{
2176	SET_BODY_END(mode, pi, current_pos(yyleng));
2177	SET_PROC_END(mode, pi, current_pos(yyleng));
2178	#if YYLPDEBUG > 1
2179	printf("-%d\n", current_pos(0));
2180	#endif
2181	BEGIN(INITIAL);
2182	}
2183	}
2184	YY_BREAK
2185	case 58:
2186	YY_RULE_SETUP
2187	#line 698 "libparse.l"
2188	{
2189	brace2++; /* printf("%s", yytext); */
2190	}
2191	YY_BREAK
2192	case 59:
2193	YY_RULE_SETUP
2194	#line 701 "libparse.l"
2195	{
2196	brace2--; /* printf("%s", yytext); */
2197	if(brace2<0) {
2198	yylp_errno = YYLP_BODY_TMBR2;
2199	return(1);
2200	}
2201	}
2202	YY_BREAK
2203	case 60:
2204	YY_RULE_SETUP
2205	#line 708 "libparse.l"
2206	{
2207	brace3++; /* printf("%s", yytext); */
2208	}
2209	YY_BREAK
2210	case 61:
2211	YY_RULE_SETUP
2212	#line 711 "libparse.l"
2213	{
2214	brace3--; /* printf("%s", yytext); */
2215	if(brace3<0) {
2216	yylp_errno = YYLP_BODY_TMBR3;
2217	return(1);
2218	}
2219	}
2220	YY_BREAK
2221	case 62:
2222	YY_RULE_SETUP
2223	#line 718 "libparse.l"
2224	{ yylplineno++; }
2225	YY_BREAK
2226	case 63:
2227	YY_RULE_SETUP
2228	#line 719 "libparse.l"
2229	{ }
2230	YY_BREAK
2231	case 64:
2232	YY_RULE_SETUP
2233	#line 721 "libparse.l"
2234	{
2235	quote++; BEGIN(string);
2236	found_info++;
2237	string_start = current_pos(yyleng);
2238	*lib_style = NEW_LIBSTYLE;
2239	last_cmd = LP_INFO;
2240	}
2241	YY_BREAK
2242	case 65:
2243	YY_RULE_SETUP
2244	#line 728 "libparse.l"
2245	{ yylplineno++; }
2246	YY_BREAK
2247	case 66:
2248	YY_RULE_SETUP
2249	#line 729 "libparse.l"
2250	{ }
2251	YY_BREAK
2252	case 67:
2253	YY_RULE_SETUP
2254	#line 731 "libparse.l"
2255	{
2256	quote++; BEGIN(string);
2257	found_cat++;
2258	string_start = current_pos(yyleng);
2259	*lib_style = NEW_LIBSTYLE;
2260	last_cmd = LP_CATEGORY;
2261	}
2262	YY_BREAK
2263	case 68:
2264	YY_RULE_SETUP
2265	#line 738 "libparse.l"
2266	{ yylplineno++; }
2267	YY_BREAK
2268	case 69:
2269	YY_RULE_SETUP
2270	#line 739 "libparse.l"
2271	{ }
2272	YY_BREAK
2273	case 70:
2274	YY_RULE_SETUP
2275	#line 742 "libparse.l"
2276	{ quote--;
2277	copy_string(mode);
2278	last_cmd = LP_NONE;
2279	if(old_state==phelp)
2280	{
2281	SET_HELP_END(mode, pi, current_pos(0));
2282	}
2283	BEGIN(old_state); /* printf("%s", yytext); */
2284	}
2285	YY_BREAK
2286	case 71:
2287	YY_RULE_SETUP
2288	#line 751 "libparse.l"
2289	{ if (old_state == phelp) IncrCheckSum(*yytext);}
2290	YY_BREAK
2291	case 72:
2292	YY_RULE_SETUP
2293	#line 752 "libparse.l"
2294	{ yylplineno++; if (old_state == phelp) IncrCheckSum('\n');}
2295	YY_BREAK
2296	case 73:
2297	YY_RULE_SETUP
2298	#line 753 "libparse.l"
2299	{ if (old_state == phelp) IncrCheckSum(*yytext);}
2300	YY_BREAK
2301	case 74:
2302	YY_RULE_SETUP
2303	#line 755 "libparse.l"
2304	{ }
2305	YY_BREAK
2306	case 75:
2307	YY_RULE_SETUP
2308	#line 756 "libparse.l"
2309	{ quote++; old_state = YYSTATE;
2310	BEGIN(string); /* printf("%s", yytext); */
2311	}
2312	YY_BREAK
2313	case 76:
2314	YY_RULE_SETUP
2315	#line 759 "libparse.l"
2316	{
2317	brace1++; /* printf("(%d)%s", brace1, yytext); */
2318	}
2319	YY_BREAK
2320	case 77:
2321	YY_RULE_SETUP
2322	#line 762 "libparse.l"
2323	{
2324	brace1--; /* printf("(%d)%s", brace1, yytext); */
2325	if(brace1<=0) {
2326	if(brace2>0) { yylp_errno=YYLP_EX_BR2; return(1); }
2327	if(brace3>0) { yylp_errno=YYLP_EX_BR3; return(1); }
2328	BEGIN(INITIAL);
2329	SET_PROC_END(mode, pi, current_pos(yyleng));
2330	}
2331	}
2332	YY_BREAK
2333	case 78:
2334	YY_RULE_SETUP
2335	#line 771 "libparse.l"
2336	{
2337	brace2++; /* printf("%s", yytext); */
2338	}
2339	YY_BREAK
2340	case 79:
2341	YY_RULE_SETUP
2342	#line 774 "libparse.l"
2343	{
2344	brace2--; /* printf("%s", yytext); */
2345	}
2346	YY_BREAK
2347	case 80:
2348	YY_RULE_SETUP
2349	#line 777 "libparse.l"
2350	{
2351	brace3++; /* printf("%s", yytext); */
2352	}
2353	YY_BREAK
2354	case 81:
2355	YY_RULE_SETUP
2356	#line 780 "libparse.l"
2357	{
2358	brace3--; /* printf("%s", yytext); */
2359	}
2360	YY_BREAK
2361	case 82:
2362	YY_RULE_SETUP
2363	#line 783 "libparse.l"
2364	{ yylplineno++; }
2365	YY_BREAK
2366	case 83:
2367	YY_RULE_SETUP
2368	#line 784 "libparse.l"
2369	{ }
2370	YY_BREAK
2371	case 84:
2372	YY_RULE_SETUP
2373	#line 786 "libparse.l"
2374	{ quote--;
2375	BEGIN(pexample); /* printf("%s", yytext); */
2376	}
2377	YY_BREAK
2378	case 85:
2379	YY_RULE_SETUP
2380	#line 789 "libparse.l"
2381	{ }
2382	YY_BREAK
2383	case 86:
2384	YY_RULE_SETUP
2385	#line 790 "libparse.l"
2386	{ }
2387	YY_BREAK
2388	case 87:
2389	YY_RULE_SETUP
2390	#line 791 "libparse.l"
2391	{ yylplineno++; }
2392	YY_BREAK
2393	case 88:
2394	YY_RULE_SETUP
2395	#line 792 "libparse.l"
2396	{ }
2397	YY_BREAK
2398	case 89:
2399	YY_RULE_SETUP
2400	#line 794 "libparse.l"
2401	{ BEGIN(old_state); }
2402	YY_BREAK
2403	case 90:
2404	YY_RULE_SETUP
2405	#line 795 "libparse.l"
2406	{ yylplineno++; }
2407	YY_BREAK
2408	case 91:
2409	YY_RULE_SETUP
2410	#line 796 "libparse.l"
2411	{ }
2412	YY_BREAK
2413	case 92:
2414	YY_RULE_SETUP
2415	#line 798 "libparse.l"
2416	{ yylplineno++; }
2417	YY_BREAK
2418	case 93:
2419	YY_RULE_SETUP
2420	#line 799 "libparse.l"
2421	{ }
2422	YY_BREAK
2423	case 94:
2424	YY_RULE_SETUP
2425	#line 800 "libparse.l"
2426	{ p_static = FALSE;
2427	#if YYLPDEBUG > 1
2428	printf("%s", yytext);
2429	#endif
2430	}
2431	YY_BREAK
2432	case 95:
2433	YY_RULE_SETUP
2434	#line 805 "libparse.l"
2435	{ p_static = FALSE;
2436	yylp_errno = YYLP_BAD_CHAR;
2437	#ifdef STANDALONE_PARSER
2438	printf("[%d]", *yytext);
2439	#else
2440	if (text_buffer!=NULL) omFree((ADDRESS)text_buffer);
2441	text_buffer = omStrDup(yytext);
2442	omMarkAsStaticAddr(text_buffer);
2443	#endif
2444	#if YYLPDEBUG > 1
2445	printf("[%s]", yytext);
2446	#endif
2447	return(1);
2448	}
2449	YY_BREAK
2450	case 96:
2451	YY_RULE_SETUP
2452	#line 820 "libparse.l"
2453	ECHO;
2454	YY_BREAK
2455	case YY_STATE_EOF(INITIAL):
2456	case YY_STATE_EOF(header):
2457	case YY_STATE_EOF(help):
2458	case YY_STATE_EOF(libcmd):
2459	case YY_STATE_EOF(libcmd2):
2460	case YY_STATE_EOF(pdef):
2461	case YY_STATE_EOF(phead):
2462	case YY_STATE_EOF(poldhelp):
2463	case YY_STATE_EOF(phelp):
2464	case YY_STATE_EOF(pbody):
2465	case YY_STATE_EOF(pstr):
2466	case YY_STATE_EOF(pexample):
2467	case YY_STATE_EOF(pestr):
2468	case YY_STATE_EOF(string):
2469	case YY_STATE_EOF(comment):
2470	case YY_STATE_EOF(info):
2471	case YY_STATE_EOF(category):
2472	case YY_STATE_EOF(url):
2473	case YY_STATE_EOF(version):
2474	yyterminate();
2475
2476	case YY_END_OF_BUFFER:
2477	{
2478	/* Amount of text matched not including the EOB char. */
2479	int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
2480
2481	/* Undo the effects of YY_DO_BEFORE_ACTION. */
2482	*yy_cp = yy_hold_char;
2483	YY_RESTORE_YY_MORE_OFFSET
2484
2485	if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
2486	{
2487	/* We're scanning a new file or input source. It's
2488	* possible that this happened because the user
2489	* just pointed yyin at a new source and called
2490	* yylex(). If so, then we have to assure
2491	* consistency between yy_current_buffer and our
2492	* globals. Here is the right place to do so, because
2493	* this is the first action (other than possibly a
2494	* back-up) that will match for the new input source.
2495	*/
2496	yy_n_chars = yy_current_buffer->yy_n_chars;
2497	yy_current_buffer->yy_input_file = yyin;
2498	yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
2499	}
2500
2501	/* Note that here we test for yy_c_buf_p "<=" to the position
2502	* of the first EOB in the buffer, since yy_c_buf_p will
2503	* already have been incremented past the NUL character
2504	* (since all states make transitions on EOB to the
2505	* end-of-buffer state). Contrast this with the test
2506	* in input().
2507	*/
2508	if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
2509	{ /* This was really a NUL. */
2510	yy_state_type yy_next_state;
2511
2512	yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
2513
2514	yy_current_state = yy_get_previous_state();
2515
2516	/* Okay, we're now positioned to make the NUL
2517	* transition. We couldn't have
2518	* yy_get_previous_state() go ahead and do it
2519	* for us because it doesn't know how to deal
2520	* with the possibility of jamming (and we don't
2521	* want to build jamming into it because then it
2522	* will run more slowly).
2523	*/
2524
2525	yy_next_state = yy_try_NUL_trans( yy_current_state );
2526
2527	yy_bp = yytext_ptr + YY_MORE_ADJ;
2528
2529	if ( yy_next_state )
2530	{
2531	/* Consume the NUL. */
2532	yy_cp = ++yy_c_buf_p;
2533	yy_current_state = yy_next_state;
2534	goto yy_match;
2535	}
2536
2537	else
2538	{
2539	yy_cp = yy_c_buf_p;
2540	goto yy_find_action;
2541	}
2542	}
2543
2544	else switch ( yy_get_next_buffer() )
2545	{
2546	case EOB_ACT_END_OF_FILE:
2547	{
2548	yy_did_buffer_switch_on_eof = 0;
2549
2550	if ( yywrap() )
2551	{
2552	/* Note: because we've taken care in
2553	* yy_get_next_buffer() to have set up
2554	* yytext, we can now set up
2555	* yy_c_buf_p so that if some total
2556	* hoser (like flex itself) wants to
2557	* call the scanner after we return the
2558	* YY_NULL, it'll still work - another
2559	* YY_NULL will get returned.
2560	*/
2561	yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
2562
2563	yy_act = YY_STATE_EOF(YY_START);
2564	goto do_action;
2565	}
2566
2567	else
2568	{
2569	if ( ! yy_did_buffer_switch_on_eof )
2570	YY_NEW_FILE;
2571	}
2572	break;
2573	}
2574
2575	case EOB_ACT_CONTINUE_SCAN:
2576	yy_c_buf_p =
2577	yytext_ptr + yy_amount_of_matched_text;
2578
2579	yy_current_state = yy_get_previous_state();
2580
2581	yy_cp = yy_c_buf_p;
2582	yy_bp = yytext_ptr + YY_MORE_ADJ;
2583	goto yy_match;
2584
2585	case EOB_ACT_LAST_MATCH:
2586	yy_c_buf_p =
2587	&yy_current_buffer->yy_ch_buf[yy_n_chars];
2588
2589	yy_current_state = yy_get_previous_state();
2590
2591	yy_cp = yy_c_buf_p;
2592	yy_bp = yytext_ptr + YY_MORE_ADJ;
2593	goto yy_find_action;
2594	}
2595	break;
2596	}
2597
2598	default:
2599	YY_FATAL_ERROR(
2600	"fatal flex scanner internal error--no action found" );
2601	} /* end of action switch */
2602	} /* end of scanning one token */
2603	} /* end of yylex */
2604
2605
2606	/* yy_get_next_buffer - try to read in a new buffer
2607	*
2608	* Returns a code representing an action:
2609	* EOB_ACT_LAST_MATCH -
2610	* EOB_ACT_CONTINUE_SCAN - continue scanning from current position
2611	* EOB_ACT_END_OF_FILE - end of file
2612	*/
2613
2614	static int yy_get_next_buffer()
2615	{
2616	register char *dest = yy_current_buffer->yy_ch_buf;
2617	register char *source = yytext_ptr;
2618	register int number_to_move, i;
2619	int ret_val;
2620
2621	if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
2622	YY_FATAL_ERROR(
2623	"fatal flex scanner internal error--end of buffer missed" );
2624
2625	if ( yy_current_buffer->yy_fill_buffer == 0 )
2626	{ /* Don't try to fill the buffer, so this is an EOF. */
2627	if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
2628	{
2629	/* We matched a single character, the EOB, so
2630	* treat this as a final EOF.
2631	*/
2632	return EOB_ACT_END_OF_FILE;
2633	}
2634
2635	else
2636	{
2637	/* We matched some text prior to the EOB, first
2638	* process it.
2639	*/
2640	return EOB_ACT_LAST_MATCH;
2641	}
2642	}
2643
2644	/* Try to read more data. */
2645
2646	/* First move last chars to start of buffer. */
2647	number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
2648
2649	for ( i = 0; i < number_to_move; ++i )
2650	(dest++) = (source++);
2651
2652	if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
2653	/* don't do the read, it's not guaranteed to return an EOF,
2654	* just force an EOF
2655	*/
2656	yy_current_buffer->yy_n_chars = yy_n_chars = 0;
2657
2658	else
2659	{
2660	int num_to_read =
2661	yy_current_buffer->yy_buf_size - number_to_move - 1;
2662
2663	while ( num_to_read <= 0 )
2664	{ /* Not enough room in the buffer - grow it. */
2665	#ifdef YY_USES_REJECT
2666	YY_FATAL_ERROR(
2667	"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
2668	#else
2669
2670	/* just a shorter name for the current buffer */
2671	YY_BUFFER_STATE b = yy_current_buffer;
2672
2673	int yy_c_buf_p_offset =
2674	(int) (yy_c_buf_p - b->yy_ch_buf);
2675
2676	if ( b->yy_is_our_buffer )
2677	{
2678	int new_size = b->yy_buf_size * 2;
2679
2680	if ( new_size <= 0 )
2681	b->yy_buf_size += b->yy_buf_size / 8;
2682	else
2683	b->yy_buf_size *= 2;
2684
2685	b->yy_ch_buf = (char *)
2686	/* Include room in for 2 EOB chars. */
2687	yy_flex_realloc( (void *) b->yy_ch_buf,
2688	b->yy_buf_size + 2 );
2689	}
2690	else
2691	/* Can't grow it, we don't own it. */
2692	b->yy_ch_buf = 0;
2693
2694	if ( ! b->yy_ch_buf )
2695	YY_FATAL_ERROR(
2696	"fatal error - scanner input buffer overflow" );
2697
2698	yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
2699
2700	num_to_read = yy_current_buffer->yy_buf_size -
2701	number_to_move - 1;
2702	#endif
2703	}
2704
2705	if ( num_to_read > YY_READ_BUF_SIZE )
2706	num_to_read = YY_READ_BUF_SIZE;
2707
2708	/* Read in more data. */
2709	YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
2710	yy_n_chars, num_to_read );
2711
2712	yy_current_buffer->yy_n_chars = yy_n_chars;
2713	}
2714
2715	if ( yy_n_chars == 0 )
2716	{
2717	if ( number_to_move == YY_MORE_ADJ )
2718	{
2719	ret_val = EOB_ACT_END_OF_FILE;
2720	yyrestart( yyin );
2721	}
2722
2723	else
2724	{
2725	ret_val = EOB_ACT_LAST_MATCH;
2726	yy_current_buffer->yy_buffer_status =
2727	YY_BUFFER_EOF_PENDING;
2728	}
2729	}
2730
2731	else
2732	ret_val = EOB_ACT_CONTINUE_SCAN;
2733
2734	yy_n_chars += number_to_move;
2735	yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
2736	yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
2737
2738	yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
2739
2740	return ret_val;
2741	}
2742
2743
2744	/* yy_get_previous_state - get the state just before the EOB char was reached */
2745
2746	static yy_state_type yy_get_previous_state()
2747	{
2748	register yy_state_type yy_current_state;
2749	register char *yy_cp;
2750
2751	yy_current_state = yy_start;
2752	yy_current_state += YY_AT_BOL();
2753
2754	for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
2755	{
2756	register YY_CHAR yy_c = (yy_cp ? yy_ec[YY_SC_TO_UI(yy_cp)] : 1);
2757	if ( yy_accept[yy_current_state] )
2758	{
2759	yy_last_accepting_state = yy_current_state;
2760	yy_last_accepting_cpos = yy_cp;
2761	}
2762	while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2763	{
2764	yy_current_state = (int) yy_def[yy_current_state];
2765	if ( yy_current_state >= 485 )
2766	yy_c = yy_meta[(unsigned int) yy_c];
2767	}
2768	yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
2769	}
2770
2771	return yy_current_state;
2772	}
2773
2774
2775	/* yy_try_NUL_trans - try to make a transition on the NUL character
2776	*
2777	* synopsis
2778	* next_state = yy_try_NUL_trans( current_state );
2779	*/
2780
2781	#ifdef YY_USE_PROTOS
2782	static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
2783	#else
2784	static yy_state_type yy_try_NUL_trans( yy_current_state )
2785	yy_state_type yy_current_state;
2786	#endif
2787	{
2788	register int yy_is_jam;
2789	register char *yy_cp = yy_c_buf_p;
2790
2791	register YY_CHAR yy_c = 1;
2792	if ( yy_accept[yy_current_state] )
2793	{
2794	yy_last_accepting_state = yy_current_state;
2795	yy_last_accepting_cpos = yy_cp;
2796	}
2797	while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2798	{
2799	yy_current_state = (int) yy_def[yy_current_state];
2800	if ( yy_current_state >= 485 )
2801	yy_c = yy_meta[(unsigned int) yy_c];
2802	}
2803	yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
2804	yy_is_jam = (yy_current_state == 484);
2805
2806	return yy_is_jam ? 0 : yy_current_state;
2807	}
2808
2809
2810	#ifndef YY_NO_UNPUT
2811	#ifdef YY_USE_PROTOS
2812	static void yyunput( int c, register char *yy_bp )
2813	#else
2814	static void yyunput( c, yy_bp )
2815	int c;
2816	register char *yy_bp;
2817	#endif
2818	{
2819	register char *yy_cp = yy_c_buf_p;
2820
2821	/* undo effects of setting up yytext */
2822	*yy_cp = yy_hold_char;
2823
2824	if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
2825	{ /* need to shift things up to make room */
2826	/* +2 for EOB chars. */
2827	register int number_to_move = yy_n_chars + 2;
2828	register char *dest = &yy_current_buffer->yy_ch_buf[
2829	yy_current_buffer->yy_buf_size + 2];
2830	register char *source =
2831	&yy_current_buffer->yy_ch_buf[number_to_move];
2832
2833	while ( source > yy_current_buffer->yy_ch_buf )
2834	--dest = --source;
2835
2836	yy_cp += (int) (dest - source);
2837	yy_bp += (int) (dest - source);
2838	yy_current_buffer->yy_n_chars =
2839	yy_n_chars = yy_current_buffer->yy_buf_size;
2840
2841	if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
2842	YY_FATAL_ERROR( "flex scanner push-back overflow" );
2843	}
2844
2845	*--yy_cp = (char) c;
2846
2847
2848	yytext_ptr = yy_bp;
2849	yy_hold_char = *yy_cp;
2850	yy_c_buf_p = yy_cp;
2851	}
2852	#endif /* ifndef YY_NO_UNPUT */
2853
2854
2855	#ifndef YY_NO_INPUT
2856	#ifdef __cplusplus
2857	static int yyinput()
2858	#else
2859	static int input()
2860	#endif
2861	{
2862	int c;
2863
2864	*yy_c_buf_p = yy_hold_char;
2865
2866	if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
2867	{
2868	/* yy_c_buf_p now points to the character we want to return.
2869	* If this occurs before the EOB characters, then it's a
2870	* valid NUL; if not, then we've hit the end of the buffer.
2871	*/
2872	if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
2873	/* This was really a NUL. */
2874	*yy_c_buf_p = '\0';
2875
2876	else
2877	{ /* need more input */
2878	int offset = yy_c_buf_p - yytext_ptr;
2879	++yy_c_buf_p;
2880
2881	switch ( yy_get_next_buffer() )
2882	{
2883	case EOB_ACT_LAST_MATCH:
2884	/* This happens because yy_g_n_b()
2885	* sees that we've accumulated a
2886	* token and flags that we need to
2887	* try matching the token before
2888	* proceeding. But for input(),
2889	* there's no matching to consider.
2890	* So convert the EOB_ACT_LAST_MATCH
2891	* to EOB_ACT_END_OF_FILE.
2892	*/
2893
2894	/* Reset buffer status. */
2895	yyrestart( yyin );
2896
2897	/* fall through */
2898
2899	case EOB_ACT_END_OF_FILE:
2900	{
2901	if ( yywrap() )
2902	return EOF;
2903
2904	if ( ! yy_did_buffer_switch_on_eof )
2905	YY_NEW_FILE;
2906	#ifdef __cplusplus
2907	return yyinput();
2908	#else
2909	return input();
2910	#endif
2911	}
2912
2913	case EOB_ACT_CONTINUE_SCAN:
2914	yy_c_buf_p = yytext_ptr + offset;
2915	break;
2916	}
2917	}
2918	}
2919
2920	c = (unsigned char ) yy_c_buf_p; /* cast for 8-bit char's */
2921	yy_c_buf_p = '\0'; / preserve yytext */
2922	yy_hold_char = *++yy_c_buf_p;
2923
2924	yy_current_buffer->yy_at_bol = (c == '\n');
2925
2926	return c;
2927	}
2928	#endif /* YY_NO_INPUT */
2929
2930	#ifdef YY_USE_PROTOS
2931	void yyrestart( FILE *input_file )
2932	#else
2933	void yyrestart( input_file )
2934	FILE *input_file;
2935	#endif
2936	{
2937	if ( ! yy_current_buffer )
2938	yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
2939
2940	yy_init_buffer( yy_current_buffer, input_file );
2941	yy_load_buffer_state();
2942	}
2943
2944
2945	#ifdef YY_USE_PROTOS
2946	void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
2947	#else
2948	void yy_switch_to_buffer( new_buffer )
2949	YY_BUFFER_STATE new_buffer;
2950	#endif
2951	{
2952	if ( yy_current_buffer == new_buffer )
2953	return;
2954
2955	if ( yy_current_buffer )
2956	{
2957	/* Flush out information for old buffer. */
2958	*yy_c_buf_p = yy_hold_char;
2959	yy_current_buffer->yy_buf_pos = yy_c_buf_p;
2960	yy_current_buffer->yy_n_chars = yy_n_chars;
2961	}
2962
2963	yy_current_buffer = new_buffer;
2964	yy_load_buffer_state();
2965
2966	/* We don't actually know whether we did this switch during
2967	* EOF (yywrap()) processing, but the only time this flag
2968	* is looked at is after yywrap() is called, so it's safe
2969	* to go ahead and always set it.
2970	*/
2971	yy_did_buffer_switch_on_eof = 1;
2972	}
2973
2974
2975	#ifdef YY_USE_PROTOS
2976	void yy_load_buffer_state( void )
2977	#else
2978	void yy_load_buffer_state()
2979	#endif
2980	{
2981	yy_n_chars = yy_current_buffer->yy_n_chars;
2982	yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
2983	yyin = yy_current_buffer->yy_input_file;
2984	yy_hold_char = *yy_c_buf_p;
2985	}
2986
2987
2988	#ifdef YY_USE_PROTOS
2989	YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
2990	#else
2991	YY_BUFFER_STATE yy_create_buffer( file, size )
2992	FILE *file;
2993	int size;
2994	#endif
2995	{
2996	YY_BUFFER_STATE b;
2997
2998	b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
2999	if ( ! b )
3000	YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
3001
3002	b->yy_buf_size = size;
3003
3004	/* yy_ch_buf has to be 2 characters longer than the size given because
3005	* we need to put in 2 end-of-buffer characters.
3006	*/
3007	b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
3008	if ( ! b->yy_ch_buf )
3009	YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
3010
3011	b->yy_is_our_buffer = 1;
3012
3013	yy_init_buffer( b, file );
3014
3015	return b;
3016	}
3017
3018
3019	#ifdef YY_USE_PROTOS
3020	void yy_delete_buffer( YY_BUFFER_STATE b )
3021	#else
3022	void yy_delete_buffer( b )
3023	YY_BUFFER_STATE b;
3024	#endif
3025	{
3026	if ( ! b )
3027	return;
3028
3029	if ( b == yy_current_buffer )
3030	yy_current_buffer = (YY_BUFFER_STATE) 0;
3031
3032	if ( b->yy_is_our_buffer )
3033	yy_flex_free( (void *) b->yy_ch_buf );
3034
3035	yy_flex_free( (void *) b );
3036	}
3037
3038
3039
3040	#ifdef YY_USE_PROTOS
3041	void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
3042	#else
3043	void yy_init_buffer( b, file )
3044	YY_BUFFER_STATE b;
3045	FILE *file;
3046	#endif
3047
3048
3049	{
3050	yy_flush_buffer( b );
3051
3052	b->yy_input_file = file;
3053	b->yy_fill_buffer = 1;
3054
3055	#if YY_ALWAYS_INTERACTIVE
3056	b->yy_is_interactive = 1;
3057	#else
3058	#if YY_NEVER_INTERACTIVE
3059	b->yy_is_interactive = 0;
3060	#else
3061	b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
3062	#endif
3063	#endif
3064	}
3065
3066
3067	#ifdef YY_USE_PROTOS
3068	void yy_flush_buffer( YY_BUFFER_STATE b )
3069	#else
3070	void yy_flush_buffer( b )
3071	YY_BUFFER_STATE b;
3072	#endif
3073
3074	{
3075	if ( ! b )
3076	return;
3077
3078	b->yy_n_chars = 0;
3079
3080	/* We always need two end-of-buffer characters. The first causes
3081	* a transition to the end-of-buffer state. The second causes
3082	* a jam in that state.
3083	*/
3084	b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
3085	b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
3086
3087	b->yy_buf_pos = &b->yy_ch_buf[0];
3088
3089	b->yy_at_bol = 1;
3090	b->yy_buffer_status = YY_BUFFER_NEW;
3091
3092	if ( b == yy_current_buffer )
3093	yy_load_buffer_state();
3094	}
3095
3096
3097	#ifndef YY_NO_SCAN_BUFFER
3098	#ifdef YY_USE_PROTOS
3099	YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
3100	#else
3101	YY_BUFFER_STATE yy_scan_buffer( base, size )
3102	char *base;
3103	yy_size_t size;
3104	#endif
3105	{
3106	YY_BUFFER_STATE b;
3107
3108	if ( size < 2 \|\|
3109	base[size-2] != YY_END_OF_BUFFER_CHAR \|\|
3110	base[size-1] != YY_END_OF_BUFFER_CHAR )
3111	/* They forgot to leave room for the EOB's. */
3112	return 0;
3113
3114	b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
3115	if ( ! b )
3116	YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
3117
3118	b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
3119	b->yy_buf_pos = b->yy_ch_buf = base;
3120	b->yy_is_our_buffer = 0;
3121	b->yy_input_file = 0;
3122	b->yy_n_chars = b->yy_buf_size;
3123	b->yy_is_interactive = 0;
3124	b->yy_at_bol = 1;
3125	b->yy_fill_buffer = 0;
3126	b->yy_buffer_status = YY_BUFFER_NEW;
3127
3128	yy_switch_to_buffer( b );
3129
3130	return b;
3131	}
3132	#endif
3133
3134
3135	#ifndef YY_NO_SCAN_STRING
3136	#ifdef YY_USE_PROTOS
3137	YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
3138	#else
3139	YY_BUFFER_STATE yy_scan_string( yy_str )
3140	yyconst char *yy_str;
3141	#endif
3142	{
3143	int len;
3144	for ( len = 0; yy_str[len]; ++len )
3145	;
3146
3147	return yy_scan_bytes( yy_str, len );
3148	}
3149	#endif
3150
3151
3152	#ifndef YY_NO_SCAN_BYTES
3153	#ifdef YY_USE_PROTOS
3154	YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
3155	#else
3156	YY_BUFFER_STATE yy_scan_bytes( bytes, len )
3157	yyconst char *bytes;
3158	int len;
3159	#endif
3160	{
3161	YY_BUFFER_STATE b;
3162	char *buf;
3163	yy_size_t n;
3164	int i;
3165
3166	/* Get memory for full buffer, including space for trailing EOB's. */
3167	n = len + 2;
3168	buf = (char *) yy_flex_alloc( n );
3169	if ( ! buf )
3170	YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
3171
3172	for ( i = 0; i < len; ++i )
3173	buf[i] = bytes[i];
3174
3175	buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
3176
3177	b = yy_scan_buffer( buf, n );
3178	if ( ! b )
3179	YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
3180
3181	/* It's okay to grow etc. this buffer, and we should throw it
3182	* away when we're done.
3183	*/
3184	b->yy_is_our_buffer = 1;
3185
3186	return b;
3187	}
3188	#endif
3189
3190
3191	#ifndef YY_NO_PUSH_STATE
3192	#ifdef YY_USE_PROTOS
3193	static void yy_push_state( int new_state )
3194	#else
3195	static void yy_push_state( new_state )
3196	int new_state;
3197	#endif
3198	{
3199	if ( yy_start_stack_ptr >= yy_start_stack_depth )
3200	{
3201	yy_size_t new_size;
3202
3203	yy_start_stack_depth += YY_START_STACK_INCR;
3204	new_size = yy_start_stack_depth * sizeof( int );
3205
3206	if ( ! yy_start_stack )
3207	yy_start_stack = (int *) yy_flex_alloc( new_size );
3208
3209	else
3210	yy_start_stack = (int *) yy_flex_realloc(
3211	(void *) yy_start_stack, new_size );
3212
3213	if ( ! yy_start_stack )
3214	YY_FATAL_ERROR(
3215	"out of memory expanding start-condition stack" );
3216	}
3217
3218	yy_start_stack[yy_start_stack_ptr++] = YY_START;
3219
3220	BEGIN(new_state);
3221	}
3222	#endif
3223
3224
3225	#ifndef YY_NO_POP_STATE
3226	static void yy_pop_state()
3227	{
3228	if ( --yy_start_stack_ptr < 0 )
3229	YY_FATAL_ERROR( "start-condition stack underflow" );
3230
3231	BEGIN(yy_start_stack[yy_start_stack_ptr]);
3232	}
3233	#endif
3234
3235
3236	#ifndef YY_NO_TOP_STATE
3237	static int yy_top_state()
3238	{
3239	return yy_start_stack[yy_start_stack_ptr - 1];
3240	}
3241	#endif
3242
3243	#ifndef YY_EXIT_FAILURE
3244	#define YY_EXIT_FAILURE 2
3245	#endif
3246
3247	#ifdef YY_USE_PROTOS
3248	static void yy_fatal_error( yyconst char msg[] )
3249	#else
3250	static void yy_fatal_error( msg )
3251	char msg[];
3252	#endif
3253	{
3254	(void) fprintf( stderr, "%s\n", msg );
3255	exit( YY_EXIT_FAILURE );
3256	}
3257
3258
3259
3260	/* Redefine yyless() so it works in section 3 code. */
3261
3262	#undef yyless
3263	#define yyless(n) \
3264	do \
3265	{ \
3266	/* Undo effects of setting up yytext. */ \
3267	yytext[yyleng] = yy_hold_char; \
3268	yy_c_buf_p = yytext + n; \
3269	yy_hold_char = *yy_c_buf_p; \
3270	*yy_c_buf_p = '\0'; \
3271	yyleng = n; \
3272	} \
3273	while ( 0 )
3274
3275
3276	/* Internal utility routines. */
3277
3278	#ifndef yytext_ptr
3279	#ifdef YY_USE_PROTOS
3280	static void yy_flex_strncpy( char s1, yyconst char s2, int n )
3281	#else
3282	static void yy_flex_strncpy( s1, s2, n )
3283	char *s1;
3284	yyconst char *s2;
3285	int n;
3286	#endif
3287	{
3288	register int i;
3289	for ( i = 0; i < n; ++i )
3290	s1[i] = s2[i];
3291	}
3292	#endif
3293
3294	#ifdef YY_NEED_STRLEN
3295	#ifdef YY_USE_PROTOS
3296	static int yy_flex_strlen( yyconst char *s )
3297	#else
3298	static int yy_flex_strlen( s )
3299	yyconst char *s;
3300	#endif
3301	{
3302	register int n;
3303	for ( n = 0; s[n]; ++n )
3304	;
3305
3306	return n;
3307	}
3308	#endif
3309
3310
3311	#ifdef YY_USE_PROTOS
3312	static void *yy_flex_alloc( yy_size_t size )
3313	#else
3314	static void *yy_flex_alloc( size )
3315	yy_size_t size;
3316	#endif
3317	{
3318	return (void *) malloc( size );
3319	}
3320
3321	#ifdef YY_USE_PROTOS
3322	static void yy_flex_realloc( void ptr, yy_size_t size )
3323	#else
3324	static void *yy_flex_realloc( ptr, size )
3325	void *ptr;
3326	yy_size_t size;
3327	#endif
3328	{
3329	/* The cast to (char *) in the following accommodates both
3330	* implementations that use char* generic pointers, and those
3331	* that use void* generic pointers. It works with the latter
3332	* because both ANSI C and C++ allow castless assignment from
3333	* any pointer type to void*, and deal with argument conversions
3334	* as though doing an assignment.
3335	*/
3336	return (void ) realloc( (char ) ptr, size );
3337	}
3338
3339	#ifdef YY_USE_PROTOS
3340	static void yy_flex_free( void *ptr )
3341	#else
3342	static void yy_flex_free( ptr )
3343	void *ptr;
3344	#endif
3345	{
3346	free( ptr );
3347	}
3348
3349	#if YY_MAIN
3350	int main()
3351	{
3352	yylex();
3353	return 0;
3354	}
3355	#endif
3356	#line 820 "libparse.l"
3357
3358
3359	int current_pos(int i)
3360	{
3361	return(i+offset+(int)(yytext-yylp_buffer_start));
3362	}
3363
3364	int libread(FILE* f, char* buf, int max_size)
3365	{ int rc;
3366
3367	offset = ftell(f);
3368	rc = myfread( buf, 1, max_size, f );
3369	#if YYLPDEBUG >2
3370	printf("fread: %d of %d\n", rc, max_size);
3371	#endif
3372	yylp_buffer_start = buf;
3373	return rc;
3374	}
3375
3376	extern "C" {
3377	int yylpwrap()
3378	{
3379	//printf("======================= YYWRAP ====================\n");
3380	if(brace1>0) { yylp_errno=YYLP_MISS_BR1; }
3381	if(brace2>0) { yylp_errno=YYLP_MISS_BR2; }
3382	if(brace3>0) { yylp_errno=YYLP_MISS_BR3; }
3383	if(quote>0) { yylp_errno=YYLP_MISSQUOT; }
3384	/* printf("{=%d, (=%d, [=%d\n", brace1, brace2, brace3);/**/
3385	if(feof(yyin)) return 1; else return 0;
3386	}
3387	}
3388
3389	void reinit_yylp()
3390	{
3391	brace1 = 0;
3392	brace2 = 0;
3393	brace3 = 0;
3394	quote = 0;
3395	yy_init=1;
3396	yy_delete_buffer(yy_current_buffer);
3397	}
3398
3399	void make_version(char *p,int what)
3400	{
3401	char ver[10];
3402	char date[16];
3403	ver[0]='?'; ver[1]='.'; ver[2]='?'; ver[3]='\0';
3404	date[0]='?'; date[1]='\0';
3405	if(what) sscanf(p,"%[^=]= %s %*s %10s %16s",ver,date);
3406	else sscanf(p,"// %s %s %10s %16s",ver,date);
3407	strcpy(libnamebuf,"(");
3408	strcat(libnamebuf,ver);
3409	strcat(libnamebuf,",");
3410	strcat(libnamebuf,date);
3411	strcat(libnamebuf,")");
3412	if(what && strcmp(libnamebuf, "(?.?,?)")==0)
3413	{
3414	sscanf(p,"%*[^\"]\"%[^\"]\"",libnamebuf);
3415	}
3416	//printf("ID=(%d)%s; \n", what, p);
3417	}
3418
3419	void copy_string(lp_modes mode)
3420	{
3421	#ifdef STANDALONE_PARSER
3422	if ((texinfo_out
3423	&& (last_cmd == LP_INFO \|\| last_cmd == LP_CATEGORY \|\| last_cmd == LP_URL))
3424	\|\| (category_out && last_cmd == LP_CATEGORY)
3425	)
3426	{
3427	long current_location = ftell(yylpin), i = string_start, quote = 0;
3428	char c;
3429	if (texinfo_out)
3430	{
3431	if (last_cmd == LP_INFO)
3432	{
3433	printf("$info = <<EOT;\n");
3434	}
3435	else if (last_cmd == LP_URL)
3436	{
3437	printf("$url = <<EOT;\n");
3438	}
3439	else
3440	{
3441	printf("$category = <<EOT;\n");
3442	}
3443	}
3444	fseek (yylpin, i, SEEK_SET);
3445	while (i< current_location)
3446	{
3447	c = fgetc(yylpin);
3448	if (c == '\\')
3449	{
3450	quote = (! quote);
3451	}
3452	else if (c == '"')
3453	{
3454	if (! quote) break;
3455	}
3456	else
3457	quote = 0;
3458	if (c == '@' \|\| c == '$') putchar('\\');
3459	if (c != '\r') putchar(c);
3460	i++;
3461	}
3462	if (category_out) exit(0);
3463	fseek (yylpin, current_location, SEEK_SET);
3464	printf("\nEOT\n");
3465	}
3466	#else
3467	if((last_cmd == LP_INFO)&&(mode == GET_INFO))
3468	{
3469	int i, offset=0;
3470	long current_location = ftell(yylpin);
3471	int len = (int)(current_pos(0) - string_start);
3472	fseek(yylpin, string_start, SEEK_SET);
3473	if (text_buffer!=NULL) omFree((ADDRESS)text_buffer);
3474	text_buffer = (char *)omAlloc(len+2);
3475	omMarkAsStaticAddr(text_buffer);
3476	myfread(text_buffer, len, 1, yylpin);
3477	fseek(yylpin, current_location, SEEK_SET);
3478	text_buffer[len]='\0';
3479	offset=0;
3480	for(i=0;i<=len; i++)
3481	{
3482	if(text_buffer[i]=='\\' &&
3483	(text_buffer[i+1]=='\"' \|\| text_buffer[i+1]=='{' \|\|
3484	text_buffer[i+1]=='}' \|\| text_buffer[i+1]=='\\'))
3485	{
3486	i++;
3487	offset++;
3488	}
3489	if(offset>0) text_buffer[i-offset] = text_buffer[i];
3490	}
3491	}
3492	#endif /* STANDALONE_PARSER */
3493	}
3494
3495	void print_init()
3496	{
3497	printf("Init=%d\n", yy_init);
3498	}
3499
3500	void print_version(lp_modes mode, char *p)
3501	{
3502	#ifdef STANDALONE_PARSER
3503	//printf("loading %s%s", p, libnamebuf);
3504	#else
3505	if ( mode == LOAD_LIB )
3506	{
3507	if (BVERBOSE(V_LOAD_LIB) && p!=NULL ) Print(" %s...", p);
3508	//Warn( "loading %s%s", p, libnamebuf);
3509	}
3510	#endif
3511	}
3512
3513	#ifdef STANDALONE_PARSER
3514	main( int argc, char *argv[] )
3515	{
3516	lib_style_types lib_style;
3517	main_init(argc, argv);
3518	if(yyin == NULL) {
3519	fprintf(stderr, "No library found to parse.\n");
3520	exit(1);
3521	}
3522	if (! (texinfo_out \|\| category_out))
3523	{
3524	if(lpverbose)printf("Verbose level=%d\n", lpverbose);
3525	if(check)printf("Reporting most possible annomalies.\n");
3526	if(lpverbose\|\|check)printf("\n");
3527
3528	printf( " %-15s %20s %s,%s %s,%s %s,%s\n", "Library",
3529	"function", "line", "start-eod", "line", "body-eob",
3530	"line", "example-eoe");
3531	}
3532	#ifdef HAVE_NS
3533	yylplex(argv[0], argv[0], &lib_style,NULL);
3534	#else
3535	yylplex(argv[0], argv[0], &lib_style);
3536	#endif
3537	if(yylp_errno) {
3538	printf("ERROR occured: [%d] ", yylp_errno);
3539	printf(yylp_errlist[yylp_errno], yylplineno);
3540	printf("\n");
3541	}
3542	else if(pi!=NULL) printpi(pi);
3543	if (texinfo_out)
3544	printf("1;");
3545	exit(0);
3546	}
3547
3548	#endif /* STANDALONE_PARSER */
3549	#endif /* HAVE_LIBPARSE */

Note: See TracBrowser for help on using the repository browser.

Download in other formats: