<> <> <> <> <> <> DIRECTORY AlpineEnvironment USING[FileID, VolumeID], AlpineInternal USING[FileHandle, FPMFileHandle, LogMapHandle], Lock USING [LockID], Rope USING[ROPE]; FileMap: CEDAR DEFINITIONS = BEGIN Handle: TYPE = AlpineInternal.FileHandle; Initialize: PROCEDURE[numHashSlotsDesired: NAT, fQLength: CARDINAL]; <> Register: PROCEDURE [volumeID: AlpineEnvironment.VolumeID, fileID: AlpineEnvironment.FileID] RETURNS [handle: Handle]; <> <> FileFromLockID: PROC [lock: Lock.LockID] RETURNS [Handle]; <> <> GetVolumeID: PROCEDURE [handle: Handle] RETURNS [volumeID: AlpineEnvironment.VolumeID]; <> GetFileID: PROCEDURE [handle: Handle] RETURNS [fileID: AlpineEnvironment.FileID]; <> GetVolumeIDAndFileID: PROCEDURE [handle: Handle] RETURNS [volumeID: AlpineEnvironment.VolumeID, fileID: AlpineEnvironment.FileID]; <> GetName: PROC [file: Handle] RETURNS [Rope.ROPE]; <> <> SetInterlock: PROCEDURE [handle: Handle, new: BOOLEAN] RETURNS [old: BOOLEAN]; VerifyLogMapHandle: PROCEDURE [handle: Handle, proc: PROCEDURE RETURNS [AlpineInternal.LogMapHandle]] RETURNS [logMapHandle: AlpineInternal.LogMapHandle]; <> <> VerifyFilePageMgrHandle: PROCEDURE [handle: Handle, proc: PROCEDURE RETURNS [AlpineInternal.FPMFileHandle]] RETURNS [filePageMgrHandle: AlpineInternal.FPMFileHandle]; <> <> ClearLogMapHandle: PROCEDURE [handle: Handle, proc: PROCEDURE RETURNS [AlpineInternal.LogMapHandle]]; <> <> <> Enter: PROCEDURE [handle: Handle, proc: PROCEDURE]; <> <> <> GetNext: PROCEDURE [handle: Handle _ NIL] RETURNS [nextHandle: Handle]; <> <> SetName: PROC [file: Handle, name: Rope.ROPE]; <> END. CHANGE LOG Edited on February 14, 1985 11:36:15 am PST, by Kupfer <> <<>>