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