DEFINITION Hashes

(*
 *	Entwicklung objekt-orientierter Bibliotheken, Aufgabe 15
 *
 *	Implementierung von Dictionaries als Hashes im dynamischen Speicher.
 *)
DEFINITION Hashes;

   IMPORT Dictionaries;

   PROCEDURE Create(VAR dict: Dictionaries.Dictionary;
		     compare: Dictionaries.CompareProc);
      (* compare = NIL: normal; compare # NIL: sorted *)

END Hashes.