コード例 #1
0
ファイル: events.c プロジェクト: stedolan/ocaml
static value caml_gr_wait_allocate_result(int mouse_x, int mouse_y,
                                          int button,
                                          int keypressed, int key)
{
  return caml_alloc_5(0,
    Val_int(mouse_x),
    Val_int(grwindow.height - 1 - mouse_y),
    Val_bool(button),
    Val_bool(keypressed),
    Val_int(key & 0xFF));
}
コード例 #2
0
ファイル: events.c プロジェクト: dhil/ocaml-multicore
static value caml_gr_wait_allocate_result(int mouse_x, int mouse_y, int button,
                                     int keypressed, int key)
{
  CAMLparam0();
  CAMLlocal1(res);
  res = caml_alloc_5(0,
                     Val_int(mouse_x),
                     Val_int(mouse_y == -1 ? -1 : Wcvt(mouse_y)),
                     Val_bool(button),
                     Val_bool(keypressed),
                     Val_int(key & 0xFF));
  CAMLreturn (res);
}