perm filename CBUGA.SAI[CMU,AIL] blob sn#113941 filedate 1974-08-07 generic text, type T, neo UTF8
00100	BEGIN
00200	REQUIRE "[]()" DELIMITERS;
00400	DEFINE D(A)=[REQUIRE "A" MESSAGE];
00500	EXTERNAL INTEGER PROCEDURE EXT(ITEMVAR A,B; INTEGER C);
00600	
00700	DEFINE LDE(NAM,DEF,PROC)=[
00800		ASSIGNC PROC="NAM"&"2";
00900		EXTERNAL INTEGER PROCEDURE PROC(ITEMVAR A,B;INTEGER C);
01000	DEFINE NAM(A,B,C)"[]"=[
01100	  D(BEFORE 1ST. );
01200		IFCR LENGTH("B")=0 THENC ASSIGNC B"[]"=[A]; D(=B=); ENDC D(.B.);
01300	  D(BEFORE 2ND. );
01400		IFCR LENGTH("C")=0 THENC ASSIGNC C=0; D(=C=); ENDC D(.C.);
01500	  D(BEFORE 3RD. );
01600		EXT(A,B,C);
01700	 D(AFTER EXT);
01800		PROC(A,B,C);
01900	 D(BEFORE 4RD. )];
02000	
02100	ASSIGNC DEF="OLD!"&"NAM";
02200	ASSIGNC PROC="OLD!"&"NAM"&"2";
02300	EXTERNAL INTEGER PROCEDURE PROC(ITEMVAR A;INTEGER B);
02400	DEFINE DEF(A,B)=[
02500		IFCR LENGTH(CVPS(B))=0 THENC ASSIGNC B=0; ENDC
02600		PROC(A,B);];
02700	
02800	ASSIGNC DEF="REV!"&"NAM";
02900	ASSIGNC PROC="REV!"&"NAM"&"2";
03000	EXTERNAL INTEGER PROCEDURE PROC(ITEMVAR A;INTEGER B);
03100	DEFINE DEF(A,B)"[]"=[
03200		IFCR LENGTH(CVPS(B))=0 THENC ASSIGNC B=0; ENDC
03300		PROC(A,B);];];
03400	
03500	LDE(LEXDEX);
03600	ITEMVAR ITVAR,HYP;
03700	INTEGER INDEX;
03800	
03900	LEXDEX(ITVAR);
04000	INDEX←LEXDEX(HYP);
04100	
04200	END;