Module Lwt_mutex
Cooperative locks for mutual exclusion
val create : unit -> t
create ()
creates a new mutex, which is initially unlocked
val lock : t -> unit Lwt.t
lock mutex
lockcs the mutex, that is:- if the mutex is unlocked, then it is marked as locked and
lock
returns immediately
- if it is locked, then
lock
waits for all threads waiting on the mutex to terminate, then it resumes when the last one unlocks the mutex
Note: threads are woken up in the same order they try to lock the mutex
- if the mutex is unlocked, then it is marked as locked and
val unlock : t -> unit
unlock mutex
unlock the mutex if no threads is waiting on it. Otherwise it will eventually removes the first one and resumes it.
val is_locked : t -> bool
locked mutex
returns whethermutex
is currently locked
val is_empty : t -> bool
is_empty mutex
returnstrue
if they are no thread waiting on the mutex, andfalse
otherwise
val with_lock : t -> (unit -> 'a Lwt.t) -> 'a Lwt.t
with_lock lock f
is used to lock a mutex within a block scope. The functionf ()
is called with the mutex locked, and its result is returned from the call towith_lock
. If an exception is raised from f, the mutex is also unlocked before the scope ofwith_lock
is exited.