diff options
Diffstat (limited to 'stub/curses.c')
| -rwxr-xr-x | stub/curses.c | 111 |
1 files changed, 111 insertions, 0 deletions
diff --git a/stub/curses.c b/stub/curses.c new file mode 100755 index 0000000..cd1d814 --- /dev/null +++ b/stub/curses.c @@ -0,0 +1,111 @@ +#include <ncurses.h>
+
+#include "ocaml.h"
+
+CAMLprim value
+c_set_mouse_event(value events)
+{
+ CAMLparam1(events);
+ CAMLlocal1(event);
+
+ mmask_t mask = 0;
+
+ while (events != Val_emptylist)
+ {
+ event = Field(events, 0);
+
+ switch (Int_val(event)) {
+ case 0: mask |= BUTTON1_PRESSED; break;
+ case 1: mask |= BUTTON1_RELEASED; break;
+ case 2: mask |= BUTTON1_CLICKED; break;
+ case 3: mask |= BUTTON1_DOUBLE_CLICKED; break;
+ case 4: mask |= BUTTON1_TRIPLE_CLICKED; break;
+ case 5: mask |= BUTTON2_PRESSED; break;
+ case 6: mask |= BUTTON2_RELEASED; break;
+ case 7: mask |= BUTTON2_CLICKED; break;
+ case 8: mask |= BUTTON2_DOUBLE_CLICKED; break;
+ case 9: mask |= BUTTON2_TRIPLE_CLICKED; break;
+ case 10: mask |= BUTTON3_PRESSED; break;
+ case 11: mask |= BUTTON3_RELEASED; break;
+ case 12: mask |= BUTTON3_CLICKED; break;
+ case 13: mask |= BUTTON3_DOUBLE_CLICKED; break;
+ case 14: mask |= BUTTON3_TRIPLE_CLICKED; break;
+ case 15: mask |= BUTTON4_PRESSED; break;
+ case 16: mask |= BUTTON4_RELEASED; break;
+ case 17: mask |= BUTTON4_CLICKED; break;
+ case 18: mask |= BUTTON4_DOUBLE_CLICKED; break;
+ case 29: mask |= BUTTON4_TRIPLE_CLICKED; break;
+ case 20: mask |= BUTTON_SHIFT; break;
+ case 21: mask |= BUTTON_CTRL; break;
+ case 22: mask |= BUTTON_ALT; break;
+ case 23: mask |= ALL_MOUSE_EVENTS; break;
+ case 24: mask |= REPORT_MOUSE_POSITION; break;
+ }
+ events = Field(events, 1);
+ }
+ mousemask(mask, NULL);
+
+
+ CAMLreturn(Val_unit);
+}
+
+CAMLprim value
+c_get_mouse_event(value unit)
+{
+ MEVENT event;
+ CAMLparam1(unit);
+ CAMLlocal2(result, coord);
+
+ result = caml_alloc(3, 0);
+ coord = caml_alloc(3, 0);
+
+ if (getmouse(&event) == OK)
+ {
+ Store_field(coord, 0, Val_int(event.x));
+ Store_field(coord, 1, Val_int(event.y));
+ Store_field(coord, 2, Val_int(event.z));
+
+ Store_field(result, 0, Val_int(event.id));
+ Store_field(result, 1, event.bstate);
+ Store_field(result, 2, coord);
+
+ CAMLreturn(Val_some(result));
+ } else {
+ CAMLreturn(Val_none);
+ }
+}
+
+
+CAMLprim value
+c_is_event_of_type(value mask, value type)
+{
+ CAMLparam2(mask, type);
+ switch (Int_val(type)) {
+ case 0: CAMLreturn(Val_bool(mask & BUTTON1_PRESSED)); break;
+ case 1: CAMLreturn(Val_bool(mask & BUTTON1_RELEASED)); break;
+ case 2: CAMLreturn(Val_bool(mask & BUTTON1_CLICKED)); break;
+ case 3: CAMLreturn(Val_bool(mask & BUTTON1_DOUBLE_CLICKED)); break;
+ case 4: CAMLreturn(Val_bool(mask & BUTTON1_TRIPLE_CLICKED)); break;
+ case 5: CAMLreturn(Val_bool(mask & BUTTON2_PRESSED)); break;
+ case 6: CAMLreturn(Val_bool(mask & BUTTON2_RELEASED)); break;
+ case 7: CAMLreturn(Val_bool(mask & BUTTON2_CLICKED)); break;
+ case 8: CAMLreturn(Val_bool(mask & BUTTON2_DOUBLE_CLICKED)); break;
+ case 9: CAMLreturn(Val_bool(mask & BUTTON2_TRIPLE_CLICKED)); break;
+ case 10: CAMLreturn(Val_bool(mask & BUTTON3_PRESSED)); break;
+ case 11: CAMLreturn(Val_bool(mask & BUTTON3_RELEASED)); break;
+ case 12: CAMLreturn(Val_bool(mask & BUTTON3_CLICKED)); break;
+ case 13: CAMLreturn(Val_bool(mask & BUTTON3_DOUBLE_CLICKED)); break;
+ case 14: CAMLreturn(Val_bool(mask & BUTTON3_TRIPLE_CLICKED)); break;
+ case 15: CAMLreturn(Val_bool(mask & BUTTON4_PRESSED)); break;
+ case 16: CAMLreturn(Val_bool(mask & BUTTON4_RELEASED)); break;
+ case 17: CAMLreturn(Val_bool(mask & BUTTON4_CLICKED)); break;
+ case 18: CAMLreturn(Val_bool(mask & BUTTON4_DOUBLE_CLICKED)); break;
+ case 29: CAMLreturn(Val_bool(mask & BUTTON4_TRIPLE_CLICKED)); break;
+ case 20: CAMLreturn(Val_bool(mask & BUTTON_SHIFT)); break;
+ case 21: CAMLreturn(Val_bool(mask & BUTTON_CTRL)); break;
+ case 22: CAMLreturn(Val_bool(mask & BUTTON_ALT)); break;
+ case 23: CAMLreturn(Val_bool(mask & ALL_MOUSE_EVENTS)); break;
+ case 24: CAMLreturn(Val_bool(mask & REPORT_MOUSE_POSITION)); break;
+ }
+ CAMLreturn(Val_false);
+}
|