-- 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.