sig
exception Not_available
module Server :
sig
type t
val create : string -> Named_pipe.Server.t
val connect : Named_pipe.Server.t -> unit
val to_fd : Named_pipe.Server.t -> Unix.file_descr
val flush : Named_pipe.Server.t -> unit
val disconnect : Named_pipe.Server.t -> unit
val destroy : Named_pipe.Server.t -> unit
end
module Client :
sig
type t
exception Pipe_busy
val openpipe : string -> Named_pipe.Client.t
val to_fd : Named_pipe.Client.t -> Unix.file_descr
val wait : string -> int -> unit
end
end