Module OUnitShared

exception Lock_failure
type scope =
  1. | ScopeGlobal
  2. | ScopeProcess
type 'a shared_noscope = {
  1. lock : 'a -> unit;
  2. unlock : 'a -> unit;
  3. try_lock : 'a -> bool;
}
type shared = {
  1. global : int shared_noscope;
  2. process : int shared_noscope;
}
val get_scoped : shared -> scope -> int shared_noscope
val mutex_create : (unit -> unit shared_noscope) ref
module Mutex : sig ... end
val noscope_create : unit -> 'a shared_noscope
val create : unit -> shared