IntStorageDefs, ParserTypeDefs, Rope;

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

InitUtilities: PROCEDURE RETURNS [BOOL];

FinishUtilities: PROCEDURE RETURNS [BOOL];

report an error

LogError: PROCEDURE [s: Rope.ROPE];

whether or not it's ok to continue

OKToContinue: PROCEDURE RETURNS [BOOL];

reentrant minimum/maximum stuff for finding bounding boxes

InitMM: PROCEDURE [x,y: INT];

MinMax: PROCEDURE [x,y: INT];

DoneMM: PROCEDURE;

Extent: PROCEDURE RETURNS [l,r,b,t: INT];

find first undeleted version of symNumber, if none, make a blank STEntry, return the name

LookUp: PROCEDURE [symNumber: LONG CARDINAL] RETURNS [ent: IntStorageDefs.STEntry];

call proc on all symbols thus far defined or called

MapSymbols: PROCEDURE [proc: PROC[IntStorageDefs.STEntry]];

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 [INT] RETURNS [INT];

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];