Annotation of OpenXM/src/ox_pari/pari_ftab.c, Revision 1.1
1.1 ! noro 1: #include "ox_pari.h"
! 2:
! 3: /* type=1 : one num/poly/mat arg */
! 4:
! 5: struct parif parif_tab[] = {
! 6: /* (ulong)allocatemoremem(ulong) */
! 7: {"allocatemem",(GEN (*)())allocatemoremem,0},
! 8: /* num/num */
! 9: {"abs",gabs,1},
! 10: {"erfc",gerfc,1},
! 11: {"arg",garg,1},
! 12: {"isqrt",racine,1},
! 13: {"gamma",ggamma,1},
! 14: {"zeta",gzeta,1},
! 15: {"floor",gfloor,1},
! 16: {"frac",gfrac,1},
! 17: {"imag",gimag,1},
! 18: {"conj",gconj,1},
! 19: {"ceil",gceil,1},
! 20: {"isprime",gisprime,1},
! 21: {"bigomega",gbigomega,1},
! 22: {"denom",denom,1},
! 23: {"numer",numer,1},
! 24: {"lngamma",glngamma,1},
! 25: {"logagm",glogagm,1},
! 26: {"classno",classno,1},
! 27: {"classno2",classno2,1},
! 28: {"dilog",dilog,1},
! 29: {"disc",discsr,1},
! 30: {"discf",discf,1},
! 31: {"nextprime",nextprime,1},
! 32: {"eintg1",eint1,1},
! 33: {"eta",eta,1},
! 34: {"issqfree",gissquarefree,1},
! 35: {"issquare",gcarreparfait,1},
! 36: {"gamh",ggamd,1},
! 37: {"hclassno",classno3,1},
! 38:
! 39: /* num/array */
! 40: {"binary",binaire,1},
! 41: {"factorint",factorint,1},
! 42: {"factor",Z_factor,1},
! 43: {"cf",gcf,1},
! 44: {"divisors",divisors,1},
! 45: {"smallfact",smallfact,1},
! 46:
! 47: /* poly/poly */
! 48: {"centerlift",centerlift,1},
! 49: {"content",content,1},
! 50:
! 51: /* poly/array */
! 52: {"galois",galois,1},
! 53: {"roots",roots,1},
! 54:
! 55: /* mat/mat */
! 56: {"adj",adj,1},
! 57: {"lll",lll,1},
! 58: {"lllgen",lllgen,1},
! 59: {"lllgram",lllgram,1},
! 60: {"lllgramgen",lllgramgen,1},
! 61: {"lllgramint",lllgramint,1},
! 62: {"lllgramkerim",lllgramkerim,1},
! 63: {"lllgramkerimgen",lllgramkerimgen,1},
! 64: {"lllint",lllint,1},
! 65: {"lllkerim",lllkerim,1},
! 66: {"lllkerimgen",lllkerimgen,1},
! 67: {"trans",gtrans,1},
! 68: {"eigen",eigen,1},
! 69: {"hermite",hnf,1},
! 70: {"mat",gtomat,1},
! 71: {"matrixqz2",matrixqz2,1},
! 72: {"matrixqz3",matrixqz3,1},
! 73: {"hess",hess,1},
! 74: {"ker",ker,1},
! 75: {"keri",keri,1},
! 76: {"kerint",kerint,1},
! 77: {"kerintg1",kerint1,1},
! 78:
! 79: /* mat/poly */
! 80: {"det",det,1},
! 81: {"det2",det2,1},
! 82:
! 83: /* not examined yet */
! 84: {"image",image,1},
! 85: {"image2",image2,1},
! 86: {"indexrank",indexrank,1},
! 87: {"indsort",indexsort,1},
! 88: {"initalg",initalg,1},
! 89: {"isfund",gisfundamental,1},
! 90: {"ispsp",gispsp,1},
! 91: {"jacobi",jacobi,1},
! 92: {"jell",jell,1},
! 93: {"length",(GEN(*)())glength,1},
! 94: {"lexsort",lexsort,1},
! 95: {"lift",lift,1},
! 96: {"lindep",lindep,1},
! 97: {"modreverse",polymodrecip,1},
! 98: {"mu",gmu,1},
! 99: {"norm",gnorm,1},
! 100: {"norml2",gnorml2,1},
! 101: {"numdiv",numbdiv,1},
! 102: {"omega",gomega,1},
! 103: {"order",order,1},
! 104: {"ordred",ordred,1},
! 105: {"phi",phi,1},
! 106: {"pnqn",pnqn,1},
! 107: {"primroot",gener,1},
! 108: {"psi",gpsi,1},
! 109: {"quadgen",quadgen ,1},
! 110: {"quadpoly",quadpoly ,1},
! 111: {"recip",polrecip ,1},
! 112: {"redreal",redreal ,1},
! 113: {"regula",regula ,1},
! 114: {"reorder",reorder ,1},
! 115: {"rhoreal",rhoreal ,1},
! 116: {"sigma",sumdiv,1},
! 117: {"signat",signat,1},
! 118: {"simplify",simplify,1},
! 119: {"smith",smith,1},
! 120: {"smith2",smith2,1},
! 121: {"sort",sort,1},
! 122: {"sqr",gsqr,1},
! 123: {"sqred",sqred,1},
! 124: {"sqrt",gsqrt,1},
! 125: {"supplement",suppl,1},
! 126: {"trace",gtrace,1},
! 127: {"trunc",gtrunc,1},
! 128: {"unit",fundunit,1},
! 129: {"wf",wf,1},
! 130: {"wf2",wf2,1},
! 131:
! 132: /* obsolete or useless */
! 133: #if 0
! 134: {"matsize",matsize,1},
! 135: {"real",greal,1},
! 136: {"round",ground,1},
! 137: {"vec",gtovec,1},
! 138: {"reverse",recip ,1},
! 139: {"polred",polred,1},
! 140: {"polred2",polred2,1},
! 141: {"smalldiscf",smalldiscf,1},
! 142: {"smallpolred",smallpolred,1},
! 143: {"smallpolred2",smallpolred2,1},
! 144: #endif
! 145: };
! 146:
! 147: struct parif *search_parif(char *name)
! 148: {
! 149: int tablen,i;
! 150:
! 151: tablen = sizeof(parif_tab)/sizeof(struct parif);
! 152: for ( i = 0; i < tablen; i++ ) {
! 153: if ( !strcmp(parif_tab[i].name,name) )
! 154: return &parif_tab[i];
! 155: }
! 156: return 0;
! 157: }
! 158:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>