--- EV/EV.xs	2007/12/21 04:41:12	1.97
+++ EV/EV.xs	2007/12/21 05:10:01	1.98
@@ -1117,7 +1117,7 @@
 	OUTPUT:
         RETVAL
 
-MODULE = EV		PACKAGE = EV::Loop	PREFIX = ev_loop_
+MODULE = EV		PACKAGE = EV::Loop	PREFIX = ev_
 
 SV *new (SV *klass, unsigned int flags = 0)
 	CODE:
@@ -1137,6 +1137,33 @@
         if (loop != evapi.default_loop) /* global destruction sucks */
           ev_loop_destroy (loop);
 
+void ev_loop_fork (struct ev_loop *loop)
+
+NV ev_now (struct ev_loop *loop)
+
+unsigned int ev_backend (struct ev_loop *loop)
+
+unsigned int ev_loop_count (struct ev_loop *loop)
+
+void ev_loop (struct ev_loop *loop, int flags = 0)
+
+void ev_unloop (struct ev_loop *loop, int how = 1)
+
+void ev_feed_fd_event (struct ev_loop *loop, int fd, int revents = EV_NONE)
+
+#if 0
+
+void ev_feed_signal_event (struct ev_loop *loop, SV *signal)
+	CODE:
+{
+  	Signal signum = sv_signum (signal);
+        CHECK_SIG (signal, signum);
+
+        ev_feed_signal_event (loop, signum);
+}
+
+#endif
+
 ev_io *io (struct ev_loop *loop, SV *fh, int events, SV *cb)
 	ALIAS:
         io_ns = 1
@@ -1153,3 +1180,141 @@
 	OUTPUT:
         RETVAL
 
+ev_timer *timer (struct ev_loop *loop, NV after, NV repeat, SV *cb)
+	ALIAS:
+        timer_ns = 1
+        INIT:
+        CHECK_REPEAT (repeat);
+	CODE:
+        RETVAL = e_new (sizeof (ev_timer), cb, ST (0));
+        ev_timer_set (RETVAL, after, repeat);
+        if (!ix) START (timer, RETVAL);
+	OUTPUT:
+        RETVAL
+
+SV *periodic (struct ev_loop *loop, NV at, NV interval, SV *reschedule_cb, SV *cb)
+	ALIAS:
+        periodic_ns = 1
+        INIT:
+        CHECK_REPEAT (interval);
+	CODE:
+{
+  	ev_periodic *w;
+        w = e_new (sizeof (ev_periodic), cb, ST (0));
+        w->fh = SvTRUE (reschedule_cb) ? newSVsv (reschedule_cb) : 0;
+        ev_periodic_set (w, at, interval, w->fh ? e_periodic_cb : 0);
+        RETVAL = e_bless ((ev_watcher *)w, stash_periodic);
+        if (!ix) START (periodic, w);
+}
+	OUTPUT:
+        RETVAL
+
+#if 0
+
+ev_signal *signal (struct ev_loop *loop, SV *signal, SV *cb)
+	ALIAS:
+        signal_ns = 1
+	CODE:
+{
+  	Signal signum = sv_signum (signal);
+        CHECK_SIG (signal, signum);
+
+        RETVAL = e_new (sizeof (ev_signal), cb, ST (0));
+        ev_signal_set (RETVAL, signum);
+        if (!ix) START (signal, RETVAL);
+}
+	OUTPUT:
+        RETVAL
+
+#endif
+
+ev_idle *idle (struct ev_loop *loop, SV *cb)
+	ALIAS:
+        idle_ns = 1
+	CODE:
+        RETVAL = e_new (sizeof (ev_idle), cb, ST (0));
+        ev_idle_set (RETVAL);
+        if (!ix) START (idle, RETVAL);
+	OUTPUT:
+        RETVAL
+
+ev_prepare *prepare (struct ev_loop *loop, SV *cb)
+	ALIAS:
+        prepare_ns = 1
+	CODE:
+        RETVAL = e_new (sizeof (ev_prepare), cb, ST (0));
+        ev_prepare_set (RETVAL);
+        if (!ix) START (prepare, RETVAL);
+	OUTPUT:
+        RETVAL
+
+ev_check *check (struct ev_loop *loop, SV *cb)
+	ALIAS:
+        check_ns = 1
+	CODE:
+        RETVAL = e_new (sizeof (ev_check), cb, ST (0));
+        ev_check_set (RETVAL);
+        if (!ix) START (check, RETVAL);
+	OUTPUT:
+        RETVAL
+
+ev_fork *fork (struct ev_loop *loop, SV *cb)
+	ALIAS:
+        fork_ns = 1
+	CODE:
+        RETVAL = e_new (sizeof (ev_fork), cb, ST (0));
+        ev_fork_set (RETVAL);
+        if (!ix) START (fork, RETVAL);
+	OUTPUT:
+        RETVAL
+
+ev_child *child (struct ev_loop *loop, int pid, SV *cb)
+	ALIAS:
+        child_ns = 1
+	CODE:
+        RETVAL = e_new (sizeof (ev_child), cb, ST (0));
+        ev_child_set (RETVAL, pid);
+        if (!ix) START (child, RETVAL);
+	OUTPUT:
+        RETVAL
+
+ev_stat *stat (struct ev_loop *loop, SV *path, NV interval, SV *cb)
+	ALIAS:
+        stat_ns = 1
+	CODE:
+        RETVAL = e_new (sizeof (ev_stat), cb, ST (0));
+        RETVAL->fh = newSVsv (path);
+        ev_stat_set (RETVAL, SvPVbyte_nolen (RETVAL->fh), interval);
+        if (!ix) START (stat, RETVAL);
+	OUTPUT:
+        RETVAL
+
+ev_embed *embed (struct ev_loop *loop, struct ev_loop *other, SV *cb = &PL_sv_undef)
+	ALIAS:
+        embed_ns = 1
+	CODE:
+{
+        if (!(ev_backend (other) & ev_embeddable_backends ()))
+          croak ("passed loop is not embeddable via EV::embed,");
+
+        RETVAL = e_new (sizeof (ev_embed), cb, ST (0));
+        RETVAL->fh = newSVsv (ST (1));
+        ev_embed_set (RETVAL, other);
+
+        if (!SvOK (cb)) ev_set_cb (RETVAL, 0);
+
+        if (!ix) START (embed, RETVAL);
+}
+	OUTPUT:
+        RETVAL
+
+void once (struct ev_loop *loop, SV *fh, int events, SV *timeout, SV *cb)
+	CODE:
+        ev_once (
+           loop,
+           sv_fileno (fh), events,
+           SvOK (timeout) ? SvNV (timeout) : -1.,
+           e_once_cb,
+           newSVsv (cb)
+        );
+