DEFINITION SortedHashes

(*
 *	Entwicklung objekt-orientierter Bibliotheken, Aufgabe 11
 *
 *	Implementierung von Dictionaries mit sortiertem Durchlaufen.
 *)
DEFINITION SortedHashes;

   IMPORT Dictionaries;

   TYPE
      CompareProc = PROCEDURE (a, b: Dictionaries.Entry): INTEGER;

   PROCEDURE ByKey(a, b: Dictionaries.Entry): INTEGER;

   PROCEDURE Create(VAR dict: Dictionaries.Dictionary; compare: CompareProc);

END SortedHashes.