version 1.1.1.1, 2000/01/10 15:35:27 |
version 1.1.1.3, 2003/08/25 16:06:34 |
|
|
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 1991, 1993, 1994, 1996, 1997, 1998, 2000, 2001, 2002 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 |
digit_value_in_base (c, base) |
digit_value_in_base (int c, int base) |
int c; |
|
int base; |
|
{ |
{ |
int digit; |
int digit; |
|
|
Line 50 digit_value_in_base (c, base) |
|
Line 50 digit_value_in_base (c, base) |
|
} |
} |
|
|
int |
int |
#if __STDC__ |
|
mpz_set_str (mpz_ptr x, const char *str, int base) |
mpz_set_str (mpz_ptr x, const char *str, int base) |
#else |
|
mpz_set_str (x, str, base) |
|
mpz_ptr x; |
|
const char *str; |
|
int base; |
|
#endif |
|
{ |
{ |
size_t str_size; |
size_t str_size; |
char *s, *begs; |
char *s, *begs; |
Line 96 mpz_set_str (x, str, base) |
|
Line 89 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 and white space. */ |
|
while (c == '0' || isspace (c)) |
|
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 130 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)) |
|
/ GMP_NUMB_BITS + 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; |
|
|