Curses.ml 837 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(* example borrowed from
    http://caml.inria.fr/pub/docs/manual-ocaml-400/manual033.html
*)

type window                   (* The type "window" remains abstract *)
external initscr: unit -> window = "curses_initscr"
external endwin: unit -> unit = "curses_endwin"
external refresh: unit -> unit = "curses_refresh"
external wrefresh : window -> unit = "curses_wrefresh"
external newwin: int -> int -> int -> int -> window = "curses_newwin"
external addch: char -> unit = "curses_addch"
external mvwaddch: window -> int -> int -> char -> unit = "curses_mvwaddch"
external addstr: string -> unit = "curses_addstr"
external mvwaddstr: window -> int -> int -> string -> unit = "curses_mvwaddstr"
Thorsten Wißmann's avatar
Thorsten Wißmann committed
16
external getmaxyx: window -> int * int = "curses_getmaxyx"
17
external getch : unit -> int = "curses_getch"
18

19
20

(* vim: set et sw=2 sts=2 ts=8 : *)