13 lines
415 B
OCaml
13 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
|