Module Hashtbl

type ('a, 'b) t

val create : ?random:bool -> int -> ('a, 'b) t

val clear : ('a, 'b) t -> unit

val reset : ('a, 'b) t -> unit

val copy : ('a, 'b) t -> ('a, 'b) t

val add : ('a, 'b) t -> 'a -> 'b -> unit

val find : ('a, 'b) t -> 'a -> 'b

val find_all : ('a, 'b) t -> 'a -> 'b list

val mem : ('a, 'b) t -> 'a -> bool

val remove : ('a, 'b) t -> 'a -> unit

val replace : ('a, 'b) t -> 'a -> 'b -> unit

val iter : 'a -> 'b -> unit -> ('a, 'b) t -> unit

val fold : 'a -> 'b -> 'c -> 'c -> ('a, 'b) t -> 'c -> 'c

val length : ('a, 'b) t -> int

val randomize : unit -> unit

type statistics = {

num_bindings : int;

num_buckets : int;

max_bucket_length : int;

bucket_histogram : int array;

}

val stats : ('a, 'b) t -> statistics

module type HashedType = sig

type t

val equal : t -> t -> bool

val hash : t -> int

end

module type S = sig

type key

type 'a t

val create : int -> 'a t

val clear : 'a t -> unit

val reset : 'a t -> unit

val copy : 'a t -> 'a t

val add : 'a t -> key -> 'a -> unit

val remove : 'a t -> key -> unit

val find : 'a t -> key -> 'a

val find_all : 'a t -> key -> 'a list

val replace : 'a t -> key -> 'a -> unit

val mem : 'a t -> key -> bool

val iter : key -> 'a -> unit -> 'a t -> unit

val fold : key -> 'a -> 'b -> 'b -> 'a t -> 'b -> 'b

val length : 'a t -> int

val stats : 'a t -> statistics

end

TODO: functor:ocamlfind.1.5.2/stdlib/Hashtbl.Make

module type SeededHashedType = sig

type t

val equal : t -> t -> bool

val hash : int -> t -> int

end

module type SeededS = sig