demos/calc/calc.y

105 mpz_ptr  sp = stack[0];
108   if (sp >= stack[numberof(stack)])	/* FIXME */			\
116   if (sp != stack[0])                                                   \
119       sp = stack[0];                                                    \
173   | error EOS { sp = stack[0]; yyerrok; };
178       mpz_out_str (stdout, obase, sp); putchar ('\n');
179       sp--;
184       mpz_swap (variable[$1], sp);
185       sp--;
198     | e '+' e     { sp--; mpz_add    (sp, sp, sp+1); }
199     | e '-' e     { sp--; mpz_sub    (sp, sp, sp+1); }
200     | e '*' e     { sp--; mpz_mul    (sp, sp, sp+1); }
201     | e '/' e     { sp--; mpz_fdiv_q (sp, sp, sp+1); }
202     | e '%' e     { sp--; mpz_fdiv_r (sp, sp, sp+1); }
203     | e '^' e     { CHECK_UI ("Exponent", sp);
204                     sp--; mpz_pow_ui (sp, sp, mpz_get_ui (sp+1)); }
205     | e LSHIFT e  { CHECK_UI ("Shift count", sp);
206                     sp--; mpz_mul_2exp (sp, sp, mpz_get_ui (sp+1)); }
207     | e RSHIFT e  { CHECK_UI ("Shift count", sp);
208                     sp--; mpz_fdiv_q_2exp (sp, sp, mpz_get_ui (sp+1)); }
209     | e '!'       { CHECK_UI ("Factorial", sp);
210                     mpz_fac_ui (sp, mpz_get_ui (sp)); }
211     | '-' e %prec UMINUS   { mpz_neg (sp, sp); }
213     | e '<' e     { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) <  0); }
214     | e LE  e     { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) <= 0); }
215     | e EQ  e     { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) == 0); }
216     | e NE  e     { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) != 0); }
217     | e GE  e     { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) >= 0); }
218     | e '>' e     { sp--; mpz_set_ui (sp, mpz_cmp (sp, sp+1) >  0); }
220     | e LAND e    { sp--; mpz_set_ui (sp, mpz_sgn (sp) && mpz_sgn (sp+1)); }
221     | e LOR e     { sp--; mpz_set_ui (sp, mpz_sgn (sp) || mpz_sgn (sp+1)); }
223     | ABS '(' e ')'              { mpz_abs (sp, sp); }
224     | BIN '(' e ',' e ')'        { sp--; CHECK_UI ("Binomial base", sp+1);
225                                    mpz_bin_ui (sp, sp, mpz_get_ui (sp+1)); }
226     | FIB '(' e ')'              { CHECK_UI ("Fibonacci", sp);
227                                    mpz_fib_ui (sp, mpz_get_ui (sp)); }
229     | KRON '(' e ',' e ')'       { sp--; mpz_set_si (sp,
230                                          mpz_kronecker (sp, sp+1)); }
232     | LUCNUM '(' e ')'           { CHECK_UI ("Lucas number", sp);
233                                    mpz_lucnum_ui (sp, mpz_get_ui (sp)); }
234     | NEXTPRIME '(' e ')'        { mpz_nextprime (sp, sp); }
235     | POWM '(' e ',' e ',' e ')' { sp -= 2; mpz_powm (sp, sp, sp+1, sp+2); }
236     | ROOT '(' e ',' e ')'       { sp--; CHECK_UI ("Nth-root", sp+1);
237                                    mpz_root (sp, sp, mpz_get_ui (sp+1)); }
238     | SQRT '(' e ')'             { mpz_sqrt (sp, sp); }
241         sp++;
244         mpz_set (sp, variable[$1]);
247         sp++;
249         if (mpz_set_str (sp, $1, ibase) != 0)
258     | gcdlist ',' e  { sp--; mpz_gcd (sp, sp, sp+1); };
262     | lcmlist ',' e  { sp--; mpz_lcm (sp, sp, sp+1); };