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

Comparing libev/ev.c (file contents):
Revision 1.22 by root, Wed Oct 31 19:07:43 2007 UTC vs.
Revision 1.63 by root, Sun Nov 4 22:03:17 2007 UTC

1/* 1/*
2 * libev event processing core, watcher management
3 *
2 * Copyright (c) 2007 Marc Alexander Lehmann <libev@schmorp.de> 4 * Copyright (c) 2007 Marc Alexander Lehmann <libev@schmorp.de>
3 * All rights reserved. 5 * All rights reserved.
4 * 6 *
5 * Redistribution and use in source and binary forms, with or without 7 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions are 8 * modification, are permitted provided that the following conditions are
24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 26 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 27 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 * (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
27 * 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.
28 */ 30 */
31#ifndef EV_STANDALONE
32# include "config.h"
33
34# if HAVE_CLOCK_GETTIME
35# define EV_USE_MONOTONIC 1
36# define EV_USE_REALTIME 1
37# endif
38
39# if HAVE_SELECT && HAVE_SYS_SELECT_H
40# define EV_USE_SELECT 1
41# endif
42
43# if HAVE_POLL && HAVE_POLL_H
44# define EV_USE_POLL 1
45# endif
46
47# if HAVE_EPOLL && HAVE_EPOLL_CTL && HAVE_SYS_EPOLL_H
48# define EV_USE_EPOLL 1
49# endif
50
51# if HAVE_KQUEUE && HAVE_WORKING_KQUEUE && HAVE_SYS_EVENT_H && HAVE_SYS_QUEUE_H
52# define EV_USE_KQUEUE 1
53# endif
54
55#endif
29 56
30#include <math.h> 57#include <math.h>
31#include <stdlib.h> 58#include <stdlib.h>
32#include <unistd.h> 59#include <unistd.h>
33#include <fcntl.h> 60#include <fcntl.h>
37#include <stdio.h> 64#include <stdio.h>
38 65
39#include <assert.h> 66#include <assert.h>
40#include <errno.h> 67#include <errno.h>
41#include <sys/types.h> 68#include <sys/types.h>
69#ifndef WIN32
42#include <sys/wait.h> 70# include <sys/wait.h>
71#endif
43#include <sys/time.h> 72#include <sys/time.h>
44#include <time.h> 73#include <time.h>
45 74
75/**/
76
46#ifndef HAVE_MONOTONIC 77#ifndef EV_USE_MONOTONIC
47# ifdef CLOCK_MONOTONIC
48# define HAVE_MONOTONIC 1 78# define EV_USE_MONOTONIC 1
79#endif
80
81#ifndef EV_USE_SELECT
82# define EV_USE_SELECT 1
83#endif
84
85#ifndef EV_USE_POLL
86# define EV_USE_POLL 0 /* poll is usually slower than select, and not as well tested */
87#endif
88
89#ifndef EV_USE_EPOLL
90# define EV_USE_EPOLL 0
91#endif
92
93#ifndef EV_USE_KQUEUE
94# define EV_USE_KQUEUE 0
95#endif
96
97#ifndef EV_USE_WIN32
98# ifdef WIN32
99# define EV_USE_WIN32 1
100# else
101# define EV_USE_WIN32 0
49# endif 102# endif
50#endif 103#endif
51 104
52#ifndef HAVE_SELECT
53# define HAVE_SELECT 1
54#endif
55
56#ifndef HAVE_EPOLL
57# define HAVE_EPOLL 0
58#endif
59
60#ifndef HAVE_REALTIME 105#ifndef EV_USE_REALTIME
61# define HAVE_REALTIME 1 /* posix requirement, but might be slower */ 106# define EV_USE_REALTIME 1
62#endif 107#endif
108
109/**/
110
111#ifndef CLOCK_MONOTONIC
112# undef EV_USE_MONOTONIC
113# define EV_USE_MONOTONIC 0
114#endif
115
116#ifndef CLOCK_REALTIME
117# undef EV_USE_REALTIME
118# define EV_USE_REALTIME 0
119#endif
120
121/**/
63 122
64#define MIN_TIMEJUMP 1. /* minimum timejump that gets detected (if monotonic clock available) */ 123#define MIN_TIMEJUMP 1. /* minimum timejump that gets detected (if monotonic clock available) */
65#define MAX_BLOCKTIME 60. 124#define MAX_BLOCKTIME 59.731 /* never wait longer than this time (to detect time jumps) */
66#define PID_HASHSIZE 16 /* size of pid hahs table, must be power of two */ 125#define PID_HASHSIZE 16 /* size of pid hash table, must be power of two */
126/*#define CLEANUP_INTERVAL 300. /* how often to try to free memory and re-check fds */
67 127
68#include "ev.h" 128#include "ev.h"
129
130#if __GNUC__ >= 3
131# define expect(expr,value) __builtin_expect ((expr),(value))
132# define inline inline
133#else
134# define expect(expr,value) (expr)
135# define inline static
136#endif
137
138#define expect_false(expr) expect ((expr) != 0, 0)
139#define expect_true(expr) expect ((expr) != 0, 1)
140
141#define NUMPRI (EV_MAXPRI - EV_MINPRI + 1)
142#define ABSPRI(w) ((w)->priority - EV_MINPRI)
69 143
70typedef struct ev_watcher *W; 144typedef struct ev_watcher *W;
71typedef struct ev_watcher_list *WL; 145typedef struct ev_watcher_list *WL;
72typedef struct ev_watcher_time *WT; 146typedef struct ev_watcher_time *WT;
73 147
74static ev_tstamp now, diff; /* monotonic clock */ 148static int have_monotonic; /* did clock_gettime (CLOCK_MONOTONIC) work? */
75ev_tstamp ev_now;
76int ev_method;
77
78static int have_monotonic; /* runtime */
79
80static ev_tstamp method_fudge; /* stupid epoll-returns-early bug */
81static void (*method_modify)(int fd, int oev, int nev);
82static void (*method_poll)(ev_tstamp timeout);
83 149
84/*****************************************************************************/ 150/*****************************************************************************/
85 151
86ev_tstamp 152typedef struct
153{
154 struct ev_watcher_list *head;
155 unsigned char events;
156 unsigned char reify;
157} ANFD;
158
159typedef struct
160{
161 W w;
162 int events;
163} ANPENDING;
164
165#if EV_MULTIPLICITY
166
167struct ev_loop
168{
169# define VAR(name,decl) decl;
170# include "ev_vars.h"
171};
172# undef VAR
173# include "ev_wrap.h"
174
175#else
176
177# define VAR(name,decl) static decl;
178# include "ev_vars.h"
179# undef VAR
180
181#endif
182
183/*****************************************************************************/
184
185inline ev_tstamp
87ev_time (void) 186ev_time (void)
88{ 187{
89#if HAVE_REALTIME 188#if EV_USE_REALTIME
90 struct timespec ts; 189 struct timespec ts;
91 clock_gettime (CLOCK_REALTIME, &ts); 190 clock_gettime (CLOCK_REALTIME, &ts);
92 return ts.tv_sec + ts.tv_nsec * 1e-9; 191 return ts.tv_sec + ts.tv_nsec * 1e-9;
93#else 192#else
94 struct timeval tv; 193 struct timeval tv;
95 gettimeofday (&tv, 0); 194 gettimeofday (&tv, 0);
96 return tv.tv_sec + tv.tv_usec * 1e-6; 195 return tv.tv_sec + tv.tv_usec * 1e-6;
97#endif 196#endif
98} 197}
99 198
100static ev_tstamp 199inline ev_tstamp
101get_clock (void) 200get_clock (void)
102{ 201{
103#if HAVE_MONOTONIC 202#if EV_USE_MONOTONIC
104 if (have_monotonic) 203 if (expect_true (have_monotonic))
105 { 204 {
106 struct timespec ts; 205 struct timespec ts;
107 clock_gettime (CLOCK_MONOTONIC, &ts); 206 clock_gettime (CLOCK_MONOTONIC, &ts);
108 return ts.tv_sec + ts.tv_nsec * 1e-9; 207 return ts.tv_sec + ts.tv_nsec * 1e-9;
109 } 208 }
110#endif 209#endif
111 210
112 return ev_time (); 211 return ev_time ();
113} 212}
114 213
214ev_tstamp
215ev_now (EV_P)
216{
217 return rt_now;
218}
219
220#define array_roundsize(base,n) ((n) | 4 & ~3)
221
115#define array_needsize(base,cur,cnt,init) \ 222#define array_needsize(base,cur,cnt,init) \
116 if ((cnt) > cur) \ 223 if (expect_false ((cnt) > cur)) \
117 { \ 224 { \
118 int newcnt = cur ? cur << 1 : 16; \ 225 int newcnt = cur; \
226 do \
227 { \
228 newcnt = array_roundsize (base, newcnt << 1); \
229 } \
230 while ((cnt) > newcnt); \
231 \
119 base = realloc (base, sizeof (*base) * (newcnt)); \ 232 base = realloc (base, sizeof (*base) * (newcnt)); \
120 init (base + cur, newcnt - cur); \ 233 init (base + cur, newcnt - cur); \
121 cur = newcnt; \ 234 cur = newcnt; \
122 } 235 }
123 236
124/*****************************************************************************/ 237/*****************************************************************************/
125 238
126typedef struct
127{
128 struct ev_io *head;
129 unsigned char wev, rev; /* want, received event set */
130} ANFD;
131
132static ANFD *anfds;
133static int anfdmax;
134
135static int *fdchanges;
136static int fdchangemax, fdchangecnt;
137
138static void 239static void
139anfds_init (ANFD *base, int count) 240anfds_init (ANFD *base, int count)
140{ 241{
141 while (count--) 242 while (count--)
142 { 243 {
143 base->head = 0; 244 base->head = 0;
144 base->wev = base->rev = EV_NONE; 245 base->events = EV_NONE;
246 base->reify = 0;
247
145 ++base; 248 ++base;
146 } 249 }
147} 250}
148 251
149typedef struct
150{
151 W w;
152 int events;
153} ANPENDING;
154
155static ANPENDING *pendings;
156static int pendingmax, pendingcnt;
157
158static void 252static void
159event (W w, int events) 253event (EV_P_ W w, int events)
160{ 254{
161 if (w->active) 255 if (w->pending)
162 { 256 {
163 w->pending = ++pendingcnt;
164 array_needsize (pendings, pendingmax, pendingcnt, );
165 pendings [pendingcnt - 1].w = w;
166 pendings [pendingcnt - 1].events = events; 257 pendings [ABSPRI (w)][w->pending - 1].events |= events;
258 return;
167 } 259 }
168}
169 260
261 w->pending = ++pendingcnt [ABSPRI (w)];
262 array_needsize (pendings [ABSPRI (w)], pendingmax [ABSPRI (w)], pendingcnt [ABSPRI (w)], );
263 pendings [ABSPRI (w)][w->pending - 1].w = w;
264 pendings [ABSPRI (w)][w->pending - 1].events = events;
265}
266
170static void 267static void
268queue_events (EV_P_ W *events, int eventcnt, int type)
269{
270 int i;
271
272 for (i = 0; i < eventcnt; ++i)
273 event (EV_A_ events [i], type);
274}
275
276static void
171fd_event (int fd, int events) 277fd_event (EV_P_ int fd, int events)
172{ 278{
173 ANFD *anfd = anfds + fd; 279 ANFD *anfd = anfds + fd;
174 struct ev_io *w; 280 struct ev_io *w;
175 281
176 for (w = anfd->head; w; w = w->next) 282 for (w = (struct ev_io *)anfd->head; w; w = (struct ev_io *)((WL)w)->next)
177 { 283 {
178 int ev = w->events & events; 284 int ev = w->events & events;
179 285
180 if (ev) 286 if (ev)
181 event ((W)w, ev); 287 event (EV_A_ (W)w, ev);
182 } 288 }
183} 289}
184 290
291/*****************************************************************************/
292
185static void 293static void
186queue_events (W *events, int eventcnt, int type) 294fd_reify (EV_P)
187{ 295{
188 int i; 296 int i;
189 297
190 for (i = 0; i < eventcnt; ++i) 298 for (i = 0; i < fdchangecnt; ++i)
191 event (events [i], type); 299 {
300 int fd = fdchanges [i];
301 ANFD *anfd = anfds + fd;
302 struct ev_io *w;
303
304 int events = 0;
305
306 for (w = (struct ev_io *)anfd->head; w; w = (struct ev_io *)((WL)w)->next)
307 events |= w->events;
308
309 anfd->reify = 0;
310
311 if (anfd->events != events)
312 {
313 method_modify (EV_A_ fd, anfd->events, events);
314 anfd->events = events;
315 }
316 }
317
318 fdchangecnt = 0;
319}
320
321static void
322fd_change (EV_P_ int fd)
323{
324 if (anfds [fd].reify || fdchangecnt < 0)
325 return;
326
327 anfds [fd].reify = 1;
328
329 ++fdchangecnt;
330 array_needsize (fdchanges, fdchangemax, fdchangecnt, );
331 fdchanges [fdchangecnt - 1] = fd;
332}
333
334static void
335fd_kill (EV_P_ int fd)
336{
337 struct ev_io *w;
338
339 while ((w = (struct ev_io *)anfds [fd].head))
340 {
341 ev_io_stop (EV_A_ w);
342 event (EV_A_ (W)w, EV_ERROR | EV_READ | EV_WRITE);
343 }
192} 344}
193 345
194/* called on EBADF to verify fds */ 346/* called on EBADF to verify fds */
195static void 347static void
196fd_recheck () 348fd_ebadf (EV_P)
197{ 349{
198 int fd; 350 int fd;
199 351
200 for (fd = 0; fd < anfdmax; ++fd) 352 for (fd = 0; fd < anfdmax; ++fd)
201 if (anfds [fd].wev) 353 if (anfds [fd].events)
202 if (fcntl (fd, F_GETFD) == -1 && errno == EBADF) 354 if (fcntl (fd, F_GETFD) == -1 && errno == EBADF)
203 while (anfds [fd].head) 355 fd_kill (EV_A_ fd);
204 evio_stop (anfds [fd].head); 356}
357
358/* called on ENOMEM in select/poll to kill some fds and retry */
359static void
360fd_enomem (EV_P)
361{
362 int fd;
363
364 for (fd = anfdmax; fd--; )
365 if (anfds [fd].events)
366 {
367 close (fd);
368 fd_kill (EV_A_ fd);
369 return;
370 }
371}
372
373/* susually called after fork if method needs to re-arm all fds from scratch */
374static void
375fd_rearm_all (EV_P)
376{
377 int fd;
378
379 /* this should be highly optimised to not do anything but set a flag */
380 for (fd = 0; fd < anfdmax; ++fd)
381 if (anfds [fd].events)
382 {
383 anfds [fd].events = 0;
384 fd_change (EV_A_ fd);
385 }
205} 386}
206 387
207/*****************************************************************************/ 388/*****************************************************************************/
208 389
209static struct ev_timer **timers;
210static int timermax, timercnt;
211
212static struct ev_periodic **periodics;
213static int periodicmax, periodiccnt;
214
215static void 390static void
216upheap (WT *timers, int k) 391upheap (WT *heap, int k)
217{ 392{
218 WT w = timers [k]; 393 WT w = heap [k];
219 394
220 while (k && timers [k >> 1]->at > w->at) 395 while (k && heap [k >> 1]->at > w->at)
221 { 396 {
222 timers [k] = timers [k >> 1]; 397 heap [k] = heap [k >> 1];
223 timers [k]->active = k + 1; 398 ((W)heap [k])->active = k + 1;
224 k >>= 1; 399 k >>= 1;
225 } 400 }
226 401
227 timers [k] = w; 402 heap [k] = w;
228 timers [k]->active = k + 1; 403 ((W)heap [k])->active = k + 1;
229 404
230} 405}
231 406
232static void 407static void
233downheap (WT *timers, int N, int k) 408downheap (WT *heap, int N, int k)
234{ 409{
235 WT w = timers [k]; 410 WT w = heap [k];
236 411
237 while (k < (N >> 1)) 412 while (k < (N >> 1))
238 { 413 {
239 int j = k << 1; 414 int j = k << 1;
240 415
241 if (j + 1 < N && timers [j]->at > timers [j + 1]->at) 416 if (j + 1 < N && heap [j]->at > heap [j + 1]->at)
242 ++j; 417 ++j;
243 418
244 if (w->at <= timers [j]->at) 419 if (w->at <= heap [j]->at)
245 break; 420 break;
246 421
247 timers [k] = timers [j]; 422 heap [k] = heap [j];
248 timers [k]->active = k + 1; 423 ((W)heap [k])->active = k + 1;
249 k = j; 424 k = j;
250 } 425 }
251 426
252 timers [k] = w; 427 heap [k] = w;
253 timers [k]->active = k + 1; 428 ((W)heap [k])->active = k + 1;
254} 429}
255 430
256/*****************************************************************************/ 431/*****************************************************************************/
257 432
258typedef struct 433typedef struct
259{ 434{
260 struct ev_signal *head; 435 struct ev_watcher_list *head;
261 sig_atomic_t gotsig; 436 sig_atomic_t volatile gotsig;
262} ANSIG; 437} ANSIG;
263 438
264static ANSIG *signals; 439static ANSIG *signals;
265static int signalmax; 440static int signalmax;
266 441
267static int sigpipe [2]; 442static int sigpipe [2];
268static sig_atomic_t gotsig; 443static sig_atomic_t volatile gotsig;
269static struct ev_io sigev; 444static struct ev_io sigev;
270 445
271static void 446static void
272signals_init (ANSIG *base, int count) 447signals_init (ANSIG *base, int count)
273{ 448{
274 while (count--) 449 while (count--)
275 { 450 {
276 base->head = 0; 451 base->head = 0;
277 base->gotsig = 0; 452 base->gotsig = 0;
453
278 ++base; 454 ++base;
279 } 455 }
280} 456}
281 457
282static void 458static void
284{ 460{
285 signals [signum - 1].gotsig = 1; 461 signals [signum - 1].gotsig = 1;
286 462
287 if (!gotsig) 463 if (!gotsig)
288 { 464 {
465 int old_errno = errno;
289 gotsig = 1; 466 gotsig = 1;
290 write (sigpipe [1], &gotsig, 1); 467 write (sigpipe [1], &signum, 1);
468 errno = old_errno;
291 } 469 }
292} 470}
293 471
294static void 472static void
295sigcb (struct ev_io *iow, int revents) 473sigcb (EV_P_ struct ev_io *iow, int revents)
296{ 474{
297 struct ev_signal *w; 475 struct ev_watcher_list *w;
298 int sig; 476 int signum;
299 477
478 read (sigpipe [0], &revents, 1);
300 gotsig = 0; 479 gotsig = 0;
301 read (sigpipe [0], &revents, 1);
302 480
303 for (sig = signalmax; sig--; ) 481 for (signum = signalmax; signum--; )
304 if (signals [sig].gotsig) 482 if (signals [signum].gotsig)
305 { 483 {
306 signals [sig].gotsig = 0; 484 signals [signum].gotsig = 0;
307 485
308 for (w = signals [sig].head; w; w = w->next) 486 for (w = signals [signum].head; w; w = w->next)
309 event ((W)w, EV_SIGNAL); 487 event (EV_A_ (W)w, EV_SIGNAL);
310 } 488 }
311} 489}
312 490
313static void 491static void
314siginit (void) 492siginit (EV_P)
315{ 493{
494#ifndef WIN32
316 fcntl (sigpipe [0], F_SETFD, FD_CLOEXEC); 495 fcntl (sigpipe [0], F_SETFD, FD_CLOEXEC);
317 fcntl (sigpipe [1], F_SETFD, FD_CLOEXEC); 496 fcntl (sigpipe [1], F_SETFD, FD_CLOEXEC);
318 497
319 /* rather than sort out wether we really need nb, set it */ 498 /* rather than sort out wether we really need nb, set it */
320 fcntl (sigpipe [0], F_SETFL, O_NONBLOCK); 499 fcntl (sigpipe [0], F_SETFL, O_NONBLOCK);
321 fcntl (sigpipe [1], F_SETFL, O_NONBLOCK); 500 fcntl (sigpipe [1], F_SETFL, O_NONBLOCK);
501#endif
322 502
323 evio_set (&sigev, sigpipe [0], EV_READ); 503 ev_io_set (&sigev, sigpipe [0], EV_READ);
324 evio_start (&sigev); 504 ev_io_start (EV_A_ &sigev);
505 ev_unref (EV_A); /* child watcher should not keep loop alive */
325} 506}
326 507
327/*****************************************************************************/ 508/*****************************************************************************/
328 509
329static struct ev_idle **idles; 510#ifndef WIN32
330static int idlemax, idlecnt;
331
332static struct ev_prepare **prepares;
333static int preparemax, preparecnt;
334
335static struct ev_check **checks;
336static int checkmax, checkcnt;
337
338/*****************************************************************************/
339 511
340static struct ev_child *childs [PID_HASHSIZE]; 512static struct ev_child *childs [PID_HASHSIZE];
341static struct ev_signal childev; 513static struct ev_signal childev;
342 514
343#ifndef WCONTINUED 515#ifndef WCONTINUED
344# define WCONTINUED 0 516# define WCONTINUED 0
345#endif 517#endif
346 518
347static void 519static void
348childcb (struct ev_signal *sw, int revents) 520child_reap (EV_P_ struct ev_signal *sw, int chain, int pid, int status)
349{ 521{
350 struct ev_child *w; 522 struct ev_child *w;
523
524 for (w = (struct ev_child *)childs [chain & (PID_HASHSIZE - 1)]; w; w = (struct ev_child *)((WL)w)->next)
525 if (w->pid == pid || !w->pid)
526 {
527 ev_priority (w) = ev_priority (sw); /* need to do it *now* */
528 w->rpid = pid;
529 w->rstatus = status;
530 event (EV_A_ (W)w, EV_CHILD);
531 }
532}
533
534static void
535childcb (EV_P_ struct ev_signal *sw, int revents)
536{
351 int pid, status; 537 int pid, status;
352 538
353 while ((pid = waitpid (-1, &status, WNOHANG | WUNTRACED | WCONTINUED)) != -1) 539 if (0 < (pid = waitpid (-1, &status, WNOHANG | WUNTRACED | WCONTINUED)))
354 for (w = childs [pid & (PID_HASHSIZE - 1)]; w; w = w->next) 540 {
355 if (w->pid == pid || w->pid == -1) 541 /* make sure we are called again until all childs have been reaped */
542 event (EV_A_ (W)sw, EV_SIGNAL);
543
544 child_reap (EV_A_ sw, pid, pid, status);
545 child_reap (EV_A_ sw, 0, pid, status); /* this might trigger a watcher twice, but event catches that */
546 }
547}
548
549#endif
550
551/*****************************************************************************/
552
553#if EV_USE_KQUEUE
554# include "ev_kqueue.c"
555#endif
556#if EV_USE_EPOLL
557# include "ev_epoll.c"
558#endif
559#if EV_USE_POLL
560# include "ev_poll.c"
561#endif
562#if EV_USE_SELECT
563# include "ev_select.c"
564#endif
565
566int
567ev_version_major (void)
568{
569 return EV_VERSION_MAJOR;
570}
571
572int
573ev_version_minor (void)
574{
575 return EV_VERSION_MINOR;
576}
577
578/* return true if we are running with elevated privileges and should ignore env variables */
579static int
580enable_secure (void)
581{
582#ifdef WIN32
583 return 0;
584#else
585 return getuid () != geteuid ()
586 || getgid () != getegid ();
587#endif
588}
589
590int
591ev_method (EV_P)
592{
593 return method;
594}
595
596static void
597loop_init (EV_P_ int methods)
598{
599 if (!method)
600 {
601#if EV_USE_MONOTONIC
602 {
603 struct timespec ts;
604 if (!clock_gettime (CLOCK_MONOTONIC, &ts))
605 have_monotonic = 1;
606 }
607#endif
608
609 rt_now = ev_time ();
610 mn_now = get_clock ();
611 now_floor = mn_now;
612 rtmn_diff = rt_now - mn_now;
613
614 if (methods == EVMETHOD_AUTO)
615 if (!enable_secure () && getenv ("LIBEV_METHODS"))
616 methods = atoi (getenv ("LIBEV_METHODS"));
617 else
618 methods = EVMETHOD_ANY;
619
620 method = 0;
621#if EV_USE_WIN32
622 if (!method && (methods & EVMETHOD_WIN32 )) method = win32_init (EV_A_ methods);
623#endif
624#if EV_USE_KQUEUE
625 if (!method && (methods & EVMETHOD_KQUEUE)) method = kqueue_init (EV_A_ methods);
626#endif
627#if EV_USE_EPOLL
628 if (!method && (methods & EVMETHOD_EPOLL )) method = epoll_init (EV_A_ methods);
629#endif
630#if EV_USE_POLL
631 if (!method && (methods & EVMETHOD_POLL )) method = poll_init (EV_A_ methods);
632#endif
633#if EV_USE_SELECT
634 if (!method && (methods & EVMETHOD_SELECT)) method = select_init (EV_A_ methods);
635#endif
636 }
637}
638
639void
640loop_destroy (EV_P)
641{
642#if EV_USE_WIN32
643 if (method == EVMETHOD_WIN32 ) win32_destroy (EV_A);
644#endif
645#if EV_USE_KQUEUE
646 if (method == EVMETHOD_KQUEUE) kqueue_destroy (EV_A);
647#endif
648#if EV_USE_EPOLL
649 if (method == EVMETHOD_EPOLL ) epoll_destroy (EV_A);
650#endif
651#if EV_USE_POLL
652 if (method == EVMETHOD_POLL ) poll_destroy (EV_A);
653#endif
654#if EV_USE_SELECT
655 if (method == EVMETHOD_SELECT) select_destroy (EV_A);
656#endif
657
658 method = 0;
659 /*TODO*/
660}
661
662void
663loop_fork (EV_P)
664{
665 /*TODO*/
666#if EV_USE_EPOLL
667 if (method == EVMETHOD_EPOLL ) epoll_fork (EV_A);
668#endif
669#if EV_USE_KQUEUE
670 if (method == EVMETHOD_KQUEUE) kqueue_fork (EV_A);
671#endif
672}
673
674#if EV_MULTIPLICITY
675struct ev_loop *
676ev_loop_new (int methods)
677{
678 struct ev_loop *loop = (struct ev_loop *)calloc (1, sizeof (struct ev_loop));
679
680 loop_init (EV_A_ methods);
681
682 if (ev_method (EV_A))
683 return loop;
684
685 return 0;
686}
687
688void
689ev_loop_destroy (EV_P)
690{
691 loop_destroy (EV_A);
692 free (loop);
693}
694
695void
696ev_loop_fork (EV_P)
697{
698 loop_fork (EV_A);
699}
700
701#endif
702
703#if EV_MULTIPLICITY
704struct ev_loop default_loop_struct;
705static struct ev_loop *default_loop;
706
707struct ev_loop *
708#else
709static int default_loop;
710
711int
712#endif
713ev_default_loop (int methods)
714{
715 if (sigpipe [0] == sigpipe [1])
716 if (pipe (sigpipe))
717 return 0;
718
719 if (!default_loop)
720 {
721#if EV_MULTIPLICITY
722 struct ev_loop *loop = default_loop = &default_loop_struct;
723#else
724 default_loop = 1;
725#endif
726
727 loop_init (EV_A_ methods);
728
729 if (ev_method (EV_A))
356 { 730 {
357 w->status = status; 731 ev_watcher_init (&sigev, sigcb);
358 event ((W)w, EV_CHILD); 732 ev_set_priority (&sigev, EV_MAXPRI);
733 siginit (EV_A);
734
735#ifndef WIN32
736 ev_signal_init (&childev, childcb, SIGCHLD);
737 ev_set_priority (&childev, EV_MAXPRI);
738 ev_signal_start (EV_A_ &childev);
739 ev_unref (EV_A); /* child watcher should not keep loop alive */
740#endif
359 } 741 }
360} 742 else
361 743 default_loop = 0;
362/*****************************************************************************/
363
364#if HAVE_EPOLL
365# include "ev_epoll.c"
366#endif
367#if HAVE_SELECT
368# include "ev_select.c"
369#endif
370
371int ev_init (int flags)
372{
373#if HAVE_MONOTONIC
374 {
375 struct timespec ts;
376 if (!clock_gettime (CLOCK_MONOTONIC, &ts))
377 have_monotonic = 1;
378 }
379#endif
380
381 ev_now = ev_time ();
382 now = get_clock ();
383 diff = ev_now - now;
384
385 if (pipe (sigpipe))
386 return 0;
387
388 ev_method = EVMETHOD_NONE;
389#if HAVE_EPOLL
390 if (ev_method == EVMETHOD_NONE) epoll_init (flags);
391#endif
392#if HAVE_SELECT
393 if (ev_method == EVMETHOD_NONE) select_init (flags);
394#endif
395
396 if (ev_method)
397 { 744 }
398 evw_init (&sigev, sigcb);
399 siginit ();
400 745
401 evsignal_init (&childev, childcb, SIGCHLD); 746 return default_loop;
747}
748
749void
750ev_default_destroy (void)
751{
752#if EV_MULTIPLICITY
753 struct ev_loop *loop = default_loop;
754#endif
755
756 ev_ref (EV_A); /* child watcher */
402 evsignal_start (&childev); 757 ev_signal_stop (EV_A_ &childev);
403 }
404 758
405 return ev_method; 759 ev_ref (EV_A); /* signal watcher */
406}
407
408/*****************************************************************************/
409
410void ev_prefork (void)
411{
412 /* nop */
413}
414
415void ev_postfork_parent (void)
416{
417 /* nop */
418}
419
420void ev_postfork_child (void)
421{
422#if HAVE_EPOLL
423 if (ev_method == EVMETHOD_EPOLL)
424 epoll_postfork_child ();
425#endif
426
427 evio_stop (&sigev); 760 ev_io_stop (EV_A_ &sigev);
761
762 close (sigpipe [0]); sigpipe [0] = 0;
763 close (sigpipe [1]); sigpipe [1] = 0;
764
765 loop_destroy (EV_A);
766}
767
768void
769ev_default_fork (void)
770{
771#if EV_MULTIPLICITY
772 struct ev_loop *loop = default_loop;
773#endif
774
775 loop_fork (EV_A);
776
777 ev_io_stop (EV_A_ &sigev);
428 close (sigpipe [0]); 778 close (sigpipe [0]);
429 close (sigpipe [1]); 779 close (sigpipe [1]);
430 pipe (sigpipe); 780 pipe (sigpipe);
781
782 ev_ref (EV_A); /* signal watcher */
431 siginit (); 783 siginit (EV_A);
432} 784}
433 785
434/*****************************************************************************/ 786/*****************************************************************************/
435 787
436static void 788static void
437fd_reify (void) 789call_pending (EV_P)
438{ 790{
439 int i; 791 int pri;
440 792
441 for (i = 0; i < fdchangecnt; ++i) 793 for (pri = NUMPRI; pri--; )
442 { 794 while (pendingcnt [pri])
443 int fd = fdchanges [i];
444 ANFD *anfd = anfds + fd;
445 struct ev_io *w;
446
447 int wev = 0;
448
449 for (w = anfd->head; w; w = w->next)
450 wev |= w->events;
451
452 if (anfd->wev != wev)
453 { 795 {
454 method_modify (fd, anfd->wev, wev);
455 anfd->wev = wev;
456 }
457 }
458
459 fdchangecnt = 0;
460}
461
462static void
463call_pending ()
464{
465 while (pendingcnt)
466 {
467 ANPENDING *p = pendings + --pendingcnt; 796 ANPENDING *p = pendings [pri] + --pendingcnt [pri];
468 797
469 if (p->w) 798 if (p->w)
470 { 799 {
471 p->w->pending = 0; 800 p->w->pending = 0;
472 p->w->cb (p->w, p->events); 801
802 (*(void (**)(EV_P_ W, int))&p->w->cb) (EV_A_ p->w, p->events);
473 } 803 }
474 } 804 }
475} 805}
476 806
477static void 807static void
478timers_reify () 808timers_reify (EV_P)
479{ 809{
480 while (timercnt && timers [0]->at <= now) 810 while (timercnt && ((WT)timers [0])->at <= mn_now)
481 { 811 {
482 struct ev_timer *w = timers [0]; 812 struct ev_timer *w = timers [0];
483 813
484 event ((W)w, EV_TIMEOUT); 814 assert (("inactive timer on timer heap detected", ev_is_active (w)));
485 815
486 /* first reschedule or stop timer */ 816 /* first reschedule or stop timer */
487 if (w->repeat) 817 if (w->repeat)
488 { 818 {
819 assert (("negative ev_timer repeat value found while processing timers", w->repeat > 0.));
489 w->at = now + w->repeat; 820 ((WT)w)->at = mn_now + w->repeat;
490 assert (("timer timeout in the past, negative repeat?", w->at > now));
491 downheap ((WT *)timers, timercnt, 0); 821 downheap ((WT *)timers, timercnt, 0);
492 } 822 }
493 else 823 else
494 evtimer_stop (w); /* nonrepeating: stop timer */ 824 ev_timer_stop (EV_A_ w); /* nonrepeating: stop timer */
495 }
496}
497 825
826 event (EV_A_ (W)w, EV_TIMEOUT);
827 }
828}
829
498static void 830static void
499periodics_reify () 831periodics_reify (EV_P)
500{ 832{
501 while (periodiccnt && periodics [0]->at <= ev_now) 833 while (periodiccnt && ((WT)periodics [0])->at <= rt_now)
502 { 834 {
503 struct ev_periodic *w = periodics [0]; 835 struct ev_periodic *w = periodics [0];
836
837 assert (("inactive timer on periodic heap detected", ev_is_active (w)));
504 838
505 /* first reschedule or stop timer */ 839 /* first reschedule or stop timer */
506 if (w->interval) 840 if (w->interval)
507 { 841 {
508 w->at += floor ((ev_now - w->at) / w->interval + 1.) * w->interval; 842 ((WT)w)->at += floor ((rt_now - ((WT)w)->at) / w->interval + 1.) * w->interval;
509 assert (("periodic timeout in the past, negative interval?", w->at > ev_now)); 843 assert (("ev_periodic timeout in the past detected while processing timers, negative interval?", ((WT)w)->at > rt_now));
510 downheap ((WT *)periodics, periodiccnt, 0); 844 downheap ((WT *)periodics, periodiccnt, 0);
511 } 845 }
512 else 846 else
513 evperiodic_stop (w); /* nonrepeating: stop timer */ 847 ev_periodic_stop (EV_A_ w); /* nonrepeating: stop timer */
514 848
515 event ((W)w, EV_TIMEOUT); 849 event (EV_A_ (W)w, EV_PERIODIC);
516 } 850 }
517} 851}
518 852
519static void 853static void
520periodics_reschedule (ev_tstamp diff) 854periodics_reschedule (EV_P)
521{ 855{
522 int i; 856 int i;
523 857
524 /* adjust periodics after time jump */ 858 /* adjust periodics after time jump */
525 for (i = 0; i < periodiccnt; ++i) 859 for (i = 0; i < periodiccnt; ++i)
526 { 860 {
527 struct ev_periodic *w = periodics [i]; 861 struct ev_periodic *w = periodics [i];
528 862
529 if (w->interval) 863 if (w->interval)
530 { 864 {
531 ev_tstamp diff = ceil ((ev_now - w->at) / w->interval) * w->interval; 865 ev_tstamp diff = ceil ((rt_now - ((WT)w)->at) / w->interval) * w->interval;
532 866
533 if (fabs (diff) >= 1e-4) 867 if (fabs (diff) >= 1e-4)
534 { 868 {
535 evperiodic_stop (w); 869 ev_periodic_stop (EV_A_ w);
536 evperiodic_start (w); 870 ev_periodic_start (EV_A_ w);
537 871
538 i = 0; /* restart loop, inefficient, but time jumps should be rare */ 872 i = 0; /* restart loop, inefficient, but time jumps should be rare */
539 } 873 }
540 } 874 }
541 } 875 }
542} 876}
543 877
878inline int
879time_update_monotonic (EV_P)
880{
881 mn_now = get_clock ();
882
883 if (expect_true (mn_now - now_floor < MIN_TIMEJUMP * .5))
884 {
885 rt_now = rtmn_diff + mn_now;
886 return 0;
887 }
888 else
889 {
890 now_floor = mn_now;
891 rt_now = ev_time ();
892 return 1;
893 }
894}
895
544static void 896static void
545time_update () 897time_update (EV_P)
546{ 898{
547 int i; 899 int i;
548 900
549 ev_now = ev_time (); 901#if EV_USE_MONOTONIC
550
551 if (have_monotonic) 902 if (expect_true (have_monotonic))
552 { 903 {
553 ev_tstamp odiff = diff; 904 if (time_update_monotonic (EV_A))
554
555 for (i = 4; --i; ) /* loop a few times, before making important decisions */
556 { 905 {
557 now = get_clock (); 906 ev_tstamp odiff = rtmn_diff;
907
908 for (i = 4; --i; ) /* loop a few times, before making important decisions */
909 {
558 diff = ev_now - now; 910 rtmn_diff = rt_now - mn_now;
559 911
560 if (fabs (odiff - diff) < MIN_TIMEJUMP) 912 if (fabs (odiff - rtmn_diff) < MIN_TIMEJUMP)
561 return; /* all is well */ 913 return; /* all is well */
562 914
563 ev_now = ev_time (); 915 rt_now = ev_time ();
916 mn_now = get_clock ();
917 now_floor = mn_now;
918 }
919
920 periodics_reschedule (EV_A);
921 /* no timer adjustment, as the monotonic clock doesn't jump */
922 /* timers_reschedule (EV_A_ rtmn_diff - odiff) */
564 } 923 }
565
566 periodics_reschedule (diff - odiff);
567 /* no timer adjustment, as the monotonic clock doesn't jump */
568 } 924 }
569 else 925 else
926#endif
570 { 927 {
571 if (now > ev_now || now < ev_now - MAX_BLOCKTIME - MIN_TIMEJUMP) 928 rt_now = ev_time ();
929
930 if (expect_false (mn_now > rt_now || mn_now < rt_now - MAX_BLOCKTIME - MIN_TIMEJUMP))
572 { 931 {
573 periodics_reschedule (ev_now - now); 932 periodics_reschedule (EV_A);
574 933
575 /* adjust timers. this is easy, as the offset is the same for all */ 934 /* adjust timers. this is easy, as the offset is the same for all */
576 for (i = 0; i < timercnt; ++i) 935 for (i = 0; i < timercnt; ++i)
577 timers [i]->at += diff; 936 ((WT)timers [i])->at += rt_now - mn_now;
578 } 937 }
579 938
580 now = ev_now; 939 mn_now = rt_now;
581 } 940 }
582} 941}
583 942
584int ev_loop_done; 943void
944ev_ref (EV_P)
945{
946 ++activecnt;
947}
585 948
949void
950ev_unref (EV_P)
951{
952 --activecnt;
953}
954
955static int loop_done;
956
957void
586void ev_loop (int flags) 958ev_loop (EV_P_ int flags)
587{ 959{
588 double block; 960 double block;
589 ev_loop_done = flags & EVLOOP_ONESHOT ? 1 : 0; 961 loop_done = flags & (EVLOOP_ONESHOT | EVLOOP_NONBLOCK) ? 1 : 0;
590 962
591 do 963 do
592 { 964 {
593 /* queue check watchers (and execute them) */ 965 /* queue check watchers (and execute them) */
594 if (preparecnt) 966 if (expect_false (preparecnt))
595 { 967 {
596 queue_events ((W *)prepares, preparecnt, EV_PREPARE); 968 queue_events (EV_A_ (W *)prepares, preparecnt, EV_PREPARE);
597 call_pending (); 969 call_pending (EV_A);
598 } 970 }
599 971
600 /* update fd-related kernel structures */ 972 /* update fd-related kernel structures */
601 fd_reify (); 973 fd_reify (EV_A);
602 974
603 /* calculate blocking time */ 975 /* calculate blocking time */
604 976
605 /* we only need this for !monotonic clockor timers, but as we basically 977 /* we only need this for !monotonic clockor timers, but as we basically
606 always have timers, we just calculate it always */ 978 always have timers, we just calculate it always */
979#if EV_USE_MONOTONIC
980 if (expect_true (have_monotonic))
981 time_update_monotonic (EV_A);
982 else
983#endif
984 {
607 ev_now = ev_time (); 985 rt_now = ev_time ();
986 mn_now = rt_now;
987 }
608 988
609 if (flags & EVLOOP_NONBLOCK || idlecnt) 989 if (flags & EVLOOP_NONBLOCK || idlecnt)
610 block = 0.; 990 block = 0.;
611 else 991 else
612 { 992 {
613 block = MAX_BLOCKTIME; 993 block = MAX_BLOCKTIME;
614 994
615 if (timercnt) 995 if (timercnt)
616 { 996 {
617 ev_tstamp to = timers [0]->at - (have_monotonic ? get_clock () : ev_now) + method_fudge; 997 ev_tstamp to = ((WT)timers [0])->at - mn_now + method_fudge;
618 if (block > to) block = to; 998 if (block > to) block = to;
619 } 999 }
620 1000
621 if (periodiccnt) 1001 if (periodiccnt)
622 { 1002 {
623 ev_tstamp to = periodics [0]->at - ev_now + method_fudge; 1003 ev_tstamp to = ((WT)periodics [0])->at - rt_now + method_fudge;
624 if (block > to) block = to; 1004 if (block > to) block = to;
625 } 1005 }
626 1006
627 if (block < 0.) block = 0.; 1007 if (block < 0.) block = 0.;
628 } 1008 }
629 1009
630 method_poll (block); 1010 method_poll (EV_A_ block);
631 1011
632 /* update ev_now, do magic */ 1012 /* update rt_now, do magic */
633 time_update (); 1013 time_update (EV_A);
634 1014
635 /* queue pending timers and reschedule them */ 1015 /* queue pending timers and reschedule them */
636 timers_reify (); /* relative timers called last */ 1016 timers_reify (EV_A); /* relative timers called last */
637 periodics_reify (); /* absolute timers called first */ 1017 periodics_reify (EV_A); /* absolute timers called first */
638 1018
639 /* queue idle watchers unless io or timers are pending */ 1019 /* queue idle watchers unless io or timers are pending */
640 if (!pendingcnt) 1020 if (!pendingcnt)
641 queue_events ((W *)idles, idlecnt, EV_IDLE); 1021 queue_events (EV_A_ (W *)idles, idlecnt, EV_IDLE);
642 1022
643 /* queue check watchers, to be executed first */ 1023 /* queue check watchers, to be executed first */
644 if (checkcnt) 1024 if (checkcnt)
645 queue_events ((W *)checks, checkcnt, EV_CHECK); 1025 queue_events (EV_A_ (W *)checks, checkcnt, EV_CHECK);
646 1026
647 call_pending (); 1027 call_pending (EV_A);
648 } 1028 }
649 while (!ev_loop_done); 1029 while (activecnt && !loop_done);
650 1030
651 if (ev_loop_done != 2) 1031 if (loop_done != 2)
652 ev_loop_done = 0; 1032 loop_done = 0;
1033}
1034
1035void
1036ev_unloop (EV_P_ int how)
1037{
1038 loop_done = how;
653} 1039}
654 1040
655/*****************************************************************************/ 1041/*****************************************************************************/
656 1042
657static void 1043inline void
658wlist_add (WL *head, WL elem) 1044wlist_add (WL *head, WL elem)
659{ 1045{
660 elem->next = *head; 1046 elem->next = *head;
661 *head = elem; 1047 *head = elem;
662} 1048}
663 1049
664static void 1050inline void
665wlist_del (WL *head, WL elem) 1051wlist_del (WL *head, WL elem)
666{ 1052{
667 while (*head) 1053 while (*head)
668 { 1054 {
669 if (*head == elem) 1055 if (*head == elem)
674 1060
675 head = &(*head)->next; 1061 head = &(*head)->next;
676 } 1062 }
677} 1063}
678 1064
679static void 1065inline void
680ev_clear (W w) 1066ev_clear_pending (EV_P_ W w)
681{ 1067{
682 if (w->pending) 1068 if (w->pending)
683 { 1069 {
684 pendings [w->pending - 1].w = 0; 1070 pendings [ABSPRI (w)][w->pending - 1].w = 0;
685 w->pending = 0; 1071 w->pending = 0;
686 } 1072 }
687} 1073}
688 1074
689static void 1075inline void
690ev_start (W w, int active) 1076ev_start (EV_P_ W w, int active)
691{ 1077{
1078 if (w->priority < EV_MINPRI) w->priority = EV_MINPRI;
1079 if (w->priority > EV_MAXPRI) w->priority = EV_MAXPRI;
1080
692 w->active = active; 1081 w->active = active;
1082 ev_ref (EV_A);
693} 1083}
694 1084
695static void 1085inline void
696ev_stop (W w) 1086ev_stop (EV_P_ W w)
697{ 1087{
1088 ev_unref (EV_A);
698 w->active = 0; 1089 w->active = 0;
699} 1090}
700 1091
701/*****************************************************************************/ 1092/*****************************************************************************/
702 1093
703void 1094void
704evio_start (struct ev_io *w) 1095ev_io_start (EV_P_ struct ev_io *w)
705{ 1096{
1097 int fd = w->fd;
1098
706 if (ev_is_active (w)) 1099 if (ev_is_active (w))
707 return; 1100 return;
708 1101
709 int fd = w->fd; 1102 assert (("ev_io_start called with negative fd", fd >= 0));
710 1103
711 ev_start ((W)w, 1); 1104 ev_start (EV_A_ (W)w, 1);
712 array_needsize (anfds, anfdmax, fd + 1, anfds_init); 1105 array_needsize (anfds, anfdmax, fd + 1, anfds_init);
713 wlist_add ((WL *)&anfds[fd].head, (WL)w); 1106 wlist_add ((WL *)&anfds[fd].head, (WL)w);
714 1107
715 ++fdchangecnt; 1108 fd_change (EV_A_ fd);
716 array_needsize (fdchanges, fdchangemax, fdchangecnt, );
717 fdchanges [fdchangecnt - 1] = fd;
718} 1109}
719 1110
720void 1111void
721evio_stop (struct ev_io *w) 1112ev_io_stop (EV_P_ struct ev_io *w)
722{ 1113{
723 ev_clear ((W)w); 1114 ev_clear_pending (EV_A_ (W)w);
724 if (!ev_is_active (w)) 1115 if (!ev_is_active (w))
725 return; 1116 return;
726 1117
727 wlist_del ((WL *)&anfds[w->fd].head, (WL)w); 1118 wlist_del ((WL *)&anfds[w->fd].head, (WL)w);
728 ev_stop ((W)w); 1119 ev_stop (EV_A_ (W)w);
729 1120
730 ++fdchangecnt; 1121 fd_change (EV_A_ w->fd);
731 array_needsize (fdchanges, fdchangemax, fdchangecnt, );
732 fdchanges [fdchangecnt - 1] = w->fd;
733} 1122}
734 1123
735void 1124void
736evtimer_start (struct ev_timer *w) 1125ev_timer_start (EV_P_ struct ev_timer *w)
737{ 1126{
738 if (ev_is_active (w)) 1127 if (ev_is_active (w))
739 return; 1128 return;
740 1129
741 w->at += now; 1130 ((WT)w)->at += mn_now;
742 1131
743 assert (("timer repeat value less than zero not allowed", w->repeat >= 0.)); 1132 assert (("ev_timer_start called with negative timer repeat value", w->repeat >= 0.));
744 1133
745 ev_start ((W)w, ++timercnt); 1134 ev_start (EV_A_ (W)w, ++timercnt);
746 array_needsize (timers, timermax, timercnt, ); 1135 array_needsize (timers, timermax, timercnt, );
747 timers [timercnt - 1] = w; 1136 timers [timercnt - 1] = w;
748 upheap ((WT *)timers, timercnt - 1); 1137 upheap ((WT *)timers, timercnt - 1);
749}
750 1138
1139 assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w));
1140}
1141
751void 1142void
752evtimer_stop (struct ev_timer *w) 1143ev_timer_stop (EV_P_ struct ev_timer *w)
753{ 1144{
754 ev_clear ((W)w); 1145 ev_clear_pending (EV_A_ (W)w);
755 if (!ev_is_active (w)) 1146 if (!ev_is_active (w))
756 return; 1147 return;
757 1148
1149 assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w));
1150
758 if (w->active < timercnt--) 1151 if (((W)w)->active < timercnt--)
759 { 1152 {
760 timers [w->active - 1] = timers [timercnt]; 1153 timers [((W)w)->active - 1] = timers [timercnt];
761 downheap ((WT *)timers, timercnt, w->active - 1); 1154 downheap ((WT *)timers, timercnt, ((W)w)->active - 1);
762 } 1155 }
763 1156
764 w->at = w->repeat; 1157 ((WT)w)->at = w->repeat;
765 1158
766 ev_stop ((W)w); 1159 ev_stop (EV_A_ (W)w);
767} 1160}
768 1161
769void 1162void
770evtimer_again (struct ev_timer *w) 1163ev_timer_again (EV_P_ struct ev_timer *w)
771{ 1164{
772 if (ev_is_active (w)) 1165 if (ev_is_active (w))
773 { 1166 {
774 if (w->repeat) 1167 if (w->repeat)
775 { 1168 {
776 w->at = now + w->repeat; 1169 ((WT)w)->at = mn_now + w->repeat;
777 downheap ((WT *)timers, timercnt, w->active - 1); 1170 downheap ((WT *)timers, timercnt, ((W)w)->active - 1);
778 } 1171 }
779 else 1172 else
780 evtimer_stop (w); 1173 ev_timer_stop (EV_A_ w);
781 } 1174 }
782 else if (w->repeat) 1175 else if (w->repeat)
783 evtimer_start (w); 1176 ev_timer_start (EV_A_ w);
784} 1177}
785 1178
786void 1179void
787evperiodic_start (struct ev_periodic *w) 1180ev_periodic_start (EV_P_ struct ev_periodic *w)
788{ 1181{
789 if (ev_is_active (w)) 1182 if (ev_is_active (w))
790 return; 1183 return;
791 1184
792 assert (("periodic interval value less than zero not allowed", w->interval >= 0.)); 1185 assert (("ev_periodic_start called with negative interval value", w->interval >= 0.));
793 1186
794 /* this formula differs from the one in periodic_reify because we do not always round up */ 1187 /* this formula differs from the one in periodic_reify because we do not always round up */
795 if (w->interval) 1188 if (w->interval)
796 w->at += ceil ((ev_now - w->at) / w->interval) * w->interval; 1189 ((WT)w)->at += ceil ((rt_now - ((WT)w)->at) / w->interval) * w->interval;
797 1190
798 ev_start ((W)w, ++periodiccnt); 1191 ev_start (EV_A_ (W)w, ++periodiccnt);
799 array_needsize (periodics, periodicmax, periodiccnt, ); 1192 array_needsize (periodics, periodicmax, periodiccnt, );
800 periodics [periodiccnt - 1] = w; 1193 periodics [periodiccnt - 1] = w;
801 upheap ((WT *)periodics, periodiccnt - 1); 1194 upheap ((WT *)periodics, periodiccnt - 1);
802}
803 1195
1196 assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w));
1197}
1198
804void 1199void
805evperiodic_stop (struct ev_periodic *w) 1200ev_periodic_stop (EV_P_ struct ev_periodic *w)
806{ 1201{
807 ev_clear ((W)w); 1202 ev_clear_pending (EV_A_ (W)w);
808 if (!ev_is_active (w)) 1203 if (!ev_is_active (w))
809 return; 1204 return;
810 1205
1206 assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w));
1207
811 if (w->active < periodiccnt--) 1208 if (((W)w)->active < periodiccnt--)
812 { 1209 {
813 periodics [w->active - 1] = periodics [periodiccnt]; 1210 periodics [((W)w)->active - 1] = periodics [periodiccnt];
814 downheap ((WT *)periodics, periodiccnt, w->active - 1); 1211 downheap ((WT *)periodics, periodiccnt, ((W)w)->active - 1);
815 } 1212 }
816 1213
817 ev_stop ((W)w); 1214 ev_stop (EV_A_ (W)w);
818} 1215}
819 1216
820void 1217void
821evsignal_start (struct ev_signal *w) 1218ev_idle_start (EV_P_ struct ev_idle *w)
822{ 1219{
823 if (ev_is_active (w)) 1220 if (ev_is_active (w))
824 return; 1221 return;
825 1222
1223 ev_start (EV_A_ (W)w, ++idlecnt);
1224 array_needsize (idles, idlemax, idlecnt, );
1225 idles [idlecnt - 1] = w;
1226}
1227
1228void
1229ev_idle_stop (EV_P_ struct ev_idle *w)
1230{
1231 ev_clear_pending (EV_A_ (W)w);
1232 if (ev_is_active (w))
1233 return;
1234
1235 idles [((W)w)->active - 1] = idles [--idlecnt];
1236 ev_stop (EV_A_ (W)w);
1237}
1238
1239void
1240ev_prepare_start (EV_P_ struct ev_prepare *w)
1241{
1242 if (ev_is_active (w))
1243 return;
1244
1245 ev_start (EV_A_ (W)w, ++preparecnt);
1246 array_needsize (prepares, preparemax, preparecnt, );
1247 prepares [preparecnt - 1] = w;
1248}
1249
1250void
1251ev_prepare_stop (EV_P_ struct ev_prepare *w)
1252{
1253 ev_clear_pending (EV_A_ (W)w);
1254 if (ev_is_active (w))
1255 return;
1256
1257 prepares [((W)w)->active - 1] = prepares [--preparecnt];
1258 ev_stop (EV_A_ (W)w);
1259}
1260
1261void
1262ev_check_start (EV_P_ struct ev_check *w)
1263{
1264 if (ev_is_active (w))
1265 return;
1266
1267 ev_start (EV_A_ (W)w, ++checkcnt);
1268 array_needsize (checks, checkmax, checkcnt, );
1269 checks [checkcnt - 1] = w;
1270}
1271
1272void
1273ev_check_stop (EV_P_ struct ev_check *w)
1274{
1275 ev_clear_pending (EV_A_ (W)w);
1276 if (ev_is_active (w))
1277 return;
1278
1279 checks [((W)w)->active - 1] = checks [--checkcnt];
1280 ev_stop (EV_A_ (W)w);
1281}
1282
1283#ifndef SA_RESTART
1284# define SA_RESTART 0
1285#endif
1286
1287void
1288ev_signal_start (EV_P_ struct ev_signal *w)
1289{
1290#if EV_MULTIPLICITY
1291 assert (("signal watchers are only supported in the default loop", loop == default_loop));
1292#endif
1293 if (ev_is_active (w))
1294 return;
1295
1296 assert (("ev_signal_start called with illegal signal number", w->signum > 0));
1297
826 ev_start ((W)w, 1); 1298 ev_start (EV_A_ (W)w, 1);
827 array_needsize (signals, signalmax, w->signum, signals_init); 1299 array_needsize (signals, signalmax, w->signum, signals_init);
828 wlist_add ((WL *)&signals [w->signum - 1].head, (WL)w); 1300 wlist_add ((WL *)&signals [w->signum - 1].head, (WL)w);
829 1301
830 if (!w->next) 1302 if (!((WL)w)->next)
831 { 1303 {
832 struct sigaction sa; 1304 struct sigaction sa;
833 sa.sa_handler = sighandler; 1305 sa.sa_handler = sighandler;
834 sigfillset (&sa.sa_mask); 1306 sigfillset (&sa.sa_mask);
835 sa.sa_flags = 0; 1307 sa.sa_flags = SA_RESTART; /* if restarting works we save one iteration */
836 sigaction (w->signum, &sa, 0); 1308 sigaction (w->signum, &sa, 0);
837 } 1309 }
838} 1310}
839 1311
840void 1312void
841evsignal_stop (struct ev_signal *w) 1313ev_signal_stop (EV_P_ struct ev_signal *w)
842{ 1314{
843 ev_clear ((W)w); 1315 ev_clear_pending (EV_A_ (W)w);
844 if (!ev_is_active (w)) 1316 if (!ev_is_active (w))
845 return; 1317 return;
846 1318
847 wlist_del ((WL *)&signals [w->signum - 1].head, (WL)w); 1319 wlist_del ((WL *)&signals [w->signum - 1].head, (WL)w);
848 ev_stop ((W)w); 1320 ev_stop (EV_A_ (W)w);
849 1321
850 if (!signals [w->signum - 1].head) 1322 if (!signals [w->signum - 1].head)
851 signal (w->signum, SIG_DFL); 1323 signal (w->signum, SIG_DFL);
852} 1324}
853 1325
854void evidle_start (struct ev_idle *w) 1326void
1327ev_child_start (EV_P_ struct ev_child *w)
855{ 1328{
1329#if EV_MULTIPLICITY
1330 assert (("child watchers are only supported in the default loop", loop == default_loop));
1331#endif
856 if (ev_is_active (w)) 1332 if (ev_is_active (w))
857 return; 1333 return;
858 1334
859 ev_start ((W)w, ++idlecnt); 1335 ev_start (EV_A_ (W)w, 1);
860 array_needsize (idles, idlemax, idlecnt, ); 1336 wlist_add ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w);
861 idles [idlecnt - 1] = w;
862} 1337}
863 1338
864void evidle_stop (struct ev_idle *w) 1339void
1340ev_child_stop (EV_P_ struct ev_child *w)
865{ 1341{
866 ev_clear ((W)w); 1342 ev_clear_pending (EV_A_ (W)w);
867 if (ev_is_active (w)) 1343 if (ev_is_active (w))
868 return; 1344 return;
869 1345
870 idles [w->active - 1] = idles [--idlecnt];
871 ev_stop ((W)w);
872}
873
874void evprepare_start (struct ev_prepare *w)
875{
876 if (ev_is_active (w))
877 return;
878
879 ev_start ((W)w, ++preparecnt);
880 array_needsize (prepares, preparemax, preparecnt, );
881 prepares [preparecnt - 1] = w;
882}
883
884void evprepare_stop (struct ev_prepare *w)
885{
886 ev_clear ((W)w);
887 if (ev_is_active (w))
888 return;
889
890 prepares [w->active - 1] = prepares [--preparecnt];
891 ev_stop ((W)w);
892}
893
894void evcheck_start (struct ev_check *w)
895{
896 if (ev_is_active (w))
897 return;
898
899 ev_start ((W)w, ++checkcnt);
900 array_needsize (checks, checkmax, checkcnt, );
901 checks [checkcnt - 1] = w;
902}
903
904void evcheck_stop (struct ev_check *w)
905{
906 ev_clear ((W)w);
907 if (ev_is_active (w))
908 return;
909
910 checks [w->active - 1] = checks [--checkcnt];
911 ev_stop ((W)w);
912}
913
914void evchild_start (struct ev_child *w)
915{
916 if (ev_is_active (w))
917 return;
918
919 ev_start ((W)w, 1);
920 wlist_add ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w);
921}
922
923void evchild_stop (struct ev_child *w)
924{
925 ev_clear ((W)w);
926 if (ev_is_active (w))
927 return;
928
929 wlist_del ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w); 1346 wlist_del ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w);
930 ev_stop ((W)w); 1347 ev_stop (EV_A_ (W)w);
931} 1348}
932 1349
933/*****************************************************************************/ 1350/*****************************************************************************/
934 1351
935struct ev_once 1352struct ev_once
939 void (*cb)(int revents, void *arg); 1356 void (*cb)(int revents, void *arg);
940 void *arg; 1357 void *arg;
941}; 1358};
942 1359
943static void 1360static void
944once_cb (struct ev_once *once, int revents) 1361once_cb (EV_P_ struct ev_once *once, int revents)
945{ 1362{
946 void (*cb)(int revents, void *arg) = once->cb; 1363 void (*cb)(int revents, void *arg) = once->cb;
947 void *arg = once->arg; 1364 void *arg = once->arg;
948 1365
949 evio_stop (&once->io); 1366 ev_io_stop (EV_A_ &once->io);
950 evtimer_stop (&once->to); 1367 ev_timer_stop (EV_A_ &once->to);
951 free (once); 1368 free (once);
952 1369
953 cb (revents, arg); 1370 cb (revents, arg);
954} 1371}
955 1372
956static void 1373static void
957once_cb_io (struct ev_io *w, int revents) 1374once_cb_io (EV_P_ struct ev_io *w, int revents)
958{ 1375{
959 once_cb ((struct ev_once *)(((char *)w) - offsetof (struct ev_once, io)), revents); 1376 once_cb (EV_A_ (struct ev_once *)(((char *)w) - offsetof (struct ev_once, io)), revents);
960} 1377}
961 1378
962static void 1379static void
963once_cb_to (struct ev_timer *w, int revents) 1380once_cb_to (EV_P_ struct ev_timer *w, int revents)
964{ 1381{
965 once_cb ((struct ev_once *)(((char *)w) - offsetof (struct ev_once, to)), revents); 1382 once_cb (EV_A_ (struct ev_once *)(((char *)w) - offsetof (struct ev_once, to)), revents);
966} 1383}
967 1384
968void 1385void
969ev_once (int fd, int events, ev_tstamp timeout, void (*cb)(int revents, void *arg), void *arg) 1386ev_once (EV_P_ int fd, int events, ev_tstamp timeout, void (*cb)(int revents, void *arg), void *arg)
970{ 1387{
971 struct ev_once *once = malloc (sizeof (struct ev_once)); 1388 struct ev_once *once = malloc (sizeof (struct ev_once));
972 1389
973 if (!once) 1390 if (!once)
974 cb (EV_ERROR, arg); 1391 cb (EV_ERROR | EV_READ | EV_WRITE | EV_TIMEOUT, arg);
975 else 1392 else
976 { 1393 {
977 once->cb = cb; 1394 once->cb = cb;
978 once->arg = arg; 1395 once->arg = arg;
979 1396
980 evw_init (&once->io, once_cb_io); 1397 ev_watcher_init (&once->io, once_cb_io);
981
982 if (fd >= 0) 1398 if (fd >= 0)
983 { 1399 {
984 evio_set (&once->io, fd, events); 1400 ev_io_set (&once->io, fd, events);
985 evio_start (&once->io); 1401 ev_io_start (EV_A_ &once->io);
986 } 1402 }
987 1403
988 evw_init (&once->to, once_cb_to); 1404 ev_watcher_init (&once->to, once_cb_to);
989
990 if (timeout >= 0.) 1405 if (timeout >= 0.)
991 { 1406 {
992 evtimer_set (&once->to, timeout, 0.); 1407 ev_timer_set (&once->to, timeout, 0.);
993 evtimer_start (&once->to); 1408 ev_timer_start (EV_A_ &once->to);
994 } 1409 }
995 } 1410 }
996} 1411}
997 1412
998/*****************************************************************************/
999
1000#if 0
1001
1002struct ev_io wio;
1003
1004static void
1005sin_cb (struct ev_io *w, int revents)
1006{
1007 fprintf (stderr, "sin %d, revents %d\n", w->fd, revents);
1008}
1009
1010static void
1011ocb (struct ev_timer *w, int revents)
1012{
1013 //fprintf (stderr, "timer %f,%f (%x) (%f) d%p\n", w->at, w->repeat, revents, w->at - ev_time (), w->data);
1014 evtimer_stop (w);
1015 evtimer_start (w);
1016}
1017
1018static void
1019scb (struct ev_signal *w, int revents)
1020{
1021 fprintf (stderr, "signal %x,%d\n", revents, w->signum);
1022 evio_stop (&wio);
1023 evio_start (&wio);
1024}
1025
1026static void
1027gcb (struct ev_signal *w, int revents)
1028{
1029 fprintf (stderr, "generic %x\n", revents);
1030
1031}
1032
1033int main (void)
1034{
1035 ev_init (0);
1036
1037 evio_init (&wio, sin_cb, 0, EV_READ);
1038 evio_start (&wio);
1039
1040 struct ev_timer t[10000];
1041
1042#if 0
1043 int i;
1044 for (i = 0; i < 10000; ++i)
1045 {
1046 struct ev_timer *w = t + i;
1047 evw_init (w, ocb, i);
1048 evtimer_init_abs (w, ocb, drand48 (), 0.99775533);
1049 evtimer_start (w);
1050 if (drand48 () < 0.5)
1051 evtimer_stop (w);
1052 }
1053#endif
1054
1055 struct ev_timer t1;
1056 evtimer_init (&t1, ocb, 5, 10);
1057 evtimer_start (&t1);
1058
1059 struct ev_signal sig;
1060 evsignal_init (&sig, scb, SIGQUIT);
1061 evsignal_start (&sig);
1062
1063 struct ev_check cw;
1064 evcheck_init (&cw, gcb);
1065 evcheck_start (&cw);
1066
1067 struct ev_idle iw;
1068 evidle_init (&iw, gcb);
1069 evidle_start (&iw);
1070
1071 ev_loop (0);
1072
1073 return 0;
1074}
1075
1076#endif
1077
1078
1079
1080

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines