module Hashcons: sig end
type 'a
hashed = {
|
hkey : int ; |
|
tag : int ; |
|
node : 'a ; |
}
type 'a
t = {
|
mutable size : int ; |
|
mutable data : 'a bucketlist array ; |
}
type 'a
bucketlist =
val create : int -> 'a t
val clear : 'a t -> unit
val resize : 'a t -> unit
val array_too_small : 'a t -> bool
val add : 'a t -> int -> 'a hashed -> unit
Parameters: |
h |
: |
'a t
|
hkey |
: |
int
|
info |
: |
'a hashed
|
|
val find : 'a t -> 'a -> int -> 'a hashed
Parameters: |
h |
: |
'a t
|
key |
: |
'a
|
hkey |
: |
int
|
|
val gentag : unit -> int
val hashcons : 'a t -> 'a -> 'a hashed
val mem : 'a t -> 'a -> bool
val (===) : 'a -> 'a -> bool
val (=/=) : 'a -> 'a -> bool
val iter : ('a hashed -> 'b) -> 'a t -> unit
val bucketlist_length : 'a bucketlist -> int
val stat : 'a t -> unit
module type HashedType = sig end
module type S = sig end
module Make: functor (H : HashedType) -> sig end