<> <> <> <> <> DIRECTORY BasicTime USING [GMT], FS USING [OpenFile], PrincOps USING [ControlModule], Rope USING [ROPE]; Loader: DEFINITIONS = BEGIN OPEN BasicTime, FS, PrincOps, Rope; Instantiate: PROC[file: OpenFile, pageOffset: INT _ 0, codeLinks: BOOL _ TRUE] RETURNS[cm: ControlModule, unboundImports: LIST OF IRItem]; <> <> IRItem: TYPE = RECORD[interfaceName: ROPE, index: NAT]; IRList: TYPE = LIST OF IRItem; Start: PROC[cm: ControlModule]; <> MakeProcedureResident: SAFE PROC[proc: PROC ANY RETURNS ANY]; <> <<>> MakeProcedureSwappable: PROC[proc: PROC ANY RETURNS ANY]; <> MakeGlobalFrameResident: SAFE PROC[proc: PROC ANY RETURNS ANY]; <> <<>> MakeGlobalFrameSwappable: PROC[proc: PROC ANY RETURNS ANY]; <> BCDBuildTime: SAFE PROC[proc: PROC ANY RETURNS ANY _ NIL] RETURNS[GMT]; <> Error: ERROR[type: ErrorType, message: ROPE _ NIL]; ErrorType: TYPE = { invalidBcd, fileNotFound, versionMismatch, loadStateFull, insufficientVM }; END.