diff --git a/Flint2.cabal b/Flint2.cabal --- a/Flint2.cabal +++ b/Flint2.cabal @@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: Flint2 -version: 0.1.0.0 +version: 0.1.0.1 synopsis: Haskell bindings for the flint library for number theory description: Please see the README on GitHub at category: Math @@ -20,6 +20,9 @@ extra-source-files: README.md ChangeLog.md + package.yaml + stack.yaml + gpl-2.0.txt extra-doc-files: docs/out.png @@ -300,6 +303,50 @@ FunctionalDependencies include-dirs: csrc + install-includes: + acb.h + acb_mat.h + acb_modular.h + acb_poly.h + aprcl.h + arb.h + arb_calc.h + arb_fpwrap.h + arb_mat.h + arb_poly.h + arf.h + bool_mat.h + d_mat.h + double_interval.h + fmpq.h + fmpq_mat.h + fmpq_poly.h + fmpq_vec.h + fmpz.h + fmpz_factor.h + fmpz_mat.h + fmpz_mod_poly_factor.h + fmpz_mpoly_q.h + fmpz_poly_mat.h + fmpz_vec.h + fmpzi.h + fq.h + fq_mat.h + fq_nmod.h + fq_nmod_mat.h + fq_zech.h + fq_zech_mat.h + mag.h + mpfr_mat.h + nmod_poly_factor.h + nmod_poly_mat.h + padic_mat.h + padic_poly.h + perm.h + psl2z.h + qadic.h + qfb.h + qqbar.h c-sources: csrc/fmpz/init.c csrc/fmpz/clear.c diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -3,35 +3,14 @@ ## Installation -Clone it with - -```bash -git clone https://github.com/monien/Flint2.git -``` - -then goto to the Flint2 directory and use - -```bash -stack install -stack haddock -``` - -Have a look at the **Main.hs** in the **app** directory first and then use -As long as Flint2 is not available from Stackage (Hackage) this requires specification of -the location of Flint2 in the global stack.yaml file which might be either a local directory -or github commit. See the [stack](https://docs.haskellstack.org/en/stable/GUIDE/) documentation for details. - -```bash -stack install Flint2 -stack haddock Flint2 -``` +- Install the C-library available from [Flint](https://flintlib.org). + There are packages available for various operating systems. -This will install a binary **flint_test** in **~/.local/bin** which is just shows the basic functionality of the current Flint2 wrapper. +- Install the Haskell interface with ```bash -stack ghci +cabal install Flint2 ``` -for Flint2 in a haskell shell. ## Quick Start diff --git a/csrc/acb.h b/csrc/acb.h new file mode 100644 --- /dev/null +++ b/csrc/acb.h @@ -0,0 +1,12 @@ +#ifndef ACB_H_ +#define ACB_H_ + +#include + +char* acb_get_str (const acb_t x); +char* acb_get_strd(const acb_t x, slong digits); +char* acb_get_strn(const acb_t x, slong digits, ulong flags); + +#endif // ACB_H_ + + diff --git a/csrc/acb_mat.h b/csrc/acb_mat.h new file mode 100644 --- /dev/null +++ b/csrc/acb_mat.h @@ -0,0 +1,16 @@ +#ifndef CSRC_ACB_MAT_H_ +#define CSRC_ACB_MAT_H_ + +#include + +#include + +acb_ptr acb_mat_entry_(acb_mat_t mat, slong i, slong j); + +char* acb_mat_get_strd(const acb_mat_t mat, slong digits); +char* acb_mat_get_strn(const acb_mat_t mat, slong digits, ulong options); + +void +acb_mat_fprintn(FILE * file, const acb_mat_t mat, slong digits, ulong options); + +#endif // CSRC_ACB_MAT_H_ diff --git a/csrc/acb_modular.h b/csrc/acb_modular.h new file mode 100644 --- /dev/null +++ b/csrc/acb_modular.h @@ -0,0 +1,16 @@ +#ifndef ACB_MODULAR_H_ +#define ACB_MODULAR_H_ + +#include + +void psl2z_init_(psl2z_t g); +void psl2z_clear_(psl2z_t g); +void psl2z_swap_(psl2z_t f, psl2z_t g); +void psl2z_set_(psl2z_t h, const psl2z_t g); +void psl2z_one_(psl2z_t g); +int psl2z_equal_(const psl2z_t f, const psl2z_t g); +int psl2z_is_one_(const psl2z_t f); + +char * psl2z_get_str(const psl2z_t x); + +#endif ACB_MODULAR_H_ diff --git a/csrc/acb_poly.h b/csrc/acb_poly.h new file mode 100644 --- /dev/null +++ b/csrc/acb_poly.h @@ -0,0 +1,10 @@ +#ifndef CSRC_ACB_POLY_H_ +#define CSRC_ACB_POLY_H_ + +#include + +char * acb_poly_get_strd(const acb_poly_t x, slong digits); + +#endif // CSRC_ACB_POLY_H_ + + diff --git a/csrc/aprcl.h b/csrc/aprcl.h new file mode 100644 --- /dev/null +++ b/csrc/aprcl.h @@ -0,0 +1,12 @@ +#ifndef CSRC_APRCL_H_ +#define CSRC_APRCL_H_ + +#include + +char* +unity_zp_get_str(const unity_zp z); + +void +unity_zp_fprint(FILE * file, const unity_zp f); + +#endif // CSRC_APRCL_H_ diff --git a/csrc/arb.h b/csrc/arb.h new file mode 100644 --- /dev/null +++ b/csrc/arb.h @@ -0,0 +1,13 @@ +#ifndef ARB_H_ +#define ARB_H_ + +#include + +arf_struct * arb_midref_(arb_t x); +char * arb_get_str_(const arb_t x); +char * arb_get_strd(const arb_t x, slong digits); +char * arb_get_strn(const arb_t x, slong digits, ulong options); + +#endif // ARB_H_ + + diff --git a/csrc/arb_calc.h b/csrc/arb_calc.h new file mode 100644 --- /dev/null +++ b/csrc/arb_calc.h @@ -0,0 +1,17 @@ +#ifndef CSRC_ARB_CALC_H_ +#define CSRC_ARB_CALC_H_ + +#include + +void arf_interval_init_(arf_interval_t v); +void arf_interval_clear_(arf_interval_t v); +arf_interval_ptr _arf_interval_vec_init_(slong n); +void _arf_interval_vec_clear_(arf_interval_ptr v, slong n); + +void arf_interval_set_(arf_interval_t v, const arf_interval_t u); +void arf_interval_swap_(arf_interval_t v, arf_interval_t u); +void arf_interval_get_arb_(arb_t x, const arf_interval_t v, slong prec); + +char * arf_interval_get_strd(const arf_interval_t u, const slong digits); + +#endif // CSRC_ARB_CALC_H_ diff --git a/csrc/arb_fpwrap.h b/csrc/arb_fpwrap.h new file mode 100644 --- /dev/null +++ b/csrc/arb_fpwrap.h @@ -0,0 +1,209 @@ +#ifndef CSRC_ARB_FPWRAP_H_ +#define CSRC_ARB_FPWRAP_H_ + +#include + +// Haskell does not allow call by value for structure +// +// changed argument: complex_double -> complex_value * + +int arb_fpwrap_double_exp_(double * res, double x, int flags); +int arb_fpwrap_cdouble_exp_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_expm1_(double * res, double x, int flags); +int arb_fpwrap_cdouble_expm1_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_log_(double * res, double x, int flags); +int arb_fpwrap_cdouble_log_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_log1p_(double * res, double x, int flags); +int arb_fpwrap_cdouble_log1p_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_pow_(double * res, double x, double y, int flags); +int arb_fpwrap_cdouble_pow_(complex_double * res, complex_double * x, complex_double * y, int flags); +int arb_fpwrap_double_sqrt_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sqrt_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_rsqrt_(double * res, double x, int flags); +int arb_fpwrap_cdouble_rsqrt_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_cbrt_(double * res, double x, int flags); +int arb_fpwrap_cdouble_cbrt_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_sin_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sin_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_cos_(double * res, double x, int flags); +int arb_fpwrap_cdouble_cos_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_tan_(double * res, double x, int flags); +int arb_fpwrap_cdouble_tan_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_cot_(double * res, double x, int flags); +int arb_fpwrap_cdouble_cot_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_sec_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sec_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_csc_(double * res, double x, int flags); +int arb_fpwrap_cdouble_csc_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_sinc_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sinc_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_sin_pi_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sin_pi_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_cos_pi_(double * res, double x, int flags); +int arb_fpwrap_cdouble_cos_pi_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_tan_pi_(double * res, double x, int flags); +int arb_fpwrap_cdouble_tan_pi_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_cot_pi_(double * res, double x, int flags); +int arb_fpwrap_cdouble_cot_pi_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_sinc_pi_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sinc_pi_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_asin_(double * res, double x, int flags); +int arb_fpwrap_cdouble_asin_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_acos_(double * res, double x, int flags); +int arb_fpwrap_cdouble_acos_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_atan_(double * res, double x, int flags); +int arb_fpwrap_cdouble_atan_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_atan2_(double * res, double x1, double x2, int flags); +int arb_fpwrap_double_asinh_(double * res, double x, int flags); +int arb_fpwrap_cdouble_asinh_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_acosh_(double * res, double x, int flags); +int arb_fpwrap_cdouble_acosh_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_atanh_(double * res, double x, int flags); +int arb_fpwrap_cdouble_atanh_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_lambertw_(double * res, double x, slong branch, int flags); +int arb_fpwrap_cdouble_lambertw_(complex_double * res, complex_double * x, slong branch, int flags); +int arb_fpwrap_double_rising_(double * res, double x, double n, int flags); +int arb_fpwrap_cdouble_rising_(complex_double * res, complex_double * x, complex_double * n, int flags); +int arb_fpwrap_double_gamma_(double * res, double x, int flags); +int arb_fpwrap_cdouble_gamma_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_rgamma_(double * res, double x, int flags); +int arb_fpwrap_cdouble_rgamma_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_lgamma_(double * res, double x, int flags); +int arb_fpwrap_cdouble_lgamma_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_digamma_(double * res, double x, int flags); +int arb_fpwrap_cdouble_digamma_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_zeta_(double * res, double x, int flags); +int arb_fpwrap_cdouble_zeta_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_hurwitz_zeta_(double * res, double s, double z, int flags); +int arb_fpwrap_cdouble_hurwitz_zeta_(complex_double * res, complex_double * s, complex_double * z, int flags); +int arb_fpwrap_double_lerch_phi_(double * res, double z, double s, double a, int flags); +int arb_fpwrap_cdouble_lerch_phi_(complex_double * res, complex_double * z, complex_double * s, complex_double * a, int flags); +int arb_fpwrap_double_barnes_g_(double * res, double x, int flags); +int arb_fpwrap_cdouble_barnes_g_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_log_barnes_g_(double * res, double x, int flags); +int arb_fpwrap_cdouble_log_barnes_g_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_polygamma_(double * res, double s, double z, int flags); +int arb_fpwrap_cdouble_polygamma_(complex_double * res, complex_double * s, complex_double * z, int flags); +int arb_fpwrap_double_polylog_(double * res, double s, double z, int flags); +int arb_fpwrap_cdouble_polylog_(complex_double * res, complex_double * s, complex_double * z, int flags); +int arb_fpwrap_cdouble_dirichlet_eta_(complex_double * res, complex_double * s, int flags); +int arb_fpwrap_cdouble_riemann_xi_(complex_double * res, complex_double * s, int flags); +int arb_fpwrap_cdouble_hardy_theta_(complex_double * res, complex_double * z, int flags); +int arb_fpwrap_cdouble_hardy_z_(complex_double * res, complex_double * z, int flags); +int arb_fpwrap_cdouble_zeta_zero_(complex_double * res, ulong n, int flags); +int arb_fpwrap_double_erf_(double * res, double x, int flags); +int arb_fpwrap_cdouble_erf_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_erfc_(double * res, double x, int flags); +int arb_fpwrap_cdouble_erfc_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_erfi_(double * res, double x, int flags); +int arb_fpwrap_cdouble_erfi_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_erfinv_(double * res, double x, int flags); +int arb_fpwrap_double_erfcinv_(double * res, double x, int flags); +int arb_fpwrap_double_fresnel_s_(double * res, double x, int normalized, int flags); +int arb_fpwrap_cdouble_fresnel_s_(complex_double * res, complex_double * x, int normalized, int flags); +int arb_fpwrap_double_fresnel_c_(double * res, double x, int normalized, int flags); +int arb_fpwrap_cdouble_fresnel_c_(complex_double * res, complex_double * x, int normalized, int flags); +int arb_fpwrap_double_gamma_upper_(double * res, double s, double z, int regularized, int flags); +int arb_fpwrap_cdouble_gamma_upper_(complex_double * res, complex_double * s, complex_double * z, int regularized, int flags); +int arb_fpwrap_double_gamma_lower_(double * res, double s, double z, int regularized, int flags); +int arb_fpwrap_cdouble_gamma_lower_(complex_double * res, complex_double * s, complex_double * z, int regularized, int flags); +int arb_fpwrap_double_beta_lower_(double * res, double a, double b, double z, int regularized, int flags); +int arb_fpwrap_cdouble_beta_lower_(complex_double * res, complex_double * a, complex_double * b, complex_double * z, int regularized, int flags); +int arb_fpwrap_double_exp_integral_e_(double * res, double s, double z, int flags); +int arb_fpwrap_cdouble_exp_integral_e_(complex_double * res, complex_double * s, complex_double * z, int flags); +int arb_fpwrap_double_exp_integral_ei_(double * res, double x, int flags); +int arb_fpwrap_cdouble_exp_integral_ei_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_sin_integral_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sin_integral_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_cos_integral_(double * res, double x, int flags); +int arb_fpwrap_cdouble_cos_integral_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_sinh_integral_(double * res, double x, int flags); +int arb_fpwrap_cdouble_sinh_integral_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_cosh_integral_(double * res, double x, int flags); +int arb_fpwrap_cdouble_cosh_integral_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_log_integral_(double * res, double x, int offset, int flags); +int arb_fpwrap_cdouble_log_integral_(complex_double * res, complex_double * x, int offset, int flags); +int arb_fpwrap_double_dilog_(double * res, double x, int flags); +int arb_fpwrap_cdouble_dilog_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_bessel_j_(double * res, double nu, double x, int flags); +int arb_fpwrap_cdouble_bessel_j_(complex_double * res, complex_double * nu, complex_double * x, int flags); +int arb_fpwrap_double_bessel_y_(double * res, double nu, double x, int flags); +int arb_fpwrap_cdouble_bessel_y_(complex_double * res, complex_double * nu, complex_double * x, int flags); +int arb_fpwrap_double_bessel_i_(double * res, double nu, double x, int flags); +int arb_fpwrap_cdouble_bessel_i_(complex_double * res, complex_double * nu, complex_double * x, int flags); +int arb_fpwrap_double_bessel_k_(double * res, double nu, double x, int flags); +int arb_fpwrap_cdouble_bessel_k_(complex_double * res, complex_double * nu, complex_double * x, int flags); +int arb_fpwrap_double_bessel_k_scaled_(double * res, double nu, double x, int flags); +int arb_fpwrap_cdouble_bessel_k_scaled_(complex_double * res, complex_double * nu, complex_double * x, int flags); +int arb_fpwrap_double_airy_ai_(double * res, double x, int flags); +int arb_fpwrap_cdouble_airy_ai_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_airy_ai_prime_(double * res, double x, int flags); +int arb_fpwrap_cdouble_airy_ai_prime_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_airy_bi_(double * res, double x, int flags); +int arb_fpwrap_cdouble_airy_bi_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_airy_bi_prime_(double * res, double x, int flags); +int arb_fpwrap_cdouble_airy_bi_prime_(complex_double * res, complex_double * x, int flags); +int arb_fpwrap_double_airy_ai_zero_(double * res, ulong n, int flags); +int arb_fpwrap_double_airy_ai_prime_zero_(double * res, ulong n, int flags); +int arb_fpwrap_double_airy_bi_zero_(double * res, ulong n, int flags); +int arb_fpwrap_double_airy_bi_prime_zero_(double * res, ulong n, int flags); +int arb_fpwrap_double_coulomb_f_(double * res, double l, double eta, double x, int flags); +int arb_fpwrap_cdouble_coulomb_f_(complex_double * res, complex_double * l, complex_double * eta, complex_double * x, int flags); +int arb_fpwrap_double_coulomb_g_(double * res, double l, double eta, double x, int flags); +int arb_fpwrap_cdouble_coulomb_g_(complex_double * res, complex_double * l, complex_double * eta, complex_double * x, int flags); +int arb_fpwrap_cdouble_coulomb_hpos_(complex_double * res, complex_double * l, complex_double * eta, complex_double * x, int flags); +int arb_fpwrap_cdouble_coulomb_hneg_(complex_double * res, complex_double * l, complex_double * eta, complex_double * x, int flags); +int arb_fpwrap_double_chebyshev_t_(double * res, double n, double x, int flags); +int arb_fpwrap_cdouble_chebyshev_t_(complex_double * res, complex_double * n, complex_double * x, int flags); +int arb_fpwrap_double_chebyshev_u_(double * res, double n, double x, int flags); +int arb_fpwrap_cdouble_chebyshev_u_(complex_double * res, complex_double * n, complex_double * x, int flags); +int arb_fpwrap_double_jacobi_p_(double * res, double n, double a, double b, double x, int flags); +int arb_fpwrap_cdouble_jacobi_p_(complex_double * res, complex_double * n, complex_double * a, complex_double * b, complex_double * x, int flags); +int arb_fpwrap_double_gegenbauer_c_(double * res, double n, double m, double x, int flags); +int arb_fpwrap_cdouble_gegenbauer_c_(complex_double * res, complex_double * n, complex_double * m, complex_double * x, int flags); +int arb_fpwrap_double_laguerre_l_(double * res, double n, double m, double x, int flags); +int arb_fpwrap_cdouble_laguerre_l_(complex_double * res, complex_double * n, complex_double * m, complex_double * x, int flags); +int arb_fpwrap_double_hermite_h_(double * res, double n, double x, int flags); +int arb_fpwrap_cdouble_hermite_h_(complex_double * res, complex_double * n, complex_double * x, int flags); +int arb_fpwrap_double_legendre_p_(double * res, double n, double m, double x, int type, int flags); +int arb_fpwrap_cdouble_legendre_p_(complex_double * res, complex_double * n, complex_double * m, complex_double * x, int type, int flags); +int arb_fpwrap_double_legendre_q_(double * res, double n, double m, double x, int type, int flags); +int arb_fpwrap_cdouble_legendre_q_(complex_double * res, complex_double * n, complex_double * m, complex_double * x, int type, int flags); +int arb_fpwrap_double_legendre_root_(double * res1, double * res2, ulong n, ulong k, int flags); +int arb_fpwrap_cdouble_spherical_y_(complex_double * res, slong n, slong m, complex_double * x1, complex_double * x2, int flags); +int arb_fpwrap_double_hypgeom_0f1_(double * res, double a, double x, int regularized, int flags); +int arb_fpwrap_cdouble_hypgeom_0f1_(complex_double * res, complex_double * a, complex_double * x, int regularized, int flags); +int arb_fpwrap_double_hypgeom_1f1_(double * res, double a, double b, double x, int regularized, int flags); +int arb_fpwrap_cdouble_hypgeom_1f1_(complex_double * res, complex_double * a, complex_double * b, complex_double * x, int regularized, int flags); +int arb_fpwrap_double_hypgeom_u_(double * res, double a, double b, double x, int flags); +int arb_fpwrap_cdouble_hypgeom_u_(complex_double * res, complex_double * a, complex_double * b, complex_double * x, int flags); +int arb_fpwrap_double_hypgeom_2f1_(double * res, double a, double b, double c, double x, int regularized, int flags); +int arb_fpwrap_cdouble_hypgeom_2f1_(complex_double * res, complex_double * a, complex_double * b, complex_double * c, complex_double * x, int regularized, int flags); +int arb_fpwrap_double_hypgeom_pfq_(double * res, const double * a, slong p, const double * b, slong q, double z, int regularized, int flags); +int arb_fpwrap_cdouble_hypgeom_pfq_(complex_double * res, const complex_double * a, slong p, const complex_double * b, slong q, complex_double * z, int regularized, int flags); +int arb_fpwrap_double_agm_(double * res, double x, double y, int flags); +int arb_fpwrap_cdouble_agm_(complex_double * res, complex_double * x, complex_double * y, int flags); +int arb_fpwrap_cdouble_elliptic_k_(complex_double * res, complex_double * m, int flags); +int arb_fpwrap_cdouble_elliptic_e_(complex_double * res, complex_double * m, int flags); +int arb_fpwrap_cdouble_elliptic_pi_(complex_double * res, complex_double * n, complex_double * m, int flags); +int arb_fpwrap_cdouble_elliptic_f_(complex_double * res, complex_double * phi, complex_double * m, int pi, int flags); +int arb_fpwrap_cdouble_elliptic_e_inc_(complex_double * res, complex_double * phi, complex_double * m, int pi, int flags); +int arb_fpwrap_cdouble_elliptic_pi_inc_(complex_double * res, complex_double * n, complex_double * phi, complex_double * m, int pi, int flags); +int arb_fpwrap_cdouble_elliptic_rf_(complex_double * res, complex_double * x, complex_double * y, complex_double * z, int option, int flags); +int arb_fpwrap_cdouble_elliptic_rg_(complex_double * res, complex_double * x, complex_double * y, complex_double * z, int option, int flags); +int arb_fpwrap_cdouble_elliptic_rj_(complex_double * res, complex_double * x, complex_double * y, complex_double * z, complex_double * w, int option, int flags); +int arb_fpwrap_cdouble_elliptic_p_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_elliptic_p_prime_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_elliptic_inv_p_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_elliptic_zeta_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_elliptic_sigma_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_jacobi_theta_1_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_jacobi_theta_2_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_jacobi_theta_3_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_jacobi_theta_4_(complex_double * res, complex_double * z, complex_double * tau, int flags); +int arb_fpwrap_cdouble_dedekind_eta_(complex_double * res, complex_double * tau, int flags); +int arb_fpwrap_cdouble_modular_j_(complex_double * res, complex_double * tau, int flags); +int arb_fpwrap_cdouble_modular_lambda_(complex_double * res, complex_double * tau, int flags); +int arb_fpwrap_cdouble_modular_delta_(complex_double * res, complex_double * tau, int flags); + +#endif // CSRC_ARB_FPWRAP_H_ diff --git a/csrc/arb_mat.h b/csrc/arb_mat.h new file mode 100644 --- /dev/null +++ b/csrc/arb_mat.h @@ -0,0 +1,16 @@ +#ifndef CSRC_ARB_MAT_H_ +#define CSRC_ARB_MAT_H_ + +#include + +#include + +arb_ptr arb_mat_entry_(arb_mat_t mat, slong i, slong j); + +char* arb_mat_get_strd(const arb_mat_t mat, slong digits); +char* arb_mat_get_strn(const arb_mat_t mat, slong digits, ulong options); + +void +arb_mat_fprintn(FILE * file, const arb_mat_t mat, slong digits, ulong options); + +#endif // CSRC_ARB_MAT_H_ diff --git a/csrc/arb_poly.h b/csrc/arb_poly.h new file mode 100644 --- /dev/null +++ b/csrc/arb_poly.h @@ -0,0 +1,10 @@ +#ifndef ARB_POLY_H_ +#define ARB_POLY_H_ + +#include + +char * arb_poly_get_strd(const arb_poly_t x, slong digits); + +#endif // ARB_POLY_H_ + + diff --git a/csrc/arf.h b/csrc/arf.h new file mode 100644 --- /dev/null +++ b/csrc/arf.h @@ -0,0 +1,81 @@ +#ifndef ARF_H_ +#define ARF_H_ + +#include +#include + +int arf_rounds_down_(arf_rnd_t rnd, int sgnbit); +int arf_rounds_up_(arf_rnd_t rnd, int sgnbit); +mpfr_rnd_t arf_rnd_to_mpfr_(arf_rnd_t rnd); +void arf_init_(arf_t x); +void arf_zero_(arf_t x); +void arf_pos_inf_(arf_t x); +void arf_neg_inf_(arf_t x); +void arf_nan_(arf_t x); +int arf_is_special_(const arf_t x); +int arf_is_zero_(const arf_t x); +int arf_is_pos_inf_(const arf_t x); +int arf_is_neg_inf_(const arf_t x); +int arf_is_nan_(const arf_t x); +int arf_is_normal_(const arf_t x); +int arf_is_finite_(const arf_t x); +int arf_is_inf_(const arf_t x); +void arf_one_(arf_t x); +int arf_is_one_(const arf_t x); +int arf_sgn_(const arf_t x); +void arf_swap_(arf_t y, arf_t x); +void arf_neg_(arf_t y, const arf_t x); +void arf_init_set_ui_(arf_t x, ulong v); +void arf_init_set_si_(arf_t x, slong v); +void arf_set_ui_(arf_t x, ulong v); +void arf_set_si_(arf_t x, slong v); +void arf_init_set_shallow_(arf_t z, const arf_t x); +void arf_init_neg_shallow_(arf_t z, const arf_t x); +void arf_init_set_mag_shallow_(arf_t y, const mag_t x); +void arf_init_neg_mag_shallow_(arf_t z, const mag_t x); +int arf_cmpabs_mag_(const arf_t x, const mag_t y); +int arf_mag_cmpabs_(const mag_t x, const arf_t y); +void arf_set_mpz_(arf_t y, const mpz_t x); +void arf_set_fmpz_(arf_t y, const fmpz_t x); +int arf_set_round_ui_(arf_t x, ulong v, slong prec, arf_rnd_t rnd); +int arf_set_round_si_(arf_t x, slong v, slong prec, arf_rnd_t rnd); +int arf_set_round_mpz_(arf_t y, const mpz_t x, slong prec, arf_rnd_t rnd); +int arf_set_round_fmpz_(arf_t y, const fmpz_t x, slong prec, arf_rnd_t rnd); +void arf_min_(arf_t z, const arf_t a, const arf_t b); +void arf_max_(arf_t z, const arf_t a, const arf_t b); +void arf_abs_(arf_t y, const arf_t x); +slong arf_bits_(const arf_t x); +void arf_bot_(fmpz_t e, const arf_t x); +void arf_set_si_2exp_si_(arf_t x, slong man, slong exp); +void arf_mul_(arf_t z, arf_t x, arf_t y, slong prec, arf_rnd_t rnd); +void arf_set_ui_2exp_si_(arf_t x, ulong man, slong exp); +void arf_mul_2exp_si_(arf_t y, const arf_t x, slong e); +void arf_mul_2exp_fmpz_(arf_t y, const arf_t x, const fmpz_t e); +int arf_set_round_fmpz_2exp_(arf_t y, const fmpz_t x, const fmpz_t exp, slong prec, arf_rnd_t rnd); +void arf_abs_bound_lt_2exp_fmpz_(fmpz_t b, const arf_t x); +void arf_abs_bound_le_2exp_fmpz_(fmpz_t b, const arf_t x); +int arf_neg_mul_(arf_t z, const arf_t x, const arf_t y, slong prec, arf_rnd_t rnd); +int arf_mul_ui_(arf_ptr z, arf_srcptr x, ulong y, slong prec, arf_rnd_t rnd); +int arf_mul_si_(arf_ptr z, arf_srcptr x, slong y, slong prec, arf_rnd_t rnd); +int arf_mul_fmpz_(arf_ptr z, arf_srcptr x, const fmpz_t y, slong prec, arf_rnd_t rnd); +int arf_addmul_ui_(arf_ptr z, arf_srcptr x, ulong y, slong prec, arf_rnd_t rnd); +int arf_addmul_si_(arf_ptr z, arf_srcptr x, slong y, slong prec, arf_rnd_t rnd); +int arf_addmul_fmpz_(arf_ptr z, arf_srcptr x, const fmpz_t y, slong prec, arf_rnd_t rnd); +int arf_submul_ui_(arf_ptr z, arf_srcptr x, ulong y, slong prec, arf_rnd_t rnd); +int arf_submul_si_(arf_ptr z, arf_srcptr x, slong y, slong prec, arf_rnd_t rnd); +int arf_submul_fmpz_(arf_ptr z, arf_srcptr x, const fmpz_t y, slong prec, arf_rnd_t rnd); +int arf_div_ui_(arf_ptr z, arf_srcptr x, ulong y, slong prec, arf_rnd_t rnd); +int arf_ui_div_(arf_ptr z, ulong x, arf_srcptr y, slong prec, arf_rnd_t rnd); +int arf_div_si_(arf_ptr z, arf_srcptr x, slong y, slong prec, arf_rnd_t rnd); +int arf_si_div_(arf_ptr z, slong x, arf_srcptr y, slong prec, arf_rnd_t rnd); +int arf_div_fmpz_(arf_ptr z, arf_srcptr x, const fmpz_t y, slong prec, arf_rnd_t rnd); +int arf_fmpz_div_(arf_ptr z, const fmpz_t x, arf_srcptr y, slong prec, arf_rnd_t rnd); +int arf_fmpz_div_fmpz_(arf_ptr z, const fmpz_t x, const fmpz_t y, slong prec, arf_rnd_t rnd); +void arf_set_mag_(arf_t y, const mag_t x); +void arf_mag_fast_add_ulp_(mag_t z, const mag_t x, const arf_t y, slong prec); +void arf_mag_add_ulp_(mag_t z, const mag_t x, const arf_t y, slong prec); +void arf_mag_set_ulp_(mag_t z, const arf_t y, slong prec); +int arf_set_fmpq_(arf_t y, const fmpq_t x, slong prec, arf_rnd_t rnd); +slong arf_allocated_bytes_(const arf_t x); + +#endif // ARF_H_ diff --git a/csrc/bool_mat.h b/csrc/bool_mat.h new file mode 100644 --- /dev/null +++ b/csrc/bool_mat.h @@ -0,0 +1,12 @@ +#ifndef CSRC_BOOL_MAT_H_ +#define CSRC_BOOL_MAT_H_ + +#include + +#include +#include + +char* +bool_mat_get_str(const bool_mat_t mat); + +#endif // CSRC_BOOL_MAT_H_ diff --git a/csrc/d_mat.h b/csrc/d_mat.h new file mode 100644 --- /dev/null +++ b/csrc/d_mat.h @@ -0,0 +1,11 @@ +#ifndef CSRC_DMAT_H_ +#define CSRC_DMAT_H_ + +#include +#include + +double d_mat_entry_(d_mat_t a, slong i, slong j); +void d_mat_fprint(FILE *file, const d_mat_t mat); +char* d_mat_get_str(const d_mat_t mat); + +#endif // CSRC_DMAT_H_ diff --git a/csrc/double_interval.h b/csrc/double_interval.h new file mode 100644 --- /dev/null +++ b/csrc/double_interval.h @@ -0,0 +1,13 @@ +#ifndef CSRC_DOUBLE_INTERVAL_H_ +#define CSRC_DOUBLE_INTERVAL_H_ + +#include +#include + +void +di_fprint(FILE * out, const di_t x); + +char * +di_get_str(const di_t x); + +#endif // CSRC_DOUBLE_INTERVAL_H_ diff --git a/csrc/fmpq.h b/csrc/fmpq.h new file mode 100644 --- /dev/null +++ b/csrc/fmpq.h @@ -0,0 +1,13 @@ +#ifndef FMPQ_H_ +#define FMPQ_H_ + +#include +#include + +void fmpq_get_fmpz_frac(fmpz_t num, fmpz_t den, fmpq_t r); +void fmpq_mediant(fmpq_t x, fmpq_t l, fmpq_t r); + +slong fmpq_get_cfrac_st(fmpz *c, fmpq_t rem, const fmpq_t x, slong n); +void fmpq_set_cfrac_st(fmpq_t x, const fmpz *c, slong n); + +#endif // FMPQ_H_ diff --git a/csrc/fmpq_mat.h b/csrc/fmpq_mat.h new file mode 100644 --- /dev/null +++ b/csrc/fmpq_mat.h @@ -0,0 +1,16 @@ +#ifndef FMPQ_MAT_H_ +#define FMPQ_MAT_H_ + +#include + +#include +#include +#include + +char* +fmpq_mat_get_str(const fmpq_mat_t mat); + +int +fmpq_mat_fprint(FILE * file, const fmpq_mat_t mat); + +#endif // FMPQ_MAT_H_ diff --git a/csrc/fmpq_poly.h b/csrc/fmpq_poly.h new file mode 100644 --- /dev/null +++ b/csrc/fmpq_poly.h @@ -0,0 +1,20 @@ +#ifndef CSRC_FMPQ_POLY_H_ +#define CSRC_FMPQ_POLY_H_ + +#include +#include + +void +fmpq_poly_fprint_pretty_as_series( + FILE *file, + fmpq_poly_t poly, + const char *var +); + +char * fmpq_poly_get_str_pretty_as_series(fmpq_poly_t poly, const char *var); +void fmpq_poly_print_pretty_as_series(fmpq_poly_t poly, const char *var); + +void _fmpq_poly_monien_h (fmpz * coeffs, fmpz_t den, ulong n); +void fmpq_poly_monien_h (fmpq_poly_t poly, ulong n); + +#endif // CSRC_FMPQ_POLY_H_ diff --git a/csrc/fmpq_vec.h b/csrc/fmpq_vec.h new file mode 100644 --- /dev/null +++ b/csrc/fmpq_vec.h @@ -0,0 +1,13 @@ +#ifndef FMPQ_VEC_H_ +#define FMPQ_VEC_H_ + +#include + +#include +#include +#include + +char* +fmpq_vec_get_str(const long n, const fmpq_t vec); + +#endif // FMPQ_VEC_H_ diff --git a/csrc/fmpz.h b/csrc/fmpz.h new file mode 100644 --- /dev/null +++ b/csrc/fmpz.h @@ -0,0 +1,9 @@ +#ifndef FMPZ_H_ +#define FMPZ_H_ + +#include + +void fmpz_init_(fmpz_t t); +void fmpz_clear_(fmpz_t t); + +#endif // FMPZ_H_ diff --git a/csrc/fmpz_factor.h b/csrc/fmpz_factor.h new file mode 100644 --- /dev/null +++ b/csrc/fmpz_factor.h @@ -0,0 +1,22 @@ +#ifndef FMPZ_FACTOR_H_ +#define FMPZ_FACTOR_H_ + +#include + +#include +#include +#include + +void +fmpz_factor_init_(fmpz_factor_t x); + +void +fmpz_factor_clear_(fmpz_factor_t x); + +void +fmpz_factor_fprint(FILE * out, const fmpz_factor_t factor); + +char* +fmpz_factor_get_str(const fmpz_factor_t factor); + +#endif // FMPZ_FACTOR_H_ diff --git a/csrc/fmpz_mat.h b/csrc/fmpz_mat.h new file mode 100644 --- /dev/null +++ b/csrc/fmpz_mat.h @@ -0,0 +1,16 @@ +#ifndef FMPZ_MAT_H_ +#define FMPZ_MAT_H_ + +#include + +#include +#include +#include + +char* +fmpz_mat_get_str(const fmpz_mat_t mat); + +char* +fmpz_mat_get_str_pretty(const fmpz_mat_t mat); + +#endif // FMPZ_MAT_H_ diff --git a/csrc/fmpz_mod_poly_factor.h b/csrc/fmpz_mod_poly_factor.h new file mode 100644 --- /dev/null +++ b/csrc/fmpz_mod_poly_factor.h @@ -0,0 +1,25 @@ +#ifndef CSRC_FMPZ_MOD_POLY_FACTOR_H_ +#define CSRC_FMPZ_MOD_POLY_FACTOR_H_ + +#include + +#include +#include + +void +fmpz_mod_poly_factor_fprint(FILE * out, + const fmpz_mod_poly_factor_t fac, + const fmpz_mod_ctx_t ctx); + +void +fmpz_mod_poly_factor_fprint_pretty(FILE * out, + const fmpz_mod_poly_factor_t fac, + const char *var, + const fmpz_mod_ctx_t ctx); + + +char * +fmpz_mod_poly_factor_get_str(const fmpz_mod_poly_factor_t fac, + const fmpz_mod_ctx_t ctx); + +#endif // CSRC_FMPZ_MOD_POLY_FACTOR_H_ diff --git a/csrc/fmpz_mpoly_q.h b/csrc/fmpz_mpoly_q.h new file mode 100644 --- /dev/null +++ b/csrc/fmpz_mpoly_q.h @@ -0,0 +1,14 @@ +#ifndef FMPZ_MPOLY_Q_H_ +#define FMPZ_MPOLY_Q_H_ + +#include +#include +#include + +char* +fmpz_mpoly_q_get_str_pretty(const fmpz_mpoly_q_t x, const char ** vars, const fmpz_mpoly_ctx_t ctx); + +void +fmpz_mpoly_q_fprint_pretty(FILE *out, const fmpz_mpoly_q_t f, const char ** x, const fmpz_mpoly_ctx_t ctx); + +#endif diff --git a/csrc/fmpz_poly_mat.h b/csrc/fmpz_poly_mat.h new file mode 100644 --- /dev/null +++ b/csrc/fmpz_poly_mat.h @@ -0,0 +1,13 @@ +#ifndef FMPZ_MAT_H_ +#define FMPZ_MAT_H_ + +#include + +#include +#include +#include + +void +fmpz_poly_mat_fprint(FILE * file, const fmpz_poly_mat_t A, const char * x); + +#endif // FMPZ_MAT_H_ diff --git a/csrc/fmpz_vec.h b/csrc/fmpz_vec.h new file mode 100644 --- /dev/null +++ b/csrc/fmpz_vec.h @@ -0,0 +1,13 @@ +#ifndef FMPZ_VEC_H_ +#define FMPZ_VEC_H_ + +#include + +#include +#include +#include + +char* +fmpz_vec_get_str(const long n, const fmpz_t vec); + +#endif // FMPZ_VEC_H_ diff --git a/csrc/fmpzi.h b/csrc/fmpzi.h new file mode 100644 --- /dev/null +++ b/csrc/fmpzi.h @@ -0,0 +1,13 @@ +#ifndef CSRC_FMPZI_H_ +#define CSRC_FMPZI_H_ + +#include +#include + +void +fmpzi_fprint(FILE * file, const fmpzi_t z); + +char* +fmpzi_get_str(const fmpzi_t z); + +#endif // CSRC_FMPZI_H_ diff --git a/csrc/fq.h b/csrc/fq.h new file mode 100644 --- /dev/null +++ b/csrc/fq.h @@ -0,0 +1,12 @@ +#ifndef CSRC_FQ_H_ +#define CSRC_FQ_H_ + +#include + +#include +#include + +char* +fq_ctx_get_str(const fq_ctx_t ctx); + +#endif // FQ_H_ diff --git a/csrc/fq_mat.h b/csrc/fq_mat.h new file mode 100644 --- /dev/null +++ b/csrc/fq_mat.h @@ -0,0 +1,16 @@ +#ifndef FMPZ_MAT_H_ +#define FMPZ_MAT_H_ + +#include + +#include +#include +#include + +char* +fq_mat_get_str(const fq_mat_t mat, const fq_ctx_t ctx); + +char* +fq_mat_get_str_pretty(const fq_mat_t mat, const fq_ctx_t ctx); + +#endif // FQ_MAT_H_ diff --git a/csrc/fq_nmod.h b/csrc/fq_nmod.h new file mode 100644 --- /dev/null +++ b/csrc/fq_nmod.h @@ -0,0 +1,8 @@ +#ifndef CSRC_FQ_NMOD_H_ +#define CSRC_FQ_NMOD_H_ + +#include + +char * fq_nmod_ctx_get_str(const fq_nmod_ctx_t ctx); + +#endif // CSRC_FQ_NMOD_H_ diff --git a/csrc/fq_nmod_mat.h b/csrc/fq_nmod_mat.h new file mode 100644 --- /dev/null +++ b/csrc/fq_nmod_mat.h @@ -0,0 +1,16 @@ +#ifndef CSRC_FQ_NMOD_MAT_H_ +#define CSRC_FQ_NMOD_MAT_H_ + +#include + +#include +#include +#include + +char* +fq_nmod_mat_get_str(const fq_nmod_mat_t mat, fq_nmod_ctx_t ctx); + +char* +fq_nmod_mat_get_str_pretty(const fq_nmod_mat_t mat, fq_nmod_ctx_t ctx); + +#endif // FQ_NMOD_MAT_H_ diff --git a/csrc/fq_zech.h b/csrc/fq_zech.h new file mode 100644 --- /dev/null +++ b/csrc/fq_zech.h @@ -0,0 +1,9 @@ +#ifndef CSRC_FQ_ZECH_H_ +#define CSRC_FQ_ZECH_H_ + +#include + +char* +fq_zech_ctx_get_str(const fq_zech_ctx_t ctx); + +#endif // CSRC_FQ_ZECH_H_ diff --git a/csrc/fq_zech_mat.h b/csrc/fq_zech_mat.h new file mode 100644 --- /dev/null +++ b/csrc/fq_zech_mat.h @@ -0,0 +1,16 @@ +#ifndef CSRC_FQ_ZECH_MAT_H_ +#define CSRC_FQ_ZECH_MAT_H_ + +#include + +#include +#include +#include + +char* +fq_zech_mat_get_str(const fq_zech_mat_t mat, fq_zech_ctx_t ctx); + +char* +fq_zech_mat_get_str_pretty(const fq_zech_mat_t mat, fq_zech_ctx_t ctx); + +#endif // FQ_ZECH_MAT_H_ diff --git a/csrc/mag.h b/csrc/mag.h new file mode 100644 --- /dev/null +++ b/csrc/mag.h @@ -0,0 +1,8 @@ +#ifndef MAG_H_ +#define MAG_H_ + +#include + +char * mag_get_str(const mag_t x); + +#endif // MAG_H_ diff --git a/csrc/mpfr_mat.h b/csrc/mpfr_mat.h new file mode 100644 --- /dev/null +++ b/csrc/mpfr_mat.h @@ -0,0 +1,10 @@ +#ifndef MPFR_MAT_H_ +#define MPFR_MAT_H_ + +#include +#include + +void +mpfr_mat_swap_entrywise_(mpfr_mat_t mat1, mpfr_mat_t mat2); + +#endif // MPFR_MAT_H_ diff --git a/csrc/nmod_poly_factor.h b/csrc/nmod_poly_factor.h new file mode 100644 --- /dev/null +++ b/csrc/nmod_poly_factor.h @@ -0,0 +1,25 @@ +#ifndef CSRC_NMOD_POLY_FACTOR_H_ +#define CSRC_NMOD_POLY_FACTOR_H_ + +#include +#include +#include + +void +nmod_poly_factor_fprint(FILE * file, + const nmod_poly_factor_t fac); + +void +nmod_poly_factor_fprint_pretty(FILE * file, + const nmod_poly_factor_t fac, + const char *var); + +char* +nmod_poly_factor_get_str(const nmod_poly_factor_t fac); + +char* +nmod_poly_factor_get_str_pretty(const nmod_poly_factor_t fac, const char *var); + +#endif // CSRC_NMOD_POLY_FACTOR_H_ + + diff --git a/csrc/nmod_poly_mat.h b/csrc/nmod_poly_mat.h new file mode 100644 --- /dev/null +++ b/csrc/nmod_poly_mat.h @@ -0,0 +1,16 @@ +#ifndef NMOD_POLY_MAT_H_ +#define NMOD_POLY_MAT_H_ + +#include + +#include +#include +#include + +char* +nmod_poly_mat_get_str(const nmod_poly_mat_t mat, const char * x); + +void +nmod_poly_mat_fprint(FILE * file, const nmod_poly_mat_t mat, const char * x); + +#endif // NMOD_POLY_MAT_H_ diff --git a/csrc/padic_mat.h b/csrc/padic_mat.h new file mode 100644 --- /dev/null +++ b/csrc/padic_mat.h @@ -0,0 +1,16 @@ +#ifndef CSRC_PADIC_MAT_H_ +#define CSRC_PADIC_MAT_H_ + +#include + +#include +#include +#include + +char* +padic_mat_get_str(const padic_mat_t mat, padic_ctx_t ctx); + +char* +padic_mat_get_str_pretty(const padic_mat_t mat, padic_ctx_t ctx); + +#endif // PADIC_MAT_H_ diff --git a/csrc/padic_poly.h b/csrc/padic_poly.h new file mode 100644 --- /dev/null +++ b/csrc/padic_poly.h @@ -0,0 +1,13 @@ +#ifndef CSRC_PADIC_POLY_H_ +#define CSRC_PADIC_POLY_H_ + +#include + +char* +padic_poly_get_str(padic_poly_t poly, padic_ctx ctx); + +char* +padic_poly_get_str_pretty(padic_poly_t poly, const char *var, + const padic_ctx_t ctx); + +#endif // CSRC_PADIC_POLY_H_ diff --git a/csrc/perm.h b/csrc/perm.h new file mode 100644 --- /dev/null +++ b/csrc/perm.h @@ -0,0 +1,16 @@ +#ifndef CSRC_PERM_H_ +#define CSRC_PERM_H_ + +#include +#include + +void _perm_order(fmpz_t order, slong *x, slong n); +void _perm_power(slong *x_p, slong *x, slong p, slong n); + +void _perm_mat(fmpz_mat_t a, slong *x, slong n); + +void _perm_fprint_pretty(FILE *out, slong *x, slong n); +void _perm_print_pretty(slong *x, slong n); +char * _perm_get_str_pretty(slong *x, slong n); + +#endif // CSRC_PERM_H_ diff --git a/csrc/psl2z.h b/csrc/psl2z.h new file mode 100644 --- /dev/null +++ b/csrc/psl2z.h @@ -0,0 +1,35 @@ +#ifndef CSRC_PULLBACK_H_ +#define CSRC_PULLBACK_H_ + +#include +#include +#include + +typedef struct { + fmpz * letters; + slong alloc; +} psl2z_word_struct; + +typedef psl2z_word_struct psl2z_word_t[1]; + +void psl2z_word_init(psl2z_word_t word); +void psl2z_word_clear(psl2z_word_t word); + +void psl2z_normal_form(psl2z_t x); + +void psl2z_get_word(psl2z_word_t word, psl2z_t gamma); +void psl2z_set_word(psl2z_t gamma, psl2z_word_t word); + +void psl2z_word_fprint(FILE * file, psl2z_word_t word); +void psl2z_word_print(psl2z_word_t word); +char * psl2z_word_get_str(psl2z_word_t word); + +void psl2z_word_fprint_pretty(FILE * file, psl2z_word_t word); +void psl2z_word_print_pretty(psl2z_word_t word); +char * psl2z_word_get_str_pretty(psl2z_word_t word); + +void _perm_set_word(slong *x, slong *s, slong *t, slong n, psl2z_word_t word); + +void psl2z_get_perm(slong *p, slong *s, slong *t, slong n, psl2z_t g); + +#endif // CSRC_PULLBACK_H_ diff --git a/csrc/qadic.h b/csrc/qadic.h new file mode 100644 --- /dev/null +++ b/csrc/qadic.h @@ -0,0 +1,12 @@ +#ifndef CSRC_QADIC_H_ +#define CSRC_QADIC_H_ + +#include + +char * qadic_get_str(char * str, quadic_t x, quadic_ctx_t ctx); + +char* +padic_poly_get_str_pretty(padic_poly_t poly, const char *var, + const padic_ctx_t ctx); + +#endif // CSRC_QADIC_H_ diff --git a/csrc/qfb.h b/csrc/qfb.h new file mode 100644 --- /dev/null +++ b/csrc/qfb.h @@ -0,0 +1,11 @@ +#ifndef QFB_H_ +#define QFB_H_ + +#include +#include + +void qfb_fprint(FILE * out, const qfb_t x); +char * qfb_get_str(const qfb_t x); + + +#endif // QFB_H_ diff --git a/csrc/qqbar.h b/csrc/qqbar.h new file mode 100644 --- /dev/null +++ b/csrc/qqbar.h @@ -0,0 +1,15 @@ +#ifndef QQBAR_H_ +#define QQBAR_H_ + +#include +#include + +void qqbar_fprint(FILE * out, const qqbar_t x); +void qqbar_fprintn(FILE * out, const qqbar_t x, slong n); +void qqbar_fprintnd(FILE * out, const qqbar_t x, slong n); + +char * qqbar_get_str(const qqbar_t x); +char * qqbar_get_strn(const qqbar_t x, slong digits); +char * qqbar_get_strnd(const qqbar_t x, slong digits); + +#endif // QQBAR_H_ diff --git a/gpl-2.0.txt b/gpl-2.0.txt new file mode 100644 --- /dev/null +++ b/gpl-2.0.txt @@ -0,0 +1,339 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc., + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Lesser General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License along + with this program; if not, write to the Free Software Foundation, Inc., + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. diff --git a/package.yaml b/package.yaml new file mode 100644 --- /dev/null +++ b/package.yaml @@ -0,0 +1,498 @@ +name: Flint2 +version: 0.1.0.1 +github: "monien/Flint2" +license: BSD3 +author: "Hartmut Monien" +maintainer: "hmonien@uni-bonn.de" +copyright: "Copyright (c) 2022 Hartmut Monien" +category: Math +synopsis: "Haskell bindings for the flint library for number theory" + +extra-source-files: +- README.md +- ChangeLog.md +- package.yaml +- stack.yaml +- gpl-2.0.txt + +extra-doc-files: docs/*.png + +description: Please see the README on GitHub at + +dependencies: +- base >= 4.7 && < 5 + +library: + source-dirs: src + default-extensions: + - CApiFFI + - ForeignFunctionInterface + - FlexibleInstances + - TupleSections + - RankNTypes + - ScopedTypeVariables + - GADTs + - DataKinds + - TypeFamilies + - TypeOperators + - TypeSynonymInstances + - TypeFamilies + - KindSignatures + - MultiParamTypeClasses + - FunctionalDependencies + exposed-modules: + - Data.Number.Flint + - Data.Number.Flint.Flint + - Data.Number.Flint.Flint.External + - Data.Number.Flint.Flint.Internal + - Data.Number.Flint.MPoly + - Data.Number.Flint.UFD + - Data.Number.Flint.Quotient + # Fmpz + - Data.Number.Flint.Fmpz + - Data.Number.Flint.Fmpz.Instances + - Data.Number.Flint.Fmpz.Arith + - Data.Number.Flint.Fmpz.Factor + - Data.Number.Flint.Fmpz.Mat + - Data.Number.Flint.Fmpz.Mat.Instances + - Data.Number.Flint.Fmpz.Vec + - Data.Number.Flint.Fmpz.Poly + - Data.Number.Flint.Fmpz.Poly.Instances + - Data.Number.Flint.Fmpz.Poly.Factor + - Data.Number.Flint.Fmpz.Poly.Mat + - Data.Number.Flint.Fmpz.Poly.Q + - Data.Number.Flint.Fmpz.Poly.Q.Instances + - Data.Number.Flint.Fmpz.MPoly + - Data.Number.Flint.Fmpz.MPoly.Factor + - Data.Number.Flint.Fmpz.MPoly.Q + - Data.Number.Flint.Fmpz.LLL + - Data.Number.Flint.Fmpz.Mod + - Data.Number.Flint.Fmpz.Mod.Poly + - Data.Number.Flint.Fmpz.Mod.Poly.Factor + - Data.Number.Flint.Fmpz.Mod.MPoly + - Data.Number.Flint.Fmpz.Mod.MPoly.Factor + - Data.Number.Flint.Fmpz.Mod.Mat + - Data.Number.Flint.Fmpz.Mod.Vec + # Fmpq + - Data.Number.Flint.Fmpq + - Data.Number.Flint.Fmpq.Instances + - Data.Number.Flint.Fmpq.Mat + - Data.Number.Flint.Fmpq.Mat.Instances + - Data.Number.Flint.Fmpq.Vec + - Data.Number.Flint.Fmpq.Poly + - Data.Number.Flint.Fmpq.Poly.Instances + - Data.Number.Flint.Fmpq.MPoly + - Data.Number.Flint.Fmpq.MPoly.Factor + # NMod + - Data.Number.Flint.NMod.Types + - Data.Number.Flint.NMod + - Data.Number.Flint.NMod.Poly + - Data.Number.Flint.NMod.Poly.Instances + - Data.Number.Flint.NMod.Poly.Factor + - Data.Number.Flint.NMod.Poly.Mat + - Data.Number.Flint.NMod.MPoly + - Data.Number.Flint.NMod.MPoly.Factor + - Data.Number.Flint.NMod.Mat + - Data.Number.Flint.NMod.Vec + # Groups + - Data.Number.Flint.Groups.Perm + - Data.Number.Flint.Groups.Qfb + - Data.Number.Flint.Groups.Qfb.Instances + - Data.Number.Flint.Groups.Dirichlet + - Data.Number.Flint.Groups.DLog + - Data.Number.Flint.Groups.Bool.Mat + - Data.Number.Flint.Groups.Bool.Mat.Instances + # APRCL + - Data.Number.Flint.APRCL + # FFT + - Data.Number.Flint.FFT + # - Data.Number.Flint.FFT.Small + # QSieve + - Data.Number.Flint.QSieve + # Fq + - Data.Number.Flint.Fq.Types + - Data.Number.Flint.Fq + - Data.Number.Flint.Fq.Embed + - Data.Number.Flint.Fq.Poly + - Data.Number.Flint.Fq.Poly.Factor + - Data.Number.Flint.Fq.Mat + - Data.Number.Flint.Fq.Vec + # Fq NMod + - Data.Number.Flint.Fq.NMod.Types + - Data.Number.Flint.Fq.NMod + - Data.Number.Flint.Fq.NMod.Embed + - Data.Number.Flint.Fq.NMod.Poly + - Data.Number.Flint.Fq.NMod.Poly.Factor + - Data.Number.Flint.Fq.NMod.MPoly + - Data.Number.Flint.Fq.NMod.MPoly.Factor + - Data.Number.Flint.Fq.NMod.Mat + - Data.Number.Flint.Fq.NMod.Vec + # Fq Zech + - Data.Number.Flint.Fq.Zech.Types + - Data.Number.Flint.Fq.Zech + - Data.Number.Flint.Fq.Zech.Embed + - Data.Number.Flint.Fq.Zech.Poly + - Data.Number.Flint.Fq.Zech.Poly.Factor + - Data.Number.Flint.Fq.Zech.Vec + - Data.Number.Flint.Fq.Zech.Mat + # Padic + - Data.Number.Flint.Padic + - Data.Number.Flint.Padic.Poly + - Data.Number.Flint.Padic.Mat + - Data.Number.Flint.Qadic + # Support + - Data.Number.Flint.Support.ULong.Extras + - Data.Number.Flint.Support.D.Extras + - Data.Number.Flint.Support.D.Interval + - Data.Number.Flint.Support.D.Mat + - Data.Number.Flint.Support.D.Mat.Instances + - Data.Number.Flint.Support.D.Vec + - Data.Number.Flint.Support.Mpf.Mat + - Data.Number.Flint.Support.Mpf.Vec + - Data.Number.Flint.Support.Mpfr.Mat + - Data.Number.Flint.Support.Mpfr.Vec + - Data.Number.Flint.ThreadPool + # Arb + - Data.Number.Flint.Arb.Types + - Data.Number.Flint.Arb + - Data.Number.Flint.Arb.Instances + - Data.Number.Flint.Arb.Mag + - Data.Number.Flint.Arb.Arf + - Data.Number.Flint.Arb.Poly + - Data.Number.Flint.Arb.Poly.Instances + - Data.Number.Flint.Arb.Fmpz.Poly + - Data.Number.Flint.Arb.Mat + - Data.Number.Flint.Arb.Mat.Instances + - Data.Number.Flint.Arb.Hypgeom + - Data.Number.Flint.Arb.RealField + - Data.Number.Flint.Arb.Calc + - Data.Number.Flint.Arb.FpWrap + # Acb + - Data.Number.Flint.Acb.Types + - Data.Number.Flint.Acb + - Data.Number.Flint.Acb.Instances + - Data.Number.Flint.Acb.Acf + - Data.Number.Flint.Acb.Poly + - Data.Number.Flint.Acb.Poly.Instances + - Data.Number.Flint.Acb.Mat + - Data.Number.Flint.Acb.Mat.Instances + - Data.Number.Flint.Acb.Hypgeom + - Data.Number.Flint.Acb.Elliptic + - Data.Number.Flint.Acb.Modular + - Data.Number.Flint.Acb.Modular.Instances + - Data.Number.Flint.Acb.Dirichlet + - Data.Number.Flint.Acb.DFT + - Data.Number.Flint.Acb.ComplexField + - Data.Number.Flint.Acb.Calc + # Other + - Data.Number.Flint.Bernoulli + - Data.Number.Flint.Partitions + - Data.Number.Flint.Hypgeom + # NF + - Data.Number.Flint.NF + - Data.Number.Flint.NF.Elem + - Data.Number.Flint.NF.Fmpzi + - Data.Number.Flint.NF.Fmpzi.Instances + - Data.Number.Flint.NF.QQbar + - Data.Number.Flint.NF.QQbar.Instances + other-modules: + - Data.Number.Flint.Flint.FFI + - Data.Number.Flint.Flint.External.GMP.FFI + - Data.Number.Flint.Flint.External.Mpfr.FFI + - Data.Number.Flint.Flint.Internal.FFI + - Data.Number.Flint.MPoly.FFI + # Fmpz + - Data.Number.Flint.Fmpz.FFI + - Data.Number.Flint.Fmpz.Arith.FFI + - Data.Number.Flint.Fmpz.Factor.FFI + - Data.Number.Flint.Fmpz.Mat.FFI + - Data.Number.Flint.Fmpz.Vec.FFI + - Data.Number.Flint.Fmpz.Poly.FFI + - Data.Number.Flint.Fmpz.Poly.Factor.FFI + - Data.Number.Flint.Fmpz.Poly.Mat.FFI + - Data.Number.Flint.Fmpz.Poly.Q.FFI + - Data.Number.Flint.Fmpz.MPoly.FFI + - Data.Number.Flint.Fmpz.MPoly.Factor.FFI + - Data.Number.Flint.Fmpz.MPoly.Q.FFI + - Data.Number.Flint.Fmpz.LLL.FFI + - Data.Number.Flint.Fmpz.Mod.FFI + - Data.Number.Flint.Fmpz.Mod.Poly.FFI + - Data.Number.Flint.Fmpz.Mod.Poly.Factor.FFI + - Data.Number.Flint.Fmpz.Mod.MPoly.FFI + - Data.Number.Flint.Fmpz.Mod.MPoly.Factor.FFI + - Data.Number.Flint.Fmpz.Mod.Mat.FFI + - Data.Number.Flint.Fmpz.Mod.Vec.FFI + # Fmpq + - Data.Number.Flint.Fmpq.FFI + - Data.Number.Flint.Fmpq.Mat.FFI + - Data.Number.Flint.Fmpq.Vec.FFI + - Data.Number.Flint.Fmpq.Poly.FFI + - Data.Number.Flint.Fmpq.MPoly.FFI + - Data.Number.Flint.Fmpq.MPoly.Factor.FFI + # NMod + - Data.Number.Flint.NMod.Types.FFI + - Data.Number.Flint.NMod.FFI + - Data.Number.Flint.NMod.Poly.FFI + - Data.Number.Flint.NMod.Poly.Factor.FFI + - Data.Number.Flint.NMod.Poly.Mat.FFI + - Data.Number.Flint.NMod.MPoly.FFI + - Data.Number.Flint.NMod.MPoly.Factor.FFI + - Data.Number.Flint.NMod.Mat.FFI + - Data.Number.Flint.NMod.Vec.FFI + # Groups + - Data.Number.Flint.Groups.Perm.FFI + - Data.Number.Flint.Groups.Qfb.FFI + - Data.Number.Flint.Groups.Dirichlet.FFI + - Data.Number.Flint.Groups.DLog.FFI + - Data.Number.Flint.Groups.Bool.Mat.FFI + # APRCL + - Data.Number.Flint.APRCL.FFI + # FFT + - Data.Number.Flint.FFT.FFI + # - Data.Number.Flint.FFT.Small.FFI + # Qs + - Data.Number.Flint.QSieve.FFI + # Fq + - Data.Number.Flint.Fq.FFI + - Data.Number.Flint.Fq.Types.FFI + - Data.Number.Flint.Fq.Embed.FFI + - Data.Number.Flint.Fq.Poly.FFI + - Data.Number.Flint.Fq.Poly.Factor.FFI + - Data.Number.Flint.Fq.Mat.FFI + - Data.Number.Flint.Fq.Vec.FFI + # Fq NMod + - Data.Number.Flint.Fq.NMod.FFI + - Data.Number.Flint.Fq.NMod.Embed.FFI + - Data.Number.Flint.Fq.NMod.Types.FFI + - Data.Number.Flint.Fq.NMod.Poly.FFI + - Data.Number.Flint.Fq.NMod.Poly.Factor.FFI + - Data.Number.Flint.Fq.NMod.MPoly.FFI + - Data.Number.Flint.Fq.NMod.MPoly.Factor.FFI + - Data.Number.Flint.Fq.NMod.Mat.FFI + - Data.Number.Flint.Fq.NMod.Vec.FFI + # Fq Zech + - Data.Number.Flint.Fq.Zech.FFI + - Data.Number.Flint.Fq.Zech.Embed.FFI + - Data.Number.Flint.Fq.Zech.Types.FFI + - Data.Number.Flint.Fq.Zech.Poly.FFI + - Data.Number.Flint.Fq.Zech.Poly.Factor.FFI + - Data.Number.Flint.Fq.Zech.Vec.FFI + - Data.Number.Flint.Fq.Zech.Mat.FFI + # Padic + - Data.Number.Flint.Padic.FFI + - Data.Number.Flint.Padic.Poly.FFI + - Data.Number.Flint.Padic.Mat.FFI + - Data.Number.Flint.Qadic.FFI + # Floating-point support code + - Data.Number.Flint.Support.ULong.Extras.FFI + - Data.Number.Flint.Support.D.Extras.FFI + - Data.Number.Flint.Support.D.Interval.FFI + - Data.Number.Flint.Support.D.Mat.FFI + - Data.Number.Flint.Support.D.Vec.FFI + - Data.Number.Flint.Support.Mpf.Mat.FFI + - Data.Number.Flint.Support.Mpf.Vec.FFI + - Data.Number.Flint.Support.Mpfr.Mat.FFI + - Data.Number.Flint.Support.Mpfr.Vec.FFI + # ThreadPool + - Data.Number.Flint.ThreadPool.FFI + # Arb + - Data.Number.Flint.Arb.Types.FFI + - Data.Number.Flint.Arb.FFI + - Data.Number.Flint.Arb.Mag.FFI + - Data.Number.Flint.Arb.Arf.FFI + - Data.Number.Flint.Arb.Poly.FFI + - Data.Number.Flint.Arb.Fmpz.Poly.FFI + - Data.Number.Flint.Arb.Mat.FFI + - Data.Number.Flint.Arb.Hypgeom.FFI + - Data.Number.Flint.Arb.Calc.FFI + - Data.Number.Flint.Arb.FpWrap.FFI + # Acb + - Data.Number.Flint.Acb.Types.FFI + - Data.Number.Flint.Acb.FFI + - Data.Number.Flint.Acb.Acf.FFI + - Data.Number.Flint.Acb.Poly.FFI + - Data.Number.Flint.Acb.Mat.FFI + - Data.Number.Flint.Acb.Hypgeom.FFI + - Data.Number.Flint.Acb.Elliptic.FFI + - Data.Number.Flint.Acb.Modular.FFI + - Data.Number.Flint.Acb.Dirichlet.FFI + - Data.Number.Flint.Acb.DFT.FFI + - Data.Number.Flint.Acb.Calc.FFI + # Other + - Data.Number.Flint.Bernoulli.FFI + - Data.Number.Flint.Partitions.FFI + - Data.Number.Flint.Hypgeom.FFI + # NF + - Data.Number.Flint.NF.FFI + - Data.Number.Flint.NF.Elem.FFI + - Data.Number.Flint.NF.Fmpzi.FFI + - Data.Number.Flint.NF.QQbar.FFI + install-includes: + - acb.h + - acb_mat.h + - acb_modular.h + - acb_poly.h + - aprcl.h + - arb.h + - arb_calc.h + - arb_fpwrap.h + - arb_mat.h + - arb_poly.h + - arf.h + - bool_mat.h + - d_mat.h + - double_interval.h + - fmpq.h + - fmpq_mat.h + - fmpq_poly.h + - fmpq_vec.h + - fmpz.h + - fmpz_factor.h + - fmpz_mat.h + - fmpz_mod_poly_factor.h + - fmpz_mpoly_q.h + - fmpz_poly_mat.h + - fmpz_vec.h + - fmpzi.h + - fq.h + - fq_mat.h + - fq_nmod.h + - fq_nmod_mat.h + - fq_zech.h + - fq_zech_mat.h + - mag.h + - mpfr_mat.h + - nmod_poly_factor.h + - nmod_poly_mat.h + - padic_mat.h + - padic_poly.h + - perm.h + - psl2z.h + - qadic.h + - qfb.h + - qqbar.h + c-sources: + # Fmpz + - csrc/fmpz/init.c + - csrc/fmpz/clear.c + - csrc/fmpz_factor/init.c + - csrc/fmpz_factor/clear.c + - csrc/fmpz_factor/fprint.c + - csrc/fmpz_poly_mat/fprint.c + - csrc/fmpz_poly_mat/get_str.c + - csrc/fmpz_factor/get_str.c + - csrc/fmpz_mpoly_q/fprint.c + - csrc/fmpz_mpoly_q/get_str_pretty.c + - csrc/fmpz_vec/get_str.c + - csrc/fmpz_mat/get_str.c + - csrc/fmpz_mat/get_str_pretty.c + - csrc/fmpz_mod_poly_factor/fprint.c + - csrc/fmpz_mod_poly_factor/fprint_pretty.c + - csrc/fmpz_mod_poly_factor/get_str.c + - csrc/fmpz_mod_poly_factor/get_str_pretty.c + # Fmpq + - csrc/fmpq/mediant.c + - csrc/fmpq/get_fmpz_frac.c + - csrc/fmpq/cfrac_st.c + - csrc/fmpq_mat/get_str.c + - csrc/fmpq_mat/fprint.c + - csrc/fmpq_vec/get_str.c + - csrc/fmpq_poly/io_as_series.c + - csrc/fmpq_poly/monien.c + # NMod + - csrc/nmod_poly_factor/get_str.c + - csrc/nmod_poly_factor/get_str_pretty.c + - csrc/nmod_poly_factor/fprint.c + - csrc/nmod_poly_factor/fprint_pretty.c + - csrc/nmod_poly_mat/fprint.c + - csrc/nmod_poly_mat/get_str.c + # APRCL + - csrc/aprcl/fprint.c + - csrc/aprcl/get_str.c + # Groups + - csrc/bool_mat/get_str.c + - csrc/qfb/get_str.c + - csrc/qfb/fprint.c + - csrc/qqbar/fprint.c + - csrc/qqbar/fprintn.c + - csrc/qqbar/get_str.c + - csrc/qqbar/get_strn.c + - csrc/dlog/inlines.c + # Fmpzi + - csrc/fmpzi/fprint.c + - csrc/fmpzi/get_str.c + # Fq + - csrc/fq/ctx_get_str.c + - csrc/fq_mat/get_str.c + - csrc/fq_mat/get_str_pretty.c + # FqNMod + - csrc/fq_nmod/ctx_get_str.c + - csrc/fq_nmod_mat/get_str.c + - csrc/fq_nmod_mat/get_str_pretty.c + # FqZech + - csrc/fq_zech/ctx_get_str.c + - csrc/fq_zech_mat/get_str.c + - csrc/fq_zech_mat/get_str_pretty.c + # Padic + - csrc/padic_poly/get_str.c + - csrc/padic_poly/get_str_pretty.c + - csrc/padic_mat/get_str.c + - csrc/padic_mat/get_str_pretty.c + - csrc/qadic/get_str_pretty.c + # Support + - csrc/double_interval/fprint.c + - csrc/double_interval/get_str.c + - csrc/d_mat/entry.c + - csrc/d_mat/io.c + # arb + - csrc/arb/midref.c + - csrc/arf/inlines.c + - csrc/mag/get_str.c + - csrc/arb/get_strd.c + - csrc/arb/get_strn.c + - csrc/arb/get_str_.c + - csrc/arb_mat/get_strd.c + - csrc/arb_mat/get_strn.c + - csrc/arb_mat/fprintn.c + - csrc/arb_mat/entry.c + - csrc/arb_poly/get_strd.c + - csrc/arb_calc/get_strd.c + - csrc/arb_calc/inlines.c + - csrc/arb_fpwrap/fpwrap.c + # acb + - csrc/acb/get_str.c + - csrc/acb/get_strd.c + - csrc/acb/get_strn.c + - csrc/acb_poly/get_strd.c + - csrc/acb_mat/get_strd.c + - csrc/acb_mat/get_strn.c + - csrc/acb_mat/fprintn.c + - csrc/acb_mat/entry.c + - csrc/acb_modular/inlines.c + - csrc/acb_modular/get_str.c + - csrc/mpfr_mat/swap_entrywise.c + # word problem + - csrc/psl2z/word_problem.c + # perm + - csrc/perm/order.c + - csrc/perm/print_pretty.c + - csrc/perm/power.c + - csrc/perm/mat.c + include-dirs: csrc + build-tools: hsc2hs + extra-libraries: flint, gmp + pkgconfig-depends: flint >= 2.9, gmp + dependencies: + - QuickCheck + - groups + +tests: + Flint2-test: + main: Spec.hs + source-dirs: test + ghc-options: + - -threaded + - -rtsopts + - -with-rtsopts=-N + dependencies: + - Flint2 diff --git a/stack.yaml b/stack.yaml new file mode 100644 --- /dev/null +++ b/stack.yaml @@ -0,0 +1,68 @@ +# This file was automatically generated by 'stack init' +# +# Some commonly used options have been documented as comments in this file. +# For advanced use and comprehensive documentation of the format, please see: +# https://docs.haskellstack.org/en/stable/yaml_configuration/ + +# Resolver to choose a 'specific' stackage snapshot or a compiler version. +# A snapshot resolver dictates the compiler version and the set of packages +# to be used for project dependencies. For example: +# +# resolver: lts-20.26 +# resolver: nightly-2015-09-21 +# resolver: ghc-7.10.2 +# +# The location of a snapshot can be provided as a file or url. Stack assumes +# a snapshot provided as a file might change, whereas a url resource does not. +# +# resolver: ./custom-snapshot.yaml +# resolver: https://example.com/snapshots/2018-01-01.yaml +# resolver: +# url:https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/18/17.yaml +resolver: lts-21.3 + +# User packages to be built. +# Various formats can be used as shown in the example below. +# +# packages: +# - some-directory +# - https://example.com/foo/bar/baz-0.0.2.tar.gz +# subdirs: +# - auto-update +# - wai +packages: +- . +# Dependency packages to be pulled from upstream that are not in the resolver. +# These entries can reference officially published versions as well as +# forks / in-progress versions pinned to a git hash. For example: +# +# extra-deps: +# - acme-missiles-0.3 +# - git: https://github.com/commercialhaskell/stack.git +# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a +# +# extra-deps: [] + +# Override default flag values for local packages and extra-deps +# flags: {} + +# Extra package databases containing global packages +# extra-package-dbs: [] + +# Control whether we use the GHC we find on the path +# system-ghc: true +# +# Require a specific version of stack, using version ranges +# require-stack-version: -any # Default +# require-stack-version: ">=2.7" +# +# Override the architecture used by stack, especially useful on Windows +# arch: i386 +# arch: x86_64 +# +# Extra directories used by stack for building +# extra-include-dirs: [/path/to/dir] +# extra-lib-dirs: [/path/to/dir] +# +# Allow a newer minor version of GHC than the snapshot specifies +# compiler-check: newer-minor