Home | History | Annotate | Download | only in include
      1 /* mpf2mpfr.h -- Compatibility include file with mpf.
      2 
      3 Copyright 1999, 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
      4 Contributed by the AriC and Caramel projects, INRIA.
      5 
      6 This file is part of the GNU MPFR Library.
      7 
      8 The GNU MPFR Library is free software; you can redistribute it and/or modify
      9 it under the terms of the GNU Lesser General Public License as published by
     10 the Free Software Foundation; either version 3 of the License, or (at your
     11 option) any later version.
     12 
     13 The GNU MPFR Library is distributed in the hope that it will be useful, but
     14 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
     15 or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
     16 License for more details.
     17 
     18 You should have received a copy of the GNU Lesser General Public License
     19 along with the GNU MPFR Library; see the file COPYING.LESSER.  If not, see
     20 http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
     21 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. */
     22 
     23 #ifndef __MPFR_FROM_MPF__
     24 #define __MPFR_FROM_MPF__
     25 
     26 /* types */
     27 #define mpf_t mpfr_t
     28 #define mpf_srcptr mpfr_srcptr
     29 #define mpf_ptr mpfr_ptr
     30 
     31 /* Get current Rounding Mode */
     32 #ifndef MPFR_DEFAULT_RND
     33 # define MPFR_DEFAULT_RND mpfr_get_default_rounding_mode ()
     34 #endif
     35 
     36 /* mpf_init initalizes at 0 */
     37 #undef mpf_init
     38 #define mpf_init(x) mpfr_init_set_ui ((x), 0, MPFR_DEFAULT_RND)
     39 #undef mpf_init2
     40 #define mpf_init2(x,p) (mpfr_init2((x),(p)), mpfr_set_ui ((x), 0, MPFR_DEFAULT_RND))
     41 
     42 /* functions which don't take as argument the rounding mode */
     43 #undef mpf_ceil
     44 #define mpf_ceil mpfr_ceil
     45 #undef mpf_clear
     46 #define mpf_clear mpfr_clear
     47 #undef mpf_cmp
     48 #define mpf_cmp mpfr_cmp
     49 #undef mpf_cmp_si
     50 #define mpf_cmp_si mpfr_cmp_si
     51 #undef mpf_cmp_ui
     52 #define mpf_cmp_ui mpfr_cmp_ui
     53 #undef mpf_cmp_d
     54 #define mpf_cmp_d mpfr_cmp_d
     55 #undef mpf_eq
     56 #define mpf_eq mpfr_eq
     57 #undef mpf_floor
     58 #define mpf_floor mpfr_floor
     59 #undef mpf_get_prec
     60 #define mpf_get_prec mpfr_get_prec
     61 #undef mpf_integer_p
     62 #define mpf_integer_p mpfr_integer_p
     63 #undef mpf_random2
     64 #define mpf_random2 mpfr_random2
     65 #undef mpf_set_default_prec
     66 #define mpf_set_default_prec mpfr_set_default_prec
     67 #undef mpf_get_default_prec
     68 #define mpf_get_default_prec mpfr_get_default_prec
     69 #undef mpf_set_prec
     70 #define mpf_set_prec mpfr_set_prec
     71 #undef mpf_set_prec_raw
     72 #define mpf_set_prec_raw(x,p) mpfr_prec_round(x,p,MPFR_DEFAULT_RND)
     73 #undef mpf_trunc
     74 #define mpf_trunc mpfr_trunc
     75 #undef mpf_sgn
     76 #define mpf_sgn mpfr_sgn
     77 #undef mpf_swap
     78 #define mpf_swap mpfr_swap
     79 #undef mpf_dump
     80 #define mpf_dump mpfr_dump
     81 
     82 /* functions which take as argument the rounding mode */
     83 #undef mpf_abs
     84 #define mpf_abs(x,y) mpfr_abs(x,y,MPFR_DEFAULT_RND)
     85 #undef mpf_add
     86 #define mpf_add(x,y,z) mpfr_add(x,y,z,MPFR_DEFAULT_RND)
     87 #undef mpf_add_ui
     88 #define mpf_add_ui(x,y,z) mpfr_add_ui(x,y,z,MPFR_DEFAULT_RND)
     89 #undef mpf_div
     90 #define mpf_div(x,y,z) mpfr_div(x,y,z,MPFR_DEFAULT_RND)
     91 #undef mpf_div_ui
     92 #define mpf_div_ui(x,y,z) mpfr_div_ui(x,y,z,MPFR_DEFAULT_RND)
     93 #undef mpf_div_2exp
     94 #define mpf_div_2exp(x,y,z) mpfr_div_2exp(x,y,z,MPFR_DEFAULT_RND)
     95 #undef mpf_fits_slong_p
     96 #define mpf_fits_slong_p(x) mpfr_fits_ulong_p(x,MPFR_DEFAULT_RND)
     97 #undef mpf_fits_ulong_p
     98 #define mpf_fits_ulong_p(x) mpfr_fits_ulong_p(x,MPFR_DEFAULT_RND)
     99 #undef mpf_fits_sint_p
    100 #define mpf_fits_sint_p(x) mpfr_fits_uint_p(x,MPFR_DEFAULT_RND)
    101 #undef mpf_fits_uint_p
    102 #define mpf_fits_uint_p(x) mpfr_fits_uint_p(x,MPFR_DEFAULT_RND)
    103 #undef mpf_fits_sshort_p
    104 #define mpf_fits_sshort_p(x) mpfr_fits_ushort_p(x,MPFR_DEFAULT_RND)
    105 #undef mpf_fits_ushort_p
    106 #define mpf_fits_ushort_p(x) mpfr_fits_ushort_p(x,MPFR_DEFAULT_RND)
    107 #undef mpf_get_str
    108 #define mpf_get_str(x,y,z,t,u) mpfr_get_str(x,y,z,t,u,MPFR_DEFAULT_RND)
    109 #undef mpf_get_d
    110 #define mpf_get_d(x) mpfr_get_d(x,MPFR_DEFAULT_RND)
    111 #undef mpf_get_d_2exp
    112 #define mpf_get_d_2exp(e,x) mpfr_get_d_2exp(e,x,MPFR_DEFAULT_RND)
    113 #undef mpf_get_ui
    114 #define mpf_get_ui(x) mpfr_get_ui(x,MPFR_DEFAULT_RND)
    115 #undef mpf_get_si
    116 #define mpf_get_si(x) mpfr_get_ui(x,MPFR_DEFAULT_RND)
    117 #undef mpf_inp_str
    118 #define mpf_inp_str(x,y,z) mpfr_inp_str(x,y,z,MPFR_DEFAULT_RND)
    119 #undef mpf_set_str
    120 #define mpf_set_str(x,y,z) mpfr_set_str(x,y,z,MPFR_DEFAULT_RND)
    121 #undef mpf_init_set
    122 #define mpf_init_set(x,y) mpfr_init_set(x,y,MPFR_DEFAULT_RND)
    123 #undef mpf_init_set_d
    124 #define mpf_init_set_d(x,y) mpfr_init_set_d(x,y,MPFR_DEFAULT_RND)
    125 #undef mpf_init_set_si
    126 #define mpf_init_set_si(x,y) mpfr_init_set_si(x,y,MPFR_DEFAULT_RND)
    127 #undef mpf_init_set_str
    128 #define mpf_init_set_str(x,y,z) mpfr_init_set_str(x,y,z,MPFR_DEFAULT_RND)
    129 #undef mpf_init_set_ui
    130 #define mpf_init_set_ui(x,y) mpfr_init_set_ui(x,y,MPFR_DEFAULT_RND)
    131 #undef mpf_mul
    132 #define mpf_mul(x,y,z) mpfr_mul(x,y,z,MPFR_DEFAULT_RND)
    133 #undef mpf_mul_2exp
    134 #define mpf_mul_2exp(x,y,z) mpfr_mul_2exp(x,y,z,MPFR_DEFAULT_RND)
    135 #undef mpf_mul_ui
    136 #define mpf_mul_ui(x,y,z) mpfr_mul_ui(x,y,z,MPFR_DEFAULT_RND)
    137 #undef mpf_neg
    138 #define mpf_neg(x,y) mpfr_neg(x,y,MPFR_DEFAULT_RND)
    139 #undef mpf_out_str
    140 #define mpf_out_str(x,y,z,t) mpfr_out_str(x,y,z,t,MPFR_DEFAULT_RND)
    141 #undef mpf_pow_ui
    142 #define mpf_pow_ui(x,y,z) mpfr_pow_ui(x,y,z,MPFR_DEFAULT_RND)
    143 #undef mpf_reldiff
    144 #define mpf_reldiff(x,y,z) mpfr_reldiff(x,y,z,MPFR_DEFAULT_RND)
    145 #undef mpf_set
    146 #define mpf_set(x,y) mpfr_set(x,y,MPFR_DEFAULT_RND)
    147 #undef mpf_set_d
    148 #define mpf_set_d(x,y) mpfr_set_d(x,y,MPFR_DEFAULT_RND)
    149 #undef mpf_set_q
    150 #define mpf_set_q(x,y) mpfr_set_q(x,y,MPFR_DEFAULT_RND)
    151 #undef mpf_set_si
    152 #define mpf_set_si(x,y) mpfr_set_si(x,y,MPFR_DEFAULT_RND)
    153 #undef mpf_set_ui
    154 #define mpf_set_ui(x,y) mpfr_set_ui(x,y,MPFR_DEFAULT_RND)
    155 #undef mpf_set_z
    156 #define mpf_set_z(x,y) mpfr_set_z(x,y,MPFR_DEFAULT_RND)
    157 #undef mpf_sqrt
    158 #define mpf_sqrt(x,y) mpfr_sqrt(x,y,MPFR_DEFAULT_RND)
    159 #undef mpf_sqrt_ui
    160 #define mpf_sqrt_ui(x,y) mpfr_sqrt_ui(x,y,MPFR_DEFAULT_RND)
    161 #undef mpf_sub
    162 #define mpf_sub(x,y,z) mpfr_sub(x,y,z,MPFR_DEFAULT_RND)
    163 #undef mpf_sub_ui
    164 #define mpf_sub_ui(x,y,z) mpfr_sub_ui(x,y,z,MPFR_DEFAULT_RND)
    165 #undef mpf_ui_div
    166 #define mpf_ui_div(x,y,z) mpfr_ui_div(x,y,z,MPFR_DEFAULT_RND)
    167 #undef mpf_ui_sub
    168 #define mpf_ui_sub(x,y,z) mpfr_ui_sub(x,y,z,MPFR_DEFAULT_RND)
    169 #undef mpf_urandomb
    170 #define mpf_urandomb(x,y,n) mpfr_urandomb(x,y)
    171 
    172 #undef mpz_set_f
    173 #define mpz_set_f(z,f) mpfr_get_z(z,f,MPFR_DEFAULT_RND)
    174 
    175 #endif /* __MPFR_FROM_MPF__ */
    176