Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0002/record.def
There is 1 other file named record.def in the archive. Click here to see a list.
EXTERNAL RECORD!CLASS $CLASS(INTEGER RECRNG,HNDLER,RECSIZ;
				INTEGER ARRAY TYPARR;
				STRING ARRAY TXTARR);

COMMENT SYSTEM DEFAULT HANDLER PROCEDURE;
EXTERNAL RECORD!POINTER(ANY!CLASS) PROCEDURE $REC$(INTEGER OP;
					RECORD!POINTER(ANY!CLASS) R);

COMMENT PROCEDURE TO CALL A RECORD'S HANDLER PROCEDURE;
EXTERNAL RECORD!POINTER(ANY!CLASS) PROCEDURE $RECFN(INTEGER OP;
					RECORD!POINTER(ANY!CLASS) R);


COMMENT OP VALUES FOR $REC$;
DEFINE ALLOCATE!RECORD = 1;
DEFINE MARK!SUBFIELDS = 4;
DEFINE DELETE!RECORD = 5;

COMMENT BITS FOR TYPARR[0];

DEFINE	NODELC = 1;	COMMENT DO NOT DELETE RECORDS OF THIS CLASS (VIA GC);
DEFINE	CMPLDC = 2;	COMMENT THIS RECORD CLASS IS COMPILED-IN;
DEFINE	HASRPS = 4;	COMMENT HAS RPTR / RPTR ARRAY;
DEFINE	HASSTR = 10;	COMMENT HAS STRING / STRING ARRAY SUBFIELDS;
			COMMENT IF HAVE REFERENCE SUBFIELDS, THEN
				BETTER HAVE TYPARR[0] WITH HASSTR & HASRPS ON;

EXTERNAL PROCEDURE $RECGC;

DEFINE MIN$SB = 3;
DEFINE MAX$SB = 16;
EXTERNAL INTEGER ARRAY $SPCAR[MIN$SB:MAX$SB];

DEFINE $SB!BLKSIZ=0;	COMMENT SIZE OF BLOCKS;
DEFINE $SB!TRIGGER=1;	COMMENT  COUNT DOWN FOR RECGC;
DEFINE $SB!TGRMIN=2;	COMMENT  MINIMUM NUMBER PERMITTED FOR TRIGGER SETTING;
DEFINE $SB!TINUSE=3;	COMMENT TOTAL NUMBER OF RECORDS IN USE;
DEFINE $SB!TUNUSED=4;	COMMENT TOTAL UNUSED BUFFERS;
DEFINE $SB!FBLIST=5;	COMMENT  FREE BUFFER LIST;
DEFINE $SB!FULLS=6;	COMMENT  FULL BUFFER LIST;
DEFINE $SB!CULPRT=7;	COMMENT COUNTED UP EACH TIME GC IS TRIGGERED BY THIS SPACE;

COMMENT GET AT FIELDS USING MEMORY.  E.G., MEMORY[$SPCAR[4]+$SB!TRIGGER] ;