--- cvsroot/EV/EV.xs	2007/11/03 21:58:51	1.47
+++ cvsroot/EV/EV.xs	2007/11/23 05:00:44	1.73
@@ -5,18 +5,37 @@
 /*#include <netinet/in.h>*/
 
 #define EV_PROTOTYPES 1
-#define EV_STANDALONE 1
 #include "EV/EVAPI.h"
 
+/* fix perl api breakage */
+#undef signal
+#undef sigaction
+
+#define EV_SELECT_IS_WINSOCKET 0
+#ifdef _WIN32
+# define EV_SELECT_USE_FD_SET 0
+# define NFDBITS PERL_NFDBITS
+# define fd_mask Perl_fd_mask
+#endif
+/* 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 "event.c"
+
+#ifndef _WIN32
 #define DNS_USE_GETTIMEOFDAY_FOR_ID 1
-#define HAVE_STRUCT_IN6_ADDR 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 "libev/evdns.c"
+#include "evdns.h"
+#include "evdns.c"
+#endif
+
+#ifndef _WIN32
+# include <pthread.h>
+#endif
 
 typedef int Signal;
 
@@ -88,8 +107,9 @@
 
   w = (struct ev_watcher *)SvPVX (self);
 
-  ev_watcher_init (w, e_cb);
+  ev_init (w, e_cb);
 
+  w->data  = 0;
   w->fh    = 0;
   w->cb_sv = newSVsv (cb_sv);
   w->self  = self;
@@ -97,13 +117,14 @@
   return (void *)w;
 }
 
-static void *
+static void
 e_destroy (void *w_)
 {
-  struct ev_watcher *w = w_;
+  struct ev_watcher *w = (struct ev_watcher *)w_;
 
   SvREFCNT_dec (w->fh   ); w->fh    = 0;
   SvREFCNT_dec (w->cb_sv); w->cb_sv = 0;
+  SvREFCNT_dec (w->data ); w->data  = 0;
 }
 
 static SV *
@@ -148,7 +169,6 @@
 
   PUTBACK;
   call_sv (w->cb_sv, G_DISCARD | G_VOID | G_EVAL);
-  SP = PL_stack_base + mark; PUTBACK;
 
   SvREFCNT_dec (sv_self);
   SvREFCNT_dec (sv_status);
@@ -163,13 +183,59 @@
       PUSHMARK (SP);
       PUTBACK;
       call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR);
-      SP = PL_stack_base + mark; PUTBACK;
     }
+
+  SP = PL_stack_base + mark;
+  PUTBACK;
+}
+
+static ev_tstamp
+e_periodic_cb (struct ev_periodic *w, ev_tstamp now)
+{
+  ev_tstamp retval;
+  int count;
+  dSP;
+
+  ENTER;
+  SAVETMPS;
+
+  PUSHMARK (SP);
+  EXTEND (SP, 2);
+  PUSHs (newRV_inc (w->self)); /* w->self MUST be blessed by now */
+  PUSHs (newSVnv (now));
+
+  PUTBACK;
+  count = call_sv (w->fh, G_SCALAR | G_EVAL);
+  SPAGAIN;
+
+  if (SvTRUE (ERRSV))
+    {
+      PUSHMARK (SP);
+      PUTBACK;
+      call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR);
+      SPAGAIN;
+    }
+
+  if (count > 0)
+    {
+      retval = SvNV (TOPs);
+
+      if (retval < now)
+        retval = now;
+    }
+  else
+    retval = now;
+
+  FREETMPS;
+  LEAVE;
+
+  return retval;
 }
 
 /////////////////////////////////////////////////////////////////////////////
 // DNS
 
+#ifndef _WIN32
 static void
 dns_cb (int result, char type, int count, int ttl, void *addresses, void *arg)
 {
@@ -218,6 +284,7 @@
 
   LEAVE;
 }
+#endif
 
 #define CHECK_REPEAT(repeat) if (repeat < 0.) \
   croak (# repeat " value must be >= 0");
@@ -234,7 +301,6 @@
 
 BOOT:
 {
-  int i;
   HV *stash = gv_stashpv ("EV", 1);
 
   static const struct {
@@ -257,15 +323,17 @@
 
     const_iv (EV, LOOP_ONESHOT)
     const_iv (EV, LOOP_NONBLOCK)
+    const_iv (EV, UNLOOP_ONE)
+    const_iv (EV, UNLOOP_ALL)
 
-    const_iv (EV, METHOD_AUTO)
-    const_iv (EV, METHOD_SELECT)
-    const_iv (EV, METHOD_POLL)
-    const_iv (EV, METHOD_EPOLL)
-    const_iv (EV, METHOD_KQUEUE)
-    const_iv (EV, METHOD_DEVPOLL)
-    const_iv (EV, METHOD_PORT)
-    const_iv (EV, METHOD_ANY)
+    const_iv (EV, BACKEND_SELECT)
+    const_iv (EV, BACKEND_POLL)
+    const_iv (EV, BACKEND_EPOLL)
+    const_iv (EV, BACKEND_KQUEUE)
+    const_iv (EV, BACKEND_DEVPOLL)
+    const_iv (EV, BACKEND_PORT)
+    const_iv (EV, FLAG_AUTO)
+    const_iv (EV, FLAG_NOENV)
   };
 
   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
@@ -291,7 +359,7 @@
     evapi.sv_fileno      = sv_fileno;
     evapi.sv_signum      = sv_signum;
     evapi.now            = ev_now;
-    evapi.method         = ev_method;
+    evapi.backend        = ev_backend;
     evapi.unloop         = ev_unloop;
     evapi.time           = ev_time;
     evapi.loop           = ev_loop;
@@ -317,8 +385,9 @@
     sv_setiv (sv, (IV)&evapi);
     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 ()
@@ -327,7 +396,7 @@
 
 NV ev_time ()
 
-int ev_init (int methods = EVMETHOD_AUTO)
+int ev_default_loop (int methods = ev_supported_methods ())
 
 void ev_loop (int flags = 0)
 
@@ -361,15 +430,20 @@
 	OUTPUT:
         RETVAL
 
-struct ev_periodic *periodic (NV at, NV interval, SV *cb)
+SV *periodic (NV at, NV interval, SV *reschedule_cb, SV *cb)
 	ALIAS:
         periodic_ns = 1
         INIT:
         CHECK_REPEAT (interval);
 	CODE:
-        RETVAL = e_new (sizeof (struct ev_periodic), cb);
-        ev_periodic_set (RETVAL, at, interval);
-        if (!ix) ev_periodic_start (RETVAL);
+{
+  	struct ev_periodic *w;
+        w = e_new (sizeof (struct ev_periodic), cb);
+        w->fh = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
+        ev_periodic_set (w, at, interval, w->fh ? e_periodic_cb : 0);
+        RETVAL = e_bless ((struct ev_watcher *)w, stash_periodic);
+        if (!ix) ev_periodic_start (w);
+}
 	OUTPUT:
         RETVAL
 
@@ -415,7 +489,7 @@
 
 struct ev_child *child (int pid, SV *cb)
 	ALIAS:
-        check_ns = 1
+        child_ns = 1
 	CODE:
         RETVAL = e_new (sizeof (struct ev_child), cb);
         ev_child_set (RETVAL, pid);
@@ -441,6 +515,14 @@
 	OUTPUT:
         RETVAL
 
+SV *data (struct ev_watcher *w, SV *new_data = 0)
+	CODE:
+{
+	RETVAL = w->data ? newSVsv (w->data) : &PL_sv_undef;
+}
+	OUTPUT:
+        RETVAL
+
 void trigger (struct ev_watcher *w, int revents = EV_NONE)
 	CODE:
         w->cb (w, revents);
@@ -584,8 +666,6 @@
 	OUTPUT:
         RETVAL
 
-MODULE = EV		PACKAGE = EV::Time
-
 MODULE = EV		PACKAGE = EV::Timer	PREFIX = ev_timer_
 
 void ev_timer_start (struct ev_timer *w)
@@ -622,12 +702,14 @@
 
 void ev_periodic_stop (struct ev_periodic *w)
 
+void ev_periodic_again (struct ev_periodic *w)
+
 void DESTROY (struct ev_periodic *w)
 	CODE:
         ev_periodic_stop (w);
         e_destroy (w);
 
-void set (struct ev_periodic *w, NV at, NV interval = 0.)
+void set (struct ev_periodic *w, NV at, NV interval = 0., SV *reschedule_cb = &PL_sv_undef)
         INIT:
         CHECK_REPEAT (interval);
 	CODE:
@@ -635,7 +717,9 @@
         int active = ev_is_active (w);
         if (active) ev_periodic_stop (w);
 
-        ev_periodic_set (w, at, interval);
+        SvREFCNT_dec (w->fh);
+        w->fh = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
+        ev_periodic_set (w, at, interval, w->fh ? e_periodic_cb : 0);
 
         if (active) ev_periodic_start (w);
 }
@@ -722,6 +806,8 @@
 	OUTPUT:
         RETVAL
 
+#ifndef _WIN32
+
 MODULE = EV		PACKAGE = EV::DNS	PREFIX = evdns_
 
 BOOT:
@@ -801,7 +887,7 @@
 
 int evdns_resolv_conf_parse (int flags, const char *filename)
 
-#ifdef MS_WINDOWS
+#ifdef _WIN32
 
 int evdns_config_windows_nameservers ()
 
@@ -855,6 +941,7 @@
 
 #endif
 
+#endif