| … | |
… | |
| 2 | #include "perl.h" |
2 | #include "perl.h" |
| 3 | #include "XSUB.h" |
3 | #include "XSUB.h" |
| 4 | |
4 | |
| 5 | /*#include <netinet/in.h>*/ |
5 | /*#include <netinet/in.h>*/ |
| 6 | |
6 | |
| 7 | #define TIMEOUT_NONE HUGE_VAL |
|
|
| 8 | |
|
|
| 9 | #define EV_PROTOTYPES 1 |
7 | #define EV_PROTOTYPES 1 |
| 10 | #include "EV/EVAPI.h" |
8 | #include "EV/EVAPI.h" |
| 11 | |
9 | |
| 12 | #include "libev/ev.c" |
10 | #include "libev/ev.c" |
| 13 | #include "libev/event.h" |
11 | #include "libev/event.h" |
| 14 | #include "libev/event.c" |
12 | #include "libev/event.c" |
| 15 | |
|
|
| 16 | #define DNS_USE_GETTIMEOFDAY_FOR_ID 1 |
|
|
| 17 | #define HAVE_STRUCT_IN6_ADDR 1 |
|
|
| 18 | #define HAVE_STRTOK_R 1 |
|
|
| 19 | #include "libev/evdns.c" |
13 | #include "libev/evdns.c" |
| 20 | |
14 | |
| 21 | typedef int Signal; |
15 | typedef int Signal; |
| 22 | |
16 | |
| 23 | static struct EVAPI evapi; |
17 | static struct EVAPI evapi; |
| … | |
… | |
| 487 | } |
481 | } |
| 488 | } |
482 | } |
| 489 | OUTPUT: |
483 | OUTPUT: |
| 490 | RETVAL |
484 | RETVAL |
| 491 | |
485 | |
| 492 | short events (struct ev_io *w, short new_events = EV_UNDEF) |
486 | int events (struct ev_io *w, int new_events = EV_UNDEF) |
| 493 | CODE: |
487 | CODE: |
| 494 | { |
488 | { |
| 495 | RETVAL = w->events; |
489 | RETVAL = w->events; |
| 496 | |
490 | |
| 497 | if (items > 1) |
491 | if (items > 1) |
