Previous  Up  Next

Module OUnitShared

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