polyphony 0.13 → 0.14

Sign up to get free protection for your applications and to get access to all the features.
Files changed (135) hide show
  1. checksums.yaml +4 -4
  2. data/.gitbook.yaml +5 -0
  3. data/.gitignore +55 -0
  4. data/.rubocop.yml +49 -0
  5. data/CHANGELOG.md +13 -2
  6. data/Gemfile +3 -0
  7. data/Gemfile.lock +31 -0
  8. data/LICENSE +21 -0
  9. data/README.md +35 -18
  10. data/Rakefile +20 -0
  11. data/TODO.md +49 -0
  12. data/docs/getting-started/getting-started.md +10 -0
  13. data/docs/getting-started/tutorial.md +2 -0
  14. data/docs/summary.md +9 -0
  15. data/examples/core/cancel.rb +10 -0
  16. data/examples/core/channel_echo.rb +43 -0
  17. data/examples/core/enumerator.rb +14 -0
  18. data/examples/core/fork.rb +22 -0
  19. data/examples/core/genserver.rb +74 -0
  20. data/examples/core/lock.rb +20 -0
  21. data/examples/core/move_on.rb +11 -0
  22. data/examples/core/move_on_twice.rb +17 -0
  23. data/examples/core/move_on_with_ensure.rb +17 -0
  24. data/examples/core/multiple_async.rb +17 -0
  25. data/examples/core/nested_async.rb +18 -0
  26. data/examples/core/nested_cancel.rb +41 -0
  27. data/examples/core/nested_multiple_async.rb +19 -0
  28. data/examples/core/next_tick.rb +13 -0
  29. data/examples/core/pulse.rb +13 -0
  30. data/examples/core/resource.rb +29 -0
  31. data/examples/core/resource_cancel.rb +34 -0
  32. data/examples/core/resource_delegate.rb +32 -0
  33. data/examples/core/sleep.rb +9 -0
  34. data/examples/core/sleep2.rb +13 -0
  35. data/examples/core/spawn.rb +15 -0
  36. data/examples/core/spawn_cancel.rb +19 -0
  37. data/examples/core/spawn_error.rb +28 -0
  38. data/examples/core/supervisor.rb +22 -0
  39. data/examples/core/supervisor_with_cancel_scope.rb +24 -0
  40. data/examples/core/supervisor_with_error.rb +23 -0
  41. data/examples/core/supervisor_with_manual_move_on.rb +25 -0
  42. data/examples/core/thread.rb +30 -0
  43. data/examples/core/thread_cancel.rb +30 -0
  44. data/examples/core/thread_pool.rb +60 -0
  45. data/examples/core/throttle.rb +17 -0
  46. data/examples/fs/read.rb +37 -0
  47. data/examples/interfaces/pg_client.rb +38 -0
  48. data/examples/interfaces/pg_pool.rb +37 -0
  49. data/examples/interfaces/pg_query.rb +32 -0
  50. data/examples/interfaces/redis_channels.rb +119 -0
  51. data/examples/interfaces/redis_client.rb +21 -0
  52. data/examples/interfaces/redis_pubsub.rb +26 -0
  53. data/examples/interfaces/redis_pubsub_perf.rb +65 -0
  54. data/examples/io/config.ru +3 -0
  55. data/examples/io/echo_client.rb +22 -0
  56. data/examples/io/echo_server.rb +14 -0
  57. data/examples/io/echo_server_with_timeout.rb +33 -0
  58. data/examples/io/echo_stdin.rb +15 -0
  59. data/examples/io/happy_eyeballs.rb +32 -0
  60. data/examples/io/http_client.rb +19 -0
  61. data/examples/io/http_server.js +24 -0
  62. data/examples/io/http_server.rb +16 -0
  63. data/examples/io/http_server_forked.rb +27 -0
  64. data/examples/io/http_server_throttled.rb +16 -0
  65. data/examples/io/http_ws_server.rb +42 -0
  66. data/examples/io/https_client.rb +17 -0
  67. data/examples/io/https_server.rb +23 -0
  68. data/examples/io/https_wss_server.rb +46 -0
  69. data/examples/io/rack_server.rb +19 -0
  70. data/examples/io/rack_server_https.rb +24 -0
  71. data/examples/io/rack_server_https_forked.rb +32 -0
  72. data/examples/io/websocket_server.rb +33 -0
  73. data/examples/io/ws_page.html +34 -0
  74. data/examples/io/wss_page.html +34 -0
  75. data/examples/performance/perf_multi_snooze.rb +21 -0
  76. data/examples/performance/perf_snooze.rb +30 -0
  77. data/examples/performance/thread-vs-fiber/polyphony_server.rb +63 -0
  78. data/examples/performance/thread-vs-fiber/threaded_server.rb +27 -0
  79. data/examples/streams/lines.rb +27 -0
  80. data/examples/streams/stdio.rb +18 -0
  81. data/ext/ev/async.c +168 -0
  82. data/ext/ev/child.c +169 -0
  83. data/ext/ev/ev.h +32 -0
  84. data/ext/ev/ev_ext.c +20 -0
  85. data/ext/ev/ev_module.c +222 -0
  86. data/ext/ev/io.c +405 -0
  87. data/ext/ev/libev.h +9 -0
  88. data/ext/ev/signal.c +119 -0
  89. data/ext/ev/timer.c +197 -0
  90. data/ext/libev/Changes +513 -0
  91. data/ext/libev/LICENSE +37 -0
  92. data/ext/libev/README +58 -0
  93. data/ext/libev/README.embed +3 -0
  94. data/ext/libev/ev.c +5214 -0
  95. data/ext/libev/ev.h +849 -0
  96. data/ext/libev/ev_epoll.c +285 -0
  97. data/ext/libev/ev_kqueue.c +218 -0
  98. data/ext/libev/ev_poll.c +151 -0
  99. data/ext/libev/ev_port.c +189 -0
  100. data/ext/libev/ev_select.c +316 -0
  101. data/ext/libev/ev_vars.h +204 -0
  102. data/ext/libev/ev_win32.c +162 -0
  103. data/ext/libev/ev_wrap.h +200 -0
  104. data/ext/libev/test_libev_win32.c +123 -0
  105. data/lib/polyphony.rb +7 -2
  106. data/lib/polyphony/core.rb +1 -1
  107. data/lib/polyphony/core/{coroutine.rb → coprocess.rb} +10 -10
  108. data/lib/polyphony/core/exceptions.rb +5 -5
  109. data/lib/polyphony/core/supervisor.rb +16 -16
  110. data/lib/polyphony/core/thread.rb +1 -1
  111. data/lib/polyphony/extensions/io.rb +43 -42
  112. data/lib/polyphony/extensions/kernel.rb +10 -34
  113. data/lib/polyphony/extensions/postgres.rb +3 -2
  114. data/lib/polyphony/extensions/redis.rb +1 -1
  115. data/lib/polyphony/extensions/socket.rb +8 -4
  116. data/lib/polyphony/extensions/ssl.rb +0 -54
  117. data/lib/polyphony/http/agent.rb +4 -10
  118. data/lib/polyphony/http/http1.rb +25 -25
  119. data/lib/polyphony/http/http1_request.rb +38 -26
  120. data/lib/polyphony/http/http2.rb +4 -5
  121. data/lib/polyphony/http/http2_request.rb +12 -18
  122. data/lib/polyphony/http/rack.rb +1 -3
  123. data/lib/polyphony/http/server.rb +9 -9
  124. data/lib/polyphony/net.rb +2 -2
  125. data/lib/polyphony/resource_pool.rb +5 -1
  126. data/lib/polyphony/version.rb +1 -1
  127. data/lib/polyphony/websocket.rb +52 -0
  128. data/polyphony.gemspec +31 -0
  129. data/test/test_coprocess.rb +131 -0
  130. data/test/test_core.rb +274 -0
  131. data/test/test_ev.rb +117 -0
  132. data/test/test_io.rb +38 -0
  133. metadata +113 -7
  134. data/lib/polyphony/core/async.rb +0 -36
  135. data/lib/polyphony/net_old.rb +0 -299
@@ -0,0 +1,151 @@
1
+ /*
2
+ * libev poll fd activity backend
3
+ *
4
+ * Copyright (c) 2007,2008,2009,2010,2011 Marc Alexander Lehmann <libev@schmorp.de>
5
+ * All rights reserved.
6
+ *
7
+ * Redistribution and use in source and binary forms, with or without modifica-
8
+ * tion, are permitted provided that the following conditions are met:
9
+ *
10
+ * 1. Redistributions of source code must retain the above copyright notice,
11
+ * this list of conditions and the following disclaimer.
12
+ *
13
+ * 2. Redistributions in binary form must reproduce the above copyright
14
+ * notice, this list of conditions and the following disclaimer in the
15
+ * documentation and/or other materials provided with the distribution.
16
+ *
17
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
18
+ * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MER-
19
+ * CHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
20
+ * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPE-
21
+ * CIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
22
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
23
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
24
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTH-
25
+ * ERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
26
+ * OF THE POSSIBILITY OF SUCH DAMAGE.
27
+ *
28
+ * Alternatively, the contents of this file may be used under the terms of
29
+ * the GNU General Public License ("GPL") version 2 or any later version,
30
+ * in which case the provisions of the GPL are applicable instead of
31
+ * the above. If you wish to allow the use of your version of this file
32
+ * only under the terms of the GPL and not to allow others to use your
33
+ * version of this file under the BSD license, indicate your decision
34
+ * by deleting the provisions above and replace them with the notice
35
+ * and other provisions required by the GPL. If you do not delete the
36
+ * provisions above, a recipient may use your version of this file under
37
+ * either the BSD or the GPL.
38
+ */
39
+
40
+ #include <poll.h>
41
+
42
+ inline_size
43
+ void
44
+ pollidx_init (int *base, int count)
45
+ {
46
+ /* consider using memset (.., -1, ...), which is practically guaranteed
47
+ * to work on all systems implementing poll */
48
+ while (count--)
49
+ *base++ = -1;
50
+ }
51
+
52
+ static void
53
+ poll_modify (EV_P_ int fd, int oev, int nev)
54
+ {
55
+ int idx;
56
+
57
+ if (oev == nev)
58
+ return;
59
+
60
+ array_needsize (int, pollidxs, pollidxmax, fd + 1, pollidx_init);
61
+
62
+ idx = pollidxs [fd];
63
+
64
+ if (idx < 0) /* need to allocate a new pollfd */
65
+ {
66
+ pollidxs [fd] = idx = pollcnt++;
67
+ array_needsize (struct pollfd, polls, pollmax, pollcnt, EMPTY2);
68
+ polls [idx].fd = fd;
69
+ }
70
+
71
+ assert (polls [idx].fd == fd);
72
+
73
+ if (nev)
74
+ polls [idx].events =
75
+ (nev & EV_READ ? POLLIN : 0)
76
+ | (nev & EV_WRITE ? POLLOUT : 0);
77
+ else /* remove pollfd */
78
+ {
79
+ pollidxs [fd] = -1;
80
+
81
+ if (expect_true (idx < --pollcnt))
82
+ {
83
+ polls [idx] = polls [pollcnt];
84
+ pollidxs [polls [idx].fd] = idx;
85
+ }
86
+ }
87
+ }
88
+
89
+ static void
90
+ poll_poll (EV_P_ ev_tstamp timeout)
91
+ {
92
+ struct pollfd *p;
93
+ int res;
94
+
95
+ EV_RELEASE_CB;
96
+ res = poll (polls, pollcnt, timeout * 1e3);
97
+ EV_ACQUIRE_CB;
98
+
99
+ if (expect_false (res < 0))
100
+ {
101
+ if (errno == EBADF)
102
+ fd_ebadf (EV_A);
103
+ else if (errno == ENOMEM && !syserr_cb)
104
+ fd_enomem (EV_A);
105
+ else if (errno != EINTR)
106
+ ev_syserr ("(libev) poll");
107
+ }
108
+ else
109
+ for (p = polls; res; ++p)
110
+ {
111
+ assert (("libev: poll() returned illegal result, broken BSD kernel?", p < polls + pollcnt));
112
+
113
+ if (expect_false (p->revents)) /* this expect is debatable */
114
+ {
115
+ --res;
116
+
117
+ if (expect_false (p->revents & POLLNVAL))
118
+ fd_kill (EV_A_ p->fd);
119
+ else
120
+ fd_event (
121
+ EV_A_
122
+ p->fd,
123
+ (p->revents & (POLLOUT | POLLERR | POLLHUP) ? EV_WRITE : 0)
124
+ | (p->revents & (POLLIN | POLLERR | POLLHUP) ? EV_READ : 0)
125
+ );
126
+ }
127
+ }
128
+ }
129
+
130
+ inline_size
131
+ int
132
+ poll_init (EV_P_ int flags)
133
+ {
134
+ backend_mintime = 1e-3;
135
+ backend_modify = poll_modify;
136
+ backend_poll = poll_poll;
137
+
138
+ pollidxs = 0; pollidxmax = 0;
139
+ polls = 0; pollmax = 0; pollcnt = 0;
140
+
141
+ return EVBACKEND_POLL;
142
+ }
143
+
144
+ inline_size
145
+ void
146
+ poll_destroy (EV_P)
147
+ {
148
+ ev_free (pollidxs);
149
+ ev_free (polls);
150
+ }
151
+
@@ -0,0 +1,189 @@
1
+ /*
2
+ * libev solaris event port backend
3
+ *
4
+ * Copyright (c) 2007,2008,2009,2010,2011 Marc Alexander Lehmann <libev@schmorp.de>
5
+ * All rights reserved.
6
+ *
7
+ * Redistribution and use in source and binary forms, with or without modifica-
8
+ * tion, are permitted provided that the following conditions are met:
9
+ *
10
+ * 1. Redistributions of source code must retain the above copyright notice,
11
+ * this list of conditions and the following disclaimer.
12
+ *
13
+ * 2. Redistributions in binary form must reproduce the above copyright
14
+ * notice, this list of conditions and the following disclaimer in the
15
+ * documentation and/or other materials provided with the distribution.
16
+ *
17
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
18
+ * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MER-
19
+ * CHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
20
+ * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPE-
21
+ * CIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
22
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
23
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
24
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTH-
25
+ * ERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
26
+ * OF THE POSSIBILITY OF SUCH DAMAGE.
27
+ *
28
+ * Alternatively, the contents of this file may be used under the terms of
29
+ * the GNU General Public License ("GPL") version 2 or any later version,
30
+ * in which case the provisions of the GPL are applicable instead of
31
+ * the above. If you wish to allow the use of your version of this file
32
+ * only under the terms of the GPL and not to allow others to use your
33
+ * version of this file under the BSD license, indicate your decision
34
+ * by deleting the provisions above and replace them with the notice
35
+ * and other provisions required by the GPL. If you do not delete the
36
+ * provisions above, a recipient may use your version of this file under
37
+ * either the BSD or the GPL.
38
+ */
39
+
40
+ /* useful reading:
41
+ *
42
+ * http://bugs.opensolaris.org/view_bug.do?bug_id=6268715 (random results)
43
+ * http://bugs.opensolaris.org/view_bug.do?bug_id=6455223 (just totally broken)
44
+ * http://bugs.opensolaris.org/view_bug.do?bug_id=6873782 (manpage ETIME)
45
+ * http://bugs.opensolaris.org/view_bug.do?bug_id=6874410 (implementation ETIME)
46
+ * http://www.mail-archive.com/networking-discuss@opensolaris.org/msg11898.html ETIME vs. nget
47
+ * http://src.opensolaris.org/source/xref/onnv/onnv-gate/usr/src/lib/libc/port/gen/event_port.c (libc)
48
+ * http://cvs.opensolaris.org/source/xref/onnv/onnv-gate/usr/src/uts/common/fs/portfs/port.c#1325 (kernel)
49
+ */
50
+
51
+ #include <sys/types.h>
52
+ #include <sys/time.h>
53
+ #include <poll.h>
54
+ #include <port.h>
55
+ #include <string.h>
56
+ #include <errno.h>
57
+
58
+ inline_speed
59
+ void
60
+ port_associate_and_check (EV_P_ int fd, int ev)
61
+ {
62
+ if (0 >
63
+ port_associate (
64
+ backend_fd, PORT_SOURCE_FD, fd,
65
+ (ev & EV_READ ? POLLIN : 0)
66
+ | (ev & EV_WRITE ? POLLOUT : 0),
67
+ 0
68
+ )
69
+ )
70
+ {
71
+ if (errno == EBADFD)
72
+ fd_kill (EV_A_ fd);
73
+ else
74
+ ev_syserr ("(libev) port_associate");
75
+ }
76
+ }
77
+
78
+ static void
79
+ port_modify (EV_P_ int fd, int oev, int nev)
80
+ {
81
+ /* we need to reassociate no matter what, as closes are
82
+ * once more silently being discarded.
83
+ */
84
+ if (!nev)
85
+ {
86
+ if (oev)
87
+ port_dissociate (backend_fd, PORT_SOURCE_FD, fd);
88
+ }
89
+ else
90
+ port_associate_and_check (EV_A_ fd, nev);
91
+ }
92
+
93
+ static void
94
+ port_poll (EV_P_ ev_tstamp timeout)
95
+ {
96
+ int res, i;
97
+ struct timespec ts;
98
+ uint_t nget = 1;
99
+
100
+ /* we initialise this to something we will skip in the loop, as */
101
+ /* port_getn can return with nget unchanged, but no indication */
102
+ /* whether it was the original value or has been updated :/ */
103
+ port_events [0].portev_source = 0;
104
+
105
+ EV_RELEASE_CB;
106
+ EV_TS_SET (ts, timeout);
107
+ res = port_getn (backend_fd, port_events, port_eventmax, &nget, &ts);
108
+ EV_ACQUIRE_CB;
109
+
110
+ /* port_getn may or may not set nget on error */
111
+ /* so we rely on port_events [0].portev_source not being updated */
112
+ if (res == -1 && errno != ETIME && errno != EINTR)
113
+ ev_syserr ("(libev) port_getn (see http://bugs.opensolaris.org/view_bug.do?bug_id=6268715, try LIBEV_FLAGS=3 env variable)");
114
+
115
+ for (i = 0; i < nget; ++i)
116
+ {
117
+ if (port_events [i].portev_source == PORT_SOURCE_FD)
118
+ {
119
+ int fd = port_events [i].portev_object;
120
+
121
+ fd_event (
122
+ EV_A_
123
+ fd,
124
+ (port_events [i].portev_events & (POLLOUT | POLLERR | POLLHUP) ? EV_WRITE : 0)
125
+ | (port_events [i].portev_events & (POLLIN | POLLERR | POLLHUP) ? EV_READ : 0)
126
+ );
127
+
128
+ fd_change (EV_A_ fd, EV__IOFDSET);
129
+ }
130
+ }
131
+
132
+ if (expect_false (nget == port_eventmax))
133
+ {
134
+ ev_free (port_events);
135
+ port_eventmax = array_nextsize (sizeof (port_event_t), port_eventmax, port_eventmax + 1);
136
+ port_events = (port_event_t *)ev_malloc (sizeof (port_event_t) * port_eventmax);
137
+ }
138
+ }
139
+
140
+ inline_size
141
+ int
142
+ port_init (EV_P_ int flags)
143
+ {
144
+ /* Initialize the kernel queue */
145
+ if ((backend_fd = port_create ()) < 0)
146
+ return 0;
147
+
148
+ assert (("libev: PORT_SOURCE_FD must not be zero", PORT_SOURCE_FD));
149
+
150
+ fcntl (backend_fd, F_SETFD, FD_CLOEXEC); /* not sure if necessary, hopefully doesn't hurt */
151
+
152
+ /* if my reading of the opensolaris kernel sources are correct, then
153
+ * opensolaris does something very stupid: it checks if the time has already
154
+ * elapsed and doesn't round up if that is the case,m otherwise it DOES round
155
+ * up. Since we can't know what the case is, we need to guess by using a
156
+ * "large enough" timeout. Normally, 1e-9 would be correct.
157
+ */
158
+ backend_mintime = 1e-3; /* needed to compensate for port_getn returning early */
159
+ backend_modify = port_modify;
160
+ backend_poll = port_poll;
161
+
162
+ port_eventmax = 64; /* initial number of events receivable per poll */
163
+ port_events = (port_event_t *)ev_malloc (sizeof (port_event_t) * port_eventmax);
164
+
165
+ return EVBACKEND_PORT;
166
+ }
167
+
168
+ inline_size
169
+ void
170
+ port_destroy (EV_P)
171
+ {
172
+ ev_free (port_events);
173
+ }
174
+
175
+ inline_size
176
+ void
177
+ port_fork (EV_P)
178
+ {
179
+ close (backend_fd);
180
+
181
+ while ((backend_fd = port_create ()) < 0)
182
+ ev_syserr ("(libev) port");
183
+
184
+ fcntl (backend_fd, F_SETFD, FD_CLOEXEC);
185
+
186
+ /* re-register interest in fds */
187
+ fd_rearm_all (EV_A);
188
+ }
189
+
@@ -0,0 +1,316 @@
1
+ /*
2
+ * libev select fd activity backend
3
+ *
4
+ * Copyright (c) 2007,2008,2009,2010,2011 Marc Alexander Lehmann <libev@schmorp.de>
5
+ * All rights reserved.
6
+ *
7
+ * Redistribution and use in source and binary forms, with or without modifica-
8
+ * tion, are permitted provided that the following conditions are met:
9
+ *
10
+ * 1. Redistributions of source code must retain the above copyright notice,
11
+ * this list of conditions and the following disclaimer.
12
+ *
13
+ * 2. Redistributions in binary form must reproduce the above copyright
14
+ * notice, this list of conditions and the following disclaimer in the
15
+ * documentation and/or other materials provided with the distribution.
16
+ *
17
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
18
+ * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MER-
19
+ * CHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
20
+ * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPE-
21
+ * CIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
22
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
23
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
24
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTH-
25
+ * ERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
26
+ * OF THE POSSIBILITY OF SUCH DAMAGE.
27
+ *
28
+ * Alternatively, the contents of this file may be used under the terms of
29
+ * the GNU General Public License ("GPL") version 2 or any later version,
30
+ * in which case the provisions of the GPL are applicable instead of
31
+ * the above. If you wish to allow the use of your version of this file
32
+ * only under the terms of the GPL and not to allow others to use your
33
+ * version of this file under the BSD license, indicate your decision
34
+ * by deleting the provisions above and replace them with the notice
35
+ * and other provisions required by the GPL. If you do not delete the
36
+ * provisions above, a recipient may use your version of this file under
37
+ * either the BSD or the GPL.
38
+ */
39
+
40
+ #ifndef _WIN32
41
+ /* for unix systems */
42
+ # include <inttypes.h>
43
+ # ifndef __hpux
44
+ /* for REAL unix systems */
45
+ # include <sys/select.h>
46
+ # endif
47
+ #endif
48
+
49
+ #ifndef EV_SELECT_USE_FD_SET
50
+ # ifdef NFDBITS
51
+ # define EV_SELECT_USE_FD_SET 0
52
+ # else
53
+ # define EV_SELECT_USE_FD_SET 1
54
+ # endif
55
+ #endif
56
+
57
+ #if EV_SELECT_IS_WINSOCKET
58
+ # undef EV_SELECT_USE_FD_SET
59
+ # define EV_SELECT_USE_FD_SET 1
60
+ # undef NFDBITS
61
+ # define NFDBITS 0
62
+ #endif
63
+
64
+ #if !EV_SELECT_USE_FD_SET
65
+ # define NFDBYTES (NFDBITS / 8)
66
+ #endif
67
+
68
+ #include <string.h>
69
+
70
+ static void
71
+ select_modify (EV_P_ int fd, int oev, int nev)
72
+ {
73
+ if (oev == nev)
74
+ return;
75
+
76
+ {
77
+ #if EV_SELECT_USE_FD_SET
78
+
79
+ #if EV_SELECT_IS_WINSOCKET
80
+ SOCKET handle = anfds [fd].handle;
81
+ #else
82
+ int handle = fd;
83
+ #endif
84
+
85
+ assert (("libev: fd >= FD_SETSIZE passed to fd_set-based select backend", fd < FD_SETSIZE));
86
+
87
+ /* FD_SET is broken on windows (it adds the fd to a set twice or more,
88
+ * which eventually leads to overflows). Need to call it only on changes.
89
+ */
90
+ #if EV_SELECT_IS_WINSOCKET
91
+ if ((oev ^ nev) & EV_READ)
92
+ #endif
93
+ if (nev & EV_READ)
94
+ FD_SET (handle, (fd_set *)vec_ri);
95
+ else
96
+ FD_CLR (handle, (fd_set *)vec_ri);
97
+
98
+ #if EV_SELECT_IS_WINSOCKET
99
+ if ((oev ^ nev) & EV_WRITE)
100
+ #endif
101
+ if (nev & EV_WRITE)
102
+ FD_SET (handle, (fd_set *)vec_wi);
103
+ else
104
+ FD_CLR (handle, (fd_set *)vec_wi);
105
+
106
+ #else
107
+
108
+ int word = fd / NFDBITS;
109
+ fd_mask mask = 1UL << (fd % NFDBITS);
110
+
111
+ if (expect_false (vec_max <= word))
112
+ {
113
+ int new_max = word + 1;
114
+
115
+ vec_ri = ev_realloc (vec_ri, new_max * NFDBYTES);
116
+ vec_ro = ev_realloc (vec_ro, new_max * NFDBYTES); /* could free/malloc */
117
+ vec_wi = ev_realloc (vec_wi, new_max * NFDBYTES);
118
+ vec_wo = ev_realloc (vec_wo, new_max * NFDBYTES); /* could free/malloc */
119
+ #ifdef _WIN32
120
+ vec_eo = ev_realloc (vec_eo, new_max * NFDBYTES); /* could free/malloc */
121
+ #endif
122
+
123
+ for (; vec_max < new_max; ++vec_max)
124
+ ((fd_mask *)vec_ri) [vec_max] =
125
+ ((fd_mask *)vec_wi) [vec_max] = 0;
126
+ }
127
+
128
+ ((fd_mask *)vec_ri) [word] |= mask;
129
+ if (!(nev & EV_READ))
130
+ ((fd_mask *)vec_ri) [word] &= ~mask;
131
+
132
+ ((fd_mask *)vec_wi) [word] |= mask;
133
+ if (!(nev & EV_WRITE))
134
+ ((fd_mask *)vec_wi) [word] &= ~mask;
135
+ #endif
136
+ }
137
+ }
138
+
139
+ static void
140
+ select_poll (EV_P_ ev_tstamp timeout)
141
+ {
142
+ struct timeval tv;
143
+ int res;
144
+ int fd_setsize;
145
+
146
+ EV_RELEASE_CB;
147
+ EV_TV_SET (tv, timeout);
148
+
149
+ #if EV_SELECT_USE_FD_SET
150
+ fd_setsize = sizeof (fd_set);
151
+ #else
152
+ fd_setsize = vec_max * NFDBYTES;
153
+ #endif
154
+
155
+ memcpy (vec_ro, vec_ri, fd_setsize);
156
+ memcpy (vec_wo, vec_wi, fd_setsize);
157
+
158
+ #ifdef _WIN32
159
+ /* pass in the write set as except set.
160
+ * the idea behind this is to work around a windows bug that causes
161
+ * errors to be reported as an exception and not by setting
162
+ * the writable bit. this is so uncontrollably lame.
163
+ */
164
+ memcpy (vec_eo, vec_wi, fd_setsize);
165
+ res = select (vec_max * NFDBITS, (fd_set *)vec_ro, (fd_set *)vec_wo, (fd_set *)vec_eo, &tv);
166
+ #elif EV_SELECT_USE_FD_SET
167
+ fd_setsize = anfdmax < FD_SETSIZE ? anfdmax : FD_SETSIZE;
168
+ res = select (fd_setsize, (fd_set *)vec_ro, (fd_set *)vec_wo, 0, &tv);
169
+ #else
170
+ res = select (vec_max * NFDBITS, (fd_set *)vec_ro, (fd_set *)vec_wo, 0, &tv);
171
+ #endif
172
+ EV_ACQUIRE_CB;
173
+
174
+ if (expect_false (res < 0))
175
+ {
176
+ #if EV_SELECT_IS_WINSOCKET
177
+ errno = WSAGetLastError ();
178
+ #endif
179
+ #ifdef WSABASEERR
180
+ /* on windows, select returns incompatible error codes, fix this */
181
+ if (errno >= WSABASEERR && errno < WSABASEERR + 1000)
182
+ if (errno == WSAENOTSOCK)
183
+ errno = EBADF;
184
+ else
185
+ errno -= WSABASEERR;
186
+ #endif
187
+
188
+ #ifdef _WIN32
189
+ /* select on windows erroneously returns EINVAL when no fd sets have been
190
+ * provided (this is documented). what microsoft doesn't tell you that this bug
191
+ * exists even when the fd sets _are_ provided, so we have to check for this bug
192
+ * here and emulate by sleeping manually.
193
+ * we also get EINVAL when the timeout is invalid, but we ignore this case here
194
+ * and assume that EINVAL always means: you have to wait manually.
195
+ */
196
+ if (errno == EINVAL)
197
+ {
198
+ if (timeout)
199
+ {
200
+ unsigned long ms = timeout * 1e3;
201
+ Sleep (ms ? ms : 1);
202
+ }
203
+
204
+ return;
205
+ }
206
+ #endif
207
+
208
+ if (errno == EBADF)
209
+ fd_ebadf (EV_A);
210
+ else if (errno == ENOMEM && !syserr_cb)
211
+ fd_enomem (EV_A);
212
+ else if (errno != EINTR)
213
+ ev_syserr ("(libev) select");
214
+
215
+ return;
216
+ }
217
+
218
+ #if EV_SELECT_USE_FD_SET
219
+
220
+ {
221
+ int fd;
222
+
223
+ for (fd = 0; fd < anfdmax; ++fd)
224
+ if (anfds [fd].events)
225
+ {
226
+ int events = 0;
227
+ #if EV_SELECT_IS_WINSOCKET
228
+ SOCKET handle = anfds [fd].handle;
229
+ #else
230
+ int handle = fd;
231
+ #endif
232
+
233
+ if (FD_ISSET (handle, (fd_set *)vec_ro)) events |= EV_READ;
234
+ if (FD_ISSET (handle, (fd_set *)vec_wo)) events |= EV_WRITE;
235
+ #ifdef _WIN32
236
+ if (FD_ISSET (handle, (fd_set *)vec_eo)) events |= EV_WRITE;
237
+ #endif
238
+
239
+ if (expect_true (events))
240
+ fd_event (EV_A_ fd, events);
241
+ }
242
+ }
243
+
244
+ #else
245
+
246
+ {
247
+ int word, bit;
248
+ for (word = vec_max; word--; )
249
+ {
250
+ fd_mask word_r = ((fd_mask *)vec_ro) [word];
251
+ fd_mask word_w = ((fd_mask *)vec_wo) [word];
252
+ #ifdef _WIN32
253
+ word_w |= ((fd_mask *)vec_eo) [word];
254
+ #endif
255
+
256
+ if (word_r || word_w)
257
+ for (bit = NFDBITS; bit--; )
258
+ {
259
+ fd_mask mask = 1UL << bit;
260
+ int events = 0;
261
+
262
+ events |= word_r & mask ? EV_READ : 0;
263
+ events |= word_w & mask ? EV_WRITE : 0;
264
+
265
+ if (expect_true (events))
266
+ fd_event (EV_A_ word * NFDBITS + bit, events);
267
+ }
268
+ }
269
+ }
270
+
271
+ #endif
272
+ }
273
+
274
+ inline_size
275
+ int
276
+ select_init (EV_P_ int flags)
277
+ {
278
+ backend_mintime = 1e-6;
279
+ backend_modify = select_modify;
280
+ backend_poll = select_poll;
281
+
282
+ #if EV_SELECT_USE_FD_SET
283
+ vec_ri = ev_malloc (sizeof (fd_set)); FD_ZERO ((fd_set *)vec_ri);
284
+ vec_ro = ev_malloc (sizeof (fd_set));
285
+ vec_wi = ev_malloc (sizeof (fd_set)); FD_ZERO ((fd_set *)vec_wi);
286
+ vec_wo = ev_malloc (sizeof (fd_set));
287
+ #ifdef _WIN32
288
+ vec_eo = ev_malloc (sizeof (fd_set));
289
+ #endif
290
+ #else
291
+ vec_max = 0;
292
+ vec_ri = 0;
293
+ vec_ro = 0;
294
+ vec_wi = 0;
295
+ vec_wo = 0;
296
+ #ifdef _WIN32
297
+ vec_eo = 0;
298
+ #endif
299
+ #endif
300
+
301
+ return EVBACKEND_SELECT;
302
+ }
303
+
304
+ inline_size
305
+ void
306
+ select_destroy (EV_P)
307
+ {
308
+ ev_free (vec_ri);
309
+ ev_free (vec_ro);
310
+ ev_free (vec_wi);
311
+ ev_free (vec_wo);
312
+ #ifdef _WIN32
313
+ ev_free (vec_eo);
314
+ #endif
315
+ }
316
+