… | |
… | |
3 | #include "XSUB.h" |
3 | #include "XSUB.h" |
4 | |
4 | |
5 | /*#include <netinet/in.h>*/ |
5 | /*#include <netinet/in.h>*/ |
6 | |
6 | |
7 | #define EV_PROTOTYPES 1 |
7 | #define EV_PROTOTYPES 1 |
8 | #define EV_STANDALONE 1 |
|
|
9 | #include "EV/EVAPI.h" |
8 | #include "EV/EVAPI.h" |
10 | |
9 | |
11 | #include "libev/ev.c" |
10 | #include "ev.c" |
12 | #include "libev/event.h" |
|
|
13 | #include "libev/event.c" |
11 | #include "event.c" |
14 | #define DNS_USE_GETTIMEOFDAY_FOR_ID 1 |
12 | #define DNS_USE_GETTIMEOFDAY_FOR_ID 1 |
15 | #define HAVE_STRUCT_IN6_ADDR 1 |
13 | #define HAVE_STRUCT_IN6_ADDR 1 |
16 | #undef HAVE_STRTOK_R |
14 | #undef HAVE_STRTOK_R |
17 | #undef strtok_r |
15 | #undef strtok_r |
18 | #define strtok_r fake_strtok_r |
16 | #define strtok_r fake_strtok_r |
19 | #include "libev/evdns.c" |
17 | #include "evdns.c" |
20 | |
18 | |
21 | typedef int Signal; |
19 | typedef int Signal; |
22 | |
20 | |
23 | static struct EVAPI evapi; |
21 | static struct EVAPI evapi; |
24 | |
22 | |
… | |
… | |
316 | |
314 | |
317 | sv_setiv (sv, (IV)&evapi); |
315 | sv_setiv (sv, (IV)&evapi); |
318 | SvREADONLY_on (sv); |
316 | SvREADONLY_on (sv); |
319 | } |
317 | } |
320 | |
318 | |
321 | pthread_atfork (ev_fork_prepare, ev_fork_parent, ev_fork_child); |
319 | pthread_atfork (0, 0, ev_default_fork); |
322 | } |
320 | } |
323 | |
321 | |
324 | NV ev_now () |
322 | NV ev_now () |
325 | |
323 | |
326 | int ev_method () |
324 | int ev_method () |
327 | |
325 | |
328 | NV ev_time () |
326 | NV ev_time () |
329 | |
327 | |
330 | int ev_init (int methods = EVMETHOD_AUTO) |
328 | int ev_default_loop (int methods = EVMETHOD_AUTO) |
331 | |
329 | |
332 | void ev_loop (int flags = 0) |
330 | void ev_loop (int flags = 0) |
333 | |
331 | |
334 | void ev_unloop (int how = 1) |
332 | void ev_unloop (int how = 1) |
335 | |
333 | |
… | |
… | |
581 | if (active) ev_signal_start (w); |
579 | if (active) ev_signal_start (w); |
582 | } |
580 | } |
583 | } |
581 | } |
584 | OUTPUT: |
582 | OUTPUT: |
585 | RETVAL |
583 | RETVAL |
586 | |
|
|
587 | MODULE = EV PACKAGE = EV::Time |
|
|
588 | |
584 | |
589 | MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_ |
585 | MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_ |
590 | |
586 | |
591 | void ev_timer_start (struct ev_timer *w) |
587 | void ev_timer_start (struct ev_timer *w) |
592 | INIT: |
588 | INIT: |