Merge pull request #154 from codereport/dev

Remove unused functions

Author: codereport

jsrc/CMakeLists.txt

@@ -122,7 +122,6 @@ target_sources(j PRIVATE
         xenos/xf.c
         xenos/xfmt.c
         xenos/xh.c
-        xenos/xi.c
         xenos/xl.c
         xenos/xo.c
         xenos/xs.c

jsrc/adverbs/au.c

@@ -45,10 +45,6 @@ jtself2(J jt, A a, A w) {
     return z;
 }
 
-A
-jtac1(J jt, AF f) {
-    return fdef(0, 0, VERB, f, 0L, 0L, 0L, 0L, VFLAGNONE, RMAX, RMAX, RMAX);
-}
 A
 jtac2(J jt, AF f) {
     return fdef(0, 0, VERB, 0L, f, 0L, 0L, 0L, VFLAGNONE, RMAX, RMAX, RMAX);

jsrc/conjunctions/ch.c

@@ -150,45 +150,3 @@ jthgeom(J jt, A a, A w) {
     RZ(h = jtcancel(jt, c, d));
     return fdef(0, CHGEOM, VERB, jthgeom1, jthgeom2, a, w, h, 0L, 0L, 0L, 0L);
 } /* a H. w */
-
-A
-jthgcoeff(J jt, A w, A self) {
-    PROLOG(0037);
-    A c, d, h, *hv, y, z;
-    B b;
-    I j, n, pn, qn, *v;
-    V* sv = FAV(self);
-    RZ(w = jtvi(jt, w));
-    v = AV(w);
-    n = 0;
-    DO(AN(w), j = v[i]; ASSERT(0 <= j, EVDOMAIN); if (n < j) n = j;);
-    if (!n) return eq(w, w);
-    h  = sv->fgh[2];
-    hv = AAV(h);
-    b  = VERB & (AT(sv->fgh[0]) | AT(sv->fgh[1])) || CMPX & (AT(w) | AT(hv[0]) | AT(hv[1]));
-    if (!b) {
-        D r = 1.0, *u, *v, *yv;
-        RZ(c = jtcvt(jt, FL, hv[0]));
-        u  = DAV(c);
-        pn = AN(c);
-        RZ(d = jtcvt(jt, FL, hv[1]));
-        v  = DAV(d);
-        qn = AN(d);
-        GATV0(y, FL, n, 1);
-        yv = DAV(y);
-        DO(n, DO(pn, r *= u[i]; ++u[i];); DO(qn, r /= v[i]; ++v[i];); yv[i] = r;);
-    } else {
-        A j;
-        RZ(j = IX(n));
-        c = hparm(j, sv->fgh[0], hv[0]);
-        d = hparm(j, sv->fgh[1], hv[1]);
-        switch ((VERB & AT(sv->fgh[0]) ? 2 : 0) + (VERB & AT(sv->fgh[1]) ? 1 : 0)) {
-            case 0: y = jtascan(jt, CSTAR, divide(c, d)); break;
-            case 1: y = divide(jtascan(jt, CSTAR, c), d); break;
-            case 2: y = divide(c, jtascan(jt, CSTAR, d)); break;
-            case 3: y = divide(c, d);
-        }
-    }
-    RZ(z = jtfrom(jt, w, jtover(jt, zeroionei(1), y)));
-    EPILOG(z);
-} /* coefficients indexed by w excluding !j */

jsrc/conjunctions/cu.c

@@ -345,15 +345,6 @@ jteachl(J jt, A a, A w, A self) {
     rr    = AR(w) < rr ? AR(w) : rr;
     return rank2ex(a, w, self, lr, rr, lcr, AR(w), FAV(self)->valencefns[1]);
 }
-A
-jteachr(J jt, A a, A w, A self) {
-    I rcr = AR(w) - 1 < 0 ? 0 : AR(w) - 1;
-    I rr  = rr(self);
-    rr    = rcr < rr ? rcr : rr;
-    I lr  = lr(self);
-    lr    = AR(a) < lr ? AR(a) : lr;
-    return rank2ex(a, w, self, lr, rr, AR(a), rcr, FAV(self)->valencefns[1]);
-}
 
 // u&.v
 // PUSH/POP ZOMB is performed in atop/amp/ampco

jsrc/debugging/dsusp.c

@@ -81,41 +81,6 @@ jtdebz(J jt) {
 }
 /* remove     top of si stack */
 
-A
-jtsiinfo(J jt, A w) {
-    A z, *zv;
-    DC d;
-    I c = 5, n, *s;
-    ASSERTMTV(w);
-    n = 0;
-    d = jt->sitop;
-    while (d) {
-        ++n;
-        d = d->dclnk;
-    }
-    GATV0(z, BOX, c * n, 2);
-    s    = AS(z);
-    s[0] = n;
-    s[1] = c;
-    zv   = AAV(z);
-    d    = jt->sitop;
-    while (d) {
-        RZ(zv[0] = jtsc(jt, d->dctype));
-        RZ(zv[1] = d->dcsusp ? jtscc(jt, '*') : jtscc(jt, ' '));
-        RZ(zv[2] = jtsc(jt, (I)d->dcss));
-        RZ(zv[3] = d->dctype == DCCALL ? jtsc(jt, lnumsi(d)) : mtv);
-        switch (d->dctype) {
-            case DCPARSE: RZ(zv[4] = jtunparse(jt, d->dcy)); break;
-            case DCCALL: RZ(zv[4] = jtsfn(jt, 0, d->dca)); break;
-            case DCSCRIPT: zv[4] = d->dcy; break;
-            case DCJUNK: zv[4] = mtv; break;
-        }
-        zv += c;
-        d = d->dclnk;
-    }
-    return z;
-} /* 13!:32 si info */
-
 I
 lnumcw(I j, A w) {
     CW *u;

jsrc/jdlllic.c

@@ -81,11 +81,6 @@ jtlock2(J jt, A a, A w) {
     ASSERT(0, EVDOMAIN);
 }
 
-A
-jtunlock1(J jt, A w) {
-    return jtunlock2(jt, mtv, w);
-}
-
 A
 jtunlock2(J jt, A a, A w) {
     int i, j, len, tlen;

jsrc/je.h

@@ -5,7 +5,6 @@
 
 extern A jtabase1(J jt, A w);
 extern A jtadot1(J jt, A w);
-extern A jtaflag1(J jt, A w);
 extern A jtarep(J jt, A w);
 extern A jtaro(J jt, A w);
 extern A jtarx(J jt, A w);
@@ -20,7 +19,6 @@ extern A jtbase1(J jt, A w);
 extern A jtbdot(J jt, A w);
 extern A jtbehead(J jt, A w);
 extern A jtbinrep1(J jt, A w);
-extern A jtbit1(J jt, A w);
 extern A jtbitadv(J jt, A w);
 extern A jtbox(J jt, A w);
 extern A jtboxopen(J jt, A w);
@@ -41,15 +39,11 @@ extern A jtcatalog(J jt, A w);
 extern A jtcder(J jt, A w);
 extern A jtcderx(J jt, A w);
 extern A jtcdf(J jt, A w);
-extern A jtcdjt(J jt, A w);
-extern A jtcdlibl(J jt, A w);
 extern A jtcdot1(J jt, A w);
-extern A jtcdproc1(J jt, A w);
 extern A jtceil1(J jt, A w);
 extern A jtcerrno(J jt, A w);
 extern A jtconjug(J jt, A w);
 extern A jtcork1(J jt, A w, A self);
-extern A jtcpufeature(J jt, A w);
 extern A jtcrc1(J jt, A w);
 extern A jtcrccompile(J jt, A w);
 extern A jtctq(J jt, A w);
@@ -91,7 +85,6 @@ extern A jtdomainerr1(J jt, A w);
 extern A jtdrep(J jt, A w);
 extern A jtdrx(J jt, A w);
 extern A jtduble(J jt, A w);
-extern A jtdx_test(J jt, A w);
 extern A jtemend(J jt, A w);
 extern A jtevmq(J jt, A w);
 extern A jtevms(J jt, A w);
@@ -118,14 +111,11 @@ extern PRIM jtfxself[2];
 extern A jtfxx(J jt, A w);
 extern A jtgaussdet(J jt, A w);
 extern A jtgausselm(J jt, A w);
-extern A jtgb_test(J jt, A w);
-extern A jtgemmtune(J jt, A w);
 extern A jtgh15(J jt, A w);
 extern A jtgrade1(J jt, A w);
 extern A jtkeybox(J jt, A a, A w, A self);
 extern A jtkeyheadtally(J jt, A a, A w, A self);
 extern A jthalve(J jt, A w);
-extern A jthash(J jt, A w);
 extern A jthead(J jt, A w);
 extern A jthexrep1(J jt, A w);
 extern A jthgdiff(J jt, A w);
@@ -166,7 +156,6 @@ extern A jtjgetpid(J jt, A w);
 extern A jtjico1(J jt, A w);
 extern A jtjiread(J jt, A w);
 extern A jtjlock(J jt, A w);
-extern A jtjlocks(J jt, A w);
 extern A jtjmkdir(J jt, A w);
 extern A jtnatoms(J jt, A w);
 extern A jtjoff(J jt, A w);
@@ -181,7 +170,6 @@ extern A jtjreginfo(J jt, A w);
 extern A jtjunlock(J jt, A w);
 extern A jtjwait(J jt, A w);
 extern A jtlamin1(J jt, A w);
-extern A jtlcg_test(J jt, A w);
 extern A jtlevel1(J jt, A w);
 extern A jtloccre1(J jt, A w);
 extern A jtlocexmark(J jt, A w);
@@ -208,8 +196,6 @@ extern A jtmemu(J jt, A w);
 extern A jtminv(J jt, A w);
 extern A jtmmaxq(J jt, A w);
 extern A jtmmaxs(J jt, A w);
-extern A jtmr_test(J jt, A w);
-extern A jtmt_test(J jt, A w);
 extern A jtnameref(J, A, A);
 extern A jtnc(J jt, A w);
 extern A jtnch(J jt, A w);
@@ -260,7 +246,6 @@ extern A jtqpctr(J jt, A w);
 extern A jtqpfreq(J jt, A w);
 extern A jtqr(J jt, A w);
 extern A jtranking(J jt, A w);
-extern A jtrankle(J jt, A w);
 extern A jtrat(J jt, A w);
 extern A jtravel(J jt, A w);
 extern A jtraze(J jt, A w);
@@ -303,7 +288,6 @@ extern A jtself1(J jt, A w);
 extern A shape(J jt, A w);
 extern A jtshift1(J jt, A w);
 extern A jtsignum(J jt, A w);
-extern A jtsiinfo(J jt, A w);
 extern A jtslash(J jt, A w);
 extern A jtsldot(J jt, A w);
 extern A jtsnl(J jt, A w);
@@ -336,11 +320,8 @@ extern A jtthorn1u(J jt, A w);
 extern A jttlimq(J jt, A w);
 extern A jttlims(J jt, A w);
 extern A jttobase64(J jt, A w);
-extern A jttocesu8(J jt, A w);
-extern A jttomutf8(J jt, A w);
 extern A jttou32(J jt, A w);
 extern A jttoutf16(J jt, A w);
-extern A jttoutf16x(J jt, A w);
 extern A jttoutf32(J jt, A w);
 extern A jttoutf8(J jt, A w);
 extern A jttoutf8a(J, A, A);
@@ -353,7 +334,6 @@ extern A jttsit1(J jt, A w);
 extern A jttss(J jt, A w);
 extern A jtuco1(J jt, A w);
 extern A jtunbin(J jt, A w);
-extern A jtunlock1(J jt, A w);
 extern A jtunname(J jt, A w);
 extern A jtunparse(J jt, A w);
 extern A jtunzero(J jt, A w);
@@ -368,13 +348,10 @@ extern A jtvtrans(J jt, A w);
 extern A jtwordil(J jt, A w);
 extern A jtwords(J jt, A w, A self);
 extern A jtxco1(J jt, A w);
-extern A jtxepq(J jt, A w);
-extern A jtxeps(J jt, A w);
 extern A jtabase2(J jt, A a, A w);
 extern A jtadot2(J jt, A a, A w);
 extern A jtadverse(J jt, A a, A w);
 extern A jtaes2(J jt, A a, A w);
-extern A jtaflag2(J jt, A a, A w);
 extern A jtagenda(J jt, A a, A w);
 extern A jtagendai(J jt, A a, A w);
 extern A jtamp(J jt, A a, A w);
@@ -386,7 +363,6 @@ extern A jtatop(J jt, A a, A w);
 extern A jtbase2(J jt, A a, A w);
 extern A jtbinrep2(J jt, A a, A w);
 extern A jtbit(J jt, A a, A w);
-extern A jtbit2(J jt, A a, A w);
 extern A jtbitmatch(J jt, A a, A w);
 extern A jtbitwiserotate(J jt, A a, A w);
 extern A jtbitwiseshift(J jt, A a, A w);
@@ -395,10 +371,8 @@ extern A jtboxcut0(J jt, A a, A w, A self);
 extern A jtcant2(J jt, A a, A w);
 extern A jtcd(J jt, A a, A w);
 extern A jtcdot2(J jt, A a, A w);
-extern A jtcdproc2(J jt, A a, A w);
 extern A jtcolon(J jt, A a, A w);
 extern A jtcork2(J jt, A a, A w, A self);
-extern A jtcpufeature2(J jt, A a, A w);
 extern A jtcrc2(J jt, A a, A w);
 extern A jtcut2(J jt, A a, A w, A self);
 extern A jtcut(J jt, A a, A w);
@@ -432,18 +406,14 @@ extern A jtfmt22(J jt, A a, A w);
 extern A jtfold(J jt, A a, A w, A self);
 extern A jtfoldZ(J jt, A a, A w, A self);
 extern A jtforeign(J jt, A a, A w);
-extern A jtforeignextra(J jt, A a, A w);
 extern A jtfrom(J jt, A a, A w);
 extern A jtfrombs(J jt, A a, A w);
 extern A jtfromis(J jt, A a, A w);
 extern A jtfromr(J jt, A a, A w);
 extern A jtfromsd(J jt, A a, A w);
 extern A jtfromss(J jt, A a, A w);
 extern A jtfsm(J jt, A a, A w);
-extern A jtgemmtune2(J jt, A a, A w);
 extern A jtgenbitwiserotate(J jt, A a, A w);
-extern A jtgenbitwiseshift(J jt, A a, A w);
-extern A jtgenbitwiseshifta(J jt, A a, A w);
 extern A jtgrade1p(J jt, A a, A w);
 extern A jtgrade2(J jt, A a, A w);
 extern A jthexrep2(J jt, A a, A w);
@@ -463,8 +433,6 @@ extern A jtjfperm2(J jt, A a, A w);
 extern A jtjfwrite(J jt, A a, A w);
 extern A jtjico2(J jt, A a, A w);
 extern A jtjiwrite(J jt, A a, A w);
-extern A jtjregmatch(J jt, A a, A w);
-extern A jtjregmatches(J jt, A a, A w);
 extern A jtlamin2(J jt, A a, A w);
 extern A jtlcapco(J jt, A a, A w);
 extern A jtleft2(J jt, A a, A w);
@@ -551,7 +519,6 @@ extern A jtdetxm(J jt, A w, A self);
 extern A jtdfs1(J jt, A w, A self);
 extern A jtexppi(J jt, A w, A self);
 extern A jtfsmfx(J jt, A w, A self);
-extern A jthgcoeff(J jt, A w, A self);
 extern A jthook1cell(J jt, A w, A self);
 extern A jthook2cell(J jt, A a, A w, A self);
 extern A jtmean(J jt, A w, A self);
@@ -570,7 +537,6 @@ extern A jtunquote(J jt, A a, A w, A self);
 extern A jtdbunquote(J, A, A, A, L*);
 extern A jtdfs2(J jt, A a, A w, A self);
 extern A jteachl(J jt, A a, A w, A self);
-extern A jteachr(J jt, A a, A w, A self);
 extern A jtfslashatg(J jt, A a, A w, A self);
 extern A jtimplocref(J jt, A a, A w, A self);
 extern A jtnum2(J jt, A a, A w, A self);
@@ -585,7 +551,6 @@ extern A jtxop2(J jt, A a, A w, A self);
 extern A jtassembleresults(J, I, A, A, A*, I, I, I, A, I, I, I);
 extern I cachedmmult(J, D*, D*, D*, I, I, I, I);
 extern void copyTT(void*, void*, I, I, I);
-extern A jtac1(J, AF);
 extern A jtac2(J, AF);
 extern B jtadd2(J, F, F, C*);
 extern I jtaii(J, A);
@@ -643,7 +608,6 @@ extern B jtecvtinit(J);
 extern A jtenqueue(J, A, A, I);
 extern B jtequ(J, A, A);
 extern B jtequ0(J, A, A);
-extern A jtev1(J, A, C*);
 extern A jtev2(J, A, A, C*);
 extern A jteva(J, A, C*);
 extern A jteval(J, C*);
@@ -737,7 +701,6 @@ extern I jtprod(J, I, I*);
 extern I jtqcompare(J, Q, Q);
 extern I jtra(AD* RESTRICT, I);
 extern A jtras(J, AD* RESTRICT);
-extern A jtra00s(J, AD* RESTRICT);
 extern A jtrank1ex(J, AD* RESTRICT, A, I, AF);
 extern A jtrank1ex0(J, AD* RESTRICT, A, AF);
 extern A jtrank2ex(J, AD* RESTRICT, AD* RESTRICT, A, UI, AF);
@@ -758,7 +721,6 @@ extern A jtscb(J, B);
 extern A jtscc(J, C);
 extern A jtscf(J, D);
 extern B jtscheck(J, A);
-extern A jtscx(J, X);
 extern A jtscib(J, I);
 extern B jtsesminit(J);
 extern A jtsfn(J, B, A);
@@ -825,7 +787,6 @@ extern A jtvger2(J, C, A, A);
 extern A jtvirtual(J, AD* RESTRICT, I, I);
 extern B jtvnm(J, I, C*);
 extern void jtwri(J, I, C*, I, C*);
-extern B jtxlinit(J);
 extern B jtxoinit(J);
 extern B jtxsinit(J);
 

jsrc/m.c

@@ -1029,11 +1029,7 @@ jtras(J jt, AD* RESTRICT w) {
     ra(w);
     return w;
 }  // subroutine version of ra() to save space
-A
-jtra00s(J jt, AD* RESTRICT w) {
-    ra00(w, AT(w));
-    return w;
-}  // subroutine version of ra00() to save space
+
 A
 jtrifvs(J jt, AD* RESTRICT w) {
     realizeifvirtual(w);

jsrc/px.c

@@ -24,11 +24,6 @@ jteval(J jt, C* s) {
     return jtparse(jt, jttokens(jt, jtcstr(jt, s), 1 + (AN(jt->locsyms) > 1)));
 }
 
-A
-jtev1(J jt, A w, C* s) {
-    A z;
-    return df1(z, w, jteval(jt, s));
-}  // parse *s and apply to w
 A
 jtev2(J jt, A a, A w, C* s) {
     A z;