module Unit_index:LABELED_INDEXwith type elt = unit_name and type id = unit_id
type data
type elt
type id
type t
val create : unit -> tval register : t ->
elt ->
(unit -> data) -> idval search : t -> elt -> idval find : t -> id -> eltval data : t ->
id -> dataval compare_id : id -> id -> intval scribe_id : 'a Conduit.conduit -> 'a -> id -> unitval io_id : id Io.literateval iter : t ->
(id ->
elt -> data -> unit) ->
unitval set_watcher : t ->
(id ->
elt -> data -> unit) ->
unit