Up

module Terminfo

: sig
#
type status =
# | Uninitialised
# | Bad_term
# | Good_term of int
#
external setup : Pervasives.out_channel -> status = "caml_terminfo_setup"
#
external backup : int -> unit = "caml_terminfo_backup"
#
external standout : bool -> unit = "caml_terminfo_standout"
#
external resume : int -> unit = "caml_terminfo_resume"
end