-- SpecialFile.mesa (last edited by: McJones on: January 24, 1980 6:40 PM)

DIRECTORY

File: FROM "File" USING [Capability, PageCount, PageNumber];

SpecialFile: DEFINITIONS =

BEGIN

MakeBootable: PROCEDURE [file: File.Capability, firstPage: File.PageNumber ← 0, count: File.PageCount, lastLink: Link ← eofLink]

RETURNS [link: Link];

-- Install forward chain through page labels of file, which must be of type tBootFile. Use specified link in label of last page chained (firstPage+count-1), and return link value corresponding to first page chained. Note that this may make normal Pilot access to the file considerably less efficient.

Link: TYPE = RECORD [LONG UNSPECIFIED];

eofLink: Link = [LAST[LONG CARDINAL]]; -- all one’s

MakeUnbootable: PROCEDURE [file: File.Capability, firstPage: File.PageNumber ← 0, count: File.PageCount];

-- Remove boots chains; this will eliminate any inefficiency caused by their presence.

InvalidParameters: ERROR;

SetDebuggerFiles: PROCEDURE [debugger, debuggee: File.Capability];

-- Store pointers (i.e. Links) to the specified files into root of the system volume. Note that the files must be entirely contained within (the first physical volume of) the system volume.

END.

LOG

Time: July 31, 1979 4:46 PMBy: RedellAction: Create file

Time: January 24, 1980 6:40 PMBy: McJonesAction: MakeUnBootable=>MakeUnbootable, add firstPage and count; add eofLink