version 1.1.1.1, 2000/01/10 15:35:27 |
version 1.1.1.2, 2000/09/09 14:12:53 |
|
|
/* mpz_inp_str(dest_integer, stream, base) -- Input a number in base |
/* mpz_inp_str(dest_integer, stream, base) -- Input a number in base |
BASE from stdio stream STREAM and store the result in DEST_INTEGER. |
BASE from stdio stream STREAM and store the result in DEST_INTEGER. |
|
|
Copyright (C) 1991, 1993, 1994, 1996 Free Software Foundation, Inc. |
Copyright (C) 1991, 1993, 1994, 1996, 1998, 2000 Free Software Foundation, Inc. |
|
|
This file is part of the GNU MP Library. |
This file is part of the GNU MP Library. |
|
|
The GNU MP Library is free software; you can redistribute it and/or modify |
The GNU MP Library is free software; you can redistribute it and/or modify |
it under the terms of the GNU Library General Public License as published by |
it under the terms of the GNU Lesser General Public License as published by |
the Free Software Foundation; either version 2 of the License, or (at your |
the Free Software Foundation; either version 2.1 of the License, or (at your |
option) any later version. |
option) any later version. |
|
|
The GNU MP Library is distributed in the hope that it will be useful, but |
The GNU MP Library is distributed in the hope that it will be useful, but |
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY |
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY |
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public |
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public |
License for more details. |
License for more details. |
|
|
You should have received a copy of the GNU Library General Public License |
You should have received a copy of the GNU Lesser General Public License |
along with the GNU MP Library; see the file COPYING.LIB. If not, write to |
along with the GNU MP Library; see the file COPYING.LIB. If not, write to |
the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, |
the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, |
MA 02111-1307, USA. */ |
MA 02111-1307, USA. */ |
Line 26 MA 02111-1307, USA. */ |
|
Line 26 MA 02111-1307, USA. */ |
|
#include "gmp-impl.h" |
#include "gmp-impl.h" |
|
|
static int |
static int |
|
#if __STDC__ |
|
digit_value_in_base (int c, int base) |
|
#else |
digit_value_in_base (c, base) |
digit_value_in_base (c, base) |
int c; |
int c; |
int base; |
int base; |
|
#endif |
{ |
{ |
int digit; |
int digit; |
|
|
Line 48 digit_value_in_base (c, base) |
|
Line 52 digit_value_in_base (c, base) |
|
|
|
size_t |
size_t |
#if __STDC__ |
#if __STDC__ |
mpz_inp_str (mpz_ptr dest, FILE *stream, int base) |
mpz_inp_str (mpz_ptr x, FILE *stream, int base) |
#else |
#else |
mpz_inp_str (dest, stream, base) |
mpz_inp_str (x, stream, base) |
mpz_ptr dest; |
mpz_ptr x; |
FILE *stream; |
FILE *stream; |
int base; |
int base; |
#endif |
#endif |
Line 60 mpz_inp_str (dest, stream, base) |
|
Line 64 mpz_inp_str (dest, stream, base) |
|
size_t alloc_size, str_size; |
size_t alloc_size, str_size; |
int c; |
int c; |
int negative; |
int negative; |
mp_size_t dest_size; |
mp_size_t xsize; |
size_t nread; |
size_t nread; |
|
|
if (stream == 0) |
if (stream == 0) |
stream = stdin; |
stream = stdin; |
|
|
alloc_size = 100; |
|
str = (char *) (*_mp_allocate_func) (alloc_size); |
|
str_size = 0; |
|
nread = 0; |
nread = 0; |
|
|
/* Skip whitespace. */ |
/* Skip whitespace. */ |
Line 84 mpz_inp_str (dest, stream, base) |
|
Line 85 mpz_inp_str (dest, stream, base) |
|
{ |
{ |
negative = 1; |
negative = 1; |
c = getc (stream); |
c = getc (stream); |
|
nread++; |
} |
} |
|
|
if (digit_value_in_base (c, base == 0 ? 10 : base) < 0) |
if (digit_value_in_base (c, base == 0 ? 10 : base) < 0) |
Line 105 mpz_inp_str (dest, stream, base) |
|
Line 107 mpz_inp_str (dest, stream, base) |
|
c = getc (stream); |
c = getc (stream); |
nread++; |
nread++; |
} |
} |
|
else if (c == 'b' || c == 'B') |
|
{ |
|
base = 2; |
|
c = getc (stream); |
|
nread++; |
|
} |
} |
} |
} |
} |
|
|
|
/* Skip leading zeros. */ |
|
while (c == '0') |
|
{ |
|
c = getc (stream); |
|
nread++; |
|
} |
|
|
|
alloc_size = 100; |
|
str = (char *) (*_mp_allocate_func) (alloc_size); |
|
str_size = 0; |
|
|
for (;;) |
for (;;) |
{ |
{ |
int dig; |
int dig; |
Line 126 mpz_inp_str (dest, stream, base) |
|
Line 145 mpz_inp_str (dest, stream, base) |
|
|
|
ungetc (c, stream); |
ungetc (c, stream); |
|
|
dest_size = str_size / __mp_bases[base].chars_per_limb + 1; |
/* Make sure the string is not empty, mpn_set_str would fail. */ |
if (dest->_mp_alloc < dest_size) |
if (str_size == 0) |
_mpz_realloc (dest, dest_size); |
{ |
|
x->_mp_size = 0; |
|
(*_mp_free_func) (str, alloc_size); |
|
return nread; |
|
} |
|
|
dest_size = mpn_set_str (dest->_mp_d, (unsigned char *) str, str_size, base); |
xsize = (((mp_size_t) (str_size / __mp_bases[base].chars_per_bit_exactly)) |
dest->_mp_size = negative ? -dest_size : dest_size; |
/ BITS_PER_MP_LIMB + 2); |
|
if (x->_mp_alloc < xsize) |
|
_mpz_realloc (x, xsize); |
|
|
|
/* Convert the byte array in base BASE to our bignum format. */ |
|
xsize = mpn_set_str (x->_mp_d, (unsigned char *) str, str_size, base); |
|
x->_mp_size = negative ? -xsize : xsize; |
|
|
(*_mp_free_func) (str, alloc_size); |
(*_mp_free_func) (str, alloc_size); |
return str_size + nread; |
return str_size + nread; |