1#ifndef ISL_INT_GMP_H
2#define ISL_INT_GMP_H
3
4#include <gmp.h>
5
6/* isl_int is the basic integer type, implemented with GMP's mpz_t.  In the
7 * future, different types such as long long or cln::cl_I will be supported.
8 */
9typedef mpz_t	isl_int;
10
11#define isl_int_init(i)		mpz_init(i)
12#define isl_int_clear(i)	mpz_clear(i)
13
14#define isl_int_set(r,i)	mpz_set(r,i)
15#define isl_int_set_si(r,i)	mpz_set_si(r,i)
16#define isl_int_set_ui(r,i)	mpz_set_ui(r,i)
17#define isl_int_fits_slong(r)	mpz_fits_slong_p(r)
18#define isl_int_get_si(r)	mpz_get_si(r)
19#define isl_int_fits_ulong(r)	mpz_fits_ulong_p(r)
20#define isl_int_get_ui(r)	mpz_get_ui(r)
21#define isl_int_get_d(r)	mpz_get_d(r)
22#define isl_int_get_str(r)	mpz_get_str(0, 10, r)
23#define isl_int_abs(r,i)	mpz_abs(r,i)
24#define isl_int_neg(r,i)	mpz_neg(r,i)
25#define isl_int_swap(i,j)	mpz_swap(i,j)
26#define isl_int_swap_or_set(i,j)	mpz_swap(i,j)
27#define isl_int_add_ui(r,i,j)	mpz_add_ui(r,i,j)
28#define isl_int_sub_ui(r,i,j)	mpz_sub_ui(r,i,j)
29
30#define isl_int_add(r,i,j)	mpz_add(r,i,j)
31#define isl_int_sub(r,i,j)	mpz_sub(r,i,j)
32#define isl_int_mul(r,i,j)	mpz_mul(r,i,j)
33#define isl_int_mul_2exp(r,i,j)	mpz_mul_2exp(r,i,j)
34#define isl_int_mul_si(r,i,j)	mpz_mul_si(r,i,j)
35#define isl_int_mul_ui(r,i,j)	mpz_mul_ui(r,i,j)
36#define isl_int_pow_ui(r,i,j)	mpz_pow_ui(r,i,j)
37#define isl_int_addmul(r,i,j)	mpz_addmul(r,i,j)
38#define isl_int_addmul_ui(r,i,j)	mpz_addmul_ui(r,i,j)
39#define isl_int_submul(r,i,j)	mpz_submul(r,i,j)
40#define isl_int_submul_ui(r,i,j)	mpz_submul_ui(r,i,j)
41
42#define isl_int_gcd(r,i,j)	mpz_gcd(r,i,j)
43#define isl_int_lcm(r,i,j)	mpz_lcm(r,i,j)
44#define isl_int_divexact(r,i,j)	mpz_divexact(r,i,j)
45#define isl_int_divexact_ui(r,i,j)	mpz_divexact_ui(r,i,j)
46#define isl_int_tdiv_q(r,i,j)	mpz_tdiv_q(r,i,j)
47#define isl_int_cdiv_q(r,i,j)	mpz_cdiv_q(r,i,j)
48#define isl_int_cdiv_q_ui(r,i,j)	mpz_cdiv_q_ui(r,i,j)
49#define isl_int_fdiv_q(r,i,j)	mpz_fdiv_q(r,i,j)
50#define isl_int_fdiv_r(r,i,j)	mpz_fdiv_r(r,i,j)
51#define isl_int_fdiv_q_ui(r,i,j)	mpz_fdiv_q_ui(r,i,j)
52
53#define isl_int_read(r,s)	mpz_set_str(r,s,10)
54#define isl_int_sgn(i)		mpz_sgn(i)
55#define isl_int_cmp(i,j)	mpz_cmp(i,j)
56#define isl_int_cmp_si(i,si)	mpz_cmp_si(i,si)
57#define isl_int_eq(i,j)		(mpz_cmp(i,j) == 0)
58#define isl_int_ne(i,j)		(mpz_cmp(i,j) != 0)
59#define isl_int_lt(i,j)		(mpz_cmp(i,j) < 0)
60#define isl_int_le(i,j)		(mpz_cmp(i,j) <= 0)
61#define isl_int_gt(i,j)		(mpz_cmp(i,j) > 0)
62#define isl_int_ge(i,j)		(mpz_cmp(i,j) >= 0)
63#define isl_int_abs_cmp(i,j)	mpz_cmpabs(i,j)
64#define isl_int_abs_eq(i,j)	(mpz_cmpabs(i,j) == 0)
65#define isl_int_abs_ne(i,j)	(mpz_cmpabs(i,j) != 0)
66#define isl_int_abs_lt(i,j)	(mpz_cmpabs(i,j) < 0)
67#define isl_int_abs_gt(i,j)	(mpz_cmpabs(i,j) > 0)
68#define isl_int_abs_ge(i,j)	(mpz_cmpabs(i,j) >= 0)
69#define isl_int_is_divisible_by(i,j)	mpz_divisible_p(i,j)
70
71uint32_t isl_gmp_hash(mpz_t v, uint32_t hash);
72#define isl_int_hash(v,h)	isl_gmp_hash(v,h)
73
74#ifndef mp_get_memory_functions
75void mp_get_memory_functions(
76		void *(**alloc_func_ptr) (size_t),
77		void *(**realloc_func_ptr) (void *, size_t, size_t),
78		void (**free_func_ptr) (void *, size_t));
79#endif
80
81typedef void (*isl_int_print_mp_free_t)(void *, size_t);
82#define isl_int_free_str(s)					\
83	do {								\
84		isl_int_print_mp_free_t mp_free;			\
85		mp_get_memory_functions(NULL, NULL, &mp_free);		\
86		(*mp_free)(s, strlen(s) + 1);				\
87	} while (0)
88
89#endif /* ISL_INT_GMP_H */
90