Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0002/lepaux.hdr
There is 1 other file named lepaux.hdr in the archive. Click here to see a list.
IFC DECLARATION(GLOBSW)=0 THENC DEFINE GLOBSW=0;

IFCR GLOBSW THENC
	DEFINE MINGLOBALITEMNUMBER='6000;
ENDC

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

EXTERNAL STRING ARRAY RIPNMS[0:7];

EXTERNAL SIMPLE STRING PROCEDURE ITMNAM(ITEMVAR N);

EXTERNAL SIMPLE PROCEDURE SETTYPE(ITEMVAR FOO;INTEGER TYP);

EXTERNAL SIMPLE ITEMVAR PROCEDURE XITEM(STRING ID);

EXTERNAL PROCEDURE CPRLNS(ITEMVAR P1,P2);

REQUIRE "" DELIMITERS;
DEFINE DXITEM(ID,V)=
ITEMVAR ID;
IFCR (DECLARATION(ID) LAND CHECKTYPE(EXTERNAL)) THENC

REDEFINE DFITMSUBR="NEW"&"ID";
SIMPLE PROCEDURE DFITMSUBR;
	BEGIN
	DEFINE VVSW="V";
IFCR LENGTH(CVMS(VVSW)) THENC
	INTEGER FLG;
	ID_CVSI("ID",FLG);
	IF FLG THEN NEWPNAME(ID_NEW(V),"ID");
ELSEC
	ID_XITEM("ID");
ENDC
	END;
REQUIRE DFITMSUBR INITIALIZATION 
REDEFINE DFITMSUBR="";
ENDC
;

DEFINE UNBOUND(X)=(X=ANYX=BINDIT);
DEFINE NEC=BINDIT; COMMENT Old English for "nothing";
DEFINE COPYRELNS=CPRLNS;

EXTERNAL LIST PROCEDURE REVLST(LIST L);

EXTERNAL SIMPLE ITEMVAR PROCEDURE IMUNGE(ITEMVAR I;INTEGER T(1),D(0),P(0));

EXTERNAL SIMPLE ITEMVAR PROCEDURE NAMEITEM(ITEMVAR ITM;STRING ID);

EXTERNAL SIMPLE ITEMVAR PROCEDURE ZAPITEM(ITEMVAR ITM);

EXTERNAL ITEMVAR PROCEDURE BTRIP(ITEMVAR A,O,V);

EXTERNAL ITEMVAR PROCEDURE COPYITEM(ITEMVAR IV);

EXTERNAL RECURSIVE MATCHING PROCEDURE EQVRLN(? ITEMVAR A,V1,V2);

EXTERNAL SIMPLE ITEMVAR PROCEDURE PRPCHK(ITEMVAR I;INTEGER P);
EXTERNAL SIMPLE ITEMVAR PROCEDURE PRPON(ITEMVAR I;INTEGER P);
EXTERNAL SIMPLE ITEMVAR PROCEDURE PRPOFF(ITEMVAR I;INTEGER P);
EXTERNAL SIMPLE ITEMVAR PROCEDURE ITPCHK(ITEMVAR I;INTEGER T);

COMMENT STANDARD PROP BITS;

IFCR FALSE THENC

COMMENT **** ALL THIS HAS TIMED OUT ****;

DEFINE 	RECORDBIT =	'4000;	COMMENT RHT style record in datum;
DEFINE	ITEMPBIT =	'2000;	COMMENT a "temporary" item such as
					one might use to pass a message.
					Marking an item as "temp" authorizes
					anyone to kill it;
DEFINE LSTMSGBIT =	'1000;	COMMENT bit set if datum is a "list message".
					used in process communication, etc;
	
DEFINE	ISTI(X) =(PROPS(X) LAND ITEMPBIT);
DEFINE	TI(X)	= PRPON(X,ITEMPBIT);
DEFINE	UNTI(X) = PRPOFF(X,ITEMPBIT);
DEFINE LSTMSG(L)=PRPON(ITPCHK(NEW(L),7),LSTMSGBIT);

ENDC


REQUIRE UNSTACKDELIMITERS;