(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)

(* Last modified on Tue Feb 11 20:45:01 PST 1992 by muller                   *)

SHAPE Hash EXTENDS Elt;

(* This interface is not intended to be compiled.  Rather, it
   describes the shape that is expected by some generic interfaces and
   modules.

   In addition to the basics of Elt, provide a Hash function on
   values of type T. *)

PROCEDURE Hash (x: Elt.T; lessThan: CARDINAL): CARDINAL;
  (* return a hash value for 'x', less than 'lessThan' *)

END Hash.