| … | |
… | |
| 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) |
