… | |
… | |
5 | /* fix perl api breakage */ |
5 | /* fix perl api breakage */ |
6 | #undef signal |
6 | #undef signal |
7 | #undef sigaction |
7 | #undef sigaction |
8 | |
8 | |
9 | #include "schmorp.h" |
9 | #include "schmorp.h" |
|
|
10 | |
|
|
11 | /* old API compatibility */ |
|
|
12 | static int |
|
|
13 | sv_fileno (SV *fh) |
|
|
14 | { |
|
|
15 | return s_fileno (fh, 0); |
|
|
16 | } |
10 | |
17 | |
11 | #define EV_PROTOTYPES 1 |
18 | #define EV_PROTOTYPES 1 |
12 | #define EV_USE_NANOSLEEP EV_USE_MONOTONIC |
19 | #define EV_USE_NANOSLEEP EV_USE_MONOTONIC |
13 | #define EV_H <ev.h> |
20 | #define EV_H <ev.h> |
14 | #include "EV/EVAPI.h" |
21 | #include "EV/EVAPI.h" |
… | |
… | |
389 | perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */ |
396 | perl_get_sv ("EV::API", TRUE); /* silence 5.10 warning */ |
390 | |
397 | |
391 | /* the poor man's shared library emulator */ |
398 | /* the poor man's shared library emulator */ |
392 | evapi.ver = EV_API_VERSION; |
399 | evapi.ver = EV_API_VERSION; |
393 | evapi.rev = EV_API_REVISION; |
400 | evapi.rev = EV_API_REVISION; |
394 | evapi.sv_fileno = s_fileno; |
401 | evapi.sv_fileno = sv_fileno; |
395 | evapi.sv_signum = s_signum; |
402 | evapi.sv_signum = s_signum; |
396 | evapi.supported_backends = ev_supported_backends (); |
403 | evapi.supported_backends = ev_supported_backends (); |
397 | evapi.recommended_backends = ev_recommended_backends (); |
404 | evapi.recommended_backends = ev_recommended_backends (); |
398 | evapi.embeddable_backends = ev_embeddable_backends (); |
405 | evapi.embeddable_backends = ev_embeddable_backends (); |
399 | evapi.time_ = ev_time; |
406 | evapi.time_ = ev_time; |