calc.c revision 1.1.1.4
1 /* original parser id follows */ 2 /* yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93" */ 3 /* (use YYMAJOR/YYMINOR for ifdefs dependent on parser version) */ 4 5 #define YYBYACC 1 6 #define YYMAJOR 1 7 #define YYMINOR 9 8 #define YYPATCH 20170201 9 10 #define YYEMPTY (-1) 11 #define yyclearin (yychar = YYEMPTY) 12 #define yyerrok (yyerrflag = 0) 13 #define YYRECOVERING() (yyerrflag != 0) 14 #define YYENOMEM (-2) 15 #define YYEOF 0 16 #define YYPREFIX "yy" 17 18 #define YYPURE 0 19 20 #line 2 "../../../gmp/demos/calc/calc.y" 21 /* A simple integer desk calculator using yacc and gmp. 22 23 Copyright 2000-2002 Free Software Foundation, Inc. 24 25 This file is part of the GNU MP Library. 26 27 This program is free software; you can redistribute it and/or modify it under 28 the terms of the GNU General Public License as published by the Free Software 29 Foundation; either version 3 of the License, or (at your option) any later 30 version. 31 32 This program is distributed in the hope that it will be useful, but WITHOUT ANY 33 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A 34 PARTICULAR PURPOSE. See the GNU General Public License for more details. 35 36 You should have received a copy of the GNU General Public License along with 37 this program. If not, see https://www.gnu.org/licenses/. */ 38 39 40 /* This is a simple program, meant only to show one way to use GMP for this 41 sort of thing. There's few features, and error checking is minimal. 42 Standard input is read, calc_help() below shows the inputs accepted. 43 44 Expressions are evaluated as they're read. If user defined functions 45 were wanted it'd be necessary to build a parse tree like pexpr.c does, or 46 a list of operations for a stack based evaluator. That would also make 47 it possible to detect and optimize evaluations "mod m" like pexpr.c does. 48 49 A stack is used for intermediate values in the expression evaluation, 50 separate from the yacc parser stack. This is simple, makes error 51 recovery easy, minimizes the junk around mpz calls in the rules, and 52 saves initializing or clearing "mpz_t"s during a calculation. A 53 disadvantage though is that variables must be copied to the stack to be 54 worked on. A more sophisticated calculator or language system might be 55 able to avoid that when executing a compiled or semi-compiled form. 56 57 Avoiding repeated initializing and clearing of "mpz_t"s is important. In 58 this program the time spent parsing is obviously much greater than any 59 possible saving from this, but a proper calculator or language should 60 take some trouble over it. Don't be surprised if an init/clear takes 3 61 or more times as long as a 10 limb addition, depending on the system (see 62 the mpz_init_realloc_clear example in tune/README). */ 63 64 65 #include <stdio.h> 66 #include <stdlib.h> 67 #include <string.h> 68 #include "gmp.h" 69 #define NO_CALC_H /* because it conflicts with normal calc.c stuff */ 70 #include "calc-common.h" 71 72 73 #define numberof(x) (sizeof (x) / sizeof ((x)[0])) 74 75 76 void 77 calc_help (void) 78 { 79 printf ("Examples:\n"); 80 printf (" 2+3*4 expressions are evaluated\n"); 81 printf (" x=5^6 variables a to z can be set and used\n"); 82 printf ("Operators:\n"); 83 printf (" + - * arithmetic\n"); 84 printf (" / %% division and remainder (rounding towards negative infinity)\n"); 85 printf (" ^ exponentiation\n"); 86 printf (" ! factorial\n"); 87 printf (" << >> left and right shifts\n"); 88 printf (" <= >= > \\ comparisons, giving 1 if true, 0 if false\n"); 89 printf (" == != < /\n"); 90 printf (" && || logical and/or, giving 1 if true, 0 if false\n"); 91 printf ("Functions:\n"); 92 printf (" abs(n) absolute value\n"); 93 printf (" bin(n,m) binomial coefficient\n"); 94 printf (" fib(n) fibonacci number\n"); 95 printf (" gcd(a,b,..) greatest common divisor\n"); 96 printf (" kron(a,b) kronecker symbol\n"); 97 printf (" lcm(a,b,..) least common multiple\n"); 98 printf (" lucnum(n) lucas number\n"); 99 printf (" nextprime(n) next prime after n\n"); 100 printf (" powm(b,e,m) modulo powering, b^e%%m\n"); 101 printf (" root(n,r) r-th root\n"); 102 printf (" sqrt(n) square root\n"); 103 printf ("Other:\n"); 104 printf (" hex \\ set hex or decimal for input and output\n"); 105 printf (" decimal / (\"0x\" can be used for hex too)\n"); 106 printf (" quit exit program (EOF works too)\n"); 107 printf (" ; statements are separated with a ; or newline\n"); 108 printf (" \\ continue expressions with \\ before newline\n"); 109 printf (" # xxx comments are # though to newline\n"); 110 printf ("Hex numbers must be entered in upper case, to distinguish them from the\n"); 111 printf ("variables a to f (like in bc).\n"); 112 } 113 114 115 int ibase = 0; 116 int obase = 10; 117 118 119 /* The stack is a fixed size, which means there's a limit on the nesting 120 allowed in expressions. A more sophisticated program could let it grow 121 dynamically. */ 122 123 mpz_t stack[100]; 124 mpz_ptr sp = stack[0]; 125 126 #define CHECK_OVERFLOW() \ 127 if (sp >= stack[numberof(stack)]) /* FIXME */ \ 128 { \ 129 fprintf (stderr, \ 130 "Value stack overflow, too much nesting in expression\n"); \ 131 YYERROR; \ 132 } 133 134 #define CHECK_EMPTY() \ 135 if (sp != stack[0]) \ 136 { \ 137 fprintf (stderr, "Oops, expected the value stack to be empty\n"); \ 138 sp = stack[0]; \ 139 } 140 141 142 mpz_t variable[26]; 143 144 #define CHECK_VARIABLE(var) \ 145 if ((var) < 0 || (var) >= numberof (variable)) \ 146 { \ 147 fprintf (stderr, "Oops, bad variable somehow: %d\n", var); \ 148 YYERROR; \ 149 } 150 151 152 #define CHECK_UI(name,z) \ 153 if (! mpz_fits_ulong_p (z)) \ 154 { \ 155 fprintf (stderr, "%s too big\n", name); \ 156 YYERROR; \ 157 } 158 159 #ifdef YYSTYPE 160 #undef YYSTYPE_IS_DECLARED 161 #define YYSTYPE_IS_DECLARED 1 162 #endif 163 #ifndef YYSTYPE_IS_DECLARED 164 #define YYSTYPE_IS_DECLARED 1 165 #line 142 "../../../gmp/demos/calc/calc.y" 166 typedef union { 167 char *str; 168 int var; 169 } YYSTYPE; 170 #endif /* !YYSTYPE_IS_DECLARED */ 171 #line 172 "calc.c" 172 173 /* compatibility with bison */ 174 #ifdef YYPARSE_PARAM 175 /* compatibility with FreeBSD */ 176 # ifdef YYPARSE_PARAM_TYPE 177 # define YYPARSE_DECL() yyparse(YYPARSE_PARAM_TYPE YYPARSE_PARAM) 178 # else 179 # define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM) 180 # endif 181 #else 182 # define YYPARSE_DECL() yyparse(void) 183 #endif 184 185 /* Parameters sent to lex. */ 186 #ifdef YYLEX_PARAM 187 # define YYLEX_DECL() yylex(void *YYLEX_PARAM) 188 # define YYLEX yylex(YYLEX_PARAM) 189 #else 190 # define YYLEX_DECL() yylex(void) 191 # define YYLEX yylex() 192 #endif 193 194 /* Parameters sent to yyerror. */ 195 #ifndef YYERROR_DECL 196 #define YYERROR_DECL() yyerror(const char *s) 197 #endif 198 #ifndef YYERROR_CALL 199 #define YYERROR_CALL(msg) yyerror(msg) 200 #endif 201 202 extern int YYPARSE_DECL(); 203 204 #define EOS 257 205 #define BAD 258 206 #define HELP 259 207 #define HEX 260 208 #define DECIMAL 261 209 #define QUIT 262 210 #define ABS 263 211 #define BIN 264 212 #define FIB 265 213 #define GCD 266 214 #define KRON 267 215 #define LCM 268 216 #define LUCNUM 269 217 #define NEXTPRIME 270 218 #define POWM 271 219 #define ROOT 272 220 #define SQRT 273 221 #define NUMBER 274 222 #define VARIABLE 275 223 #define LOR 276 224 #define LAND 277 225 #define EQ 278 226 #define NE 279 227 #define LE 280 228 #define GE 281 229 #define LSHIFT 282 230 #define RSHIFT 283 231 #define UMINUS 284 232 #define YYERRCODE 256 233 typedef int YYINT; 234 static const YYINT yylhs[] = { -1, 235 0, 0, 2, 2, 2, 1, 1, 1, 1, 1, 236 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 237 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 238 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 239 3, 3, 3, 3, 4, 4, 5, 5, 240 }; 241 static const YYINT yylen[] = { 2, 242 1, 2, 2, 3, 2, 0, 1, 3, 1, 1, 243 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 244 3, 2, 2, 3, 3, 3, 3, 3, 3, 3, 245 3, 4, 6, 4, 4, 6, 4, 4, 4, 8, 246 6, 4, 1, 1, 1, 3, 1, 3, 247 }; 248 static const YYINT yydefred[] = { 0, 249 0, 9, 10, 11, 12, 0, 0, 0, 0, 0, 250 0, 0, 0, 0, 0, 0, 44, 0, 0, 0, 251 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 252 0, 0, 0, 0, 0, 0, 0, 43, 0, 0, 253 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 254 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 255 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 256 0, 0, 0, 13, 4, 0, 0, 0, 0, 0, 257 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 258 0, 32, 0, 34, 35, 0, 0, 37, 0, 38, 259 39, 0, 0, 42, 0, 0, 0, 0, 0, 0, 260 33, 36, 0, 41, 0, 40, 261 }; 262 static const YYINT yydgoto[] = { 21, 263 22, 23, 24, 64, 67, 264 }; 265 static const YYINT yysindex[] = { 742, 266 -257, 0, 0, 0, 0, -22, -20, -17, -5, 5, 267 18, 20, 22, 25, 28, 29, 0, -54, 808, 808, 268 0, -244, 786, 667, 0, 808, 808, 808, 808, 808, 269 808, 808, 808, 808, 808, 808, 808, 0, -27, 203, 270 0, -217, 808, 808, 808, 808, 808, 808, 808, 808, 271 808, 808, 808, 808, 808, 808, 808, 808, 0, 454, 272 465, 487, 667, -33, 498, 667, -16, 520, 531, 542, 273 564, 586, 667, 0, 0, 678, 929, -28, -28, -28, 274 -28, -28, -28, -21, -21, -6, -6, -27, -27, -27, 275 -27, 0, 808, 0, 0, 808, 808, 0, 808, 0, 276 0, 808, 808, 0, 597, 667, 608, 667, 619, 645, 277 0, 0, 808, 0, 656, 0, 278 }; 279 static const YYINT yyrindex[] = { 2, 280 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 281 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 282 0, 50, 2, 3, 0, 0, 0, 0, 0, 0, 283 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 284 0, 71, 0, 0, 0, 0, 0, 0, 0, 0, 285 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 286 0, 0, -12, 0, 0, -11, 0, 0, 0, 0, 287 0, 0, 4, 0, 0, 193, 64, 166, 178, 182, 288 187, 189, 191, 139, 151, 112, 124, 37, 49, 76, 289 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 290 0, 0, 0, 0, 0, -2, 0, 15, 0, 0, 291 0, 0, 0, 0, 0, 0, 292 }; 293 static const YYINT yygindex[] = { 0, 294 52, 0, 1065, 0, 0, 295 }; 296 #define YYTABLESIZE 1212 297 static const YYINT yytable[] = { 25, 298 43, 6, 7, 8, 59, 59, 37, 95, 57, 23, 299 96, 59, 41, 55, 53, 57, 54, 26, 56, 27, 300 55, 53, 28, 54, 98, 56, 59, 99, 45, 47, 301 57, 45, 47, 43, 29, 55, 16, 43, 46, 75, 302 56, 46, 43, 43, 30, 43, 23, 43, 17, 1, 303 23, 23, 23, 23, 23, 48, 23, 31, 48, 32, 304 43, 33, 43, 30, 34, 58, 58, 35, 36, 23, 305 2, 23, 58, 16, 42, 18, 0, 16, 16, 16, 306 16, 16, 0, 16, 19, 17, 0, 58, 0, 17, 307 17, 17, 17, 17, 43, 17, 16, 0, 16, 0, 308 0, 0, 0, 0, 30, 0, 0, 30, 17, 0, 309 17, 14, 18, 0, 0, 0, 18, 18, 18, 18, 310 18, 19, 18, 15, 0, 19, 19, 19, 19, 19, 311 0, 19, 0, 0, 0, 18, 0, 18, 20, 0, 312 0, 0, 0, 0, 19, 0, 19, 0, 0, 0, 313 21, 0, 14, 0, 14, 14, 14, 0, 0, 0, 314 0, 0, 0, 0, 15, 24, 15, 15, 15, 0, 315 0, 14, 0, 14, 0, 0, 0, 29, 0, 20, 316 0, 26, 20, 15, 0, 15, 27, 0, 25, 0, 317 28, 21, 31, 0, 21, 0, 0, 0, 20, 0, 318 20, 0, 0, 0, 0, 0, 24, 0, 0, 24, 319 21, 0, 21, 0, 0, 0, 0, 0, 29, 0, 320 0, 29, 26, 0, 0, 26, 0, 27, 0, 25, 321 27, 28, 25, 31, 28, 59, 31, 0, 0, 57, 322 0, 0, 0, 74, 55, 53, 0, 54, 0, 56, 323 0, 0, 0, 51, 52, 0, 0, 43, 6, 7, 324 8, 0, 45, 0, 46, 0, 23, 0, 0, 0, 325 0, 0, 0, 0, 0, 0, 43, 43, 43, 43, 326 43, 43, 43, 43, 0, 23, 23, 23, 23, 23, 327 23, 23, 23, 16, 0, 0, 58, 0, 0, 0, 328 0, 0, 0, 0, 0, 17, 0, 0, 0, 0, 329 0, 0, 16, 16, 16, 16, 16, 16, 16, 16, 330 30, 0, 0, 0, 17, 17, 17, 17, 17, 17, 331 17, 17, 18, 0, 0, 0, 0, 0, 0, 30, 332 30, 19, 0, 0, 0, 0, 0, 0, 0, 0, 333 0, 18, 18, 18, 18, 18, 18, 18, 18, 0, 334 19, 19, 19, 19, 19, 19, 19, 19, 14, 0, 335 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 336 15, 0, 0, 0, 0, 0, 0, 14, 14, 14, 337 14, 14, 14, 14, 14, 20, 0, 0, 0, 15, 338 15, 15, 15, 15, 15, 15, 15, 21, 0, 0, 339 0, 0, 0, 0, 20, 20, 20, 20, 20, 20, 340 20, 20, 24, 0, 0, 0, 21, 21, 21, 21, 341 21, 21, 21, 21, 29, 0, 0, 0, 26, 0, 342 0, 24, 24, 27, 0, 25, 0, 28, 0, 31, 343 0, 0, 0, 29, 29, 0, 0, 26, 26, 0, 344 0, 0, 27, 27, 25, 25, 28, 28, 31, 0, 345 0, 0, 0, 0, 0, 0, 0, 0, 43, 44, 346 47, 48, 49, 50, 51, 52, 59, 0, 0, 0, 347 57, 0, 0, 0, 92, 55, 53, 59, 54, 0, 348 56, 57, 0, 0, 0, 0, 55, 53, 93, 54, 349 0, 56, 0, 45, 0, 46, 0, 0, 0, 59, 350 0, 0, 0, 57, 45, 0, 46, 94, 55, 53, 351 59, 54, 0, 56, 57, 0, 0, 0, 0, 55, 352 53, 97, 54, 0, 56, 0, 45, 58, 46, 0, 353 0, 0, 59, 0, 0, 0, 57, 45, 58, 46, 354 100, 55, 53, 59, 54, 0, 56, 57, 0, 0, 355 0, 101, 55, 53, 59, 54, 0, 56, 57, 45, 356 58, 46, 0, 55, 53, 102, 54, 0, 56, 0, 357 45, 58, 46, 0, 0, 0, 59, 0, 0, 0, 358 57, 45, 0, 46, 0, 55, 53, 103, 54, 0, 359 56, 0, 0, 58, 0, 0, 0, 0, 59, 0, 360 0, 0, 57, 45, 58, 46, 104, 55, 53, 59, 361 54, 0, 56, 57, 0, 58, 0, 111, 55, 53, 362 59, 54, 0, 56, 57, 45, 0, 46, 112, 55, 363 53, 59, 54, 0, 56, 57, 45, 58, 46, 0, 364 55, 53, 113, 54, 0, 56, 0, 45, 0, 46, 365 0, 0, 0, 0, 0, 0, 0, 59, 45, 58, 366 46, 57, 0, 0, 0, 114, 55, 53, 59, 54, 367 58, 56, 57, 0, 0, 0, 116, 55, 53, 59, 368 54, 58, 56, 57, 45, 0, 46, 0, 55, 53, 369 59, 54, 58, 56, 57, 45, 0, 46, 0, 55, 370 53, 0, 54, 0, 56, 0, 45, 0, 46, 43, 371 44, 47, 48, 49, 50, 51, 52, 45, 58, 46, 372 43, 44, 47, 48, 49, 50, 51, 52, 0, 58, 373 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 374 58, 0, 43, 44, 47, 48, 49, 50, 51, 52, 375 0, 58, 0, 43, 44, 47, 48, 49, 50, 51, 376 52, 20, 0, 0, 0, 0, 19, 0, 0, 0, 377 0, 0, 0, 0, 0, 43, 44, 47, 48, 49, 378 50, 51, 52, 0, 0, 0, 43, 44, 47, 48, 379 49, 50, 51, 52, 0, 0, 0, 43, 44, 47, 380 48, 49, 50, 51, 52, 20, 0, 0, 0, 0, 381 19, 0, 0, 0, 0, 0, 0, 0, 0, 43, 382 44, 47, 48, 49, 50, 51, 52, 20, 0, 0, 383 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, 384 0, 43, 44, 47, 48, 49, 50, 51, 52, 0, 385 0, 0, 43, 44, 47, 48, 49, 50, 51, 52, 386 0, 0, 0, 43, 44, 47, 48, 49, 50, 51, 387 52, 0, 0, 0, 43, 44, 47, 48, 49, 50, 388 51, 52, 0, 0, 0, 0, 0, 0, 0, 0, 389 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 390 43, 44, 47, 48, 49, 50, 51, 52, 0, 0, 391 0, 43, 44, 47, 48, 49, 50, 51, 52, 0, 392 0, 0, 43, 44, 47, 48, 49, 50, 51, 52, 393 0, 0, 0, 0, 44, 47, 48, 49, 50, 51, 394 52, 59, 0, 0, 0, 57, 0, 0, 0, 0, 395 55, 53, 0, 54, 0, 56, 0, 0, 0, 0, 396 0, 0, 0, 0, 0, 0, 0, 0, 45, 0, 397 46, 0, 0, 0, 0, 0, 0, 1, 0, 0, 398 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 399 12, 13, 14, 15, 16, 17, 18, 0, 0, 0, 400 0, 0, 58, 0, 0, 0, 0, 0, 0, 0, 401 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 402 0, 0, 0, 0, 2, 3, 4, 5, 6, 7, 403 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 404 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 405 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 406 16, 17, 38, 39, 40, 0, 0, 0, 0, 0, 407 60, 61, 62, 63, 65, 66, 68, 69, 70, 71, 408 72, 73, 0, 0, 0, 0, 0, 76, 77, 78, 409 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 410 89, 90, 91, 0, 0, 0, 0, 0, 0, 0, 411 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 412 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 413 0, 0, 0, 0, 0, 0, 0, 105, 0, 0, 414 106, 107, 0, 108, 0, 0, 109, 110, 0, 0, 415 0, 0, 0, 0, 0, 0, 0, 115, 0, 0, 416 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 417 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 418 0, 0, 0, 0, 0, 0, 47, 48, 49, 50, 419 51, 52, 420 }; 421 static const YYINT yycheck[] = { 257, 422 0, 0, 0, 0, 33, 33, 61, 41, 37, 0, 423 44, 33, 257, 42, 43, 37, 45, 40, 47, 40, 424 42, 43, 40, 45, 41, 47, 33, 44, 41, 41, 425 37, 44, 44, 33, 40, 42, 0, 37, 41, 257, 426 47, 44, 42, 43, 40, 45, 37, 47, 0, 0, 427 41, 42, 43, 44, 45, 41, 47, 40, 44, 40, 428 60, 40, 62, 0, 40, 94, 94, 40, 40, 60, 429 0, 62, 94, 37, 23, 0, -1, 41, 42, 43, 430 44, 45, -1, 47, 0, 37, -1, 94, -1, 41, 431 42, 43, 44, 45, 94, 47, 60, -1, 62, -1, 432 -1, -1, -1, -1, 41, -1, -1, 44, 60, -1, 433 62, 0, 37, -1, -1, -1, 41, 42, 43, 44, 434 45, 37, 47, 0, -1, 41, 42, 43, 44, 45, 435 -1, 47, -1, -1, -1, 60, -1, 62, 0, -1, 436 -1, -1, -1, -1, 60, -1, 62, -1, -1, -1, 437 0, -1, 41, -1, 43, 44, 45, -1, -1, -1, 438 -1, -1, -1, -1, 41, 0, 43, 44, 45, -1, 439 -1, 60, -1, 62, -1, -1, -1, 0, -1, 41, 440 -1, 0, 44, 60, -1, 62, 0, -1, 0, -1, 441 0, 41, 0, -1, 44, -1, -1, -1, 60, -1, 442 62, -1, -1, -1, -1, -1, 41, -1, -1, 44, 443 60, -1, 62, -1, -1, -1, -1, -1, 41, -1, 444 -1, 44, 41, -1, -1, 44, -1, 41, -1, 41, 445 44, 41, 44, 41, 44, 33, 44, -1, -1, 37, 446 -1, -1, -1, 41, 42, 43, -1, 45, -1, 47, 447 -1, -1, -1, 282, 283, -1, -1, 257, 257, 257, 448 257, -1, 60, -1, 62, -1, 257, -1, -1, -1, 449 -1, -1, -1, -1, -1, -1, 276, 277, 278, 279, 450 280, 281, 282, 283, -1, 276, 277, 278, 279, 280, 451 281, 282, 283, 257, -1, -1, 94, -1, -1, -1, 452 -1, -1, -1, -1, -1, 257, -1, -1, -1, -1, 453 -1, -1, 276, 277, 278, 279, 280, 281, 282, 283, 454 257, -1, -1, -1, 276, 277, 278, 279, 280, 281, 455 282, 283, 257, -1, -1, -1, -1, -1, -1, 276, 456 277, 257, -1, -1, -1, -1, -1, -1, -1, -1, 457 -1, 276, 277, 278, 279, 280, 281, 282, 283, -1, 458 276, 277, 278, 279, 280, 281, 282, 283, 257, -1, 459 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 460 257, -1, -1, -1, -1, -1, -1, 276, 277, 278, 461 279, 280, 281, 282, 283, 257, -1, -1, -1, 276, 462 277, 278, 279, 280, 281, 282, 283, 257, -1, -1, 463 -1, -1, -1, -1, 276, 277, 278, 279, 280, 281, 464 282, 283, 257, -1, -1, -1, 276, 277, 278, 279, 465 280, 281, 282, 283, 257, -1, -1, -1, 257, -1, 466 -1, 276, 277, 257, -1, 257, -1, 257, -1, 257, 467 -1, -1, -1, 276, 277, -1, -1, 276, 277, -1, 468 -1, -1, 276, 277, 276, 277, 276, 277, 276, -1, 469 -1, -1, -1, -1, -1, -1, -1, -1, 276, 277, 470 278, 279, 280, 281, 282, 283, 33, -1, -1, -1, 471 37, -1, -1, -1, 41, 42, 43, 33, 45, -1, 472 47, 37, -1, -1, -1, -1, 42, 43, 44, 45, 473 -1, 47, -1, 60, -1, 62, -1, -1, -1, 33, 474 -1, -1, -1, 37, 60, -1, 62, 41, 42, 43, 475 33, 45, -1, 47, 37, -1, -1, -1, -1, 42, 476 43, 44, 45, -1, 47, -1, 60, 94, 62, -1, 477 -1, -1, 33, -1, -1, -1, 37, 60, 94, 62, 478 41, 42, 43, 33, 45, -1, 47, 37, -1, -1, 479 -1, 41, 42, 43, 33, 45, -1, 47, 37, 60, 480 94, 62, -1, 42, 43, 44, 45, -1, 47, -1, 481 60, 94, 62, -1, -1, -1, 33, -1, -1, -1, 482 37, 60, -1, 62, -1, 42, 43, 44, 45, -1, 483 47, -1, -1, 94, -1, -1, -1, -1, 33, -1, 484 -1, -1, 37, 60, 94, 62, 41, 42, 43, 33, 485 45, -1, 47, 37, -1, 94, -1, 41, 42, 43, 486 33, 45, -1, 47, 37, 60, -1, 62, 41, 42, 487 43, 33, 45, -1, 47, 37, 60, 94, 62, -1, 488 42, 43, 44, 45, -1, 47, -1, 60, -1, 62, 489 -1, -1, -1, -1, -1, -1, -1, 33, 60, 94, 490 62, 37, -1, -1, -1, 41, 42, 43, 33, 45, 491 94, 47, 37, -1, -1, -1, 41, 42, 43, 33, 492 45, 94, 47, 37, 60, -1, 62, -1, 42, 43, 493 33, 45, 94, 47, 37, 60, -1, 62, -1, 42, 494 43, -1, 45, -1, 47, -1, 60, -1, 62, 276, 495 277, 278, 279, 280, 281, 282, 283, 60, 94, 62, 496 276, 277, 278, 279, 280, 281, 282, 283, -1, 94, 497 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 498 94, -1, 276, 277, 278, 279, 280, 281, 282, 283, 499 -1, 94, -1, 276, 277, 278, 279, 280, 281, 282, 500 283, 40, -1, -1, -1, -1, 45, -1, -1, -1, 501 -1, -1, -1, -1, -1, 276, 277, 278, 279, 280, 502 281, 282, 283, -1, -1, -1, 276, 277, 278, 279, 503 280, 281, 282, 283, -1, -1, -1, 276, 277, 278, 504 279, 280, 281, 282, 283, 40, -1, -1, -1, -1, 505 45, -1, -1, -1, -1, -1, -1, -1, -1, 276, 506 277, 278, 279, 280, 281, 282, 283, 40, -1, -1, 507 -1, -1, 45, -1, -1, -1, -1, -1, -1, -1, 508 -1, 276, 277, 278, 279, 280, 281, 282, 283, -1, 509 -1, -1, 276, 277, 278, 279, 280, 281, 282, 283, 510 -1, -1, -1, 276, 277, 278, 279, 280, 281, 282, 511 283, -1, -1, -1, 276, 277, 278, 279, 280, 281, 512 282, 283, -1, -1, -1, -1, -1, -1, -1, -1, 513 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 514 276, 277, 278, 279, 280, 281, 282, 283, -1, -1, 515 -1, 276, 277, 278, 279, 280, 281, 282, 283, -1, 516 -1, -1, 276, 277, 278, 279, 280, 281, 282, 283, 517 -1, -1, -1, -1, 277, 278, 279, 280, 281, 282, 518 283, 33, -1, -1, -1, 37, -1, -1, -1, -1, 519 42, 43, -1, 45, -1, 47, -1, -1, -1, -1, 520 -1, -1, -1, -1, -1, -1, -1, -1, 60, -1, 521 62, -1, -1, -1, -1, -1, -1, 256, -1, -1, 522 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 523 269, 270, 271, 272, 273, 274, 275, -1, -1, -1, 524 -1, -1, 94, -1, -1, -1, -1, -1, -1, -1, 525 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 526 -1, -1, -1, -1, 259, 260, 261, 262, 263, 264, 527 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 528 275, -1, -1, -1, -1, -1, -1, -1, -1, -1, 529 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 530 273, 274, 275, 19, 20, -1, -1, -1, -1, -1, 531 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 532 36, 37, -1, -1, -1, -1, -1, 43, 44, 45, 533 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 534 56, 57, 58, -1, -1, -1, -1, -1, -1, -1, 535 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 536 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 537 -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, 538 96, 97, -1, 99, -1, -1, 102, 103, -1, -1, 539 -1, -1, -1, -1, -1, -1, -1, 113, -1, -1, 540 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 541 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 542 -1, -1, -1, -1, -1, -1, 278, 279, 280, 281, 543 282, 283, 544 }; 545 #define YYFINAL 21 546 #ifndef YYDEBUG 547 #define YYDEBUG 0 548 #endif 549 #define YYMAXTOKEN 284 550 #define YYUNDFTOKEN 292 551 #define YYTRANSLATE(a) ((a) > YYMAXTOKEN ? YYUNDFTOKEN : (a)) 552 #if YYDEBUG 553 static const char *const yyname[] = { 554 555 "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, 556 "'!'",0,0,0,"'%'",0,0,"'('","')'","'*'","'+'","','","'-'",0,"'/'",0,0,0,0,0,0,0, 557 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, 558 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, 559 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, 560 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, 561 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, 562 0,0,0,0,0,0,0,0,0,0,"EOS","BAD","HELP","HEX","DECIMAL","QUIT","ABS","BIN","FIB", 563 "GCD","KRON","LCM","LUCNUM","NEXTPRIME","POWM","ROOT","SQRT","NUMBER", 564 "VARIABLE","LOR","LAND","EQ","NE","LE","GE","LSHIFT","RSHIFT","UMINUS",0,0,0,0, 565 0,0,0,"illegal-symbol", 566 }; 567 static const char *const yyrule[] = { 568 "$accept : top", 569 "top : statement", 570 "top : statements statement", 571 "statements : statement EOS", 572 "statements : statements statement EOS", 573 "statements : error EOS", 574 "statement :", 575 "statement : e", 576 "statement : VARIABLE '=' e", 577 "statement : HELP", 578 "statement : HEX", 579 "statement : DECIMAL", 580 "statement : QUIT", 581 "e : '(' e ')'", 582 "e : e '+' e", 583 "e : e '-' e", 584 "e : e '*' e", 585 "e : e '/' e", 586 "e : e '%' e", 587 "e : e '^' e", 588 "e : e LSHIFT e", 589 "e : e RSHIFT e", 590 "e : e '!'", 591 "e : '-' e", 592 "e : e '<' e", 593 "e : e LE e", 594 "e : e EQ e", 595 "e : e NE e", 596 "e : e GE e", 597 "e : e '>' e", 598 "e : e LAND e", 599 "e : e LOR e", 600 "e : ABS '(' e ')'", 601 "e : BIN '(' e ',' e ')'", 602 "e : FIB '(' e ')'", 603 "e : GCD '(' gcdlist ')'", 604 "e : KRON '(' e ',' e ')'", 605 "e : LCM '(' lcmlist ')'", 606 "e : LUCNUM '(' e ')'", 607 "e : NEXTPRIME '(' e ')'", 608 "e : POWM '(' e ',' e ',' e ')'", 609 "e : ROOT '(' e ',' e ')'", 610 "e : SQRT '(' e ')'", 611 "e : VARIABLE", 612 "e : NUMBER", 613 "gcdlist : e", 614 "gcdlist : gcdlist ',' e", 615 "lcmlist : e", 616 "lcmlist : lcmlist ',' e", 617 618 }; 619 #endif 620 621 int yydebug; 622 int yynerrs; 623 624 int yyerrflag; 625 int yychar; 626 YYSTYPE yyval; 627 YYSTYPE yylval; 628 629 /* define the initial stack-sizes */ 630 #ifdef YYSTACKSIZE 631 #undef YYMAXDEPTH 632 #define YYMAXDEPTH YYSTACKSIZE 633 #else 634 #ifdef YYMAXDEPTH 635 #define YYSTACKSIZE YYMAXDEPTH 636 #else 637 #define YYSTACKSIZE 10000 638 #define YYMAXDEPTH 10000 639 #endif 640 #endif 641 642 #define YYINITSTACKSIZE 200 643 644 typedef struct { 645 unsigned stacksize; 646 YYINT *s_base; 647 YYINT *s_mark; 648 YYINT *s_last; 649 YYSTYPE *l_base; 650 YYSTYPE *l_mark; 651 } YYSTACKDATA; 652 /* variables for the parser stack */ 653 static YYSTACKDATA yystack; 654 #line 265 "../../../gmp/demos/calc/calc.y" 655 656 yyerror (char *s) 657 { 658 fprintf (stderr, "%s\n", s); 659 } 660 661 int calc_option_readline = -1; 662 663 int 664 main (int argc, char *argv[]) 665 { 666 int i; 667 668 for (i = 1; i < argc; i++) 669 { 670 if (strcmp (argv[i], "--readline") == 0) 671 calc_option_readline = 1; 672 else if (strcmp (argv[i], "--noreadline") == 0) 673 calc_option_readline = 0; 674 else if (strcmp (argv[i], "--help") == 0) 675 { 676 printf ("Usage: calc [--option]...\n"); 677 printf (" --readline use readline\n"); 678 printf (" --noreadline don't use readline\n"); 679 printf (" --help this message\n"); 680 printf ("Readline is only available when compiled in,\n"); 681 printf ("and in that case it's the default on a tty.\n"); 682 exit (0); 683 } 684 else 685 { 686 fprintf (stderr, "Unrecognised option: %s\n", argv[i]); 687 exit (1); 688 } 689 } 690 691 #if WITH_READLINE 692 calc_init_readline (); 693 #else 694 if (calc_option_readline == 1) 695 { 696 fprintf (stderr, "Readline support not available\n"); 697 exit (1); 698 } 699 #endif 700 701 for (i = 0; i < numberof (variable); i++) 702 mpz_init (variable[i]); 703 704 for (i = 0; i < numberof (stack); i++) 705 mpz_init (stack[i]); 706 707 return yyparse (); 708 } 709 #line 710 "calc.c" 710 711 #if YYDEBUG 712 #include <stdio.h> /* needed for printf */ 713 #endif 714 715 #include <stdlib.h> /* needed for malloc, etc */ 716 #include <string.h> /* needed for memset */ 717 718 /* allocate initial stack or double stack size, up to YYMAXDEPTH */ 719 static int yygrowstack(YYSTACKDATA *data) 720 { 721 int i; 722 unsigned newsize; 723 YYINT *newss; 724 YYSTYPE *newvs; 725 726 if ((newsize = data->stacksize) == 0) 727 newsize = YYINITSTACKSIZE; 728 else if (newsize >= YYMAXDEPTH) 729 return YYENOMEM; 730 else if ((newsize *= 2) > YYMAXDEPTH) 731 newsize = YYMAXDEPTH; 732 733 i = (int) (data->s_mark - data->s_base); 734 newss = (YYINT *)realloc(data->s_base, newsize * sizeof(*newss)); 735 if (newss == 0) 736 return YYENOMEM; 737 738 data->s_base = newss; 739 data->s_mark = newss + i; 740 741 newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs)); 742 if (newvs == 0) 743 return YYENOMEM; 744 745 data->l_base = newvs; 746 data->l_mark = newvs + i; 747 748 data->stacksize = newsize; 749 data->s_last = data->s_base + newsize - 1; 750 return 0; 751 } 752 753 #if YYPURE || defined(YY_NO_LEAKS) 754 static void yyfreestack(YYSTACKDATA *data) 755 { 756 free(data->s_base); 757 free(data->l_base); 758 memset(data, 0, sizeof(*data)); 759 } 760 #else 761 #define yyfreestack(data) /* nothing */ 762 #endif 763 764 #define YYABORT goto yyabort 765 #define YYREJECT goto yyabort 766 #define YYACCEPT goto yyaccept 767 #define YYERROR goto yyerrlab 768 769 int 770 YYPARSE_DECL() 771 { 772 int yym, yyn, yystate; 773 #if YYDEBUG 774 const char *yys; 775 776 if ((yys = getenv("YYDEBUG")) != 0) 777 { 778 yyn = *yys; 779 if (yyn >= '0' && yyn <= '9') 780 yydebug = yyn - '0'; 781 } 782 #endif 783 784 yym = 0; 785 yyn = 0; 786 yynerrs = 0; 787 yyerrflag = 0; 788 yychar = YYEMPTY; 789 yystate = 0; 790 791 #if YYPURE 792 memset(&yystack, 0, sizeof(yystack)); 793 #endif 794 795 if (yystack.s_base == NULL && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 796 yystack.s_mark = yystack.s_base; 797 yystack.l_mark = yystack.l_base; 798 yystate = 0; 799 *yystack.s_mark = 0; 800 801 yyloop: 802 if ((yyn = yydefred[yystate]) != 0) goto yyreduce; 803 if (yychar < 0) 804 { 805 yychar = YYLEX; 806 if (yychar < 0) yychar = YYEOF; 807 #if YYDEBUG 808 if (yydebug) 809 { 810 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 811 printf("%sdebug: state %d, reading %d (%s)\n", 812 YYPREFIX, yystate, yychar, yys); 813 } 814 #endif 815 } 816 if (((yyn = yysindex[yystate]) != 0) && (yyn += yychar) >= 0 && 817 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar) 818 { 819 #if YYDEBUG 820 if (yydebug) 821 printf("%sdebug: state %d, shifting to state %d\n", 822 YYPREFIX, yystate, yytable[yyn]); 823 #endif 824 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 825 yystate = yytable[yyn]; 826 *++yystack.s_mark = yytable[yyn]; 827 *++yystack.l_mark = yylval; 828 yychar = YYEMPTY; 829 if (yyerrflag > 0) --yyerrflag; 830 goto yyloop; 831 } 832 if (((yyn = yyrindex[yystate]) != 0) && (yyn += yychar) >= 0 && 833 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar) 834 { 835 yyn = yytable[yyn]; 836 goto yyreduce; 837 } 838 if (yyerrflag != 0) goto yyinrecovery; 839 840 YYERROR_CALL("syntax error"); 841 842 goto yyerrlab; /* redundant goto avoids 'unused label' warning */ 843 yyerrlab: 844 ++yynerrs; 845 846 yyinrecovery: 847 if (yyerrflag < 3) 848 { 849 yyerrflag = 3; 850 for (;;) 851 { 852 if (((yyn = yysindex[*yystack.s_mark]) != 0) && (yyn += YYERRCODE) >= 0 && 853 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) YYERRCODE) 854 { 855 #if YYDEBUG 856 if (yydebug) 857 printf("%sdebug: state %d, error recovery shifting\ 858 to state %d\n", YYPREFIX, *yystack.s_mark, yytable[yyn]); 859 #endif 860 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 861 yystate = yytable[yyn]; 862 *++yystack.s_mark = yytable[yyn]; 863 *++yystack.l_mark = yylval; 864 goto yyloop; 865 } 866 else 867 { 868 #if YYDEBUG 869 if (yydebug) 870 printf("%sdebug: error recovery discarding state %d\n", 871 YYPREFIX, *yystack.s_mark); 872 #endif 873 if (yystack.s_mark <= yystack.s_base) goto yyabort; 874 --yystack.s_mark; 875 --yystack.l_mark; 876 } 877 } 878 } 879 else 880 { 881 if (yychar == YYEOF) goto yyabort; 882 #if YYDEBUG 883 if (yydebug) 884 { 885 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 886 printf("%sdebug: state %d, error recovery discards token %d (%s)\n", 887 YYPREFIX, yystate, yychar, yys); 888 } 889 #endif 890 yychar = YYEMPTY; 891 goto yyloop; 892 } 893 894 yyreduce: 895 #if YYDEBUG 896 if (yydebug) 897 printf("%sdebug: state %d, reducing by rule %d (%s)\n", 898 YYPREFIX, yystate, yyn, yyrule[yyn]); 899 #endif 900 yym = yylen[yyn]; 901 if (yym > 0) 902 yyval = yystack.l_mark[1-yym]; 903 else 904 memset(&yyval, 0, sizeof yyval); 905 906 switch (yyn) 907 { 908 case 5: 909 #line 173 "../../../gmp/demos/calc/calc.y" 910 { sp = stack[0]; yyerrok; } 911 break; 912 case 7: 913 #line 177 "../../../gmp/demos/calc/calc.y" 914 { 915 mpz_out_str (stdout, obase, sp); putchar ('\n'); 916 sp--; 917 CHECK_EMPTY (); 918 } 919 break; 920 case 8: 921 #line 182 "../../../gmp/demos/calc/calc.y" 922 { 923 CHECK_VARIABLE (yystack.l_mark[-2].var); 924 mpz_swap (variable[yystack.l_mark[-2].var], sp); 925 sp--; 926 CHECK_EMPTY (); 927 } 928 break; 929 case 9: 930 #line 188 "../../../gmp/demos/calc/calc.y" 931 { calc_help (); } 932 break; 933 case 10: 934 #line 189 "../../../gmp/demos/calc/calc.y" 935 { ibase = 16; obase = -16; } 936 break; 937 case 11: 938 #line 190 "../../../gmp/demos/calc/calc.y" 939 { ibase = 0; obase = 10; } 940 break; 941 case 12: 942 #line 191 "../../../gmp/demos/calc/calc.y" 943 { exit (0); } 944 break; 945 case 14: 946 #line 198 "../../../gmp/demos/calc/calc.y" 947 { sp--; mpz_add (sp, sp, sp+1); } 948 break; 949 case 15: 950 #line 199 "../../../gmp/demos/calc/calc.y" 951 { sp--; mpz_sub (sp, sp, sp+1); } 952 break; 953 case 16: 954 #line 200 "../../../gmp/demos/calc/calc.y" 955 { sp--; mpz_mul (sp, sp, sp+1); } 956 break; 957 case 17: 958 #line 201 "../../../gmp/demos/calc/calc.y" 959 { sp--; mpz_fdiv_q (sp, sp, sp+1); } 960 break; 961 case 18: 962 #line 202 "../../../gmp/demos/calc/calc.y" 963 { sp--; mpz_fdiv_r (sp, sp, sp+1); } 964 break; 965 case 19: 966 #line 203 "../../../gmp/demos/calc/calc.y" 967 { CHECK_UI ("Exponent", sp); 968 sp--; mpz_pow_ui (sp, sp, mpz_get_ui (sp+1)); } 969 break; 970 case 20: 971 #line 205 "../../../gmp/demos/calc/calc.y" 972 { CHECK_UI ("Shift count", sp); 973 sp--; mpz_mul_2exp (sp, sp, mpz_get_ui (sp+1)); } 974 break; 975 case 21: 976 #line 207 "../../../gmp/demos/calc/calc.y" 977 { CHECK_UI ("Shift count", sp); 978 sp--; mpz_fdiv_q_2exp (sp, sp, mpz_get_ui (sp+1)); } 979 break; 980 case 22: 981 #line 209 "../../../gmp/demos/calc/calc.y" 982 { CHECK_UI ("Factorial", sp); 983 mpz_fac_ui (sp, mpz_get_ui (sp)); } 984 break; 985 case 23: 986 #line 211 "../../../gmp/demos/calc/calc.y" 987 { mpz_neg (sp, sp); } 988 break; 989 case 24: 990 #line 213 "../../../gmp/demos/calc/calc.y" 991 { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) < 0); } 992 break; 993 case 25: 994 #line 214 "../../../gmp/demos/calc/calc.y" 995 { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) <= 0); } 996 break; 997 case 26: 998 #line 215 "../../../gmp/demos/calc/calc.y" 999 { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) == 0); } 1000 break; 1001 case 27: 1002 #line 216 "../../../gmp/demos/calc/calc.y" 1003 { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) != 0); } 1004 break; 1005 case 28: 1006 #line 217 "../../../gmp/demos/calc/calc.y" 1007 { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) >= 0); } 1008 break; 1009 case 29: 1010 #line 218 "../../../gmp/demos/calc/calc.y" 1011 { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) > 0); } 1012 break; 1013 case 30: 1014 #line 220 "../../../gmp/demos/calc/calc.y" 1015 { sp--; mpz_set_ui (sp, mpz_sgn (sp) && mpz_sgn (sp+1)); } 1016 break; 1017 case 31: 1018 #line 221 "../../../gmp/demos/calc/calc.y" 1019 { sp--; mpz_set_ui (sp, mpz_sgn (sp) || mpz_sgn (sp+1)); } 1020 break; 1021 case 32: 1022 #line 223 "../../../gmp/demos/calc/calc.y" 1023 { mpz_abs (sp, sp); } 1024 break; 1025 case 33: 1026 #line 224 "../../../gmp/demos/calc/calc.y" 1027 { sp--; CHECK_UI ("Binomial base", sp+1); 1028 mpz_bin_ui (sp, sp, mpz_get_ui (sp+1)); } 1029 break; 1030 case 34: 1031 #line 226 "../../../gmp/demos/calc/calc.y" 1032 { CHECK_UI ("Fibonacci", sp); 1033 mpz_fib_ui (sp, mpz_get_ui (sp)); } 1034 break; 1035 case 36: 1036 #line 229 "../../../gmp/demos/calc/calc.y" 1037 { sp--; mpz_set_si (sp, 1038 mpz_kronecker (sp, sp+1)); } 1039 break; 1040 case 38: 1041 #line 232 "../../../gmp/demos/calc/calc.y" 1042 { CHECK_UI ("Lucas number", sp); 1043 mpz_lucnum_ui (sp, mpz_get_ui (sp)); } 1044 break; 1045 case 39: 1046 #line 234 "../../../gmp/demos/calc/calc.y" 1047 { mpz_nextprime (sp, sp); } 1048 break; 1049 case 40: 1050 #line 235 "../../../gmp/demos/calc/calc.y" 1051 { sp -= 2; mpz_powm (sp, sp, sp+1, sp+2); } 1052 break; 1053 case 41: 1054 #line 236 "../../../gmp/demos/calc/calc.y" 1055 { sp--; CHECK_UI ("Nth-root", sp+1); 1056 mpz_root (sp, sp, mpz_get_ui (sp+1)); } 1057 break; 1058 case 42: 1059 #line 238 "../../../gmp/demos/calc/calc.y" 1060 { mpz_sqrt (sp, sp); } 1061 break; 1062 case 43: 1063 #line 240 "../../../gmp/demos/calc/calc.y" 1064 { 1065 sp++; 1066 CHECK_OVERFLOW (); 1067 CHECK_VARIABLE (yystack.l_mark[0].var); 1068 mpz_set (sp, variable[yystack.l_mark[0].var]); 1069 } 1070 break; 1071 case 44: 1072 #line 246 "../../../gmp/demos/calc/calc.y" 1073 { 1074 sp++; 1075 CHECK_OVERFLOW (); 1076 if (mpz_set_str (sp, yystack.l_mark[0].str, ibase) != 0) 1077 { 1078 fprintf (stderr, "Invalid number: %s\n", yystack.l_mark[0].str); 1079 YYERROR; 1080 } 1081 } 1082 break; 1083 case 46: 1084 #line 258 "../../../gmp/demos/calc/calc.y" 1085 { sp--; mpz_gcd (sp, sp, sp+1); } 1086 break; 1087 case 48: 1088 #line 262 "../../../gmp/demos/calc/calc.y" 1089 { sp--; mpz_lcm (sp, sp, sp+1); } 1090 break; 1091 #line 1092 "calc.c" 1092 } 1093 yystack.s_mark -= yym; 1094 yystate = *yystack.s_mark; 1095 yystack.l_mark -= yym; 1096 yym = yylhs[yyn]; 1097 if (yystate == 0 && yym == 0) 1098 { 1099 #if YYDEBUG 1100 if (yydebug) 1101 printf("%sdebug: after reduction, shifting from state 0 to\ 1102 state %d\n", YYPREFIX, YYFINAL); 1103 #endif 1104 yystate = YYFINAL; 1105 *++yystack.s_mark = YYFINAL; 1106 *++yystack.l_mark = yyval; 1107 if (yychar < 0) 1108 { 1109 yychar = YYLEX; 1110 if (yychar < 0) yychar = YYEOF; 1111 #if YYDEBUG 1112 if (yydebug) 1113 { 1114 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 1115 printf("%sdebug: state %d, reading %d (%s)\n", 1116 YYPREFIX, YYFINAL, yychar, yys); 1117 } 1118 #endif 1119 } 1120 if (yychar == YYEOF) goto yyaccept; 1121 goto yyloop; 1122 } 1123 if (((yyn = yygindex[yym]) != 0) && (yyn += yystate) >= 0 && 1124 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yystate) 1125 yystate = yytable[yyn]; 1126 else 1127 yystate = yydgoto[yym]; 1128 #if YYDEBUG 1129 if (yydebug) 1130 printf("%sdebug: after reduction, shifting from state %d \ 1131 to state %d\n", YYPREFIX, *yystack.s_mark, yystate); 1132 #endif 1133 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 1134 *++yystack.s_mark = (YYINT) yystate; 1135 *++yystack.l_mark = yyval; 1136 goto yyloop; 1137 1138 yyoverflow: 1139 YYERROR_CALL("yacc stack overflow"); 1140 1141 yyabort: 1142 yyfreestack(&yystack); 1143 return (1); 1144 1145 yyaccept: 1146 yyfreestack(&yystack); 1147 return (0); 1148 } 1149
Indexes created Sat Mar 21 00:23:06 UTC 2026