module GenHashTable:sig
..end
type
equal =
| |
ETrue |
|||
| |
EFalse |
|||
| |
EDead |
(* |
the container is dead
| *) |
module MakeSeeded:functor (
H
:
sig
type
t
keys
type
'a
containercontains keys and the associated data
val hash :int -> t -> int
same asHashtbl.SeededHashedType
val equal :'a container ->
t -> Ephemeron.GenHashTable.equalequality predicate used to compare a key with the one in a container. Can returnEDead
if the keys in the container are dead
val create :t ->
'a -> 'a containercreate key data
creates a container from some initials keys and one data
val get_key :'a container ->
t optionget_key cont
returns the keys if they are all alive
val get_data :'a container -> 'a option
get_data cont
returns the data if it is alive
val set_key_data :'a container ->
t -> 'a -> unitset_key_data cont
modifies the key and data
val check_key :'a container -> bool
check_key cont
checks if all the keys contained in the data are alive
end
) ->
Ephemeron.SeededS
with type key = H.t