Artifact 1697d8fc595aaacbe97891ebeca0e8461b8823233bbdfe21b89c1c9bb002dda6:
- File
psl-1983/3-1/tests/all-test.headers
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 23441) [annotate] [blame] [check-ins using] [more...]
"XXX-HEADER.RED"$ MAIN2 6/1 FIRSTCALL; MAIN2 14/2 UNDEFINEDFUNCTIONAUX; MAIN2 77/3 "PT:MINI-CHAR-IO.RED"$ SUB2 3/1 "PT:MINI-PRINTERS.RED"$ SUB2 4/2 "PT:MINI-ERROR-ERRORSET.RED"$ SUB2 5/3 "PT:MINI-ERROR-HANDLERS.RED"$ SUB2 6/4 "PT:MINI-TYPE-ERRORS.RED"$ SUB2 7/5 "XXX-HEADER.RED"$ MAIN3 6/1 "PT:STUBS3.RED"$ MAIN3 7/2 FIRSTCALL; MAIN3 12/3 CASETEST; MAIN3 23/4 CTEST N; MAIN3 41/5 SHOW(N,S); MAIN3 49/6 CONSTEST(); MAIN3 56/7 UNDEFINEDFUNCTIONAUX; MAIN3 68/8 "PT:P-ALLOCATORS.RED"$ SUB3 3/1 "PT:MINI-CONS-MKVECT.RED"$ SUB3 4/2 "PT:MINI-COMP-SUPPORT.RED"$ SUB3 5/3 "PT:MINI-SEQUENCE.RED"$ SUB3 7/4 "PT:MINI-GC.RED"$ STUBS3 4/1 "XXX-HEADER.RED"$ MAIN4 5/1 "PT:P-FUNCTION-PRIMITIVES.RED"$ MAIN4 6/2 "PT:STUBS4.RED"$ MAIN4 7/3 "PT:STUBS3.RED"$ MAIN4 8/4 FIRSTCALL; MAIN4 15/5 MORESTUFF; MAIN4 68/6 FUNCTIONTEST(); MAIN4 74/7 COMPILED1; MAIN4 124/8 COMPILED2; MAIN4 128/9 COMPILED3(A1,A2,A3,A4); MAIN4 132/10 UNDEFINEDFUNCTIONAUXAUX ; MAIN4 142/11 COMPILEDCALLINGINTERPRETEDAUX(); MAIN4 155/12 "PT:MINI-EQUAL.RED"$ SUB4 6/1 "PT:MINI-TOKEN.RED"$ SUB4 7/2 "PT:MINI-READ.RED"$ SUB4 8/3 SPACED(M); STUBS4 3/1 DASHED(M); STUBS4 7/2 DOTTED(M); STUBS4 12/3 SHOULDBE(M,V,E); STUBS4 18/4 "XXX-HEADER.RED"$ MAIN5 4/1 "PT:STUBS3.RED"$ MAIN5 5/2 "PT:STUBS4.RED"$ MAIN5 6/3 "PT:STUBS5.RED"$ MAIN5 7/4 FIRSTCALL; MAIN5 13/5 TESTSERIES(); MAIN5 45/6 TESTGET(); MAIN5 49/7 TESTUNDEFINED; MAIN5 59/8 UNBINDN N; MAIN5 64/9 LBIND1(X,Y); MAIN5 67/10 "PT:P-FUNCTION-PRIMITIVES.RED"$ SUB5 5/1 "PT:P-APPLY-LAP.RED"$ SUB5 6/2 "PT:MINI-ARITHMETIC.RED"$ SUB5 8/3 "PT:MINI-CARCDR.RED"$ SUB5 9/4 "PT:MINI-EASY-SL.RED"$ SUB5 10/5 "PT:MINI-EASY-NON-SL.RED"$ SUB5 11/6 "PT:MINI-EVAL-APPLY.RED"$ SUB5 12/7 "PT:MINI-KNOWN-TO-COMP.RED"$ SUB5 13/8 "PT:MINI-LOOP-MACROS.RED"$ SUB5 14/9 "PT:MINI-OTHERS-SL.RED"$ SUB5 15/10 "PT:MINI-OBLIST.RED"$ SUB5 16/11 "PT:MINI-PROPERTY-LIST.RED"$ SUB5 17/12 "PT:MINI-SYMBOL-VALUES.RED"$ SUB5 18/13 "PT:MINI-TYPE-CONVERSIONS.RED"$ SUB5 19/14 UNDEFINEDFUNCTIONAUXAUX; STUBS5 6/1 INF X; STUBS5 22/2 TAG X; STUBS5 25/3 MKITEM(X,Y); STUBS5 28/4 "XXX-HEADER.RED"$ MAIN6 5/1 "PT:STUBS3.RED"$ MAIN6 6/2 "PT:STUBS4.RED"$ MAIN6 7/3 "PT:STUBS5.RED"$ MAIN6 8/4 "PT:STUBS6.RED"$ MAIN6 9/5 FIRSTCALL; MAIN6 15/6 TESTSERIES(); MAIN6 48/7 BINDINGTEST; MAIN6 55/8 INTERPTEST(); MAIN6 71/9 TESTFASTAPPLY EXPR 0) MAIN6 102/10 TESTAPPLY(MSG,FN,ANSWER); MAIN6 107/11 COMPILED1(XXX,YYY); MAIN6 117/12 COMPILED2(XXX,YYY); MAIN6 122/13 COMPBINDTEST(); MAIN6 129/14 CBIND1(X,CFL1,CFL2); MAIN6 139/15 CBIND2(); MAIN6 149/16 "PK:BINDING.RED"$ SUB6 3/1 "PT:P-FAST-BINDER.RED"$ SUB6 4/2 "PT:MINI-PUTD-GETD.RED"$ SUB6 6/3 RESET(); SUB6 8/4 "PT:MINI-PRINTF.RED"$ STUBS6 3/1 "PT:MINI-TOP-LOOP.RED"$ STUBS6 4/2 FUNCALL(FN,I); STUBS6 8/3 "XXX-HEADER.RED"$ MAIN7 5/1 "PT:STUBS3.RED"$ MAIN7 6/2 "PT:STUBS4.RED"$ MAIN7 7/3 "PT:STUBS5.RED"$ MAIN7 8/4 "PT:STUBS6.RED"$ MAIN7 9/5 "PT:STUBS7.RED"$ MAIN7 10/6 "PT:PSL-TIMER.SL"$ MAIN7 11/7 FIRSTCALL; MAIN7 17/8 IOTEST; MAIN7 61/9 "XXX-SYSTEM-IO.RED"$ SUB7 5/1 "PT:IO-DATA.RED"$ SUB7 6/2 "PT:MINI-IO-ERRORS.RED"$ SUB7 7/3 "PT:MINI-DSKIN.RED"$ SUB7 8/4 "PT:MINI-OPEN-CLOSE.RED"$ SUB7 9/5 "PT:MINI-RDS-WRS.RED"$ SUB7 10/6 "PT:SYSTEM-IO.RED"$ SUB7 11/7 GTHEAP N; MINI-ALLOCATOR 14/1 GTSTR N; MINI-ALLOCATOR 27/2 GTVECT N; MINI-ALLOCATOR 36/3 GTWARRAY N; MINI-ALLOCATOR 44/4 GTID(); MINI-ALLOCATOR 48/5 PLUS2(X,Y); MINI-ARITHMETI 4/1 MINUS(X); MINI-ARITHMETI 8/2 ADD1 N; MINI-ARITHMETI 12/3 SUB1 N; MINI-ARITHMETI 16/4 GREATERP(N1,N2); MINI-ARITHMETI 21/5 LESSP(N1,N2); MINI-ARITHMETI 24/6 DIFFERENCE(N1,N2); MINI-ARITHMETI 27/7 TIMES2(N1,N2); MINI-ARITHMETI 31/8 CAR X; MINI-CARCDR 5/1 CDR X; MINI-CARCDR 8/2 CAAR X; MINI-CARCDR 13/3 CADR X; MINI-CARCDR 16/4 CDAR X; MINI-CARCDR 19/5 CDDR X; MINI-CARCDR 22/6 CHANNELWRITECHAR(CHN,X); MINI-CHAR-IO 3/1 WRITECHAR CH; MINI-CHAR-IO 6/2 LIST2(A1,A2); MINI-COMP-SUPP 4/1 LIST3(A1,A2,A3); MINI-COMP-SUPP 7/2 LIST4(A1,A2,A3,A4); MINI-COMP-SUPP 10/3 LIST5(A1,A2,A3,A4,A5); MINI-COMP-SUPP 13/4 HARDCONS(X,Y); MINI-CONS-MKVE 6/1 CONS(X,Y); MINI-CONS-MKVE 14/2 XCONS(X,Y); MINI-CONS-MKVE 17/3 NCONS X; MINI-CONS-MKVE 20/4 MKVECT N; MINI-CONS-MKVE 23/5 TYPEFILE F; MINI-DSKIN 3/1 DSKIN F; MINI-DSKIN 12/2 LAPIN F; MINI-DSKIN 25/3 ATSOC(X,Y); MINI-EASY-NON- 3/1 GEQ(N1,N2); MINI-EASY-NON- 9/2 LEQ(N1,N2); MINI-EASY-NON- 12/3 EQCAR(X,Y); MINI-EASY-NON- 15/4 COPYD(NEWID,OLDID); MINI-EASY-NON- 18/5 DELATQ(X,Y); MINI-EASY-NON- 28/6 ATOM X; MINI-EASY-SL 8/1 APPEND(U,V); MINI-EASY-SL 13/2 MEMQ(X,Y); MINI-EASY-SL 17/3 REVERSE U; MINI-EASY-SL 22/4 EVLIS X; MINI-EASY-SL 31/5 EVPROGN FL; MINI-EASY-SL 35/6 PROGN X; MINI-EASY-SL 42/7 EVCOND FL; MINI-EASY-SL 45/8 COND X; MINI-EASY-SL 51/9 QUOTE A; MINI-EASY-SL 54/10 SETQ A; MINI-EASY-SL 57/11 DE(X); MINI-EASY-SL 60/12 DF(X); MINI-EASY-SL 63/13 DN(X); MINI-EASY-SL 66/14 DM(X); MINI-EASY-SL 69/15 LIST X; MINI-EASY-SL 73/16 EQSTR(S1,S2); MINI-EQUAL 5/1 ERRORHEADER; MINI-ERROR-ERR 4/1 ERROR S; MINI-ERROR-ERR 7/2 ERRORTRAILER S; MINI-ERROR-ERR 11/3 FATALERROR S; MINI-ERROR-HAN 5/1 STDERROR M; MINI-ERROR-HAN 8/2 INITEVAL; MINI-EVAL-APPL 5/1 EVAL X; MINI-EVAL-APPL 19/2 APPLY(FN,A); MINI-EVAL-APPL 43/3 LAMBDAAPPLY(X,A); MINI-EVAL-APPL 60/4 LAMBDAEVALAPPLY(X,Y); MINI-EVAL-APPL 68/5 DOLAMBDA(VARS,BODY,ARGS); MINI-EVAL-APPL 71/6 LAMBDAP(X); MINI-EVAL-APPL 86/7 GETLAMBDA(FN); MINI-EVAL-APPL 89/8 !%RECLAIM(); MINI-GC 9/1 RECLAIM(); MINI-GC 13/2 HEAPINFO(); MINI-GC 17/3 IOERROR M; MINI-IO-ERRORS 3/1 CODEP X; MINI-KNOWN-TO- 3/1 PAIRP X; MINI-KNOWN-TO- 6/2 IDP X; MINI-KNOWN-TO- 9/3 EQ(X,Y); MINI-KNOWN-TO- 12/4 NULL X; MINI-KNOWN-TO- 15/5 NOT X; MINI-KNOWN-TO- 18/6 WHILE FL; MINI-LOOP-MACR 3/1 MAPOBL(FN); MINI-OBLIST 6/1 PRINTFEXPRS; MINI-OBLIST 9/2 PRINT1FEXPR(X); MINI-OBLIST 12/3 PRINTFUNCTIONS; MINI-OBLIST 15/4 PRINT1FUNCTION(X); MINI-OBLIST 18/5 OPEN(FILENAME,HOW); MINI-OPEN-CLOS 3/1 CLOSE N; MINI-OPEN-CLOS 8/2 LENGTH U; MINI-OTHERS-SL 4/1 LENGTH1(U, N); MINI-OTHERS-SL 8/2 PRIN1 X; MINI-PRINTERS 8/1 PRIN2 X; MINI-PRINTERS 15/2 PRINT X; MINI-PRINTERS 22/3 PRIN2T X; MINI-PRINTERS 25/4 PBLANK; MINI-PRINTERS 30/5 PRIN1INT X; MINI-PRINTERS 33/6 PRIN1INTX X; MINI-PRINTERS 40/7 PRIN1ID X; MINI-PRINTERS 45/8 PRIN2ID X; MINI-PRINTERS 50/9 PRIN1STRING X; MINI-PRINTERS 53/10 PRIN2STRING X; MINI-PRINTERS 60/11 PRIN1PAIR X; MINI-PRINTERS 67/12 PRIN2PAIR X; MINI-PRINTERS 78/13 TERPRI(); MINI-PRINTERS 89/14 PRTITM X; MINI-PRINTERS 92/15 CHANNELPRIN2(CHN,X); MINI-PRINTERS 102/16 BLDMSG(FMT,A1,A2,A3,A4,A5,A6); MINI-PRINTF 3/1 PROP X; MINI-PROPERTY- 5/1 GET(X,Y); MINI-PROPERTY- 9/2 PUT(X,Y,Z); MINI-PROPERTY- 17/3 REMPROP(X,Y); MINI-PROPERTY- 28/4 GETFNTYPE X; MINI-PROPERTY- 38/5 GETD(FN); MINI-PUTD-GETD 6/1 PUTD(FN,TYPE,BODY); MINI-PUTD-GETD 21/2 RDS N; MINI-RDS-WRS 5/1 WRS N; MINI-RDS-WRS 13/2 READ; MINI-READ 6/1 READ1(X); MINI-READ 10/2 READLIST(X); MINI-READ 15/3 MKSTRING(L, C); MINI-SEQUENCE 5/1 SET(X,Y); MINI-SYMBOL-VA 3/1 INITREAD; MINI-TOKEN 11/1 SETRAISE X; MINI-TOKEN 21/2 RATOM; MINI-TOKEN 24/3 CLEARWHITE(); MINI-TOKEN 41/4 CLEARCOMMENT(); MINI-TOKEN 45/5 READINT; MINI-TOKEN 50/6 BUFFERTOSTRING N; MINI-TOKEN 59/7 READSTR; MINI-TOKEN 67/8 READID; MINI-TOKEN 77/9 RAISECHAR C; MINI-TOKEN 88/10 INTERN S; MINI-TOKEN 95/11 INITNEWID(D,S); MINI-TOKEN 105/12 LOOKUPID(S); MINI-TOKEN 115/13 WHITEP X; MINI-TOKEN 131/14 DIGITP X; MINI-TOKEN 135/15 ALPHAP(X); MINI-TOKEN 138/16 UPPERCASEP X; MINI-TOKEN 141/17 LOWERCASEP X; MINI-TOKEN 144/18 ESCAPEP X; MINI-TOKEN 147/19 ALPHAESCP X; MINI-TOKEN 150/20 ALPHANUMP X; MINI-TOKEN 153/21 ALPHANUMESCP X; MINI-TOKEN 156/22 TIME(); MINI-TOP-LOOP 3/1 SYS2INT N; %. CONVERT WORD TO LISP NUMBER MINI-TYPE-CONV 5/1 SYS2FIXN N; MINI-TYPE-CONV 9/2 TYPEERROR(OFFENDER, FN, TYP); MINI-TYPE-ERRO 3/1 USAGETYPEERROR(OFFENDER, FN, TYP, USAGE); MINI-TYPE-ERRO 14/2 NONIDERROR(X,Y); MINI-TYPE-ERRO 28/3 NONNUMBERERROR(OFFENDER, FN); MINI-TYPE-ERRO 31/4 NONINTEGERERROR(OFFENDER, FN); MINI-TYPE-ERRO 34/5 NONPOSITIVEINTEGERERROR(OFFENDER, FN); MINI-TYPE-ERRO 37/6 CODEAPPLY(CODEPTR, ARGLIST); P-APPLY-LAP 53/1 CODEEVALAPPLY EXPR 2) P-APPLY-LAP 206/2 CODEEVALAPPLYAUX(CODEPTR, ARGLIST, P); P-APPLY-LAP 213/3 BINDEVAL(FORMALS, ARGS); P-APPLY-LAP 363/4 BINDEVALAUX(FORMALS, ARGS, N); P-APPLY-LAP 366/5 COMPILEDCALLINGINTERPRETEDAUX(); P-APPLY-LAP 381/6 FASTLAMBDAAPPLY(); P-APPLY-LAP 387/7 COMPILEDCALLINGINTERPRETEDAUXAUX FN; P-APPLY-LAP 391/8 LAMBIND V; P-FAST-BINDER 23/1 PROGBIND V; P-FAST-BINDER 32/2 SYMFNCBASE D; % THE ADDRESS OF CELL, P-FUNCTION-PRI 57/1 FUNBOUNDP FN; P-FUNCTION-PRI 65/2 MAKEFUNBOUND(D); P-FUNCTION-PRI 73/3 FLAMBDALINKP FN; P-FUNCTION-PRI 79/4 MAKEFLAMBDALINK D; P-FUNCTION-PRI 85/5 FCODEP FN; P-FUNCTION-PRI 91/6 MAKEFCODE(U, CODEPTR); P-FUNCTION-PRI 96/7 GETFCODEPOINTER U; P-FUNCTION-PRI 106/8 CODEPRIMITIVE EXPR 15) P-FUNCTION-PRI 121/9 COMPILEDCALLINGINTERPRETED EXPR 15) P-FUNCTION-PRI 136/10 FASTAPPLY EXPR 0) P-FUNCTION-PRI 153/11 SAVEREGISTERS(A1, A2, A3, A4, A5, P-FUNCTION-PRI 193/12 UNDEFINEDFUNCTIONAUX EXPR 0) P-FUNCTION-PRI 214/13 ERNAL WCONST STACKSIZE = 5000; P20T:XXX-HEADE 11/1 ERNAL WARRAY STACK[STACKSIZE]; P20T:XXX-HEADE 12/2 ERNAL WCONST HEAPSIZE = 150000; % ENOUGH FOR PSL-TIM P20T:XXX-HEADE 21/3 ERNAL WARRAY HEAP[HEAPSIZE]; % COULD DO A DYNAMIC A P20T:XXX-HEADE 22/4 ERNAL WARRAY OTHERHEAP[HEAPSIZE]; P20T:XXX-HEADE 30/5 ERNAL WCONST BPSSIZE = 500; P20T:XXX-HEADE 36/6 ERNAL WARRAY BPS[BPSSIZE]; % COULD DO A DYNAMIC ALL P20T:XXX-HEADE 37/7 INITHEAP(); P20T:XXX-HEADE 44/8 ERNAL WCONST MAXARGBLOCK = (MAXARGS - MAXREALREGS) - P20T:XXX-HEADE 54/9 MAIN!. EXPR 0) P20T:XXX-HEADE 68/10 INIT(); P20T:XXX-HEADE 92/11 GETC(); P20T:XXX-HEADE 98/12 TIMC(); P20T:XXX-HEADE 102/13 PUTC X; P20T:XXX-HEADE 105/14 QUIT; P20T:XXX-HEADE 109/15 DATE; P20T:XXX-HEADE 112/16 VERSIONNAME; P20T:XXX-HEADE 115/17 PUTINT I; P20T:XXX-HEADE 118/18 !%STORE!-JCALL EXPR 2) % CODEADDRESS, STORAGE ADDRESS P20T:XXX-HEADE 122/19 !%COPY!-FUNCTION!-CELL EXPR 2) % FROM TO P20T:XXX-HEADE 128/20 UNDEFINEDFUNCTION EXPR 0) % FOR MISSING FUNCTION P20T:XXX-HEADE 135/21 FLAG EXPR 2) % DUMMY FOR INIT P20T:XXX-HEADE 142/22 LONGTIMES(X,Y); P20T:XXX-HEADE 148/23 LONGDIV(X,Y); P20T:XXX-HEADE 151/24 LONGREMAINDER(X,Y); P20T:XXX-HEADE 154/25 SYSCLEARIO EXPR 0) P20T:XXX-SYSTE 30/1 SYSOPENREAD(CHANNEL,FILENAME); P20T:XXX-SYSTE 44/2 SYSOPENWRITE(CHANNEL,FILENAME); P20T:XXX-SYSTE 56/3 DEC20OPEN EXPR 3) P20T:XXX-SYSTE 64/4 SYSREADREC(FILEDESCRIPTOR,STRINGBUFFER); P20T:XXX-SYSTE 83/5 DEC20READCHAR EXPR 1) P20T:XXX-SYSTE 98/6 SYSWRITEREC (FILEDESCRIPTOR, STRINGTOWRITE, STRINGLE P20T:XXX-SYSTE 123/7 DEC20WRITECHAR EXPR 2) P20T:XXX-SYSTE 130/8 SYSCLOSE EXPR 1) P20T:XXX-SYSTE 145/9 SYSMAXBUFFER(FILEDESC); P20T:XXX-SYSTE 154/10 2964 lines, 316 procedures found