-- FilePageLabel.mesa (last edited by: Fay on: August 16, 1980 6:08 PM)

-- NOTE: This defs module should go away and its clients should use PilotDisk directly.

DIRECTORY

Environment USING [PageOffset],

File USING [ID, nullCapability, PageNumber, Type],

PilotDisk USING [GetLabelFilePage, GetLabelType, nullLabel, Label, LabelCheckSum, SetLabelFilePage, SetLabelType];

FilePageLabel: DEFINITIONS IMPORTS PilotDisk SHARES File =

BEGIN

Label: TYPE = PilotDisk.Label;

nullLabel: Label = PilotDisk.nullLabel;

nullID: File.ID = File.nullCapability.fID;

GetFilePage: PROCEDURE [label: LONG POINTER TO Label] RETURNS [File.PageNumber] =

INLINE BEGIN

RETURN[PilotDisk.GetLabelFilePage[label]]

END;

SetFilePage: PROCEDURE [label: LONG POINTER TO Label, fpn: File.PageNumber] =

INLINE BEGIN
PilotDisk.SetLabelFilePage[label, fpn];
END;

GetType: PROCEDURE [label: LONG POINTER TO Label] RETURNS [File.Type] =

INLINE BEGIN RETURN [PilotDisk.GetLabelType[label]] END;

SetType: PROCEDURE [label: LONG POINTER TO Label, type: File.Type] =

INLINE BEGIN PilotDisk.SetLabelType[label, type]; END;

LabelCheckSum: PROCEDURE [label: LONG POINTER TO Label, offset: Environment.PageOffset]
RETURNS [checkSum: CARDINAL] = INLINE

BEGIN

RETURN[PilotDisk.LabelCheckSum[label, offset]]

END;

END.

LOG

Time: July 21, 1979 4:32 PMBy: RedellAction: Create file

Time: June 16, 1980 5:50 PMBy: McJonesAction: Redefine in terms of PilotDisk

Time: August 16, 1980 6:08 PMBy: FayAction: Delete tBootFile.