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

Comparing libev/ev.c (file contents):
Revision 1.140 by root, Mon Nov 26 19:49:36 2007 UTC vs.
Revision 1.147 by root, Tue Nov 27 10:59:11 2007 UTC

… …
198# define inline_speed static inline 198# define inline_speed static inline
199# endif 199# endif
200#else 200#else
201# define expect(expr,value) (expr) 201# define expect(expr,value) (expr)
202# define inline_speed static 202# define inline_speed static
203# define inline_minimal static 203# define inline_size static
204# define noinline 204# define noinline
205#endif 205#endif
206 206
207#define expect_false(expr) expect ((expr) != 0, 0) 207#define expect_false(expr) expect ((expr) != 0, 0)
208#define expect_true(expr) expect ((expr) != 0, 1) 208#define expect_true(expr) expect ((expr) != 0, 1)
… …
225 225
226/*****************************************************************************/ 226/*****************************************************************************/
227 227
228static void (*syserr_cb)(const char *msg); 228static void (*syserr_cb)(const char *msg);
229 229
230void
230void ev_set_syserr_cb (void (*cb)(const char *msg)) 231ev_set_syserr_cb (void (*cb)(const char *msg))
231{ 232{
232 syserr_cb = cb; 233 syserr_cb = cb;
233} 234}
234 235
235static void 236static void noinline
236syserr (const char *msg) 237syserr (const char *msg)
237{ 238{
238 if (!msg) 239 if (!msg)
239 msg = "(libev) system error"; 240 msg = "(libev) system error";
240 241
… …
247 } 248 }
248} 249}
249 250
250static void *(*alloc)(void *ptr, long size); 251static void *(*alloc)(void *ptr, long size);
251 252
253void
252void ev_set_allocator (void *(*cb)(void *ptr, long size)) 254ev_set_allocator (void *(*cb)(void *ptr, long size))
253{ 255{
254 alloc = cb; 256 alloc = cb;
255} 257}
256 258
257static void * 259static void *
… …
315 317
316#endif 318#endif
317 319
318/*****************************************************************************/ 320/*****************************************************************************/
319 321
320ev_tstamp noinline 322ev_tstamp
321ev_time (void) 323ev_time (void)
322{ 324{
323#if EV_USE_REALTIME 325#if EV_USE_REALTIME
324 struct timespec ts; 326 struct timespec ts;
325 clock_gettime (CLOCK_REALTIME, &ts); 327 clock_gettime (CLOCK_REALTIME, &ts);
… …
382#define array_free(stem, idx) \ 384#define array_free(stem, idx) \
383 ev_free (stem ## s idx); stem ## cnt idx = stem ## max idx = 0; 385 ev_free (stem ## s idx); stem ## cnt idx = stem ## max idx = 0;
384 386
385/*****************************************************************************/ 387/*****************************************************************************/
386 388
387void inline_size
388anfds_init (ANFD *base, int count)
389{
390 while (count--)
391 {
392 base->head = 0;
393 base->events = EV_NONE;
394 base->reify = 0;
395
396 ++base;
397 }
398}
399
400void noinline 389void noinline
401ev_feed_event (EV_P_ void *w, int revents) 390ev_feed_event (EV_P_ void *w, int revents)
402{ 391{
403 W w_ = (W)w; 392 W w_ = (W)w;
404 393
… …
412 array_needsize (ANPENDING, pendings [ABSPRI (w_)], pendingmax [ABSPRI (w_)], pendingcnt [ABSPRI (w_)], EMPTY2); 401 array_needsize (ANPENDING, pendings [ABSPRI (w_)], pendingmax [ABSPRI (w_)], pendingcnt [ABSPRI (w_)], EMPTY2);
413 pendings [ABSPRI (w_)][w_->pending - 1].w = w_; 402 pendings [ABSPRI (w_)][w_->pending - 1].w = w_;
414 pendings [ABSPRI (w_)][w_->pending - 1].events = revents; 403 pendings [ABSPRI (w_)][w_->pending - 1].events = revents;
415} 404}
416 405
417static void 406void inline_size
418queue_events (EV_P_ W *events, int eventcnt, int type) 407queue_events (EV_P_ W *events, int eventcnt, int type)
419{ 408{
420 int i; 409 int i;
421 410
422 for (i = 0; i < eventcnt; ++i) 411 for (i = 0; i < eventcnt; ++i)
423 ev_feed_event (EV_A_ events [i], type); 412 ev_feed_event (EV_A_ events [i], type);
424} 413}
425 414
415/*****************************************************************************/
416
417void inline_size
418anfds_init (ANFD *base, int count)
419{
420 while (count--)
421 {
422 base->head = 0;
423 base->events = EV_NONE;
424 base->reify = 0;
425
426 ++base;
427 }
428}
429
426void inline_speed 430void inline_speed
427fd_event (EV_P_ int fd, int revents) 431fd_event (EV_P_ int fd, int revents)
428{ 432{
429 ANFD *anfd = anfds + fd; 433 ANFD *anfd = anfds + fd;
430 ev_io *w; 434 ev_io *w;
… …
441void 445void
442ev_feed_fd_event (EV_P_ int fd, int revents) 446ev_feed_fd_event (EV_P_ int fd, int revents)
443{ 447{
444 fd_event (EV_A_ fd, revents); 448 fd_event (EV_A_ fd, revents);
445} 449}
446
447/*****************************************************************************/
448 450
449void inline_size 451void inline_size
450fd_reify (EV_P) 452fd_reify (EV_P)
451{ 453{
452 int i; 454 int i;
… …
712static ev_child *childs [PID_HASHSIZE]; 714static ev_child *childs [PID_HASHSIZE];
713 715
714#ifndef _WIN32 716#ifndef _WIN32
715 717
716static ev_signal childev; 718static ev_signal childev;
717
718#ifndef WCONTINUED
719# define WCONTINUED 0
720#endif
721 719
722void inline_speed 720void inline_speed
723child_reap (EV_P_ ev_signal *sw, int chain, int pid, int status) 721child_reap (EV_P_ ev_signal *sw, int chain, int pid, int status)
724{ 722{
725 ev_child *w; 723 ev_child *w;
… …
732 w->rstatus = status; 730 w->rstatus = status;
733 ev_feed_event (EV_A_ (W)w, EV_CHILD); 731 ev_feed_event (EV_A_ (W)w, EV_CHILD);
734 } 732 }
735} 733}
736 734
735#ifndef WCONTINUED
736# define WCONTINUED 0
737#endif
738
737static void 739static void
738childcb (EV_P_ ev_signal *sw, int revents) 740childcb (EV_P_ ev_signal *sw, int revents)
739{ 741{
740 int pid, status; 742 int pid, status;
741 743
744 /* some systems define WCONTINUED but then fail to support it (linux 2.4) */
742 if (0 < (pid = waitpid (-1, &status, WNOHANG | WUNTRACED | WCONTINUED))) 745 if (0 >= (pid = waitpid (-1, &status, WNOHANG | WUNTRACED | WCONTINUED)))
743 { 746 if (!WCONTINUED
747 || errno != EINVAL
748 || 0 >= (pid = waitpid (-1, &status, WNOHANG | WUNTRACED)))
749 return;
750
744 /* make sure we are called again until all childs have been reaped */ 751 /* make sure we are called again until all childs have been reaped */
745 /* we need to do it this way so that the callback gets called before we continue */ 752 /* we need to do it this way so that the callback gets called before we continue */
746 ev_feed_event (EV_A_ (W)sw, EV_SIGNAL); 753 ev_feed_event (EV_A_ (W)sw, EV_SIGNAL);
747 754
748 child_reap (EV_A_ sw, pid, pid, status); 755 child_reap (EV_A_ sw, pid, pid, status);
749 child_reap (EV_A_ sw, 0, pid, status); /* this might trigger a watcher twice, but feed_event catches that */ 756 child_reap (EV_A_ sw, 0, pid, status); /* this might trigger a watcher twice, but feed_event catches that */
750 }
751} 757}
752 758
753#endif 759#endif
754 760
755/*****************************************************************************/ 761/*****************************************************************************/
… …
1270 ? EVUNLOOP_ONE 1276 ? EVUNLOOP_ONE
1271 : EVUNLOOP_CANCEL; 1277 : EVUNLOOP_CANCEL;
1272 1278
1273 while (activecnt) 1279 while (activecnt)
1274 { 1280 {
1281 /* we might have forked, so reify kernel state if necessary */
1282 if (expect_false (postfork))
1283 if (forkcnt)
1284 {
1285 queue_events (EV_A_ (W *)forks, forkcnt, EV_FORK);
1286 call_pending (EV_A);
1287 }
1288
1275 /* queue check watchers (and execute them) */ 1289 /* queue check watchers (and execute them) */
1276 if (expect_false (preparecnt)) 1290 if (expect_false (preparecnt))
1277 { 1291 {
1278 queue_events (EV_A_ (W *)prepares, preparecnt, EV_PREPARE); 1292 queue_events (EV_A_ (W *)prepares, preparecnt, EV_PREPARE);
1279 call_pending (EV_A); 1293 call_pending (EV_A);
… …
1552 ev_periodic_stop (EV_A_ w); 1566 ev_periodic_stop (EV_A_ w);
1553 ev_periodic_start (EV_A_ w); 1567 ev_periodic_start (EV_A_ w);
1554} 1568}
1555#endif 1569#endif
1556 1570
1557void
1558ev_idle_start (EV_P_ ev_idle *w)
1559{
1560 if (expect_false (ev_is_active (w)))
1561 return;
1562
1563 ev_start (EV_A_ (W)w, ++idlecnt);
1564 array_needsize (ev_idle *, idles, idlemax, idlecnt, EMPTY2);
1565 idles [idlecnt - 1] = w;
1566}
1567
1568void
1569ev_idle_stop (EV_P_ ev_idle *w)
1570{
1571 ev_clear_pending (EV_A_ (W)w);
1572 if (expect_false (!ev_is_active (w)))
1573 return;
1574
1575 {
1576 int active = ((W)w)->active;
1577 idles [active - 1] = idles [--idlecnt];
1578 ((W)idles [active - 1])->active = active;
1579 }
1580
1581 ev_stop (EV_A_ (W)w);
1582}
1583
1584void
1585ev_prepare_start (EV_P_ ev_prepare *w)
1586{
1587 if (expect_false (ev_is_active (w)))
1588 return;
1589
1590 ev_start (EV_A_ (W)w, ++preparecnt);
1591 array_needsize (ev_prepare *, prepares, preparemax, preparecnt, EMPTY2);
1592 prepares [preparecnt - 1] = w;
1593}
1594
1595void
1596ev_prepare_stop (EV_P_ ev_prepare *w)
1597{
1598 ev_clear_pending (EV_A_ (W)w);
1599 if (expect_false (!ev_is_active (w)))
1600 return;
1601
1602 {
1603 int active = ((W)w)->active;
1604 prepares [active - 1] = prepares [--preparecnt];
1605 ((W)prepares [active - 1])->active = active;
1606 }
1607
1608 ev_stop (EV_A_ (W)w);
1609}
1610
1611void
1612ev_check_start (EV_P_ ev_check *w)
1613{
1614 if (expect_false (ev_is_active (w)))
1615 return;
1616
1617 ev_start (EV_A_ (W)w, ++checkcnt);
1618 array_needsize (ev_check *, checks, checkmax, checkcnt, EMPTY2);
1619 checks [checkcnt - 1] = w;
1620}
1621
1622void
1623ev_check_stop (EV_P_ ev_check *w)
1624{
1625 ev_clear_pending (EV_A_ (W)w);
1626 if (expect_false (!ev_is_active (w)))
1627 return;
1628
1629 {
1630 int active = ((W)w)->active;
1631 checks [active - 1] = checks [--checkcnt];
1632 ((W)checks [active - 1])->active = active;
1633 }
1634
1635 ev_stop (EV_A_ (W)w);
1636}
1637
1638#ifndef SA_RESTART 1571#ifndef SA_RESTART
1639# define SA_RESTART 0 1572# define SA_RESTART 0
1640#endif 1573#endif
1641 1574
1642void 1575void
… …
1704 1637
1705 wlist_del ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w); 1638 wlist_del ((WL *)&childs [w->pid & (PID_HASHSIZE - 1)], (WL)w);
1706 ev_stop (EV_A_ (W)w); 1639 ev_stop (EV_A_ (W)w);
1707} 1640}
1708 1641
1642#if EV_STAT_ENABLE
1643
1644# ifdef _WIN32
1645# undef lstat
1646# define lstat(a,b) _stati64 (a,b)
1647# endif
1648
1649#define DEF_STAT_INTERVAL 5.0074891
1650#define MIN_STAT_INTERVAL 0.1074891
1651
1652void
1653ev_stat_stat (EV_P_ ev_stat *w)
1654{
1655 if (lstat (w->path, &w->attr) < 0)
1656 w->attr.st_nlink = 0;
1657 else if (!w->attr.st_nlink)
1658 w->attr.st_nlink = 1;
1659}
1660
1661static void
1662stat_timer_cb (EV_P_ ev_timer *w_, int revents)
1663{
1664 ev_stat *w = (ev_stat *)(((char *)w_) - offsetof (ev_stat, timer));
1665
1666 /* we copy this here each the time so that */
1667 /* prev has the old value when the callback gets invoked */
1668 w->prev = w->attr;
1669 ev_stat_stat (EV_A_ w);
1670
1671 if (memcmp (&w->prev, &w->attr, sizeof (ev_statdata)))
1672 ev_feed_event (EV_A_ w, EV_STAT);
1673}
1674
1675void
1676ev_stat_start (EV_P_ ev_stat *w)
1677{
1678 if (expect_false (ev_is_active (w)))
1679 return;
1680
1681 /* since we use memcmp, we need to clear any padding data etc. */
1682 memset (&w->prev, 0, sizeof (ev_statdata));
1683 memset (&w->attr, 0, sizeof (ev_statdata));
1684
1685 ev_stat_stat (EV_A_ w);
1686
1687 if (w->interval < MIN_STAT_INTERVAL)
1688 w->interval = w->interval ? MIN_STAT_INTERVAL : DEF_STAT_INTERVAL;
1689
1690 ev_timer_init (&w->timer, stat_timer_cb, w->interval, w->interval);
1691 ev_set_priority (&w->timer, ev_priority (w));
1692 ev_timer_start (EV_A_ &w->timer);
1693
1694 ev_start (EV_A_ (W)w, 1);
1695}
1696
1697void
1698ev_stat_stop (EV_P_ ev_stat *w)
1699{
1700 ev_clear_pending (EV_A_ (W)w);
1701 if (expect_false (!ev_is_active (w)))
1702 return;
1703
1704 ev_timer_stop (EV_A_ &w->timer);
1705
1706 ev_stop (EV_A_ (W)w);
1707}
1708#endif
1709
1710void
1711ev_idle_start (EV_P_ ev_idle *w)
1712{
1713 if (expect_false (ev_is_active (w)))
1714 return;
1715
1716 ev_start (EV_A_ (W)w, ++idlecnt);
1717 array_needsize (ev_idle *, idles, idlemax, idlecnt, EMPTY2);
1718 idles [idlecnt - 1] = w;
1719}
1720
1721void
1722ev_idle_stop (EV_P_ ev_idle *w)
1723{
1724 ev_clear_pending (EV_A_ (W)w);
1725 if (expect_false (!ev_is_active (w)))
1726 return;
1727
1728 {
1729 int active = ((W)w)->active;
1730 idles [active - 1] = idles [--idlecnt];
1731 ((W)idles [active - 1])->active = active;
1732 }
1733
1734 ev_stop (EV_A_ (W)w);
1735}
1736
1737void
1738ev_prepare_start (EV_P_ ev_prepare *w)
1739{
1740 if (expect_false (ev_is_active (w)))
1741 return;
1742
1743 ev_start (EV_A_ (W)w, ++preparecnt);
1744 array_needsize (ev_prepare *, prepares, preparemax, preparecnt, EMPTY2);
1745 prepares [preparecnt - 1] = w;
1746}
1747
1748void
1749ev_prepare_stop (EV_P_ ev_prepare *w)
1750{
1751 ev_clear_pending (EV_A_ (W)w);
1752 if (expect_false (!ev_is_active (w)))
1753 return;
1754
1755 {
1756 int active = ((W)w)->active;
1757 prepares [active - 1] = prepares [--preparecnt];
1758 ((W)prepares [active - 1])->active = active;
1759 }
1760
1761 ev_stop (EV_A_ (W)w);
1762}
1763
1764void
1765ev_check_start (EV_P_ ev_check *w)
1766{
1767 if (expect_false (ev_is_active (w)))
1768 return;
1769
1770 ev_start (EV_A_ (W)w, ++checkcnt);
1771 array_needsize (ev_check *, checks, checkmax, checkcnt, EMPTY2);
1772 checks [checkcnt - 1] = w;
1773}
1774
1775void
1776ev_check_stop (EV_P_ ev_check *w)
1777{
1778 ev_clear_pending (EV_A_ (W)w);
1779 if (expect_false (!ev_is_active (w)))
1780 return;
1781
1782 {
1783 int active = ((W)w)->active;
1784 checks [active - 1] = checks [--checkcnt];
1785 ((W)checks [active - 1])->active = active;
1786 }
1787
1788 ev_stop (EV_A_ (W)w);
1789}
1790
1709#if EV_EMBED_ENABLE 1791#if EV_EMBED_ENABLE
1710void noinline 1792void noinline
1711ev_embed_sweep (EV_P_ ev_embed *w) 1793ev_embed_sweep (EV_P_ ev_embed *w)
1712{ 1794{
1713 ev_loop (w->loop, EVLOOP_NONBLOCK); 1795 ev_loop (w->loop, EVLOOP_NONBLOCK);
… …
1753 1835
1754 ev_stop (EV_A_ (W)w); 1836 ev_stop (EV_A_ (W)w);
1755} 1837}
1756#endif 1838#endif
1757 1839
1758#if EV_STAT_ENABLE 1840#if EV_FORK_ENABLE
1759
1760# ifdef _WIN32
1761# define lstat(a,b) stat(a,b)
1762# endif
1763
1764void 1841void
1765ev_stat_stat (EV_P_ ev_stat *w)
1766{
1767 if (lstat (w->path, &w->attr) < 0)
1768 w->attr.st_nlink = 0;
1769 else if (!w->attr.st_nlink)
1770 w->attr.st_nlink = 1;
1771}
1772
1773static void
1774stat_timer_cb (EV_P_ ev_timer *w_, int revents)
1775{
1776 ev_stat *w = (ev_stat *)(((char *)w_) - offsetof (ev_stat, timer));
1777
1778 /* we copy this here each the time so that */
1779 /* prev has the old value when the callback gets invoked */
1780 w->prev = w->attr;
1781 ev_stat_stat (EV_A_ w);
1782
1783 if (memcmp (&w->prev, &w->attr, sizeof (ev_statdata)))
1784 ev_feed_event (EV_A_ w, EV_STAT);
1785}
1786
1787void
1788ev_stat_start (EV_P_ ev_stat *w) 1842ev_fork_start (EV_P_ ev_fork *w)
1789{ 1843{
1790 if (expect_false (ev_is_active (w))) 1844 if (expect_false (ev_is_active (w)))
1791 return; 1845 return;
1792 1846
1793 /* since we use memcmp, we need to clear any padding data etc. */
1794 memset (&w->prev, 0, sizeof (ev_statdata));
1795 memset (&w->attr, 0, sizeof (ev_statdata));
1796
1797 ev_stat_stat (EV_A_ w);
1798
1799 ev_timer_init (&w->timer, stat_timer_cb, w->interval, w->interval);
1800 ev_set_priority (&w->timer, ev_priority (w));
1801 ev_timer_start (EV_A_ &w->timer);
1802
1803 ev_start (EV_A_ (W)w, 1); 1847 ev_start (EV_A_ (W)w, ++forkcnt);
1848 array_needsize (ev_fork *, forks, forkmax, forkcnt, EMPTY2);
1849 forks [forkcnt - 1] = w;
1804} 1850}
1805 1851
1806void 1852void
1807ev_stat_stop (EV_P_ ev_stat *w) 1853ev_fork_stop (EV_P_ ev_fork *w)
1808{ 1854{
1809 ev_clear_pending (EV_A_ (W)w); 1855 ev_clear_pending (EV_A_ (W)w);
1810 if (expect_false (!ev_is_active (w))) 1856 if (expect_false (!ev_is_active (w)))
1811 return; 1857 return;
1812 1858
1813 ev_timer_stop (EV_A_ &w->timer); 1859 {
1860 int active = ((W)w)->active;
1861 forks [active - 1] = forks [--forkcnt];
1862 ((W)forks [active - 1])->active = active;
1863 }
1814 1864
1815 ev_stop (EV_A_ (W)w); 1865 ev_stop (EV_A_ (W)w);
1816} 1866}
1817#endif 1867#endif
1818 1868

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines