WaterlilyParticularTable.mesa
Copyright (C) 1984 by Xerox Corporation. All rights reserved.
Russ Atkinson, December 3, 1984 5:59:52 pm PST
Kolling on October 12, 1983 12:38 pm
DIRECTORY
Basics USING [Comparison],
Rope USING [Compare, ROPE],
WaterlilyDefs USING [SymbolTableEntry, SymbolTableKey];
WaterlilyParticularTable: CEDAR DEFINITIONS IMPORTS Rope = BEGIN
Node: TYPE = WaterlilyDefs.SymbolTableKey;
NodeRecord: TYPE = WaterlilyDefs.SymbolTableEntry;
Key: TYPE = Rope.ROPE;
GetKey:
PROCEDURE[n: Node]
RETURNS [k: Key] =
INLINE
BEGIN
RETURN[n.rope];
END;
CompareKeyToNode:
PROCEDURE[k: Key, n: Node]
RETURNS [Basics.Comparison] =
INLINE
BEGIN
RETURN[Rope.Compare[k, n.rope, TRUE]];
END;
END.