sig
exception Identity_exists of Hydro_types.identity
exception Object_exists of Hydro_lm.interface_base
class type object_adapter_t =
object
method add : Hydro_types.identity -> Hydro_lm.interface_base -> unit
method get_identity : Hydro_lm.interface_base -> Hydro_types.identity
method invoke_object :
Hydro_types.identity -> Hydro_types.facet_dispatcher
method mem_id : Hydro_types.identity -> bool
method mem_obj : Hydro_lm.interface_base -> bool
method remove_id : Hydro_types.identity -> unit
method remove_obj : Hydro_lm.interface_base -> unit
end
class object_adapter : unit -> object_adapter_t
val object_adapter : unit -> Hydro_oa.object_adapter_t
end