static GEN
real_read(pari_sp av, const char **s, GEN y, long prec)
{
long l, n = 0;
switch(**s)
{
default: return y; /* integer */
case '.':
{
const char *old = ++*s;
if (isalpha((int)**s) || **s=='.')
{
if (**s == 'E' || **s == 'e') {
n = exponent(s);
if (!signe(y)) { avma = av; return real_0_digits(n); }
break;
}
--*s; return y; /* member */
}
y = int_read_more(y, s);
n = old - *s;
if (**s != 'E' && **s != 'e')
{
if (!signe(y)) { avma = av; return real_0(prec); }
break;
}
}
/* Fall through */
case 'E': case 'e':
n += exponent(s);
if (!signe(y)) { avma = av; return real_0_digits(n); }
}
l = nbits2prec(bit_accuracy(lgefint(y)));
if (l < prec) l = prec; else prec = l;
if (!n) return itor(y, prec);
incrprec(l);
y = itor(y, l);
if (n > 0)
y = mulrr(y, rpowuu(10UL, (ulong)n, l));
else
y = divrr(y, rpowuu(10UL, (ulong)-n, l));
return gerepileuptoleaf(av, rtor(y, prec));
}
void UnplacedTorus::Print(std::ostream &os) const {
os << "UnplacedTorus {" << rmin() << ", " << rmax() << ", " << rtor()
<< ", " << sphi() << ", " << dphi();
}
void UnplacedTorus::Print() const {
printf("UnplacedTorus {%.2f, %.2f, %.2f, %.2f, %.2f}",
rmin(), rmax(), rtor(), sphi(), dphi() );
}
