-- File: ParticularTable.mesa
-- Last edited by:
--   MBrown on October 20, 1983 11:39 pm

  DIRECTORY
    Basics USING [Comparison, CompareINT];


ParticularTable: CEDAR DEFINITIONS IMPORTS Basics = 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 [Basics.Comparison] = INLINE {
    RETURN [Basics.CompareINT[k, n.k]] };

  END.