Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0002/recaux.hdr
There is 1 other file named recaux.hdr in the archive. Click here to see a list.
COMMENT    VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00006 ENDMK
C;

DEFINE RCLASS "<>" =<RECORDCLASS>;
DEFINE RPTR "<>" = <RECORDPOINTER>;
DEFINE RANY "<>" = <RECORDPOINTER(ANYCLASS)>;
DEFINE RNULL "<>" = <NULLRECORD>;

REQUIRE "SYS:RECORD.DEF" SOURCEFILE;

EXTERNAL INTEGER PROCEDURE RECLEN(RPTR(ANYCLASS) R);
EXTERNAL INTEGER PROCEDURE RECTYPE(RPTR(ANYCLASS) R);
EXTERNAL RPTR($CLASS) SIMPLE PROCEDURE $RECTYPE(RPTR(ANYCLASS) R);
EXTERNAL INTEGER PROCEDURE FLDTYPE(RPTR(ANYCLASS) R;INTEGER IX);
EXTERNAL STRING SIMPLE PROCEDURE CVRCS(RPTR($CLASS) RC);
EXTERNAL STRING SIMPLE PROCEDURE CVRTS(INTEGER RT);
EXTERNAL INTEGER PROCEDURE FLDREF(RPTR(ANYCLASS) R;STRING ID);
EXTERNAL RPTR(ANYCLASS) PROCEDURE BLDNRC(INTEGER RT);
EXTERNAL RPTR(ANYCLASS) PROCEDURE CHKREC(RPTR(ANYCLASS)R;INTEGER T);
EXTERNAL RPTR($CLASS) PROCEDURE CLSFND(STRING ID);
EXTERNAL RPTR(ANYCLASS) PROCEDURE CPYREC(RPTR(ANYCLASS) R1,R2(NULLRECORD));

EXTERNAL RECORDCLASS CELL(RECORDPOINTER(ANYCLASS) CAR,CDR);
EXTERNAL RECORDCLASS RLIST(INTEGER LEN;RPTR(CELL) FIRST,LAST);
EXTERNAL RPTR(CELL) PROCEDURE CONS(RPTR(ANYCLASS) A,D);
EXTERNAL RPTR(CELL) PROCEDURE APPEND(RPTR(CELL) L1, L2);
EXTERNAL RPTR(CELL) PROCEDURE LIST2(RPTR(ANYCLASS) C1,C2);
EXTERNAL RPTR(ANYCLASS) RECURSIVE PROCEDURE SECOPY(RPTR(ANYCLASS) C);
EXTERNAL BOOLEAN PROCEDURE INCL(RPTR(ANYCLASS) C;RPTR(CELL) L);
EXTERNAL RPTR(ANYCLASS) PROCEDURE LLOP(REFERENCE RPTR(CELL) C);
EXTERNAL RPTR(CELL) PROCEDURE CLLEN(RPTR(CELL) C);
EXTERNAL RPTR(ANYCLASS) PROCEDURE CONSON(RPTR(ANYCLASS) X;REFERENCE RPTR(CELL) C);

EXTERNAL PROCEDURE RLADD(RPTR(RLIST) RL;RPTR(ANYCLASS) REC;INTEGER N);
EXTERNAL INTEGER PROCEDURE RLREM(RPTR(RLIST) RL;RPTR(ANYCLASS) REC;
							INTEGER HOWMANY(1));
EXTERNAL RPTR(ANYCLASS) PROCEDURE RLNREM(RPTR(RLIST) RL;INTEGER N);
EXTERNAL INTEGER PROCEDURE RLINX(RPTR(RLIST) RL;RPTR(ANYCLASS) REC);
EXTERNAL RPTR(ANYCLASS) PROCEDURE RLNTH(RPTR(RLIST) RL;INTEGER N);
EXTERNAL RPTR(RLIST) PROCEDURE RLCOPY(RPTR(RLIST) RL,RL2(NULLRECORD));
EXTERNAL MATCHING RECURSIVE PROCEDURE
		MAPRLIST(RPTR(RLIST) RL;REFERENCE RPTR(ANYCLASS) R);

REQUIRE "RECAUX.REL[S,RHT]" LOADMODULE;