version 1.1.1.1, 2000/01/10 15:35:27 |
version 1.1.1.2, 2000/09/09 14:12:57 |
|
|
the base in the C standard way, i.e. 0xhh...h means base 16, |
the base in the C standard way, i.e. 0xhh...h means base 16, |
0oo...o means base 8, otherwise assume base 10. |
0oo...o means base 8, otherwise assume base 10. |
|
|
Copyright (C) 1991, 1993, 1994, Free Software Foundation, Inc. |
Copyright (C) 1991, 1993, 1994, 1996, 1997, 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. */ |
|
|
|
#include <string.h> |
#include <ctype.h> |
#include <ctype.h> |
#include "gmp.h" |
#include "gmp.h" |
#include "gmp-impl.h" |
#include "gmp-impl.h" |
#include "longlong.h" |
#include "longlong.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 96 mpz_set_str (x, str, base) |
|
Line 102 mpz_set_str (x, str, base) |
|
base = 16; |
base = 16; |
c = *str++; |
c = *str++; |
} |
} |
|
else if (c == 'b' || c == 'B') |
|
{ |
|
base = 2; |
|
c = *str++; |
|
} |
} |
} |
} |
} |
|
|
|
/* Skip leading zeros. */ |
|
while (c == '0') |
|
c = *str++; |
|
/* Make sure the string does not become empty, mpn_set_str would fail. */ |
|
if (c == 0) |
|
{ |
|
x->_mp_size = 0; |
|
return 0; |
|
} |
|
|
TMP_MARK (marker); |
TMP_MARK (marker); |
str_size = strlen (str - 1); |
str_size = strlen (str - 1); |
s = begs = (char *) TMP_ALLOC (str_size + 1); |
s = begs = (char *) TMP_ALLOC (str_size + 1); |
|
|
|
/* Remove spaces from the string and convert the result from ASCII to a |
|
byte array. */ |
for (i = 0; i < str_size; i++) |
for (i = 0; i < str_size; i++) |
{ |
{ |
if (!isspace (c)) |
if (!isspace (c)) |
Line 120 mpz_set_str (x, str, base) |
|
Line 143 mpz_set_str (x, str, base) |
|
|
|
str_size = s - begs; |
str_size = s - begs; |
|
|
xsize = str_size / __mp_bases[base].chars_per_limb + 1; |
xsize = (((mp_size_t) (str_size / __mp_bases[base].chars_per_bit_exactly)) |
|
/ BITS_PER_MP_LIMB + 2); |
if (x->_mp_alloc < xsize) |
if (x->_mp_alloc < xsize) |
_mpz_realloc (x, 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 *) begs, str_size, base); |
xsize = mpn_set_str (x->_mp_d, (unsigned char *) begs, str_size, base); |
x->_mp_size = negative ? -xsize : xsize; |
x->_mp_size = negative ? -xsize : xsize; |
|
|