Line_discipline
type mode =
| Cooked
| Raw
type event =
| Line of string
| Key of string
| Interrupt
| End_of_file
type t
val create : unit -> t
val mode : t -> mode
val set_mode : t -> mode -> t
val set_echo : t -> bool -> t
val pending : t -> string
val input : t -> string -> t * string * event list
val output : string -> string
val split_keys : string -> string list