/* No need to parse '-' since that's handled as an operator. This function also by mpq_expr_a, so it's not static. */ size_t mpexpr_mpz_number (mpz_ptr res, __gmp_const char *e, size_t elen, int base) { char *edup; size_t i, ret; int base_effective = (base == 0 ? 10 : base); void *(*allocate_func) (size_t); void (*free_func) (void *, size_t); i = 0; if (e[i] == '0') { i++; if (e[i] == 'x' || e[i] == 'b') i++; } for ( ; i < elen; i++) if (! isasciidigit_in_base (e[i], base_effective)) break; mp_get_memory_functions (&allocate_func, NULL, &free_func); edup = (*allocate_func) (i+1); memcpy (edup, e, i); edup[i] = '\0'; if (mpz_set_str (res, edup, base) == 0) ret = i; else ret = 0; (*free_func) (edup, i+1); return ret; }
static size_t e_mpf_number (mpf_ptr res, const char *e, size_t elen, int base) { char *edup; size_t i, ret, extra=0; int mant_base, exp_base; void *(*allocate_func) (size_t); void (*free_func) (void *, size_t); TRACE (printf ("mpf_number base=%d \"%.*s\"\n", base, (int) elen, e)); /* mpf_set_str doesn't currently accept 0x for hex in base==0, so do it here instead. FIXME: Would prefer to let mpf_set_str handle this. */ if (base == 0 && elen >= 2 && e[0] == '0' && (e[1] == 'x' || e[1] == 'X')) { base = 16; extra = 2; e += extra; elen -= extra; } if (base == 0) mant_base = 10; else if (base < 0) mant_base = -base; else mant_base = base; /* exponent in decimal if base is negative */ if (base < 0) exp_base = 10; else if (base == 0) exp_base = 10; else exp_base = base; #define IS_EXPONENT(c) \ (c == '@' || (base <= 10 && base >= -10 && (e[i] == 'e' || e[i] == 'E'))) i = 0; for (;;) { if (i >= elen) goto parsed; if (e[i] == '.') break; if (IS_EXPONENT (e[i])) goto exponent; if (! isasciidigit_in_base (e[i], mant_base)) goto parsed; i++; } /* fraction */ i++; for (;;) { if (i >= elen) goto parsed; if (IS_EXPONENT (e[i])) goto exponent; if (! isasciidigit_in_base (e[i], mant_base)) goto parsed; i++; } exponent: i++; if (i >= elen) goto parsed; if (e[i] == '-') i++; for (;;) { if (i >= elen) goto parsed; if (! isasciidigit_in_base (e[i], exp_base)) break; i++; } parsed: TRACE (printf (" parsed i=%u \"%.*s\"\n", i, (int) i, e)); mp_get_memory_functions (&allocate_func, NULL, &free_func); edup = (*allocate_func) (i+1); memcpy (edup, e, i); edup[i] = '\0'; if (mpf_set_str (res, edup, base) == 0) ret = i + extra; else ret = 0; (*free_func) (edup, i+1); return ret; }