ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/libev/ev.c
(Generate patch)

Comparing libev/ev.c (file contents):
Revision 1.82 by root, Fri Nov 9 20:55:09 2007 UTC vs.
Revision 1.134 by root, Fri Nov 23 19:13:33 2007 UTC

26 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 26 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
27 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 27 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
28 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 28 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 29 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30 */ 30 */
31
32#ifdef __cplusplus
33extern "C" {
34#endif
35
31#ifndef EV_STANDALONE 36#ifndef EV_STANDALONE
37# ifdef EV_CONFIG_H
38# include EV_CONFIG_H
39# else
32# include "config.h" 40# include "config.h"
41# endif
33 42
34# if HAVE_CLOCK_GETTIME 43# if HAVE_CLOCK_GETTIME
44# ifndef EV_USE_MONOTONIC
35# define EV_USE_MONOTONIC 1 45# define EV_USE_MONOTONIC 1
46# endif
47# ifndef EV_USE_REALTIME
36# define EV_USE_REALTIME 1 48# define EV_USE_REALTIME 1
49# endif
50# else
51# ifndef EV_USE_MONOTONIC
52# define EV_USE_MONOTONIC 0
53# endif
54# ifndef EV_USE_REALTIME
55# define EV_USE_REALTIME 0
56# endif
37# endif 57# endif
38 58
59# ifndef EV_USE_SELECT
39# if HAVE_SELECT && HAVE_SYS_SELECT_H 60# if HAVE_SELECT && HAVE_SYS_SELECT_H
40# define EV_USE_SELECT 1 61# define EV_USE_SELECT 1
62# else
63# define EV_USE_SELECT 0
64# endif
41# endif 65# endif
42 66
67# ifndef EV_USE_POLL
43# if HAVE_POLL && HAVE_POLL_H 68# if HAVE_POLL && HAVE_POLL_H
44# define EV_USE_POLL 1 69# define EV_USE_POLL 1
70# else
71# define EV_USE_POLL 0
72# endif
45# endif 73# endif
46 74
75# ifndef EV_USE_EPOLL
47# if HAVE_EPOLL && HAVE_EPOLL_CTL && HAVE_SYS_EPOLL_H 76# if HAVE_EPOLL_CTL && HAVE_SYS_EPOLL_H
48# define EV_USE_EPOLL 1 77# define EV_USE_EPOLL 1
78# else
79# define EV_USE_EPOLL 0
80# endif
49# endif 81# endif
50 82
83# ifndef EV_USE_KQUEUE
51# if HAVE_KQUEUE && HAVE_WORKING_KQUEUE && HAVE_SYS_EVENT_H && HAVE_SYS_QUEUE_H 84# if HAVE_KQUEUE && HAVE_SYS_EVENT_H && HAVE_SYS_QUEUE_H
52# define EV_USE_KQUEUE 1 85# define EV_USE_KQUEUE 1
86# else
87# define EV_USE_KQUEUE 0
88# endif
89# endif
90
91# ifndef EV_USE_PORT
92# if HAVE_PORT_H && HAVE_PORT_CREATE
93# define EV_USE_PORT 1
94# else
95# define EV_USE_PORT 0
96# endif
53# endif 97# endif
54 98
55#endif 99#endif
56 100
57#include <math.h> 101#include <math.h>
66#include <sys/types.h> 110#include <sys/types.h>
67#include <time.h> 111#include <time.h>
68 112
69#include <signal.h> 113#include <signal.h>
70 114
71#ifndef WIN32 115#ifndef _WIN32
72# include <unistd.h> 116# include <unistd.h>
73# include <sys/time.h> 117# include <sys/time.h>
74# include <sys/wait.h> 118# include <sys/wait.h>
119#else
120# define WIN32_LEAN_AND_MEAN
121# include <windows.h>
122# ifndef EV_SELECT_IS_WINSOCKET
123# define EV_SELECT_IS_WINSOCKET 1
75#endif 124# endif
125#endif
126
76/**/ 127/**/
77 128
78#ifndef EV_USE_MONOTONIC 129#ifndef EV_USE_MONOTONIC
79# define EV_USE_MONOTONIC 1 130# define EV_USE_MONOTONIC 0
131#endif
132
133#ifndef EV_USE_REALTIME
134# define EV_USE_REALTIME 0
80#endif 135#endif
81 136
82#ifndef EV_USE_SELECT 137#ifndef EV_USE_SELECT
83# define EV_USE_SELECT 1 138# define EV_USE_SELECT 1
84#endif 139#endif
85 140
86#ifndef EV_USE_POLL 141#ifndef EV_USE_POLL
87# define EV_USE_POLL 0 /* poll is usually slower than select, and not as well tested */ 142# ifdef _WIN32
143# define EV_USE_POLL 0
144# else
145# define EV_USE_POLL 1
146# endif
88#endif 147#endif
89 148
90#ifndef EV_USE_EPOLL 149#ifndef EV_USE_EPOLL
91# define EV_USE_EPOLL 0 150# define EV_USE_EPOLL 0
92#endif 151#endif
93 152
94#ifndef EV_USE_KQUEUE 153#ifndef EV_USE_KQUEUE
95# define EV_USE_KQUEUE 0 154# define EV_USE_KQUEUE 0
96#endif 155#endif
97 156
98#ifndef EV_USE_WIN32
99# ifdef WIN32
100# define EV_USE_WIN32 0 /* it does not exist, use select */
101# undef EV_USE_SELECT
102# define EV_USE_SELECT 1
103# else
104# define EV_USE_WIN32 0
105# endif
106#endif
107
108#ifndef EV_USE_REALTIME 157#ifndef EV_USE_PORT
109# define EV_USE_REALTIME 1 158# define EV_USE_PORT 0
110#endif 159#endif
111 160
112/**/ 161/**/
113 162
114#ifndef CLOCK_MONOTONIC 163#ifndef CLOCK_MONOTONIC
119#ifndef CLOCK_REALTIME 168#ifndef CLOCK_REALTIME
120# undef EV_USE_REALTIME 169# undef EV_USE_REALTIME
121# define EV_USE_REALTIME 0 170# define EV_USE_REALTIME 0
122#endif 171#endif
123 172
173#if EV_SELECT_IS_WINSOCKET
174# include <winsock.h>
175#endif
176
124/**/ 177/**/
125 178
126#define MIN_TIMEJUMP 1. /* minimum timejump that gets detected (if monotonic clock available) */ 179#define MIN_TIMEJUMP 1. /* minimum timejump that gets detected (if monotonic clock available) */
127#define MAX_BLOCKTIME 59.731 /* never wait longer than this time (to detect time jumps) */ 180#define MAX_BLOCKTIME 59.743 /* never wait longer than this time (to detect time jumps) */
128#define PID_HASHSIZE 16 /* size of pid hash table, must be power of two */ 181#define PID_HASHSIZE 16 /* size of pid hash table, must be power of two */
129/*#define CLEANUP_INTERVAL 300. /* how often to try to free memory and re-check fds */ 182/*#define CLEANUP_INTERVAL (MAX_BLOCKTIME * 5.) /* how often to try to free memory and re-check fds */
130 183
131#ifdef EV_H 184#ifdef EV_H
132# include EV_H 185# include EV_H
133#else 186#else
134# include "ev.h" 187# include "ev.h"
135#endif 188#endif
136 189
137#if __GNUC__ >= 3 190#if __GNUC__ >= 3
138# define expect(expr,value) __builtin_expect ((expr),(value)) 191# define expect(expr,value) __builtin_expect ((expr),(value))
139# define inline inline 192# define inline static inline
140#else 193#else
141# define expect(expr,value) (expr) 194# define expect(expr,value) (expr)
142# define inline static 195# define inline static
143#endif 196#endif
144 197
146#define expect_true(expr) expect ((expr) != 0, 1) 199#define expect_true(expr) expect ((expr) != 0, 1)
147 200
148#define NUMPRI (EV_MAXPRI - EV_MINPRI + 1) 201#define NUMPRI (EV_MAXPRI - EV_MINPRI + 1)
149#define ABSPRI(w) ((w)->priority - EV_MINPRI) 202#define ABSPRI(w) ((w)->priority - EV_MINPRI)
150 203
204#define EMPTY0 /* required for microsofts broken pseudo-c compiler */
205#define EMPTY2(a,b) /* used to suppress some warnings */
206
151typedef struct ev_watcher *W; 207typedef struct ev_watcher *W;
152typedef struct ev_watcher_list *WL; 208typedef struct ev_watcher_list *WL;
153typedef struct ev_watcher_time *WT; 209typedef struct ev_watcher_time *WT;
154 210
155static int have_monotonic; /* did clock_gettime (CLOCK_MONOTONIC) work? */ 211static int have_monotonic; /* did clock_gettime (CLOCK_MONOTONIC) work? */
156 212
213#ifdef _WIN32
157#include "ev_win32.c" 214# include "ev_win32.c"
215#endif
158 216
159/*****************************************************************************/ 217/*****************************************************************************/
160 218
161static void (*syserr_cb)(const char *msg); 219static void (*syserr_cb)(const char *msg);
162 220
209typedef struct 267typedef struct
210{ 268{
211 WL head; 269 WL head;
212 unsigned char events; 270 unsigned char events;
213 unsigned char reify; 271 unsigned char reify;
272#if EV_SELECT_IS_WINSOCKET
273 SOCKET handle;
274#endif
214} ANFD; 275} ANFD;
215 276
216typedef struct 277typedef struct
217{ 278{
218 W w; 279 W w;
221 282
222#if EV_MULTIPLICITY 283#if EV_MULTIPLICITY
223 284
224 struct ev_loop 285 struct ev_loop
225 { 286 {
287 ev_tstamp ev_rt_now;
288 #define ev_rt_now ((loop)->ev_rt_now)
226 #define VAR(name,decl) decl; 289 #define VAR(name,decl) decl;
227 #include "ev_vars.h" 290 #include "ev_vars.h"
228 #undef VAR 291 #undef VAR
229 }; 292 };
230 #include "ev_wrap.h" 293 #include "ev_wrap.h"
231 294
232 struct ev_loop default_loop_struct; 295 static struct ev_loop default_loop_struct;
233 static struct ev_loop *default_loop; 296 struct ev_loop *ev_default_loop_ptr;
234 297
235#else 298#else
236 299
300 ev_tstamp ev_rt_now;
237 #define VAR(name,decl) static decl; 301 #define VAR(name,decl) static decl;
238 #include "ev_vars.h" 302 #include "ev_vars.h"
239 #undef VAR 303 #undef VAR
240 304
241 static int default_loop; 305 static int ev_default_loop_ptr;
242 306
243#endif 307#endif
244 308
245/*****************************************************************************/ 309/*****************************************************************************/
246 310
247inline ev_tstamp 311ev_tstamp
248ev_time (void) 312ev_time (void)
249{ 313{
250#if EV_USE_REALTIME 314#if EV_USE_REALTIME
251 struct timespec ts; 315 struct timespec ts;
252 clock_gettime (CLOCK_REALTIME, &ts); 316 clock_gettime (CLOCK_REALTIME, &ts);
271#endif 335#endif
272 336
273 return ev_time (); 337 return ev_time ();
274} 338}
275 339
340#if EV_MULTIPLICITY
276ev_tstamp 341ev_tstamp
277ev_now (EV_P) 342ev_now (EV_P)
278{ 343{
279 return rt_now; 344 return ev_rt_now;
280} 345}
346#endif
281 347
282#define array_roundsize(type,n) ((n) | 4 & ~3) 348#define array_roundsize(type,n) (((n) | 4) & ~3)
283 349
284#define array_needsize(type,base,cur,cnt,init) \ 350#define array_needsize(type,base,cur,cnt,init) \
285 if (expect_false ((cnt) > cur)) \ 351 if (expect_false ((cnt) > cur)) \
286 { \ 352 { \
287 int newcnt = cur; \ 353 int newcnt = cur; \
302 stem ## max = array_roundsize (stem ## cnt >> 1); \ 368 stem ## max = array_roundsize (stem ## cnt >> 1); \
303 base = (type *)ev_realloc (base, sizeof (type) * (stem ## max));\ 369 base = (type *)ev_realloc (base, sizeof (type) * (stem ## max));\
304 fprintf (stderr, "slimmed down " # stem " to %d\n", stem ## max);/*D*/\ 370 fprintf (stderr, "slimmed down " # stem " to %d\n", stem ## max);/*D*/\
305 } 371 }
306 372
307/* microsoft's pseudo-c is quite far from C as the rest of the world and the standard knows it */
308/* bringing us everlasting joy in form of stupid extra macros that are not required in C */
309#define array_free_microshit(stem) \
310 ev_free (stem ## s); stem ## cnt = stem ## max = 0;
311
312#define array_free(stem, idx) \ 373#define array_free(stem, idx) \
313 ev_free (stem ## s idx); stem ## cnt idx = stem ## max idx = 0; 374 ev_free (stem ## s idx); stem ## cnt idx = stem ## max idx = 0;
314 375
315/*****************************************************************************/ 376/*****************************************************************************/
316 377
330void 391void
331ev_feed_event (EV_P_ void *w, int revents) 392ev_feed_event (EV_P_ void *w, int revents)
332{ 393{
333 W w_ = (W)w; 394 W w_ = (W)w;
334 395
335 if (w_->pending) 396 if (expect_false (w_->pending))
336 { 397 {
337 pendings [ABSPRI (w_)][w_->pending - 1].events |= revents; 398 pendings [ABSPRI (w_)][w_->pending - 1].events |= revents;
338 return; 399 return;
339 } 400 }
340 401
402 if (expect_false (!w_->cb))
403 return;
404
341 w_->pending = ++pendingcnt [ABSPRI (w_)]; 405 w_->pending = ++pendingcnt [ABSPRI (w_)];
342 array_needsize (ANPENDING, pendings [ABSPRI (w_)], pendingmax [ABSPRI (w_)], pendingcnt [ABSPRI (w_)], (void)); 406 array_needsize (ANPENDING, pendings [ABSPRI (w_)], pendingmax [ABSPRI (w_)], pendingcnt [ABSPRI (w_)], EMPTY2);
343 pendings [ABSPRI (w_)][w_->pending - 1].w = w_; 407 pendings [ABSPRI (w_)][w_->pending - 1].w = w_;
344 pendings [ABSPRI (w_)][w_->pending - 1].events = revents; 408 pendings [ABSPRI (w_)][w_->pending - 1].events = revents;
345} 409}
346 410
347static void 411static void
374 fd_event (EV_A_ fd, revents); 438 fd_event (EV_A_ fd, revents);
375} 439}
376 440
377/*****************************************************************************/ 441/*****************************************************************************/
378 442
379static void 443inline void
380fd_reify (EV_P) 444fd_reify (EV_P)
381{ 445{
382 int i; 446 int i;
383 447
384 for (i = 0; i < fdchangecnt; ++i) 448 for (i = 0; i < fdchangecnt; ++i)
390 int events = 0; 454 int events = 0;
391 455
392 for (w = (struct ev_io *)anfd->head; w; w = (struct ev_io *)((WL)w)->next) 456 for (w = (struct ev_io *)anfd->head; w; w = (struct ev_io *)((WL)w)->next)
393 events |= w->events; 457 events |= w->events;
394 458
459#if EV_SELECT_IS_WINSOCKET
460 if (events)
461 {
462 unsigned long argp;
463 anfd->handle = _get_osfhandle (fd);
464 assert (("libev only supports socket fds in this configuration", ioctlsocket (anfd->handle, FIONREAD, &argp) == 0));
465 }
466#endif
467
395 anfd->reify = 0; 468 anfd->reify = 0;
396 469
397 method_modify (EV_A_ fd, anfd->events, events); 470 backend_modify (EV_A_ fd, anfd->events, events);
398 anfd->events = events; 471 anfd->events = events;
399 } 472 }
400 473
401 fdchangecnt = 0; 474 fdchangecnt = 0;
402} 475}
403 476
404static void 477static void
405fd_change (EV_P_ int fd) 478fd_change (EV_P_ int fd)
406{ 479{
407 if (anfds [fd].reify) 480 if (expect_false (anfds [fd].reify))
408 return; 481 return;
409 482
410 anfds [fd].reify = 1; 483 anfds [fd].reify = 1;
411 484
412 ++fdchangecnt; 485 ++fdchangecnt;
413 array_needsize (int, fdchanges, fdchangemax, fdchangecnt, (void)); 486 array_needsize (int, fdchanges, fdchangemax, fdchangecnt, EMPTY2);
414 fdchanges [fdchangecnt - 1] = fd; 487 fdchanges [fdchangecnt - 1] = fd;
415} 488}
416 489
417static void 490static void
418fd_kill (EV_P_ int fd) 491fd_kill (EV_P_ int fd)
424 ev_io_stop (EV_A_ w); 497 ev_io_stop (EV_A_ w);
425 ev_feed_event (EV_A_ (W)w, EV_ERROR | EV_READ | EV_WRITE); 498 ev_feed_event (EV_A_ (W)w, EV_ERROR | EV_READ | EV_WRITE);
426 } 499 }
427} 500}
428 501
429static int 502inline int
430fd_valid (int fd) 503fd_valid (int fd)
431{ 504{
432#ifdef WIN32 505#ifdef _WIN32
433 return !!win32_get_osfhandle (fd); 506 return _get_osfhandle (fd) != -1;
434#else 507#else
435 return fcntl (fd, F_GETFD) != -1; 508 return fcntl (fd, F_GETFD) != -1;
436#endif 509#endif
437} 510}
438 511
460 fd_kill (EV_A_ fd); 533 fd_kill (EV_A_ fd);
461 return; 534 return;
462 } 535 }
463} 536}
464 537
465/* usually called after fork if method needs to re-arm all fds from scratch */ 538/* usually called after fork if backend needs to re-arm all fds from scratch */
466static void 539static void
467fd_rearm_all (EV_P) 540fd_rearm_all (EV_P)
468{ 541{
469 int fd; 542 int fd;
470 543
518 591
519 heap [k] = w; 592 heap [k] = w;
520 ((W)heap [k])->active = k + 1; 593 ((W)heap [k])->active = k + 1;
521} 594}
522 595
596inline void
597adjustheap (WT *heap, int N, int k)
598{
599 upheap (heap, k);
600 downheap (heap, N, k);
601}
602
523/*****************************************************************************/ 603/*****************************************************************************/
524 604
525typedef struct 605typedef struct
526{ 606{
527 WL head; 607 WL head;
548} 628}
549 629
550static void 630static void
551sighandler (int signum) 631sighandler (int signum)
552{ 632{
553#if WIN32 633#if _WIN32
554 signal (signum, sighandler); 634 signal (signum, sighandler);
555#endif 635#endif
556 636
557 signals [signum - 1].gotsig = 1; 637 signals [signum - 1].gotsig = 1;
558 638
559 if (!gotsig) 639 if (!gotsig)
560 { 640 {
561 int old_errno = errno; 641 int old_errno = errno;
562 gotsig = 1; 642 gotsig = 1;
563#ifdef WIN32
564 send (sigpipe [1], &signum, 1, MSG_DONTWAIT);
565#else
566 write (sigpipe [1], &signum, 1); 643 write (sigpipe [1], &signum, 1);
567#endif
568 errno = old_errno; 644 errno = old_errno;
569 } 645 }
570} 646}
571 647
572void 648void
573ev_feed_signal_event (EV_P_ int signum) 649ev_feed_signal_event (EV_P_ int signum)
574{ 650{
575 WL w; 651 WL w;
576 652
577#if EV_MULTIPLICITY 653#if EV_MULTIPLICITY
578 assert (("feeding signal events is only supported in the default loop", loop == default_loop)); 654 assert (("feeding signal events is only supported in the default loop", loop == ev_default_loop_ptr));
579#endif 655#endif
580 656
581 --signum; 657 --signum;
582 658
583 if (signum < 0 || signum >= signalmax) 659 if (signum < 0 || signum >= signalmax)
592static void 668static void
593sigcb (EV_P_ struct ev_io *iow, int revents) 669sigcb (EV_P_ struct ev_io *iow, int revents)
594{ 670{
595 int signum; 671 int signum;
596 672
597#ifdef WIN32
598 recv (sigpipe [0], &revents, 1, MSG_DONTWAIT);
599#else
600 read (sigpipe [0], &revents, 1); 673 read (sigpipe [0], &revents, 1);
601#endif
602 gotsig = 0; 674 gotsig = 0;
603 675
604 for (signum = signalmax; signum--; ) 676 for (signum = signalmax; signum--; )
605 if (signals [signum].gotsig) 677 if (signals [signum].gotsig)
606 ev_feed_signal_event (EV_A_ signum + 1); 678 ev_feed_signal_event (EV_A_ signum + 1);
607} 679}
608 680
609static void 681static void
682fd_intern (int fd)
683{
684#ifdef _WIN32
685 int arg = 1;
686 ioctlsocket (_get_osfhandle (fd), FIONBIO, &arg);
687#else
688 fcntl (fd, F_SETFD, FD_CLOEXEC);
689 fcntl (fd, F_SETFL, O_NONBLOCK);
690#endif
691}
692
693static void
610siginit (EV_P) 694siginit (EV_P)
611{ 695{
612#ifndef WIN32 696 fd_intern (sigpipe [0]);
613 fcntl (sigpipe [0], F_SETFD, FD_CLOEXEC); 697 fd_intern (sigpipe [1]);
614 fcntl (sigpipe [1], F_SETFD, FD_CLOEXEC);
615
616 /* rather than sort out wether we really need nb, set it */
617 fcntl (sigpipe [0], F_SETFL, O_NONBLOCK);
618 fcntl (sigpipe [1], F_SETFL, O_NONBLOCK);
619#endif
620 698
621 ev_io_set (&sigev, sigpipe [0], EV_READ); 699 ev_io_set (&sigev, sigpipe [0], EV_READ);
622 ev_io_start (EV_A_ &sigev); 700 ev_io_start (EV_A_ &sigev);
623 ev_unref (EV_A); /* child watcher should not keep loop alive */ 701 ev_unref (EV_A); /* child watcher should not keep loop alive */
624} 702}
625 703
626/*****************************************************************************/ 704/*****************************************************************************/
627 705
628static struct ev_child *childs [PID_HASHSIZE]; 706static struct ev_child *childs [PID_HASHSIZE];
629 707
630#ifndef WIN32 708#ifndef _WIN32
631 709
632static struct ev_signal childev; 710static struct ev_signal childev;
633 711
634#ifndef WCONTINUED 712#ifndef WCONTINUED
635# define WCONTINUED 0 713# define WCONTINUED 0
656 int pid, status; 734 int pid, status;
657 735
658 if (0 < (pid = waitpid (-1, &status, WNOHANG | WUNTRACED | WCONTINUED))) 736 if (0 < (pid = waitpid (-1, &status, WNOHANG | WUNTRACED | WCONTINUED)))
659 { 737 {
660 /* make sure we are called again until all childs have been reaped */ 738 /* make sure we are called again until all childs have been reaped */
739 /* we need to do it this way so that the callback gets called before we continue */
661 ev_feed_event (EV_A_ (W)sw, EV_SIGNAL); 740 ev_feed_event (EV_A_ (W)sw, EV_SIGNAL);
662 741
663 child_reap (EV_A_ sw, pid, pid, status); 742 child_reap (EV_A_ sw, pid, pid, status);
664 child_reap (EV_A_ sw, 0, pid, status); /* this might trigger a watcher twice, but event catches that */ 743 child_reap (EV_A_ sw, 0, pid, status); /* this might trigger a watcher twice, but feed_event catches that */
665 } 744 }
666} 745}
667 746
668#endif 747#endif
669 748
670/*****************************************************************************/ 749/*****************************************************************************/
671 750
751#if EV_USE_PORT
752# include "ev_port.c"
753#endif
672#if EV_USE_KQUEUE 754#if EV_USE_KQUEUE
673# include "ev_kqueue.c" 755# include "ev_kqueue.c"
674#endif 756#endif
675#if EV_USE_EPOLL 757#if EV_USE_EPOLL
676# include "ev_epoll.c" 758# include "ev_epoll.c"
696 778
697/* return true if we are running with elevated privileges and should ignore env variables */ 779/* return true if we are running with elevated privileges and should ignore env variables */
698static int 780static int
699enable_secure (void) 781enable_secure (void)
700{ 782{
701#ifdef WIN32 783#ifdef _WIN32
702 return 0; 784 return 0;
703#else 785#else
704 return getuid () != geteuid () 786 return getuid () != geteuid ()
705 || getgid () != getegid (); 787 || getgid () != getegid ();
706#endif 788#endif
707} 789}
708 790
709int 791unsigned int
710ev_method (EV_P) 792ev_supported_backends (void)
711{ 793{
712 return method; 794 unsigned int flags = 0;
713}
714 795
715static void 796 if (EV_USE_PORT ) flags |= EVBACKEND_PORT;
716loop_init (EV_P_ int methods) 797 if (EV_USE_KQUEUE) flags |= EVBACKEND_KQUEUE;
798 if (EV_USE_EPOLL ) flags |= EVBACKEND_EPOLL;
799 if (EV_USE_POLL ) flags |= EVBACKEND_POLL;
800 if (EV_USE_SELECT) flags |= EVBACKEND_SELECT;
801
802 return flags;
803}
804
805unsigned int
806ev_recommended_backends (void)
717{ 807{
718 if (!method) 808 unsigned int flags = ev_supported_backends ();
809
810#ifndef __NetBSD__
811 /* kqueue is borked on everything but netbsd apparently */
812 /* it usually doesn't work correctly on anything but sockets and pipes */
813 flags &= ~EVBACKEND_KQUEUE;
814#endif
815#ifdef __APPLE__
816 // flags &= ~EVBACKEND_KQUEUE; for documentation
817 flags &= ~EVBACKEND_POLL;
818#endif
819
820 return flags;
821}
822
823unsigned int
824ev_embeddable_backends (void)
825{
826 return EVBACKEND_EPOLL
827 | EVBACKEND_KQUEUE
828 | EVBACKEND_PORT;
829}
830
831unsigned int
832ev_backend (EV_P)
833{
834 return backend;
835}
836
837static void
838loop_init (EV_P_ unsigned int flags)
839{
840 if (!backend)
719 { 841 {
720#if EV_USE_MONOTONIC 842#if EV_USE_MONOTONIC
721 { 843 {
722 struct timespec ts; 844 struct timespec ts;
723 if (!clock_gettime (CLOCK_MONOTONIC, &ts)) 845 if (!clock_gettime (CLOCK_MONOTONIC, &ts))
724 have_monotonic = 1; 846 have_monotonic = 1;
725 } 847 }
726#endif 848#endif
727 849
728 rt_now = ev_time (); 850 ev_rt_now = ev_time ();
729 mn_now = get_clock (); 851 mn_now = get_clock ();
730 now_floor = mn_now; 852 now_floor = mn_now;
731 rtmn_diff = rt_now - mn_now; 853 rtmn_diff = ev_rt_now - mn_now;
732 854
733 if (methods == EVMETHOD_AUTO) 855 if (!(flags & EVFLAG_NOENV)
734 if (!enable_secure () && getenv ("LIBEV_METHODS")) 856 && !enable_secure ()
857 && getenv ("LIBEV_FLAGS"))
735 methods = atoi (getenv ("LIBEV_METHODS")); 858 flags = atoi (getenv ("LIBEV_FLAGS"));
736 else
737 methods = EVMETHOD_ANY;
738 859
739 method = 0; 860 if (!(flags & 0x0000ffffUL))
740#if EV_USE_WIN32 861 flags |= ev_recommended_backends ();
741 if (!method && (methods & EVMETHOD_WIN32 )) method = win32_init (EV_A_ methods); 862
863 backend = 0;
864#if EV_USE_PORT
865 if (!backend && (flags & EVBACKEND_PORT )) backend = port_init (EV_A_ flags);
742#endif 866#endif
743#if EV_USE_KQUEUE 867#if EV_USE_KQUEUE
744 if (!method && (methods & EVMETHOD_KQUEUE)) method = kqueue_init (EV_A_ methods); 868 if (!backend && (flags & EVBACKEND_KQUEUE)) backend = kqueue_init (EV_A_ flags);
745#endif 869#endif
746#if EV_USE_EPOLL 870#if EV_USE_EPOLL
747 if (!method && (methods & EVMETHOD_EPOLL )) method = epoll_init (EV_A_ methods); 871 if (!backend && (flags & EVBACKEND_EPOLL )) backend = epoll_init (EV_A_ flags);
748#endif 872#endif
749#if EV_USE_POLL 873#if EV_USE_POLL
750 if (!method && (methods & EVMETHOD_POLL )) method = poll_init (EV_A_ methods); 874 if (!backend && (flags & EVBACKEND_POLL )) backend = poll_init (EV_A_ flags);
751#endif 875#endif
752#if EV_USE_SELECT 876#if EV_USE_SELECT
753 if (!method && (methods & EVMETHOD_SELECT)) method = select_init (EV_A_ methods); 877 if (!backend && (flags & EVBACKEND_SELECT)) backend = select_init (EV_A_ flags);
754#endif 878#endif
755 879
756 ev_watcher_init (&sigev, sigcb); 880 ev_init (&sigev, sigcb);
757 ev_set_priority (&sigev, EV_MAXPRI); 881 ev_set_priority (&sigev, EV_MAXPRI);
758 } 882 }
759} 883}
760 884
761void 885static void
762loop_destroy (EV_P) 886loop_destroy (EV_P)
763{ 887{
764 int i; 888 int i;
765 889
766#if EV_USE_WIN32 890#if EV_USE_PORT
767 if (method == EVMETHOD_WIN32 ) win32_destroy (EV_A); 891 if (backend == EVBACKEND_PORT ) port_destroy (EV_A);
768#endif 892#endif
769#if EV_USE_KQUEUE 893#if EV_USE_KQUEUE
770 if (method == EVMETHOD_KQUEUE) kqueue_destroy (EV_A); 894 if (backend == EVBACKEND_KQUEUE) kqueue_destroy (EV_A);
771#endif 895#endif
772#if EV_USE_EPOLL 896#if EV_USE_EPOLL
773 if (method == EVMETHOD_EPOLL ) epoll_destroy (EV_A); 897 if (backend == EVBACKEND_EPOLL ) epoll_destroy (EV_A);
774#endif 898#endif
775#if EV_USE_POLL 899#if EV_USE_POLL
776 if (method == EVMETHOD_POLL ) poll_destroy (EV_A); 900 if (backend == EVBACKEND_POLL ) poll_destroy (EV_A);
777#endif 901#endif
778#if EV_USE_SELECT 902#if EV_USE_SELECT
779 if (method == EVMETHOD_SELECT) select_destroy (EV_A); 903 if (backend == EVBACKEND_SELECT) select_destroy (EV_A);
780#endif 904#endif
781 905
782 for (i = NUMPRI; i--; ) 906 for (i = NUMPRI; i--; )
783 array_free (pending, [i]); 907 array_free (pending, [i]);
784 908
785 /* have to use the microsoft-never-gets-it-right macro */ 909 /* have to use the microsoft-never-gets-it-right macro */
786 array_free_microshit (fdchange); 910 array_free (fdchange, EMPTY0);
787 array_free_microshit (timer); 911 array_free (timer, EMPTY0);
788 array_free_microshit (periodic); 912#if EV_PERIODICS
789 array_free_microshit (idle); 913 array_free (periodic, EMPTY0);
790 array_free_microshit (prepare); 914#endif
791 array_free_microshit (check); 915 array_free (idle, EMPTY0);
916 array_free (prepare, EMPTY0);
917 array_free (check, EMPTY0);
792 918
793 method = 0; 919 backend = 0;
794} 920}
795 921
796static void 922static void
797loop_fork (EV_P) 923loop_fork (EV_P)
798{ 924{
925#if EV_USE_PORT
926 if (backend == EVBACKEND_PORT ) port_fork (EV_A);
927#endif
928#if EV_USE_KQUEUE
929 if (backend == EVBACKEND_KQUEUE) kqueue_fork (EV_A);
930#endif
799#if EV_USE_EPOLL 931#if EV_USE_EPOLL
800 if (method == EVMETHOD_EPOLL ) epoll_fork (EV_A); 932 if (backend == EVBACKEND_EPOLL ) epoll_fork (EV_A);
801#endif
802#if EV_USE_KQUEUE
803 if (method == EVMETHOD_KQUEUE) kqueue_fork (EV_A);
804#endif 933#endif
805 934
806 if (ev_is_active (&sigev)) 935 if (ev_is_active (&sigev))
807 { 936 {
808 /* default loop */ 937 /* default loop */
821 postfork = 0; 950 postfork = 0;
822} 951}
823 952
824#if EV_MULTIPLICITY 953#if EV_MULTIPLICITY
825struct ev_loop * 954struct ev_loop *
826ev_loop_new (int methods) 955ev_loop_new (unsigned int flags)
827{ 956{
828 struct ev_loop *loop = (struct ev_loop *)ev_malloc (sizeof (struct ev_loop)); 957 struct ev_loop *loop = (struct ev_loop *)ev_malloc (sizeof (struct ev_loop));
829 958
830 memset (loop, 0, sizeof (struct ev_loop)); 959 memset (loop, 0, sizeof (struct ev_loop));
831 960
832 loop_init (EV_A_ methods); 961 loop_init (EV_A_ flags);
833 962
834 if (ev_method (EV_A)) 963 if (ev_backend (EV_A))
835 return loop; 964 return loop;
836 965
837 return 0; 966 return 0;
838} 967}
839 968
852 981
853#endif 982#endif
854 983
855#if EV_MULTIPLICITY 984#if EV_MULTIPLICITY
856struct ev_loop * 985struct ev_loop *
986ev_default_loop_init (unsigned int flags)
857#else 987#else
858int 988int
989ev_default_loop (unsigned int flags)
859#endif 990#endif
860ev_default_loop (int methods)
861{ 991{
862 if (sigpipe [0] == sigpipe [1]) 992 if (sigpipe [0] == sigpipe [1])
863 if (pipe (sigpipe)) 993 if (pipe (sigpipe))
864 return 0; 994 return 0;
865 995
866 if (!default_loop) 996 if (!ev_default_loop_ptr)
867 { 997 {
868#if EV_MULTIPLICITY 998#if EV_MULTIPLICITY
869 struct ev_loop *loop = default_loop = &default_loop_struct; 999 struct ev_loop *loop = ev_default_loop_ptr = &default_loop_struct;
870#else 1000#else
871 default_loop = 1; 1001 ev_default_loop_ptr = 1;
872#endif 1002#endif
873 1003
874 loop_init (EV_A_ methods); 1004 loop_init (EV_A_ flags);
875 1005
876 if (ev_method (EV_A)) 1006 if (ev_backend (EV_A))
877 { 1007 {
878 siginit (EV_A); 1008 siginit (EV_A);
879 1009
880#ifndef WIN32 1010#ifndef _WIN32
881 ev_signal_init (&childev, childcb, SIGCHLD); 1011 ev_signal_init (&childev, childcb, SIGCHLD);
882 ev_set_priority (&childev, EV_MAXPRI); 1012 ev_set_priority (&childev, EV_MAXPRI);
883 ev_signal_start (EV_A_ &childev); 1013 ev_signal_start (EV_A_ &childev);
884 ev_unref (EV_A); /* child watcher should not keep loop alive */ 1014 ev_unref (EV_A); /* child watcher should not keep loop alive */
885#endif 1015#endif
886 } 1016 }
887 else 1017 else
888 default_loop = 0; 1018 ev_default_loop_ptr = 0;
889 } 1019 }
890 1020
891 return default_loop; 1021 return ev_default_loop_ptr;
892} 1022}
893 1023
894void 1024void
895ev_default_destroy (void) 1025ev_default_destroy (void)
896{ 1026{
897#if EV_MULTIPLICITY 1027#if EV_MULTIPLICITY
898 struct ev_loop *loop = default_loop; 1028 struct ev_loop *loop = ev_default_loop_ptr;
899#endif 1029#endif
900 1030
901#ifndef WIN32 1031#ifndef _WIN32
902 ev_ref (EV_A); /* child watcher */ 1032 ev_ref (EV_A); /* child watcher */
903 ev_signal_stop (EV_A_ &childev); 1033 ev_signal_stop (EV_A_ &childev);
904#endif 1034#endif
905 1035
906 ev_ref (EV_A); /* signal watcher */ 1036 ev_ref (EV_A); /* signal watcher */
914 1044
915void 1045void
916ev_default_fork (void) 1046ev_default_fork (void)
917{ 1047{
918#if EV_MULTIPLICITY 1048#if EV_MULTIPLICITY
919 struct ev_loop *loop = default_loop; 1049 struct ev_loop *loop = ev_default_loop_ptr;
920#endif 1050#endif
921 1051
922 if (method) 1052 if (backend)
923 postfork = 1; 1053 postfork = 1;
924} 1054}
925 1055
926/*****************************************************************************/ 1056/*****************************************************************************/
927 1057
935 return 1; 1065 return 1;
936 1066
937 return 0; 1067 return 0;
938} 1068}
939 1069
940static void 1070inline void
941call_pending (EV_P) 1071call_pending (EV_P)
942{ 1072{
943 int pri; 1073 int pri;
944 1074
945 for (pri = NUMPRI; pri--; ) 1075 for (pri = NUMPRI; pri--; )
946 while (pendingcnt [pri]) 1076 while (pendingcnt [pri])
947 { 1077 {
948 ANPENDING *p = pendings [pri] + --pendingcnt [pri]; 1078 ANPENDING *p = pendings [pri] + --pendingcnt [pri];
949 1079
950 if (p->w) 1080 if (expect_true (p->w))
951 { 1081 {
952 p->w->pending = 0; 1082 p->w->pending = 0;
953 EV_CB_INVOKE (p->w, p->events); 1083 EV_CB_INVOKE (p->w, p->events);
954 } 1084 }
955 } 1085 }
956} 1086}
957 1087
958static void 1088inline void
959timers_reify (EV_P) 1089timers_reify (EV_P)
960{ 1090{
961 while (timercnt && ((WT)timers [0])->at <= mn_now) 1091 while (timercnt && ((WT)timers [0])->at <= mn_now)
962 { 1092 {
963 struct ev_timer *w = timers [0]; 1093 struct ev_timer *w = timers [0];
966 1096
967 /* first reschedule or stop timer */ 1097 /* first reschedule or stop timer */
968 if (w->repeat) 1098 if (w->repeat)
969 { 1099 {
970 assert (("negative ev_timer repeat value found while processing timers", w->repeat > 0.)); 1100 assert (("negative ev_timer repeat value found while processing timers", w->repeat > 0.));
1101
971 ((WT)w)->at = mn_now + w->repeat; 1102 ((WT)w)->at += w->repeat;
1103 if (((WT)w)->at < mn_now)
1104 ((WT)w)->at = mn_now;
1105
972 downheap ((WT *)timers, timercnt, 0); 1106 downheap ((WT *)timers, timercnt, 0);
973 } 1107 }
974 else 1108 else
975 ev_timer_stop (EV_A_ w); /* nonrepeating: stop timer */ 1109 ev_timer_stop (EV_A_ w); /* nonrepeating: stop timer */
976 1110
977 ev_feed_event (EV_A_ (W)w, EV_TIMEOUT); 1111 ev_feed_event (EV_A_ (W)w, EV_TIMEOUT);
978 } 1112 }
979} 1113}
980 1114
981static void 1115#if EV_PERIODICS
1116inline void
982periodics_reify (EV_P) 1117periodics_reify (EV_P)
983{ 1118{
984 while (periodiccnt && ((WT)periodics [0])->at <= rt_now) 1119 while (periodiccnt && ((WT)periodics [0])->at <= ev_rt_now)
985 { 1120 {
986 struct ev_periodic *w = periodics [0]; 1121 struct ev_periodic *w = periodics [0];
987 1122
988 assert (("inactive timer on periodic heap detected", ev_is_active (w))); 1123 assert (("inactive timer on periodic heap detected", ev_is_active (w)));
989 1124
990 /* first reschedule or stop timer */ 1125 /* first reschedule or stop timer */
991 if (w->reschedule_cb) 1126 if (w->reschedule_cb)
992 { 1127 {
993 ev_tstamp at = ((WT)w)->at = w->reschedule_cb (w, rt_now + 0.0001); 1128 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now + 0.0001);
994
995 assert (("ev_periodic reschedule callback returned time in the past", ((WT)w)->at > rt_now)); 1129 assert (("ev_periodic reschedule callback returned time in the past", ((WT)w)->at > ev_rt_now));
996 downheap ((WT *)periodics, periodiccnt, 0); 1130 downheap ((WT *)periodics, periodiccnt, 0);
997 } 1131 }
998 else if (w->interval) 1132 else if (w->interval)
999 { 1133 {
1000 ((WT)w)->at += floor ((rt_now - ((WT)w)->at) / w->interval + 1.) * w->interval; 1134 ((WT)w)->at += floor ((ev_rt_now - ((WT)w)->at) / w->interval + 1.) * w->interval;
1001 assert (("ev_periodic timeout in the past detected while processing timers, negative interval?", ((WT)w)->at > rt_now)); 1135 assert (("ev_periodic timeout in the past detected while processing timers, negative interval?", ((WT)w)->at > ev_rt_now));
1002 downheap ((WT *)periodics, periodiccnt, 0); 1136 downheap ((WT *)periodics, periodiccnt, 0);
1003 } 1137 }
1004 else 1138 else
1005 ev_periodic_stop (EV_A_ w); /* nonrepeating: stop timer */ 1139 ev_periodic_stop (EV_A_ w); /* nonrepeating: stop timer */
1006 1140
1017 for (i = 0; i < periodiccnt; ++i) 1151 for (i = 0; i < periodiccnt; ++i)
1018 { 1152 {
1019 struct ev_periodic *w = periodics [i]; 1153 struct ev_periodic *w = periodics [i];
1020 1154
1021 if (w->reschedule_cb) 1155 if (w->reschedule_cb)
1022 ((WT)w)->at = w->reschedule_cb (w, rt_now); 1156 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now);
1023 else if (w->interval) 1157 else if (w->interval)
1024 ((WT)w)->at += ceil ((rt_now - ((WT)w)->at) / w->interval) * w->interval; 1158 ((WT)w)->at += ceil ((ev_rt_now - ((WT)w)->at) / w->interval) * w->interval;
1025 } 1159 }
1026 1160
1027 /* now rebuild the heap */ 1161 /* now rebuild the heap */
1028 for (i = periodiccnt >> 1; i--; ) 1162 for (i = periodiccnt >> 1; i--; )
1029 downheap ((WT *)periodics, periodiccnt, i); 1163 downheap ((WT *)periodics, periodiccnt, i);
1030} 1164}
1165#endif
1031 1166
1032inline int 1167inline int
1033time_update_monotonic (EV_P) 1168time_update_monotonic (EV_P)
1034{ 1169{
1035 mn_now = get_clock (); 1170 mn_now = get_clock ();
1036 1171
1037 if (expect_true (mn_now - now_floor < MIN_TIMEJUMP * .5)) 1172 if (expect_true (mn_now - now_floor < MIN_TIMEJUMP * .5))
1038 { 1173 {
1039 rt_now = rtmn_diff + mn_now; 1174 ev_rt_now = rtmn_diff + mn_now;
1040 return 0; 1175 return 0;
1041 } 1176 }
1042 else 1177 else
1043 { 1178 {
1044 now_floor = mn_now; 1179 now_floor = mn_now;
1045 rt_now = ev_time (); 1180 ev_rt_now = ev_time ();
1046 return 1; 1181 return 1;
1047 } 1182 }
1048} 1183}
1049 1184
1050static void 1185inline void
1051time_update (EV_P) 1186time_update (EV_P)
1052{ 1187{
1053 int i; 1188 int i;
1054 1189
1055#if EV_USE_MONOTONIC 1190#if EV_USE_MONOTONIC
1059 { 1194 {
1060 ev_tstamp odiff = rtmn_diff; 1195 ev_tstamp odiff = rtmn_diff;
1061 1196
1062 for (i = 4; --i; ) /* loop a few times, before making important decisions */ 1197 for (i = 4; --i; ) /* loop a few times, before making important decisions */
1063 { 1198 {
1064 rtmn_diff = rt_now - mn_now; 1199 rtmn_diff = ev_rt_now - mn_now;
1065 1200
1066 if (fabs (odiff - rtmn_diff) < MIN_TIMEJUMP) 1201 if (fabs (odiff - rtmn_diff) < MIN_TIMEJUMP)
1067 return; /* all is well */ 1202 return; /* all is well */
1068 1203
1069 rt_now = ev_time (); 1204 ev_rt_now = ev_time ();
1070 mn_now = get_clock (); 1205 mn_now = get_clock ();
1071 now_floor = mn_now; 1206 now_floor = mn_now;
1072 } 1207 }
1073 1208
1209# if EV_PERIODICS
1074 periodics_reschedule (EV_A); 1210 periodics_reschedule (EV_A);
1211# endif
1075 /* no timer adjustment, as the monotonic clock doesn't jump */ 1212 /* no timer adjustment, as the monotonic clock doesn't jump */
1076 /* timers_reschedule (EV_A_ rtmn_diff - odiff) */ 1213 /* timers_reschedule (EV_A_ rtmn_diff - odiff) */
1077 } 1214 }
1078 } 1215 }
1079 else 1216 else
1080#endif 1217#endif
1081 { 1218 {
1082 rt_now = ev_time (); 1219 ev_rt_now = ev_time ();
1083 1220
1084 if (expect_false (mn_now > rt_now || mn_now < rt_now - MAX_BLOCKTIME - MIN_TIMEJUMP)) 1221 if (expect_false (mn_now > ev_rt_now || mn_now < ev_rt_now - MAX_BLOCKTIME - MIN_TIMEJUMP))
1085 { 1222 {
1223#if EV_PERIODICS
1086 periodics_reschedule (EV_A); 1224 periodics_reschedule (EV_A);
1225#endif
1087 1226
1088 /* adjust timers. this is easy, as the offset is the same for all */ 1227 /* adjust timers. this is easy, as the offset is the same for all */
1089 for (i = 0; i < timercnt; ++i) 1228 for (i = 0; i < timercnt; ++i)
1090 ((WT)timers [i])->at += rt_now - mn_now; 1229 ((WT)timers [i])->at += ev_rt_now - mn_now;
1091 } 1230 }
1092 1231
1093 mn_now = rt_now; 1232 mn_now = ev_rt_now;
1094 } 1233 }
1095} 1234}
1096 1235
1097void 1236void
1098ev_ref (EV_P) 1237ev_ref (EV_P)
1112ev_loop (EV_P_ int flags) 1251ev_loop (EV_P_ int flags)
1113{ 1252{
1114 double block; 1253 double block;
1115 loop_done = flags & (EVLOOP_ONESHOT | EVLOOP_NONBLOCK) ? 1 : 0; 1254 loop_done = flags & (EVLOOP_ONESHOT | EVLOOP_NONBLOCK) ? 1 : 0;
1116 1255
1117 do 1256 while (activecnt)
1118 { 1257 {
1119 /* queue check watchers (and execute them) */ 1258 /* queue check watchers (and execute them) */
1120 if (expect_false (preparecnt)) 1259 if (expect_false (preparecnt))
1121 { 1260 {
1122 queue_events (EV_A_ (W *)prepares, preparecnt, EV_PREPARE); 1261 queue_events (EV_A_ (W *)prepares, preparecnt, EV_PREPARE);
1138 if (expect_true (have_monotonic)) 1277 if (expect_true (have_monotonic))
1139 time_update_monotonic (EV_A); 1278 time_update_monotonic (EV_A);
1140 else 1279 else
1141#endif 1280#endif
1142 { 1281 {
1143 rt_now = ev_time (); 1282 ev_rt_now = ev_time ();
1144 mn_now = rt_now; 1283 mn_now = ev_rt_now;
1145 } 1284 }
1146 1285
1147 if (flags & EVLOOP_NONBLOCK || idlecnt) 1286 if (flags & EVLOOP_NONBLOCK || idlecnt)
1148 block = 0.; 1287 block = 0.;
1149 else 1288 else
1150 { 1289 {
1151 block = MAX_BLOCKTIME; 1290 block = MAX_BLOCKTIME;
1152 1291
1153 if (timercnt) 1292 if (timercnt)
1154 { 1293 {
1155 ev_tstamp to = ((WT)timers [0])->at - mn_now + method_fudge; 1294 ev_tstamp to = ((WT)timers [0])->at - mn_now + backend_fudge;
1156 if (block > to) block = to; 1295 if (block > to) block = to;
1157 } 1296 }
1158 1297
1298#if EV_PERIODICS
1159 if (periodiccnt) 1299 if (periodiccnt)
1160 { 1300 {
1161 ev_tstamp to = ((WT)periodics [0])->at - rt_now + method_fudge; 1301 ev_tstamp to = ((WT)periodics [0])->at - ev_rt_now + backend_fudge;
1162 if (block > to) block = to; 1302 if (block > to) block = to;
1163 } 1303 }
1304#endif
1164 1305
1165 if (block < 0.) block = 0.; 1306 if (expect_false (block < 0.)) block = 0.;
1166 } 1307 }
1167 1308
1168 method_poll (EV_A_ block); 1309 backend_poll (EV_A_ block);
1169 1310
1170 /* update rt_now, do magic */ 1311 /* update ev_rt_now, do magic */
1171 time_update (EV_A); 1312 time_update (EV_A);
1172 1313
1173 /* queue pending timers and reschedule them */ 1314 /* queue pending timers and reschedule them */
1174 timers_reify (EV_A); /* relative timers called last */ 1315 timers_reify (EV_A); /* relative timers called last */
1316#if EV_PERIODICS
1175 periodics_reify (EV_A); /* absolute timers called first */ 1317 periodics_reify (EV_A); /* absolute timers called first */
1318#endif
1176 1319
1177 /* queue idle watchers unless io or timers are pending */ 1320 /* queue idle watchers unless io or timers are pending */
1178 if (idlecnt && !any_pending (EV_A)) 1321 if (idlecnt && !any_pending (EV_A))
1179 queue_events (EV_A_ (W *)idles, idlecnt, EV_IDLE); 1322 queue_events (EV_A_ (W *)idles, idlecnt, EV_IDLE);
1180 1323
1181 /* queue check watchers, to be executed first */ 1324 /* queue check watchers, to be executed first */
1182 if (checkcnt) 1325 if (expect_false (checkcnt))
1183 queue_events (EV_A_ (W *)checks, checkcnt, EV_CHECK); 1326 queue_events (EV_A_ (W *)checks, checkcnt, EV_CHECK);
1184 1327
1185 call_pending (EV_A); 1328 call_pending (EV_A);
1329
1330 if (expect_false (loop_done))
1331 break;
1186 } 1332 }
1187 while (activecnt && !loop_done);
1188 1333
1189 if (loop_done != 2) 1334 if (loop_done != 2)
1190 loop_done = 0; 1335 loop_done = 0;
1191} 1336}
1192 1337
1252void 1397void
1253ev_io_start (EV_P_ struct ev_io *w) 1398ev_io_start (EV_P_ struct ev_io *w)
1254{ 1399{
1255 int fd = w->fd; 1400 int fd = w->fd;
1256 1401
1257 if (ev_is_active (w)) 1402 if (expect_false (ev_is_active (w)))
1258 return; 1403 return;
1259 1404
1260 assert (("ev_io_start called with negative fd", fd >= 0)); 1405 assert (("ev_io_start called with negative fd", fd >= 0));
1261 1406
1262 ev_start (EV_A_ (W)w, 1); 1407 ev_start (EV_A_ (W)w, 1);
1268 1413
1269void 1414void
1270ev_io_stop (EV_P_ struct ev_io *w) 1415ev_io_stop (EV_P_ struct ev_io *w)
1271{ 1416{
1272 ev_clear_pending (EV_A_ (W)w); 1417 ev_clear_pending (EV_A_ (W)w);
1273 if (!ev_is_active (w)) 1418 if (expect_false (!ev_is_active (w)))
1274 return; 1419 return;
1420
1421 assert (("ev_io_start called with illegal fd (must stay constant after start!)", w->fd >= 0 && w->fd < anfdmax));
1275 1422
1276 wlist_del ((WL *)&anfds[w->fd].head, (WL)w); 1423 wlist_del ((WL *)&anfds[w->fd].head, (WL)w);
1277 ev_stop (EV_A_ (W)w); 1424 ev_stop (EV_A_ (W)w);
1278 1425
1279 fd_change (EV_A_ w->fd); 1426 fd_change (EV_A_ w->fd);
1280} 1427}
1281 1428
1282void 1429void
1283ev_timer_start (EV_P_ struct ev_timer *w) 1430ev_timer_start (EV_P_ struct ev_timer *w)
1284{ 1431{
1285 if (ev_is_active (w)) 1432 if (expect_false (ev_is_active (w)))
1286 return; 1433 return;
1287 1434
1288 ((WT)w)->at += mn_now; 1435 ((WT)w)->at += mn_now;
1289 1436
1290 assert (("ev_timer_start called with negative timer repeat value", w->repeat >= 0.)); 1437 assert (("ev_timer_start called with negative timer repeat value", w->repeat >= 0.));
1291 1438
1292 ev_start (EV_A_ (W)w, ++timercnt); 1439 ev_start (EV_A_ (W)w, ++timercnt);
1293 array_needsize (struct ev_timer *, timers, timermax, timercnt, (void)); 1440 array_needsize (struct ev_timer *, timers, timermax, timercnt, EMPTY2);
1294 timers [timercnt - 1] = w; 1441 timers [timercnt - 1] = w;
1295 upheap ((WT *)timers, timercnt - 1); 1442 upheap ((WT *)timers, timercnt - 1);
1296 1443
1297 assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w)); 1444 assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w));
1298} 1445}
1299 1446
1300void 1447void
1301ev_timer_stop (EV_P_ struct ev_timer *w) 1448ev_timer_stop (EV_P_ struct ev_timer *w)
1302{ 1449{
1303 ev_clear_pending (EV_A_ (W)w); 1450 ev_clear_pending (EV_A_ (W)w);
1304 if (!ev_is_active (w)) 1451 if (expect_false (!ev_is_active (w)))
1305 return; 1452 return;
1306 1453
1307 assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w)); 1454 assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w));
1308 1455
1309 if (((W)w)->active < timercnt--) 1456 if (expect_true (((W)w)->active < timercnt--))
1310 { 1457 {
1311 timers [((W)w)->active - 1] = timers [timercnt]; 1458 timers [((W)w)->active - 1] = timers [timercnt];
1312 downheap ((WT *)timers, timercnt, ((W)w)->active - 1); 1459 adjustheap ((WT *)timers, timercnt, ((W)w)->active - 1);
1313 } 1460 }
1314 1461
1315 ((WT)w)->at = w->repeat; 1462 ((WT)w)->at -= mn_now;
1316 1463
1317 ev_stop (EV_A_ (W)w); 1464 ev_stop (EV_A_ (W)w);
1318} 1465}
1319 1466
1320void 1467void
1323 if (ev_is_active (w)) 1470 if (ev_is_active (w))
1324 { 1471 {
1325 if (w->repeat) 1472 if (w->repeat)
1326 { 1473 {
1327 ((WT)w)->at = mn_now + w->repeat; 1474 ((WT)w)->at = mn_now + w->repeat;
1328 downheap ((WT *)timers, timercnt, ((W)w)->active - 1); 1475 adjustheap ((WT *)timers, timercnt, ((W)w)->active - 1);
1329 } 1476 }
1330 else 1477 else
1331 ev_timer_stop (EV_A_ w); 1478 ev_timer_stop (EV_A_ w);
1332 } 1479 }
1333 else if (w->repeat) 1480 else if (w->repeat)
1481 {
1482 w->at = w->repeat;
1334 ev_timer_start (EV_A_ w); 1483 ev_timer_start (EV_A_ w);
1484 }
1335} 1485}
1336 1486
1487#if EV_PERIODICS
1337void 1488void
1338ev_periodic_start (EV_P_ struct ev_periodic *w) 1489ev_periodic_start (EV_P_ struct ev_periodic *w)
1339{ 1490{
1340 if (ev_is_active (w)) 1491 if (expect_false (ev_is_active (w)))
1341 return; 1492 return;
1342 1493
1343 if (w->reschedule_cb) 1494 if (w->reschedule_cb)
1344 ((WT)w)->at = w->reschedule_cb (w, rt_now); 1495 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now);
1345 else if (w->interval) 1496 else if (w->interval)
1346 { 1497 {
1347 assert (("ev_periodic_start called with negative interval value", w->interval >= 0.)); 1498 assert (("ev_periodic_start called with negative interval value", w->interval >= 0.));
1348 /* this formula differs from the one in periodic_reify because we do not always round up */ 1499 /* this formula differs from the one in periodic_reify because we do not always round up */
1349 ((WT)w)->at += ceil ((rt_now - ((WT)w)->at) / w->interval) * w->interval; 1500 ((WT)w)->at += ceil ((ev_rt_now - ((WT)w)->at) / w->interval) * w->interval;
1350 } 1501 }
1351 1502
1352 ev_start (EV_A_ (W)w, ++periodiccnt); 1503 ev_start (EV_A_ (W)w, ++periodiccnt);
1353 array_needsize (struct ev_periodic *, periodics, periodicmax, periodiccnt, (void)); 1504 array_needsize (struct ev_periodic *, periodics, periodicmax, periodiccnt, EMPTY2);
1354 periodics [periodiccnt - 1] = w; 1505 periodics [periodiccnt - 1] = w;
1355 upheap ((WT *)periodics, periodiccnt - 1); 1506 upheap ((WT *)periodics, periodiccnt - 1);
1356 1507
1357 assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w)); 1508 assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w));
1358} 1509}
1359 1510
1360void 1511void
1361ev_periodic_stop (EV_P_ struct ev_periodic *w) 1512ev_periodic_stop (EV_P_ struct ev_periodic *w)
1362{ 1513{
1363 ev_clear_pending (EV_A_ (W)w); 1514 ev_clear_pending (EV_A_ (W)w);
1364 if (!ev_is_active (w)) 1515 if (expect_false (!ev_is_active (w)))
1365 return; 1516 return;
1366 1517
1367 assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w)); 1518 assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w));
1368 1519
1369 if (((W)w)->active < periodiccnt--) 1520 if (expect_true (((W)w)->active < periodiccnt--))
1370 { 1521 {
1371 periodics [((W)w)->active - 1] = periodics [periodiccnt]; 1522 periodics [((W)w)->active - 1] = periodics [periodiccnt];
1372 downheap ((WT *)periodics, periodiccnt, ((W)w)->active - 1); 1523 adjustheap ((WT *)periodics, periodiccnt, ((W)w)->active - 1);
1373 } 1524 }
1374 1525
1375 ev_stop (EV_A_ (W)w); 1526 ev_stop (EV_A_ (W)w);
1376} 1527}
1377 1528
1378void 1529void
1379ev_periodic_again (EV_P_ struct ev_periodic *w) 1530ev_periodic_again (EV_P_ struct ev_periodic *w)
1380{ 1531{
1532 /* TODO: use adjustheap and recalculation */
1381 ev_periodic_stop (EV_A_ w); 1533 ev_periodic_stop (EV_A_ w);
1382 ev_periodic_start (EV_A_ w); 1534 ev_periodic_start (EV_A_ w);
1383} 1535}
1536#endif
1384 1537
1385void 1538void
1386ev_idle_start (EV_P_ struct ev_idle *w) 1539ev_idle_start (EV_P_ struct ev_idle *w)
1387{ 1540{
1388 if (ev_is_active (w)) 1541 if (expect_false (ev_is_active (w)))
1389 return; 1542 return;
1390 1543
1391 ev_start (EV_A_ (W)w, ++idlecnt); 1544 ev_start (EV_A_ (W)w, ++idlecnt);
1392 array_needsize (struct ev_idle *, idles, idlemax, idlecnt, (void)); 1545 array_needsize (struct ev_idle *, idles, idlemax, idlecnt, EMPTY2);
1393 idles [idlecnt - 1] = w; 1546 idles [idlecnt - 1] = w;
1394} 1547}
1395 1548
1396void 1549void
1397ev_idle_stop (EV_P_ struct ev_idle *w) 1550ev_idle_stop (EV_P_ struct ev_idle *w)
1398{ 1551{
1399 ev_clear_pending (EV_A_ (W)w); 1552 ev_clear_pending (EV_A_ (W)w);
1400 if (ev_is_active (w)) 1553 if (expect_false (!ev_is_active (w)))
1401 return; 1554 return;
1402 1555
1403 idles [((W)w)->active - 1] = idles [--idlecnt]; 1556 idles [((W)w)->active - 1] = idles [--idlecnt];
1404 ev_stop (EV_A_ (W)w); 1557 ev_stop (EV_A_ (W)w);
1405} 1558}
1406 1559
1407void 1560void
1408ev_prepare_start (EV_P_ struct ev_prepare *w) 1561ev_prepare_start (EV_P_ struct ev_prepare *w)
1409{ 1562{
1410 if (ev_is_active (w)) 1563 if (expect_false (ev_is_active (w)))
1411 return; 1564 return;
1412 1565
1413 ev_start (EV_A_ (W)w, ++preparecnt); 1566 ev_start (EV_A_ (W)w, ++preparecnt);
1414 array_needsize (struct ev_prepare *, prepares, preparemax, preparecnt, (void)); 1567 array_needsize (struct ev_prepare *, prepares, preparemax, preparecnt, EMPTY2);
1415 prepares [preparecnt - 1] = w; 1568 prepares [preparecnt - 1] = w;
1416} 1569}
1417 1570
1418void 1571void
1419ev_prepare_stop (EV_P_ struct ev_prepare *w) 1572ev_prepare_stop (EV_P_ struct ev_prepare *w)
1420{ 1573{
1421 ev_clear_pending (EV_A_ (W)w); 1574 ev_clear_pending (EV_A_ (W)w);
1422 if (ev_is_active (w)) 1575 if (expect_false (!ev_is_active (w)))
1423 return; 1576 return;
1424 1577
1425 prepares [((W)w)->active - 1] = prepares [--preparecnt]; 1578 prepares [((W)w)->active - 1] = prepares [--preparecnt];
1426 ev_stop (EV_A_ (W)w); 1579 ev_stop (EV_A_ (W)w);
1427} 1580}
1428 1581
1429void 1582void
1430ev_check_start (EV_P_ struct ev_check *w) 1583ev_check_start (EV_P_ struct ev_check *w)
1431{ 1584{
1432 if (ev_is_active (w)) 1585 if (expect_false (ev_is_active (w)))
1433 return; 1586 return;
1434 1587
1435 ev_start (EV_A_ (W)w, ++checkcnt); 1588 ev_start (EV_A_ (W)w, ++checkcnt);
1436 array_needsize (struct ev_check *, checks, checkmax, checkcnt, (void)); 1589 array_needsize (struct ev_check *, checks, checkmax, checkcnt, EMPTY2);
1437 checks [checkcnt - 1] = w; 1590 checks [checkcnt - 1] = w;
1438} 1591}
1439 1592
1440void 1593void
1441ev_check_stop (EV_P_ struct ev_check *w) 1594ev_check_stop (EV_P_ struct ev_check *w)
1442{ 1595{
1443 ev_clear_pending (EV_A_ (W)w); 1596 ev_clear_pending (EV_A_ (W)w);
1444 if (ev_is_active (w)) 1597 if (expect_false (!ev_is_active (w)))
1445 return; 1598 return;
1446 1599
1447 checks [((W)w)->active - 1] = checks [--checkcnt]; 1600 checks [((W)w)->active - 1] = checks [--checkcnt];
1448 ev_stop (EV_A_ (W)w); 1601 ev_stop (EV_A_ (W)w);
1449} 1602}
1454 1607
1455void 1608void
1456ev_signal_start (EV_P_ struct ev_signal *w) 1609ev_signal_start (EV_P_ struct ev_signal *w)
1457{ 1610{
1458#if EV_MULTIPLICITY 1611#if EV_MULTIPLICITY
1459 assert (("signal watchers are only supported in the default loop", loop == default_loop)); 1612 assert (("signal watchers are only supported in the default loop", loop == ev_default_loop_ptr));
1460#endif 1613#endif
1461 if (ev_is_active (w)) 1614 if (expect_false (ev_is_active (w)))
1462 return; 1615 return;
1463 1616
1464 assert (("ev_signal_start called with illegal signal number", w->signum > 0)); 1617 assert (("ev_signal_start called with illegal signal number", w->signum > 0));
1465 1618
1466 ev_start (EV_A_ (W)w, 1); 1619 ev_start (EV_A_ (W)w, 1);
1467 array_needsize (ANSIG, signals, signalmax, w->signum, signals_init); 1620 array_needsize (ANSIG, signals, signalmax, w->signum, signals_init);
1468 wlist_add ((WL *)&signals [w->signum - 1].head, (WL)w); 1621 wlist_add ((WL *)&signals [w->signum - 1].head, (WL)w);
1469 1622
1470 if (!((WL)w)->next) 1623 if (!((WL)w)->next)
1471 { 1624 {
1472#if WIN32 1625#if _WIN32
1473 signal (w->signum, sighandler); 1626 signal (w->signum, sighandler);
1474#else 1627#else
1475 struct sigaction sa; 1628 struct sigaction sa;
1476 sa.sa_handler = sighandler; 1629 sa.sa_handler = sighandler;
1477 sigfillset (&sa.sa_mask); 1630 sigfillset (&sa.sa_mask);
1483 1636
1484void 1637void
1485ev_signal_stop (EV_P_ struct ev_signal *w) 1638ev_signal_stop (EV_P_ struct ev_signal *w)
1486{ 1639{
1487 ev_clear_pending (EV_A_ (W)w); 1640 ev_clear_pending (EV_A_ (W)w);
1488 if (!ev_is_active (w)) 1641 if (expect_false (!ev_is_active (w)))
1489 return; 1642 return;
1490 1643
1491 wlist_del ((WL *)&signals [w->signum - 1].head, (WL)w); 1644 wlist_del ((WL *)&signals [w->signum - 1].head, (WL)w);
1492 ev_stop (EV_A_ (W)w); 1645 ev_stop (EV_A_ (W)w);
1493 1646
1497 1650
1498void 1651void
1499ev_child_start (EV_P_ struct ev_child *w) 1652ev_child_start (EV_P_ struct ev_child *w)
1500{ 1653{
1501#if EV_MULTIPLICITY 1654#if EV_MULTIPLICITY
1502 assert (("child watchers are only supported in the default loop", loop == default_loop)); 1655 assert (("child watchers are only supported in the default loop", loop == ev_default_loop_ptr));
1503#endif 1656#endif
1504 if (ev_is_active (w)) 1657 if (expect_false (ev_is_active (w)))
1505 return; 1658 return;
1506 1659
1507 ev_start (EV_A_ (W)w, 1); 1660 ev_start (EV_A_ (W)w, 1);
1508 wlist_add ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w); 1661 wlist_add ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w);
1509} 1662}
1510 1663
1511void 1664void
1512ev_child_stop (EV_P_ struct ev_child *w) 1665ev_child_stop (EV_P_ struct ev_child *w)
1513{ 1666{
1514 ev_clear_pending (EV_A_ (W)w); 1667 ev_clear_pending (EV_A_ (W)w);
1515 if (ev_is_active (w)) 1668 if (expect_false (!ev_is_active (w)))
1516 return; 1669 return;
1517 1670
1518 wlist_del ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w); 1671 wlist_del ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w);
1519 ev_stop (EV_A_ (W)w); 1672 ev_stop (EV_A_ (W)w);
1520} 1673}
1674
1675#if EV_MULTIPLICITY
1676static void
1677embed_cb (EV_P_ struct ev_io *io, int revents)
1678{
1679 struct ev_embed *w = (struct ev_embed *)(((char *)io) - offsetof (struct ev_embed, io));
1680
1681 ev_feed_event (EV_A_ (W)w, EV_EMBED);
1682 ev_loop (w->loop, EVLOOP_NONBLOCK);
1683}
1684
1685void
1686ev_embed_start (EV_P_ struct ev_embed *w)
1687{
1688 if (expect_false (ev_is_active (w)))
1689 return;
1690
1691 {
1692 struct ev_loop *loop = w->loop;
1693 assert (("loop to be embedded is not embeddable", backend & ev_embeddable_backends ()));
1694 ev_io_init (&w->io, embed_cb, backend_fd, EV_READ);
1695 }
1696
1697 ev_io_start (EV_A_ &w->io);
1698 ev_start (EV_A_ (W)w, 1);
1699}
1700
1701void
1702ev_embed_stop (EV_P_ struct ev_embed *w)
1703{
1704 ev_clear_pending (EV_A_ (W)w);
1705 if (expect_false (!ev_is_active (w)))
1706 return;
1707
1708 ev_io_stop (EV_A_ &w->io);
1709 ev_stop (EV_A_ (W)w);
1710}
1711#endif
1521 1712
1522/*****************************************************************************/ 1713/*****************************************************************************/
1523 1714
1524struct ev_once 1715struct ev_once
1525{ 1716{
1557void 1748void
1558ev_once (EV_P_ int fd, int events, ev_tstamp timeout, void (*cb)(int revents, void *arg), void *arg) 1749ev_once (EV_P_ int fd, int events, ev_tstamp timeout, void (*cb)(int revents, void *arg), void *arg)
1559{ 1750{
1560 struct ev_once *once = (struct ev_once *)ev_malloc (sizeof (struct ev_once)); 1751 struct ev_once *once = (struct ev_once *)ev_malloc (sizeof (struct ev_once));
1561 1752
1562 if (!once) 1753 if (expect_false (!once))
1754 {
1563 cb (EV_ERROR | EV_READ | EV_WRITE | EV_TIMEOUT, arg); 1755 cb (EV_ERROR | EV_READ | EV_WRITE | EV_TIMEOUT, arg);
1564 else 1756 return;
1565 { 1757 }
1758
1566 once->cb = cb; 1759 once->cb = cb;
1567 once->arg = arg; 1760 once->arg = arg;
1568 1761
1569 ev_watcher_init (&once->io, once_cb_io); 1762 ev_init (&once->io, once_cb_io);
1570 if (fd >= 0) 1763 if (fd >= 0)
1571 { 1764 {
1572 ev_io_set (&once->io, fd, events); 1765 ev_io_set (&once->io, fd, events);
1573 ev_io_start (EV_A_ &once->io); 1766 ev_io_start (EV_A_ &once->io);
1574 } 1767 }
1575 1768
1576 ev_watcher_init (&once->to, once_cb_to); 1769 ev_init (&once->to, once_cb_to);
1577 if (timeout >= 0.) 1770 if (timeout >= 0.)
1578 { 1771 {
1579 ev_timer_set (&once->to, timeout, 0.); 1772 ev_timer_set (&once->to, timeout, 0.);
1580 ev_timer_start (EV_A_ &once->to); 1773 ev_timer_start (EV_A_ &once->to);
1581 }
1582 } 1774 }
1583} 1775}
1584 1776
1777#ifdef __cplusplus
1778}
1779#endif
1780

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines