sig
type 'a polyendpoint =
'a Netsys_polypipe.polypipe * 'a Netsys_polypipe.polypipe
type 'a polyclient
type 'a polyserver
val create_client : int -> 'a Netsys_polysocket.polyclient
val connect :
'a Netsys_polysocket.polyclient ->
'a Netsys_polysocket.polyserver -> unit
val endpoint :
synchronous:bool ->
nonblock:bool ->
'a Netsys_polysocket.polyclient -> 'a Netsys_polysocket.polyendpoint
val close_client : 'a Netsys_polysocket.polyclient -> unit
val set_connect_notify :
'a Netsys_polysocket.polyclient -> (unit -> unit) -> unit
val connect_descr : 'a Netsys_polysocket.polyclient -> Unix.file_descr
val create_server : unit -> 'a Netsys_polysocket.polyserver
val accept :
nonblock:bool ->
'a Netsys_polysocket.polyserver -> 'a Netsys_polysocket.polyendpoint
val refuse : nonblock:bool -> 'a Netsys_polysocket.polyserver -> unit
val pending_connection : 'a Netsys_polysocket.polyserver -> bool
val close_server : 'a Netsys_polysocket.polyserver -> unit
val set_accept_notify :
'a Netsys_polysocket.polyserver -> (unit -> unit) -> unit
val accept_descr : 'a Netsys_polysocket.polyserver -> Unix.file_descr
end
