| Index: gcc/gmp/mpz/inp_str.c
|
| diff --git a/gcc/gmp/mpz/inp_str.c b/gcc/gmp/mpz/inp_str.c
|
| deleted file mode 100644
|
| index 4c1fe35b3588e2774113d7a2e902e20694701f5e..0000000000000000000000000000000000000000
|
| --- a/gcc/gmp/mpz/inp_str.c
|
| +++ /dev/null
|
| @@ -1,165 +0,0 @@
|
| -/* mpz_inp_str(dest_integer, stream, base) -- Input a number in base
|
| - BASE from stdio stream STREAM and store the result in DEST_INTEGER.
|
| -
|
| - OF THE FUNCTIONS IN THIS FILE, ONLY mpz_inp_str IS FOR EXTERNAL USE, THE
|
| - REST ARE INTERNALS AND ARE ALMOST CERTAIN TO BE SUBJECT TO INCOMPATIBLE
|
| - CHANGES OR DISAPPEAR COMPLETELY IN FUTURE GNU MP RELEASES.
|
| -
|
| -Copyright 1991, 1993, 1994, 1996, 1998, 2000, 2001, 2002, 2003 Free Software
|
| -Foundation, Inc.
|
| -
|
| -This file is part of the GNU MP Library.
|
| -
|
| -The GNU MP Library is free software; you can redistribute it and/or modify
|
| -it under the terms of the GNU Lesser General Public License as published by
|
| -the Free Software Foundation; either version 3 of the License, or (at your
|
| -option) any later version.
|
| -
|
| -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
|
| -or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
|
| -License for more details.
|
| -
|
| -You should have received a copy of the GNU Lesser General Public License
|
| -along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. */
|
| -
|
| -#include <stdio.h>
|
| -#include <ctype.h>
|
| -#include "gmp.h"
|
| -#include "gmp-impl.h"
|
| -
|
| -extern const unsigned char __gmp_digit_value_tab[];
|
| -#define digit_value_tab __gmp_digit_value_tab
|
| -
|
| -size_t
|
| -mpz_inp_str (mpz_ptr x, FILE *stream, int base)
|
| -{
|
| - int c;
|
| - size_t nread;
|
| -
|
| - if (stream == 0)
|
| - stream = stdin;
|
| -
|
| - nread = 0;
|
| -
|
| - /* Skip whitespace. */
|
| - do
|
| - {
|
| - c = getc (stream);
|
| - nread++;
|
| - }
|
| - while (isspace (c));
|
| -
|
| - return mpz_inp_str_nowhite (x, stream, base, c, nread);
|
| -}
|
| -
|
| -/* shared by mpq_inp_str */
|
| -size_t
|
| -mpz_inp_str_nowhite (mpz_ptr x, FILE *stream, int base, int c, size_t nread)
|
| -{
|
| - char *str;
|
| - size_t alloc_size, str_size;
|
| - int negative;
|
| - mp_size_t xsize;
|
| - const unsigned char *digit_value;
|
| -
|
| - ASSERT_ALWAYS (EOF == -1); /* FIXME: handle this by adding explicit */
|
| - /* comparisons of c and EOF before each */
|
| - /* read of digit_value[]. */
|
| -
|
| - digit_value = digit_value_tab;
|
| - if (base > 36)
|
| - {
|
| - /* For bases > 36, use the collating sequence
|
| - 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz. */
|
| - digit_value += 224;
|
| - if (base > 62)
|
| - return 0; /* too large base */
|
| - }
|
| -
|
| - negative = 0;
|
| - if (c == '-')
|
| - {
|
| - negative = 1;
|
| - c = getc (stream);
|
| - nread++;
|
| - }
|
| -
|
| - if (c == EOF || digit_value[c] >= (base == 0 ? 10 : base))
|
| - return 0; /* error if no digits */
|
| -
|
| - /* If BASE is 0, try to find out the base by looking at the initial
|
| - characters. */
|
| - if (base == 0)
|
| - {
|
| - base = 10;
|
| - if (c == '0')
|
| - {
|
| - base = 8;
|
| - c = getc (stream);
|
| - nread++;
|
| - if (c == 'x' || c == 'X')
|
| - {
|
| - base = 16;
|
| - c = getc (stream);
|
| - 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 *) (*__gmp_allocate_func) (alloc_size);
|
| - str_size = 0;
|
| -
|
| - while (c != EOF)
|
| - {
|
| - int dig;
|
| - dig = digit_value[c];
|
| - if (dig >= base)
|
| - break;
|
| - if (str_size >= alloc_size)
|
| - {
|
| - size_t old_alloc_size = alloc_size;
|
| - alloc_size = alloc_size * 3 / 2;
|
| - str = (char *) (*__gmp_reallocate_func) (str, old_alloc_size, alloc_size);
|
| - }
|
| - str[str_size++] = dig;
|
| - c = getc (stream);
|
| - }
|
| - nread += str_size;
|
| -
|
| - ungetc (c, stream);
|
| - nread--;
|
| -
|
| - /* Make sure the string is not empty, mpn_set_str would fail. */
|
| - if (str_size == 0)
|
| - {
|
| - x->_mp_size = 0;
|
| - }
|
| - else
|
| - {
|
| - xsize = (((mp_size_t)
|
| - (str_size / __mp_bases[base].chars_per_bit_exactly))
|
| - / GMP_NUMB_BITS + 2);
|
| - 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;
|
| - }
|
| - (*__gmp_free_func) (str, alloc_size);
|
| - return nread;
|
| -}
|
|
|