14 lines
415 B
OCaml
14 lines
415 B
OCaml
|
open Eio.Std
|
||
|
|
|
||
|
|
type transmit_amount = [
|
||
|
|
| `Bytes of int (* Send the next n bytes of data *)
|
||
|
|
| `Drain (* Transmit all data immediately from now on *)
|
||
|
|
]
|
||
|
|
|
||
|
|
type t = [`Mock_tls | Eio.Flow.two_way_ty | Eio.Resource.close_ty] r
|
||
|
|
|
||
|
|
val create_pair : unit -> t * t
|
||
|
|
(** Create a pair of sockets [client, server], such that writes to one can be read from the other. *)
|
||
|
|
|
||
|
|
val transmit : t -> transmit_amount -> unit
|