`sig
exception Ldap_mutex of string * exn
class type mutex_t = object method lock : unit method unlock : unit end
class type object_lock_table_t =
object
method lock : Ldap_types.dn -> unit
method unlock : Ldap_types.dn -> unit
end
class mutex :
string list ->
string ->
string -> string -> object method lock : unit method unlock : unit end
val apply_with_mutex : Ldap_mutex.mutex -> (unit -> 'a) -> 'a
class object_lock_table :
string list ->
string ->
string ->
string ->
object
method lock : Ldap_types.dn -> unit
method unlock : Ldap_types.dn -> unit
end
end`