<> <> <> DIRECTORY IntStorageDefs, ParserTypeDefs, Rope; IntUtilityDefs: CEDAR DEFINITIONS = BEGIN OpenCode: TYPE = {Defined, Undefined, Expanded}; InitUtilities: PROCEDURE RETURNS [BOOL]; FinishUtilities: PROCEDURE RETURNS [BOOL]; <> LogError: PROCEDURE [s: Rope.ROPE]; <> OKToContinue: PROCEDURE RETURNS [BOOL]; <> InitMM: PROCEDURE [x,y: INT]; MinMax: PROCEDURE [x,y: INT]; DoneMM: PROCEDURE; Extent: PROCEDURE RETURNS [l,r,b,t: INT]; <> LookUp: PROCEDURE [symNumber: LONG CARDINAL] RETURNS [ent: IntStorageDefs.STEntry]; <> MapSymbols: PROCEDURE [proc: PROC[IntStorageDefs.STEntry]]; <> SetScale: PROCEDURE [a,b: LONG CARDINAL]; <> ScaleLong: PROCEDURE [LONG CARDINAL] RETURNS [LONG CARDINAL]; <> ScaleLongInt: PROCEDURE [INT] RETURNS [INT]; <> ScalePath: PROCEDURE [s,d: ParserTypeDefs.Path]; <> ScalePoint: PROCEDURE [ParserTypeDefs.Point] RETURNS [ParserTypeDefs.Point]; END.