diff options
Diffstat (limited to 'Build/source/libs/mpfr/mpfr-src/src/out_str.c')
-rw-r--r-- | Build/source/libs/mpfr/mpfr-src/src/out_str.c | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/Build/source/libs/mpfr/mpfr-src/src/out_str.c b/Build/source/libs/mpfr/mpfr-src/src/out_str.c deleted file mode 100644 index 81dd173eb42..00000000000 --- a/Build/source/libs/mpfr/mpfr-src/src/out_str.c +++ /dev/null @@ -1,88 +0,0 @@ -/* mpfr_out_str -- output a floating-point number to a stream - -Copyright 1999, 2001-2002, 2004, 2006-2020 Free Software Foundation, Inc. -Contributed by the AriC and Caramba projects, INRIA. - -This file is part of the GNU MPFR Library. - -The GNU MPFR 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 MPFR 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 MPFR Library; see the file COPYING.LESSER. If not, see -https://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc., -51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. */ - -#include "mpfr-impl.h" - -/* Warning! S should not contain "%". */ -#define OUT_STR_RET(S) \ - do \ - { \ - int r; \ - r = fprintf (stream, (S)); \ - return r < 0 ? 0 : r; \ - } \ - while (0) - -size_t -mpfr_out_str (FILE *stream, int base, size_t n_digits, mpfr_srcptr op, - mpfr_rnd_t rnd_mode) -{ - char *s, *s0; - size_t l; - mpfr_exp_t e; - int err, r; - - MPFR_ASSERTN ((base >= -36 && base <= -2) || (base >= 2 && base <= 62)); - - if (MPFR_UNLIKELY (MPFR_IS_SINGULAR (op))) - { - if (MPFR_IS_NAN (op)) - OUT_STR_RET ("@NaN@"); - else if (MPFR_IS_INF (op)) - OUT_STR_RET (MPFR_IS_POS (op) ? "@Inf@" : "-@Inf@"); - else - { - MPFR_ASSERTD (MPFR_IS_ZERO (op)); - OUT_STR_RET (MPFR_IS_POS (op) ? "0" : "-0"); - } - } - - s = mpfr_get_str (NULL, &e, base, n_digits, op, rnd_mode); - - s0 = s; - /* for op=3.1416 we have s = "31416" and e = 1 */ - - l = strlen (s) + 1; /* size of allocated block returned by mpfr_get_str - - may be incorrect, as only an upper bound? */ - - /* outputs possible sign and significand */ - err = (*s == '-' && fputc (*s++, stream) == EOF) - || fputc (*s++, stream) == EOF /* leading digit */ - || fputc ((unsigned char) MPFR_DECIMAL_POINT, stream) == EOF - || fputs (s, stream) == EOF; /* trailing significand */ - mpfr_free_func (s0, l); - if (MPFR_UNLIKELY (err)) - return 0; - - e--; /* due to the leading digit */ - - /* outputs exponent */ - r = fprintf (stream, (base <= 10 ? - "e%" MPFR_EXP_FSPEC "d" : - "@%" MPFR_EXP_FSPEC "d"), (mpfr_eexp_t) e); - - /* Check error from fprintf or integer overflow (wrapping) on size_t */ - if (MPFR_UNLIKELY (r < 0 || l + r < l)) - return 0; - - return l + r; -} |