kqueue.cpp 5.24 KB
Newer Older
Martin Sustrik's avatar
Martin Sustrik committed
1
/*
2
    Copyright (c) 2007-2014 Contributors as noted in the AUTHORS file
Martin Sustrik's avatar
Martin Sustrik committed
3 4 5 6

    This file is part of 0MQ.

    0MQ is free software; you can redistribute it and/or modify it under
7
    the terms of the GNU Lesser General Public License as published by
Martin Sustrik's avatar
Martin Sustrik committed
8 9 10 11 12 13
    the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.

    0MQ is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
    GNU Lesser General Public License for more details.
Martin Sustrik's avatar
Martin Sustrik committed
15

16
    You should have received a copy of the GNU Lesser General Public License
Martin Sustrik's avatar
Martin Sustrik committed
17 18 19
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

20 21
#include "kqueue.hpp"
#if defined ZMQ_USE_KQUEUE
Martin Sustrik's avatar
Martin Sustrik committed
22 23 24 25 26 27 28

#include <sys/time.h>
#include <sys/types.h>
#include <sys/event.h>
#include <stdlib.h>
#include <unistd.h>
#include <algorithm>
29
#include <new>
Martin Sustrik's avatar
Martin Sustrik committed
30 31 32 33 34

#include "kqueue.hpp"
#include "err.hpp"
#include "config.hpp"
#include "i_poll_events.hpp"
35
#include "likely.hpp"
Martin Sustrik's avatar
Martin Sustrik committed
36

Martin Lucina's avatar
Martin Lucina committed
37 38 39 40 41 42 43 44
//  NetBSD defines (struct kevent).udata as intptr_t, everyone else
//  as void *.
#if defined ZMQ_HAVE_NETBSD
#define kevent_udata_t intptr_t
#else
#define kevent_udata_t void *
#endif

45 46
zmq::kqueue_t::kqueue_t (const zmq::ctx_t &ctx_) :
    ctx(ctx_),
47
    stopping (false)
Martin Sustrik's avatar
Martin Sustrik committed
48 49 50 51
{
    //  Create event queue
    kqueue_fd = kqueue ();
    errno_assert (kqueue_fd != -1);
52 53 54
#ifdef HAVE_FORK
    pid = getpid();
#endif
Martin Sustrik's avatar
Martin Sustrik committed
55 56
}

Martin Sustrik's avatar
Martin Sustrik committed
57
zmq::kqueue_t::~kqueue_t ()
Martin Sustrik's avatar
Martin Sustrik committed
58
{
59
    worker.stop ();
Martin Sustrik's avatar
Martin Sustrik committed
60 61 62
    close (kqueue_fd);
}

Martin Sustrik's avatar
Martin Sustrik committed
63
void zmq::kqueue_t::kevent_add (fd_t fd_, short filter_, void *udata_)
Martin Sustrik's avatar
Martin Sustrik committed
64 65 66
{
    struct kevent ev;

Martin Lucina's avatar
Martin Lucina committed
67
    EV_SET (&ev, fd_, filter_, EV_ADD, 0, 0, (kevent_udata_t)udata_);
Martin Sustrik's avatar
Martin Sustrik committed
68 69 70 71
    int rc = kevent (kqueue_fd, &ev, 1, NULL, 0, NULL);
    errno_assert (rc != -1);
}

Martin Sustrik's avatar
Martin Sustrik committed
72
void zmq::kqueue_t::kevent_delete (fd_t fd_, short filter_)
Martin Sustrik's avatar
Martin Sustrik committed
73 74 75
{
    struct kevent ev;

76
    EV_SET (&ev, fd_, filter_, EV_DELETE, 0, 0, 0);
Martin Sustrik's avatar
Martin Sustrik committed
77 78 79 80
    int rc = kevent (kqueue_fd, &ev, 1, NULL, 0, NULL);
    errno_assert (rc != -1);
}

81 82
zmq::kqueue_t::handle_t zmq::kqueue_t::add_fd (fd_t fd_,
    i_poll_events *reactor_)
Martin Sustrik's avatar
Martin Sustrik committed
83
{
84
    poll_entry_t *pe = new (std::nothrow) poll_entry_t;
85
    alloc_assert (pe);
Martin Sustrik's avatar
Martin Sustrik committed
86 87 88 89 90 91

    pe->fd = fd_;
    pe->flag_pollin = 0;
    pe->flag_pollout = 0;
    pe->reactor = reactor_;

92 93
    adjust_load (1);

94
    return pe;
Martin Sustrik's avatar
Martin Sustrik committed
95 96
}

Martin Sustrik's avatar
Martin Sustrik committed
97
void zmq::kqueue_t::rm_fd (handle_t handle_)
Martin Sustrik's avatar
Martin Sustrik committed
98
{
99
    poll_entry_t *pe = (poll_entry_t*) handle_;
Martin Sustrik's avatar
Martin Sustrik committed
100 101 102 103 104 105
    if (pe->flag_pollin)
        kevent_delete (pe->fd, EVFILT_READ);
    if (pe->flag_pollout)
        kevent_delete (pe->fd, EVFILT_WRITE);
    pe->fd = retired_fd;
    retired.push_back (pe);
106 107

    adjust_load (-1);
Martin Sustrik's avatar
Martin Sustrik committed
108 109
}

Martin Sustrik's avatar
Martin Sustrik committed
110
void zmq::kqueue_t::set_pollin (handle_t handle_)
Martin Sustrik's avatar
Martin Sustrik committed
111
{
112
    poll_entry_t *pe = (poll_entry_t*) handle_;
113 114 115 116
    if (likely (!pe->flag_pollin)) {
        pe->flag_pollin = true;
        kevent_add (pe->fd, EVFILT_READ, pe);
    }
Martin Sustrik's avatar
Martin Sustrik committed
117 118
}

Martin Sustrik's avatar
Martin Sustrik committed
119
void zmq::kqueue_t::reset_pollin (handle_t handle_)
Martin Sustrik's avatar
Martin Sustrik committed
120
{
121
    poll_entry_t *pe = (poll_entry_t*) handle_;
122 123 124 125
    if (likely (pe->flag_pollin)) {
        pe->flag_pollin = false;
        kevent_delete (pe->fd, EVFILT_READ);
    }
Martin Sustrik's avatar
Martin Sustrik committed
126 127
}

Martin Sustrik's avatar
Martin Sustrik committed
128
void zmq::kqueue_t::set_pollout (handle_t handle_)
Martin Sustrik's avatar
Martin Sustrik committed
129
{
130
    poll_entry_t *pe = (poll_entry_t*) handle_;
131 132 133 134
    if (likely (!pe->flag_pollout)) {
        pe->flag_pollout = true;
        kevent_add (pe->fd, EVFILT_WRITE, pe);
    }
Martin Sustrik's avatar
Martin Sustrik committed
135 136
}

Martin Sustrik's avatar
Martin Sustrik committed
137
void zmq::kqueue_t::reset_pollout (handle_t handle_)
Martin Sustrik's avatar
Martin Sustrik committed
138
{
139
    poll_entry_t *pe = (poll_entry_t*) handle_;
140 141 142 143
    if (likely (pe->flag_pollout)) {
        pe->flag_pollout = false;
        kevent_delete (pe->fd, EVFILT_WRITE);
   }
Martin Sustrik's avatar
Martin Sustrik committed
144 145
}

Martin Sustrik's avatar
Martin Sustrik committed
146
void zmq::kqueue_t::start ()
Martin Sustrik's avatar
Martin Sustrik committed
147
{
148
    ctx.start_thread (worker, worker_routine, this);
Martin Sustrik's avatar
Martin Sustrik committed
149 150
}

Martin Sustrik's avatar
Martin Sustrik committed
151
void zmq::kqueue_t::stop ()
Martin Sustrik's avatar
Martin Sustrik committed
152 153 154 155
{
    stopping = true;
}

Richard Newton's avatar
Richard Newton committed
156
int zmq::kqueue_t::max_fds ()
157 158 159 160
{
    return -1;
}

Martin Sustrik's avatar
Martin Sustrik committed
161
void zmq::kqueue_t::loop ()
Martin Sustrik's avatar
Martin Sustrik committed
162 163 164
{
    while (!stopping) {

165
        //  Execute any due timers.
166
        int timeout = (int) execute_timers ();
Martin Sustrik's avatar
Martin Sustrik committed
167 168

        //  Wait for events.
169 170 171 172
        struct kevent ev_buf [max_io_events];
        timespec ts = {timeout / 1000, (timeout % 1000) * 1000000};
        int n = kevent (kqueue_fd, NULL, 0, &ev_buf [0], max_io_events,
            timeout ? &ts: NULL);
173 174 175 176 177 178 179
#ifdef HAVE_FORK
        if (unlikely(pid != getpid())) {
            //printf("zmq::kqueue_t::loop aborting on forked child %d\n", (int)getpid());
            // simply exit the loop in a forked process.
            return;
        }
#endif
Martin Hurton's avatar
Martin Hurton committed
180 181
        if (n == -1) {
            errno_assert (errno == EINTR);
Martin Sustrik's avatar
Martin Sustrik committed
182
            continue;
Martin Hurton's avatar
Martin Hurton committed
183
        }
Martin Sustrik's avatar
Martin Sustrik committed
184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203

        for (int i = 0; i < n; i ++) {
            poll_entry_t *pe = (poll_entry_t*) ev_buf [i].udata;

            if (pe->fd == retired_fd)
                continue;
            if (ev_buf [i].flags & EV_EOF)
                pe->reactor->in_event ();
            if (pe->fd == retired_fd)
                continue;
            if (ev_buf [i].filter == EVFILT_WRITE)
                pe->reactor->out_event ();
            if (pe->fd == retired_fd)
                continue;
            if (ev_buf [i].filter == EVFILT_READ)
                pe->reactor->in_event ();
        }

        //  Destroy retired event sources.
        for (retired_t::iterator it = retired.begin (); it != retired.end ();
204
              ++it)
Martin Sustrik's avatar
Martin Sustrik committed
205 206 207 208 209
            delete *it;
        retired.clear ();
    }
}

Martin Sustrik's avatar
Martin Sustrik committed
210
void zmq::kqueue_t::worker_routine (void *arg_)
Martin Sustrik's avatar
Martin Sustrik committed
211 212 213 214 215
{
    ((kqueue_t*) arg_)->loop ();
}

#endif