-- DirectoryScavenger.mesa (last edited by Fay on December 17, 1980 3:58 PM)

DIRECTORY

DirectoryInternal USING [DirectoryDescriptor, DirectoryEntryHandle, PagePointer],

DirectoryExtras USING [ScavengerContext],

Space USING [Handle];

DirectoryScavenger: DEFINITIONS =

BEGIN

-- Procedures

ClosePilotLogFile: PROC [pilotLogSpace: Space.Handle];

DoNesting: PROC [context: DirectoryExtras.ScavengerContext, nestingCount: CARDINAL];

EquivalentLongStrings: PROC [s1, s2: LONG STRING] RETURNS [BOOLEAN];

GetWords: PROC [toPointer, bufferPointer: LONG POINTER TO UNSPECIFIED, currentWord, count: CARDINAL, pilotLogSpace: Space.Handle] RETURNS [nextWord: CARDINAL];

OpenPilotLogFile: PROC [context: DirectoryExtras.ScavengerContext] RETURNS [bufferPointer: LONG POINTER TO UNSPECIFIED, pilotLogSpace: Space.Handle];

ValidateBTree: PROC [dir: POINTER TO DirectoryInternal.DirectoryDescriptor];

-- Signal

BTreeError: TYPE = {BadPointer, Cycle, LeafError, Orphan, SizeError};

BTreeInvalid: SIGNAL [error: BTreeError, page: DirectoryInternal.PagePointer, entry: DirectoryInternal.DirectoryEntryHandle];

END.

LOG

Time: December 17, 1980 3:58 PMBy: FayAction: Created file.

Time: DateTimeBy: YourName Action: ShortDescription.