1
2 #line 3 "calclex.c"
3
4 #define YY_INT_ALIGNED short int
5
6 /* A lexical scanner generated by flex */
7
8 #define FLEX_SCANNER
9 #define YY_FLEX_MAJOR_VERSION 2
10 #define YY_FLEX_MINOR_VERSION 5
11 #define YY_FLEX_SUBMINOR_VERSION 37
12 #if YY_FLEX_SUBMINOR_VERSION > 0
13 #define FLEX_BETA
14 #endif
15
16 /* First, we deal with platform-specific or compiler-specific issues. */
17
18 #if defined(__FreeBSD__)
19 #ifndef __STDC_LIMIT_MACROS
20 #define __STDC_LIMIT_MACROS
21 #endif
22 #include <sys/cdefs.h>
23 #include <stdint.h>
24 #else
25 #define __dead2
26 #endif
27
28 /* begin standard C headers. */
29 #include <stdio.h>
30 #include <string.h>
31 #include <errno.h>
32 #include <stdlib.h>
33
34 /* end standard C headers. */
35
36 /* flex integer type definitions */
37
38 #ifndef FLEXINT_H
39 #define FLEXINT_H
40
41 /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
42
43 #if defined(__FreeBSD__) || \
44 (defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L)
45
46 /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
47 * if you want the limit (max/min) macros for int types.
48 */
49 #ifndef __STDC_LIMIT_MACROS
50 #define __STDC_LIMIT_MACROS 1
51 #endif
52
53 #include <inttypes.h>
54 typedef int8_t flex_int8_t;
55 typedef uint8_t flex_uint8_t;
56 typedef int16_t flex_int16_t;
57 typedef uint16_t flex_uint16_t;
58 typedef int32_t flex_int32_t;
59 typedef uint32_t flex_uint32_t;
60 #else
61 typedef signed char flex_int8_t;
62 typedef short int flex_int16_t;
63 typedef int flex_int32_t;
64 typedef unsigned char flex_uint8_t;
65 typedef unsigned short int flex_uint16_t;
66 typedef unsigned int flex_uint32_t;
67
68 /* Limits of integral types. */
69 #ifndef INT8_MIN
70 #define INT8_MIN (-128)
71 #endif
72 #ifndef INT16_MIN
73 #define INT16_MIN (-32767-1)
74 #endif
75 #ifndef INT32_MIN
76 #define INT32_MIN (-2147483647-1)
77 #endif
78 #ifndef INT8_MAX
79 #define INT8_MAX (127)
80 #endif
81 #ifndef INT16_MAX
82 #define INT16_MAX (32767)
83 #endif
84 #ifndef INT32_MAX
85 #define INT32_MAX (2147483647)
86 #endif
87 #ifndef UINT8_MAX
88 #define UINT8_MAX (255U)
89 #endif
90 #ifndef UINT16_MAX
91 #define UINT16_MAX (65535U)
92 #endif
93 #ifndef UINT32_MAX
94 #define UINT32_MAX (4294967295U)
95 #endif
96
97 #endif /* ! C99 */
98
99 #endif /* ! FLEXINT_H */
100
101 #ifdef __cplusplus
102
103 /* The "const" storage-class-modifier is valid. */
104 #define YY_USE_CONST
105
106 #else /* ! __cplusplus */
107
108 /* C99 requires __STDC__ to be defined as 1. */
109 #if defined (__STDC__)
110
111 #define YY_USE_CONST
112
113 #endif /* defined (__STDC__) */
114 #endif /* ! __cplusplus */
115
116 #ifdef YY_USE_CONST
117 #define yyconst const
118 #else
119 #define yyconst
120 #endif
121
122 /* Returned upon end-of-file. */
123 #define YY_NULL 0
124
125 /* Promotes a possibly negative, possibly signed char to an unsigned
126 * integer for use as an array index. If the signed char is negative,
127 * we want to instead treat it as an 8-bit unsigned char, hence the
128 * double cast.
129 */
130 #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
131
132 /* Enter a start condition. This macro really ought to take a parameter,
133 * but we do it the disgusting crufty way forced on us by the ()-less
134 * definition of BEGIN.
135 */
136 #define BEGIN (yy_start) = 1 + 2 *
137
138 /* Translate the current start state into a value that can be later handed
139 * to BEGIN to return to the state. The YYSTATE alias is for lex
140 * compatibility.
141 */
142 #define YY_START (((yy_start) - 1) / 2)
143 #define YYSTATE YY_START
144
145 /* Action number for EOF rule of a given start state. */
146 #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
147
148 /* Special action meaning "start processing a new file". */
149 #define YY_NEW_FILE yyrestart(yyin )
150
151 #define YY_END_OF_BUFFER_CHAR 0
152
153 /* Size of default input buffer. */
154 #ifndef YY_BUF_SIZE
155 #define YY_BUF_SIZE 16384
156 #endif
157
158 /* The state buf must be large enough to hold one state per character in the main buffer.
159 */
160 #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
161
162 #ifndef YY_TYPEDEF_YY_BUFFER_STATE
163 #define YY_TYPEDEF_YY_BUFFER_STATE
164 typedef struct yy_buffer_state *YY_BUFFER_STATE;
165 #endif
166
167 #ifndef YY_TYPEDEF_YY_SIZE_T
168 #define YY_TYPEDEF_YY_SIZE_T
169 typedef size_t yy_size_t;
170 #endif
171
172 extern yy_size_t yyleng;
173
174 extern FILE *yyin, *yyout;
175
176 #define EOB_ACT_CONTINUE_SCAN 0
177 #define EOB_ACT_END_OF_FILE 1
178 #define EOB_ACT_LAST_MATCH 2
179
180 #define YY_LESS_LINENO(n)
181
182 /* Return all but the first "n" matched characters back to the input stream. */
183 #define yyless(n) \
184 do \
185 { \
186 /* Undo effects of setting up yytext. */ \
187 int yyless_macro_arg = (n); \
188 YY_LESS_LINENO(yyless_macro_arg);\
189 *yy_cp = (yy_hold_char); \
190 YY_RESTORE_YY_MORE_OFFSET \
191 (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
192 YY_DO_BEFORE_ACTION; /* set up yytext again */ \
193 } \
194 while ( 0 )
195
196 #define unput(c) yyunput( c, (yytext_ptr) )
197
198 #ifndef YY_STRUCT_YY_BUFFER_STATE
199 #define YY_STRUCT_YY_BUFFER_STATE
200 struct yy_buffer_state
201 {
202 FILE *yy_input_file;
203
204 char *yy_ch_buf; /* input buffer */
205 char *yy_buf_pos; /* current position in input buffer */
206
207 /* Size of input buffer in bytes, not including room for EOB
208 * characters.
209 */
210 yy_size_t yy_buf_size;
211
212 /* Number of characters read into yy_ch_buf, not including EOB
213 * characters.
214 */
215 yy_size_t yy_n_chars;
216
217 /* Whether we "own" the buffer - i.e., we know we created it,
218 * and can realloc() it to grow it, and should free() it to
219 * delete it.
220 */
221 int yy_is_our_buffer;
222
223 /* Whether this is an "interactive" input source; if so, and
224 * if we're using stdio for input, then we want to use getc()
225 * instead of fread(), to make sure we stop fetching input after
226 * each newline.
227 */
228 int yy_is_interactive;
229
230 /* Whether we're considered to be at the beginning of a line.
231 * If so, '^' rules will be active on the next match, otherwise
232 * not.
233 */
234 int yy_at_bol;
235
236 int yy_bs_lineno; /**< The line count. */
237 int yy_bs_column; /**< The column count. */
238
239 /* Whether to try to fill the input buffer when we reach the
240 * end of it.
241 */
242 int yy_fill_buffer;
243
244 int yy_buffer_status;
245
246 #define YY_BUFFER_NEW 0
247 #define YY_BUFFER_NORMAL 1
248 /* When an EOF's been seen but there's still some text to process
249 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
250 * shouldn't try reading from the input source any more. We might
251 * still have a bunch of tokens to match, though, because of
252 * possible backing-up.
253 *
254 * When we actually see the EOF, we change the status to "new"
255 * (via yyrestart()), so that the user can continue scanning by
256 * just pointing yyin at a new input file.
257 */
258 #define YY_BUFFER_EOF_PENDING 2
259
260 };
261 #endif /* !YY_STRUCT_YY_BUFFER_STATE */
262
263 /* Stack of input buffers. */
264 static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
265 static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
266 static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
267
268 /* We provide macros for accessing buffer states in case in the
269 * future we want to put the buffer states in a more general
270 * "scanner state".
271 *
272 * Returns the top of the stack, or NULL.
273 */
274 #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
275 ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
276 : NULL)
277 #define yy_current_buffer YY_CURRENT_BUFFER
278
279 /* Same as previous macro, but useful when we know that the buffer stack is not
280 * NULL or when we need an lvalue. For internal use only.
281 */
282 #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
283
284 /* yy_hold_char holds the character lost when yytext is formed. */
285 static char yy_hold_char;
286 static yy_size_t yy_n_chars; /* number of characters read into yy_ch_buf */
287 yy_size_t yyleng;
288
289 /* Points to current character in buffer. */
290 static char *yy_c_buf_p = (char *) 0;
291 static int yy_init = 0; /* whether we need to initialize */
292 static int yy_start = 0; /* start state number */
293
294 /* Flag which is used to allow yywrap()'s to do buffer switches
295 * instead of setting up a fresh yyin. A bit of a hack ...
296 */
297 static int yy_did_buffer_switch_on_eof;
298
299 void yyrestart (FILE *input_file );
300 void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
301 YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
302 void yy_delete_buffer (YY_BUFFER_STATE b );
303 void yy_flush_buffer (YY_BUFFER_STATE b );
304 void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
305 void yypop_buffer_state (void );
306
307 static void yyensure_buffer_stack (void );
308 static void yy_load_buffer_state (void );
309 static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
310
311 #define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
312
313 YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
314 YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
315 YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,yy_size_t len );
316
317 void *yyalloc (yy_size_t );
318 void *yyrealloc (void *,yy_size_t );
319 void yyfree (void * );
320
321 #define yy_new_buffer yy_create_buffer
322
323 #define yy_set_interactive(is_interactive) \
324 { \
325 if ( ! YY_CURRENT_BUFFER ){ \
326 yyensure_buffer_stack (); \
327 YY_CURRENT_BUFFER_LVALUE = \
328 yy_create_buffer(yyin,YY_BUF_SIZE ); \
329 } \
330 YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
331 }
332
333 #define yy_set_bol(at_bol) \
334 { \
335 if ( ! YY_CURRENT_BUFFER ){\
336 yyensure_buffer_stack (); \
337 YY_CURRENT_BUFFER_LVALUE = \
338 yy_create_buffer(yyin,YY_BUF_SIZE ); \
339 } \
340 YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
341 }
342
343 #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
344
345 /* Begin user sect3 */
346
347 typedef unsigned char YY_CHAR;
348
349 FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
350
351 typedef int yy_state_type;
352
353 extern int yylineno;
354
355 int yylineno = 1;
356
357 extern char *yytext;
358 #define yytext_ptr yytext
359
360 static yy_state_type yy_get_previous_state (void );
361 static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
362 static int yy_get_next_buffer (void );
363 static void yy_fatal_error (yyconst char msg[] ) __dead2;
364
365 /* Done after the current pattern has been matched and before the
366 * corresponding action - sets up yytext.
367 */
368 #define YY_DO_BEFORE_ACTION \
369 (yytext_ptr) = yy_bp; \
370 yyleng = (size_t) (yy_cp - yy_bp); \
371 (yy_hold_char) = *yy_cp; \
372 *yy_cp = '\0'; \
373 (yy_c_buf_p) = yy_cp;
374
375 #define YY_NUM_RULES 19
376 #define YY_END_OF_BUFFER 20
377 /* This struct is not used in this scanner,
378 but its presence is necessary. */
379 struct yy_trans_info
380 {
381 flex_int32_t yy_verify;
382 flex_int32_t yy_nxt;
383 };
384 static yyconst flex_int16_t yy_accept[39] =
385 { 0,
386 0, 0, 20, 18, 1, 2, 7, 6, 7, 18,
387 16, 16, 2, 7, 7, 7, 16, 17, 18, 18,
388 11, 6, 5, 6, 14, 16, 0, 12, 8, 10,
389 9, 13, 16, 17, 3, 15, 4, 0
390 } ;
391
392 static yyconst flex_int32_t yy_ec[256] =
393 { 0,
394 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
395 1, 2, 1, 1, 1, 1, 1, 1, 1, 1,
396 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
397 1, 2, 4, 1, 5, 1, 6, 7, 1, 6,
398 6, 6, 6, 6, 6, 1, 6, 8, 9, 9,
399 9, 9, 9, 9, 9, 9, 9, 1, 10, 11,
400 12, 13, 1, 1, 14, 14, 14, 14, 14, 14,
401 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
402 15, 15, 15, 15, 15, 15, 15, 16, 15, 15,
403 1, 17, 1, 6, 1, 1, 15, 15, 15, 15,
404
405 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
406 15, 15, 15, 15, 15, 15, 15, 15, 15, 16,
407 15, 15, 1, 18, 1, 1, 1, 1, 1, 1,
408 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
409 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
410 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
411 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
412 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
413 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
414 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
415
416 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
417 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
418 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
419 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
420 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
421 1, 1, 1, 1, 1
422 } ;
423
424 static yyconst flex_int32_t yy_meta[19] =
425 { 0,
426 1, 1, 1, 1, 1, 1, 1, 2, 2, 1,
427 1, 1, 1, 2, 3, 2, 1, 1
428 } ;
429
430 static yyconst flex_int16_t yy_base[43] =
431 { 0,
432 0, 0, 39, 49, 49, 49, 26, 16, 49, 30,
433 20, 19, 49, 9, 22, 10, 9, 0, 29, 13,
434 49, 23, 49, 24, 49, 0, 0, 49, 49, 49,
435 49, 49, 13, 0, 49, 49, 49, 49, 41, 28,
436 43, 45
437 } ;
438
439 static yyconst flex_int16_t yy_def[43] =
440 { 0,
441 38, 1, 38, 38, 38, 38, 38, 39, 38, 38,
442 40, 40, 38, 38, 38, 38, 41, 42, 38, 38,
443 38, 39, 38, 39, 38, 12, 12, 38, 38, 38,
444 38, 38, 41, 42, 38, 38, 38, 0, 38, 38,
445 38, 38
446 } ;
447
448 static yyconst flex_int16_t yy_nxt[68] =
449 { 0,
450 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,
451 14, 15, 16, 17, 18, 18, 19, 20, 23, 28,
452 29, 31, 32, 34, 34, 23, 37, 34, 34, 26,
453 36, 35, 24, 30, 38, 27, 25, 21, 38, 24,
454 24, 22, 22, 22, 33, 33, 34, 34, 3, 38,
455 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
456 38, 38, 38, 38, 38, 38, 38
457 } ;
458
459 static yyconst flex_int16_t yy_chk[68] =
460 { 0,
461 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
462 1, 1, 1, 1, 1, 1, 1, 1, 8, 14,
463 14, 16, 16, 17, 17, 22, 24, 33, 33, 40,
464 20, 19, 8, 15, 12, 11, 10, 7, 3, 22,
465 24, 39, 39, 39, 41, 41, 42, 42, 38, 38,
466 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
467 38, 38, 38, 38, 38, 38, 38
468 } ;
469
470 static yy_state_type yy_last_accepting_state;
471 static char *yy_last_accepting_cpos;
472
473 extern int yy_flex_debug;
474 int yy_flex_debug = 0;
475
476 /* The intent behind this definition is that it'll catch
477 * any uses of REJECT which flex missed.
478 */
479 #define REJECT reject_used_but_not_detected
480 #define yymore() yymore_used_but_not_detected
481 #define YY_MORE_ADJ 0
482 #define YY_RESTORE_YY_MORE_OFFSET
483 char *yytext;
484 #line 1 "../../../gmp/demos/calc/calclex.l"
485 /* Lexical analyzer for calc program.
486
487 Copyright 2000-2002 Free Software Foundation, Inc.
488
489 This file is part of the GNU MP Library.
490
491 This program is free software; you can redistribute it and/or modify it under
492 the terms of the GNU General Public License as published by the Free Software
493 Foundation; either version 3 of the License, or (at your option) any later
494 version.
495
496 This program is distributed in the hope that it will be useful, but WITHOUT ANY
497 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
498 PARTICULAR PURPOSE. See the GNU General Public License for more details.
499
500 You should have received a copy of the GNU General Public License along with
501 this program. If not, see https://www.gnu.org/licenses/. */
502 #line 20 "../../../gmp/demos/calc/calclex.l"
503 #include <string.h>
504 #include "calc-common.h"
505
506
507 #if WITH_READLINE
508 /* Let GNU flex use readline. See the calcread.c redefined input() for a
509 way that might work for a standard lex too. */
510 #define YY_INPUT(buf,result,max_size) \
511 result = calc_input (buf, max_size);
512 #endif
513
514
515 /* Non-zero when reading the second or subsequent line of an expression,
516 used to give a different prompt when using readline. */
517 int calc_more_input = 0;
518
519
520 const struct calc_keywords_t calc_keywords[] = {
521 { "abs", ABS },
522 { "bin", BIN },
523 { "decimal", DECIMAL },
524 { "fib", FIB },
525 { "hex", HEX },
526 { "help", HELP },
527 { "gcd", GCD },
528 { "kron", KRON },
529 { "lcm", LCM },
530 { "lucnum", LUCNUM },
531 { "nextprime", NEXTPRIME },
532 { "powm", POWM },
533 { "quit", QUIT },
534 { "root", ROOT },
535 { "sqrt", SQRT },
536 { NULL }
537 };
538 #line 539 "calclex.c"
539
540 #define INITIAL 0
541
542 #ifndef YY_NO_UNISTD_H
543 /* Special case for "unistd.h", since it is non-ANSI. We include it way
544 * down here because we want the user's section 1 to have been scanned first.
545 * The user has a chance to override it with an option.
546 */
547 #include <unistd.h>
548 #endif
549
550 #ifndef YY_EXTRA_TYPE
551 #define YY_EXTRA_TYPE void *
552 #endif
553
554 static int yy_init_globals (void );
555
556 /* Accessor methods to globals.
557 These are made visible to non-reentrant scanners for convenience. */
558
559 int yylex_destroy (void );
560
561 int yyget_debug (void );
562
563 void yyset_debug (int debug_flag );
564
565 YY_EXTRA_TYPE yyget_extra (void );
566
567 void yyset_extra (YY_EXTRA_TYPE user_defined );
568
569 FILE *yyget_in (void );
570
571 void yyset_in (FILE * in_str );
572
573 FILE *yyget_out (void );
574
575 void yyset_out (FILE * out_str );
576
577 yy_size_t yyget_leng (void );
578
579 char *yyget_text (void );
580
581 int yyget_lineno (void );
582
583 void yyset_lineno (int line_number );
584
585 /* Macros after this point can all be overridden by user definitions in
586 * section 1.
587 */
588
589 #ifndef YY_SKIP_YYWRAP
590 #ifdef __cplusplus
591 extern "C" int yywrap (void );
592 #else
593 extern int yywrap (void );
594 #endif
595 #endif
596
597 #ifndef YY_NO_UNPUT
598 static void yyunput (int c,char *buf_ptr );
599 #endif
600
601 #ifndef yytext_ptr
602 static void yy_flex_strncpy (char *,yyconst char *,int );
603 #endif
604
605 #ifdef YY_NEED_STRLEN
606 static int yy_flex_strlen (yyconst char * );
607 #endif
608
609 #ifndef YY_NO_INPUT
610
611 #ifdef __cplusplus
612 static int yyinput (void );
613 #else
614 static int input (void );
615 #endif
616
617 #endif
618
619 /* Amount of stuff to slurp up with each read. */
620 #ifndef YY_READ_BUF_SIZE
621 #define YY_READ_BUF_SIZE 8192
622 #endif
623
624 /* Copy whatever the last rule matched to the standard output. */
625 #ifndef ECHO
626 /* This used to be an fputs(), but since the string might contain NUL's,
627 * we now use fwrite().
628 */
629 #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
630 #endif
631
632 /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
633 * is returned in "result".
634 */
635 #ifndef YY_INPUT
636 #define YY_INPUT(buf,result,max_size) \
637 if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
638 { \
639 int c = '*'; \
640 size_t n; \
641 for ( n = 0; n < max_size && \
642 (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
643 buf[n] = (char) c; \
644 if ( c == '\n' ) \
645 buf[n++] = (char) c; \
646 if ( c == EOF && ferror( yyin ) ) \
647 YY_FATAL_ERROR( "input in flex scanner failed" ); \
648 result = n; \
649 } \
650 else \
651 { \
652 errno=0; \
653 while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
654 { \
655 if( errno != EINTR) \
656 { \
657 YY_FATAL_ERROR( "input in flex scanner failed" ); \
658 break; \
659 } \
660 errno=0; \
661 clearerr(yyin); \
662 } \
663 }\
664 \
665
666 #endif
667
668 /* No semi-colon after return; correct usage is to write "yyterminate();" -
669 * we don't want an extra ';' after the "return" because that will cause
670 * some compilers to complain about unreachable statements.
671 */
672 #ifndef yyterminate
673 #define yyterminate() return YY_NULL
674 #endif
675
676 /* Number of entries by which start-condition stack grows. */
677 #ifndef YY_START_STACK_INCR
678 #define YY_START_STACK_INCR 25
679 #endif
680
681 /* Report a fatal error. */
682 #ifndef YY_FATAL_ERROR
683 #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
684 #endif
685
686 /* end tables serialization structures and prototypes */
687
688 /* Default declaration of generated scanner - a define so the user can
689 * easily add parameters.
690 */
691 #ifndef YY_DECL
692 #define YY_DECL_IS_OURS 1
693
694 extern int yylex (void);
695
696 #define YY_DECL int yylex (void)
697 #endif /* !YY_DECL */
698
699 /* Code executed at the beginning of each rule, after yytext and yyleng
700 * have been set up.
701 */
702 #ifndef YY_USER_ACTION
703 #define YY_USER_ACTION
704 #endif
705
706 /* Code executed at the end of each rule. */
707 #ifndef YY_BREAK
708 #define YY_BREAK break;
709 #endif
710
711 #define YY_RULE_SETUP \
712 YY_USER_ACTION
713
714 /** The main scanner function which does all the work.
715 */
716 YY_DECL
717 {
718 yy_state_type yy_current_state;
719 char *yy_cp, *yy_bp;
720 int yy_act;
721
722 #line 57 "../../../gmp/demos/calc/calclex.l"
723
724
725 #line 726 "calclex.c"
726
727 if ( !(yy_init) )
728 {
729 (yy_init) = 1;
730
731 #ifdef YY_USER_INIT
732 YY_USER_INIT;
733 #endif
734
735 if ( ! (yy_start) )
736 (yy_start) = 1; /* first start state */
737
738 if ( ! yyin )
739 yyin = stdin;
740
741 if ( ! yyout )
742 yyout = stdout;
743
744 if ( ! YY_CURRENT_BUFFER ) {
745 yyensure_buffer_stack ();
746 YY_CURRENT_BUFFER_LVALUE =
747 yy_create_buffer(yyin,YY_BUF_SIZE );
748 }
749
750 yy_load_buffer_state( );
751 }
752
753 while ( 1 ) /* loops until end-of-file is reached */
754 {
755 yy_cp = (yy_c_buf_p);
756
757 /* Support of yytext. */
758 *yy_cp = (yy_hold_char);
759
760 /* yy_bp points to the position in yy_ch_buf of the start of
761 * the current run.
762 */
763 yy_bp = yy_cp;
764
765 yy_current_state = (yy_start);
766 yy_match:
767 do
768 {
769 YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ;
770 if ( yy_accept[yy_current_state] )
771 {
772 (yy_last_accepting_state) = yy_current_state;
773 (yy_last_accepting_cpos) = yy_cp;
774 }
775 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
776 {
777 yy_current_state = (int) yy_def[yy_current_state];
778 if ( yy_current_state >= 39 )
779 yy_c = yy_meta[(unsigned int) yy_c];
780 }
781 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
782 ++yy_cp;
783 }
784 while ( yy_base[yy_current_state] != 49 );
785
786 yy_find_action:
787 yy_act = yy_accept[yy_current_state];
788 if ( yy_act == 0 )
789 { /* have to back up */
790 yy_cp = (yy_last_accepting_cpos);
791 yy_current_state = (yy_last_accepting_state);
792 yy_act = yy_accept[yy_current_state];
793 }
794
795 YY_DO_BEFORE_ACTION;
796
797 do_action: /* This label is used only to access EOF actions. */
798
799 switch ( yy_act )
800 { /* beginning of action switch */
801 case 0: /* must back up */
802 /* undo the effects of YY_DO_BEFORE_ACTION */
803 *yy_cp = (yy_hold_char);
804 yy_cp = (yy_last_accepting_cpos);
805 yy_current_state = (yy_last_accepting_state);
806 goto yy_find_action;
807
808 case 1:
809 YY_RULE_SETUP
810 #line 59 "../../../gmp/demos/calc/calclex.l"
811 { /* white space is skipped */ }
812 YY_BREAK
813 case 2:
814 /* rule 2 can match eol */
815 YY_RULE_SETUP
816 #line 61 "../../../gmp/demos/calc/calclex.l"
817 { /* semicolon or newline separates statements */
818 calc_more_input = 0;
819 return EOS; }
820 YY_BREAK
821 case 3:
822 /* rule 3 can match eol */
823 YY_RULE_SETUP
824 #line 64 "../../../gmp/demos/calc/calclex.l"
825 { /* escaped newlines are skipped */ }
826 YY_BREAK
827 case 4:
828 /* rule 4 can match eol */
829 YY_RULE_SETUP
830 #line 67 "../../../gmp/demos/calc/calclex.l"
831 {
832 /* comment through to escaped newline is skipped */ }
833 YY_BREAK
834 case 5:
835 /* rule 5 can match eol */
836 YY_RULE_SETUP
837 #line 69 "../../../gmp/demos/calc/calclex.l"
838 { /* comment through to newline is a separator */
839 calc_more_input = 0;
840 return EOS; }
841 YY_BREAK
842 case 6:
843 YY_RULE_SETUP
844 #line 72 "../../../gmp/demos/calc/calclex.l"
845 { /* comment through to EOF skipped */ }
846 YY_BREAK
847 case 7:
848 YY_RULE_SETUP
849 #line 75 "../../../gmp/demos/calc/calclex.l"
850 { return yytext[0]; }
851 YY_BREAK
852 case 8:
853 YY_RULE_SETUP
854 #line 76 "../../../gmp/demos/calc/calclex.l"
855 { return LE; }
856 YY_BREAK
857 case 9:
858 YY_RULE_SETUP
859 #line 77 "../../../gmp/demos/calc/calclex.l"
860 { return GE; }
861 YY_BREAK
862 case 10:
863 YY_RULE_SETUP
864 #line 78 "../../../gmp/demos/calc/calclex.l"
865 { return EQ; }
866 YY_BREAK
867 case 11:
868 YY_RULE_SETUP
869 #line 79 "../../../gmp/demos/calc/calclex.l"
870 { return NE; }
871 YY_BREAK
872 case 12:
873 YY_RULE_SETUP
874 #line 80 "../../../gmp/demos/calc/calclex.l"
875 { return LSHIFT; }
876 YY_BREAK
877 case 13:
878 YY_RULE_SETUP
879 #line 81 "../../../gmp/demos/calc/calclex.l"
880 { return RSHIFT; }
881 YY_BREAK
882 case 14:
883 YY_RULE_SETUP
884 #line 82 "../../../gmp/demos/calc/calclex.l"
885 { return LAND; }
886 YY_BREAK
887 case 15:
888 YY_RULE_SETUP
889 #line 83 "../../../gmp/demos/calc/calclex.l"
890 { return LOR; }
891 YY_BREAK
892 case 16:
893 YY_RULE_SETUP
894 #line 85 "../../../gmp/demos/calc/calclex.l"
895 {
896 yylval.str = yytext;
897 return NUMBER; }
898 YY_BREAK
899 case 17:
900 YY_RULE_SETUP
901 #line 89 "../../../gmp/demos/calc/calclex.l"
902 {
903 int i;
904
905 for (i = 0; calc_keywords[i].name != NULL; i++)
906 if (strcmp (yytext, calc_keywords[i].name) == 0)
907 return calc_keywords[i].value;
908
909 if (yytext[0] >= 'a' && yytext[0] <= 'z' && yytext[1] == '\0')
910 {
911 yylval.var = yytext[0] - 'a';
912 return VARIABLE;
913 }
914
915 return BAD;
916 }
917 YY_BREAK
918 case 18:
919 YY_RULE_SETUP
920 #line 105 "../../../gmp/demos/calc/calclex.l"
921 { return BAD; }
922 YY_BREAK
923 case 19:
924 YY_RULE_SETUP
925 #line 107 "../../../gmp/demos/calc/calclex.l"
926 ECHO;
927 YY_BREAK
928 #line 929 "calclex.c"
929 case YY_STATE_EOF(INITIAL):
930 yyterminate();
931
932 case YY_END_OF_BUFFER:
933 {
934 /* Amount of text matched not including the EOB char. */
935 int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
936
937 /* Undo the effects of YY_DO_BEFORE_ACTION. */
938 *yy_cp = (yy_hold_char);
939 YY_RESTORE_YY_MORE_OFFSET
940
941 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
942 {
943 /* We're scanning a new file or input source. It's
944 * possible that this happened because the user
945 * just pointed yyin at a new source and called
946 * yylex(). If so, then we have to assure
947 * consistency between YY_CURRENT_BUFFER and our
948 * globals. Here is the right place to do so, because
949 * this is the first action (other than possibly a
950 * back-up) that will match for the new input source.
951 */
952 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
953 YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
954 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
955 }
956
957 /* Note that here we test for yy_c_buf_p "<=" to the position
958 * of the first EOB in the buffer, since yy_c_buf_p will
959 * already have been incremented past the NUL character
960 * (since all states make transitions on EOB to the
961 * end-of-buffer state). Contrast this with the test
962 * in input().
963 */
964 if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
965 { /* This was really a NUL. */
966 yy_state_type yy_next_state;
967
968 (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
969
970 yy_current_state = yy_get_previous_state( );
971
972 /* Okay, we're now positioned to make the NUL
973 * transition. We couldn't have
974 * yy_get_previous_state() go ahead and do it
975 * for us because it doesn't know how to deal
976 * with the possibility of jamming (and we don't
977 * want to build jamming into it because then it
978 * will run more slowly).
979 */
980
981 yy_next_state = yy_try_NUL_trans( yy_current_state );
982
983 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
984
985 if ( yy_next_state )
986 {
987 /* Consume the NUL. */
988 yy_cp = ++(yy_c_buf_p);
989 yy_current_state = yy_next_state;
990 goto yy_match;
991 }
992
993 else
994 {
995 yy_cp = (yy_c_buf_p);
996 goto yy_find_action;
997 }
998 }
999
1000 else switch ( yy_get_next_buffer( ) )
1001 {
1002 case EOB_ACT_END_OF_FILE:
1003 {
1004 (yy_did_buffer_switch_on_eof) = 0;
1005
1006 if ( yywrap( ) )
1007 {
1008 /* Note: because we've taken care in
1009 * yy_get_next_buffer() to have set up
1010 * yytext, we can now set up
1011 * yy_c_buf_p so that if some total
1012 * hoser (like flex itself) wants to
1013 * call the scanner after we return the
1014 * YY_NULL, it'll still work - another
1015 * YY_NULL will get returned.
1016 */
1017 (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
1018
1019 yy_act = YY_STATE_EOF(YY_START);
1020 goto do_action;
1021 }
1022
1023 else
1024 {
1025 if ( ! (yy_did_buffer_switch_on_eof) )
1026 YY_NEW_FILE;
1027 }
1028 break;
1029 }
1030
1031 case EOB_ACT_CONTINUE_SCAN:
1032 (yy_c_buf_p) =
1033 (yytext_ptr) + yy_amount_of_matched_text;
1034
1035 yy_current_state = yy_get_previous_state( );
1036
1037 yy_cp = (yy_c_buf_p);
1038 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
1039 goto yy_match;
1040
1041 case EOB_ACT_LAST_MATCH:
1042 (yy_c_buf_p) =
1043 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
1044
1045 yy_current_state = yy_get_previous_state( );
1046
1047 yy_cp = (yy_c_buf_p);
1048 yy_bp = (yytext_ptr) + YY_MORE_ADJ;
1049 goto yy_find_action;
1050 }
1051 break;
1052 }
1053
1054 default:
1055 YY_FATAL_ERROR(
1056 "fatal flex scanner internal error--no action found" );
1057 } /* end of action switch */
1058 } /* end of scanning one token */
1059 } /* end of yylex */
1060
1061 /* yy_get_next_buffer - try to read in a new buffer
1062 *
1063 * Returns a code representing an action:
1064 * EOB_ACT_LAST_MATCH -
1065 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
1066 * EOB_ACT_END_OF_FILE - end of file
1067 */
1068 static int yy_get_next_buffer (void)
1069 {
1070 char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
1071 char *source = (yytext_ptr);
1072 int number_to_move, i;
1073 int ret_val;
1074
1075 if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
1076 YY_FATAL_ERROR(
1077 "fatal flex scanner internal error--end of buffer missed" );
1078
1079 if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
1080 { /* Don't try to fill the buffer, so this is an EOF. */
1081 if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
1082 {
1083 /* We matched a single character, the EOB, so
1084 * treat this as a final EOF.
1085 */
1086 return EOB_ACT_END_OF_FILE;
1087 }
1088
1089 else
1090 {
1091 /* We matched some text prior to the EOB, first
1092 * process it.
1093 */
1094 return EOB_ACT_LAST_MATCH;
1095 }
1096 }
1097
1098 /* Try to read more data. */
1099
1100 /* First move last chars to start of buffer. */
1101 number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
1102
1103 for ( i = 0; i < number_to_move; ++i )
1104 *(dest++) = *(source++);
1105
1106 if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
1107 /* don't do the read, it's not guaranteed to return an EOF,
1108 * just force an EOF
1109 */
1110 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
1111
1112 else
1113 {
1114 yy_size_t num_to_read =
1115 YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
1116
1117 while ( num_to_read <= 0 )
1118 { /* Not enough room in the buffer - grow it. */
1119
1120 /* just a shorter name for the current buffer */
1121 YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
1122
1123 int yy_c_buf_p_offset =
1124 (int) ((yy_c_buf_p) - b->yy_ch_buf);
1125
1126 if ( b->yy_is_our_buffer )
1127 {
1128 yy_size_t new_size = b->yy_buf_size * 2;
1129
1130 if ( new_size <= 0 )
1131 b->yy_buf_size += b->yy_buf_size / 8;
1132 else
1133 b->yy_buf_size *= 2;
1134
1135 b->yy_ch_buf = (char *)
1136 /* Include room in for 2 EOB chars. */
1137 yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 );
1138 }
1139 else
1140 /* Can't grow it, we don't own it. */
1141 b->yy_ch_buf = 0;
1142
1143 if ( ! b->yy_ch_buf )
1144 YY_FATAL_ERROR(
1145 "fatal error - scanner input buffer overflow" );
1146
1147 (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
1148
1149 num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
1150 number_to_move - 1;
1151
1152 }
1153
1154 if ( num_to_read > YY_READ_BUF_SIZE )
1155 num_to_read = YY_READ_BUF_SIZE;
1156
1157 /* Read in more data. */
1158 YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
1159 (yy_n_chars), num_to_read );
1160
1161 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1162 }
1163
1164 if ( (yy_n_chars) == 0 )
1165 {
1166 if ( number_to_move == YY_MORE_ADJ )
1167 {
1168 ret_val = EOB_ACT_END_OF_FILE;
1169 yyrestart(yyin );
1170 }
1171
1172 else
1173 {
1174 ret_val = EOB_ACT_LAST_MATCH;
1175 YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
1176 YY_BUFFER_EOF_PENDING;
1177 }
1178 }
1179
1180 else
1181 ret_val = EOB_ACT_CONTINUE_SCAN;
1182
1183 if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
1184 /* Extend the array by 50%, plus the number we really need. */
1185 yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
1186 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
1187 if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
1188 YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
1189 }
1190
1191 (yy_n_chars) += number_to_move;
1192 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
1193 YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
1194
1195 (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
1196
1197 return ret_val;
1198 }
1199
1200 /* yy_get_previous_state - get the state just before the EOB char was reached */
1201
1202 static yy_state_type yy_get_previous_state (void)
1203 {
1204 yy_state_type yy_current_state;
1205 char *yy_cp;
1206
1207 yy_current_state = (yy_start);
1208
1209 for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
1210 {
1211 YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
1212 if ( yy_accept[yy_current_state] )
1213 {
1214 (yy_last_accepting_state) = yy_current_state;
1215 (yy_last_accepting_cpos) = yy_cp;
1216 }
1217 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1218 {
1219 yy_current_state = (int) yy_def[yy_current_state];
1220 if ( yy_current_state >= 39 )
1221 yy_c = yy_meta[(unsigned int) yy_c];
1222 }
1223 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1224 }
1225
1226 return yy_current_state;
1227 }
1228
1229 /* yy_try_NUL_trans - try to make a transition on the NUL character
1230 *
1231 * synopsis
1232 * next_state = yy_try_NUL_trans( current_state );
1233 */
1234 static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
1235 {
1236 int yy_is_jam;
1237 char *yy_cp = (yy_c_buf_p);
1238
1239 YY_CHAR yy_c = 1;
1240 if ( yy_accept[yy_current_state] )
1241 {
1242 (yy_last_accepting_state) = yy_current_state;
1243 (yy_last_accepting_cpos) = yy_cp;
1244 }
1245 while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
1246 {
1247 yy_current_state = (int) yy_def[yy_current_state];
1248 if ( yy_current_state >= 39 )
1249 yy_c = yy_meta[(unsigned int) yy_c];
1250 }
1251 yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
1252 yy_is_jam = (yy_current_state == 38);
1253
1254 return yy_is_jam ? 0 : yy_current_state;
1255 }
1256
1257 #ifndef YY_NO_UNPUT
1258 static void yyunput (int c, char * yy_bp )
1259 {
1260 char *yy_cp;
1261
1262 yy_cp = (yy_c_buf_p);
1263
1264 /* undo effects of setting up yytext */
1265 *yy_cp = (yy_hold_char);
1266
1267 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
1268 { /* need to shift things up to make room */
1269 /* +2 for EOB chars. */
1270 yy_size_t number_to_move = (yy_n_chars) + 2;
1271 char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
1272 YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
1273 char *source =
1274 &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
1275
1276 while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
1277 *--dest = *--source;
1278
1279 yy_cp += (int) (dest - source);
1280 yy_bp += (int) (dest - source);
1281 YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
1282 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
1283
1284 if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
1285 YY_FATAL_ERROR( "flex scanner push-back overflow" );
1286 }
1287
1288 *--yy_cp = (char) c;
1289
1290 (yytext_ptr) = yy_bp;
1291 (yy_hold_char) = *yy_cp;
1292 (yy_c_buf_p) = yy_cp;
1293 }
1294 #endif /* ifndef YY_NO_UNPUT */
1295
1296 #ifndef YY_NO_INPUT
1297 #ifdef __cplusplus
1298 static int yyinput (void)
1299 #else
1300 static int input (void)
1301 #endif
1302
1303 {
1304 int c;
1305
1306 *(yy_c_buf_p) = (yy_hold_char);
1307
1308 if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
1309 {
1310 /* yy_c_buf_p now points to the character we want to return.
1311 * If this occurs *before* the EOB characters, then it's a
1312 * valid NUL; if not, then we've hit the end of the buffer.
1313 */
1314 if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
1315 /* This was really a NUL. */
1316 *(yy_c_buf_p) = '\0';
1317
1318 else
1319 { /* need more input */
1320 yy_size_t offset = (yy_c_buf_p) - (yytext_ptr);
1321 ++(yy_c_buf_p);
1322
1323 switch ( yy_get_next_buffer( ) )
1324 {
1325 case EOB_ACT_LAST_MATCH:
1326 /* This happens because yy_g_n_b()
1327 * sees that we've accumulated a
1328 * token and flags that we need to
1329 * try matching the token before
1330 * proceeding. But for input(),
1331 * there's no matching to consider.
1332 * So convert the EOB_ACT_LAST_MATCH
1333 * to EOB_ACT_END_OF_FILE.
1334 */
1335
1336 /* Reset buffer status. */
1337 yyrestart(yyin );
1338
1339 /*FALLTHROUGH*/
1340
1341 case EOB_ACT_END_OF_FILE:
1342 {
1343 if ( yywrap( ) )
1344 return EOF;
1345
1346 if ( ! (yy_did_buffer_switch_on_eof) )
1347 YY_NEW_FILE;
1348 #ifdef __cplusplus
1349 return yyinput();
1350 #else
1351 return input();
1352 #endif
1353 }
1354
1355 case EOB_ACT_CONTINUE_SCAN:
1356 (yy_c_buf_p) = (yytext_ptr) + offset;
1357 break;
1358 }
1359 }
1360 }
1361
1362 c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
1363 *(yy_c_buf_p) = '\0'; /* preserve yytext */
1364 (yy_hold_char) = *++(yy_c_buf_p);
1365
1366 return c;
1367 }
1368 #endif /* ifndef YY_NO_INPUT */
1369
1370 /** Immediately switch to a different input stream.
1371 * @param input_file A readable stream.
1372 *
1373 * @note This function does not reset the start condition to @c INITIAL .
1374 */
1375 void yyrestart (FILE * input_file )
1376 {
1377
1378 if ( ! YY_CURRENT_BUFFER ){
1379 yyensure_buffer_stack ();
1380 YY_CURRENT_BUFFER_LVALUE =
1381 yy_create_buffer(yyin,YY_BUF_SIZE );
1382 }
1383
1384 yy_init_buffer(YY_CURRENT_BUFFER,input_file );
1385 yy_load_buffer_state( );
1386 }
1387
1388 /** Switch to a different input buffer.
1389 * @param new_buffer The new input buffer.
1390 *
1391 */
1392 void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
1393 {
1394
1395 /* TODO. We should be able to replace this entire function body
1396 * with
1397 * yypop_buffer_state();
1398 * yypush_buffer_state(new_buffer);
1399 */
1400 yyensure_buffer_stack ();
1401 if ( YY_CURRENT_BUFFER == new_buffer )
1402 return;
1403
1404 if ( YY_CURRENT_BUFFER )
1405 {
1406 /* Flush out information for old buffer. */
1407 *(yy_c_buf_p) = (yy_hold_char);
1408 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
1409 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1410 }
1411
1412 YY_CURRENT_BUFFER_LVALUE = new_buffer;
1413 yy_load_buffer_state( );
1414
1415 /* We don't actually know whether we did this switch during
1416 * EOF (yywrap()) processing, but the only time this flag
1417 * is looked at is after yywrap() is called, so it's safe
1418 * to go ahead and always set it.
1419 */
1420 (yy_did_buffer_switch_on_eof) = 1;
1421 }
1422
1423 static void yy_load_buffer_state (void)
1424 {
1425 (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
1426 (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
1427 yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
1428 (yy_hold_char) = *(yy_c_buf_p);
1429 }
1430
1431 /** Allocate and initialize an input buffer state.
1432 * @param file A readable stream.
1433 * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
1434 *
1435 * @return the allocated buffer state.
1436 */
1437 YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
1438 {
1439 YY_BUFFER_STATE b;
1440
1441 b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
1442 if ( ! b )
1443 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1444
1445 b->yy_buf_size = size;
1446
1447 /* yy_ch_buf has to be 2 characters longer than the size given because
1448 * we need to put in 2 end-of-buffer characters.
1449 */
1450 b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
1451 if ( ! b->yy_ch_buf )
1452 YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
1453
1454 b->yy_is_our_buffer = 1;
1455
1456 yy_init_buffer(b,file );
1457
1458 return b;
1459 }
1460
1461 /** Destroy the buffer.
1462 * @param b a buffer created with yy_create_buffer()
1463 *
1464 */
1465 void yy_delete_buffer (YY_BUFFER_STATE b )
1466 {
1467
1468 if ( ! b )
1469 return;
1470
1471 if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
1472 YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
1473
1474 if ( b->yy_is_our_buffer )
1475 yyfree((void *) b->yy_ch_buf );
1476
1477 yyfree((void *) b );
1478 }
1479
1480 /* Initializes or reinitializes a buffer.
1481 * This function is sometimes called more than once on the same buffer,
1482 * such as during a yyrestart() or at EOF.
1483 */
1484 static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
1485
1486 {
1487 int oerrno = errno;
1488
1489 yy_flush_buffer(b );
1490
1491 b->yy_input_file = file;
1492 b->yy_fill_buffer = 1;
1493
1494 /* If b is the current buffer, then yy_init_buffer was _probably_
1495 * called from yyrestart() or through yy_get_next_buffer.
1496 * In that case, we don't want to reset the lineno or column.
1497 */
1498 if (b != YY_CURRENT_BUFFER){
1499 b->yy_bs_lineno = 1;
1500 b->yy_bs_column = 0;
1501 }
1502
1503 b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
1504
1505 errno = oerrno;
1506 }
1507
1508 /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
1509 * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
1510 *
1511 */
1512 void yy_flush_buffer (YY_BUFFER_STATE b )
1513 {
1514 if ( ! b )
1515 return;
1516
1517 b->yy_n_chars = 0;
1518
1519 /* We always need two end-of-buffer characters. The first causes
1520 * a transition to the end-of-buffer state. The second causes
1521 * a jam in that state.
1522 */
1523 b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
1524 b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
1525
1526 b->yy_buf_pos = &b->yy_ch_buf[0];
1527
1528 b->yy_at_bol = 1;
1529 b->yy_buffer_status = YY_BUFFER_NEW;
1530
1531 if ( b == YY_CURRENT_BUFFER )
1532 yy_load_buffer_state( );
1533 }
1534
1535 /** Pushes the new state onto the stack. The new state becomes
1536 * the current state. This function will allocate the stack
1537 * if necessary.
1538 * @param new_buffer The new state.
1539 *
1540 */
1541 void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
1542 {
1543 if (new_buffer == NULL)
1544 return;
1545
1546 yyensure_buffer_stack();
1547
1548 /* This block is copied from yy_switch_to_buffer. */
1549 if ( YY_CURRENT_BUFFER )
1550 {
1551 /* Flush out information for old buffer. */
1552 *(yy_c_buf_p) = (yy_hold_char);
1553 YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
1554 YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
1555 }
1556
1557 /* Only push if top exists. Otherwise, replace top. */
1558 if (YY_CURRENT_BUFFER)
1559 (yy_buffer_stack_top)++;
1560 YY_CURRENT_BUFFER_LVALUE = new_buffer;
1561
1562 /* copied from yy_switch_to_buffer. */
1563 yy_load_buffer_state( );
1564 (yy_did_buffer_switch_on_eof) = 1;
1565 }
1566
1567 /** Removes and deletes the top of the stack, if present.
1568 * The next element becomes the new top.
1569 *
1570 */
1571 void yypop_buffer_state (void)
1572 {
1573 if (!YY_CURRENT_BUFFER)
1574 return;
1575
1576 yy_delete_buffer(YY_CURRENT_BUFFER );
1577 YY_CURRENT_BUFFER_LVALUE = NULL;
1578 if ((yy_buffer_stack_top) > 0)
1579 --(yy_buffer_stack_top);
1580
1581 if (YY_CURRENT_BUFFER) {
1582 yy_load_buffer_state( );
1583 (yy_did_buffer_switch_on_eof) = 1;
1584 }
1585 }
1586
1587 /* Allocates the stack if it does not exist.
1588 * Guarantees space for at least one push.
1589 */
1590 static void yyensure_buffer_stack (void)
1591 {
1592 yy_size_t num_to_alloc;
1593
1594 if (!(yy_buffer_stack)) {
1595
1596 /* First allocation is just for 2 elements, since we don't know if this
1597 * scanner will even need a stack. We use 2 instead of 1 to avoid an
1598 * immediate realloc on the next call.
1599 */
1600 num_to_alloc = 1;
1601 (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
1602 (num_to_alloc * sizeof(struct yy_buffer_state*)
1603 );
1604 if ( ! (yy_buffer_stack) )
1605 YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
1606
1607 memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
1608
1609 (yy_buffer_stack_max) = num_to_alloc;
1610 (yy_buffer_stack_top) = 0;
1611 return;
1612 }
1613
1614 if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
1615
1616 /* Increase the buffer to prepare for a possible push. */
1617 int grow_size = 8 /* arbitrary grow size */;
1618
1619 num_to_alloc = (yy_buffer_stack_max) + grow_size;
1620 (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
1621 ((yy_buffer_stack),
1622 num_to_alloc * sizeof(struct yy_buffer_state*)
1623 );
1624 if ( ! (yy_buffer_stack) )
1625 YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
1626
1627 /* zero only the new slots.*/
1628 memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
1629 (yy_buffer_stack_max) = num_to_alloc;
1630 }
1631 }
1632
1633 /** Setup the input buffer state to scan directly from a user-specified character buffer.
1634 * @param base the character buffer
1635 * @param size the size in bytes of the character buffer
1636 *
1637 * @return the newly allocated buffer state object.
1638 */
1639 YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
1640 {
1641 YY_BUFFER_STATE b;
1642
1643 if ( size < 2 ||
1644 base[size-2] != YY_END_OF_BUFFER_CHAR ||
1645 base[size-1] != YY_END_OF_BUFFER_CHAR )
1646 /* They forgot to leave room for the EOB's. */
1647 return 0;
1648
1649 b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
1650 if ( ! b )
1651 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
1652
1653 b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
1654 b->yy_buf_pos = b->yy_ch_buf = base;
1655 b->yy_is_our_buffer = 0;
1656 b->yy_input_file = 0;
1657 b->yy_n_chars = b->yy_buf_size;
1658 b->yy_is_interactive = 0;
1659 b->yy_at_bol = 1;
1660 b->yy_fill_buffer = 0;
1661 b->yy_buffer_status = YY_BUFFER_NEW;
1662
1663 yy_switch_to_buffer(b );
1664
1665 return b;
1666 }
1667
1668 /** Setup the input buffer state to scan a string. The next call to yylex() will
1669 * scan from a @e copy of @a str.
1670 * @param yystr a NUL-terminated string to scan
1671 *
1672 * @return the newly allocated buffer state object.
1673 * @note If you want to scan bytes that may contain NUL values, then use
1674 * yy_scan_bytes() instead.
1675 */
1676 YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
1677 {
1678
1679 return yy_scan_bytes(yystr,strlen(yystr) );
1680 }
1681
1682 /** Setup the input buffer state to scan the given bytes. The next call to yylex() will
1683 * scan from a @e copy of @a bytes.
1684 * @param yybytes the byte buffer to scan
1685 * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
1686 *
1687 * @return the newly allocated buffer state object.
1688 */
1689 YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, yy_size_t _yybytes_len )
1690 {
1691 YY_BUFFER_STATE b;
1692 char *buf;
1693 yy_size_t n;
1694 yy_size_t i;
1695
1696 /* Get memory for full buffer, including space for trailing EOB's. */
1697 n = _yybytes_len + 2;
1698 buf = (char *) yyalloc(n );
1699 if ( ! buf )
1700 YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
1701
1702 for ( i = 0; i < _yybytes_len; ++i )
1703 buf[i] = yybytes[i];
1704
1705 buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
1706
1707 b = yy_scan_buffer(buf,n );
1708 if ( ! b )
1709 YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
1710
1711 /* It's okay to grow etc. this buffer, and we should throw it
1712 * away when we're done.
1713 */
1714 b->yy_is_our_buffer = 1;
1715
1716 return b;
1717 }
1718
1719 #ifndef YY_EXIT_FAILURE
1720 #define YY_EXIT_FAILURE 2
1721 #endif
1722
1723 static void yy_fatal_error (yyconst char* msg )
1724 {
1725 (void) fprintf( stderr, "%s\n", msg );
1726 exit( YY_EXIT_FAILURE );
1727 }
1728
1729 /* Redefine yyless() so it works in section 3 code. */
1730
1731 #undef yyless
1732 #define yyless(n) \
1733 do \
1734 { \
1735 /* Undo effects of setting up yytext. */ \
1736 int yyless_macro_arg = (n); \
1737 YY_LESS_LINENO(yyless_macro_arg);\
1738 yytext[yyleng] = (yy_hold_char); \
1739 (yy_c_buf_p) = yytext + yyless_macro_arg; \
1740 (yy_hold_char) = *(yy_c_buf_p); \
1741 *(yy_c_buf_p) = '\0'; \
1742 yyleng = yyless_macro_arg; \
1743 } \
1744 while ( 0 )
1745
1746 /* Accessor methods (get/set functions) to struct members. */
1747
1748 /** Get the current line number.
1749 *
1750 */
1751 int yyget_lineno (void)
1752 {
1753
1754 return yylineno;
1755 }
1756
1757 /** Get the input stream.
1758 *
1759 */
1760 FILE *yyget_in (void)
1761 {
1762 return yyin;
1763 }
1764
1765 /** Get the output stream.
1766 *
1767 */
1768 FILE *yyget_out (void)
1769 {
1770 return yyout;
1771 }
1772
1773 /** Get the length of the current token.
1774 *
1775 */
1776 yy_size_t yyget_leng (void)
1777 {
1778 return yyleng;
1779 }
1780
1781 /** Get the current token.
1782 *
1783 */
1784
1785 char *yyget_text (void)
1786 {
1787 return yytext;
1788 }
1789
1790 /** Set the current line number.
1791 * @param line_number
1792 *
1793 */
1794 void yyset_lineno (int line_number )
1795 {
1796
1797 yylineno = line_number;
1798 }
1799
1800 /** Set the input stream. This does not discard the current
1801 * input buffer.
1802 * @param in_str A readable stream.
1803 *
1804 * @see yy_switch_to_buffer
1805 */
1806 void yyset_in (FILE * in_str )
1807 {
1808 yyin = in_str ;
1809 }
1810
1811 void yyset_out (FILE * out_str )
1812 {
1813 yyout = out_str ;
1814 }
1815
1816 int yyget_debug (void)
1817 {
1818 return yy_flex_debug;
1819 }
1820
1821 void yyset_debug (int bdebug )
1822 {
1823 yy_flex_debug = bdebug ;
1824 }
1825
1826 static int yy_init_globals (void)
1827 {
1828 /* Initialization is the same as for the non-reentrant scanner.
1829 * This function is called from yylex_destroy(), so don't allocate here.
1830 */
1831
1832 (yy_buffer_stack) = 0;
1833 (yy_buffer_stack_top) = 0;
1834 (yy_buffer_stack_max) = 0;
1835 (yy_c_buf_p) = (char *) 0;
1836 (yy_init) = 0;
1837 (yy_start) = 0;
1838
1839 /* Defined in main.c */
1840 #ifdef YY_STDINIT
1841 yyin = stdin;
1842 yyout = stdout;
1843 #else
1844 yyin = (FILE *) 0;
1845 yyout = (FILE *) 0;
1846 #endif
1847
1848 /* For future reference: Set errno on error, since we are called by
1849 * yylex_init()
1850 */
1851 return 0;
1852 }
1853
1854 /* yylex_destroy is for both reentrant and non-reentrant scanners. */
1855 int yylex_destroy (void)
1856 {
1857
1858 /* Pop the buffer stack, destroying each element. */
1859 while(YY_CURRENT_BUFFER){
1860 yy_delete_buffer(YY_CURRENT_BUFFER );
1861 YY_CURRENT_BUFFER_LVALUE = NULL;
1862 yypop_buffer_state();
1863 }
1864
1865 /* Destroy the stack itself. */
1866 yyfree((yy_buffer_stack) );
1867 (yy_buffer_stack) = NULL;
1868
1869 /* Reset the globals. This is important in a non-reentrant scanner so the next time
1870 * yylex() is called, initialization will occur. */
1871 yy_init_globals( );
1872
1873 return 0;
1874 }
1875
1876 /*
1877 * Internal utility routines.
1878 */
1879
1880 #ifndef yytext_ptr
1881 static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
1882 {
1883 int i;
1884 for ( i = 0; i < n; ++i )
1885 s1[i] = s2[i];
1886 }
1887 #endif
1888
1889 #ifdef YY_NEED_STRLEN
1890 static int yy_flex_strlen (yyconst char * s )
1891 {
1892 int n;
1893 for ( n = 0; s[n]; ++n )
1894 ;
1895
1896 return n;
1897 }
1898 #endif
1899
1900 void *yyalloc (yy_size_t size )
1901 {
1902 return (void *) malloc( size );
1903 }
1904
1905 void *yyrealloc (void * ptr, yy_size_t size )
1906 {
1907 /* The cast to (char *) in the following accommodates both
1908 * implementations that use char* generic pointers, and those
1909 * that use void* generic pointers. It works with the latter
1910 * because both ANSI C and C++ allow castless assignment from
1911 * any pointer type to void*, and deal with argument conversions
1912 * as though doing an assignment.
1913 */
1914 return (void *) realloc( (char *) ptr, size );
1915 }
1916
1917 void yyfree (void * ptr )
1918 {
1919 free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
1920 }
1921
1922 #define YYTABLES_NAME "yytables"
1923
1924 #line 107 "../../../gmp/demos/calc/calclex.l"
1925
1926
1927
1928 int
1929 yywrap ()
1930 {
1931 return 1;
1932 }
1933