DIRECTORY BasicTime USING [GMT], Rope USING [ROPE]; Loader: CEDAR DEFINITIONS = BEGIN BCDBuildTime: SAFE PROC [proc: PROC ANY RETURNS ANY ฌ NIL] RETURNS [BasicTime.GMT]; LoadFile: PROC [file: Rope.ROPE] RETURNS [moduleName: Rope.ROPE]; Install: PROC[moduleName: Rope.ROPE]; Run: PROC[moduleName: Rope.ROPE]; Unload: PROC[moduleName: Rope.ROPE]; Zap: PROC[moduleName: Rope.ROPE]; LoadExceptionType: TYPE = { versionMismatch, previouslyLoaded, previouslyInstalled, previouslyRun, previouslyUnloaded, unknown}; LoadException: SIGNAL [type: LoadExceptionType, message: Rope.ROPE ฌ NIL]; LoadErrorType: TYPE = { invalidObjectFile, loadStateFull, insufficientVM, loadeeNotFound, noUnloadProc, noRunProc, noInstallProc, unknown}; LoadError: ERROR [type: LoadErrorType, message: Rope.ROPE ฌ NIL]; 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]; END. 6 Loader.mesa Copyright ำ 1988, 1991 by Xerox Corporation. All rights reserved. JKF September 26, 1988 7:26:28 am PDT Eduardo Pelegri-Llopart October 21, 1988 10:44:29 am PDT Returns the time that a given bcd file was built. LoadFile can raise LoadError or LoadException. Calls the PCR loader to perform it's load and relocate function on the argument file, which must be a valid object file previously processed by the link editor (ld). Install can raise LoadError or LoadException. Calls the install procedure associated with moduleName. This will only work if a previous LoadFile has been performed which registered the installation procs of moduleName. Run can raise LoadError or LoadException. Calls the run procedure associated with moduleName. This will only work if a previous LoadFile has been performed which registered the installation procs of moduleName. Unload can raise LoadError or LoadException. Calls the run procedure associated with moduleName. This will only work if a previous LoadFile has been performed which registered the installation procs of moduleName. Zap raises neither LoadError nor LoadException Pins the code for a given procedure. (NOOP) Unpins the code for a given procedure. (NOOP) Pins the global frame for a given procedure. (NOOP) Unpins the global frame for a given procedure. (NOOP) ส‰–(cedarcode) style•NewlineDelimiter ™codešœ ™ Kšœ ฯeœ7™BKšฯkœ"™%K™8—K˜šž ˜ Kšœ žœžœ˜Kšœžœžœ˜—K˜šฯnœžœž˜!K˜šŸ œžœžœžœžœžœžœžœžœ žœ˜SKšœ1™1K˜—š Ÿœžœ žœžœžœ˜AKšœ9žœ˜™ิK˜—šŸœžœžœ˜%Kšœฺ™ฺK˜—šŸœžœžœ˜!Kšœา™าK˜—šŸœžœžœ˜$Kšœี™ีK˜—šŸœžœžœ˜!Kšœ.™.K˜—šœžœ˜Kšœd˜d—KšŸ œžœ)žœžœ˜JK˜šœžœ˜Kšœs˜s—KšŸ œžœ%žœžœ˜AK˜šŸœžœžœžœžœžœžœ˜>Kšœ+™+K™—š Ÿœžœžœžœžœžœ˜:Kšœ-™-—K˜šŸœžœžœžœžœžœžœ˜@Kšœ3™3K™—š Ÿœžœžœžœžœžœ˜