Revert "Remove gmp from AOS"
This reverts commit f37c97684f0910a3f241394549392f00145ab0f7.
We need gmp for SymEngine for symbolicmanipultion in C++
Change-Id: Ia13216d1715cf96944f7b4f422b7a799f921d4a4
Signed-off-by: Austin Schuh <austin.linux@gmail.com>
diff --git a/third_party/gmp/demos/calc/calc.c b/third_party/gmp/demos/calc/calc.c
new file mode 100644
index 0000000..cc653a2
--- /dev/null
+++ b/third_party/gmp/demos/calc/calc.c
@@ -0,0 +1,1148 @@
+/* original parser id follows */
+/* yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93" */
+/* (use YYMAJOR/YYMINOR for ifdefs dependent on parser version) */
+
+#define YYBYACC 1
+#define YYMAJOR 1
+#define YYMINOR 9
+#define YYPATCH 20170201
+
+#define YYEMPTY (-1)
+#define yyclearin (yychar = YYEMPTY)
+#define yyerrok (yyerrflag = 0)
+#define YYRECOVERING() (yyerrflag != 0)
+#define YYENOMEM (-2)
+#define YYEOF 0
+#define YYPREFIX "yy"
+
+#define YYPURE 0
+
+#line 2 "../../../gmp/demos/calc/calc.y"
+/* A simple integer desk calculator using yacc and gmp.
+
+Copyright 2000-2002 Free Software Foundation, Inc.
+
+This file is part of the GNU MP Library.
+
+This program is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free Software
+Foundation; either version 3 of the License, or (at your option) any later
+version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along with
+this program. If not, see https://www.gnu.org/licenses/. */
+
+
+/* This is a simple program, meant only to show one way to use GMP for this
+ sort of thing. There's few features, and error checking is minimal.
+ Standard input is read, calc_help() below shows the inputs accepted.
+
+ Expressions are evaluated as they're read. If user defined functions
+ were wanted it'd be necessary to build a parse tree like pexpr.c does, or
+ a list of operations for a stack based evaluator. That would also make
+ it possible to detect and optimize evaluations "mod m" like pexpr.c does.
+
+ A stack is used for intermediate values in the expression evaluation,
+ separate from the yacc parser stack. This is simple, makes error
+ recovery easy, minimizes the junk around mpz calls in the rules, and
+ saves initializing or clearing "mpz_t"s during a calculation. A
+ disadvantage though is that variables must be copied to the stack to be
+ worked on. A more sophisticated calculator or language system might be
+ able to avoid that when executing a compiled or semi-compiled form.
+
+ Avoiding repeated initializing and clearing of "mpz_t"s is important. In
+ this program the time spent parsing is obviously much greater than any
+ possible saving from this, but a proper calculator or language should
+ take some trouble over it. Don't be surprised if an init/clear takes 3
+ or more times as long as a 10 limb addition, depending on the system (see
+ the mpz_init_realloc_clear example in tune/README). */
+
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "gmp.h"
+#define NO_CALC_H /* because it conflicts with normal calc.c stuff */
+#include "calc-common.h"
+
+
+#define numberof(x) (sizeof (x) / sizeof ((x)[0]))
+
+
+void
+calc_help (void)
+{
+ printf ("Examples:\n");
+ printf (" 2+3*4 expressions are evaluated\n");
+ printf (" x=5^6 variables a to z can be set and used\n");
+ printf ("Operators:\n");
+ printf (" + - * arithmetic\n");
+ printf (" / %% division and remainder (rounding towards negative infinity)\n");
+ printf (" ^ exponentiation\n");
+ printf (" ! factorial\n");
+ printf (" << >> left and right shifts\n");
+ printf (" <= >= > \\ comparisons, giving 1 if true, 0 if false\n");
+ printf (" == != < /\n");
+ printf (" && || logical and/or, giving 1 if true, 0 if false\n");
+ printf ("Functions:\n");
+ printf (" abs(n) absolute value\n");
+ printf (" bin(n,m) binomial coefficient\n");
+ printf (" fib(n) fibonacci number\n");
+ printf (" gcd(a,b,..) greatest common divisor\n");
+ printf (" kron(a,b) kronecker symbol\n");
+ printf (" lcm(a,b,..) least common multiple\n");
+ printf (" lucnum(n) lucas number\n");
+ printf (" nextprime(n) next prime after n\n");
+ printf (" powm(b,e,m) modulo powering, b^e%%m\n");
+ printf (" root(n,r) r-th root\n");
+ printf (" sqrt(n) square root\n");
+ printf ("Other:\n");
+ printf (" hex \\ set hex or decimal for input and output\n");
+ printf (" decimal / (\"0x\" can be used for hex too)\n");
+ printf (" quit exit program (EOF works too)\n");
+ printf (" ; statements are separated with a ; or newline\n");
+ printf (" \\ continue expressions with \\ before newline\n");
+ printf (" # xxx comments are # though to newline\n");
+ printf ("Hex numbers must be entered in upper case, to distinguish them from the\n");
+ printf ("variables a to f (like in bc).\n");
+}
+
+
+int ibase = 0;
+int obase = 10;
+
+
+/* The stack is a fixed size, which means there's a limit on the nesting
+ allowed in expressions. A more sophisticated program could let it grow
+ dynamically. */
+
+mpz_t stack[100];
+mpz_ptr sp = stack[0];
+
+#define CHECK_OVERFLOW() \
+ if (sp >= stack[numberof(stack)]) /* FIXME */ \
+ { \
+ fprintf (stderr, \
+ "Value stack overflow, too much nesting in expression\n"); \
+ YYERROR; \
+ }
+
+#define CHECK_EMPTY() \
+ if (sp != stack[0]) \
+ { \
+ fprintf (stderr, "Oops, expected the value stack to be empty\n"); \
+ sp = stack[0]; \
+ }
+
+
+mpz_t variable[26];
+
+#define CHECK_VARIABLE(var) \
+ if ((var) < 0 || (var) >= numberof (variable)) \
+ { \
+ fprintf (stderr, "Oops, bad variable somehow: %d\n", var); \
+ YYERROR; \
+ }
+
+
+#define CHECK_UI(name,z) \
+ if (! mpz_fits_ulong_p (z)) \
+ { \
+ fprintf (stderr, "%s too big\n", name); \
+ YYERROR; \
+ }
+
+#ifdef YYSTYPE
+#undef YYSTYPE_IS_DECLARED
+#define YYSTYPE_IS_DECLARED 1
+#endif
+#ifndef YYSTYPE_IS_DECLARED
+#define YYSTYPE_IS_DECLARED 1
+#line 142 "../../../gmp/demos/calc/calc.y"
+typedef union {
+ char *str;
+ int var;
+} YYSTYPE;
+#endif /* !YYSTYPE_IS_DECLARED */
+#line 172 "calc.c"
+
+/* compatibility with bison */
+#ifdef YYPARSE_PARAM
+/* compatibility with FreeBSD */
+# ifdef YYPARSE_PARAM_TYPE
+# define YYPARSE_DECL() yyparse(YYPARSE_PARAM_TYPE YYPARSE_PARAM)
+# else
+# define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM)
+# endif
+#else
+# define YYPARSE_DECL() yyparse(void)
+#endif
+
+/* Parameters sent to lex. */
+#ifdef YYLEX_PARAM
+# define YYLEX_DECL() yylex(void *YYLEX_PARAM)
+# define YYLEX yylex(YYLEX_PARAM)
+#else
+# define YYLEX_DECL() yylex(void)
+# define YYLEX yylex()
+#endif
+
+/* Parameters sent to yyerror. */
+#ifndef YYERROR_DECL
+#define YYERROR_DECL() yyerror(const char *s)
+#endif
+#ifndef YYERROR_CALL
+#define YYERROR_CALL(msg) yyerror(msg)
+#endif
+
+extern int YYPARSE_DECL();
+
+#define EOS 257
+#define BAD 258
+#define HELP 259
+#define HEX 260
+#define DECIMAL 261
+#define QUIT 262
+#define ABS 263
+#define BIN 264
+#define FIB 265
+#define GCD 266
+#define KRON 267
+#define LCM 268
+#define LUCNUM 269
+#define NEXTPRIME 270
+#define POWM 271
+#define ROOT 272
+#define SQRT 273
+#define NUMBER 274
+#define VARIABLE 275
+#define LOR 276
+#define LAND 277
+#define EQ 278
+#define NE 279
+#define LE 280
+#define GE 281
+#define LSHIFT 282
+#define RSHIFT 283
+#define UMINUS 284
+#define YYERRCODE 256
+typedef int YYINT;
+static const YYINT yylhs[] = { -1,
+ 0, 0, 2, 2, 2, 1, 1, 1, 1, 1,
+ 1, 1, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 4, 4, 5, 5,
+};
+static const YYINT yylen[] = { 2,
+ 1, 2, 2, 3, 2, 0, 1, 3, 1, 1,
+ 1, 1, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 2, 2, 3, 3, 3, 3, 3, 3, 3,
+ 3, 4, 6, 4, 4, 6, 4, 4, 4, 8,
+ 6, 4, 1, 1, 1, 3, 1, 3,
+};
+static const YYINT yydefred[] = { 0,
+ 0, 9, 10, 11, 12, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 44, 0, 0, 0,
+ 0, 0, 0, 0, 5, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 43, 0, 0,
+ 3, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 22, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 13, 4, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 32, 0, 34, 35, 0, 0, 37, 0, 38,
+ 39, 0, 0, 42, 0, 0, 0, 0, 0, 0,
+ 33, 36, 0, 41, 0, 40,
+};
+static const YYINT yydgoto[] = { 21,
+ 22, 23, 24, 64, 67,
+};
+static const YYINT yysindex[] = { 742,
+ -257, 0, 0, 0, 0, -22, -20, -17, -5, 5,
+ 18, 20, 22, 25, 28, 29, 0, -54, 808, 808,
+ 0, -244, 786, 667, 0, 808, 808, 808, 808, 808,
+ 808, 808, 808, 808, 808, 808, 808, 0, -27, 203,
+ 0, -217, 808, 808, 808, 808, 808, 808, 808, 808,
+ 808, 808, 808, 808, 808, 808, 808, 808, 0, 454,
+ 465, 487, 667, -33, 498, 667, -16, 520, 531, 542,
+ 564, 586, 667, 0, 0, 678, 929, -28, -28, -28,
+ -28, -28, -28, -21, -21, -6, -6, -27, -27, -27,
+ -27, 0, 808, 0, 0, 808, 808, 0, 808, 0,
+ 0, 808, 808, 0, 597, 667, 608, 667, 619, 645,
+ 0, 0, 808, 0, 656, 0,
+};
+static const YYINT yyrindex[] = { 2,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
+ 0, 50, 2, 3, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 10, 0,
+ 0, 71, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, -12, 0, 0, -11, 0, 0, 0, 0,
+ 0, 0, 4, 0, 0, 193, 64, 166, 178, 182,
+ 187, 189, 191, 139, 151, 112, 124, 37, 49, 76,
+ 85, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, -2, 0, 15, 0, 0,
+ 0, 0, 0, 0, 0, 0,
+};
+static const YYINT yygindex[] = { 0,
+ 52, 0, 1065, 0, 0,
+};
+#define YYTABLESIZE 1212
+static const YYINT yytable[] = { 25,
+ 43, 6, 7, 8, 59, 59, 37, 95, 57, 23,
+ 96, 59, 41, 55, 53, 57, 54, 26, 56, 27,
+ 55, 53, 28, 54, 98, 56, 59, 99, 45, 47,
+ 57, 45, 47, 43, 29, 55, 16, 43, 46, 75,
+ 56, 46, 43, 43, 30, 43, 23, 43, 17, 1,
+ 23, 23, 23, 23, 23, 48, 23, 31, 48, 32,
+ 43, 33, 43, 30, 34, 58, 58, 35, 36, 23,
+ 2, 23, 58, 16, 42, 18, 0, 16, 16, 16,
+ 16, 16, 0, 16, 19, 17, 0, 58, 0, 17,
+ 17, 17, 17, 17, 43, 17, 16, 0, 16, 0,
+ 0, 0, 0, 0, 30, 0, 0, 30, 17, 0,
+ 17, 14, 18, 0, 0, 0, 18, 18, 18, 18,
+ 18, 19, 18, 15, 0, 19, 19, 19, 19, 19,
+ 0, 19, 0, 0, 0, 18, 0, 18, 20, 0,
+ 0, 0, 0, 0, 19, 0, 19, 0, 0, 0,
+ 21, 0, 14, 0, 14, 14, 14, 0, 0, 0,
+ 0, 0, 0, 0, 15, 24, 15, 15, 15, 0,
+ 0, 14, 0, 14, 0, 0, 0, 29, 0, 20,
+ 0, 26, 20, 15, 0, 15, 27, 0, 25, 0,
+ 28, 21, 31, 0, 21, 0, 0, 0, 20, 0,
+ 20, 0, 0, 0, 0, 0, 24, 0, 0, 24,
+ 21, 0, 21, 0, 0, 0, 0, 0, 29, 0,
+ 0, 29, 26, 0, 0, 26, 0, 27, 0, 25,
+ 27, 28, 25, 31, 28, 59, 31, 0, 0, 57,
+ 0, 0, 0, 74, 55, 53, 0, 54, 0, 56,
+ 0, 0, 0, 51, 52, 0, 0, 43, 6, 7,
+ 8, 0, 45, 0, 46, 0, 23, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 43, 43, 43, 43,
+ 43, 43, 43, 43, 0, 23, 23, 23, 23, 23,
+ 23, 23, 23, 16, 0, 0, 58, 0, 0, 0,
+ 0, 0, 0, 0, 0, 17, 0, 0, 0, 0,
+ 0, 0, 16, 16, 16, 16, 16, 16, 16, 16,
+ 30, 0, 0, 0, 17, 17, 17, 17, 17, 17,
+ 17, 17, 18, 0, 0, 0, 0, 0, 0, 30,
+ 30, 19, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 18, 18, 18, 18, 18, 18, 18, 18, 0,
+ 19, 19, 19, 19, 19, 19, 19, 19, 14, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 15, 0, 0, 0, 0, 0, 0, 14, 14, 14,
+ 14, 14, 14, 14, 14, 20, 0, 0, 0, 15,
+ 15, 15, 15, 15, 15, 15, 15, 21, 0, 0,
+ 0, 0, 0, 0, 20, 20, 20, 20, 20, 20,
+ 20, 20, 24, 0, 0, 0, 21, 21, 21, 21,
+ 21, 21, 21, 21, 29, 0, 0, 0, 26, 0,
+ 0, 24, 24, 27, 0, 25, 0, 28, 0, 31,
+ 0, 0, 0, 29, 29, 0, 0, 26, 26, 0,
+ 0, 0, 27, 27, 25, 25, 28, 28, 31, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 43, 44,
+ 47, 48, 49, 50, 51, 52, 59, 0, 0, 0,
+ 57, 0, 0, 0, 92, 55, 53, 59, 54, 0,
+ 56, 57, 0, 0, 0, 0, 55, 53, 93, 54,
+ 0, 56, 0, 45, 0, 46, 0, 0, 0, 59,
+ 0, 0, 0, 57, 45, 0, 46, 94, 55, 53,
+ 59, 54, 0, 56, 57, 0, 0, 0, 0, 55,
+ 53, 97, 54, 0, 56, 0, 45, 58, 46, 0,
+ 0, 0, 59, 0, 0, 0, 57, 45, 58, 46,
+ 100, 55, 53, 59, 54, 0, 56, 57, 0, 0,
+ 0, 101, 55, 53, 59, 54, 0, 56, 57, 45,
+ 58, 46, 0, 55, 53, 102, 54, 0, 56, 0,
+ 45, 58, 46, 0, 0, 0, 59, 0, 0, 0,
+ 57, 45, 0, 46, 0, 55, 53, 103, 54, 0,
+ 56, 0, 0, 58, 0, 0, 0, 0, 59, 0,
+ 0, 0, 57, 45, 58, 46, 104, 55, 53, 59,
+ 54, 0, 56, 57, 0, 58, 0, 111, 55, 53,
+ 59, 54, 0, 56, 57, 45, 0, 46, 112, 55,
+ 53, 59, 54, 0, 56, 57, 45, 58, 46, 0,
+ 55, 53, 113, 54, 0, 56, 0, 45, 0, 46,
+ 0, 0, 0, 0, 0, 0, 0, 59, 45, 58,
+ 46, 57, 0, 0, 0, 114, 55, 53, 59, 54,
+ 58, 56, 57, 0, 0, 0, 116, 55, 53, 59,
+ 54, 58, 56, 57, 45, 0, 46, 0, 55, 53,
+ 59, 54, 58, 56, 57, 45, 0, 46, 0, 55,
+ 53, 0, 54, 0, 56, 0, 45, 0, 46, 43,
+ 44, 47, 48, 49, 50, 51, 52, 45, 58, 46,
+ 43, 44, 47, 48, 49, 50, 51, 52, 0, 58,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 58, 0, 43, 44, 47, 48, 49, 50, 51, 52,
+ 0, 58, 0, 43, 44, 47, 48, 49, 50, 51,
+ 52, 20, 0, 0, 0, 0, 19, 0, 0, 0,
+ 0, 0, 0, 0, 0, 43, 44, 47, 48, 49,
+ 50, 51, 52, 0, 0, 0, 43, 44, 47, 48,
+ 49, 50, 51, 52, 0, 0, 0, 43, 44, 47,
+ 48, 49, 50, 51, 52, 20, 0, 0, 0, 0,
+ 19, 0, 0, 0, 0, 0, 0, 0, 0, 43,
+ 44, 47, 48, 49, 50, 51, 52, 20, 0, 0,
+ 0, 0, 19, 0, 0, 0, 0, 0, 0, 0,
+ 0, 43, 44, 47, 48, 49, 50, 51, 52, 0,
+ 0, 0, 43, 44, 47, 48, 49, 50, 51, 52,
+ 0, 0, 0, 43, 44, 47, 48, 49, 50, 51,
+ 52, 0, 0, 0, 43, 44, 47, 48, 49, 50,
+ 51, 52, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 43, 44, 47, 48, 49, 50, 51, 52, 0, 0,
+ 0, 43, 44, 47, 48, 49, 50, 51, 52, 0,
+ 0, 0, 43, 44, 47, 48, 49, 50, 51, 52,
+ 0, 0, 0, 0, 44, 47, 48, 49, 50, 51,
+ 52, 59, 0, 0, 0, 57, 0, 0, 0, 0,
+ 55, 53, 0, 54, 0, 56, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 45, 0,
+ 46, 0, 0, 0, 0, 0, 0, 1, 0, 0,
+ 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,
+ 12, 13, 14, 15, 16, 17, 18, 0, 0, 0,
+ 0, 0, 58, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 2, 3, 4, 5, 6, 7,
+ 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
+ 18, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
+ 16, 17, 38, 39, 40, 0, 0, 0, 0, 0,
+ 60, 61, 62, 63, 65, 66, 68, 69, 70, 71,
+ 72, 73, 0, 0, 0, 0, 0, 76, 77, 78,
+ 79, 80, 81, 82, 83, 84, 85, 86, 87, 88,
+ 89, 90, 91, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 105, 0, 0,
+ 106, 107, 0, 108, 0, 0, 109, 110, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 115, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 47, 48, 49, 50,
+ 51, 52,
+};
+static const YYINT yycheck[] = { 257,
+ 0, 0, 0, 0, 33, 33, 61, 41, 37, 0,
+ 44, 33, 257, 42, 43, 37, 45, 40, 47, 40,
+ 42, 43, 40, 45, 41, 47, 33, 44, 41, 41,
+ 37, 44, 44, 33, 40, 42, 0, 37, 41, 257,
+ 47, 44, 42, 43, 40, 45, 37, 47, 0, 0,
+ 41, 42, 43, 44, 45, 41, 47, 40, 44, 40,
+ 60, 40, 62, 0, 40, 94, 94, 40, 40, 60,
+ 0, 62, 94, 37, 23, 0, -1, 41, 42, 43,
+ 44, 45, -1, 47, 0, 37, -1, 94, -1, 41,
+ 42, 43, 44, 45, 94, 47, 60, -1, 62, -1,
+ -1, -1, -1, -1, 41, -1, -1, 44, 60, -1,
+ 62, 0, 37, -1, -1, -1, 41, 42, 43, 44,
+ 45, 37, 47, 0, -1, 41, 42, 43, 44, 45,
+ -1, 47, -1, -1, -1, 60, -1, 62, 0, -1,
+ -1, -1, -1, -1, 60, -1, 62, -1, -1, -1,
+ 0, -1, 41, -1, 43, 44, 45, -1, -1, -1,
+ -1, -1, -1, -1, 41, 0, 43, 44, 45, -1,
+ -1, 60, -1, 62, -1, -1, -1, 0, -1, 41,
+ -1, 0, 44, 60, -1, 62, 0, -1, 0, -1,
+ 0, 41, 0, -1, 44, -1, -1, -1, 60, -1,
+ 62, -1, -1, -1, -1, -1, 41, -1, -1, 44,
+ 60, -1, 62, -1, -1, -1, -1, -1, 41, -1,
+ -1, 44, 41, -1, -1, 44, -1, 41, -1, 41,
+ 44, 41, 44, 41, 44, 33, 44, -1, -1, 37,
+ -1, -1, -1, 41, 42, 43, -1, 45, -1, 47,
+ -1, -1, -1, 282, 283, -1, -1, 257, 257, 257,
+ 257, -1, 60, -1, 62, -1, 257, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 276, 277, 278, 279,
+ 280, 281, 282, 283, -1, 276, 277, 278, 279, 280,
+ 281, 282, 283, 257, -1, -1, 94, -1, -1, -1,
+ -1, -1, -1, -1, -1, 257, -1, -1, -1, -1,
+ -1, -1, 276, 277, 278, 279, 280, 281, 282, 283,
+ 257, -1, -1, -1, 276, 277, 278, 279, 280, 281,
+ 282, 283, 257, -1, -1, -1, -1, -1, -1, 276,
+ 277, 257, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, 276, 277, 278, 279, 280, 281, 282, 283, -1,
+ 276, 277, 278, 279, 280, 281, 282, 283, 257, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 257, -1, -1, -1, -1, -1, -1, 276, 277, 278,
+ 279, 280, 281, 282, 283, 257, -1, -1, -1, 276,
+ 277, 278, 279, 280, 281, 282, 283, 257, -1, -1,
+ -1, -1, -1, -1, 276, 277, 278, 279, 280, 281,
+ 282, 283, 257, -1, -1, -1, 276, 277, 278, 279,
+ 280, 281, 282, 283, 257, -1, -1, -1, 257, -1,
+ -1, 276, 277, 257, -1, 257, -1, 257, -1, 257,
+ -1, -1, -1, 276, 277, -1, -1, 276, 277, -1,
+ -1, -1, 276, 277, 276, 277, 276, 277, 276, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, 276, 277,
+ 278, 279, 280, 281, 282, 283, 33, -1, -1, -1,
+ 37, -1, -1, -1, 41, 42, 43, 33, 45, -1,
+ 47, 37, -1, -1, -1, -1, 42, 43, 44, 45,
+ -1, 47, -1, 60, -1, 62, -1, -1, -1, 33,
+ -1, -1, -1, 37, 60, -1, 62, 41, 42, 43,
+ 33, 45, -1, 47, 37, -1, -1, -1, -1, 42,
+ 43, 44, 45, -1, 47, -1, 60, 94, 62, -1,
+ -1, -1, 33, -1, -1, -1, 37, 60, 94, 62,
+ 41, 42, 43, 33, 45, -1, 47, 37, -1, -1,
+ -1, 41, 42, 43, 33, 45, -1, 47, 37, 60,
+ 94, 62, -1, 42, 43, 44, 45, -1, 47, -1,
+ 60, 94, 62, -1, -1, -1, 33, -1, -1, -1,
+ 37, 60, -1, 62, -1, 42, 43, 44, 45, -1,
+ 47, -1, -1, 94, -1, -1, -1, -1, 33, -1,
+ -1, -1, 37, 60, 94, 62, 41, 42, 43, 33,
+ 45, -1, 47, 37, -1, 94, -1, 41, 42, 43,
+ 33, 45, -1, 47, 37, 60, -1, 62, 41, 42,
+ 43, 33, 45, -1, 47, 37, 60, 94, 62, -1,
+ 42, 43, 44, 45, -1, 47, -1, 60, -1, 62,
+ -1, -1, -1, -1, -1, -1, -1, 33, 60, 94,
+ 62, 37, -1, -1, -1, 41, 42, 43, 33, 45,
+ 94, 47, 37, -1, -1, -1, 41, 42, 43, 33,
+ 45, 94, 47, 37, 60, -1, 62, -1, 42, 43,
+ 33, 45, 94, 47, 37, 60, -1, 62, -1, 42,
+ 43, -1, 45, -1, 47, -1, 60, -1, 62, 276,
+ 277, 278, 279, 280, 281, 282, 283, 60, 94, 62,
+ 276, 277, 278, 279, 280, 281, 282, 283, -1, 94,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 94, -1, 276, 277, 278, 279, 280, 281, 282, 283,
+ -1, 94, -1, 276, 277, 278, 279, 280, 281, 282,
+ 283, 40, -1, -1, -1, -1, 45, -1, -1, -1,
+ -1, -1, -1, -1, -1, 276, 277, 278, 279, 280,
+ 281, 282, 283, -1, -1, -1, 276, 277, 278, 279,
+ 280, 281, 282, 283, -1, -1, -1, 276, 277, 278,
+ 279, 280, 281, 282, 283, 40, -1, -1, -1, -1,
+ 45, -1, -1, -1, -1, -1, -1, -1, -1, 276,
+ 277, 278, 279, 280, 281, 282, 283, 40, -1, -1,
+ -1, -1, 45, -1, -1, -1, -1, -1, -1, -1,
+ -1, 276, 277, 278, 279, 280, 281, 282, 283, -1,
+ -1, -1, 276, 277, 278, 279, 280, 281, 282, 283,
+ -1, -1, -1, 276, 277, 278, 279, 280, 281, 282,
+ 283, -1, -1, -1, 276, 277, 278, 279, 280, 281,
+ 282, 283, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 276, 277, 278, 279, 280, 281, 282, 283, -1, -1,
+ -1, 276, 277, 278, 279, 280, 281, 282, 283, -1,
+ -1, -1, 276, 277, 278, 279, 280, 281, 282, 283,
+ -1, -1, -1, -1, 277, 278, 279, 280, 281, 282,
+ 283, 33, -1, -1, -1, 37, -1, -1, -1, -1,
+ 42, 43, -1, 45, -1, 47, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, 60, -1,
+ 62, -1, -1, -1, -1, -1, -1, 256, -1, -1,
+ 259, 260, 261, 262, 263, 264, 265, 266, 267, 268,
+ 269, 270, 271, 272, 273, 274, 275, -1, -1, -1,
+ -1, -1, 94, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, 259, 260, 261, 262, 263, 264,
+ 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
+ 275, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 263, 264, 265, 266, 267, 268, 269, 270, 271, 272,
+ 273, 274, 275, 19, 20, -1, -1, -1, -1, -1,
+ 26, 27, 28, 29, 30, 31, 32, 33, 34, 35,
+ 36, 37, -1, -1, -1, -1, -1, 43, 44, 45,
+ 46, 47, 48, 49, 50, 51, 52, 53, 54, 55,
+ 56, 57, 58, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 93, -1, -1,
+ 96, 97, -1, 99, -1, -1, 102, 103, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 113, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 278, 279, 280, 281,
+ 282, 283,
+};
+#define YYFINAL 21
+#ifndef YYDEBUG
+#define YYDEBUG 0
+#endif
+#define YYMAXTOKEN 284
+#define YYUNDFTOKEN 292
+#define YYTRANSLATE(a) ((a) > YYMAXTOKEN ? YYUNDFTOKEN : (a))
+#if YYDEBUG
+static const char *const yyname[] = {
+
+"end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+"'!'",0,0,0,"'%'",0,0,"'('","')'","'*'","'+'","','","'-'",0,"'/'",0,0,0,0,0,0,0,
+0,0,0,0,0,"'<'","'='","'>'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,"'^'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,0,0,0,0,0,0,0,0,"EOS","BAD","HELP","HEX","DECIMAL","QUIT","ABS","BIN","FIB",
+"GCD","KRON","LCM","LUCNUM","NEXTPRIME","POWM","ROOT","SQRT","NUMBER",
+"VARIABLE","LOR","LAND","EQ","NE","LE","GE","LSHIFT","RSHIFT","UMINUS",0,0,0,0,
+0,0,0,"illegal-symbol",
+};
+static const char *const yyrule[] = {
+"$accept : top",
+"top : statement",
+"top : statements statement",
+"statements : statement EOS",
+"statements : statements statement EOS",
+"statements : error EOS",
+"statement :",
+"statement : e",
+"statement : VARIABLE '=' e",
+"statement : HELP",
+"statement : HEX",
+"statement : DECIMAL",
+"statement : QUIT",
+"e : '(' e ')'",
+"e : e '+' e",
+"e : e '-' e",
+"e : e '*' e",
+"e : e '/' e",
+"e : e '%' e",
+"e : e '^' e",
+"e : e LSHIFT e",
+"e : e RSHIFT e",
+"e : e '!'",
+"e : '-' e",
+"e : e '<' e",
+"e : e LE e",
+"e : e EQ e",
+"e : e NE e",
+"e : e GE e",
+"e : e '>' e",
+"e : e LAND e",
+"e : e LOR e",
+"e : ABS '(' e ')'",
+"e : BIN '(' e ',' e ')'",
+"e : FIB '(' e ')'",
+"e : GCD '(' gcdlist ')'",
+"e : KRON '(' e ',' e ')'",
+"e : LCM '(' lcmlist ')'",
+"e : LUCNUM '(' e ')'",
+"e : NEXTPRIME '(' e ')'",
+"e : POWM '(' e ',' e ',' e ')'",
+"e : ROOT '(' e ',' e ')'",
+"e : SQRT '(' e ')'",
+"e : VARIABLE",
+"e : NUMBER",
+"gcdlist : e",
+"gcdlist : gcdlist ',' e",
+"lcmlist : e",
+"lcmlist : lcmlist ',' e",
+
+};
+#endif
+
+int yydebug;
+int yynerrs;
+
+int yyerrflag;
+int yychar;
+YYSTYPE yyval;
+YYSTYPE yylval;
+
+/* define the initial stack-sizes */
+#ifdef YYSTACKSIZE
+#undef YYMAXDEPTH
+#define YYMAXDEPTH YYSTACKSIZE
+#else
+#ifdef YYMAXDEPTH
+#define YYSTACKSIZE YYMAXDEPTH
+#else
+#define YYSTACKSIZE 10000
+#define YYMAXDEPTH 10000
+#endif
+#endif
+
+#define YYINITSTACKSIZE 200
+
+typedef struct {
+ unsigned stacksize;
+ YYINT *s_base;
+ YYINT *s_mark;
+ YYINT *s_last;
+ YYSTYPE *l_base;
+ YYSTYPE *l_mark;
+} YYSTACKDATA;
+/* variables for the parser stack */
+static YYSTACKDATA yystack;
+#line 265 "../../../gmp/demos/calc/calc.y"
+
+yyerror (char *s)
+{
+ fprintf (stderr, "%s\n", s);
+}
+
+int calc_option_readline = -1;
+
+int
+main (int argc, char *argv[])
+{
+ int i;
+
+ for (i = 1; i < argc; i++)
+ {
+ if (strcmp (argv[i], "--readline") == 0)
+ calc_option_readline = 1;
+ else if (strcmp (argv[i], "--noreadline") == 0)
+ calc_option_readline = 0;
+ else if (strcmp (argv[i], "--help") == 0)
+ {
+ printf ("Usage: calc [--option]...\n");
+ printf (" --readline use readline\n");
+ printf (" --noreadline don't use readline\n");
+ printf (" --help this message\n");
+ printf ("Readline is only available when compiled in,\n");
+ printf ("and in that case it's the default on a tty.\n");
+ exit (0);
+ }
+ else
+ {
+ fprintf (stderr, "Unrecognised option: %s\n", argv[i]);
+ exit (1);
+ }
+ }
+
+#if WITH_READLINE
+ calc_init_readline ();
+#else
+ if (calc_option_readline == 1)
+ {
+ fprintf (stderr, "Readline support not available\n");
+ exit (1);
+ }
+#endif
+
+ for (i = 0; i < numberof (variable); i++)
+ mpz_init (variable[i]);
+
+ for (i = 0; i < numberof (stack); i++)
+ mpz_init (stack[i]);
+
+ return yyparse ();
+}
+#line 710 "calc.c"
+
+#if YYDEBUG
+#include <stdio.h> /* needed for printf */
+#endif
+
+#include <stdlib.h> /* needed for malloc, etc */
+#include <string.h> /* needed for memset */
+
+/* allocate initial stack or double stack size, up to YYMAXDEPTH */
+static int yygrowstack(YYSTACKDATA *data)
+{
+ int i;
+ unsigned newsize;
+ YYINT *newss;
+ YYSTYPE *newvs;
+
+ if ((newsize = data->stacksize) == 0)
+ newsize = YYINITSTACKSIZE;
+ else if (newsize >= YYMAXDEPTH)
+ return YYENOMEM;
+ else if ((newsize *= 2) > YYMAXDEPTH)
+ newsize = YYMAXDEPTH;
+
+ i = (int) (data->s_mark - data->s_base);
+ newss = (YYINT *)realloc(data->s_base, newsize * sizeof(*newss));
+ if (newss == 0)
+ return YYENOMEM;
+
+ data->s_base = newss;
+ data->s_mark = newss + i;
+
+ newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs));
+ if (newvs == 0)
+ return YYENOMEM;
+
+ data->l_base = newvs;
+ data->l_mark = newvs + i;
+
+ data->stacksize = newsize;
+ data->s_last = data->s_base + newsize - 1;
+ return 0;
+}
+
+#if YYPURE || defined(YY_NO_LEAKS)
+static void yyfreestack(YYSTACKDATA *data)
+{
+ free(data->s_base);
+ free(data->l_base);
+ memset(data, 0, sizeof(*data));
+}
+#else
+#define yyfreestack(data) /* nothing */
+#endif
+
+#define YYABORT goto yyabort
+#define YYREJECT goto yyabort
+#define YYACCEPT goto yyaccept
+#define YYERROR goto yyerrlab
+
+int
+YYPARSE_DECL()
+{
+ int yym, yyn, yystate;
+#if YYDEBUG
+ const char *yys;
+
+ if ((yys = getenv("YYDEBUG")) != 0)
+ {
+ yyn = *yys;
+ if (yyn >= '0' && yyn <= '9')
+ yydebug = yyn - '0';
+ }
+#endif
+
+ yym = 0;
+ yyn = 0;
+ yynerrs = 0;
+ yyerrflag = 0;
+ yychar = YYEMPTY;
+ yystate = 0;
+
+#if YYPURE
+ memset(&yystack, 0, sizeof(yystack));
+#endif
+
+ if (yystack.s_base == NULL && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
+ yystack.s_mark = yystack.s_base;
+ yystack.l_mark = yystack.l_base;
+ yystate = 0;
+ *yystack.s_mark = 0;
+
+yyloop:
+ if ((yyn = yydefred[yystate]) != 0) goto yyreduce;
+ if (yychar < 0)
+ {
+ yychar = YYLEX;
+ if (yychar < 0) yychar = YYEOF;
+#if YYDEBUG
+ if (yydebug)
+ {
+ if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
+ printf("%sdebug: state %d, reading %d (%s)\n",
+ YYPREFIX, yystate, yychar, yys);
+ }
+#endif
+ }
+ if (((yyn = yysindex[yystate]) != 0) && (yyn += yychar) >= 0 &&
+ yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar)
+ {
+#if YYDEBUG
+ if (yydebug)
+ printf("%sdebug: state %d, shifting to state %d\n",
+ YYPREFIX, yystate, yytable[yyn]);
+#endif
+ if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
+ yystate = yytable[yyn];
+ *++yystack.s_mark = yytable[yyn];
+ *++yystack.l_mark = yylval;
+ yychar = YYEMPTY;
+ if (yyerrflag > 0) --yyerrflag;
+ goto yyloop;
+ }
+ if (((yyn = yyrindex[yystate]) != 0) && (yyn += yychar) >= 0 &&
+ yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar)
+ {
+ yyn = yytable[yyn];
+ goto yyreduce;
+ }
+ if (yyerrflag != 0) goto yyinrecovery;
+
+ YYERROR_CALL("syntax error");
+
+ goto yyerrlab; /* redundant goto avoids 'unused label' warning */
+yyerrlab:
+ ++yynerrs;
+
+yyinrecovery:
+ if (yyerrflag < 3)
+ {
+ yyerrflag = 3;
+ for (;;)
+ {
+ if (((yyn = yysindex[*yystack.s_mark]) != 0) && (yyn += YYERRCODE) >= 0 &&
+ yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) YYERRCODE)
+ {
+#if YYDEBUG
+ if (yydebug)
+ printf("%sdebug: state %d, error recovery shifting\
+ to state %d\n", YYPREFIX, *yystack.s_mark, yytable[yyn]);
+#endif
+ if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
+ yystate = yytable[yyn];
+ *++yystack.s_mark = yytable[yyn];
+ *++yystack.l_mark = yylval;
+ goto yyloop;
+ }
+ else
+ {
+#if YYDEBUG
+ if (yydebug)
+ printf("%sdebug: error recovery discarding state %d\n",
+ YYPREFIX, *yystack.s_mark);
+#endif
+ if (yystack.s_mark <= yystack.s_base) goto yyabort;
+ --yystack.s_mark;
+ --yystack.l_mark;
+ }
+ }
+ }
+ else
+ {
+ if (yychar == YYEOF) goto yyabort;
+#if YYDEBUG
+ if (yydebug)
+ {
+ if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
+ printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
+ YYPREFIX, yystate, yychar, yys);
+ }
+#endif
+ yychar = YYEMPTY;
+ goto yyloop;
+ }
+
+yyreduce:
+#if YYDEBUG
+ if (yydebug)
+ printf("%sdebug: state %d, reducing by rule %d (%s)\n",
+ YYPREFIX, yystate, yyn, yyrule[yyn]);
+#endif
+ yym = yylen[yyn];
+ if (yym > 0)
+ yyval = yystack.l_mark[1-yym];
+ else
+ memset(&yyval, 0, sizeof yyval);
+
+ switch (yyn)
+ {
+case 5:
+#line 173 "../../../gmp/demos/calc/calc.y"
+ { sp = stack[0]; yyerrok; }
+break;
+case 7:
+#line 177 "../../../gmp/demos/calc/calc.y"
+ {
+ mpz_out_str (stdout, obase, sp); putchar ('\n');
+ sp--;
+ CHECK_EMPTY ();
+ }
+break;
+case 8:
+#line 182 "../../../gmp/demos/calc/calc.y"
+ {
+ CHECK_VARIABLE (yystack.l_mark[-2].var);
+ mpz_swap (variable[yystack.l_mark[-2].var], sp);
+ sp--;
+ CHECK_EMPTY ();
+ }
+break;
+case 9:
+#line 188 "../../../gmp/demos/calc/calc.y"
+ { calc_help (); }
+break;
+case 10:
+#line 189 "../../../gmp/demos/calc/calc.y"
+ { ibase = 16; obase = -16; }
+break;
+case 11:
+#line 190 "../../../gmp/demos/calc/calc.y"
+ { ibase = 0; obase = 10; }
+break;
+case 12:
+#line 191 "../../../gmp/demos/calc/calc.y"
+ { exit (0); }
+break;
+case 14:
+#line 198 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_add (sp, sp, sp+1); }
+break;
+case 15:
+#line 199 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_sub (sp, sp, sp+1); }
+break;
+case 16:
+#line 200 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_mul (sp, sp, sp+1); }
+break;
+case 17:
+#line 201 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_fdiv_q (sp, sp, sp+1); }
+break;
+case 18:
+#line 202 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_fdiv_r (sp, sp, sp+1); }
+break;
+case 19:
+#line 203 "../../../gmp/demos/calc/calc.y"
+ { CHECK_UI ("Exponent", sp);
+ sp--; mpz_pow_ui (sp, sp, mpz_get_ui (sp+1)); }
+break;
+case 20:
+#line 205 "../../../gmp/demos/calc/calc.y"
+ { CHECK_UI ("Shift count", sp);
+ sp--; mpz_mul_2exp (sp, sp, mpz_get_ui (sp+1)); }
+break;
+case 21:
+#line 207 "../../../gmp/demos/calc/calc.y"
+ { CHECK_UI ("Shift count", sp);
+ sp--; mpz_fdiv_q_2exp (sp, sp, mpz_get_ui (sp+1)); }
+break;
+case 22:
+#line 209 "../../../gmp/demos/calc/calc.y"
+ { CHECK_UI ("Factorial", sp);
+ mpz_fac_ui (sp, mpz_get_ui (sp)); }
+break;
+case 23:
+#line 211 "../../../gmp/demos/calc/calc.y"
+ { mpz_neg (sp, sp); }
+break;
+case 24:
+#line 213 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) < 0); }
+break;
+case 25:
+#line 214 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) <= 0); }
+break;
+case 26:
+#line 215 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) == 0); }
+break;
+case 27:
+#line 216 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) != 0); }
+break;
+case 28:
+#line 217 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) >= 0); }
+break;
+case 29:
+#line 218 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) > 0); }
+break;
+case 30:
+#line 220 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_sgn (sp) && mpz_sgn (sp+1)); }
+break;
+case 31:
+#line 221 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_ui (sp, mpz_sgn (sp) || mpz_sgn (sp+1)); }
+break;
+case 32:
+#line 223 "../../../gmp/demos/calc/calc.y"
+ { mpz_abs (sp, sp); }
+break;
+case 33:
+#line 224 "../../../gmp/demos/calc/calc.y"
+ { sp--; CHECK_UI ("Binomial base", sp+1);
+ mpz_bin_ui (sp, sp, mpz_get_ui (sp+1)); }
+break;
+case 34:
+#line 226 "../../../gmp/demos/calc/calc.y"
+ { CHECK_UI ("Fibonacci", sp);
+ mpz_fib_ui (sp, mpz_get_ui (sp)); }
+break;
+case 36:
+#line 229 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_set_si (sp,
+ mpz_kronecker (sp, sp+1)); }
+break;
+case 38:
+#line 232 "../../../gmp/demos/calc/calc.y"
+ { CHECK_UI ("Lucas number", sp);
+ mpz_lucnum_ui (sp, mpz_get_ui (sp)); }
+break;
+case 39:
+#line 234 "../../../gmp/demos/calc/calc.y"
+ { mpz_nextprime (sp, sp); }
+break;
+case 40:
+#line 235 "../../../gmp/demos/calc/calc.y"
+ { sp -= 2; mpz_powm (sp, sp, sp+1, sp+2); }
+break;
+case 41:
+#line 236 "../../../gmp/demos/calc/calc.y"
+ { sp--; CHECK_UI ("Nth-root", sp+1);
+ mpz_root (sp, sp, mpz_get_ui (sp+1)); }
+break;
+case 42:
+#line 238 "../../../gmp/demos/calc/calc.y"
+ { mpz_sqrt (sp, sp); }
+break;
+case 43:
+#line 240 "../../../gmp/demos/calc/calc.y"
+ {
+ sp++;
+ CHECK_OVERFLOW ();
+ CHECK_VARIABLE (yystack.l_mark[0].var);
+ mpz_set (sp, variable[yystack.l_mark[0].var]);
+ }
+break;
+case 44:
+#line 246 "../../../gmp/demos/calc/calc.y"
+ {
+ sp++;
+ CHECK_OVERFLOW ();
+ if (mpz_set_str (sp, yystack.l_mark[0].str, ibase) != 0)
+ {
+ fprintf (stderr, "Invalid number: %s\n", yystack.l_mark[0].str);
+ YYERROR;
+ }
+ }
+break;
+case 46:
+#line 258 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_gcd (sp, sp, sp+1); }
+break;
+case 48:
+#line 262 "../../../gmp/demos/calc/calc.y"
+ { sp--; mpz_lcm (sp, sp, sp+1); }
+break;
+#line 1092 "calc.c"
+ }
+ yystack.s_mark -= yym;
+ yystate = *yystack.s_mark;
+ yystack.l_mark -= yym;
+ yym = yylhs[yyn];
+ if (yystate == 0 && yym == 0)
+ {
+#if YYDEBUG
+ if (yydebug)
+ printf("%sdebug: after reduction, shifting from state 0 to\
+ state %d\n", YYPREFIX, YYFINAL);
+#endif
+ yystate = YYFINAL;
+ *++yystack.s_mark = YYFINAL;
+ *++yystack.l_mark = yyval;
+ if (yychar < 0)
+ {
+ yychar = YYLEX;
+ if (yychar < 0) yychar = YYEOF;
+#if YYDEBUG
+ if (yydebug)
+ {
+ if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
+ printf("%sdebug: state %d, reading %d (%s)\n",
+ YYPREFIX, YYFINAL, yychar, yys);
+ }
+#endif
+ }
+ if (yychar == YYEOF) goto yyaccept;
+ goto yyloop;
+ }
+ if (((yyn = yygindex[yym]) != 0) && (yyn += yystate) >= 0 &&
+ yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yystate)
+ yystate = yytable[yyn];
+ else
+ yystate = yydgoto[yym];
+#if YYDEBUG
+ if (yydebug)
+ printf("%sdebug: after reduction, shifting from state %d \
+to state %d\n", YYPREFIX, *yystack.s_mark, yystate);
+#endif
+ if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
+ *++yystack.s_mark = (YYINT) yystate;
+ *++yystack.l_mark = yyval;
+ goto yyloop;
+
+yyoverflow:
+ YYERROR_CALL("yacc stack overflow");
+
+yyabort:
+ yyfreestack(&yystack);
+ return (1);
+
+yyaccept:
+ yyfreestack(&yystack);
+ return (0);
+}