-- 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 Ź±˜JšGĻc‘œĻk œ žœ^žœž œžœžœ žœžœžœžœ žœ žœžœ,žœ žœ Ļnœžœ žœ žœžœžœžœžœžœŸœžœžœžœžœžœžœžœ žœ-žœ˜Ć—…—Fż