… | |
… | |
32 | # define fd_mask Perl_fd_mask |
32 | # define fd_mask Perl_fd_mask |
33 | #endif |
33 | #endif |
34 | /* due to bugs in OS X we have to use libev/ explicitly here */ |
34 | /* due to bugs in OS X we have to use libev/ explicitly here */ |
35 | #include "libev/ev.c" |
35 | #include "libev/ev.c" |
36 | |
36 | |
37 | #if !defined(_WIN32) && !defined(_MINIX) |
37 | #if !defined _WIN32 && !defined _MINIX |
38 | # include <pthread.h> |
38 | # include <pthread.h> |
39 | #endif |
39 | #endif |
40 | |
40 | |
41 | #define e_loop(w) INT2PTR (struct ev_loop *, SvIVX (((ev_watcher *)(w))->loop)) |
41 | #define e_loop(w) INT2PTR (struct ev_loop *, SvIVX (((ev_watcher *)(w))->loop)) |
42 | #define e_flags(w) ((ev_watcher *)(w))->e_flags |
42 | #define e_flags(w) ((ev_watcher *)(w))->e_flags |
… | |
… | |
518 | evapi.invoke = ev_invoke; |
518 | evapi.invoke = ev_invoke; |
519 | |
519 | |
520 | sv_setiv (sv, (IV)&evapi); |
520 | sv_setiv (sv, (IV)&evapi); |
521 | SvREADONLY_on (sv); |
521 | SvREADONLY_on (sv); |
522 | } |
522 | } |
523 | #if !defined(_WIN32) && !defined(_MINIX) |
523 | #if !defined _WIN32 && !defined _MINIX |
524 | pthread_atfork (0, 0, default_fork); |
524 | pthread_atfork (0, 0, default_fork); |
525 | #endif |
525 | #endif |
526 | } |
526 | } |
527 | |
527 | |
528 | SV *ev_default_loop (unsigned int flags = 0) |
528 | SV *ev_default_loop (unsigned int flags = 0) |