source: git/Singular/libparse.cc @ 7222f9

spielwiese
Last change on this file since 7222f9 was dc4782, checked in by Hans Schoenemann <hannes@…>, 10 years ago
chg: factory/libfac is not optional, removing HAVE_FACTORY/HAVE_LIBFAC
  • Property mode set to 100644
File size: 107.0 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.15 2009-07-28 15:22:17 Singular 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
31
32/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
33#ifdef c_plusplus
34#ifndef __cplusplus
35#define __cplusplus
36#endif
37#endif
38
39
40#ifdef __cplusplus
41
42#include <stdlib.h>
43#include <unistd.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
117typedef struct yy_buffer_state *YY_BUFFER_STATE;
118
119extern int yyleng;
120extern 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 */
159typedef unsigned int yy_size_t;
160
161
162struct 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
219static 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. */
229static char yy_hold_char;
230
231static int yy_n_chars;          /* number of characters read into yy_ch_buf */
232
233
234int yyleng;
235
236/* Points to current character in buffer. */
237static char *yy_c_buf_p = (char *) 0;
238static int yy_init = 1;         /* whether we need to initialize */
239static 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 */
244static int yy_did_buffer_switch_on_eof;
245
246void yyrestart YY_PROTO(( FILE *input_file ));
247
248void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
249void yy_load_buffer_state YY_PROTO(( void ));
250YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
251void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
252void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
253void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
254#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
255
256YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
257YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
258YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
259
260static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
261static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
262static 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
282typedef unsigned char YY_CHAR;
283FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
284typedef int yy_state_type;
285extern char *yytext;
286#define yytext_ptr yytext
287
288static yy_state_type yy_get_previous_state YY_PROTO(( void ));
289static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
290static int yy_get_next_buffer YY_PROTO(( void ));
291static 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
306static 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
363static 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
395static 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
405static 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
468static 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
531static 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
783static 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
1035static yy_state_type yy_last_accepting_state;
1036static 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
1042static int yy_more_flag = 0;
1043static 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
1047char *yytext;
1048#line 1 "libparse.l"
1049#define INITIAL 0
1050#line 2 "libparse.l"
1051/****************************************
1052*  Computer Algebra System SINGULAR     *
1053****************************************/
1054#include <stdio.h>
1055#include <string.h>
1056#include <stdlib.h>
1057#include <ctype.h>
1058#ifdef HAVE_CONFIG_H
1059#include "singularconfig.h"
1060#endif /* HAVE_CONFIG_H */
1061#include <kernel/mod2.h>
1062#ifdef STANDALONE_PARSER
1063#include <Singular/utils.h>
1064
1065int initializeGMP(){ return 1; } // NEEDED FOR MAIN APP. LINKING!!!
1066int mmInit(void) {return 1; } // ? due to SINGULAR!!!...???
1067
1068  #define HAVE_LIBPARSER
1069  #define YYLPDEBUG 1
1070  #define myfread fread
1071#else
1072  #include <Singular/subexpr.h>
1073  #include <Singular/grammar.h>
1074  #include <Singular/ipshell.h>
1075  #include <Singular/ipid.h>
1076  #include <Singular/tok.h>
1077  #include <misc/options.h>
1078  #include <kernel/febase.h>
1079  #include <omalloc/omalloc.h>
1080#endif
1081#include <Singular/libparse.h>
1082
1083#ifdef HAVE_LIBPARSER
1084#define YY_SKIP_YYWRAP
1085
1086typedef enum { LP_NONE, LP_INFO, LP_CATEGORY, LP_URL, LP_VERSION} lib_cmds;
1087
1088int libread(FILE* f, char* buf, int max_size);
1089int current_pos(int i);
1090void print_version(lp_modes mode, char *p);
1091void copy_string(lp_modes mode);
1092extern void piCleanUp(procinfov pi);
1093void make_version(char *p, int what);
1094
1095int brace1 = 0;  /* { } */
1096int brace2 = 0;  /* ( ) */
1097int brace3 = 0;  /* [ ] */
1098int quote  = 0;  /* " */
1099int offset = 0;
1100BOOLEAN p_static = FALSE;
1101int old_state = 0;
1102lib_cmds last_cmd = LP_NONE;
1103
1104char libnamebuf[128];
1105char *text_buffer=NULL;
1106long string_start;
1107
1108char *yylp_buffer_start;
1109int yylplineno = 1;
1110int lpverbose = 0, check = 0;
1111int texinfo_out = 0;
1112int found_info=0,
1113    found_cat=0,
1114    found_version=0,
1115    found_oldhelp = 0,
1116    found_proc_in_proc = 0;
1117
1118const char *yylp_errlist[]= {
1119   "",
1120   "missing close bracket ')' for proc definition in line %d.",  /*  1 */
1121   "missing close bracket ')' for procbody in line %d.",         /*  2 */
1122   "missing close bracket ']' for procbody in line %d.",         /*  3 */
1123   "too many ')' closed brackets in line %d.",                   /*  4 */
1124   "too many ']' closed brackets in line %d.",                   /*  5 */
1125   "missing close bracket ')' for example in line %d.",          /*  6 */
1126   "missing close bracket ']' for example in line %d.",          /*  7 */
1127   "cannot assign character '%c' in line %d to any group.",      /*  8 */
1128   "there must be a quote missing somewhere before line %d.",    /*  9 */
1129   "missing close bracket '}' at end of library in line %d.",    /* 10 */
1130   "missing close bracket ')' at end of library in line %d.",    /* 11 */
1131   "missing close bracket ']' at end of library in line %d.",    /* 12 */
1132   NULL
1133};
1134int yylp_errno = 0;
1135
1136#ifdef STANDALONE_PARSER
1137procinfov pi;
1138int category_out = 0;
1139void printpi(procinfov pi);
1140void pi_clear(procinfov pi);
1141extern "C" {
1142  int yylpwrap();
1143}
1144void main_init(int argc, char *argv[]);
1145void main_result(char *libname);
1146#else /* STANDALONE_PARSER */
1147idhdl h0;
1148idhdl h_top;
1149#define pi IDPROC(h0)
1150extern "C"
1151{
1152  int yylpwrap();
1153}
1154extern libstackv library_stack;
1155#endif /* STANDALONE_PARSER */
1156
1157static unsigned long help_chksum;
1158
1159#define SET_DEF_END(mode, pi, p) \
1160  if ( mode == LOAD_LIB) pi->data.s.def_end = p;
1161#define SET_HELP_START(mode, pi, p) \
1162  if ( mode == LOAD_LIB) {pi->data.s.help_start = p; help_chksum = 0;}
1163#define SET_HELP_END(mode, pi, p) \
1164  if ( mode == LOAD_LIB) {pi->data.s.help_end = p;  \
1165              pi->data.s.help_chksum = help_chksum;}
1166
1167#define SET_BODY_START(mode, pi, l, p) \
1168     if ( mode == LOAD_LIB)            \
1169     {                                 \
1170       pi->data.s.body_lineno = l;     \
1171       pi->data.s.body_start = p;      \
1172     }
1173#define SET_BODY_END(mode, pi, p) \
1174     if ( mode == LOAD_LIB)       \
1175     {                            \
1176       pi->data.s.body_end = p-1; \
1177       pi->data.s.proc_end = p-1; \
1178     }
1179
1180#define SET_EXAMPLE_START(mode, pi, l, p) \
1181   if ( mode == LOAD_LIB)                 \
1182   {                                      \
1183     pi->data.s.example_lineno = l;       \
1184     pi->data.s.example_start = p;        \
1185   }
1186#define SET_PROC_END(mode, pi, p)   \
1187     if ( mode == LOAD_LIB)         \
1188     {                              \
1189       pi->data.s.proc_end = p-1;   \
1190       if(pi->data.s.body_end==0)   \
1191         pi->data.s.body_end = p-1; \
1192     }
1193
1194#define ROTATE_RIGHT(c) if ((c) & 01) (c) = ((c) >>1) + 0x8000; else (c) >>= 1;
1195#define IncrCheckSum(c)                          \
1196do                                            \
1197{                                             \
1198  ROTATE_RIGHT(help_chksum);                  \
1199  help_chksum += c;                           \
1200  help_chksum &= 0xffff;                      \
1201}                                             \
1202while(0)
1203
1204#undef YY_DECL
1205#define YY_DECL int yylex(const char *newlib, const char *libfile, \
1206                           lib_style_types *lib_style, \
1207                           idhdl pl, BOOLEAN autoexport, lp_modes mode)
1208#undef YY_INPUT
1209#define YY_INPUT(buf,result,max_size) \
1210          if ( ((result = libread( (yyin), (char *) buf, max_size )) < 0 ) \
1211                  && ferror( yyin ) ) \
1212                YY_FATAL_ERROR( "read in flex scanner failed" );
1213
1214#define YY_USER_INIT { \
1215       BEGIN(header); \
1216       yylplineno = 1; \
1217       yylp_errno = 0; \
1218       *lib_style = OLD_LIBSTYLE; \
1219       strcpy(libnamebuf,"(**unknown version**)"); \
1220     }
1221
1222#if 0
1223<pbody>proc[ \t]+{name}  {
1224                           printf("MISSING: PROC-cmd found. ERROR!\n"); }
1225<pbody>example[ \t]*\n   {
1226                           yylplineno++;
1227                           printf("MISSING: EXAMPLE-cmd found. ERROR!\n"); }
1228info=+"\"" {
1229#endif
1230
1231/* %start START */
1232#define header 1
1233
1234#define help 2
1235
1236#define libcmd 3
1237
1238#define libcmd2 4
1239
1240#define pdef 5
1241
1242#define phead 6
1243
1244#define poldhelp 7
1245
1246#define phelp 8
1247
1248#define pbody 9
1249
1250#define pstr 10
1251
1252#define pexample 11
1253
1254#define pestr 12
1255
1256#define string 13
1257
1258#define comment 14
1259
1260#define info 15
1261
1262#define category 16
1263
1264#define url 17
1265
1266#define version 18
1267
1268
1269/* Macros after this point can all be overridden by user definitions in
1270 * section 1.
1271 */
1272
1273#ifndef YY_SKIP_YYWRAP
1274#ifdef __cplusplus
1275extern "C" int yywrap YY_PROTO(( void ));
1276#else
1277extern int yywrap YY_PROTO(( void ));
1278#endif
1279#endif
1280
1281#ifndef YY_NO_UNPUT
1282static void yyunput YY_PROTO(( int c, char *buf_ptr ));
1283#endif
1284
1285#ifndef yytext_ptr
1286static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
1287#endif
1288
1289#ifdef YY_NEED_STRLEN
1290static int yy_flex_strlen YY_PROTO(( yyconst char * ));
1291#endif
1292
1293#ifndef YY_NO_INPUT
1294#ifdef __cplusplus
1295static int yyinput YY_PROTO(( void ));
1296#else
1297static int input YY_PROTO(( void ));
1298#endif
1299#endif
1300
1301#if YY_STACK_USED
1302static int yy_start_stack_ptr = 0;
1303static int yy_start_stack_depth = 0;
1304static int *yy_start_stack = 0;
1305#ifndef YY_NO_PUSH_STATE
1306static void yy_push_state YY_PROTO(( int new_state ));
1307#endif
1308#ifndef YY_NO_POP_STATE
1309static void yy_pop_state YY_PROTO(( void ));
1310#endif
1311#ifndef YY_NO_TOP_STATE
1312static int yy_top_state YY_PROTO(( void ));
1313#endif
1314
1315#else
1316#define YY_NO_PUSH_STATE 1
1317#define YY_NO_POP_STATE 1
1318#define YY_NO_TOP_STATE 1
1319#endif
1320
1321#ifdef YY_MALLOC_DECL
1322YY_MALLOC_DECL
1323#else
1324#if __STDC__
1325#ifndef __cplusplus
1326#include <stdlib.h>
1327#endif
1328#else
1329/* Just try to get by without declaring the routines.  This will fail
1330 * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
1331 * or sizeof(void*) != sizeof(int).
1332 */
1333#endif
1334#endif
1335
1336/* Amount of stuff to slurp up with each read. */
1337#ifndef YY_READ_BUF_SIZE
1338#define YY_READ_BUF_SIZE 8192
1339#endif
1340
1341/* Copy whatever the last rule matched to the standard output. */
1342
1343#ifndef ECHO
1344/* This used to be an fputs(), but since the string might contain NUL's,
1345 * we now use fwrite().
1346 */
1347#define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
1348#endif
1349
1350/* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
1351 * is returned in "result".
1352 */
1353#ifndef YY_INPUT
1354#define YY_INPUT(buf,result,max_size) \
1355        if ( yy_current_buffer->yy_is_interactive ) \
1356                { \
1357                int c = '*', n; \
1358                for ( n = 0; n < max_size && \
1359                             (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
1360                        buf[n] = (char) c; \
1361                if ( c == '\n' ) \
1362                        buf[n++] = (char) c; \
1363                if ( c == EOF && ferror( yyin ) ) \
1364                        YY_FATAL_ERROR( "input in flex scanner failed" ); \
1365                result = n; \
1366                } \
1367        else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
1368                  && ferror( yyin ) ) \
1369                YY_FATAL_ERROR( "input in flex scanner failed" );
1370#endif
1371
1372/* No semi-colon after return; correct usage is to write "yyterminate();" -
1373 * we don't want an extra ';' after the "return" because that will cause
1374 * some compilers to complain about unreachable statements.
1375 */
1376#ifndef yyterminate
1377#define yyterminate() return YY_NULL
1378#endif
1379
1380/* Number of entries by which start-condition stack grows. */
1381#ifndef YY_START_STACK_INCR
1382#define YY_START_STACK_INCR 25
1383#endif
1384
1385/* Report a fatal error. */
1386#ifndef YY_FATAL_ERROR
1387#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
1388#endif
1389
1390/* Default declaration of generated scanner - a define so the user can
1391 * easily add parameters.
1392 */
1393#ifndef YY_DECL
1394#define YY_DECL int yylex YY_PROTO(( void ))
1395#endif
1396
1397/* Code executed at the beginning of each rule, after yytext and yyleng
1398 * have been set up.
1399 */
1400#ifndef YY_USER_ACTION
1401#define YY_USER_ACTION
1402#endif
1403
1404/* Code executed at the end of each rule. */
1405#ifndef YY_BREAK
1406#define YY_BREAK break;
1407#endif
1408
1409#define YY_RULE_SETUP \
1410        if ( yyleng > 0 ) \
1411                yy_current_buffer->yy_at_bol = \
1412                                (yytext[yyleng - 1] == '\n'); \
1413        YY_USER_ACTION
1414
1415YY_DECL
1416        {
1417        register yy_state_type yy_current_state;
1418        register char *yy_cp = NULL, *yy_bp = NULL;
1419        register int yy_act;
1420
1421#line 228 "libparse.l"
1422
1423
1424        if ( yy_init )
1425                {
1426                yy_init = 0;
1427
1428#ifdef YY_USER_INIT
1429                YY_USER_INIT;
1430#endif
1431
1432                if ( ! yy_start )
1433                        yy_start = 1;   /* first start state */
1434
1435                if ( ! yyin )
1436                        yyin = stdin;
1437
1438                if ( ! yyout )
1439                        yyout = stdout;
1440
1441                if ( ! yy_current_buffer )
1442                        yy_current_buffer =
1443                                yy_create_buffer( yyin, YY_BUF_SIZE );
1444
1445                yy_load_buffer_state();
1446                }
1447
1448        while ( 1 )             /* loops until end-of-file is reached */
1449                {
1450                yy_more_len = 0;
1451                if ( yy_more_flag )
1452                        {
1453                        yy_more_len = yy_c_buf_p - yytext_ptr;
1454                        yy_more_flag = 0;
1455                        }
1456                yy_cp = yy_c_buf_p;
1457
1458                /* Support of yytext. */
1459                *yy_cp = yy_hold_char;
1460
1461                /* yy_bp points to the position in yy_ch_buf of the start of
1462                 * the current run.
1463                 */
1464                yy_bp = yy_cp;
1465
1466                yy_current_state = yy_start;
1467                yy_current_state += YY_AT_BOL();
1468yy_match:
1469                do
1470                        {
1471                        register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
1472                        if ( yy_accept[yy_current_state] )
1473                                {
1474                                yy_last_accepting_state = yy_current_state;
1475                                yy_last_accepting_cpos = yy_cp;
1476                                }
1477                        while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1478                                {
1479                                yy_current_state = (int) yy_def[yy_current_state];
1480                                if ( yy_current_state >= 485 )
1481                                        yy_c = yy_meta[(unsigned int) yy_c];
1482                                }
1483                        yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1484                        ++yy_cp;
1485                        }
1486                while ( yy_base[yy_current_state] != 2200 );
1487
1488yy_find_action:
1489                yy_act = yy_accept[yy_current_state];
1490                if ( yy_act == 0 )
1491                        { /* have to back up */
1492                        yy_cp = yy_last_accepting_cpos;
1493                        yy_current_state = yy_last_accepting_state;
1494                        yy_act = yy_accept[yy_current_state];
1495                        }
1496
1497                YY_DO_BEFORE_ACTION;
1498
1499
1500do_action:      /* This label is used only to access EOF actions. */
1501
1502
1503                switch ( yy_act )
1504        { /* beginning of action switch */
1505                        case 0: /* must back up */
1506                        /* undo the effects of YY_DO_BEFORE_ACTION */
1507                        *yy_cp = yy_hold_char;
1508                        yy_cp = yy_last_accepting_cpos;
1509                        yy_current_state = yy_last_accepting_state;
1510                        goto yy_find_action;
1511
1512case 1:
1513YY_RULE_SETUP
1514#line 229 "libparse.l"
1515{ }
1516        YY_BREAK
1517case 2:
1518YY_RULE_SETUP
1519#line 230 "libparse.l"
1520{ old_state = YYSTATE; BEGIN(comment); }
1521        YY_BREAK
1522case 3:
1523YY_RULE_SETUP
1524#line 232 "libparse.l"
1525{
1526         yyless(4); old_state = YYSTATE; BEGIN(info);
1527       }
1528        YY_BREAK
1529case 4:
1530YY_RULE_SETUP
1531#line 235 "libparse.l"
1532{
1533         yyless(8); old_state = YYSTATE; BEGIN(category);
1534       }
1535        YY_BREAK
1536case 5:
1537YY_RULE_SETUP
1538#line 238 "libparse.l"
1539{
1540             if ( mode != GET_INFO )
1541             {
1542               #ifdef STANDALONE_PARSER
1543               if (texinfo_out)
1544               {
1545                 char *c = yytext;
1546                 printf("$url = \"");
1547                 while ((*c != '\0') && (*c != '"')) c++;
1548                 c++;
1549                 while ((*c != '\0') && (*c != '"'))
1550                 {
1551                    if (*c != '\r') putchar(*c);
1552                    c++;
1553                 }
1554                 printf("\";\n");
1555               }
1556               #endif
1557             }
1558       }
1559        YY_BREAK
1560case 6:
1561YY_RULE_SETUP
1562#line 259 "libparse.l"
1563{
1564             found_version++;
1565             if ( mode != GET_INFO )
1566             {
1567               make_version(yytext,1);
1568               #ifdef STANDALONE_PARSER
1569               if (texinfo_out)
1570               {
1571                 char *c = libnamebuf;
1572                 printf("$version = \"");
1573                 while (*c != '\0')
1574                 {
1575                    if (*== '$' || *== '@') putchar('\\');
1576                    if (*c != '\r') putchar(*c);
1577                    if (*== '\\')
1578                    {
1579                      c++;
1580                      if (*c != '"') putchar('\\');
1581                    }
1582                    else
1583                      c++;
1584                 }
1585                 printf("\";\n");
1586               }
1587               else if (!category_out)
1588                 printf("Version:%s;\n", libnamebuf);
1589               #else
1590               if (text_buffer!=NULL) omFree((ADDRESS)text_buffer);
1591               text_buffer = omStrDup(libnamebuf);
1592               omMarkAsStaticAddr(text_buffer);
1593               #endif
1594             }
1595           }
1596        YY_BREAK
1597case 7:
1598YY_RULE_SETUP
1599#line 293 "libparse.l"
1600{ p_static=TRUE; }
1601        YY_BREAK
1602case 8:
1603YY_RULE_SETUP
1604#line 295 "libparse.l"
1605{
1606             char proc[256];
1607             BEGIN(pdef);
1608             found_proc_in_proc = 0;
1609             proc[0]='\0';
1610             sscanf( yytext, "%*[^p]proc %s", proc);
1611             if(strlen(proc)<1) sscanf( yytext, "proc %s", proc);
1612             #if YYLPDEBUG > 1
1613             printf("Newlib:%s\n", newlib);
1614             #endif
1615             #ifdef STANDALONE_PARSER
1616             if ( pi != NULL )
1617             {
1618               printpi(pi);
1619               pi_clear(pi);
1620             }
1621             pi = (procinfo *)malloc(sizeof(procinfo));
1622             iiInitSingularProcinfo(pi, newlib, proc, yylplineno,
1623                                    current_pos(0), p_static);
1624             #else /*STANDALONE_PARSER*/
1625             if( mode == LOAD_LIB)
1626             {
1627               h0 = enterid( proc, 0 /*myynest*/, PROC_CMD,
1628                                 &(IDPACKAGE(pl)->idroot), TRUE, !p_static);
1629               if (h0==NULL) return(1);
1630               if((!p_static) && autoexport)
1631               {
1632                  package save=currPack;
1633                  currPack=basePack;
1634                  h_top = enterid( proc, 0 /*myynest*/, PROC_CMD,
1635                                 &(basePack->idroot), FALSE );
1636                  currPack=save;
1637                  if (h_top==NULL) return(1);
1638               }
1639               /* omCheckAddr(IDID(h0)); */
1640               if (h0!=NULL)
1641               {
1642                 iiInitSingularProcinfo(IDPROC(h0), newlib, proc,
1643                                yylplineno, current_pos(0),p_static);
1644                 if ((!p_static) && (h_top != NULL) && autoexport)
1645                 {
1646                   if(IDPROC(h_top)!=NULL) piCleanUp((procinfo *)IDPROC(h_top));
1647                   IDPROC(h_top)=IDPROC(h0);
1648                   IDPROC(h_top)->ref++;
1649                 }
1650                 IDPROC(h0)->pack=IDPACKAGE(pl);
1651                 if (BVERBOSE(V_LOAD_PROC))
1652                   Warn( "     proc '%s' registered", proc );
1653               }
1654               #endif /*STANDALONE_PARSER*/
1655               SET_DEF_END(mode, pi, current_pos(yyleng+1));
1656               #if YYLPDEBUG
1657               if(lpverbose)
1658               {
1659                  printf("// PROCEDURE '%s' status: %s, ", proc,
1660                      p_static ? "local" : "global");
1661                  printf("starting at line %d,%d: definition end: %d (%d).\n",
1662                      yylplineno, current_pos(0), (int)pi->data.s.def_end, brace1);
1663               }
1664               #endif
1665               p_static=FALSE;
1666             #ifndef STANDALONE_PARSER
1667             }
1668             #endif /*STANDALONE_PARSER*/
1669           }
1670        YY_BREAK
1671case 9:
1672YY_RULE_SETUP
1673#line 364 "libparse.l"
1674{
1675             BEGIN(pexample);
1676             SET_EXAMPLE_START(mode, pi, yylplineno, current_pos(0));
1677             #if YYLPDEBUG
1678             if(lpverbose)
1679             {
1680                printf("//     EXAMPLE at line %d,%d (%d)\n", yylplineno,
1681                    current_pos(0), brace1);
1682             }
1683             #endif
1684           }
1685        YY_BREAK
1686case 10:
1687YY_RULE_SETUP
1688#line 376 "libparse.l"
1689{ quote++;
1690             BEGIN(libcmd);
1691           }
1692        YY_BREAK
1693case 11:
1694YY_RULE_SETUP
1695#line 380 "libparse.l"
1696{ quote++; brace2++;
1697             BEGIN(libcmd2);
1698           }
1699        YY_BREAK
1700case 12:
1701YY_RULE_SETUP
1702#line 384 "libparse.l"
1703{
1704             make_version(yytext, 0);
1705             #if YYLPDEBUG > 1
1706             printf("+(id)HEAD:%s\n", yytext);
1707             #endif
1708           }
1709        YY_BREAK
1710case 13:
1711YY_RULE_SETUP
1712#line 390 "libparse.l"
1713{
1714             #if YYLPDEBUG
1715             printf("+(cmt)HEAD:%s\n", yytext);
1716             #endif
1717           }
1718        YY_BREAK
1719case 14:
1720YY_RULE_SETUP
1721#line 395 "libparse.l"
1722{
1723             #if YYLPDEBUG > 1
1724             printf("-HEAD:%s\n", yytext);
1725             #endif
1726           }
1727        YY_BREAK
1728case 15:
1729YY_RULE_SETUP
1730#line 400 "libparse.l"
1731{ yyless(0);
1732             BEGIN(INITIAL);
1733             yymore();
1734           }
1735        YY_BREAK
1736case 16:
1737YY_RULE_SETUP
1738#line 404 "libparse.l"
1739{
1740             yyless(0);
1741             *lib_style = NEW_LIBSTYLE;
1742             BEGIN(INITIAL);
1743             yymore();
1744           }
1745        YY_BREAK
1746case 17:
1747YY_RULE_SETUP
1748#line 411 "libparse.l"
1749{ quote++;
1750             BEGIN(libcmd);
1751           }
1752        YY_BREAK
1753case 18:
1754YY_RULE_SETUP
1755#line 414 "libparse.l"
1756{ quote++; brace2++;
1757             BEGIN(libcmd2);
1758           }
1759        YY_BREAK
1760case 19:
1761YY_RULE_SETUP
1762#line 417 "libparse.l"
1763{ yylplineno++; }
1764        YY_BREAK
1765case 20:
1766YY_RULE_SETUP
1767#line 418 "libparse.l"
1768{
1769             #if YYLPDEBUG > 1
1770             printf(" HEAD:%s\n", yytext);
1771             #endif
1772             yyless(0);
1773             BEGIN(help);
1774           }
1775        YY_BREAK
1776case 21:
1777YY_RULE_SETUP
1778#line 425 "libparse.l"
1779{
1780             #if YYLPDEBUG > 1
1781             printf(" HELP:%s\n", yytext);
1782             #endif
1783             BEGIN(INITIAL); }
1784        YY_BREAK
1785case 22:
1786YY_RULE_SETUP
1787#line 430 "libparse.l"
1788{
1789             #if YYLPDEBUG > 1
1790             printf(" HELP:%s\n", yytext);
1791             #endif
1792             BEGIN(INITIAL);
1793           }
1794        YY_BREAK
1795case 23:
1796YY_RULE_SETUP
1797#line 436 "libparse.l"
1798{
1799             yyless(0);
1800             *lib_style = NEW_LIBSTYLE;
1801             BEGIN(INITIAL);
1802             yymore();
1803           }
1804        YY_BREAK
1805case 24:
1806YY_RULE_SETUP
1807#line 442 "libparse.l"
1808{
1809             yyless(0);
1810             //printf("2) proc found.\n");
1811             BEGIN(INITIAL);
1812             yymore();
1813           }
1814        YY_BREAK
1815case 25:
1816YY_RULE_SETUP
1817#line 448 "libparse.l"
1818{ quote++;
1819             BEGIN(libcmd);
1820           }
1821        YY_BREAK
1822case 26:
1823YY_RULE_SETUP
1824#line 451 "libparse.l"
1825{ quote++; brace2++;
1826             BEGIN(libcmd2);
1827           }
1828        YY_BREAK
1829case 27:
1830YY_RULE_SETUP
1831#line 455 "libparse.l"
1832{ yylplineno++; }
1833        YY_BREAK
1834case 28:
1835YY_RULE_SETUP
1836#line 456 "libparse.l"
1837{
1838             #if YYLPDEBUG
1839             if(lpverbose>2) printf("--->%s<---\n", yytext);
1840             #endif
1841           }
1842        YY_BREAK
1843case 29:
1844YY_RULE_SETUP
1845#line 461 "libparse.l"
1846{
1847             found_oldhelp=1;
1848             #if YYLPDEBUG > 1
1849             printf("-HELP:%s\n", yytext);
1850             #endif
1851           }
1852        YY_BREAK
1853case 30:
1854YY_RULE_SETUP
1855#line 469 "libparse.l"
1856{ quote--;
1857             yytext[yyleng-1] = '\0';
1858             #ifndef STANDALONE_PARSER
1859             if ( mode == LOAD_LIB )
1860             {
1861               library_stack->push(newlib, yytext);
1862             }
1863             #endif /* STANDALONE_PARSER */
1864             #if YYLPDEBUG
1865             if(lpverbose>1) printf("LIB:'%s'\n", yytext);
1866             #endif
1867             BEGIN(INITIAL);
1868           }
1869        YY_BREAK
1870case 31:
1871YY_RULE_SETUP
1872#line 482 "libparse.l"
1873{ quote--; brace2--;
1874             yytext[yyleng-1] = '\0';
1875             #ifndef STANDALONE_PARSER
1876             if ( mode == LOAD_LIB )
1877             {
1878               library_stack->push(newlib, yytext);
1879             }
1880             #endif /* STANDALONE_PARSER */
1881             #if YYLPDEBUG
1882             if(lpverbose>1) printf("LIB:'%s'\n", yytext);
1883             #endif
1884             BEGIN(INITIAL);
1885           }
1886        YY_BREAK
1887case 32:
1888YY_RULE_SETUP
1889#line 496 "libparse.l"
1890{ }
1891        YY_BREAK
1892case 33:
1893YY_RULE_SETUP
1894#line 497 "libparse.l"
1895{
1896             brace2++;
1897             #if YYLPDEBUG > 1
1898             printf("%s", yytext);
1899             #endif
1900           }
1901        YY_BREAK
1902case 34:
1903YY_RULE_SETUP
1904#line 503 "libparse.l"
1905{
1906             brace2--;
1907             #if YYLPDEBUG > 1
1908             printf(">%s<\n", yytext);
1909             printf("{=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1910             #endif
1911             if(brace2<=0)
1912             {
1913               #if YYLPDEBUG > 1
1914               printf("BEGIN(phead){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1915               #endif
1916               SET_DEF_END(mode, pi, current_pos(yyleng));
1917               BEGIN(phead);
1918             }
1919           }
1920        YY_BREAK
1921case 35:
1922YY_RULE_SETUP
1923#line 518 "libparse.l"
1924{
1925             if(brace2>0)
1926             {
1927               #if YYLPDEBUG > 1
1928               printf("{=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1929               #endif
1930               yylp_errno = YYLP_DEF_BR2;
1931               return(1);
1932             }
1933             else
1934             {
1935               brace1++; BEGIN(pbody);
1936               if(lpverbose)
1937                  printf("//     BODY at line %d,%d (%d)\n", yylplineno,
1938                      current_pos(0), brace1);
1939               SET_BODY_START(mode, pi, yylplineno, current_pos(0));
1940             }
1941           }
1942        YY_BREAK
1943case 36:
1944YY_RULE_SETUP
1945#line 536 "libparse.l"
1946{ yylplineno++;
1947              if(brace2<=0)
1948              {
1949#if YYLPDEBUG > 1
1950                printf("BEGIN(phead-2){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
1951#endif
1952                BEGIN(phead);
1953              }
1954            }
1955        YY_BREAK
1956case 37:
1957YY_RULE_SETUP
1958#line 545 "libparse.l"
1959{ }
1960        YY_BREAK
1961case 38:
1962YY_RULE_SETUP
1963#line 546 "libparse.l"
1964{ old_state = YYSTATE; BEGIN(comment); }
1965        YY_BREAK
1966case 39:
1967YY_RULE_SETUP
1968#line 547 "libparse.l"
1969{
1970             if(brace2<=0)
1971             {
1972               BEGIN(phead);
1973               yyless(0);
1974             }
1975           }
1976        YY_BREAK
1977case 40:
1978YY_RULE_SETUP
1979#line 555 "libparse.l"
1980{
1981              #if YYLPDEBUG
1982              if(lpverbose>2)printf("0-Len=%d;\n", yyleng);
1983              #endif
1984              if(check)
1985              {
1986                printf("Procedure %s (line %d) has OLD-STYLE-HELP!\n",
1987                       pi->procname, pi->data.s.proc_lineno);
1988              }
1989              SET_HELP_START(mode, pi, current_pos(0));
1990              BEGIN(poldhelp);
1991              yyless(0);
1992           }
1993        YY_BREAK
1994case 41:
1995YY_RULE_SETUP
1996#line 568 "libparse.l"
1997{
1998              #if YYLPDEBUG
1999              if(lpverbose>2)printf("1-Len=%d;\n", yyleng);
2000              #endif
2001              BEGIN(phelp);
2002              yyless(0);
2003           }
2004        YY_BREAK
2005case 42:
2006YY_RULE_SETUP
2007#line 575 "libparse.l"
2008{
2009              if(check && yyleng>2)
2010              {
2011                printf("Procedure %s (line %d) has OLD-STYLE-HELP!\n",
2012                       pi->procname, pi->data.s.proc_lineno);
2013              }
2014              #if YYLPDEBUG
2015              if(lpverbose>2 && yyleng>2)
2016                 printf("2-Len=%d, %s;\n", yyleng, pi->procname);
2017              #endif
2018              SET_HELP_START(mode, pi, current_pos(0));
2019              BEGIN(poldhelp);
2020              yyless(0);
2021           }
2022        YY_BREAK
2023case 43:
2024YY_RULE_SETUP
2025#line 589 "libparse.l"
2026{ printf("[%s]", yytext); }
2027        YY_BREAK
2028case 44:
2029YY_RULE_SETUP
2030#line 591 "libparse.l"
2031{ }
2032        YY_BREAK
2033case 45:
2034YY_RULE_SETUP
2035#line 592 "libparse.l"
2036{
2037                SET_HELP_END(mode, pi, current_pos(0));
2038                brace1++; BEGIN(pbody);
2039                if(lpverbose)
2040                {
2041                   printf("//     HELP from %d to %d\n",
2042                       (int)pi->data.s.help_start, (int)pi->data.s.help_end);
2043                   printf("//     BODY at line %d,%d (%d)\n", yylplineno,
2044                       current_pos(0), brace1);
2045                }
2046#if YYLPDEBUG > 1
2047                printf("BEGIN(pbody){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
2048#endif
2049                SET_BODY_START(mode, pi, yylplineno, current_pos(0));
2050#if YYLPDEBUG > 1
2051                printf("BODY at %d/%d", yylplineno, current_pos(0));
2052#endif
2053              }
2054        YY_BREAK
2055case 46:
2056YY_RULE_SETUP
2057#line 610 "libparse.l"
2058{ yylplineno++; }
2059        YY_BREAK
2060case 47:
2061YY_RULE_SETUP
2062#line 611 "libparse.l"
2063{ }
2064        YY_BREAK
2065case 48:
2066YY_RULE_SETUP
2067#line 613 "libparse.l"
2068{
2069             old_state = YYSTATE;
2070             BEGIN(string);
2071             SET_HELP_START(mode, pi, current_pos(1));
2072           }
2073        YY_BREAK
2074case 49:
2075YY_RULE_SETUP
2076#line 618 "libparse.l"
2077{}
2078        YY_BREAK
2079case 50:
2080YY_RULE_SETUP
2081#line 619 "libparse.l"
2082{
2083             brace1++; BEGIN(pbody);
2084             if(lpverbose)
2085             {
2086                printf("//     HELP from %d to %d\n",
2087                    (int)pi->data.s.help_start, (int)pi->data.s.help_end);
2088                printf("//     BODY at line %d,%d (%d)\n", yylplineno,
2089                    current_pos(0), brace1);
2090             }
2091             #if YYLPDEBUG > 1
2092             printf("BEGIN(pbody){=%d, (=%d, [=%d\n", brace1, brace2, brace3);
2093             #endif
2094             SET_BODY_START(mode, pi, yylplineno, current_pos(0));
2095             #if YYLPDEBUG > 1
2096             printf("BODY at %d/%d", yylplineno, current_pos(0));
2097             #endif
2098           }
2099        YY_BREAK
2100case 51:
2101YY_RULE_SETUP
2102#line 636 "libparse.l"
2103{ yylplineno++;}
2104        YY_BREAK
2105case 52:
2106YY_RULE_SETUP
2107#line 638 "libparse.l"
2108{ }
2109        YY_BREAK
2110case 53:
2111YY_RULE_SETUP
2112#line 639 "libparse.l"
2113{ quote++; old_state = YYSTATE;
2114                 BEGIN(string); /* printf("%s", yytext); */
2115               }
2116        YY_BREAK
2117case 54:
2118YY_RULE_SETUP
2119#line 643 "libparse.l"
2120{
2121             if(check) printf("*** found 2 proc whithin procedure '%s'.\n",
2122                          pi->procname);
2123             yyless(yyleng-1);
2124           }
2125        YY_BREAK
2126case 55:
2127YY_RULE_SETUP
2128#line 648 "libparse.l"
2129{
2130             if(check) printf("*** found 1 proc whithin procedure '%s'.\n",
2131                          pi->procname);
2132             yyless(yyleng-1);
2133           }
2134        YY_BREAK
2135case 56:
2136YY_RULE_SETUP
2137#line 653 "libparse.l"
2138{
2139                 brace1++;
2140                 #if YYLPDEBUG > 1
2141                 printf("line: %d, (%d)%s\n", yylplineno, brace1, yytext);
2142                 #endif
2143                }
2144        YY_BREAK
2145case 57:
2146YY_RULE_SETUP
2147#line 659 "libparse.l"
2148{
2149                           #if YYLPDEBUG > 1
2150                           printf("line: %d, (%d)%s\n",
2151                             yylplineno, brace1, yytext);
2152                           #endif
2153                           brace1--;
2154                           if(brace2>0)
2155                           {
2156                             yylp_errno = YYLP_BODY_BR2;
2157                             return(1);
2158                           }
2159                           if(brace3>0)
2160                           {
2161                             yylp_errno = YYLP_BODY_BR3;
2162                             return(1);
2163                           }
2164                           if(brace1<=0)
2165                           {
2166                             SET_BODY_END(mode, pi, current_pos(yyleng));
2167                             SET_PROC_END(mode, pi, current_pos(yyleng));
2168                             #if YYLPDEBUG > 1
2169                               printf("-%d\n", current_pos(0));
2170                             #endif
2171                             BEGIN(INITIAL);
2172                           }
2173                         }
2174        YY_BREAK
2175case 58:
2176YY_RULE_SETUP
2177#line 685 "libparse.l"
2178{
2179                           brace2++; /* printf("%s", yytext); */
2180                         }
2181        YY_BREAK
2182case 59:
2183YY_RULE_SETUP
2184#line 688 "libparse.l"
2185{
2186                           brace2--; /* printf("%s", yytext); */
2187                           if(brace2<0) {
2188                             yylp_errno = YYLP_BODY_TMBR2;
2189                             return(1);
2190                           }
2191                         }
2192        YY_BREAK
2193case 60:
2194YY_RULE_SETUP
2195#line 695 "libparse.l"
2196{
2197                           brace3++; /* printf("%s", yytext); */
2198                         }
2199        YY_BREAK
2200case 61:
2201YY_RULE_SETUP
2202#line 698 "libparse.l"
2203{
2204                           brace3--; /* printf("%s", yytext); */
2205                           if(brace3<0) {
2206                             yylp_errno = YYLP_BODY_TMBR3;
2207                             return(1);
2208                           }
2209                         }
2210        YY_BREAK
2211case 62:
2212YY_RULE_SETUP
2213#line 705 "libparse.l"
2214{ yylplineno++; }
2215        YY_BREAK
2216case 63:
2217YY_RULE_SETUP
2218#line 706 "libparse.l"
2219{ }
2220        YY_BREAK
2221case 64:
2222YY_RULE_SETUP
2223#line 708 "libparse.l"
2224{
2225             quote++; BEGIN(string);
2226             found_info++;
2227             string_start = current_pos(yyleng);
2228             *lib_style = NEW_LIBSTYLE;
2229             last_cmd = LP_INFO;
2230       }
2231        YY_BREAK
2232case 65:
2233YY_RULE_SETUP
2234#line 715 "libparse.l"
2235{ yylplineno++; }
2236        YY_BREAK
2237case 66:
2238YY_RULE_SETUP
2239#line 716 "libparse.l"
2240{ }
2241        YY_BREAK
2242case 67:
2243YY_RULE_SETUP
2244#line 718 "libparse.l"
2245{
2246             quote++; BEGIN(string);
2247             found_cat++;
2248             string_start = current_pos(yyleng);
2249             *lib_style = NEW_LIBSTYLE;
2250             last_cmd = LP_CATEGORY;
2251       }
2252        YY_BREAK
2253case 68:
2254YY_RULE_SETUP
2255#line 725 "libparse.l"
2256{ yylplineno++; }
2257        YY_BREAK
2258case 69:
2259YY_RULE_SETUP
2260#line 726 "libparse.l"
2261{ }
2262        YY_BREAK
2263case 70:
2264YY_RULE_SETUP
2265#line 729 "libparse.l"
2266{ quote--;
2267                           copy_string(mode);
2268                           last_cmd = LP_NONE;
2269                           if(old_state==phelp)
2270                           {
2271                              SET_HELP_END(mode, pi, current_pos(0));
2272                           }
2273                           BEGIN(old_state); /* printf("%s", yytext); */
2274                         }
2275        YY_BREAK
2276case 71:
2277YY_RULE_SETUP
2278#line 738 "libparse.l"
2279{ if (old_state == phelp) IncrCheckSum(*yytext);}
2280        YY_BREAK
2281case 72:
2282YY_RULE_SETUP
2283#line 739 "libparse.l"
2284{ yylplineno++; if (old_state == phelp) IncrCheckSum('\n');}
2285        YY_BREAK
2286case 73:
2287YY_RULE_SETUP
2288#line 740 "libparse.l"
2289{ if (old_state == phelp) IncrCheckSum(*yytext);}
2290        YY_BREAK
2291case 74:
2292YY_RULE_SETUP
2293#line 742 "libparse.l"
2294{ }
2295        YY_BREAK
2296case 75:
2297YY_RULE_SETUP
2298#line 743 "libparse.l"
2299{ quote++; old_state = YYSTATE;
2300                           BEGIN(string); /* printf("%s", yytext); */
2301                         }
2302        YY_BREAK
2303case 76:
2304YY_RULE_SETUP
2305#line 746 "libparse.l"
2306{
2307                           brace1++; /* printf("(%d)%s", brace1, yytext); */
2308                         }
2309        YY_BREAK
2310case 77:
2311YY_RULE_SETUP
2312#line 749 "libparse.l"
2313{
2314                           brace1--; /* printf("(%d)%s", brace1, yytext); */
2315                           if(brace1<=0) {
2316                             if(brace2>0) { yylp_errno=YYLP_EX_BR2; return(1); }
2317                             if(brace3>0) { yylp_errno=YYLP_EX_BR3; return(1); }
2318                             BEGIN(INITIAL);
2319                             SET_PROC_END(mode, pi, current_pos(yyleng));
2320                           }
2321                         }
2322        YY_BREAK
2323case 78:
2324YY_RULE_SETUP
2325#line 758 "libparse.l"
2326{
2327                           brace2++; /* printf("%s", yytext); */
2328                         }
2329        YY_BREAK
2330case 79:
2331YY_RULE_SETUP
2332#line 761 "libparse.l"
2333{
2334                           brace2--; /* printf("%s", yytext); */
2335                         }
2336        YY_BREAK
2337case 80:
2338YY_RULE_SETUP
2339#line 764 "libparse.l"
2340{
2341                           brace3++; /* printf("%s", yytext); */
2342                         }
2343        YY_BREAK
2344case 81:
2345YY_RULE_SETUP
2346#line 767 "libparse.l"
2347{
2348                           brace3--; /* printf("%s", yytext); */
2349                         }
2350        YY_BREAK
2351case 82:
2352YY_RULE_SETUP
2353#line 770 "libparse.l"
2354{ yylplineno++; }
2355        YY_BREAK
2356case 83:
2357YY_RULE_SETUP
2358#line 771 "libparse.l"
2359{ }
2360        YY_BREAK
2361case 84:
2362YY_RULE_SETUP
2363#line 773 "libparse.l"
2364{ quote--;
2365                           BEGIN(pexample); /* printf("%s", yytext); */
2366                         }
2367        YY_BREAK
2368case 85:
2369YY_RULE_SETUP
2370#line 776 "libparse.l"
2371{ }
2372        YY_BREAK
2373case 86:
2374YY_RULE_SETUP
2375#line 777 "libparse.l"
2376{ }
2377        YY_BREAK
2378case 87:
2379YY_RULE_SETUP
2380#line 778 "libparse.l"
2381{ yylplineno++; }
2382        YY_BREAK
2383case 88:
2384YY_RULE_SETUP
2385#line 779 "libparse.l"
2386{ }
2387        YY_BREAK
2388case 89:
2389YY_RULE_SETUP
2390#line 781 "libparse.l"
2391{ BEGIN(old_state); }
2392        YY_BREAK
2393case 90:
2394YY_RULE_SETUP
2395#line 782 "libparse.l"
2396{ yylplineno++; }
2397        YY_BREAK
2398case 91:
2399YY_RULE_SETUP
2400#line 783 "libparse.l"
2401{ }
2402        YY_BREAK
2403case 92:
2404YY_RULE_SETUP
2405#line 785 "libparse.l"
2406{ yylplineno++; }
2407        YY_BREAK
2408case 93:
2409YY_RULE_SETUP
2410#line 786 "libparse.l"
2411{ }
2412        YY_BREAK
2413case 94:
2414YY_RULE_SETUP
2415#line 787 "libparse.l"
2416{ p_static = FALSE;
2417                            #if YYLPDEBUG > 1
2418                            printf("%s", yytext);
2419                            #endif
2420                         }
2421        YY_BREAK
2422case 95:
2423YY_RULE_SETUP
2424#line 792 "libparse.l"
2425{ p_static = FALSE;
2426                           yylp_errno = YYLP_BAD_CHAR;
2427                           #ifdef STANDALONE_PARSER
2428                           printf("[%d]", *yytext);
2429                           #else
2430                           if (text_buffer!=NULL) omFree((ADDRESS)text_buffer);
2431                           text_buffer = omStrDup(yytext);
2432                           omMarkAsStaticAddr(text_buffer);
2433                           #endif
2434                           #if YYLPDEBUG > 1
2435                             printf("[%s]", yytext);
2436                           #endif
2437                           return(1);
2438                         }
2439        YY_BREAK
2440case 96:
2441YY_RULE_SETUP
2442#line 807 "libparse.l"
2443ECHO;
2444        YY_BREAK
2445case YY_STATE_EOF(INITIAL):
2446case YY_STATE_EOF(header):
2447case YY_STATE_EOF(help):
2448case YY_STATE_EOF(libcmd):
2449case YY_STATE_EOF(libcmd2):
2450case YY_STATE_EOF(pdef):
2451case YY_STATE_EOF(phead):
2452case YY_STATE_EOF(poldhelp):
2453case YY_STATE_EOF(phelp):
2454case YY_STATE_EOF(pbody):
2455case YY_STATE_EOF(pstr):
2456case YY_STATE_EOF(pexample):
2457case YY_STATE_EOF(pestr):
2458case YY_STATE_EOF(string):
2459case YY_STATE_EOF(comment):
2460case YY_STATE_EOF(info):
2461case YY_STATE_EOF(category):
2462case YY_STATE_EOF(url):
2463case YY_STATE_EOF(version):
2464        yyterminate();
2465
2466        case YY_END_OF_BUFFER:
2467                {
2468                /* Amount of text matched not including the EOB char. */
2469                int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
2470
2471                /* Undo the effects of YY_DO_BEFORE_ACTION. */
2472                *yy_cp = yy_hold_char;
2473                YY_RESTORE_YY_MORE_OFFSET
2474
2475                if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
2476                        {
2477                        /* We're scanning a new file or input source.  It's
2478                         * possible that this happened because the user
2479                         * just pointed yyin at a new source and called
2480                         * yylex().  If so, then we have to assure
2481                         * consistency between yy_current_buffer and our
2482                         * globals.  Here is the right place to do so, because
2483                         * this is the first action (other than possibly a
2484                         * back-up) that will match for the new input source.
2485                         */
2486                        yy_n_chars = yy_current_buffer->yy_n_chars;
2487                        yy_current_buffer->yy_input_file = yyin;
2488                        yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
2489                        }
2490
2491                /* Note that here we test for yy_c_buf_p "<=" to the position
2492                 * of the first EOB in the buffer, since yy_c_buf_p will
2493                 * already have been incremented past the NUL character
2494                 * (since all states make transitions on EOB to the
2495                 * end-of-buffer state).  Contrast this with the test
2496                 * in input().
2497                 */
2498                if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
2499                        { /* This was really a NUL. */
2500                        yy_state_type yy_next_state;
2501
2502                        yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
2503
2504                        yy_current_state = yy_get_previous_state();
2505
2506                        /* Okay, we're now positioned to make the NUL
2507                         * transition.  We couldn't have
2508                         * yy_get_previous_state() go ahead and do it
2509                         * for us because it doesn't know how to deal
2510                         * with the possibility of jamming (and we don't
2511                         * want to build jamming into it because then it
2512                         * will run more slowly).
2513                         */
2514
2515                        yy_next_state = yy_try_NUL_trans( yy_current_state );
2516
2517                        yy_bp = yytext_ptr + YY_MORE_ADJ;
2518
2519                        if ( yy_next_state )
2520                                {
2521                                /* Consume the NUL. */
2522                                yy_cp = ++yy_c_buf_p;
2523                                yy_current_state = yy_next_state;
2524                                goto yy_match;
2525                                }
2526
2527                        else
2528                                {
2529                                yy_cp = yy_c_buf_p;
2530                                goto yy_find_action;
2531                                }
2532                        }
2533
2534                else switch ( yy_get_next_buffer() )
2535                        {
2536                        case EOB_ACT_END_OF_FILE:
2537                                {
2538                                yy_did_buffer_switch_on_eof = 0;
2539
2540                                if ( yywrap() )
2541                                        {
2542                                        /* Note: because we've taken care in
2543                                         * yy_get_next_buffer() to have set up
2544                                         * yytext, we can now set up
2545                                         * yy_c_buf_p so that if some total
2546                                         * hoser (like flex itself) wants to
2547                                         * call the scanner after we return the
2548                                         * YY_NULL, it'll still work - another
2549                                         * YY_NULL will get returned.
2550                                         */
2551                                        yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
2552
2553                                        yy_act = YY_STATE_EOF(YY_START);
2554                                        goto do_action;
2555                                        }
2556
2557                                else
2558                                        {
2559                                        if ( ! yy_did_buffer_switch_on_eof )
2560                                                YY_NEW_FILE;
2561                                        }
2562                                break;
2563                                }
2564
2565                        case EOB_ACT_CONTINUE_SCAN:
2566                                yy_c_buf_p =
2567                                        yytext_ptr + yy_amount_of_matched_text;
2568
2569                                yy_current_state = yy_get_previous_state();
2570
2571                                yy_cp = yy_c_buf_p;
2572                                yy_bp = yytext_ptr + YY_MORE_ADJ;
2573                                goto yy_match;
2574
2575                        case EOB_ACT_LAST_MATCH:
2576                                yy_c_buf_p =
2577                                &yy_current_buffer->yy_ch_buf[yy_n_chars];
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_find_action;
2584                        }
2585                break;
2586                }
2587
2588        default:
2589                YY_FATAL_ERROR(
2590                        "fatal flex scanner internal error--no action found" );
2591        } /* end of action switch */
2592                } /* end of scanning one token */
2593        } /* end of yylex */
2594
2595
2596/* yy_get_next_buffer - try to read in a new buffer
2597 *
2598 * Returns a code representing an action:
2599 *      EOB_ACT_LAST_MATCH -
2600 *      EOB_ACT_CONTINUE_SCAN - continue scanning from current position
2601 *      EOB_ACT_END_OF_FILE - end of file
2602 */
2603
2604static int yy_get_next_buffer()
2605        {
2606        register char *dest = yy_current_buffer->yy_ch_buf;
2607        register char *source = yytext_ptr;
2608        register int number_to_move, i;
2609        int ret_val;
2610
2611        if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
2612                YY_FATAL_ERROR(
2613                "fatal flex scanner internal error--end of buffer missed" );
2614
2615        if ( yy_current_buffer->yy_fill_buffer == 0 )
2616                { /* Don't try to fill the buffer, so this is an EOF. */
2617                if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
2618                        {
2619                        /* We matched a single character, the EOB, so
2620                         * treat this as a final EOF.
2621                         */
2622                        return EOB_ACT_END_OF_FILE;
2623                        }
2624
2625                else
2626                        {
2627                        /* We matched some text prior to the EOB, first
2628                         * process it.
2629                         */
2630                        return EOB_ACT_LAST_MATCH;
2631                        }
2632                }
2633
2634        /* Try to read more data. */
2635
2636        /* First move last chars to start of buffer. */
2637        number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
2638
2639        for ( i = 0; i < number_to_move; ++i )
2640                *(dest++) = *(source++);
2641
2642        if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
2643                /* don't do the read, it's not guaranteed to return an EOF,
2644                 * just force an EOF
2645                 */
2646                yy_current_buffer->yy_n_chars = yy_n_chars = 0;
2647
2648        else
2649                {
2650                int num_to_read =
2651                        yy_current_buffer->yy_buf_size - number_to_move - 1;
2652
2653                while ( num_to_read <= 0 )
2654                        { /* Not enough room in the buffer - grow it. */
2655#ifdef YY_USES_REJECT
2656                        YY_FATAL_ERROR(
2657"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
2658#else
2659
2660                        /* just a shorter name for the current buffer */
2661                        YY_BUFFER_STATE b = yy_current_buffer;
2662
2663                        int yy_c_buf_p_offset =
2664                                (int) (yy_c_buf_p - b->yy_ch_buf);
2665
2666                        if ( b->yy_is_our_buffer )
2667                                {
2668                                int new_size = b->yy_buf_size * 2;
2669
2670                                if ( new_size <= 0 )
2671                                        b->yy_buf_size += b->yy_buf_size / 8;
2672                                else
2673                                        b->yy_buf_size *= 2;
2674
2675                                b->yy_ch_buf = (char *)
2676                                        /* Include room in for 2 EOB chars. */
2677                                        yy_flex_realloc( (void *) b->yy_ch_buf,
2678                                                         b->yy_buf_size + 2 );
2679                                }
2680                        else
2681                                /* Can't grow it, we don't own it. */
2682                                b->yy_ch_buf = 0;
2683
2684                        if ( ! b->yy_ch_buf )
2685                                YY_FATAL_ERROR(
2686                                "fatal error - scanner input buffer overflow" );
2687
2688                        yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
2689
2690                        num_to_read = yy_current_buffer->yy_buf_size -
2691                                                number_to_move - 1;
2692#endif
2693                        }
2694
2695                if ( num_to_read > YY_READ_BUF_SIZE )
2696                        num_to_read = YY_READ_BUF_SIZE;
2697
2698                /* Read in more data. */
2699                YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
2700                        yy_n_chars, num_to_read );
2701
2702                yy_current_buffer->yy_n_chars = yy_n_chars;
2703                }
2704
2705        if ( yy_n_chars == 0 )
2706                {
2707                if ( number_to_move == YY_MORE_ADJ )
2708                        {
2709                        ret_val = EOB_ACT_END_OF_FILE;
2710                        yyrestart( yyin );
2711                        }
2712
2713                else
2714                        {
2715                        ret_val = EOB_ACT_LAST_MATCH;
2716                        yy_current_buffer->yy_buffer_status =
2717                                YY_BUFFER_EOF_PENDING;
2718                        }
2719                }
2720
2721        else
2722                ret_val = EOB_ACT_CONTINUE_SCAN;
2723
2724        yy_n_chars += number_to_move;
2725        yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
2726        yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
2727
2728        yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
2729
2730        return ret_val;
2731        }
2732
2733
2734/* yy_get_previous_state - get the state just before the EOB char was reached */
2735
2736static yy_state_type yy_get_previous_state()
2737        {
2738        register yy_state_type yy_current_state;
2739        register char *yy_cp;
2740
2741        yy_current_state = yy_start;
2742        yy_current_state += YY_AT_BOL();
2743
2744        for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
2745                {
2746                register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
2747                if ( yy_accept[yy_current_state] )
2748                        {
2749                        yy_last_accepting_state = yy_current_state;
2750                        yy_last_accepting_cpos = yy_cp;
2751                        }
2752                while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2753                        {
2754                        yy_current_state = (int) yy_def[yy_current_state];
2755                        if ( yy_current_state >= 485 )
2756                                yy_c = yy_meta[(unsigned int) yy_c];
2757                        }
2758                yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
2759                }
2760
2761        return yy_current_state;
2762        }
2763
2764
2765/* yy_try_NUL_trans - try to make a transition on the NUL character
2766 *
2767 * synopsis
2768 *      next_state = yy_try_NUL_trans( current_state );
2769 */
2770
2771#ifdef YY_USE_PROTOS
2772static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
2773#else
2774static yy_state_type yy_try_NUL_trans( yy_current_state )
2775yy_state_type yy_current_state;
2776#endif
2777        {
2778        register int yy_is_jam;
2779        register char *yy_cp = yy_c_buf_p;
2780
2781        register YY_CHAR yy_c = 1;
2782        if ( yy_accept[yy_current_state] )
2783                {
2784                yy_last_accepting_state = yy_current_state;
2785                yy_last_accepting_cpos = yy_cp;
2786                }
2787        while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
2788                {
2789                yy_current_state = (int) yy_def[yy_current_state];
2790                if ( yy_current_state >= 485 )
2791                        yy_c = yy_meta[(unsigned int) yy_c];
2792                }
2793        yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
2794        yy_is_jam = (yy_current_state == 484);
2795
2796        return yy_is_jam ? 0 : yy_current_state;
2797        }
2798
2799
2800#ifndef YY_NO_UNPUT
2801#ifdef YY_USE_PROTOS
2802static void yyunput( int c, register char *yy_bp )
2803#else
2804static void yyunput( c, yy_bp )
2805int c;
2806register char *yy_bp;
2807#endif
2808        {
2809        register char *yy_cp = yy_c_buf_p;
2810
2811        /* undo effects of setting up yytext */
2812        *yy_cp = yy_hold_char;
2813
2814        if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
2815                { /* need to shift things up to make room */
2816                /* +2 for EOB chars. */
2817                register int number_to_move = yy_n_chars + 2;
2818                register char *dest = &yy_current_buffer->yy_ch_buf[
2819                                        yy_current_buffer->yy_buf_size + 2];
2820                register char *source =
2821                                &yy_current_buffer->yy_ch_buf[number_to_move];
2822
2823                while ( source > yy_current_buffer->yy_ch_buf )
2824                        *--dest = *--source;
2825
2826                yy_cp += (int) (dest - source);
2827                yy_bp += (int) (dest - source);
2828                yy_current_buffer->yy_n_chars =
2829                        yy_n_chars = yy_current_buffer->yy_buf_size;
2830
2831                if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
2832                        YY_FATAL_ERROR( "flex scanner push-back overflow" );
2833                }
2834
2835        *--yy_cp = (char) c;
2836
2837
2838        yytext_ptr = yy_bp;
2839        yy_hold_char = *yy_cp;
2840        yy_c_buf_p = yy_cp;
2841        }
2842#endif  /* ifndef YY_NO_UNPUT */
2843
2844
2845#ifdef __cplusplus
2846static int yyinput()
2847#else
2848static int input()
2849#endif
2850        {
2851        int c;
2852
2853        *yy_c_buf_p = yy_hold_char;
2854
2855        if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
2856                {
2857                /* yy_c_buf_p now points to the character we want to return.
2858                 * If this occurs *before* the EOB characters, then it's a
2859                 * valid NUL; if not, then we've hit the end of the buffer.
2860                 */
2861                if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
2862                        /* This was really a NUL. */
2863                        *yy_c_buf_p = '\0';
2864
2865                else
2866                        { /* need more input */
2867                        int offset = yy_c_buf_p - yytext_ptr;
2868                        ++yy_c_buf_p;
2869
2870                        switch ( yy_get_next_buffer() )
2871                                {
2872                                case EOB_ACT_LAST_MATCH:
2873                                        /* This happens because yy_g_n_b()
2874                                         * sees that we've accumulated a
2875                                         * token and flags that we need to
2876                                         * try matching the token before
2877                                         * proceeding.  But for input(),
2878                                         * there's no matching to consider.
2879                                         * So convert the EOB_ACT_LAST_MATCH
2880                                         * to EOB_ACT_END_OF_FILE.
2881                                         */
2882
2883                                        /* Reset buffer status. */
2884                                        yyrestart( yyin );
2885
2886                                        /* fall through */
2887
2888                                case EOB_ACT_END_OF_FILE:
2889                                        {
2890                                        if ( yywrap() )
2891                                                return EOF;
2892
2893                                        if ( ! yy_did_buffer_switch_on_eof )
2894                                                YY_NEW_FILE;
2895#ifdef __cplusplus
2896                                        return yyinput();
2897#else
2898                                        return input();
2899#endif
2900                                        }
2901
2902                                case EOB_ACT_CONTINUE_SCAN:
2903                                        yy_c_buf_p = yytext_ptr + offset;
2904                                        break;
2905                                }
2906                        }
2907                }
2908
2909        c = *(unsigned char *) yy_c_buf_p;      /* cast for 8-bit char's */
2910        *yy_c_buf_p = '\0';     /* preserve yytext */
2911        yy_hold_char = *++yy_c_buf_p;
2912
2913        yy_current_buffer->yy_at_bol = (c == '\n');
2914
2915        return c;
2916        }
2917
2918
2919#ifdef YY_USE_PROTOS
2920void yyrestart( FILE *input_file )
2921#else
2922void yyrestart( input_file )
2923FILE *input_file;
2924#endif
2925        {
2926        if ( ! yy_current_buffer )
2927                yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
2928
2929        yy_init_buffer( yy_current_buffer, input_file );
2930        yy_load_buffer_state();
2931        }
2932
2933
2934#ifdef YY_USE_PROTOS
2935void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
2936#else
2937void yy_switch_to_buffer( new_buffer )
2938YY_BUFFER_STATE new_buffer;
2939#endif
2940        {
2941        if ( yy_current_buffer == new_buffer )
2942                return;
2943
2944        if ( yy_current_buffer )
2945                {
2946                /* Flush out information for old buffer. */
2947                *yy_c_buf_p = yy_hold_char;
2948                yy_current_buffer->yy_buf_pos = yy_c_buf_p;
2949                yy_current_buffer->yy_n_chars = yy_n_chars;
2950                }
2951
2952        yy_current_buffer = new_buffer;
2953        yy_load_buffer_state();
2954
2955        /* We don't actually know whether we did this switch during
2956         * EOF (yywrap()) processing, but the only time this flag
2957         * is looked at is after yywrap() is called, so it's safe
2958         * to go ahead and always set it.
2959         */
2960        yy_did_buffer_switch_on_eof = 1;
2961        }
2962
2963
2964#ifdef YY_USE_PROTOS
2965void yy_load_buffer_state( void )
2966#else
2967void yy_load_buffer_state()
2968#endif
2969        {
2970        yy_n_chars = yy_current_buffer->yy_n_chars;
2971        yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
2972        yyin = yy_current_buffer->yy_input_file;
2973        yy_hold_char = *yy_c_buf_p;
2974        }
2975
2976
2977#ifdef YY_USE_PROTOS
2978YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
2979#else
2980YY_BUFFER_STATE yy_create_buffer( file, size )
2981FILE *file;
2982int size;
2983#endif
2984        {
2985        YY_BUFFER_STATE b;
2986
2987        b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
2988        if ( ! b )
2989                YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2990
2991        b->yy_buf_size = size;
2992
2993        /* yy_ch_buf has to be 2 characters longer than the size given because
2994         * we need to put in 2 end-of-buffer characters.
2995         */
2996        b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
2997        if ( ! b->yy_ch_buf )
2998                YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
2999
3000        b->yy_is_our_buffer = 1;
3001
3002        yy_init_buffer( b, file );
3003
3004        return b;
3005        }
3006
3007
3008#ifdef YY_USE_PROTOS
3009void yy_delete_buffer( YY_BUFFER_STATE b )
3010#else
3011void yy_delete_buffer( b )
3012YY_BUFFER_STATE b;
3013#endif
3014        {
3015        if ( ! b )
3016                return;
3017
3018        if ( b == yy_current_buffer )
3019                yy_current_buffer = (YY_BUFFER_STATE) 0;
3020
3021        if ( b->yy_is_our_buffer )
3022                yy_flex_free( (void *) b->yy_ch_buf );
3023
3024        yy_flex_free( (void *) b );
3025        }
3026
3027
3028#ifndef YY_ALWAYS_INTERACTIVE
3029#ifndef YY_NEVER_INTERACTIVE
3030// extern int isatty YY_PROTO(( int ));
3031#endif
3032#endif
3033
3034#ifdef YY_USE_PROTOS
3035void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
3036#else
3037void yy_init_buffer( b, file )
3038YY_BUFFER_STATE b;
3039FILE *file;
3040#endif
3041
3042
3043        {
3044        yy_flush_buffer( b );
3045
3046        b->yy_input_file = file;
3047        b->yy_fill_buffer = 1;
3048
3049#if YY_ALWAYS_INTERACTIVE
3050        b->yy_is_interactive = 1;
3051#else
3052#if YY_NEVER_INTERACTIVE
3053        b->yy_is_interactive = 0;
3054#else
3055        b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
3056#endif
3057#endif
3058        }
3059
3060
3061#ifdef YY_USE_PROTOS
3062void yy_flush_buffer( YY_BUFFER_STATE b )
3063#else
3064void yy_flush_buffer( b )
3065YY_BUFFER_STATE b;
3066#endif
3067
3068        {
3069        if ( ! b )
3070                return;
3071
3072        b->yy_n_chars = 0;
3073
3074        /* We always need two end-of-buffer characters.  The first causes
3075         * a transition to the end-of-buffer state.  The second causes
3076         * a jam in that state.
3077         */
3078        b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
3079        b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
3080
3081        b->yy_buf_pos = &b->yy_ch_buf[0];
3082
3083        b->yy_at_bol = 1;
3084        b->yy_buffer_status = YY_BUFFER_NEW;
3085
3086        if ( b == yy_current_buffer )
3087                yy_load_buffer_state();
3088        }
3089
3090
3091#ifndef YY_NO_SCAN_BUFFER
3092#ifdef YY_USE_PROTOS
3093YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
3094#else
3095YY_BUFFER_STATE yy_scan_buffer( base, size )
3096char *base;
3097yy_size_t size;
3098#endif
3099        {
3100        YY_BUFFER_STATE b;
3101
3102        if ( size < 2 ||
3103             base[size-2] != YY_END_OF_BUFFER_CHAR ||
3104             base[size-1] != YY_END_OF_BUFFER_CHAR )
3105                /* They forgot to leave room for the EOB's. */
3106                return 0;
3107
3108        b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
3109        if ( ! b )
3110                YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
3111
3112        b->yy_buf_size = size - 2;      /* "- 2" to take care of EOB's */
3113        b->yy_buf_pos = b->yy_ch_buf = base;
3114        b->yy_is_our_buffer = 0;
3115        b->yy_input_file = 0;
3116        b->yy_n_chars = b->yy_buf_size;
3117        b->yy_is_interactive = 0;
3118        b->yy_at_bol = 1;
3119        b->yy_fill_buffer = 0;
3120        b->yy_buffer_status = YY_BUFFER_NEW;
3121
3122        yy_switch_to_buffer( b );
3123
3124        return b;
3125        }
3126#endif
3127
3128
3129#ifndef YY_NO_SCAN_STRING
3130#ifdef YY_USE_PROTOS
3131YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
3132#else
3133YY_BUFFER_STATE yy_scan_string( yy_str )
3134yyconst char *yy_str;
3135#endif
3136        {
3137        int len;
3138        for ( len = 0; yy_str[len]; ++len )
3139                ;
3140
3141        return yy_scan_bytes( yy_str, len );
3142        }
3143#endif
3144
3145
3146#ifndef YY_NO_SCAN_BYTES
3147#ifdef YY_USE_PROTOS
3148YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
3149#else
3150YY_BUFFER_STATE yy_scan_bytes( bytes, len )
3151yyconst char *bytes;
3152int len;
3153#endif
3154        {
3155        YY_BUFFER_STATE b;
3156        char *buf;
3157        yy_size_t n;
3158        int i;
3159
3160        /* Get memory for full buffer, including space for trailing EOB's. */
3161        n = len + 2;
3162        buf = (char *) yy_flex_alloc( n );
3163        if ( ! buf )
3164                YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
3165
3166        for ( i = 0; i < len; ++i )
3167                buf[i] = bytes[i];
3168
3169        buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
3170
3171        b = yy_scan_buffer( buf, n );
3172        if ( ! b )
3173                YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
3174
3175        /* It's okay to grow etc. this buffer, and we should throw it
3176         * away when we're done.
3177         */
3178        b->yy_is_our_buffer = 1;
3179
3180        return b;
3181        }
3182#endif
3183
3184
3185#ifndef YY_NO_PUSH_STATE
3186#ifdef YY_USE_PROTOS
3187static void yy_push_state( int new_state )
3188#else
3189static void yy_push_state( new_state )
3190int new_state;
3191#endif
3192        {
3193        if ( yy_start_stack_ptr >= yy_start_stack_depth )
3194                {
3195                yy_size_t new_size;
3196
3197                yy_start_stack_depth += YY_START_STACK_INCR;
3198                new_size = yy_start_stack_depth * sizeof( int );
3199
3200                if ( ! yy_start_stack )
3201                        yy_start_stack = (int *) yy_flex_alloc( new_size );
3202
3203                else
3204                        yy_start_stack = (int *) yy_flex_realloc(
3205                                        (void *) yy_start_stack, new_size );
3206
3207                if ( ! yy_start_stack )
3208                        YY_FATAL_ERROR(
3209                        "out of memory expanding start-condition stack" );
3210                }
3211
3212        yy_start_stack[yy_start_stack_ptr++] = YY_START;
3213
3214        BEGIN(new_state);
3215        }
3216#endif
3217
3218
3219#ifndef YY_NO_POP_STATE
3220static void yy_pop_state()
3221        {
3222        if ( --yy_start_stack_ptr < 0 )
3223                YY_FATAL_ERROR( "start-condition stack underflow" );
3224
3225        BEGIN(yy_start_stack[yy_start_stack_ptr]);
3226        }
3227#endif
3228
3229
3230#ifndef YY_NO_TOP_STATE
3231static int yy_top_state()
3232        {
3233        return yy_start_stack[yy_start_stack_ptr - 1];
3234        }
3235#endif
3236
3237#ifndef YY_EXIT_FAILURE
3238#define YY_EXIT_FAILURE 2
3239#endif
3240
3241#ifdef YY_USE_PROTOS
3242static void yy_fatal_error( yyconst char msg[] )
3243#else
3244static void yy_fatal_error( msg )
3245char msg[];
3246#endif
3247        {
3248        (void) fprintf( stderr, "%s\n", msg );
3249        exit( YY_EXIT_FAILURE );
3250        }
3251
3252
3253
3254/* Redefine yyless() so it works in section 3 code. */
3255
3256#undef yyless
3257#define yyless(n) \
3258        do \
3259                { \
3260                /* Undo effects of setting up yytext. */ \
3261                yytext[yyleng] = yy_hold_char; \
3262                yy_c_buf_p = yytext + n; \
3263                yy_hold_char = *yy_c_buf_p; \
3264                *yy_c_buf_p = '\0'; \
3265                yyleng = n; \
3266                } \
3267        while ( 0 )
3268
3269
3270/* Internal utility routines. */
3271
3272#ifndef yytext_ptr
3273#ifdef YY_USE_PROTOS
3274static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
3275#else
3276static void yy_flex_strncpy( s1, s2, n )
3277char *s1;
3278yyconst char *s2;
3279int n;
3280#endif
3281        {
3282        register int i;
3283        for ( i = 0; i < n; ++i )
3284                s1[i] = s2[i];
3285        }
3286#endif
3287
3288#ifdef YY_NEED_STRLEN
3289#ifdef YY_USE_PROTOS
3290static int yy_flex_strlen( yyconst char *s )
3291#else
3292static int yy_flex_strlen( s )
3293yyconst char *s;
3294#endif
3295        {
3296        register int n;
3297        for ( n = 0; s[n]; ++n )
3298                ;
3299
3300        return n;
3301        }
3302#endif
3303
3304
3305#ifdef YY_USE_PROTOS
3306static void *yy_flex_alloc( yy_size_t size )
3307#else
3308static void *yy_flex_alloc( size )
3309yy_size_t size;
3310#endif
3311        {
3312        return (void *) malloc( size );
3313        }
3314
3315#ifdef YY_USE_PROTOS
3316static void *yy_flex_realloc( void *ptr, yy_size_t size )
3317#else
3318static void *yy_flex_realloc( ptr, size )
3319void *ptr;
3320yy_size_t size;
3321#endif
3322        {
3323        /* The cast to (char *) in the following accommodates both
3324         * implementations that use char* generic pointers, and those
3325         * that use void* generic pointers.  It works with the latter
3326         * because both ANSI C and C++ allow castless assignment from
3327         * any pointer type to void*, and deal with argument conversions
3328         * as though doing an assignment.
3329         */
3330        return (void *) realloc( (char *) ptr, size );
3331        }
3332
3333#ifdef YY_USE_PROTOS
3334static void yy_flex_free( void *ptr )
3335#else
3336static void yy_flex_free( ptr )
3337void *ptr;
3338#endif
3339        {
3340        free( ptr );
3341        }
3342
3343#if YY_MAIN
3344int main()
3345        {
3346        yylex();
3347        return 0;
3348        }
3349#endif
3350#line 807 "libparse.l"
3351
3352
3353int current_pos(int i)
3354{
3355  return(i+offset+(int)(yytext-yylp_buffer_start));
3356}
3357
3358int libread(FILE* f, char* buf, int max_size)
3359{ int rc;
3360
3361  offset = ftell(f);
3362  rc  = myfread( buf, 1, max_size, f );
3363  #if YYLPDEBUG >2
3364    printf("fread: %d of %d\n", rc, max_size);
3365  #endif
3366  yylp_buffer_start = buf;
3367  return rc;
3368}
3369
3370extern "C" {
3371  int yylpwrap()
3372  {
3373    //printf("======================= YYWRAP ====================\n");
3374    if(brace1>0) { yylp_errno=YYLP_MISS_BR1; }
3375    if(brace2>0) { yylp_errno=YYLP_MISS_BR2; }
3376    if(brace3>0) { yylp_errno=YYLP_MISS_BR3; }
3377    if(quote>0) { yylp_errno=YYLP_MISSQUOT; }
3378    /* printf("{=%d, (=%d, [=%d\n", brace1, brace2, brace3);/**/
3379    if(feof(yyin)) return 1; else return 0;
3380  }
3381}
3382
3383void reinit_yylp()
3384{
3385   brace1 = 0;
3386   brace2 = 0;
3387   brace3 = 0;
3388   quote  = 0;
3389   yy_init=1;
3390   yy_delete_buffer(yy_current_buffer);
3391}
3392
3393void make_version(char *p,int what)
3394{
3395  char ver[10];
3396  char date[16];
3397  ver[0]='?'; ver[1]='.'; ver[2]='?'; ver[3]='\0';
3398  date[0]='?'; date[1]='\0';
3399  if(what) sscanf(p,"%*[^=]= %*s %*s %10s %16s",ver,date);
3400  else sscanf(p,"// %*s %*s %10s %16s",ver,date);
3401  strcpy(libnamebuf,"(");
3402  strcat(libnamebuf,ver);
3403  strcat(libnamebuf,",");
3404  strcat(libnamebuf,date);
3405  strcat(libnamebuf,")");
3406  if(what && strcmp(libnamebuf, "(?.?,?)")==0)
3407  {
3408    sscanf(p,"%*[^\"]\"%[^\"]\"",libnamebuf);
3409  }
3410  //printf("ID=(%d)%s; \n", what, p);
3411}
3412
3413void copy_string(lp_modes mode)
3414{
3415#ifdef STANDALONE_PARSER
3416  if ((texinfo_out
3417     && (last_cmd == LP_INFO || last_cmd == LP_CATEGORY || last_cmd == LP_URL))
3418  || (category_out && last_cmd == LP_CATEGORY)
3419)
3420  {
3421    long current_location = ftell(yylpin), i = string_start, quote = 0;
3422    char c;
3423    if (texinfo_out)
3424    {
3425     if (last_cmd == LP_INFO)
3426     {
3427       printf("$info = <<EOT;\n");
3428     }
3429     else if (last_cmd == LP_URL)
3430     {
3431       printf("$url = <<EOT;\n");
3432     }
3433     else
3434     {
3435       printf("$category = <<EOT;\n");
3436     }
3437    }
3438    fseek (yylpin, i, SEEK_SET);
3439    while (i< current_location)
3440    {
3441      c = fgetc(yylpin);
3442      if (c == '\\')
3443      {
3444        quote = (! quote);
3445      }
3446      else if (c == '"')
3447      {
3448        if (! quote) break;
3449      }
3450      else
3451        quote = 0;
3452      if (c == '@' || c == '$') putchar('\\');
3453      if (c != '\r') putchar(c);
3454      i++;
3455    }
3456    if (category_out) exit(0);
3457    fseek (yylpin, current_location, SEEK_SET);
3458    printf("\nEOT\n");
3459  }
3460#else
3461  if((last_cmd == LP_INFO)&&(mode == GET_INFO))
3462  {
3463    int i, offset=0;
3464    long current_location = ftell(yylpin);
3465    int len = (int)(current_pos(0) - string_start);
3466    fseek(yylpin, string_start, SEEK_SET);
3467    if (text_buffer!=NULL) omFree((ADDRESS)text_buffer);
3468    text_buffer = (char *)omAlloc(len+2);
3469    omMarkAsStaticAddr(text_buffer);
3470    myfread(text_buffer, len, 1, yylpin);
3471    fseek(yylpin, current_location, SEEK_SET);
3472    text_buffer[len]='\0';
3473    offset=0;
3474    for(i=0;i<=len; i++)
3475    {
3476      if(text_buffer[i]=='\\' &&
3477         (text_buffer[i+1]=='\"' || text_buffer[i+1]=='{' ||
3478          text_buffer[i+1]=='}' || text_buffer[i+1]=='\\'))
3479      {
3480        i++;
3481        offset++;
3482      }
3483      if(offset>0) text_buffer[i-offset] = text_buffer[i];
3484    }
3485  }
3486#endif /* STANDALONE_PARSER */
3487}
3488
3489void print_init()
3490{
3491   printf("Init=%d\n", yy_init);
3492}
3493
3494void print_version(lp_modes mode, char *p)
3495{
3496#ifdef STANDALONE_PARSER
3497  //printf("loading %s%s", p, libnamebuf);
3498#else
3499  if ( mode == LOAD_LIB )
3500  {
3501    if (BVERBOSE(V_LOAD_LIB) && p!=NULL ) Print(" %s...", p);
3502       //Warn( "loading %s%s", p, libnamebuf);
3503  }
3504#endif
3505}
3506
3507#ifdef STANDALONE_PARSER
3508int main( int argc, char *argv[] )
3509{
3510  lib_style_types lib_style;
3511  main_init(argc, argv);
3512  if(yyin == NULL)
3513  {
3514    fprintf(stderr, "No library found to parse.\n");
3515    return 1;
3516  }
3517  if (! (texinfo_out || category_out))
3518  {
3519    if(lpverbose)printf("Verbose level=%d\n", lpverbose);
3520    if(check)printf("Reporting most possible annomalies.\n");
3521    if(lpverbose||check)printf("\n");
3522
3523    printf( "  %-15s  %20s      %s,%s    %s,%s     %s,%s\n", "Library",
3524            "function", "line", "start-eod", "line", "body-eob",
3525            "line", "example-eoe");
3526  }
3527  yylplex(argv[0], argv[0], &lib_style,NULL);
3528  if(yylp_errno)
3529  {
3530    printf("ERROR occured: [%d] ", yylp_errno);
3531    printf(yylp_errlist[yylp_errno], yylplineno);
3532    printf("\n");
3533  }
3534  else if(pi!=NULL) printpi(pi);
3535  if (texinfo_out)
3536    printf("1;");
3537  return 0;
3538}
3539
3540#endif /* STANDALONE_PARSER */
3541#endif /* HAVE_LIBPARSE */
Note: See TracBrowser for help on using the repository browser.