1995-08-09 08:06:35 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Caml Special Light *)
|
|
|
|
(* *)
|
|
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 1995 Institut National de Recherche en Informatique et *)
|
|
|
|
(* Automatique. Distributed only by permission. *)
|
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
1995-05-04 03:15:53 -07:00
|
|
|
(* Basic interface to the terminfo database *)
|
|
|
|
|
1995-05-05 03:05:18 -07:00
|
|
|
external setupterm: unit -> unit = "terminfo_setup"
|
|
|
|
external getstr: string -> string = "terminfo_getstr"
|
|
|
|
external getnum: string -> int = "terminfo_getnum"
|
|
|
|
external puts: out_channel -> string -> int -> unit = "terminfo_puts"
|
1995-05-04 03:15:53 -07:00
|
|
|
|