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. „ExtraIagoUtils.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Willie-Sue, February 19, 1986 4:26:00 pm PST ΚJ˜codešœ™Kšœ Οmœ1™