-- LogMapParticularTable.mesa
-- Last edited by
--   Kolling on November 16, 1982 1:09 pm
--   MBrown on January 30, 1984 9:15:01 pm PST


DIRECTORY

     AlpineEnvironment
        USING[PageNumber],
     Basics
        USING[Comparison, CompareINT],
     LogMapPrivate
        USING[Intention, IntentionObject];


ParticularTable: CEDAR DEFINITIONS IMPORTS Basics =
   
BEGIN

Node: TYPE = LogMapPrivate.Intention;
NodeRecord: TYPE = LogMapPrivate.IntentionObject;

Key: TYPE = AlpineEnvironment.PageNumber; 


GetKey: PROCEDURE[n: Node] RETURNS[k: Key] = INLINE
   BEGIN
   RETURN[n.pageRun.firstPage];
   END;


CompareKeyToNode: PROCEDURE[k: Key, n: Node] RETURNS[Basics.Comparison] = INLINE
   BEGIN
   RETURN[Basics.CompareINT[k, n.pageRun.firstPage]];
   END;


END.