ExtraIagoUtils.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Willie-Sue, February 19, 1986 4:26:00 pm PST
DIRECTORY
Disk USING [Channel, PageNumber, Status],
DiskFace USING [DeviceHandle],
File USING [Handle, Volume, VolumeFile],
IO USING [STREAM],
PhysicalVolume USING [Physical],
Rope USING [ROPE],
VolumeFormat USING [Attributes, LogicalPage];
ExtraIagoUtils: CEDAR DEFINITIONS = BEGIN
STREAM: TYPE = IO.STREAM;
ROPE: TYPE = Rope.ROPE;
HowToShowData: TYPE = {none, all, text, stop};
StatusToRope: PROC[status: Disk.Status] RETURNS[r: ROPE, wasOK: BOOL];
ReportStatus: PROC[out: STREAM, status: Disk.Status, dontReportOK: BOOL ← TRUE];
OKStatusForWrite: PROC[status: Disk.Status, in, out: STREAM] RETURNS[ok: BOOL];
ChannelToDeviceHandle: PROC[c: Disk.Channel] RETURNS[d: DiskFace.DeviceHandle];
VolumeFileToRope: PROC[which: File.VolumeFile] RETURNS[ROPE];
AttributesToRope: PROC[attributes: VolumeFormat.Attributes] RETURNS[ROPE];
DescribeOnePage:
PROC[
logicalPage: VolumeFormat.LogicalPage, vol: File.Volume, in, out: STREAM];
CheckChar: PROC[ch: CHAR] RETURNS[CHAR];
CheckPages: PROC[handle: File.Handle, name: ROPE, out: STREAM];
LogicalToPhysicalPage:
PROC[logicalPage: VolumeFormat.LogicalPage, volName:
ROPE]
RETURNS[page: Disk.PageNumber];
PrintPageAndDiskAddr:
PROC[
page: Disk.PageNumber, d: DiskFace.DeviceHandle, out: STREAM];
PhysicalToLogicalPage:
PROC[p: PhysicalVolume.Physical, page: Disk.PageNumber]
RETURNS[logicalPage: VolumeFormat.LogicalPage, vol: File.Volume];
ReadAndReport: PROC[in, out: STREAM, first, count: INT, d: Disk.Channel, howToShowData: HowToShowData];
END.