Blame cxx/ismpznw.cc

Packit 5c3484
/* __gmpz_operator_in_nowhite -- C++-style input of mpz_t, no whitespace skip.
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 "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_int in
Packit 5c3484
// include/bits/locale_facets.tcc.
Packit 5c3484
Packit 5c3484
istream &
Packit 5c3484
__gmpz_operator_in_nowhite (istream &i, mpz_ptr z, char c)
Packit 5c3484
{
Packit 5c3484
  int base;
Packit 5c3484
  string s;
Packit 5c3484
  bool ok = false, zero, showbase;
Packit 5c3484
Packit 5c3484
  if (c == '-' || c == '+') // sign
Packit 5c3484
    {
Packit 5c3484
      if (c == '-') // mpz_set_str doesn't accept '+'
Packit 5c3484
	s = "-";
Packit 5c3484
      i.get(c);
Packit 5c3484
    }
Packit 5c3484
Packit 5c3484
  base = __gmp_istream_set_base(i, c, zero, showbase); // select the base
Packit 5c3484
  __gmp_istream_set_digits(s, i, c, ok, base);         // read the number
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 || zero)) // stopped just before eof
Packit 5c3484
    i.clear(ios::eofbit);
Packit 5c3484
Packit 5c3484
  if (ok)
Packit 5c3484
    ASSERT_NOCARRY (mpz_set_str (z, s.c_str(), base)); // extract the number
Packit 5c3484
  else if (zero)
Packit 5c3484
    mpz_set_ui(z, 0);
Packit 5c3484
  else
Packit 5c3484
    i.setstate(ios::failbit); // read failed
Packit 5c3484
Packit 5c3484
  return i;
Packit 5c3484
}