Text preview for : Commander.mesa_Sep78.pdf part of xerox Commander.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Utilities Commander.mesa_Sep78.pdf



Back to : Commander.mesa_Sep78.pdf | Home

Commander.mesa 2-Sep-78 14:40:55 Page 1


-- Commander.mesa; edited by Snndman, May 5, 1978 11:40 AM
DIRECTORY
CommanderDefs: FROM "commanderdefs",
ControlDefs: FROM "controldefs",
FrameDefs: FROM "framedefs",
InlineDefs: FROM "inlinedefs",
ImageDefs: FROM "imagedefs",
IODefs: FROM "iodefs",
MiscDefs: FROM "miscdefs",
RectangleDefs: FROM "rectangledefs",
SegmentDefs: FROM "segmentdefs",.
StreamDefs: FROM "streamdefs",
StringDefs: FROM "stringdefs",
SystemDefs: FROM "systemdefs";
DEFINITIONS FROM StringDefs, CommanderDefs, IODefs;
Commander: PROGRAM [herald: STRING]
IMPORTS ImageDefs, IODefs, StreamDefs, StringDefs, SystemDefs
EXPORTS CommanderDefs ..
BEGIN
GlobalFrameHandle: TYPE = ControlDefs.GlobalFrameHandle;
CommandItem: TYPE = RECORD [
cb: CommandBlockHandle,
link: POINTER TO CommandItem];
StringItem: TYPE = RECORD [
link: POINTER TO StringItem,
string: STRING];
commandHead: POINTER TO CommandItem ~ NIL;
stringHead: POINTER TO StringItem ~ NIL;
SyntaxError: ERROR = CODE;
Help: SIGNAL = CODE;
BadName: ERROR = CODE;
BadParam: ERROR [type: ParamType] .. CODE;
GetDebugger: PROCEDURE ..
BEGIN
MiscDefs.CallDebugger[NIl];
END;
Load: PROCEDURE [name: STRING]