-- File: ParticularTable.mesa
-- Last edited by:
--   MBrown on August 26, 1982 11:06 pm

  DIRECTORY
    Environment USING [Comparison],
    Inline USING [CompareINT];


ParticularTable: CEDAR DEFINITIONS IMPORTS Inline = BEGIN

  Node: TYPE = REF NodeRecord;
  NodeRecord: TYPE = RECORD [
    rbLLink, rbRLink: Node ← NIL, rbColor: BOOL ← FALSE,
    k: INT ← 0 ];

  Key: TYPE = INT;
  GetKey: PROC [n: Node] RETURNS [Key] = INLINE {
    RETURN [n.k] };
  CompareKeyToNode: PROC [k: Key, n: Node] RETURNS [Environment.Comparison] = INLINE {
    RETURN [Inline.CompareINT[k, n.k]] };

  END.--ParticularTable