14a238c70SJohn Marino /* mpf2mpfr.h -- Compatibility include file with mpf. 24a238c70SJohn Marino 3*ab6d115fSJohn Marino Copyright 1999, 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc. 4*ab6d115fSJohn Marino Contributed by the AriC and Caramel projects, INRIA. 54a238c70SJohn Marino 64a238c70SJohn Marino This file is part of the GNU MPFR Library. 74a238c70SJohn Marino 84a238c70SJohn Marino The GNU MPFR Library is free software; you can redistribute it and/or modify 94a238c70SJohn Marino it under the terms of the GNU Lesser General Public License as published by 104a238c70SJohn Marino the Free Software Foundation; either version 3 of the License, or (at your 114a238c70SJohn Marino option) any later version. 124a238c70SJohn Marino 134a238c70SJohn Marino The GNU MPFR Library is distributed in the hope that it will be useful, but 144a238c70SJohn Marino WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 154a238c70SJohn Marino or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public 164a238c70SJohn Marino License for more details. 174a238c70SJohn Marino 184a238c70SJohn Marino You should have received a copy of the GNU Lesser General Public License 194a238c70SJohn Marino along with the GNU MPFR Library; see the file COPYING.LESSER. If not, see 204a238c70SJohn Marino http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc., 214a238c70SJohn Marino 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. */ 224a238c70SJohn Marino 234a238c70SJohn Marino #ifndef __MPFR_FROM_MPF__ 244a238c70SJohn Marino #define __MPFR_FROM_MPF__ 254a238c70SJohn Marino 264a238c70SJohn Marino /* types */ 274a238c70SJohn Marino #define mpf_t mpfr_t 284a238c70SJohn Marino #define mpf_srcptr mpfr_srcptr 294a238c70SJohn Marino #define mpf_ptr mpfr_ptr 304a238c70SJohn Marino 314a238c70SJohn Marino /* Get current Rounding Mode */ 324a238c70SJohn Marino #ifndef MPFR_DEFAULT_RND 334a238c70SJohn Marino # define MPFR_DEFAULT_RND mpfr_get_default_rounding_mode () 344a238c70SJohn Marino #endif 354a238c70SJohn Marino 364a238c70SJohn Marino /* mpf_init initalizes at 0 */ 374a238c70SJohn Marino #undef mpf_init 384a238c70SJohn Marino #define mpf_init(x) mpfr_init_set_ui ((x), 0, MPFR_DEFAULT_RND) 394a238c70SJohn Marino #undef mpf_init2 404a238c70SJohn Marino #define mpf_init2(x,p) (mpfr_init2((x),(p)), mpfr_set_ui ((x), 0, MPFR_DEFAULT_RND)) 414a238c70SJohn Marino 424a238c70SJohn Marino /* functions which don't take as argument the rounding mode */ 434a238c70SJohn Marino #undef mpf_ceil 444a238c70SJohn Marino #define mpf_ceil mpfr_ceil 454a238c70SJohn Marino #undef mpf_clear 464a238c70SJohn Marino #define mpf_clear mpfr_clear 474a238c70SJohn Marino #undef mpf_cmp 484a238c70SJohn Marino #define mpf_cmp mpfr_cmp 494a238c70SJohn Marino #undef mpf_cmp_si 504a238c70SJohn Marino #define mpf_cmp_si mpfr_cmp_si 514a238c70SJohn Marino #undef mpf_cmp_ui 524a238c70SJohn Marino #define mpf_cmp_ui mpfr_cmp_ui 534a238c70SJohn Marino #undef mpf_cmp_d 544a238c70SJohn Marino #define mpf_cmp_d mpfr_cmp_d 554a238c70SJohn Marino #undef mpf_eq 564a238c70SJohn Marino #define mpf_eq mpfr_eq 574a238c70SJohn Marino #undef mpf_floor 584a238c70SJohn Marino #define mpf_floor mpfr_floor 594a238c70SJohn Marino #undef mpf_get_prec 604a238c70SJohn Marino #define mpf_get_prec mpfr_get_prec 614a238c70SJohn Marino #undef mpf_integer_p 624a238c70SJohn Marino #define mpf_integer_p mpfr_integer_p 634a238c70SJohn Marino #undef mpf_random2 644a238c70SJohn Marino #define mpf_random2 mpfr_random2 654a238c70SJohn Marino #undef mpf_set_default_prec 664a238c70SJohn Marino #define mpf_set_default_prec mpfr_set_default_prec 674a238c70SJohn Marino #undef mpf_get_default_prec 684a238c70SJohn Marino #define mpf_get_default_prec mpfr_get_default_prec 694a238c70SJohn Marino #undef mpf_set_prec 704a238c70SJohn Marino #define mpf_set_prec mpfr_set_prec 714a238c70SJohn Marino #undef mpf_set_prec_raw 724a238c70SJohn Marino #define mpf_set_prec_raw(x,p) mpfr_prec_round(x,p,MPFR_DEFAULT_RND) 734a238c70SJohn Marino #undef mpf_trunc 744a238c70SJohn Marino #define mpf_trunc mpfr_trunc 754a238c70SJohn Marino #undef mpf_sgn 764a238c70SJohn Marino #define mpf_sgn mpfr_sgn 774a238c70SJohn Marino #undef mpf_swap 784a238c70SJohn Marino #define mpf_swap mpfr_swap 794a238c70SJohn Marino #undef mpf_dump 804a238c70SJohn Marino #define mpf_dump mpfr_dump 814a238c70SJohn Marino 824a238c70SJohn Marino /* functions which take as argument the rounding mode */ 834a238c70SJohn Marino #undef mpf_abs 844a238c70SJohn Marino #define mpf_abs(x,y) mpfr_abs(x,y,MPFR_DEFAULT_RND) 854a238c70SJohn Marino #undef mpf_add 864a238c70SJohn Marino #define mpf_add(x,y,z) mpfr_add(x,y,z,MPFR_DEFAULT_RND) 874a238c70SJohn Marino #undef mpf_add_ui 884a238c70SJohn Marino #define mpf_add_ui(x,y,z) mpfr_add_ui(x,y,z,MPFR_DEFAULT_RND) 894a238c70SJohn Marino #undef mpf_div 904a238c70SJohn Marino #define mpf_div(x,y,z) mpfr_div(x,y,z,MPFR_DEFAULT_RND) 914a238c70SJohn Marino #undef mpf_div_ui 924a238c70SJohn Marino #define mpf_div_ui(x,y,z) mpfr_div_ui(x,y,z,MPFR_DEFAULT_RND) 934a238c70SJohn Marino #undef mpf_div_2exp 944a238c70SJohn Marino #define mpf_div_2exp(x,y,z) mpfr_div_2exp(x,y,z,MPFR_DEFAULT_RND) 954a238c70SJohn Marino #undef mpf_fits_slong_p 964a238c70SJohn Marino #define mpf_fits_slong_p(x) mpfr_fits_ulong_p(x,MPFR_DEFAULT_RND) 974a238c70SJohn Marino #undef mpf_fits_ulong_p 984a238c70SJohn Marino #define mpf_fits_ulong_p(x) mpfr_fits_ulong_p(x,MPFR_DEFAULT_RND) 994a238c70SJohn Marino #undef mpf_fits_sint_p 1004a238c70SJohn Marino #define mpf_fits_sint_p(x) mpfr_fits_uint_p(x,MPFR_DEFAULT_RND) 1014a238c70SJohn Marino #undef mpf_fits_uint_p 1024a238c70SJohn Marino #define mpf_fits_uint_p(x) mpfr_fits_uint_p(x,MPFR_DEFAULT_RND) 1034a238c70SJohn Marino #undef mpf_fits_sshort_p 1044a238c70SJohn Marino #define mpf_fits_sshort_p(x) mpfr_fits_ushort_p(x,MPFR_DEFAULT_RND) 1054a238c70SJohn Marino #undef mpf_fits_ushort_p 1064a238c70SJohn Marino #define mpf_fits_ushort_p(x) mpfr_fits_ushort_p(x,MPFR_DEFAULT_RND) 1074a238c70SJohn Marino #undef mpf_get_str 1084a238c70SJohn Marino #define mpf_get_str(x,y,z,t,u) mpfr_get_str(x,y,z,t,u,MPFR_DEFAULT_RND) 1094a238c70SJohn Marino #undef mpf_get_d 1104a238c70SJohn Marino #define mpf_get_d(x) mpfr_get_d(x,MPFR_DEFAULT_RND) 1114a238c70SJohn Marino #undef mpf_get_d_2exp 1124a238c70SJohn Marino #define mpf_get_d_2exp(e,x) mpfr_get_d_2exp(e,x,MPFR_DEFAULT_RND) 1134a238c70SJohn Marino #undef mpf_get_ui 1144a238c70SJohn Marino #define mpf_get_ui(x) mpfr_get_ui(x,MPFR_DEFAULT_RND) 1154a238c70SJohn Marino #undef mpf_get_si 1164a238c70SJohn Marino #define mpf_get_si(x) mpfr_get_ui(x,MPFR_DEFAULT_RND) 1174a238c70SJohn Marino #undef mpf_inp_str 1184a238c70SJohn Marino #define mpf_inp_str(x,y,z) mpfr_inp_str(x,y,z,MPFR_DEFAULT_RND) 1194a238c70SJohn Marino #undef mpf_set_str 1204a238c70SJohn Marino #define mpf_set_str(x,y,z) mpfr_set_str(x,y,z,MPFR_DEFAULT_RND) 1214a238c70SJohn Marino #undef mpf_init_set 1224a238c70SJohn Marino #define mpf_init_set(x,y) mpfr_init_set(x,y,MPFR_DEFAULT_RND) 1234a238c70SJohn Marino #undef mpf_init_set_d 1244a238c70SJohn Marino #define mpf_init_set_d(x,y) mpfr_init_set_d(x,y,MPFR_DEFAULT_RND) 1254a238c70SJohn Marino #undef mpf_init_set_si 1264a238c70SJohn Marino #define mpf_init_set_si(x,y) mpfr_init_set_si(x,y,MPFR_DEFAULT_RND) 1274a238c70SJohn Marino #undef mpf_init_set_str 1284a238c70SJohn Marino #define mpf_init_set_str(x,y,z) mpfr_init_set_str(x,y,z,MPFR_DEFAULT_RND) 1294a238c70SJohn Marino #undef mpf_init_set_ui 1304a238c70SJohn Marino #define mpf_init_set_ui(x,y) mpfr_init_set_ui(x,y,MPFR_DEFAULT_RND) 1314a238c70SJohn Marino #undef mpf_mul 1324a238c70SJohn Marino #define mpf_mul(x,y,z) mpfr_mul(x,y,z,MPFR_DEFAULT_RND) 1334a238c70SJohn Marino #undef mpf_mul_2exp 1344a238c70SJohn Marino #define mpf_mul_2exp(x,y,z) mpfr_mul_2exp(x,y,z,MPFR_DEFAULT_RND) 1354a238c70SJohn Marino #undef mpf_mul_ui 1364a238c70SJohn Marino #define mpf_mul_ui(x,y,z) mpfr_mul_ui(x,y,z,MPFR_DEFAULT_RND) 1374a238c70SJohn Marino #undef mpf_neg 1384a238c70SJohn Marino #define mpf_neg(x,y) mpfr_neg(x,y,MPFR_DEFAULT_RND) 1394a238c70SJohn Marino #undef mpf_out_str 1404a238c70SJohn Marino #define mpf_out_str(x,y,z,t) mpfr_out_str(x,y,z,t,MPFR_DEFAULT_RND) 1414a238c70SJohn Marino #undef mpf_pow_ui 1424a238c70SJohn Marino #define mpf_pow_ui(x,y,z) mpfr_pow_ui(x,y,z,MPFR_DEFAULT_RND) 1434a238c70SJohn Marino #undef mpf_reldiff 1444a238c70SJohn Marino #define mpf_reldiff(x,y,z) mpfr_reldiff(x,y,z,MPFR_DEFAULT_RND) 1454a238c70SJohn Marino #undef mpf_set 1464a238c70SJohn Marino #define mpf_set(x,y) mpfr_set(x,y,MPFR_DEFAULT_RND) 1474a238c70SJohn Marino #undef mpf_set_d 1484a238c70SJohn Marino #define mpf_set_d(x,y) mpfr_set_d(x,y,MPFR_DEFAULT_RND) 1494a238c70SJohn Marino #undef mpf_set_q 1504a238c70SJohn Marino #define mpf_set_q(x,y) mpfr_set_q(x,y,MPFR_DEFAULT_RND) 1514a238c70SJohn Marino #undef mpf_set_si 1524a238c70SJohn Marino #define mpf_set_si(x,y) mpfr_set_si(x,y,MPFR_DEFAULT_RND) 1534a238c70SJohn Marino #undef mpf_set_ui 1544a238c70SJohn Marino #define mpf_set_ui(x,y) mpfr_set_ui(x,y,MPFR_DEFAULT_RND) 1554a238c70SJohn Marino #undef mpf_set_z 1564a238c70SJohn Marino #define mpf_set_z(x,y) mpfr_set_z(x,y,MPFR_DEFAULT_RND) 1574a238c70SJohn Marino #undef mpf_sqrt 1584a238c70SJohn Marino #define mpf_sqrt(x,y) mpfr_sqrt(x,y,MPFR_DEFAULT_RND) 1594a238c70SJohn Marino #undef mpf_sqrt_ui 1604a238c70SJohn Marino #define mpf_sqrt_ui(x,y) mpfr_sqrt_ui(x,y,MPFR_DEFAULT_RND) 1614a238c70SJohn Marino #undef mpf_sub 1624a238c70SJohn Marino #define mpf_sub(x,y,z) mpfr_sub(x,y,z,MPFR_DEFAULT_RND) 1634a238c70SJohn Marino #undef mpf_sub_ui 1644a238c70SJohn Marino #define mpf_sub_ui(x,y,z) mpfr_sub_ui(x,y,z,MPFR_DEFAULT_RND) 1654a238c70SJohn Marino #undef mpf_ui_div 1664a238c70SJohn Marino #define mpf_ui_div(x,y,z) mpfr_ui_div(x,y,z,MPFR_DEFAULT_RND) 1674a238c70SJohn Marino #undef mpf_ui_sub 1684a238c70SJohn Marino #define mpf_ui_sub(x,y,z) mpfr_ui_sub(x,y,z,MPFR_DEFAULT_RND) 1694a238c70SJohn Marino #undef mpf_urandomb 1704a238c70SJohn Marino #define mpf_urandomb(x,y,n) mpfr_urandomb(x,y) 1714a238c70SJohn Marino 1724a238c70SJohn Marino #undef mpz_set_f 1734a238c70SJohn Marino #define mpz_set_f(z,f) mpfr_get_z(z,f,MPFR_DEFAULT_RND) 1744a238c70SJohn Marino 1754a238c70SJohn Marino #endif /* __MPFR_FROM_MPF__ */ 176