|
Packit |
5c3484 |
/* operator>> -- C++-style input of mpf_t.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
Copyright 2001, 2003 Free Software Foundation, Inc.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
This file is part of the GNU MP Library.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
The GNU MP Library is free software; you can redistribute it and/or modify
|
|
Packit |
5c3484 |
it under the terms of either:
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
* the GNU Lesser General Public License as published by the Free
|
|
Packit |
5c3484 |
Software Foundation; either version 3 of the License, or (at your
|
|
Packit |
5c3484 |
option) any later version.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
or
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
* the GNU General Public License as published by the Free Software
|
|
Packit |
5c3484 |
Foundation; either version 2 of the License, or (at your option) any
|
|
Packit |
5c3484 |
later version.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
or both in parallel, as here.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
The GNU MP Library is distributed in the hope that it will be useful, but
|
|
Packit |
5c3484 |
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
Packit |
5c3484 |
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
Packit |
5c3484 |
for more details.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
You should have received copies of the GNU General Public License and the
|
|
Packit |
5c3484 |
GNU Lesser General Public License along with the GNU MP Library. If not,
|
|
Packit |
5c3484 |
see https://www.gnu.org/licenses/. */
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
#include <cctype>
|
|
Packit |
5c3484 |
#include <iostream>
|
|
Packit |
5c3484 |
#include <string>
|
|
Packit |
5c3484 |
#include <clocale> // for localeconv
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
#include "gmp.h"
|
|
Packit |
5c3484 |
#include "gmp-impl.h"
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
using namespace std;
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
// For g++ libstdc++ parsing see num_get<chartype,initer>::_M_extract_float
|
|
Packit |
5c3484 |
// in include/bits/locale_facets.tcc.
|
|
Packit |
5c3484 |
//
|
|
Packit |
5c3484 |
// There are no plans to accept hex or octal floats, not unless the standard
|
|
Packit |
5c3484 |
// C++ library does so. Although such formats might be of use, it's
|
|
Packit |
5c3484 |
// considered more important to be compatible with what the normal
|
|
Packit |
5c3484 |
// operator>> does on "double"s etc.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
istream &
|
|
Packit |
5c3484 |
operator>> (istream &i, mpf_ptr f)
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
int base;
|
|
Packit |
5c3484 |
char c = 0;
|
|
Packit |
5c3484 |
string s;
|
|
Packit |
5c3484 |
bool ok = false;
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
// C decimal point, as expected by mpf_set_str
|
|
Packit |
5c3484 |
const char *lconv_point = GMP_DECIMAL_POINT;
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
// C++ decimal point
|
|
Packit |
5c3484 |
#if HAVE_STD__LOCALE
|
|
Packit |
5c3484 |
const locale& loc = i.getloc();
|
|
Packit |
5c3484 |
char point_char = use_facet< numpunct<char> >(loc).decimal_point();
|
|
Packit |
5c3484 |
#else
|
|
Packit |
5c3484 |
const char *point = lconv_point;
|
|
Packit |
5c3484 |
char point_char = *point;
|
|
Packit |
5c3484 |
#endif
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
i.get(c); // start reading
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
if (i.flags() & ios::skipws) // skip initial whitespace
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
// C++ isspace
|
|
Packit |
5c3484 |
#if HAVE_STD__LOCALE
|
|
Packit |
5c3484 |
const ctype<char>& ct = use_facet< ctype<char> >(loc);
|
|
Packit |
5c3484 |
#define cxx_isspace(c) (ct.is(ctype_base::space,(c)))
|
|
Packit |
5c3484 |
#else
|
|
Packit |
5c3484 |
#define cxx_isspace(c) isspace(c)
|
|
Packit |
5c3484 |
#endif
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
while (cxx_isspace(c) && i.get(c))
|
|
Packit |
5c3484 |
;
|
|
Packit |
5c3484 |
}
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
if (c == '-' || c == '+') // sign
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
if (c == '-')
|
|
Packit |
5c3484 |
s = "-";
|
|
Packit |
5c3484 |
i.get(c);
|
|
Packit |
5c3484 |
}
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
base = 10;
|
|
Packit |
5c3484 |
__gmp_istream_set_digits(s, i, c, ok, base); // read the number
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
// look for the C++ radix point, but put the C one in for mpf_set_str
|
|
Packit |
5c3484 |
if (c == point_char)
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
#if HAVE_STD__LOCALE
|
|
Packit |
5c3484 |
i.get(c);
|
|
Packit |
5c3484 |
#else // lconv point can be multi-char
|
|
Packit |
5c3484 |
for (;;)
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
i.get(c);
|
|
Packit |
5c3484 |
point++;
|
|
Packit |
5c3484 |
if (*point == '\0')
|
|
Packit |
5c3484 |
break;
|
|
Packit |
5c3484 |
if (c != *point)
|
|
Packit |
5c3484 |
goto fail;
|
|
Packit |
5c3484 |
}
|
|
Packit |
5c3484 |
#endif
|
|
Packit |
5c3484 |
s += lconv_point;
|
|
Packit |
5c3484 |
__gmp_istream_set_digits(s, i, c, ok, base); // read the mantissa
|
|
Packit |
5c3484 |
}
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
if (ok && (c == 'e' || c == 'E')) // exponent
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
s += c;
|
|
Packit |
5c3484 |
i.get(c);
|
|
Packit |
5c3484 |
ok = false; // exponent is mandatory
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
if (c == '-' || c == '+') // sign
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
s += c;
|
|
Packit |
5c3484 |
i.get(c);
|
|
Packit |
5c3484 |
}
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
__gmp_istream_set_digits(s, i, c, ok, base); // read the exponent
|
|
Packit |
5c3484 |
}
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
if (i.good()) // last character read was non-numeric
|
|
Packit |
5c3484 |
i.putback(c);
|
|
Packit |
5c3484 |
else if (i.eof() && ok) // stopped just before eof
|
|
Packit |
5c3484 |
i.clear(ios::eofbit);
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
if (ok)
|
|
Packit |
5c3484 |
ASSERT_NOCARRY (mpf_set_str(f, s.c_str(), base)); // extract the number
|
|
Packit |
5c3484 |
else
|
|
Packit |
5c3484 |
{
|
|
Packit |
5c3484 |
fail:
|
|
Packit |
5c3484 |
i.setstate(ios::failbit); // read failed
|
|
Packit |
5c3484 |
}
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
return i;
|
|
Packit |
5c3484 |
}
|