OpenXM_contrib/gmp/mpf/out_str.c - diff

Return to out_str.c CVS log

Up to [local] / OpenXM_contrib / gmp / mpf

Diff for /OpenXM_contrib/gmp/mpf/Attic/out_str.c between version 1.1.1.2 and 1.1.1.3

version 1.1.1.2, 2000/09/09 14:13:11

version 1.1.1.3, 2003/08/25 16:06:35

Line 2

the float OP to STREAM in base BASE. Return the number of characters

written, or 0 if an error occurred.

This file is part of the GNU MP Library.

Line 21 along with the GNU MP Library; see the file COPYING.LI

the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,

MA 02111-1307, USA. */

#include "config.h"

#include <stdio.h>

#include <string.h>

#if HAVE_LOCALE_H

#include <locale.h> /* for localeconv */

#endif

#include "gmp.h"

#include "gmp-impl.h"

size_t

#if __STDC__

mpf_out_str (FILE *stream, int base, size_t n_digits, mpf_srcptr op)

#else

mpf_out_str (stream, base, n_digits, op)

FILE *stream;

int base;

size_t n_digits;

mpf_srcptr op;

#endif

{

char *str;

mp_exp_t exp;

Line 47 mpf_out_str (stream, base, n_digits, op)

Line 46 mpf_out_str (stream, base, n_digits, op)

if (base == 0)

base = 10;

if (n_digits == 0)

n_digits = (((op->_mp_prec - 1) * BITS_PER_MP_LIMB)

MPF_SIGNIFICANT_DIGITS (n_digits, base, op->_mp_prec);

* __mp_bases[base].chars_per_bit_exactly);

if (stream == 0)

stream = stdout;

Line 69 mpf_out_str (stream, base, n_digits, op)

Line 67 mpf_out_str (stream, base, n_digits, op)

n_digits--;

}

#if HAVE_LOCALECONV

{

const char *point = localeconv()->decimal_point;

size_t pointlen = strlen (point);

putc ('0', stream);

fwrite (point, 1, pointlen, stream);

written += pointlen + 1;

}

#else

fwrite ("0.", 1, 2, stream);

written += 2;

#endif

/* Write mantissa */

{

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>