Annotation of OpenXM_contrib/pari/src/gp/whatnow.c, Revision 1.1
1.1 ! maekawa 1: /* $Id: whatnow.c,v 1.1.1.1 1999/09/16 13:47:42 karim Exp $ */
! 2: #include "pari.h"
! 3: #include "../language/anal.h"
! 4:
! 5: typedef struct whatnow_t
! 6: {
! 7: char *name, *oldarg, *newarg;
! 8: } whatnow_t;
! 9:
! 10: #define SAME NULL
! 11: #define REMOV (char *) 1
! 12:
! 13: /* generated by PERL script ../util/dico */
! 14: static const whatnow_t whatnowlist[]={
! 15: {SAME},
! 16: {SAME},
! 17: {SAME},
! 18: {SAME},
! 19: {"elladd","(e,z1,z2)","(e,z1,z2)"},
! 20: {SAME},
! 21: {"matadjoint","(x)","(x)"},
! 22: {SAME},
! 23: {"ellak","(e,n)","(e,n)"},
! 24: {SAME},
! 25: {"algdep","(x,n,dec)","(x,n,dec)"},
! 26: {"nfalgtobasis","(nf,x)","(nf,x)"},
! 27: {"ellan","(e,n)","(e,n)"},
! 28: {"ellap","(e,n)","(e,n)"},
! 29: {"ellap","(e,n)","(e,n,1)"},
! 30: {"padicappr","(x,a)","(x,a)"},
! 31: {SAME},
! 32: {SAME},
! 33: {SAME},
! 34: {"matcompanion","(x)","(x)"},
! 35: {SAME},
! 36: {SAME},
! 37: {"nfbasis","(x)","(x)"},
! 38: {"nfbasis","(x)","(x,2)"},
! 39: {"nfbasistoalg","(nf,x)","(nf,x)"},
! 40: {SAME},
! 41: {SAME},
! 42: {SAME},
! 43: {SAME},
! 44: {SAME},
! 45: {SAME},
! 46: {"ellbil","(e,z1,z2)","(e,z1,z2)"},
! 47: {"binomial","(x,y)","(x,y)"},
! 48: {SAME},
! 49: {SAME},
! 50: {"contfrac","(x,lmax)","(x,,lmax)"},
! 51: {"factor","(x,lim)","(x,lim)"},
! 52: {"bnfcertify","(bnf)","(bnf)"},
! 53: {"bnfunit","(bnf)","(bnf)"},
! 54: {"bnfclassunit","(P)","(P,2)"},
! 55: {"bnfclassunit","(P)","(P,1)"},
! 56: {"bnfclassunit","(P)","(P)"},
! 57: {"quadclassunit","(D,c1,c2,g)","(D,,[c1,c2,g])"},
! 58: {"bnfinit","(P)","(P,2)"},
! 59: {"bnfinit","(P)","(P,1)"},
! 60: {"bnfinit","(P)","(P)"},
! 61: {"bnfnarrow","(bnf)","(bnf)"},
! 62: {"bnrclass","(bnf,ideal)","(bnf,ideal)"},
! 63: {"bnrclass","(bnf,ideal)","(bnf,ideal,1)"},
! 64: {"bnrclass","(bnf,ideal)","(bnf,ideal,2)"},
! 65: {"quadclassunit","(D)","(D)"},
! 66: {"sizebyte","(x)","(x)"},
! 67: {SAME},
! 68: {SAME},
! 69: {"contfrac","(x)","(x)"},
! 70: {"contfrac","(b,x)","(x,b)"},
! 71: {SAME},
! 72: {"charpoly","(x,y)","(x,y)"},
! 73: {"charpoly","(x,y)","(x,y,1)"},
! 74: {"charpoly","(x,y)","(x,y,2)"},
! 75: {"ellchangecurve","(x,y)","(x,y)"},
! 76: {SAME},
! 77: {"ellchangepoint","(x,y)","(x,y)"},
! 78: {"qfbclassno","(x)","(x)"},
! 79: {"qfbclassno","(x)","(x,1)"},
! 80: {"polcoeff","(x,s)","(x,s)"},
! 81: {"x*y","(x,y)",""},
! 82: {"component","(x,s)","(x,s)"},
! 83: {"polcompositum","(pol1,pol2)","(pol1,pol2)"},
! 84: {"polcompositum","(pol1,pol2)","(pol1,pol2,1)"},
! 85: {"qfbcompraw","(x,y)","(x,y)"},
! 86: {SAME},
! 87: {"bnrconductor","(a1)","(a1)"},
! 88: {"bnrconductorofchar","(bnr,chi)","(bnr,chi)"},
! 89: {SAME},
! 90: {SAME},
! 91: {SAME},
! 92: {"serconvol","(x,y)","(x,y)"},
! 93: {SAME},
! 94: {"core","(x)","(x,1)"},
! 95: {SAME},
! 96: {"coredisc","(x)","(x,1)"},
! 97: {SAME},
! 98: {SAME},
! 99: {"truncate","(x)","(x,&e)"},
! 100: {"polcyclo","(n)","(n)"},
! 101: {"factorback","(fa)","(fa)"},
! 102: {"bnfdecodemodule","(nf,fa)","(nf,fa)"},
! 103: {"poldegree","(x)","(x)"},
! 104: {"denominator","(x)","(x)"},
! 105: {"lindep","(x)","(x,-1)"},
! 106: {SAME},
! 107: {"matdet","(x)","(x)"},
! 108: {"matdet","(x)","(x,1)"},
! 109: {"matdetint","(x)","(x)"},
! 110: {"matdiagonal","(x)","(x)"},
! 111: {SAME},
! 112: {SAME},
! 113: {SAME},
! 114: {SAME},
! 115: {SAME},
! 116: {"poldisc","(x)","(x)"},
! 117: {"nfdisc","(x)","(x)"},
! 118: {"nfdisc","(x)","(x,2)"},
! 119: {"bnrdisc","(bnr,subgroup)","(bnr,subgroup)"},
! 120: {"bnrdisc","(bnr)","(bnr,,,2)"},
! 121: {"bnrdisclist","(bnf,list)","(bnf,list)"},
! 122: {"bnrdisclist","(bnf,arch,bound)","(bnf,bound,arch)"},
! 123: {"bnrdisclist","(bnf,bound)","(bnf,bound,,1)"},
! 124: {"bnrdisclist","(bnf,bound)","(bnf,bound)"},
! 125: {"bnrdisc","(bnr,subgroup)","(bnr,subgroup,,1)"},
! 126: {"bnrdisc","(bnr,subgroup)","(bnr,subgroup,,3)"},
! 127: {SAME},
! 128: {"divrem","(x,y)","(x,y)"},
! 129: {"sumdiv","(n,X,expr)","(n,X,expr)"},
! 130: {"mateigen","(x)","(x)"},
! 131: {SAME},
! 132: {SAME},
! 133: {SAME},
! 134: {"Euler","",""},
! 135: {SAME},
! 136: {SAME},
! 137: {"vecextract","(x,y)","(x,y)"},
! 138: {"factorial","(x)","(x)"},
! 139: {"factorcantor","(x,p)","(x,p)"},
! 140: {"factorff","(x,p,a)","(x,p,a)"},
! 141: {"factormod","(x,p)","(x,p)"},
! 142: {SAME},
! 143: {"nfbasis","(x,p)","(x,,p)"},
! 144: {"nfdisc","(x,p)","(x,,p)"},
! 145: {"polred","(x,p)","(x,,p)"},
! 146: {"polred","(x,p)","(x,2,p)"},
! 147: {SAME},
! 148: {SAME},
! 149: {"factorpadic","(x,p,r)","(x,p,r,1)"},
! 150: {"factor","(x,l,hint)","(x)"},
! 151: {"factor","(x,l,hint)","(x)"},
! 152: {"fibonacci","(x)","(x)"},
! 153: {SAME},
! 154: {SAME},
! 155: {SAME},
! 156: {SAME},
! 157: {SAME},
! 158: {SAME},
! 159: {"ffinit","(p,n)","(p,n)"},
! 160: {SAME},
! 161: {"polgalois","(x)","(x)"},
! 162: {"nfgaloisapply","(nf,aut,x)","(nf,aut,x)"},
! 163: {"nfgaloisconj","(nf)","(nf)"},
! 164: {"nfgaloisconj","(nf)","(nf,2)"},
! 165: {"nfgaloisconj","","(nf,1)"},
! 166: {"gammah","(x)","(x)"},
! 167: {SAME},
! 168: {"matsolve","(a,b)","(a,b)"},
! 169: {"matsolvemod","(M,D,Y)","(M,D,Y)"},
! 170: {"matsolvemod","(M,D,Y)","(M,D,Y,1)"},
! 171: {SAME},
! 172: {SAME},
! 173: {SAME},
! 174: {SAME},
! 175: {SAME},
! 176: {"ellglobalred","(x,y)","(x,y)"},
! 177: {REMOV},
! 178: {"qfbhclassno","(x)","(x)"},
! 179: {"ellheight","(e,x)","(e,x)"},
! 180: {"ellheight","(e,x)","(e,x,1)"},
! 181: {"mathnf","(x)","(x)"},
! 182: {"mathnf","(x)","(x,1)"},
! 183: {"mathnf","(x)","(x,2)"},
! 184: {"mathnfmod","(x,d)","(x,d)"},
! 185: {"mathnfmodid","(x,d)","(x,d)"},
! 186: {"mathnf","(x)","(x,3)"},
! 187: {"mathess","(x)","(x)"},
! 188: {"hilbert","(x,y)","(x,y)"},
! 189: {"mathilbert","(n)","(n)"},
! 190: {"hilbert","(x,y,p)","(x,y,p)"},
! 191: {"vector","(n,X,expr)","(n,X,expr)"},
! 192: {SAME},
! 193: {"I","",""},
! 194: {SAME},
! 195: {"idealaddtoone","(nf,list)","(nf,list)"},
! 196: {"idealaddtoone","(nf,x,y)","(nf,x,y)"},
! 197: {SAME},
! 198: {"idealappr","(nf,x)","(nf,x,1)"},
! 199: {SAME},
! 200: {SAME},
! 201: {SAME},
! 202: {"idealdiv","(nf,x,y)","(nf,x,y,1)"},
! 203: {SAME},
! 204: {"idealhnf","(nf,x)","(nf,x)"},
! 205: {"idealhnf","(nf,x)","(nf,x)"},
! 206: {SAME},
! 207: {SAME},
! 208: {"idealinv","(nf,x)","(nf,x,1)"},
! 209: {SAME},
! 210: {SAME},
! 211: {"ideallistarch","(nf,list,arch)","(nf,list,arch,1)"},
! 212: {"ideallist","(nf,list)","(nf,list,2)"},
! 213: {"ideallistarch","","(nf,list,arch,2)"},
! 214: {"ideallistarch","","(nf,list,arch,3)"},
! 215: {"ideallist","","(nf,list,3)"},
! 216: {"ideallist","(nf,bound)","(nf,bound)"},
! 217: {"ideallist","(nf,bound)","(nf,bound,1)"},
! 218: {"idealred","(nf,x,vdir)","(nf,x,vdir)"},
! 219: {SAME},
! 220: {"idealmul","(nf,x,y)","(nf,x,y,1)"},
! 221: {SAME},
! 222: {SAME},
! 223: {"idealpow","(nf,x,y)","(nf,x,y,1)"},
! 224: {SAME},
! 225: {"idealtwoelt","(nf,x,a)","(nf,x,a)"},
! 226: {SAME},
! 227: {"matid","(n)","(n)"},
! 228: {SAME},
! 229: {SAME},
! 230: {"matimage","(x)","(x)"},
! 231: {"matimage","(x)","(x,1)"},
! 232: {"matimagecompl","(x)","(x)"},
! 233: {SAME},
! 234: {REMOV},
! 235: {REMOV},
! 236: {REMOV},
! 237: {"incgam","(s,x,y)","(s,x,y)"},
! 238: {"matindexrank","(x)","(x)"},
! 239: {"vecsort","(x)","(x,,1)"},
! 240: {"nfinit","(pol)","(pol)"},
! 241: {"nfinit","(x)","(x,2)"},
! 242: {"nfinit","(x)","(x,3)"},
! 243: {"ellinit","(x)","(x)"},
! 244: {"zetakinit","(x)","(x)"},
! 245: {"intformal","(x,y)","(x,y)"},
! 246: {"matintersect","(x,y)","(x,y)"},
! 247: {"intnum","(x=a,b,s)","(x=a,b,s,1)"},
! 248: {"intnum","(x=a,b,s)","(x=a,b,s,2)"},
! 249: {SAME},
! 250: {"intnum","(x=a,b,s)","(x=a,b,s,3)"},
! 251: {"matinverseimage","(x,y)","(x,y)"},
! 252: {"matisdiagonal","(x)","(x)"},
! 253: {"isfundamental","(x)","(x)"},
! 254: {"nfisideal","(nf,x)","(nf,x)"},
! 255: {"nfisincl","(x,y)","(x,y)"},
! 256: {"nfisincl","(nf1,nf2)","(nf1,nf2,1)"},
! 257: {"polisirreducible","(x)","(x)"},
! 258: {"nfisisom","(x,y)","(x,y)"},
! 259: {"nfisisom","(x,y)","(x,y)"},
! 260: {"ellisoncurve","(e,x)","(e,x)"},
! 261: {SAME},
! 262: {"bnfisprincipal","(bnf,x)","(bnf,x,0)"},
! 263: {"bnfisprincipal","(bnf,x)","(bnf,x,2)"},
! 264: {"bnfisprincipal","(bnf,x)","(bnf,x)"},
! 265: {"bnfisprincipal","(bnf,x)","(bnf,x,3)"},
! 266: {"bnrisprincipal","(bnf,x)","(bnf,x)"},
! 267: {SAME},
! 268: {"ispseudoprime","(x)","(x)"},
! 269: {"sqrtint","(x)","(x)"},
! 270: {"setisset","(x)","(x)"},
! 271: {"issquarefree","(x)","(x)"},
! 272: {SAME},
! 273: {"bnfisunit","(bnf,x)","(bnf,x)"},
! 274: {"qfjacobi","(x)","(x)"},
! 275: {"besseljh","(n,x)","(n,x)"},
! 276: {"ellj","(x)","(x)"},
! 277: {REMOV},
! 278: {"besselk","(nu,x)","(nu,x)"},
! 279: {"besselk","(nu,x)","(nu,x,1)"},
! 280: {"matker","(x)","(x)"},
! 281: {"matker","(x)","(x,1)"},
! 282: {"matkerint","(x)","(x)"},
! 283: {"matkerint","(x)","(x,1)"},
! 284: {"matkerint","(x)","(x,2)"},
! 285: {"kronecker","(x,y)","(x,y)"},
! 286: {REMOV},
! 287: {"zetak","(nfz,s)","(nfz,s,1)"},
! 288: {"serlaplace","(x)","(x)"},
! 289: {SAME},
! 290: {"pollegendre","(n)","(n)"},
! 291: {SAME},
! 292: {SAME},
! 293: {"vecsort","(x)","(x,,2)"},
! 294: {SAME},
! 295: {SAME},
! 296: {"lindep","(x)","(x,1)"},
! 297: {"qflll","(x)","(x)"},
! 298: {"qflll","(x)","(x,7)"},
! 299: {"qflll","(x)","(x,8)"},
! 300: {"qflllgram","(x)","(x)"},
! 301: {"qflllgram","(x)","(x,7)"},
! 302: {"qflllgram","(x)","(x,8)"},
! 303: {"qflllgram","(x)","(x,1)"},
! 304: {"qflllgram","(x)","(x,4)"},
! 305: {"qflllgram","(x)","(x,5)"},
! 306: {"qflll","(x)","(x,1)"},
! 307: {"qflll","(x)","(x,2)"},
! 308: {"qflll","(x)","(x,4)"},
! 309: {"qflll","(x)","(x,5)"},
! 310: {"qflll","(x)","(x,3)"},
! 311: {"log","(x)","(x)"},
! 312: {SAME},
! 313: {"elllocalred","(e)","(e)"},
! 314: {SAME},
! 315: {"log","(x)","(x,1)"},
! 316: {"elllseries","(e,s,N,A)","(e,s,A)"},
! 317: {"bnfmake","(sbnf)","(sbnf)"},
! 318: {"Mat","(x)","(x)"},
! 319: {"vecextract","(x,y,z)","(x,y,z)"},
! 320: {"ellheightmatrix","(e,x)","(e,x)"},
! 321: {SAME},
! 322: {SAME},
! 323: {"matrixqz","(x,p)","(x,-1)"},
! 324: {"matrixqz","(x,p)","(x,-2)"},
! 325: {SAME},
! 326: {SAME},
! 327: {SAME},
! 328: {"idealmin","(nf,ix,vdir)","(nf,ix,vdir)"},
! 329: {"qfminim","(x,bound,maxnum)","(x,bound,maxnum)"},
! 330: {"qfminim","(x,bound)","(x,bound,,1)"},
! 331: {"Mod","(x,y)","(x,y)"},
! 332: {"Mod","(x,y,p)","(x,y,1)"},
! 333: {SAME},
! 334: {"gcd","(x,y)","(x,y,1)"},
! 335: {"moebius","(n)","(n)"},
! 336: {SAME},
! 337: {SAME},
! 338: {SAME},
! 339: {"nfeltdiv","(nf,a,b)","(nf,a,b)"},
! 340: {"nfeltdiveuc","(nf,a,b)","(nf,a,b)"},
! 341: {"nfeltdivrem","(nf,a,b)","(nf,a,b)"},
! 342: {"nfhnf","(nf,x)","(nf,x)"},
! 343: {"nfhnfmod","(nf,x,detx)","(nf,x,detx)"},
! 344: {"nfeltmod","(nf,a,b)","(nf,a,b)"},
! 345: {"nfeltmul","(nf,a,b)","(nf,a,b)"},
! 346: {"nfeltpow","(nf,a,k)","(nf,a,k)"},
! 347: {"nfeltreduce","(nf,a,id)","(nf,a,id)"},
! 348: {"nfsnf","(nf,x)","(nf,x)"},
! 349: {"nfeltval","(nf,a,pr)","(nf,a,pr)"},
! 350: {SAME},
! 351: {SAME},
! 352: {"qfbnucomp","(x,y,l)","(x,y,l)"},
! 353: {SAME},
! 354: {"numerator","(x)","(x)"},
! 355: {"qfbnupow","(x,n)","(x,n)"},
! 356: {"O","(x)","(x)"},
! 357: {SAME},
! 358: {"ellordinate","(e,x)","(e,x)"},
! 359: {"znorder","(x)","(x)"},
! 360: {"ellorder","(e,x)","(e,x)"},
! 361: {"polredord","(x)","(x)"},
! 362: {SAME},
! 363: {"matpascal","(n)","(n)"},
! 364: {"qfperfection","(a)","(a)"},
! 365: {"numtoperm","(n,k)","(n,k)"},
! 366: {"permtonum","(vect)","(vect)"},
! 367: {"qfbprimeform","(x,p)","(x,p)"},
! 368: {"eulerphi","(x)","(x)"},
! 369: {"Pi","",""},
! 370: {"contfracpnqn","(x)","(x)"},
! 371: {"ellztopoint","(e,z)","(e,z)"},
! 372: {"polinterpolate","(xa,ya,x)","(xa,ya,p)"},
! 373: {SAME},
! 374: {"polred","(x)","(x,2)"},
! 375: {SAME},
! 376: {"polredabs","(x)","(x,1)"},
! 377: {"polredabs","(x)","(x,4)"},
! 378: {"polredabs","(x)","(x,8)"},
! 379: {"polredabs","(x)","(x,2)"},
! 380: {SAME},
! 381: {"variable","(x)","(x)"},
! 382: {"Pol","(x,v)","(x,v)"},
! 383: {SAME},
! 384: {"polylog","(m,x)","(m,x,1)"},
! 385: {"polylog","(m,x)","(m,x,2)"},
! 386: {"polylog","(m,x)","(m,x,3)"},
! 387: {"Polrev","(x,v)","(x,v)"},
! 388: {"polzagier","(n,m)","(n,m)"},
! 389: {"ellpow","(e,x,n)","(e,x,n)"},
! 390: {"qfbpowraw","(x,n)","(x,n)"},
! 391: {"precision","(x,n)","(x,n)"},
! 392: {SAME},
! 393: {SAME},
! 394: {"idealprimedec","(nf,p)","(nf,p)"},
! 395: {SAME},
! 396: {"znprimroot","(n)","(n)"},
! 397: {"idealprincipal","(nf,x)","(nf,x)"},
! 398: {"ideleprincipal","(nf,x)","(nf,x)"},
! 399: {"prod","(x,X=a,b,expr)","(X=a,b,expr,x)"},
! 400: {SAME},
! 401: {SAME},
! 402: {"prodinf","(X=a,expr)","(X=a,expr,1)"},
! 403: {SAME},
! 404: {"Qfb","(a,b,c)","(a,b,c)"},
! 405: {"Qfb","(a,b,c,d)","(a,b,c,d)"},
! 406: {SAME},
! 407: {SAME},
! 408: {SAME},
! 409: {SAME},
! 410: {"matrank","(x)","(x)"},
! 411: {"bnrclassno","(bnf,x)","(bnf,x)"},
! 412: {"bnrclassnolist","(bnf,liste)","(bnf,liste)"},
! 413: {SAME},
! 414: {"polrecip","(x)","(x)"},
! 415: {"qfbred","(x)","(x)"},
! 416: {"qfbred","(x)","(x)"},
! 417: {"qfbred","(x,d)","(x,2,,d)"},
! 418: {"poldiscreduced","(f)","(f)"},
! 419: {"quadregulator","(x)","(x)"},
! 420: {SAME},
! 421: {"polresultant","(x,y)","(x,y)"},
! 422: {"polresultant","(x,y)","(x,y,1)"},
! 423: {"serreverse","(x)","(x)"},
! 424: {"qfbred","(x)","(x,1)"},
! 425: {"qfbred","(x,d)","(x,3,,d)"},
! 426: {"round","(x)","(x,&e)"},
! 427: {SAME},
! 428: {"rnfdisc","(nf,pol)","(nf,pol)"},
! 429: {SAME},
! 430: {"rnfequation","(nf,pol)","(nf,pol,1)"},
! 431: {"rnfhnfbasis","(bnf,order)","(bnf,order)"},
! 432: {SAME},
! 433: {SAME},
! 434: {SAME},
! 435: {SAME},
! 436: {SAME},
! 437: {"polrootsmod","(x,p)","(x,p)"},
! 438: {"polrootsmod","(x,p)","(x,p,1)"},
! 439: {"polrootspadic","(x,p,r)","(x,p,r)"},
! 440: {"polroots","(x)","(x)"},
! 441: {"nfrootsof1","(nf)","(nf)"},
! 442: {"polroots","(x)","(x,1)"},
! 443: {SAME},
! 444: {"round","(x)","(x,&e)"},
! 445: {"Ser","(x,v)","(x,v)"},
! 446: {"Set","(x)","(x)"},
! 447: {SAME},
! 448: {SAME},
! 449: {SAME},
! 450: {SAME},
! 451: {SAME},
! 452: {SAME},
! 453: {SAME},
! 454: {SAME},
! 455: {"sigma","(k,x)","(x,k)"},
! 456: {SAME},
! 457: {"qfsign","(x)","(x)"},
! 458: {"bnfsignunit","(bnf)","(bnf)"},
! 459: {"factormod","(x,p)","(x,p,1)"},
! 460: {SAME},
! 461: {SAME},
! 462: {SAME},
! 463: {"sizedigit","(x)","(x)"},
! 464: {"nfbasis","(x)","(x,1)"},
! 465: {"bnfinit","(x)","(x,3)"},
! 466: {"nfdisc","(x)","(x,1)"},
! 467: {"factor","(x)","(x,0)"},
! 468: {"ellinit","(x)","(x,1)"},
! 469: {"polred","(x)","(x,1)"},
! 470: {"polred","(x)","(x,3)"},
! 471: {"matsnf","(x)","(x)"},
! 472: {"matsnf","(x)","(x,1)"},
! 473: {"matsnf","(x)","(x,4)"},
! 474: {"matsnf","(x)","(x,2)"},
! 475: {SAME},
! 476: {"vecsort","(x)","(x)"},
! 477: {SAME},
! 478: {"qfgaussred","(x)","(x)"},
! 479: {SAME},
! 480: {"gcd","(x,y)","(x,y,2)"},
! 481: {"polsturm","(x)","(x)"},
! 482: {"polsturm","(x,a,b)","(x,a,b)"},
! 483: {"polsubcyclo","(p,d)","(p,d)"},
! 484: {"ellsub","(e,a,b)","(e,a,b)"},
! 485: {SAME},
! 486: {"sum","(x,X=a,b,expr)","(X=a,b,expr,x)"},
! 487: {SAME},
! 488: {"sumalt","(X=a,expr)","(X=a,expr,1)"},
! 489: {SAME},
! 490: {SAME},
! 491: {"sumpos","(X=a,expr)","(X=a,expr,1)"},
! 492: {"matsupplement","(x)","(x)"},
! 493: {"polsylvestermatrix","(x,y)","(x,y)"},
! 494: {SAME},
! 495: {SAME},
! 496: {"elltaniyama","(e)","(e)"},
! 497: {SAME},
! 498: {"poltchebi","(n)","(n)"},
! 499: {"teichmuller","(x)","(x)"},
! 500: {SAME},
! 501: {SAME},
! 502: {REMOV},
! 503: {REMOV},
! 504: {"elltors","(e)","(e)"},
! 505: {SAME},
! 506: {"mattranspose","(x)","(x)"},
! 507: {"truncate","(x)","(x)"},
! 508: {"poltschirnhaus","(x)","(x)"},
! 509: {REMOV},
! 510: {"quadunit","(x)","(x)"},
! 511: {SAME},
! 512: {SAME},
! 513: {"Vec","(x)","(x)"},
! 514: {"vecsort","(x)","(x,,1)"},
! 515: {"vecsort","(x)","(x,,2)"},
! 516: {SAME},
! 517: {SAME},
! 518: {SAME},
! 519: {SAME},
! 520: {"vectorv","(n,X,expr)","(n,X,expr)"},
! 521: {"ellwp","(e)","(e)"},
! 522: {"weber","(x)","(x)"},
! 523: {"weber","(x)","(x,2)"},
! 524: {SAME},
! 525: {"ellpointtoz","(e,P)","(e,P)"},
! 526: {SAME},
! 527: {SAME},
! 528: {"ideallog","(nf,x,bid)","(nf,x,bid)"},
! 529: {"idealstar","(nf,I)","(nf,I)"},
! 530: {"idealstar","(nf,id)","(nf,id,1)"},
! 531: {"idealstar","(nf,id)","(nf,id,2)"},
! 532: {SAME},
! 533:
! 534: {SAME},
! 535: {"plotbox","(x,a)","(x,a)"},
! 536: {"plotcolor","(w,c)","(w,c)"},
! 537: {"plotcursor","(w)","(w)"},
! 538: {SAME},
! 539: {"plotdraw","(list)","(list)"},
! 540: {"plotinit","(w,x,y)","(w,x,y)"},
! 541: {SAME},
! 542: {"plotkill","(w)","(w)"},
! 543: {"plotlines","(w,x2,y2)","(w,x2,y2)"},
! 544: {"plotlines","(w,x2,y2)","(w,x2,y2)"},
! 545: {"plotmove","(w,x,y)","(w,x,y)"},
! 546: {SAME},
! 547: {SAME},
! 548: {"ploth","(X=a,b,expr)","(X=a,b,expr,1)"},
! 549: {"ploth","(X=a,b,expr)","(X=a,b,expr)"},
! 550: {SAME},
! 551: {"plotpoints","(w,x,y)","(w,x,y)"},
! 552: {"plotpoints","(w,x,y)","(w,x,y)"},
! 553: {"psdraw","(list)","(list)"},
! 554: {"psploth","(X=a,b,expr)","(X=a,b,expr)"},
! 555: {"psploth","(X=a,b,expr)","(X=a,b,expr,1)"},
! 556: {"psplothraw","(listx,listy)","(listx,listy)"},
! 557: {"printp","(x)","(x)"},
! 558: {"printp1","(x)","(x)"},
! 559: {SAME},
! 560: {SAME},
! 561: {"plotrbox","(w,dx,dy)","(w,dx,dy)"},
! 562: {"input","(x)","(x)"},
! 563: {"plotrline","(w,dx,dy)","(w,dx,dy)"},
! 564: {"plotrlines","(w,dx,dy)","(w,dx,dy,1)"},
! 565: {"plotrmove","(w,dx,dy)","(w,dx,dy)"},
! 566: {"plotrpoint","(w,dx,dy)","(w,dx,dy)"},
! 567: {"plotrpoints","(w,dx,dy)","(w,dx,dy)"},
! 568: {"plotscale","(w,x1,x2,y1,y2)","(w,x1,x2,y1,y2)"},
! 569: {"default","(n)","(realprecision,n)"},
! 570: {"default","(n)","(seriesprecision,n)"},
! 571: {"type","(x,t)","(x,t)"},
! 572: {"plotstring","(w,x)","(w,x)"},
! 573: {SAME},
! 574: {"printtex","(x)","(x)"},
! 575: {SAME}
! 576: };
! 577:
! 578: /* If flag = 0 (default): check if s existed in 1.39.15 and print verbosely
! 579: * the answer.
! 580: * If flag > 0: silently return n+1 if function changed, 0 otherwise.
! 581: * (where n is the index of s in whatnowlist).
! 582: * If flag < 0: -flag-1 is the index in whatnowlist
! 583: */
! 584: int
! 585: whatnow(char *s, int flag)
! 586: {
! 587: int n;
! 588: char *def;
! 589: whatnow_t wp;
! 590: entree *ep;
! 591:
! 592: if (flag < 0) { n = -flag; flag = 0; }
! 593: else
! 594: {
! 595: if (flag && strlen(s)==1) return 0; /* special case "i" and "o" */
! 596: if (!is_identifier(s) || !is_entry_intern(s,funct_old_hash,NULL))
! 597: {
! 598: if (flag) return 0;
! 599: err(talker,"as far as I can recall, this function never existed");
! 600: }
! 601: n = 0;
! 602: do
! 603: def = (oldfonctions[n++]).name;
! 604: while (def && strcmp(def,s));
! 605: if (!def)
! 606: {
! 607: int m=0;
! 608: do
! 609: def = (functions_oldgp[m++]).name;
! 610: while (def && strcmp(def,s));
! 611: n += m - 1;
! 612: }
! 613: }
! 614:
! 615: wp=whatnowlist[n-1]; def=wp.name;
! 616: if (def == SAME)
! 617: {
! 618: if (flag) return 0;
! 619: err(talker,"this function did not change");
! 620: }
! 621: if (flag) return n;
! 622:
! 623: if (def == REMOV)
! 624: err(talker,"this function was suppressed");
! 625: if (!strcmp(def,"x*y"))
! 626: {
! 627: pariputsf(" %s is now called *.\n\n",s);
! 628: pariputsf(" %s%s ===> %s%s\n\n",s,wp.oldarg,wp.name,wp.newarg);
! 629: return 1;
! 630: }
! 631: ep = is_entry(wp.name);
! 632: if (!ep) err(bugparier,"whatnow");
! 633: pariputs("New syntax: "); term_color(c_ERR);
! 634: pariputsf("%s%s ===> %s%s\n\n",s,wp.oldarg,wp.name,wp.newarg);
! 635: term_color(c_NONE);
! 636: print_text(ep->help); pariputc('\n');
! 637: return 1;
! 638: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to whatnow.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / src / gp