static value caml_gr_wait_event_poll(void)
{
int mouse_x, mouse_y, button, key, keypressed;
Window rootwin, childwin;
int root_x, root_y, win_x, win_y;
unsigned int modifiers;
unsigned int i;
caml_process_pending_signals ();
if (XQueryPointer(caml_gr_display, caml_gr_window.win,
&rootwin, &childwin,
&root_x, &root_y, &win_x, &win_y,
&modifiers)) {
mouse_x = win_x;
mouse_y = win_y;
} else {
mouse_x = -1;
mouse_y = -1;
}
button = modifiers & (Button1Mask | Button2Mask | Button3Mask
| Button4Mask | Button5Mask);
/* Look inside event queue for pending KeyPress events */
key = 0;
keypressed = False;
for (i = caml_gr_head; i != caml_gr_tail; i = (i + 1) % SIZE_QUEUE) {
if (caml_gr_queue[i].kind == KeyPress) {
keypressed = True;
key = caml_gr_queue[i].key;
break;
}
}
return
caml_gr_wait_allocate_result(mouse_x, mouse_y, button, keypressed, key);
}
void caml_garbage_collection(void)
{
caml_young_limit = caml_young_start;
if (caml_young_ptr < caml_young_start || caml_force_major_slice) {
caml_minor_collection();
}
caml_process_pending_signals();
}
CAMLexport void caml_leave_blocking_section(void)
{
int saved_errno;
/* Save the value of errno (PR#5982). */
saved_errno = errno;
caml_leave_blocking_section_hook ();
caml_process_pending_signals();
errno = saved_errno;
}
CAMLexport void caml_enter_blocking_section(void)
{
while (1){
/* Process all pending signals now */
caml_process_pending_signals();
caml_enter_blocking_section_hook ();
/* Check again for pending signals.
If none, done; otherwise, try again */
if (! caml_signals_are_pending) break;
caml_leave_blocking_section_hook ();
}
}
void caml_process_event(void)
{
void (*async_action)(void);
caml_check_urgent_gc (Val_unit);
caml_process_pending_signals();
async_action = caml_async_action_hook;
if (async_action != NULL) {
caml_async_action_hook = NULL;
(*async_action)();
}
}
void caml_process_event(void)
{
void (*async_action)(void);
if (caml_force_major_slice) caml_minor_collection ();
/* FIXME should be [caml_check_urgent_gc] */
caml_process_pending_signals();
async_action = caml_async_action_hook;
if (async_action != NULL) {
caml_async_action_hook = NULL;
(*async_action)();
}
}
CAMLprim value caml_install_signal_handler(value signal_number, value action)
{
CAMLparam2 (signal_number, action);
CAMLlocal1 (res);
int sig, act, oldact;
sig = caml_convert_signal_number(Int_val(signal_number));
if (sig < 0 || sig >= NSIG)
caml_invalid_argument("Sys.signal: unavailable signal");
switch(action) {
case Val_int(0): /* Signal_default */
act = 0;
break;
case Val_int(1): /* Signal_ignore */
act = 1;
break;
default: /* Signal_handle */
act = 2;
break;
}
oldact = caml_set_signal_action(sig, act);
switch (oldact) {
case 0: /* was Signal_default */
res = Val_int(0);
break;
case 1: /* was Signal_ignore */
res = Val_int(1);
break;
case 2: /* was Signal_handle */
res = caml_alloc_small (1, 0);
Field(res, 0) = Field(caml_signal_handlers, sig);
break;
default: /* error in caml_set_signal_action */
caml_sys_error(NO_ARG);
}
if (Is_block(action)) {
if (caml_signal_handlers == 0) {
caml_signal_handlers = caml_alloc(NSIG, 0);
caml_register_global_root(&caml_signal_handlers);
}
caml_modify(&Field(caml_signal_handlers, sig), Field(action, 0));
}
caml_process_pending_signals();
CAMLreturn (res);
}
CAMLexport void caml_leave_blocking_section(void)
{
caml_leave_blocking_section_hook ();
caml_process_pending_signals();
}
