<> <> <> <<>> <> <<>> <> <<>> DIRECTORY Rope, RedBlackTree; KeyNoteTokenFreqPerFileTable: CEDAR DEFINITIONS = BEGIN <> ROPE: TYPE = Rope.ROPE; Table: TYPE = RedBlackTree.Table; Compare: TYPE = RedBlackTree.Compare; EachNode: TYPE = RedBlackTree.EachNode; Node: TYPE = RedBlackTree.Node; Key: TYPE = RedBlackTree.Key; UserData: TYPE = REF UserDataObject; UserDataObject: TYPE = RECORD [ token: ROPE, frequency: INTEGER]; <> <<>> Create: PROC [] RETURNS [table: Table]; <> <<>> DestroyTable: PROC [table: Table]; <> InsertAndBumpFrequncy: PROC [table: Table, tokenName: ROPE]; <> <<>> EnumerateDecreasing: PROC [table: Table, procToApply: EachNode]; <<>> <<>> LookupNextLarger: PROC [self: Table, tokenName: ROPE] RETURNS [data: UserData]; Lookup: PROC [ self: Table, tokenName: ROPE] RETURNS [data: UserData]; END.