Return to ox_pari.h CVS log

Up to [local] / OpenXM / src / ox_pari

Annotation of OpenXM/src/ox_pari/ox_pari.h, Revision 1.1

1.1     ! noro        1: #include <stdio.h>
        !             2: #include <stdlib.h>
        !             3: #include <string.h>
        !             4: #include "pari/pari.h"
        !             5: #include "pari/paripriv.h"
        !             6: #include "gmp.h"
        !             7: #include "gmp-impl.h"
        !             8: #include "mpfr.h"
        !             9: #include "ox_toolkit.h"
        !            10:
        !            11: void init_pari(void);
        !            12: cmo_error2 *make_error2(char *message);
        !            13:
        !            14: cmo *GEN_to_cmo(GEN z);
        !            15: cmo_zz *GEN_to_cmo_zz(GEN z);
        !            16: cmo_qq *GEN_to_cmo_qq(GEN z);
        !            17: cmo_bf *GEN_to_cmo_bf(GEN z);
        !            18: cmo_list *GEN_to_cmo_list(GEN z);
        !            19: cmo_complex *GEN_to_cmo_cmo_complex(GEN z);
        !            20: cmo_polynomial_in_one_variable *GEN_to_cmo_up(GEN z);
        !            21: cmo_recursive_polynomial *GEN_to_cmo_rp(GEN z);
        !            22:
        !            23: GEN cmo_to_GEN(cmo *c);
        !            24: GEN cmo_int32_to_GEN(cmo_int32 *c);
        !            25: GEN cmo_zz_to_GEN(cmo_zz *c);
        !            26: GEN cmo_qq_to_GEN(cmo_qq *c);
        !            27: GEN cmo_bf_to_GEN(cmo_bf *c);
        !            28: GEN cmo_list_to_GEN(cmo_list *c);
        !            29: GEN cmo_rp_to_GEN(cmo_recursive_polynomial *c);
        !            30: GEN cmo_up_to_GEN(cmo_polynomial_in_one_variable *c);
        !            31: GEN cmo_complex_to_GEN(cmo_complex *c);
        !            32:
        !            33: struct parif *search_parif(char *name);
        !            34:
        !            35: #define PARI_MAX_AC 64
        !            36: struct parif {
        !            37:   char *name;
        !            38:   GEN (*f)();
        !            39:   int type;
        !            40: };
        !            41:
        !            42: #define MPFR_PREC(x)      ((x)->_mpfr_prec)
        !            43: #define MPFR_EXP(x)       ((x)->_mpfr_exp)
        !            44: #define MPFR_MANT(x)      ((x)->_mpfr_d)
        !            45: #define MPFR_LAST_LIMB(x) ((MPFR_PREC (x) - 1) / GMP_NUMB_BITS)
        !            46: #define MPFR_LIMB_SIZE(x) (MPFR_LAST_LIMB (x) + 1)
        !            47: