← Back to branch summary

~ubuntu-branches/debian/sid/genius/sid

« back to all changes in this revision

Viewing changes to mpfr/get_uj.c

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Holbach
  • Date: 2006-08-21 12:57:45 UTC
  • Revision ID: james.westby@ubuntu.com-20060821125745-sl9ks8v7fq324bdf
Tags: upstream-0.7.6.1
Import upstream version 0.7.6.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
mpfr/get_uj.c
 
1
/* mpfr_get_uj -- convert a MPFR number to a huge machine unsigned integer
 
2
 
 
3
Copyright 2004 Free Software Foundation, Inc.
 
4
 
 
5
This file is part of the MPFR Library.
 
6
 
 
7
The MPFR Library is free software; you can redistribute it and/or modify
 
8
it under the terms of the GNU Lesser General Public License as published by
 
9
the Free Software Foundation; either version 2.1 of the License, or (at your
 
10
option) any later version.
 
11
 
 
12
The MPFR Library is distributed in the hope that it will be useful, but
 
13
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
 
14
or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
 
15
License for more details.
 
16
 
 
17
You should have received a copy of the GNU Lesser General Public License
 
18
along with the MPFR Library; see the file COPYING.LIB.  If not, write to
 
19
the Free Software Foundation, Inc., 51 Franklin Place, Fifth Floor, Boston,
 
20
MA 02110-1301, USA. */
 
21
 
 
22
#if HAVE_CONFIG_H
 
23
# include "config.h"       /* for a build within gmp */
 
24
#endif
 
25
 
 
26
/* The ISO C99 standard specifies that in C++ implementations the
 
27
   INTMAX_MAX, ... macros should only be defined if explicitly requested.  */
 
28
#if defined __cplusplus
 
29
# define __STDC_LIMIT_MACROS
 
30
# define __STDC_CONSTANT_MACROS
 
31
#endif
 
32
 
 
33
#ifdef HAVE_STDINT_H
 
34
# include <stdint.h>
 
35
#endif
 
36
#ifdef HAVE_INTTYPES_H
 
37
# include <inttypes.h>
 
38
#endif
 
39
 
 
40
#include "mpfr-impl.h"
 
41
 
 
42
#ifdef _MPFR_H_HAVE_INTMAX_T
 
43
 
 
44
uintmax_t
 
45
mpfr_get_uj (mpfr_srcptr f, mpfr_rnd_t rnd)
 
46
{
 
47
  uintmax_t r;
 
48
  mp_prec_t prec;
 
49
  mpfr_t x;
 
50
 
 
51
  if (!mpfr_fits_uintmax_p (f, rnd))
 
52
    {
 
53
      MPFR_SET_ERANGE ();
 
54
      return MPFR_IS_NEG (f) ? (uintmax_t) 0 : UINTMAX_MAX;
 
55
    }
 
56
 
 
57
  if (MPFR_IS_ZERO (f))
 
58
    return (uintmax_t) 0;
 
59
 
 
60
  /* determine the precision of uintmax_t */
 
61
  for (r = UINTMAX_MAX, prec = 0; r != 0; r /= 2, prec++)
 
62
    { }
 
63
 
 
64
  /* Now, r = 0. */
 
65
 
 
66
  mpfr_init2 (x, prec);
 
67
  mpfr_rint (x, f, rnd);
 
68
  MPFR_ASSERTN (MPFR_IS_FP (x));
 
69
 
 
70
  if (MPFR_NOTZERO (x))
 
71
    {
 
72
      mp_limb_t *xp;
 
73
      int sh, n;  /* An int should be sufficient in this context. */
 
74
 
 
75
      MPFR_ASSERTN (MPFR_IS_POS (x));
 
76
      xp = MPFR_MANT (x);
 
77
      sh = MPFR_GET_EXP (x);
 
78
      MPFR_ASSERTN ((mp_prec_t) sh <= prec);
 
79
      for (n = MPFR_LIMB_SIZE(x) - 1; n >= 0; n--)
 
80
        {
 
81
          sh -= BITS_PER_MP_LIMB;
 
82
          r += (sh >= 0
 
83
                ? (uintmax_t) xp[n] << sh
 
84
                : (uintmax_t) xp[n] >> (- sh));
 
85
        }
 
86
    }
 
87
 
 
88
  mpfr_clear (x);
 
89
 
 
90
  return r;
 
91
}
 
92
 
 
93
#endif