--	File IntUtilityDefs.mesa
--	March 27, 1981  2:15 PM

DIRECTORY

IntStorageDefs: FROM "IntStorageDefs" USING [ObjectName, Object],

ParserTypeDefs: FROM "ParserTypeDefs" USING [Path, Point];

IntUtilityDefs: DEFINITIONS =

BEGIN

	OpenCode: TYPE = {Defined, Undefined, Expanded};

	InitUtilities: PROCEDURE RETURNS [BOOLEAN];
	FinishUtilities: PROCEDURE RETURNS [BOOLEAN];

	-- report an error
	LogError: PROCEDURE [s: STRING];
	-- whether or not it's ok to continue
	OKToContinue: PROCEDURE RETURNS [BOOLEAN];

	-- reentrant minimum/maximum stuff for finding bounding boxes
	InitMM: PROCEDURE [x,y: LONG INTEGER];
	MinMax: PROCEDURE [x,y: LONG INTEGER];
	DoneMM: PROCEDURE;
	Extent: PROCEDURE RETURNS [l,r,b,t: LONG INTEGER];

	-- bind a symbol (and all of its internals) now
	BindSymbol: PROCEDURE [sym: LONG CARDINAL] RETURNS [IntStorageDefs.ObjectName];

	FindCallBB: PROCEDURE [thing: IntStorageDefs.Object];

	-- return the set name of all define symbols
 	DefinedSet: PROCEDURE RETURNS [IntStorageDefs.ObjectName];

	-- find first undeleted version of symNumber, if none, make a blank STEntry, return the name
	LookUp: PROCEDURE [symNumber: LONG CARDINAL] RETURNS [IntStorageDefs.ObjectName];

	-- delete all symbols numbered n and above, return the updated defined set
	DeleteSymbol: PROCEDURE [definedSet: IntStorageDefs.ObjectName, n: LONG CARDINAL] RETURNS [IntStorageDefs.ObjectName];

	-- redefine a bound symbol, return a new name
	RedefineSymbol: PROCEDURE [symNumber: LONG CARDINAL] RETURNS [IntStorageDefs.ObjectName];

	-- free the guts of a symbol
	FreeGuts: PROCEDURE [head: IntStorageDefs.ObjectName];

	-- set this.next (or this.guts) to that
	LinkObject: PROCEDURE [this,that: IntStorageDefs.ObjectName];

	-- set up scale factors for DS
	SetScale: PROCEDURE [a,b: LONG CARDINAL];

	-- scale a long cardinal by factors set up by a call to SetScale
	ScaleLong: PROCEDURE [LONG CARDINAL] RETURNS [LONG CARDINAL];

	-- scale a long integer by factors set up by a call to SetScale
	ScaleLongInt: PROCEDURE [LONG INTEGER] RETURNS [LONG INTEGER];

	-- scale a path by factors set up by a call to SetScale
	ScalePath: PROCEDURE [s,d: ParserTypeDefs.Path];

	-- scale a point by factors set up by a call to SetScale
	ScalePoint: PROCEDURE [ParserTypeDefs.Point] RETURNS [ParserTypeDefs.Point];

END.(635)\55b10B128b17B11b4B5b2B1b8B10i28I5b13B32b15B53b8B65b12B96b6B34b6B34b6B14b6B96b10B72b10B93b10B145b6B154b12B156b14B108b8B90b10B86b8B102b9B120b12B110b9B100b10B