Annotation of OpenXM_contrib2/windows/pari2/win32/paricast.h, Revision 1.1
1.1 ! noro 1: /* $Id: paricast.h,v 1.7 2002/05/10 15:10:57 karim Exp $
! 2:
! 3: Copyright (C) 2000 The PARI group.
! 4:
! 5: This file is part of the PARI/GP package.
! 6:
! 7: PARI/GP is free software; you can redistribute it and/or modify it under the
! 8: terms of the GNU General Public License as published by the Free Software
! 9: Foundation. It is distributed in the hope that it will be useful, but WITHOUT
! 10: ANY WARRANTY WHATSOEVER.
! 11:
! 12: Check the License for details. You should have received a copy of it, along
! 13: with the package; see the file 'COPYING'. If not, write to the Free Software
! 14: Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
! 15:
! 16: #ifdef lround /* in some Mac header */
! 17: # undef lround
! 18: #endif
! 19:
! 20: #define mael(ma,x1,x2) ( ((GEN) ((GEN)(ma))[x1]) [x2])
! 21: #define mael2 mael
! 22: #define mael3(ma,x1,x2,x3) ( ((GEN) mael2((ma),(x1),(x2))) [x3])
! 23: #define mael4(ma,x1,x2,x3,x4) ( ((GEN) mael3((ma),(x1),(x2),(x3))) [x4])
! 24: #define mael5(ma,x1,x2,x3,x4,x5) (\
! 25: ((GEN) mael4((ma),(x1),(x2),(x3),(x4))) [x5] \
! 26: )
! 27: #define gmael (GEN) mael
! 28: #define gmael2 (GEN) mael
! 29: #define gmael3 (GEN) mael3
! 30: #define gmael4 (GEN) mael4
! 31: #define gmael5 (GEN) mael5
! 32:
! 33: #define coeff(a,i,j) ( ( (GEN) ( (GEN) (a))[j]) [i])
! 34: #define gcoeff(a,i,j) ((GEN)coeff((a),(i),(j)))
! 35:
! 36: #define labsi (long)absi
! 37: #define labsr (long)absr
! 38: #define lach (long)gach
! 39: #define lacos (long)gacos
! 40: #define ladd (long)gadd
! 41: #define laddii (long)addii
! 42: #define laddir (long)addir
! 43: #define laddis (long)addis
! 44: #define laddmat (long)gaddmat
! 45: #define laddrr (long)addrr
! 46: #define laddrs (long)addrs
! 47: #define laddsi (long)addsi
! 48: #define laddsmat (long)gaddsmat
! 49: #define laddsr (long)addsr
! 50: #define ladj (long)adj
! 51: #define larg (long)garg
! 52: #define lash (long)gash
! 53: #define lasin (long)gasin
! 54: #define lassmat (long)assmat
! 55: #define latan (long)gatan
! 56: #define lath (long)gath
! 57: #define lbezout (long)bezout
! 58: #define lbinome (long)binome
! 59: #define lcaract (long)caract
! 60: #define lcaradj (long)caradj
! 61: #define lceil (long)gceil
! 62: #define lch (long)gch
! 63: #define lchangevar (long)changevar
! 64: #define lclone (long)gclone
! 65: #define lco8 (long)co8
! 66: #define lconcat (long)concat
! 67: #define lconj (long)gconj
! 68: #define lcontent (long)content
! 69: #define lcopy (long)gcopy
! 70: #define lcos (long)gcos
! 71: #define lcvtoi (long)gcvtoi
! 72: #define lderiv (long)deriv
! 73: #define ldet (long)det
! 74: #define ldet2 (long)det2
! 75: #define ldeuc (long)gdeuc
! 76: #define ldiscsr (long)discsr
! 77: /* ldiv is a predefined macro on some AIX versions --GN1997Jan27 */
! 78: #ifdef ldiv
! 79: #undef ldiv
! 80: #endif
! 81: #define ldiv (long)gdiv
! 82:
! 83: #define ldivgs (long)gdivgs
! 84: #define ldivii (long)divii
! 85: #define ldivir (long)divir
! 86: #define ldivis (long)divis
! 87: #define ldivmod (long)gdivmod
! 88: #define ldivres (long)poldivres
! 89: #define ldivri (long)divri
! 90: #define ldivrr (long)divrr
! 91: #define ldivrs (long)divrs
! 92: #define ldivsi (long)divsi
! 93: #define ldivsr (long)divsr
! 94: #define ldvmdii (long)dvmdii
! 95: #define ldvmdis (long)dvmdis
! 96: #define ldvmdsi (long)dvmdsi
! 97: #define lexp (long)gexp
! 98: #define lfibo (long)fibo
! 99: #define lfloor (long)gfloor
! 100: #define lfrac (long)gfrac
! 101: #define lgamd (long)ggamd
! 102: #define lgamma (long)ggamma
! 103: #define lgauss (long)gauss
! 104: #define lgcd (long)ggcd
! 105: #define lgetg (long)cgetg
! 106: #define lgeti (long)cgeti
! 107: #define lgetp (long)cgetp
! 108: #define lgetr (long)cgetr
! 109: #define lgreffe (long)greffe
! 110: #define lhilb (long)hilb
! 111: #define licopy (long)icopy
! 112: #define limag (long)gimag
! 113: #define linteg (long)integ
! 114: #define linv (long)ginv
! 115: #define linvmat (long)invmat
! 116: #define linvmod (long)ginvmod
! 117: #define linvmulmat (long)invmulmat
! 118: #define llegendre (long)legendre
! 119: #define llift (long)lift
! 120: #define llngamma (long)glngamma
! 121: #define llog (long)glog
! 122: #define lmax (long)gmax
! 123: #define lmin (long)gmin
! 124: #define lmod (long)gmod
! 125: #define lmodii (long)modii
! 126: #define lmodsi (long)modsi
! 127: #define lmodulcp (long)gmodulcp
! 128: #define lmodulo (long)gmodulo
! 129: #define lmpabs (long)mpabs
! 130: #define lmpach (long)mpach
! 131: #define lmpacos (long)mpacos
! 132: #define lmpadd (long)mpadd
! 133: #define lmpash (long)mpash
! 134: #define lmpasin (long)mpasin
! 135: #define lmpatan (long)mpatan
! 136: #define lmpath (long)mpath
! 137: #define lmpaut (long)mpaut
! 138: #define lmpch (long)mpch
! 139: #define lmpcos (long)mpcos
! 140: #define lmpdiv (long)mpdiv
! 141: #define lmpent (long)mpent
! 142: #define lmpeuler (long)mpeuler
! 143: #define lmpexp (long)mpexp
! 144: #define lmpexp1 (long)mpexp1
! 145: #define lmpfact (long)mpfact
! 146: #define lmpgamd (long)mpgamd
! 147: #define lmpgamma (long)mpgamma
! 148: #define lmpinvmod (long)mpinvmod
! 149: #define lmplngamma (long)mplngamma
! 150: #define lmplog (long)mplog
! 151: #define lmpmul (long)mpmul
! 152: #define lmpneg (long)mpneg
! 153: #define lmppgcd (long)mppgcd
! 154: #define lmppi (long)mppi
! 155: #define lmppsi (long)mppsi
! 156: #define lmpsc1 (long)mpsc1
! 157: #define lmpsh (long)mpsh
! 158: #define lmpshift (long)mpshift
! 159: #define lmpsin (long)mpsin
! 160: #define lmpsqrt (long)mpsqrt
! 161: #define lmpsub (long)mpsub
! 162: #define lmptan (long)mptan
! 163: #define lmpth (long)mpth
! 164: #define lmptrunc (long)mptrunc
! 165: #define lmul (long)gmul
! 166: #define lmul2n (long)gmul2n
! 167: #define lmulii (long)mulii
! 168: #define lmulir (long)mulir
! 169: #define lmulis (long)mulis
! 170: #define lmulri (long)mulri
! 171: #define lmulrr (long)mulrr
! 172: #define lmulrs (long)mulrs
! 173: #define lmulsg (long)gmulsg
! 174: #define lmulsi (long)mulsi
! 175: #define lmulsr (long)mulsr
! 176: #define lmulss (long)mulss
! 177: #define lneg (long)gneg
! 178: #define lnegi (long)negi
! 179: #define lnegr (long)negr
! 180: #define lnorm (long)gnorm
! 181: #define lnorml2 (long)gnorml2
! 182: #define lopgs2 (long)gopgs2
! 183: #define lopsg2 (long)gopsg2
! 184: #define lpasc (long)pasc
! 185: #define lpile (long)gerepile
! 186: #define lpilecopy (long)gerepilecopy
! 187: #define lpileupto (long)gerepileupto
! 188: #define lpileuptoint (long)gerepileuptoint
! 189: #define lpoleval (long)poleval
! 190: #define lpolgcd (long)polgcd
! 191: #define lpowgs (long)gpowgs
! 192: #define lprec (long)gprec
! 193: #define lprimpart (long)primpart
! 194: #define lpsi (long)gpsi
! 195: #define lpui (long)gpui
! 196: #define lpuigs (long)gpuigs
! 197: #define lpuissmodulo (long)puissmodulo
! 198: #define lquadgen (long)quadgen
! 199: #define lquadpoly (long)quadpoly
! 200: #define lracine (long)racine
! 201: #define lrcopy (long)rcopy
! 202: #define lreal (long)greal
! 203: #define lrecip (long)recip
! 204: #define lred (long)gred
! 205: #define lres (long)gres
! 206: #define lresii (long)resii
! 207: #define lrndtoi (long)grndtoi
! 208: #define lroots (long)roots
! 209: #define lround (long)ground
! 210: #define lscalmat (long)gscalmat
! 211: #define lscalsmat (long)gscalsmat
! 212: #define lsh (long)gsh
! 213: #define lshift (long)gshift
! 214: #define lshifti (long)shifti
! 215: #define lshiftr (long)shiftr
! 216: #define lsin (long)gsin
! 217: #define lsqr (long)gsqr
! 218: #define lsqri (long)sqri
! 219: #define lsqrt (long)gsqrt
! 220: #define lstoi (long)stoi
! 221: #define lsub (long)gsub
! 222: #define lsubii (long)subii
! 223: #define lsubir (long)subir
! 224: #define lsubis (long)subis
! 225: #define lsubres (long)subres
! 226: #define lsubri (long)subri
! 227: #define lsubrr (long)subrr
! 228: #define lsubrs (long)subrs
! 229: #define lsubsi (long)subsi
! 230: #define lsubsr (long)subsr
! 231: #define lsubst (long)gsubst
! 232: #define ltan (long)gtan
! 233: #define ltchebi (long)tchebi
! 234: #define lth (long)gth
! 235: #define ltrace (long)gtrace
! 236: #define ltrans (long)gtrans
! 237: #define ltrunc (long)gtrunc
! 238:
! 239: #define zero (long)gzero
! 240: #define un (long)gun
! 241: #define deux (long)gdeux
! 242: #define lhalf (long)ghalf
! 243: #define lpolx (long)polx
! 244: #define lpolun (long)polun
! 245:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>