/usr/lib/ocaml/sqlexpr/sqlexpr_concurrency.mli is in libsqlexpr-ocaml-dev 0.5.5-3build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | (** Concurrency monad. *)
(** Thread local state. *)
module type THREAD_LOCAL_STATE =
sig
type 'a t
type 'a key
val new_key : unit -> 'a key
val get : 'a key -> 'a option
val with_value : 'a key -> 'a option -> (unit -> 'b t) -> 'b t
end
(** The THREAD monad. *)
module type THREAD =
sig
type 'a t
val return : 'a -> 'a t
val bind : 'a t -> ('a -> 'b t) -> 'b t
val fail : exn -> 'a t
val catch : (unit -> 'a t) -> (exn -> 'a t) -> 'a t
val finalize : (unit -> 'a t) -> (unit -> unit t) -> 'a t
val sleep : float -> unit t
val auto_yield : float -> unit -> unit t
type mutex
(** Create a recursive mutex that can be locked recursively by the same
* thread; i.e., unlike a regular mutex,
* [with_lock m (fun () -> ... with_lock m (fun () -> ... ))]
* will not block. *)
val create_recursive_mutex : unit -> mutex
(* [with_lock m f] blocks until the [m] mutex can be locked, runs [f ()] and
* unlocks the mutex (also if [f ()] raises an exception) *)
val with_lock : mutex -> (unit -> 'a t) -> 'a t
val register_finaliser : ('a -> unit t) -> 'a -> unit
include THREAD_LOCAL_STATE with type 'a t := 'a t
end
(** Identity concurrency monad. Note that [Id.mutex] is a dummy type that
* doesn't actually work like a mutex (i.e., [Id.with_lock m f] is equivalent
* to [f ()]. This is so because in ocaml-sqlexpr's context [Sqlite] handles
* can only be used from the thread where they were created, so there's no
* need for mutual exclusion because trying to use the same handle from
* different threads would be an error anyway. *)
module Id : THREAD with type 'a t = 'a and type 'a key = 'a Lwt.key
(** Lwt concurrency monad. *)
module Lwt : THREAD with type 'a t = 'a Lwt.t and type 'a key = 'a Lwt.key
|