-- File: ParticularTable.mesa
-- Last edited by:
-- MBrown on August 26, 1982 11:06 pm
-- Last Edited by: Swinehart, November 16, 1983 9:12 am

DIRECTORY
Basics USING [Comparison],
Names USING [ GMTComp ],
Thrush, ThPartyPrivate;

ParticularTable: CEDAR DEFINITIONS IMPORTS Names, Thrush = BEGIN

Node: TYPE = REF NodeRecord;
NodeRecord: TYPE = RECORD [
rbLLink, rbRLink: Node ← NIL, rbColor: BOOL ← FALSE,
conv: ThPartyPrivate.ConversationData←NIL ];

Key: TYPE = Thrush.ConversationHandle;
GetKey: PROC [n: Node] RETURNS [Key] = INLINE {
RETURN [IF n.conv=NIL THEN Thrush.epoch ELSE n.conv.convID] };
CompareKeyToNode: PROC [k: Key, n: Node] RETURNS [Basics.Comparison] = INLINE {
RETURN [IF n.conv=NIL THEN greater ELSE Names.GMTComp[k, n.conv.convID]];
};

END.--ParticularTable