sig
val create :
?message:string ->
?close_on_exec:bool ->
?unlink_on_exit:bool -> string -> bool Import.Deferred.t
val create_exn :
?message:string ->
?close_on_exec:bool ->
?unlink_on_exit:bool -> string -> unit Import.Deferred.t
val waiting_create :
?abort:unit Import.Deferred.t ->
?message:string ->
?close_on_exec:bool ->
?unlink_on_exit:bool -> string -> unit Import.Deferred.t
val is_locked : string -> bool Import.Deferred.t
module Nfs :
sig
val create : ?message:string -> string -> bool Import.Deferred.t
val create_exn : ?message:string -> string -> unit Import.Deferred.t
val waiting_create :
?abort:unit Import.Deferred.t ->
?message:string -> string -> unit Import.Deferred.t
val unlock_exn : string -> unit Import.Deferred.t
val critical_section :
?message:string ->
string ->
abort:unit Import.Deferred.t ->
f:(unit -> 'a Import.Deferred.t) -> 'a Import.Deferred.t
val get_hostname_and_pid :
string -> (string * Core.Std.Pid.t) option Import.Deferred.t
val get_message : string -> string option Import.Deferred.t
end
end