sig
type status = Uninitialised | Bad_term | Good_term of int
external setup : Pervasives.out_channel -> Terminfo.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