Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
83 lines (43 sloc) 2.07 KB
#include <mpfr.h>
#include <malloc.h>
#include <inttypes.h>
mpfr_ptr initS(const mp_prec_t );
void clear (const mpfr_ptr ) ;
// these functions are defined as macros and so haskell ffi
// can't work with them directly
int mpfr_nan_p_wrap(const mpfr_ptr) ;
int mpfr_inf_p_wrap(const mpfr_ptr) ;
int mpfr_zero_p_wrap(const mpfr_ptr) ;
int mpfr_set_wrap(const mpfr_ptr p1, const mpfr_ptr p2, mp_rnd_t r) ;
int mpfr_abs_wrap(const mpfr_ptr, const mpfr_ptr, mp_rnd_t) ;
int mpfr_set_si_wrap (const mpfr_ptr, long int, mp_rnd_t) ;
int mpfr_set_ui_wrap (const mpfr_ptr, unsigned long int, mp_rnd_t) ;
int mpfr_cmp_wrap (const mpfr_ptr, const mpfr_ptr) ;
int mpfr_cmp_si_wrap (const mpfr_ptr, signed long int ) ;
int mpfr_cmp_ui_wrap (const mpfr_ptr, unsigned long int) ;
int mpfr_sgn_wrap (const mpfr_ptr) ;
int mpfr_ceil_wrap (const mpfr_ptr , const mpfr_ptr ) ;
int mpfr_floor_wrap (const mpfr_ptr , const mpfr_ptr ) ;
int mpfr_round_wrap (const mpfr_ptr , const mpfr_ptr ) ;
int mpfr_trunc_wrap (const mpfr_ptr , const mpfr_ptr ) ;
mp_prec_t mpfr_get_prec_wrap (const mpfr_ptr ) ;
mp_exp_t mpfr_get_exp_wrap (const mpfr_ptr ) ;
int mpfr_sign_bit_wrap (const mpfr_ptr ) ;
int mpfr_setsign_wrap (const mpfr_ptr , const mpfr_ptr, int , mp_rnd_t ) ;
int mpfr_copysign_wrap (const mpfr_ptr , const mpfr_ptr , const mpfr_ptr , mp_rnd_t ) ;
int mpfr_signbit_wrap (mpfr_ptr ) ;
size_t mpfr_custom_get_size_wrap (mp_prec_t) ;
void mpfr_custom_init_wrap (void * , mp_prec_t) ;
void mpfr_custom_init_set_wrap (const mpfr_ptr , int , mp_exp_t , mp_prec_t , void *) ;
/*
intmax_t mpfr_get_sj_wrap (mpfr_ptr, mp_rnd_t );
uintmax_t mpfr_get_uj_wrap (mpfr_ptr, mp_rnd_t );
*/
int mpfr_custom_get_kind_wrap (const mpfr_ptr ) ;
void * mpfr_custom_get_mantissa_wrap (const mpfr_ptr ) ;
mp_exp_t mpfr_custom_get_exp_wrap(const mpfr_ptr ) ;
void mpfr_custom_move_wrap (const mpfr_ptr , void * ) ;
int mpfr_const_pi_wrap (const mpfr_ptr , int );
int mpfr_const_log2_wrap (const mpfr_ptr , int );
int mpfr_const_euler_wrap (const mpfr_ptr , int );
int mpfr_const_catalan__wrap (const mpfr_ptr , int );