Add binding for curses getch()

src/ncurses/Curses.ml

@@ -14,4 +14,5 @@ external mvwaddch: window -> int -> int -> char -> unit = "curses_mvwaddch"
 external addstr: string -> unit = "curses_addstr"
 external mvwaddstr: window -> int -> int -> string -> unit = "curses_mvwaddstr"
 external getmaxyx: window -> int * int = "curses_getmaxyx"
+external getch : unit -> int = "curses_getch"
 

src/ncurses/Curses.mli

@@ -13,3 +13,6 @@ val mvwaddch: window -> int -> int -> char -> unit
 val addstr: string -> unit
 val mvwaddstr: window -> int -> int -> string -> unit
 val getmaxyx: window -> int * int
+
+val getch : unit -> int
+

src/ncurses/Curses_stub.c

@@ -112,4 +112,9 @@ value curses_getmaxyx(value win)
   CAMLreturn ( hw );
 }
 
+value curses_getch(value unit) {
+    CAMLparam1( unit );
+    CAMLreturn (Val_int(getch()));
+}
+
 }

src/ncurses/NCUI.mli

@@ -26,3 +26,5 @@ val set_root_widget : widget -> unit
 val screen_open  : unit -> unit
 val screen_close : unit -> unit
 
+
+