| 1 |
/* mpf2mpfr.h -- Compatibility include file with mpf. |
| 2 |
|
| 3 |
Copyright 1999-2002, 2004-2020 Free Software Foundation, Inc. |
| 4 |
Contributed by the AriC and Caramba 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 |
https://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 initializes 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 |
/* Warning! This assumes that all pointer types have the same representation. */ |
| 43 |
#undef mpf_inits |
| 44 |
#define mpf_inits mpfr_inits |
| 45 |
#undef mpf_clears |
| 46 |
#define mpf_clears mpfr_clears |
| 47 |
|
| 48 |
/* functions which don't take as argument the rounding mode */ |
| 49 |
#undef mpf_ceil |
| 50 |
#define mpf_ceil mpfr_ceil |
| 51 |
#undef mpf_clear |
| 52 |
#define mpf_clear mpfr_clear |
| 53 |
#undef mpf_cmp |
| 54 |
#define mpf_cmp mpfr_cmp |
| 55 |
#undef mpf_cmp_si |
| 56 |
#define mpf_cmp_si mpfr_cmp_si |
| 57 |
#undef mpf_cmp_ui |
| 58 |
#define mpf_cmp_ui mpfr_cmp_ui |
| 59 |
#undef mpf_cmp_d |
| 60 |
#define mpf_cmp_d mpfr_cmp_d |
| 61 |
/* mpf_cmp_z appeared in GMP 6.1.0 */ |
| 62 |
#if __GNU_MP_VERSION > 6 || (__GNU_MP_VERSION == 6 && __GNU_MP_VERSION_MINOR >= 1) |
| 63 |
#undef mpf_cmp_z |
| 64 |
#define mpf_cmp_z mpfr_cmp_z |
| 65 |
#endif |
| 66 |
#undef mpf_eq |
| 67 |
#define mpf_eq mpfr_eq |
| 68 |
#undef mpf_floor |
| 69 |
#define mpf_floor mpfr_floor |
| 70 |
#undef mpf_get_prec |
| 71 |
#define mpf_get_prec mpfr_get_prec |
| 72 |
#undef mpf_integer_p |
| 73 |
#define mpf_integer_p mpfr_integer_p |
| 74 |
#undef mpf_random2 |
| 75 |
#define mpf_random2 mpfr_random2 |
| 76 |
#undef mpf_set_default_prec |
| 77 |
#define mpf_set_default_prec mpfr_set_default_prec |
| 78 |
#undef mpf_get_default_prec |
| 79 |
#define mpf_get_default_prec mpfr_get_default_prec |
| 80 |
#undef mpf_set_prec |
| 81 |
#define mpf_set_prec mpfr_set_prec |
| 82 |
#undef mpf_set_prec_raw |
| 83 |
#define mpf_set_prec_raw(x,p) mpfr_prec_round(x,p,MPFR_DEFAULT_RND) |
| 84 |
#undef mpf_trunc |
| 85 |
#define mpf_trunc mpfr_trunc |
| 86 |
#undef mpf_sgn |
| 87 |
#define mpf_sgn mpfr_sgn |
| 88 |
#undef mpf_swap |
| 89 |
#define mpf_swap mpfr_swap |
| 90 |
#undef mpf_dump |
| 91 |
#define mpf_dump mpfr_dump |
| 92 |
|
| 93 |
/* functions which take as argument the rounding mode */ |
| 94 |
#undef mpf_abs |
| 95 |
#define mpf_abs(x,y) mpfr_abs(x,y,MPFR_DEFAULT_RND) |
| 96 |
#undef mpf_add |
| 97 |
#define mpf_add(x,y,z) mpfr_add(x,y,z,MPFR_DEFAULT_RND) |
| 98 |
#undef mpf_add_ui |
| 99 |
#define mpf_add_ui(x,y,z) mpfr_add_ui(x,y,z,MPFR_DEFAULT_RND) |
| 100 |
#undef mpf_div |
| 101 |
#define mpf_div(x,y,z) mpfr_div(x,y,z,MPFR_DEFAULT_RND) |
| 102 |
#undef mpf_div_ui |
| 103 |
#define mpf_div_ui(x,y,z) mpfr_div_ui(x,y,z,MPFR_DEFAULT_RND) |
| 104 |
#undef mpf_div_2exp |
| 105 |
#define mpf_div_2exp(x,y,z) mpfr_div_2exp(x,y,z,MPFR_DEFAULT_RND) |
| 106 |
#undef mpf_fits_slong_p |
| 107 |
#define mpf_fits_slong_p(x) mpfr_fits_slong_p(x,MPFR_DEFAULT_RND) |
| 108 |
#undef mpf_fits_ulong_p |
| 109 |
#define mpf_fits_ulong_p(x) mpfr_fits_ulong_p(x,MPFR_DEFAULT_RND) |
| 110 |
#undef mpf_fits_sint_p |
| 111 |
#define mpf_fits_sint_p(x) mpfr_fits_sint_p(x,MPFR_DEFAULT_RND) |
| 112 |
#undef mpf_fits_uint_p |
| 113 |
#define mpf_fits_uint_p(x) mpfr_fits_uint_p(x,MPFR_DEFAULT_RND) |
| 114 |
#undef mpf_fits_sshort_p |
| 115 |
#define mpf_fits_sshort_p(x) mpfr_fits_sshort_p(x,MPFR_DEFAULT_RND) |
| 116 |
#undef mpf_fits_ushort_p |
| 117 |
#define mpf_fits_ushort_p(x) mpfr_fits_ushort_p(x,MPFR_DEFAULT_RND) |
| 118 |
#undef mpf_get_str |
| 119 |
#define mpf_get_str(x,y,z,t,u) mpfr_get_str(x,y,z,t,u,MPFR_DEFAULT_RND) |
| 120 |
#undef mpf_get_d |
| 121 |
#define mpf_get_d(x) mpfr_get_d(x,MPFR_DEFAULT_RND) |
| 122 |
#undef mpf_get_d_2exp |
| 123 |
#define mpf_get_d_2exp(e,x) mpfr_get_d_2exp(e,x,MPFR_DEFAULT_RND) |
| 124 |
#undef mpf_get_ui |
| 125 |
#define mpf_get_ui(x) mpfr_get_ui(x,MPFR_DEFAULT_RND) |
| 126 |
#undef mpf_get_si |
| 127 |
#define mpf_get_si(x) mpfr_get_si(x,MPFR_DEFAULT_RND) |
| 128 |
#undef mpf_inp_str |
| 129 |
#define mpf_inp_str(x,y,z) mpfr_inp_str(x,y,z,MPFR_DEFAULT_RND) |
| 130 |
#undef mpf_set_str |
| 131 |
#define mpf_set_str(x,y,z) mpfr_set_str(x,y,z,MPFR_DEFAULT_RND) |
| 132 |
#undef mpf_init_set |
| 133 |
#define mpf_init_set(x,y) mpfr_init_set(x,y,MPFR_DEFAULT_RND) |
| 134 |
#undef mpf_init_set_d |
| 135 |
#define mpf_init_set_d(x,y) mpfr_init_set_d(x,y,MPFR_DEFAULT_RND) |
| 136 |
#undef mpf_init_set_si |
| 137 |
#define mpf_init_set_si(x,y) mpfr_init_set_si(x,y,MPFR_DEFAULT_RND) |
| 138 |
#undef mpf_init_set_str |
| 139 |
#define mpf_init_set_str(x,y,z) mpfr_init_set_str(x,y,z,MPFR_DEFAULT_RND) |
| 140 |
#undef mpf_init_set_ui |
| 141 |
#define mpf_init_set_ui(x,y) mpfr_init_set_ui(x,y,MPFR_DEFAULT_RND) |
| 142 |
#undef mpf_mul |
| 143 |
#define mpf_mul(x,y,z) mpfr_mul(x,y,z,MPFR_DEFAULT_RND) |
| 144 |
#undef mpf_mul_2exp |
| 145 |
#define mpf_mul_2exp(x,y,z) mpfr_mul_2exp(x,y,z,MPFR_DEFAULT_RND) |
| 146 |
#undef mpf_mul_ui |
| 147 |
#define mpf_mul_ui(x,y,z) mpfr_mul_ui(x,y,z,MPFR_DEFAULT_RND) |
| 148 |
#undef mpf_neg |
| 149 |
#define mpf_neg(x,y) mpfr_neg(x,y,MPFR_DEFAULT_RND) |
| 150 |
#undef mpf_out_str |
| 151 |
#define mpf_out_str(x,y,z,t) mpfr_out_str(x,y,z,t,MPFR_DEFAULT_RND) |
| 152 |
#undef mpf_pow_ui |
| 153 |
#define mpf_pow_ui(x,y,z) mpfr_pow_ui(x,y,z,MPFR_DEFAULT_RND) |
| 154 |
#undef mpf_reldiff |
| 155 |
#define mpf_reldiff(x,y,z) mpfr_reldiff(x,y,z,MPFR_DEFAULT_RND) |
| 156 |
#undef mpf_set |
| 157 |
#define mpf_set(x,y) mpfr_set(x,y,MPFR_DEFAULT_RND) |
| 158 |
#undef mpf_set_d |
| 159 |
#define mpf_set_d(x,y) mpfr_set_d(x,y,MPFR_DEFAULT_RND) |
| 160 |
#undef mpf_set_q |
| 161 |
#define mpf_set_q(x,y) mpfr_set_q(x,y,MPFR_DEFAULT_RND) |
| 162 |
#undef mpf_set_si |
| 163 |
#define mpf_set_si(x,y) mpfr_set_si(x,y,MPFR_DEFAULT_RND) |
| 164 |
#undef mpf_set_ui |
| 165 |
#define mpf_set_ui(x,y) mpfr_set_ui(x,y,MPFR_DEFAULT_RND) |
| 166 |
#undef mpf_set_z |
| 167 |
#define mpf_set_z(x,y) mpfr_set_z(x,y,MPFR_DEFAULT_RND) |
| 168 |
#undef mpf_sqrt |
| 169 |
#define mpf_sqrt(x,y) mpfr_sqrt(x,y,MPFR_DEFAULT_RND) |
| 170 |
#undef mpf_sqrt_ui |
| 171 |
#define mpf_sqrt_ui(x,y) mpfr_sqrt_ui(x,y,MPFR_DEFAULT_RND) |
| 172 |
#undef mpf_sub |
| 173 |
#define mpf_sub(x,y,z) mpfr_sub(x,y,z,MPFR_DEFAULT_RND) |
| 174 |
#undef mpf_sub_ui |
| 175 |
#define mpf_sub_ui(x,y,z) mpfr_sub_ui(x,y,z,MPFR_DEFAULT_RND) |
| 176 |
#undef mpf_ui_div |
| 177 |
#define mpf_ui_div(x,y,z) mpfr_ui_div(x,y,z,MPFR_DEFAULT_RND) |
| 178 |
#undef mpf_ui_sub |
| 179 |
#define mpf_ui_sub(x,y,z) mpfr_ui_sub(x,y,z,MPFR_DEFAULT_RND) |
| 180 |
#undef mpf_urandomb |
| 181 |
#define mpf_urandomb(x,y,n) mpfr_urandomb(x,y) |
| 182 |
|
| 183 |
#undef mpz_set_f |
| 184 |
#define mpz_set_f(z,f) mpfr_get_z(z,f,MPFR_DEFAULT_RND) |
| 185 |
#undef mpq_set_f |
| 186 |
#define mpq_set_f(q,f) mpfr_get_q(q,f) |
| 187 |
|
| 188 |
#endif /* __MPFR_FROM_MPF__ */ |
