Mercurial > hg > jgplsrc

annotate t.c @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500 (2013-11-25)
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
1 /* Copyright 1990-2011, Jsoftware Inc. All rights reserved. */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2 /* License in license.txt. */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 /* */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 /* Table of Primitive Symbols */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 #include "j.h"
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 C ctype[256]={
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 0, 0, 0, 0, 0, 0, 0, 0, 0, CS, 0, 0, 0, 0, 0, 0, /* 0 */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 1 */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 CS, 0, 0, 0, 0, 0, 0, CQ, 0, 0, 0, 0, 0, 0, CD, 0, /* 2 !"#$%&'()*+,-./ */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 C9, C9, C9, C9, C9, C9, C9, C9, C9, C9, CC, 0, 0, 0, 0, 0, /* 3 0123456789:;<=>? */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 0, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, /* 4 @ABCDEFGHIJKLMNO */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, 0, 0, 0, 0, C9, /* 5 PQRSTUVWXYZ[\]^_ */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 0, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, /* 6 `abcdefghijklmno */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, CA, 0, 0, 0, 0, 0, /* 7 pqrstuvwxyz{|}~ */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 };
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 /* 1 2 3 4 5 6 7 8 9 a b c d e f */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 static B jtpdef(J jt,C id,I t,AF f1,AF f2,I m,I l,I r){A z;V*v;
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 GA(z,t,1,0,0); ACX(z); v=VAV(z);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 v->f1=f1?f1:jtdomainerr1; /* monad C function */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 v->f2=f2?f2:jtdomainerr2; /* dyad C function */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 v->mr=m; /* monadic rank */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 v->lr=l; /* left rank */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 v->rr=r; /* right rank */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 v->fdep=1; /* function depth */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 v->id=id; /* spelling */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 pst[(UC)id]=z; /* other fields are zeroed in ga() */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 R 1;
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 }
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 B jtpinit(J jt){A t;C*s;
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 MC(wtype,ctype,256L); wtype['N']=CN; wtype['B']=CB;
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 GA(alp,LIT,NALP,1,0); s=CAV(alp); DO(NALP,*s++=(C)i;);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 /* a. */ pst[(UC)CALP ]=t=alp; ACX(t);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 /* a: */ pst[(UC)CACE ]=t=ace=sc4(BOX,(I)mtv); ACX(t);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 /* ( */ pst[(UC)CLPAR]=t=sc4(LPAR,0L); ACX(t);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 /* ) */ pst[(UC)CRPAR]=t=sc4(RPAR,0L); ACX(t);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 /* =. */ GA(t,ASGN,1,0,0); ACX(t); *CAV(t)=CASGN; pst[(UC)CASGN ]=t;
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 /* =: */ GA(t,ASGN,1,0,0); ACX(t); *CAV(t)=CGASGN; pst[(UC)CGASGN]=t;
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 /* = */ pdef(CEQ, VERB, jtsclass, jteq, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 /* =. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 /* =: */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 /* < */ pdef(CBOX, VERB, jtbox, jtlt, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 /* <. */ pdef(CFLOOR, VERB, jtfloor1, jtminimum,0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 /* <: */ pdef(CLE, VERB, jtdecrem, jtle, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 /* > */ pdef(COPE, VERB, jtope, jtgt, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 /* >. */ pdef(CCEIL, VERB, jtceil1, jtmaximum,0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 /* >: */ pdef(CGE, VERB, jtincrem, jtge, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 /* + */ pdef(CPLUS, VERB, jtconjug, jtplus, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 /* +. */ pdef(CPLUSDOT,VERB, jtrect, jtgcd, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 /* +: */ pdef(CPLUSCO, VERB, jtduble, jtnor, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 /* * */ pdef(CSTAR, VERB, jtsignum, jttymes, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 /* *. */ pdef(CSTARDOT,VERB, jtpolar, jtlcm, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 /* *: */ pdef(CSTARCO, VERB, jtsquare, jtnand, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 /* - */ pdef(CMINUS, VERB, jtnegate, jtminus, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 /* -. */ pdef(CNOT, VERB, jtnot, jtless, 0, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 /* -: */ pdef(CHALVE, VERB, jthalve, jtmatch, 0, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 /* % */ pdef(CDIV, VERB, jtrecip, jtdivide, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 /* %. */ pdef(CDOMINO, VERB, jtminv, jtmdiv, 2, RMAX,2 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 /* %: */ pdef(CSQRT, VERB, jtsqroot, jtroot, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 /* ^ */ pdef(CEXP, VERB, jtexpn1, jtexpn2, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 /* ^. */ pdef(CLOG, VERB, jtlogar1, jtlogar2, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 /* ^: */ pdef(CPOWOP, CONJ, 0L, jtpowop, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 /* $ */ pdef(CDOLLAR, VERB, jtshapex, jtreitem, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 /* $. */ pdef(CSPARSE, VERB, jtsparse1, jtsparse2,RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 /* $: */ pdef(CSELF, VERB, jtself1, jtself2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 /* ~ */ pdef(CTILDE, ADV, jtswap, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 /* ~. */ pdef(CNUB, VERB, jtnub, 0L, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73 /* ~: */ pdef(CNE, VERB, jtnubsieve,jtne, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 /* | */ pdef(CSTILE, VERB, jtmag, jtresidue,0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75 /* |. */ pdef(CREV, VERB, jtreverse, jtrotate, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76 /* |: */ pdef(CCANT, VERB, jtcant1, jtcant2, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77 /* . */ pdef(CDOT, CONJ, 0L, jtdot, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78 /* .. */ pdef(CEVEN, CONJ, 0L, jteven, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 /* .: */ pdef(CODD, CONJ, 0L, jtodd, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 /* : */ pdef(CCOLON, CONJ, 0L, jtcolon, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81 /* :. */ pdef(COBVERSE,CONJ, 0L, jtobverse,0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 /* :: */ pdef(CADVERSE,CONJ, 0L, jtadverse,0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83 /* , */ pdef(CCOMMA, VERB, jtravel, jtover, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
84 /* ,* */ pdef(CAPIP, VERB, 0L, jtapip, 0, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
85 /* ,. */ pdef(CCOMDOT, VERB, jttable, jtstitch, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
86 /* ,: */ pdef(CLAMIN, VERB, jtlamin1, jtlamin2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
87 /* ; */ pdef(CSEMICO, VERB, jtraze, jtlink, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
88 /* ;. */ pdef(CCUT, CONJ, 0L, jtcut, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
89 /* ;: */ pdef(CWORDS, VERB, jtwords, jtfsm, 1, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
90 /* # */ pdef(CPOUND, VERB, jttally, jtrepeat, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
91 /* #. */ pdef(CBASE, VERB, jtbase1, jtbase2, 1, 1, 1 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
92 /* #: */ pdef(CABASE, VERB, jtabase1, jtabase2, RMAX,1, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
93 /* ! */ pdef(CBANG, VERB, jtfact, jtoutof, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
94 /* !. */ pdef(CFIT, CONJ, 0L, jtfit, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
95 /* !: */ pdef(CIBEAM, CONJ, 0L, jtforeign,0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
96 /* / */ pdef(CSLASH, ADV, jtslash, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
97 /* /. */ pdef(CSLDOT, ADV, jtsldot, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
98 /* /: */ pdef(CGRADE, VERB, jtgrade1, jtgrade2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
99 /* \ */ pdef(CBSLASH, ADV, jtbslash, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
100 /* \. */ pdef(CBSDOT, ADV, jtbsdot, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
101 /* \: */ pdef(CDGRADE, VERB, jtdgrade1, jtdgrade2,RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
102 /* [ */ pdef(CLEFT, VERB, jtright1, jtleft2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
103 /* [: */ pdef(CCAP, VERB, 0L, 0L, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
104 /* ] */ pdef(CRIGHT, VERB, jtright1, jtright2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
105 /* { */ pdef(CLBRACE, VERB, jtcatalog, jtfrom, 1, 0, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
106 /* {. */ pdef(CHEAD, VERB, jthead, jttake, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
107 /* {: */ pdef(CTAIL, VERB, jttail, 0L, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
108 /* } */ pdef(CRBRACE, ADV, jtrbrace, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
109 /* }* */ pdef(CAMIP, ADV, jtamip, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
110 /* }* */ pdef(CCASEV, VERB, jtcasev, 0L, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
111 /* }. */ pdef(CBEHEAD, VERB, jtbehead, jtdrop, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
112 /* }: */ pdef(CCTAIL, VERB, jtcurtail, 0L, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
113 /* " */ pdef(CQQ, CONJ, 0L, jtqq, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
114 /* ". */ pdef(CEXEC, VERB, jtexec1, jtexec2, 1, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
115 /* ": */ pdef(CTHORN, VERB, jtthorn1, jtthorn2, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
116 /* ` */ pdef(CGRAVE, CONJ, 0L, jttie, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
117 /* `. */ /* undefined */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
118 /* `: */ pdef(CGRCO, CONJ, 0L, jtevger, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
119 /* @ */ pdef(CAT, CONJ, 0L, jtatop, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
120 /* @. */ pdef(CATDOT, CONJ, 0L, jtagenda, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
121 /* @: */ pdef(CATCO, CONJ, 0L, jtatco, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
122 /* & */ pdef(CAMP, CONJ, 0L, jtamp, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
123 /* &. */ pdef(CUNDER, CONJ, 0L, jtunder, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
124 /* &: */ pdef(CAMPCO, CONJ, 0L, jtampco, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
125 /* ? */ pdef(CQUERY, VERB, jtroll, jtdeal, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
126 /* ?. */ pdef(CQRYDOT, VERB, jtrollx, jtdealx, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
127 /* ?: */ /* undefined */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
128 /* {:: */ pdef(CFETCH, VERB, jtmap, jtfetch, RMAX,1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
129 /* }:: */ pdef(CEMEND, ADV, jtemend, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
130 /* &.: */ pdef(CUNDCO, CONJ, 0L, jtundco, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
131 /* a. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
132 /* a: */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
133 /* A. */ pdef(CATOMIC, VERB, jtadot1, jtadot2, 1, 0, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
134 /* b. */ pdef(CBDOT, ADV, jtbdot, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
135 /* C. */ pdef(CCYCLE, VERB, jtcdot1, jtcdot2, 1, 1, RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
136 /* d. */ pdef(CDDOT, CONJ, 0L, jtddot, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
137 /* D. */ pdef(CDCAP, CONJ, 0L, jtdcap, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
138 /* D: */ pdef(CDCAPCO, CONJ, 0L, jtdcapco, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
139 /* e. */ pdef(CEPS, VERB, jtrazein, jteps, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
140 /* E. */ pdef(CEBAR, VERB, 0L, jtebar, 0, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
141 /* f. */ pdef(CFIX, ADV, jtfix, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
142 /* H. */ pdef(CHGEOM, CONJ, 0L, jthgeom, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
143 /* i. */ pdef(CIOTA, VERB, jtiota, jtindexof,1, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
144 /* i: */ pdef(CICO, VERB, jtjico1, jtjico2, 0, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
145 /* I. */ pdef(CICAP, VERB, jticap, jticap2, 1, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
146 /* j. */ pdef(CJDOT, VERB, jtjdot1, jtjdot2, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
147 /* L. */ pdef(CLDOT, VERB, jtlevel1, 0L, RMAX,0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
148 /* L: */ pdef(CLCAPCO, CONJ, 0L, jtlcapco, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
149 /* m. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
150 /* M. */ pdef(CMCAP, ADV, jtmemo, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
151 /* n. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
152 /* o. */ pdef(CCIRCLE, VERB, jtpix, jtcircle, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
153 /* p. */ pdef(CPOLY, VERB, jtpoly1, jtpoly2, 1, 1, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
154 /* p..*/ pdef(CPDERIV, VERB, jtpderiv1, jtpderiv2,1, 0, 1 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
155 /* p: */ pdef(CPCO, VERB, jtprime, jtpco2, 0, RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
156 /* q: */ pdef(CQCO, VERB, jtfactor, jtqco2, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
157 /* r. */ pdef(CRDOT, VERB, jtrdot1, jtrdot2, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
158 /* s: */ pdef(CSCO, VERB, jtsb1, jtsb2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
159 /* S: */ pdef(CSCAPCO, CONJ, 0L, jtscapco, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
160 /* t. */ pdef(CTDOT, ADV, jttdot, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
161 /* t: */ pdef(CTCO, ADV, jttco, 0L, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
162 /* T. */ pdef(CTCAP, CONJ, 0L, jttcap, 0, 0, 0 );
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
163 /* u. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
164 /* u: */ pdef(CUCO, VERB, jtuco1, jtuco2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
165 /* v. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
166 /* x. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
167 /* x: */ pdef(CXCO, VERB, jtxco1, jtxco2, RMAX,RMAX,RMAX);
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
168 /* y. */ /* see above */
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
169
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
170 if(jt->jerr){printf("pinit failed; error %hhi\n", jt->jerr); R 0;} else R 1;
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
171 }