module OUnitShared:sig
..end
exception Lock_failure
type
scope =
| |
ScopeGlobal |
| |
ScopeProcess |
type 'a
shared_noscope = {
|
lock : |
|
unlock : |
|
try_lock : |
type
shared = {
|
global : |
|
process : |
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