-- File: FilePageMgrParticularTable.mesa
-- Last edited by
-- Kolling on January 24, 1984 12:58:06 pm PST

DIRECTORY

AlpineEnvironment
USING [PageNumber],
Basics
USING [CompareINT, Comparison],
FilePageMgrPrivateChunk
USING [Chunk, RefChunk];


ParticularTable: CEDAR DEFINITIONS
IMPORTS Basics =

BEGIN


Node: TYPE = FilePageMgrPrivateChunk.RefChunk;

NodeRecord: TYPE = FilePageMgrPrivateChunk.Chunk;


Key: TYPE = AlpineEnvironment.PageNumber;


GetKey: PROCEDURE[n: Node] RETURNS [k: Key] = INLINE
BEGIN -- non system fatal errors: none.
RETURN[n.startFilePageNumber];
END;


CompareKeyToNode: PROCEDURE[k: Key, n: Node] RETURNS [Basics.Comparison] = INLINE
BEGIN -- non system fatal errors: none.
RETURN[Basics.CompareINT[k, n.startFilePageNumber]];
END;



END.