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