[Cyan]<Cedar6.0>Iago>ExtraIagoImpl.mesa!4

ExtraIagoImpl.mesa

Willie-Sue, October 30, 1985 4:29:52 pm PST

Russ Atkinson (RRA) March 11, 1985 8:41:05 pm PST

DIRECTORY

ExtraIagoOps,

File,

IagoOps USING [RegisterCommand],

IO,

Rope;

ExtraIagoImpl: CEDAR PROGRAM

IMPORTS ExtraIagoOps, IagoOps =

BEGIN OPEN ExtraIagoOps, File;

* * * * * * * * commands implementation * * * * * * * *

ReadBootFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, bootFile]};

ReadCkptFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, checkpoint]};

ReadUCodeFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, microcode]};

ReadGermFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, germ]};

ReadDebuggerFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, debugger]};

ReadDebuggeeFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, debuggee]};

ReadVMFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, VM]};

DeleteBootFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, bootFile]};

DeleteCkptFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, checkpoint]};

DeleteUCodeFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, microcode]};

DeleteGermFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, germ]};

DeleteDebuggerFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, debugger]};

DeleteDebuggeeFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, debuggee]};

DeleteVMFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, VM]};

* * * * * * * start code ** register commands with Iago

IagoOps.RegisterCommand[[Loophole, "Convert octal or hex to decimal", TRUE]];

IagoOps.RegisterCommand[[

AddPageToBadPageTable, "Add (Physical) Page To the BadPageTable", TRUE]];

IagoOps.RegisterCommand[[DescribeAllocated, "Describe Allocated Disk Pages", TRUE]];

IagoOps.RegisterCommand[[DescribeBadPages, "Describe Bad Pages", TRUE]];

IagoOps.RegisterCommand[[DescribeDiskPage, "Describe Disk Page"]];

IagoOps.RegisterCommand[[DescribeVolumePage, "Describe Volume Page"]];

IagoOps.RegisterCommand[[EnsureBadPagesInVAM, "Ensure Bad Pages in VAM", TRUE]];

IagoOps.RegisterCommand[[ListBadPages, "List Bad Pages", TRUE]];

IagoOps.RegisterCommand[[MarkPageAllocated, "Mark (Logical) Page as Allocated", TRUE]];

IagoOps.RegisterCommand[[ReadDiskPages, "Read Physical Page(s)", TRUE]];

IagoOps.RegisterCommand[[ReadFilePages, "Read File Page(s)", TRUE]];

IagoOps.RegisterCommand[[ReadLogicalPages, "Read Logical Volume Page(s)", TRUE]];

IagoOps.RegisterCommand[[WriteDiskPage, "Re-Write one Disk Page", TRUE]];

IagoOps.RegisterCommand[[ReadNamedFile, "Read Named File", TRUE]];

IagoOps.RegisterCommand[[ShowDiskAddress, "Show Disk Address", TRUE]];

IagoOps.RegisterCommand[[ReadBootFile, "Read BootFile"]];

IagoOps.RegisterCommand[[ReadCkptFile, "Read Checkpoint File"]];

IagoOps.RegisterCommand[[ReadUCodeFile, "Read Microcode File"]];

IagoOps.RegisterCommand[[ReadGermFile, "Read Germ File"]];

IagoOps.RegisterCommand[[ReadDebuggerFile, "Read Debugger File"]];

IagoOps.RegisterCommand[[ReadDebuggeeFile, "Read Debuggee File"]];

IagoOps.RegisterCommand[[ReadVMFile, "Read VM File"]];

IagoOps.RegisterCommand[[DeleteBootFile, "Delete BootFile"]];

IagoOps.RegisterCommand[[DeleteCkptFile, "Delete Checkpoint File"]];

IagoOps.RegisterCommand[[DeleteUCodeFile, "Delete Microcode File"]];

IagoOps.RegisterCommand[[DeleteGermFile, "Delete Germ File"]];

IagoOps.RegisterCommand[[DeleteDebuggerFile, "Delete Debugger File"]];

IagoOps.RegisterCommand[[DeleteDebuggeeFile, "Delete Debuggee File"]];

IagoOps.RegisterCommand[[DeleteVMFile, "Delete VM File"]];

END.