--- EV/EV.xs 2007/11/02 22:18:49 1.43 +++ EV/EV.xs 2007/11/06 12:36:25 1.55 @@ -7,10 +7,21 @@ #define EV_PROTOTYPES 1 #include "EV/EVAPI.h" +/* due to bugs in OS X we have to use libev/ explicitly here */ #include "libev/ev.c" -#include "libev/event.h" -#include "libev/event.c" -#include "libev/evdns.c" +#include "event.c" +#define DNS_USE_GETTIMEOFDAY_FOR_ID 1 +#if !defined (WIN32) && !defined(__CYGWIN__) +# define HAVE_STRUCT_IN6_ADDR 1 +#endif +#undef HAVE_STRTOK_R +#undef strtok_r +#define strtok_r fake_strtok_r +#include "evdns.c" + +#ifndef WIN32 +# include +#endif typedef int Signal; @@ -140,9 +151,6 @@ PUSHs (sv_self); PUSHs (sv_events); - if (revents & EV_CHILD) - XPUSHs (sv_status = newSViv (((struct ev_child *)w)->status)); - PUTBACK; call_sv (w->cb_sv, G_DISCARD | G_VOID | G_EVAL); SP = PL_stack_base + mark; PUTBACK; @@ -287,9 +295,9 @@ evapi.rev = EV_API_REVISION; evapi.sv_fileno = sv_fileno; evapi.sv_signum = sv_signum; - evapi.now = &ev_now; - evapi.method = &ev_method; - evapi.loop_done = &ev_loop_done; + evapi.now = ev_now; + evapi.method = ev_method; + evapi.unloop = ev_unloop; evapi.time = ev_time; evapi.loop = ev_loop; evapi.once = ev_once; @@ -315,30 +323,22 @@ SvREADONLY_on (sv); } - pthread_atfork (ev_fork_prepare, ev_fork_parent, ev_fork_child); + #ifndef WIN32 + pthread_atfork (0, 0, ev_default_fork); + #endif } NV ev_now () - CODE: - RETVAL = ev_now; - OUTPUT: - RETVAL int ev_method () - CODE: - RETVAL = ev_method; - OUTPUT: - RETVAL NV ev_time () -void ev_init (int methods = EVMETHOD_AUTO) +int ev_default_loop (int methods = EVMETHOD_AUTO) void ev_loop (int flags = 0) -void ev_loop_done (int value = 1) - CODE: - ev_loop_done = value; +void ev_unloop (int how = 1) struct ev_io *io (SV *fh, int events, SV *cb) ALIAS: @@ -424,7 +424,7 @@ ALIAS: check_ns = 1 CODE: - RETVAL = e_new (sizeof (struct ev_check), cb); + RETVAL = e_new (sizeof (struct ev_child), cb); ev_child_set (RETVAL, pid); if (!ix) ev_child_start (RETVAL); OUTPUT: @@ -591,8 +591,6 @@ OUTPUT: RETVAL -MODULE = EV PACKAGE = EV::Time - MODULE = EV PACKAGE = EV::Timer PREFIX = ev_timer_ void ev_timer_start (struct ev_timer *w) @@ -721,9 +719,11 @@ RETVAL -int status (struct ev_child *w) +int rstatus (struct ev_child *w) + ALIAS: + rpid = 1 CODE: - RETVAL = w->status; + RETVAL = ix ? w->rpid : w->rstatus; OUTPUT: RETVAL