Skip to content

Commit e537e2a

Browse files
juntuujuntuu
committed
Remove unused functions
1 parent 83f8bd4 commit e537e2a

File tree

10 files changed

+0
-124
lines changed

10 files changed

+0
-124
lines changed

‎jsrc/conjunctions/cg.c‎

Lines changed: 0 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -659,26 +659,3 @@ jtgadv(J jt, A w, C id) {
659659
atoplr(AAV(hs)[0]);
660660
return fdef(0, id, VERB, jtgav1, jtgav2, w, 0L, hs, flag, RMAX, RMAX, RMAX); // create the derived verb
661661
}
662-
663-
static A
664-
jtgf1(J jt, A w, A self) {
665-
A z, h = FAV(self)->fgh[2];
666-
return df1(z, w, AAV(h)[0]);
667-
}
668-
static A
669-
jtgf2(J jt, A a, A w, A self) {
670-
A z, h = FAV(self)->fgh[2];
671-
return df2(z, a, w, AAV(h)[0]);
672-
}
673-
674-
A
675-
jtvger2(J jt, C id, A a, A w) {
676-
A h, *hv, x;
677-
V *v;
678-
RZ(x = a ? a : w);
679-
ASSERT(2 == AN(x), EVLENGTH);
680-
RZ(h = jtfxeachv(jt, 1L, x));
681-
hv = AAV(h);
682-
v = VAV(*hv);
683-
return fdef(0, id, VERB, jtgf1, jtgf2, x, a ? w : 0L, h, VGERL, (I)v->mr, lrv(v), rrv(v));
684-
} /* verify and define 2-element gerund */

‎jsrc/ja.h‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -188,9 +188,6 @@
188188
#define fdef(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11) \
189189
jtfdef(jt, (x0), (x1), (x2), (x3), (x4), (x5), (x6), (x7), (x8), (x9), (x10), (x11))
190190
#define fillv(x, y, z) jtfillv(jt, (x), (y), (z))
191-
// x is locale number, result is address of symbol table, or 0 if nonexistent locale
192-
// only for non-reuse #define findnlz(x,z) {if((UI)(n)>=jt->numlocsize)z=0; else
193-
// {z=(A)(jt->numloctbl[n]); z=((UI)((I*)z-jt->numloctbl)<jt->numlocsize)?0:z;}}
194191
#define fitct(x, y, n) jtfitct(jt, (x), (y), (n))
195192
#define floor1(x) jtatomic1(jt, (x), ds(CFLOOR))
196193
#define fmfill(x0, x1, x2, x3, x4, x5, x6, x7) jtfmfill(jt, (x0), (x1), (x2), (x3), (x4), (x5), (x6), (x7))

‎jsrc/je.h‎

Lines changed: 0 additions & 54 deletions
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,6 @@ extern A jtbase1(J jt, A w);
1919
extern A jtbdot(J jt, A w);
2020
extern A jtbehead(J jt, A w);
2121
extern A jtbinrep1(J jt, A w);
22-
extern A jtbitadv(J jt, A w);
2322
extern A jtbox(J jt, A w);
2423
extern A jtboxopen(J jt, A w);
2524
extern A jtboxq(J jt, A w);
@@ -40,9 +39,7 @@ extern A jtcder(J jt, A w);
4039
extern A jtcderx(J jt, A w);
4140
extern A jtcdf(J jt, A w);
4241
extern A jtcdot1(J jt, A w);
43-
extern A jtceil1(J jt, A w);
4442
extern A jtcerrno(J jt, A w);
45-
extern A jtconjug(J jt, A w);
4643
extern A jtcork1(J jt, A w, A self);
4744
extern A jtcrc1(J jt, A w);
4845
extern A jtcrccompile(J jt, A w);
@@ -91,13 +88,10 @@ extern A jtevms(J jt, A w);
9188
extern A jtex(J jt, A w);
9289
extern A jtexec1(J jt, A w);
9390
extern A jtexg(J jt, A w);
94-
extern A jtexpn1(J jt, A w);
95-
extern A jtfact(J jt, A w);
9691
extern A jtfactor(J jt, A w);
9792
extern A jtfh15(J jt, A w);
9893
extern A jtfiller(J jt, A w);
9994
extern A jtfix(J jt, A w, A self);
100-
extern A jtfloor1(J jt, A w);
10195
extern A jtfmt01(J jt, A w);
10296
extern A jtfmt11(J jt, A w);
10397
extern A jtfmt21(J jt, A w);
@@ -118,7 +112,6 @@ extern A jtkeyheadtally(J jt, A a, A w, A self);
118112
extern A jthalve(J jt, A w);
119113
extern A jthead(J jt, A w);
120114
extern A jthexrep1(J jt, A w);
121-
extern A jthgdiff(J jt, A w);
122115
extern A jthost(J jt, A w);
123116
extern A jthostio(J jt, A w);
124117
extern A jthostne(J jt, A w);
@@ -162,11 +155,6 @@ extern A jtjoff(J jt, A w);
162155
extern A jtjopen(J jt, A w);
163156
extern A jtjpr(J jt, A w);
164157
extern A rank(J jt, A w);
165-
extern A jtjregcomp(J jt, A w);
166-
extern A jtjregerror(J jt, A w);
167-
extern A jtjregfree(J jt, A w);
168-
extern A jtjreghandles(J jt, A w);
169-
extern A jtjreginfo(J jt, A w);
170158
extern A jtjunlock(J jt, A w);
171159
extern A jtjwait(J jt, A w);
172160
extern A jtlamin1(J jt, A w);
@@ -182,10 +170,8 @@ extern A jtlocpath1(J jt, A w);
182170
extern A jtlocsizeq(J jt, A w);
183171
extern A jtlocsizes(J jt, A w);
184172
extern A jtlocswitch(J jt, A w);
185-
extern A jtlogar1(J jt, A w);
186173
extern A jtlrep(J jt, A w);
187174
extern A jtlrx(J jt, A w);
188-
extern A jtmag(J jt, A w);
189175
extern A jtmap(J jt, A w);
190176
extern A jtmat(J jt, A w);
191177
extern A jtmema(J jt, A w);
@@ -239,8 +225,6 @@ extern A jtppq(J jt, A w);
239225
extern A jtpps(J jt, A w);
240226
extern A jtprep(J jt, A w);
241227
extern A jtprime(J jt, A w);
242-
extern A jtprocarch(J jt, A w);
243-
extern A jtprocfeat(J jt, A w);
244228
extern A jtprx(J jt, A w);
245229
extern A jtqpctr(J jt, A w);
246230
extern A jtqpfreq(J jt, A w);
@@ -251,7 +235,6 @@ extern A jtravel(J jt, A w);
251235
extern A jtraze(J jt, A w);
252236
extern A jtrazeh(J jt, A w);
253237
extern A jtrazein(J jt, A w);
254-
extern A jtrca(J jt, A w);
255238
extern A jtrdot1(J jt, A w);
256239
extern A jtrecip(J jt, A w);
257240
extern A jtrect(J jt, A w);
@@ -287,7 +270,6 @@ extern A jtseclevs(J jt, A w);
287270
extern A jtself1(J jt, A w);
288271
extern A shape(J jt, A w);
289272
extern A jtshift1(J jt, A w);
290-
extern A jtsignum(J jt, A w);
291273
extern A jtslash(J jt, A w);
292274
extern A jtsldot(J jt, A w);
293275
extern A jtsnl(J jt, A w);
@@ -298,7 +280,6 @@ extern A jtspfor(J jt, A w);
298280
extern A jtspforloc(J jt, A w);
299281
extern A jtsphwmk(J jt, A w);
300282
extern A jtspit(J jt, A w);
301-
extern A jtsqroot(J jt, A w);
302283
extern A jtsquare(J jt, A w);
303284
extern A jtstr0(J jt, A w);
304285
extern A jtstype(J jt, A w);
@@ -307,14 +288,10 @@ extern A jtsymbrd(J jt, A w);
307288
extern A jtsymbrdlock(J jt, A w);
308289
extern A jtsymbrdlocknovalerr(J jt, A w);
309290
extern A jtsympool(J jt, A w);
310-
extern A jtsysparmq(J jt, A w);
311-
extern A jtsysparms(J jt, A w);
312291
extern A jtsysq(J jt, A w);
313292
extern A jttable(J jt, A w);
314293
extern A jttail(J jt, A w);
315294
extern A tally(J jt, A w);
316-
extern A jttco(J jt, A w);
317-
extern A jttdot(J jt, A w);
318295
extern A jtthorn1(J jt, A w);
319296
extern A jtthorn1u(J jt, A w);
320297
extern A jttlimq(J jt, A w);
@@ -351,8 +328,6 @@ extern A jtxco1(J jt, A w);
351328
extern A jtabase2(J jt, A a, A w);
352329
extern A jtadot2(J jt, A a, A w);
353330
extern A jtadverse(J jt, A a, A w);
354-
extern A jtaes2(J jt, A a, A w);
355-
extern A jtagenda(J jt, A a, A w);
356331
extern A jtagendai(J jt, A a, A w);
357332
extern A jtamp(J jt, A a, A w);
358333
extern A jtampco(J jt, A a, A w);
@@ -362,8 +337,6 @@ extern A jtatco(J jt, A a, A w);
362337
extern A jtatop(J jt, A a, A w);
363338
extern A jtbase2(J jt, A a, A w);
364339
extern A jtbinrep2(J jt, A a, A w);
365-
extern A jtbit(J jt, A a, A w);
366-
extern A jtbitmatch(J jt, A a, A w);
367340
extern A jtbitwiserotate(J jt, A a, A w);
368341
extern A jtbitwiseshift(J jt, A a, A w);
369342
extern A jtbitwiseshifta(J jt, A a, A w);
@@ -391,7 +364,6 @@ extern A jtebar(J jt, A a, A w);
391364
extern A jteps(J jt, A a, A w);
392365
extern A jtetoiso8601(J jt, A a, A w);
393366
extern A jtiso8601toe(J jt, A a, A w);
394-
extern A jteven(J jt, A a, A w);
395367
extern A jtevger(J jt, A a, A w);
396368
extern A jtexec2(J jt, A a, A w);
397369
extern A jtexpand(J jt, A a, A w);
@@ -413,7 +385,6 @@ extern A jtfromr(J jt, A a, A w);
413385
extern A jtfromsd(J jt, A a, A w);
414386
extern A jtfromss(J jt, A a, A w);
415387
extern A jtfsm(J jt, A a, A w);
416-
extern A jtgenbitwiserotate(J jt, A a, A w);
417388
extern A jtgrade1p(J jt, A a, A w);
418389
extern A jtgrade2(J jt, A a, A w);
419390
extern A jthexrep2(J jt, A a, A w);
@@ -451,7 +422,6 @@ extern A jtnl2(J jt, A a, A w);
451422
extern A jtnotmatch(J jt, A a, A w);
452423
extern A jtnouninfo2(J jt, A a, A w);
453424
extern A jtobverse(J jt, A a, A w);
454-
extern A jtodd(J jt, A a, A w);
455425
extern A jtordstat(J jt, A a, A w);
456426
extern A jtordstati(J jt, A a, A w);
457427
extern A jtoutstr(J jt, A a, A w);
@@ -487,15 +457,12 @@ extern A jtscz2(J jt, A a, A w);
487457
extern A jtself2(J jt, A a, A w);
488458
extern A jtsetfv(J jt, A a, A w);
489459
extern A jtsfrom(J jt, A a, A w);
490-
extern A jtsmmcar(J jt, A a, A w);
491-
extern A jtsmmis(J jt, A a, A w);
492460
extern A jtsparse2(J jt, A a, A w);
493461
extern A jtspecialatoprestart(J jt, A a, A w, A self);
494462
extern A jtstitch(J jt, A a, A w);
495463
extern A jtstitchsp2(J jt, A a, A w);
496464
extern A jtsumebar(J jt, A a, A w);
497465
extern A jttake(J jt, A a, A w);
498-
extern A jttcap(J jt, A a, A w);
499466
extern A jtthorn2(J jt, A a, A w);
500467
extern A jttie(J jt, A a, A w);
501468
extern A jttsit2(J jt, A a, A w);
@@ -567,7 +534,6 @@ extern A jtaslash(J, C, A);
567534
extern A jtaslash1(J, C, A);
568535
extern A jtatab(J, C, A, A);
569536
extern AF jtatcompf(J, A, A, A);
570-
extern void jtauditmemchains(J);
571537
extern B jtb0(J, A);
572538
extern A jtbcvt(J, C, A);
573539
extern B* jtbfi(J, I, A, B);
@@ -576,14 +542,11 @@ extern B jtbitwisecharamp(J, UC*, I, UC*, UC*);
576542
extern B jtboxatop(J, A);
577543
extern A jtcelloffset(J, AD* RESTRICT, AD* RESTRICT);
578544
extern A jtcharmap(J, A, A, A);
579-
extern B jtcheckmf(J);
580-
extern B jtchecksi(J);
581545
extern A jtclonelocalsyms(J, A);
582546
extern A jtclonevirtual(J, A);
583547
extern I jtcompare(J, A, A);
584548
extern A jtconnum(J, I, C*);
585549
extern I jtcountnl(J);
586-
extern A jtcpa(J, B, A);
587550
extern A jtcreatecycliciterator(J, A, A);
588551
extern A jtcrelocalsyms(J, A, A, I, I, I);
589552
extern A jtcstr(J, C*);
@@ -596,8 +559,6 @@ extern DC jtdeba(J, C, void*, void*, A);
596559
extern void jtdebdisp(J, DC);
597560
extern void jtdebz(J);
598561
extern A jtdecorate(J, A, I);
599-
extern A jtdfss1(J, A, A, A);
600-
extern A jtdfss2(J, A, A, A, A);
601562
extern D jtdgamma(J, D);
602563
extern D jtdgcd(J, D, D);
603564
extern D jtdlcm(J, D, D);
@@ -606,7 +567,6 @@ extern B jtecvt(J, D, I, int*, int*, C*);
606567
extern B jtecvtinit(J);
607568
extern A jtenqueue(J, A, A, I);
608569
extern B jtequ(J, A, A);
609-
extern B jtequ0(J, A, A);
610570
extern A jtev2(J, A, A, C*);
611571
extern A jteva(J, A, C*);
612572
extern A jteval(J, C*);
@@ -685,7 +645,6 @@ extern A jtpee(J, A*, CW*, I, I, DC);
685645
extern A jtpfill(J, I, A);
686646
extern A jtpind(J, I, A);
687647
extern B jtpinit(J);
688-
extern I jtpiplocalerr(J, A);
689648
extern void jtpmrecord(J, A, A, I, int);
690649
extern D jtpospow(J, D, D);
691650
extern B jtpreparse(J, A, A*, A*);
@@ -764,25 +723,20 @@ extern D jttceil(J, D);
764723
extern D jttfloor(J, D);
765724
extern I jtthv(J, A, I, C*);
766725
extern A jttoc1(J, B, A);
767-
extern void jttoutf8w(J, C*, I, US*);
768726
extern void jttpop(J, A*);
769727
extern A* jttpush(J, AD* RESTRICT, I, A*);
770-
extern B jttrd(J jt, A w);
771728
extern A* jttg(J, A*);
772729
extern A jttokens(J, A, I);
773730
extern A jtunDD(J, A);
774-
extern B jtunlk(J, I);
775731
extern A jtunwordil(J, A, A, I);
776732
extern A jtv2(J, I, I);
777-
extern A jtva2s(J, A, A, C, VF, I, I, I, I, I);
778733
extern VA2 jtvar(J, A, I, I);
779734
extern A jtvasp(J, A, A, C, VF, I, I, I, I, I, I, I, I, I);
780735
extern B jtvc1(J, I, US*);
781736
extern A jtvci(J, I);
782737
extern A jtvec(J, I, I, void*);
783738
extern A jtvecb01(J, I, I, void*);
784739
extern F jtvfn(J, F);
785-
extern A jtvger2(J, C, A, A);
786740
extern A jtvirtual(J, AD* RESTRICT, I, I);
787741
extern B jtvnm(J, I, C*);
788742
extern void jtwri(J, I, C*, I, C*);
@@ -806,11 +760,7 @@ extern void forcetomemory(void*);
806760
extern UI hic(I, UC*);
807761
extern UI hic2(I, UC*);
808762
extern UI hic4(I, UC*);
809-
extern I hsize(I);
810-
extern J jinit(void);
811763
extern void jsto(J, I, C*);
812-
extern void jstpoll(J);
813-
extern void jststop(J);
814764
extern I level(A);
815765
extern I levelle(A, I);
816766
extern void mvc(I, void*, I, void*);
@@ -820,13 +770,9 @@ extern A relocate(I, A);
820770
extern I remii(I, I);
821771
extern C spellin(I, C*);
822772
extern void spellit(C, C*);
823-
extern I smmallosize(A);
824-
extern void smmfrr(A);
825773
extern void sortiq1(I*, I);
826774
extern I strtoI10s(I, C*);
827775
extern D tod(void);
828-
extern void va1primsetup(A);
829-
extern void va2primsetup(A);
830776
extern B vlocnm(I, C*);
831777
extern D xdouble(X);
832778
#define memcmpne(s, t, l) (!!memcmp((s), (t), (l)))

‎jsrc/verbs/v1.c‎

Lines changed: 0 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -113,14 +113,6 @@ jtequ(J jt, A a, A w) {
113113
return ((B(*)())jtmatchsub)(jt, a, w, 0 MATCHSUBDEFAULTS); // don't check level - it takes too long for big arrays
114114
}
115115

116-
// Return 1 if a and w match intolerantly, 0 if not
117-
B
118-
jtequ0(J jt, A a, A w) {
119-
FPREFIP; // allow inplace request - it has no effect
120-
PUSHCCT(1.0) B res = jtequ(jt, a, w);
121-
POPCCT return res;
122-
}
123-
124116
// Test for equality of functions, 1 if they match. To match, the functions must have the same pseudocharacter and fgh
125117
static B
126118
jteqf(J jt, A a, A w) {

‎jsrc/verbs/ve.h‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -363,7 +363,6 @@ extern I plusBD(I n, I m, B* RESTRICTI x, D* RESTRICTI y, D* RESTRICTI z, J jt);
363363
extern I plusDB(I n, I m, D* RESTRICTI x, B* RESTRICTI y, D* RESTRICTI z, J jt);
364364
extern I plusDD(I n, I m, D* RESTRICTI x, D* RESTRICTI y, D* RESTRICTI z, J jt);
365365
extern I plusDI(I n, I m, D* RESTRICTI x, I* RESTRICTI y, D* RESTRICTI z, J jt);
366-
extern I plusDX(I n, I m, DX* RESTRICTI x, DX* RESTRICTI y, DX* RESTRICTI z, J jt);
367366
extern I plusIB(I n, I m, I* RESTRICTI x, B* RESTRICTI y, I* RESTRICTI z, J jt);
368367
extern I plusID(I n, I m, I* RESTRICTI x, D* RESTRICTI y, D* RESTRICTI z, J jt);
369368
extern I plusII(I n, I m, I* RESTRICTI x, I* RESTRICTI y, I* RESTRICTI z, J jt);

‎jsrc/verbs/vg.h‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -15,8 +15,6 @@ extern B compud(I, US*, US*);
1515
extern B comptu(I, C4*, C4*);
1616
extern B comptd(I, C4*, C4*);
1717
extern B compr(I, A*, A*);
18-
extern B comppu(I, D*, D*);
19-
extern B comppd(I, D*, D*);
2018
extern B compxu(I, X*, X*);
2119
extern B compxd(I, X*, X*);
2220
extern B compqu(I, Q*, Q*);

‎jsrc/verbs/vz.c‎

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -590,13 +590,3 @@ jtexppi(J jt, A w, A self) {
590590
ZAV(z)[0] = t;
591591
return z;
592592
} /* special code for ^@o. */
593-
594-
Z
595-
jtznonce1(J jt, Z v) {
596-
ZASSERT(0, EVNONCE);
597-
}
598-
599-
Z
600-
jtznonce2(J jt, Z u, Z v) {
601-
ZASSERT(0, EVNONCE);
602-
}

‎jsrc/vz.h‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -72,7 +72,6 @@ extern Z jtzconjug(J jt, Z v);
7272
extern Z jtzexp(J jt, Z v);
7373
extern Z jtzlog(J jt, Z v);
7474
extern Z jtznegate(J jt, Z v);
75-
extern Z jtznonce1(J jt, Z v);
7675
extern Z jtzsqrt(J jt, Z v);
7776
extern Z jtztrend(J jt, Z v);
7877
extern Z jtzfloor(J jt, Z v);
@@ -82,7 +81,6 @@ extern Z jtzdiv(J jt, Z u, Z v);
8281
extern Z jtzgcd(J jt, Z u, Z v);
8382
extern Z jtzlcm(J jt, Z u, Z v);
8483
extern Z jtzminus(J jt, Z u, Z v);
85-
extern Z jtznonce2(J jt, Z u, Z v);
8684
extern Z jtzplus(J jt, Z u, Z v);
8785
extern Z jtzpow(J jt, Z u, Z v);
8886
extern Z jtzrem(J jt, Z u, Z v);

‎jsrc/xenos/xl.c‎

Lines changed: 0 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -88,17 +88,6 @@ jtunlj(J jt, I j) {
8888
return num(1);
8989
} /* unlock the j-th entry in jt->flkd */
9090

91-
B
92-
jtunlk(J jt, I x) {
93-
I j = 0, *v = AV(jt->flkd);
94-
while (j < AM(jt->flkd)) {
95-
while (x == *v) RZ(jtunlj(jt, j));
96-
++j;
97-
v += LKC;
98-
}
99-
return 1;
100-
} /* unlock all existing locks for file# x */
101-
10291
A
10392
jtjunlock(J jt, A w) {
10493
F1RANK(1, jtjunlock, UNUSED_VALUE);

0 commit comments

Comments
 (0)