2016-11-29 00:54:32 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-11-29 00:54:32 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
open Error_monad
|
2016-11-29 00:54:32 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val create :
|
|
|
|
?close_on_exec:bool ->
|
|
|
|
?unlink_on_exit:bool ->
|
|
|
|
string -> unit tzresult Lwt.t
|
2016-11-29 00:54:32 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val blocking_create :
|
|
|
|
?timeout:float ->
|
|
|
|
?close_on_exec:bool ->
|
|
|
|
?unlink_on_exit:bool ->
|
|
|
|
string -> unit tzresult Lwt.t
|
2016-11-29 00:54:32 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val is_locked : string -> bool tzresult Lwt.t
|
|
|
|
val get_pid : string -> int tzresult Lwt.t
|