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

Comparing libeio/eio.c (file contents):
Revision 1.2 by root, Sat May 10 23:33:40 2008 UTC vs.
Revision 1.15 by root, Sat May 17 12:26:57 2008 UTC

1/*
2 * libeio implementation
3 *
4 * Copyright (c) 2007,2008 Marc Alexander Lehmann <libeio@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
1#include "eio.h" 40#include "eio.h"
2#include "xthread.h" 41#include "xthread.h"
3 42
4#include <errno.h> 43#include <errno.h>
5
6#include "EXTERN.h"
7#include "perl.h"
8#include "XSUB.h"
9
10#include <stddef.h> 44#include <stddef.h>
11#include <stdlib.h> 45#include <stdlib.h>
46#include <string.h>
12#include <errno.h> 47#include <errno.h>
13#include <sys/types.h> 48#include <sys/types.h>
14#include <sys/stat.h> 49#include <sys/stat.h>
15#include <limits.h> 50#include <limits.h>
16#include <fcntl.h> 51#include <fcntl.h>
17#include <sched.h> 52#include <assert.h>
18 53
19#ifndef EIO_FINISH 54#ifndef EIO_FINISH
20# define EIO_FINISH(req) ((req)->finish) && !EIO_CANCELLED (req) ? (req)->finish (req) : 0 55# define EIO_FINISH(req) ((req)->finish) && !EIO_CANCELLED (req) ? (req)->finish (req) : 0
21#endif 56#endif
22 57
… …
38# include <sys/time.h> 73# include <sys/time.h>
39# include <sys/select.h> 74# include <sys/select.h>
40# include <unistd.h> 75# include <unistd.h>
41# include <utime.h> 76# include <utime.h>
42# include <signal.h> 77# include <signal.h>
78# include <dirent.h>
43 79
44# ifndef EIO_STRUCT_DIRENT 80# ifndef EIO_STRUCT_DIRENT
45# define EIO_STRUCT_DIRENT struct dirent 81# define EIO_STRUCT_DIRENT struct dirent
46# endif 82# endif
47 83
48#endif 84#endif
49
50# ifndef EIO_STRUCT_STAT
51# define EIO_STRUCT_STAT struct stat
52# endif
53 85
54#if HAVE_SENDFILE 86#if HAVE_SENDFILE
55# if __linux 87# if __linux
56# include <sys/sendfile.h> 88# include <sys/sendfile.h>
57# elif __freebsd 89# elif __freebsd
… …
77/* buffer size for various temporary buffers */ 109/* buffer size for various temporary buffers */
78#define EIO_BUFSIZE 65536 110#define EIO_BUFSIZE 65536
79 111
80#define dBUF \ 112#define dBUF \
81 char *eio_buf; \ 113 char *eio_buf; \
82 X_LOCK (wrklock); \ 114 ETP_WORKER_LOCK (self); \
83 self->dbuf = eio_buf = malloc (EIO_BUFSIZE); \ 115 self->dbuf = eio_buf = malloc (EIO_BUFSIZE); \
84 X_UNLOCK (wrklock); \ 116 ETP_WORKER_UNLOCK (self); \
117 errno = ENOMEM; \
85 if (!eio_buf) \ 118 if (!eio_buf) \
86 return -1; 119 return -1;
87 120
88#define EIO_TICKS ((1000000 + 1023) >> 10) 121#define EIO_TICKS ((1000000 + 1023) >> 10)
89 122
123/*****************************************************************************/
124
125#define ETP_PRI_MIN EIO_PRI_MIN
126#define ETP_PRI_MAX EIO_PRI_MAX
127
128struct etp_worker;
129
130#define ETP_REQ eio_req
131#define ETP_DESTROY(req) eio_destroy (req)
132static int eio_finish (eio_req *req);
133#define ETP_FINISH(req) eio_finish (req)
134static void eio_execute (struct etp_worker *self, eio_req *req);
135#define ETP_EXECUTE(wrk,req) eio_execute (wrk,req)
136
137#define ETP_WORKER_CLEAR(req) \
138 if (wrk->dbuf) \
139 { \
140 free (wrk->dbuf); \
141 wrk->dbuf = 0; \
142 } \
143 \
144 if (wrk->dirp) \
145 { \
146 closedir (wrk->dirp); \
147 wrk->dirp = 0; \
148 }
149#define ETP_WORKER_COMMON \
150 void *dbuf; \
151 DIR *dirp;
152
153/*****************************************************************************/
154
155#define ETP_NUM_PRI (ETP_PRI_MAX - ETP_PRI_MIN + 1)
156
157/* calculcate time difference in ~1/EIO_TICKS of a second */
158static int tvdiff (struct timeval *tv1, struct timeval *tv2)
159{
160 return (tv2->tv_sec - tv1->tv_sec ) * EIO_TICKS
161 + ((tv2->tv_usec - tv1->tv_usec) >> 10);
162}
163
164static unsigned int started, idle, wanted = 4;
165
90static void (*want_poll_cb) (void); 166static void (*want_poll_cb) (void);
91static void (*done_poll_cb) (void); 167static void (*done_poll_cb) (void);
92 168
93static unsigned int max_poll_time = 0; 169static unsigned int max_poll_time; /* reslock */
94static unsigned int max_poll_reqs = 0; 170static unsigned int max_poll_reqs; /* reslock */
95 171
96/* calculcate time difference in ~1/EIO_TICKS of a second */ 172static volatile unsigned int nreqs; /* reqlock */
97static int tvdiff (struct timeval *tv1, struct timeval *tv2) 173static volatile unsigned int nready; /* reqlock */
98{ 174static volatile unsigned int npending; /* reqlock */
99 return (tv2->tv_sec - tv1->tv_sec ) * EIO_TICKS 175static volatile unsigned int max_idle = 4;
100 + ((tv2->tv_usec - tv1->tv_usec) >> 10);
101}
102 176
103static unsigned int started, idle, wanted;
104
105/* worker threads management */
106static mutex_t wrklock = X_MUTEX_INIT; 177static mutex_t wrklock = X_MUTEX_INIT;
107
108typedef struct worker {
109 /* locked by wrklock */
110 struct worker *prev, *next;
111
112 thread_t tid;
113
114 /* locked by reslock, reqlock or wrklock */
115 eio_req *req; /* currently processed request */
116 void *dbuf;
117 DIR *dirp;
118} worker;
119
120static worker wrk_first = { &wrk_first, &wrk_first, 0 };
121
122static void worker_clear (worker *wrk)
123{
124 if (wrk->dirp)
125 {
126 closedir (wrk->dirp);
127 wrk->dirp = 0;
128 }
129
130 if (wrk->dbuf)
131 {
132 free (wrk->dbuf);
133 wrk->dbuf = 0;
134 }
135}
136
137static void worker_free (worker *wrk)
138{
139 wrk->next->prev = wrk->prev;
140 wrk->prev->next = wrk->next;
141
142 free (wrk);
143}
144
145static volatile unsigned int nreqs, nready, npending;
146static volatile unsigned int max_idle = 4;
147
148static mutex_t reslock = X_MUTEX_INIT; 178static mutex_t reslock = X_MUTEX_INIT;
149static mutex_t reqlock = X_MUTEX_INIT; 179static mutex_t reqlock = X_MUTEX_INIT;
150static cond_t reqwait = X_COND_INIT; 180static cond_t reqwait = X_COND_INIT;
151 181
182typedef struct etp_worker
183{
184 /* locked by wrklock */
185 struct etp_worker *prev, *next;
186
187 thread_t tid;
188
189 /* locked by reslock, reqlock or wrklock */
190 ETP_REQ *req; /* currently processed request */
191
192 ETP_WORKER_COMMON
193} etp_worker;
194
195static etp_worker wrk_first = { &wrk_first, &wrk_first, 0 }; /* NOT etp */
196
197#define ETP_WORKER_LOCK(wrk) X_LOCK (wrklock)
198#define ETP_WORKER_UNLOCK(wrk) X_UNLOCK (wrklock)
199
200/* worker threads management */
201
202static void etp_worker_clear (etp_worker *wrk)
203{
204 ETP_WORKER_CLEAR (wrk);
205}
206
207static void etp_worker_free (etp_worker *wrk)
208{
209 wrk->next->prev = wrk->prev;
210 wrk->prev->next = wrk->next;
211
212 free (wrk);
213}
214
152unsigned int eio_nreqs (void) 215static unsigned int etp_nreqs (void)
153{ 216{
217 int retval;
218 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
219 retval = nreqs;
220 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
154 return nreqs; 221 return retval;
155} 222}
156 223
157unsigned int eio_nready (void) 224static unsigned int etp_nready (void)
158{ 225{
159 unsigned int retval; 226 unsigned int retval;
160 227
161 if (WORDACCESS_UNSAFE) X_LOCK (reqlock); 228 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
162 retval = nready; 229 retval = nready;
163 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock); 230 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
164 231
165 return retval; 232 return retval;
166} 233}
167 234
168unsigned int eio_npending (void) 235static unsigned int etp_npending (void)
169{ 236{
170 unsigned int retval; 237 unsigned int retval;
171 238
172 if (WORDACCESS_UNSAFE) X_LOCK (reqlock); 239 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
173 retval = npending; 240 retval = npending;
174 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock); 241 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
175 242
176 return retval; 243 return retval;
177} 244}
178 245
179unsigned int eio_nthreads (void) 246static unsigned int etp_nthreads (void)
180{ 247{
181 unsigned int retval; 248 unsigned int retval;
182 249
183 if (WORDACCESS_UNSAFE) X_LOCK (reqlock); 250 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
184 retval = started; 251 retval = started;
… …
191 * a somewhat faster data structure might be nice, but 258 * a somewhat faster data structure might be nice, but
192 * with 8 priorities this actually needs <20 insns 259 * with 8 priorities this actually needs <20 insns
193 * per shift, the most expensive operation. 260 * per shift, the most expensive operation.
194 */ 261 */
195typedef struct { 262typedef struct {
196 eio_req *qs[EIO_NUM_PRI], *qe[EIO_NUM_PRI]; /* qstart, qend */ 263 ETP_REQ *qs[ETP_NUM_PRI], *qe[ETP_NUM_PRI]; /* qstart, qend */
197 int size; 264 int size;
198} reqq; 265} etp_reqq;
199 266
200static reqq req_queue; 267static etp_reqq req_queue;
201static reqq res_queue; 268static etp_reqq res_queue;
202 269
203static int reqq_push (reqq *q, eio_req *req) 270static int reqq_push (etp_reqq *q, ETP_REQ *req)
204{ 271{
205 int pri = req->pri; 272 int pri = req->pri;
206 req->next = 0; 273 req->next = 0;
207 274
208 if (q->qe[pri]) 275 if (q->qe[pri])
… …
214 q->qe[pri] = q->qs[pri] = req; 281 q->qe[pri] = q->qs[pri] = req;
215 282
216 return q->size++; 283 return q->size++;
217} 284}
218 285
219static eio_req *reqq_shift (reqq *q) 286static ETP_REQ *reqq_shift (etp_reqq *q)
220{ 287{
221 int pri; 288 int pri;
222 289
223 if (!q->size) 290 if (!q->size)
224 return 0; 291 return 0;
225 292
226 --q->size; 293 --q->size;
227 294
228 for (pri = EIO_NUM_PRI; pri--; ) 295 for (pri = ETP_NUM_PRI; pri--; )
229 { 296 {
230 eio_req *req = q->qs[pri]; 297 eio_req *req = q->qs[pri];
231 298
232 if (req) 299 if (req)
233 { 300 {
… …
239 } 306 }
240 307
241 abort (); 308 abort ();
242} 309}
243 310
244static void grp_try_feed (eio_req *grp) 311static void etp_atfork_prepare (void)
245{ 312{
246 while (grp->size < grp->int2 && !EIO_CANCELLED (grp)) 313 X_LOCK (wrklock);
314 X_LOCK (reqlock);
315 X_LOCK (reslock);
316#if !HAVE_PREADWRITE
317 X_LOCK (preadwritelock);
318#endif
319#if !HAVE_READDIR_R
320 X_LOCK (readdirlock);
321#endif
322}
323
324static void etp_atfork_parent (void)
325{
326#if !HAVE_READDIR_R
327 X_UNLOCK (readdirlock);
328#endif
329#if !HAVE_PREADWRITE
330 X_UNLOCK (preadwritelock);
331#endif
332 X_UNLOCK (reslock);
333 X_UNLOCK (reqlock);
334 X_UNLOCK (wrklock);
335}
336
337static void etp_atfork_child (void)
338{
339 ETP_REQ *prv;
340
341 while (prv = reqq_shift (&req_queue))
342 ETP_DESTROY (prv);
343
344 while (prv = reqq_shift (&res_queue))
345 ETP_DESTROY (prv);
346
347 while (wrk_first.next != &wrk_first)
247 { 348 {
248 int old_len = grp->size; 349 etp_worker *wrk = wrk_first.next;
249 350
250 EIO_FEED (grp); 351 if (wrk->req)
352 ETP_DESTROY (wrk->req);
251 353
252 /* stop if no progress has been made */ 354 etp_worker_clear (wrk);
253 if (old_len == grp->size) 355 etp_worker_free (wrk);
254 {
255 grp->feed = 0;
256 break;
257 }
258 }
259}
260
261static int eio_finish (eio_req *req);
262
263static int grp_dec (eio_req *grp)
264{
265 --grp->size;
266
267 /* call feeder, if applicable */
268 grp_try_feed (grp);
269
270 /* finish, if done */
271 if (!grp->size && grp->int1)
272 return eio_finish (grp);
273 else
274 return 0;
275}
276
277void eio_destroy (eio_req *req)
278{
279 if ((req)->flags & EIO_FLAG_PTR2_FREE)
280 free (req->ptr2);
281
282 EIO_DESTROY (req);
283}
284
285static int eio_finish (eio_req *req)
286{
287 int res = EIO_FINISH (req);
288
289 if (req->grp)
290 { 356 }
291 int res2;
292 eio_req *grp = req->grp;
293 357
294 /* unlink request */ 358 started = 0;
295 if (req->grp_next) req->grp_next->grp_prev = req->grp_prev; 359 idle = 0;
296 if (req->grp_prev) req->grp_prev->grp_next = req->grp_next; 360 nreqs = 0;
361 nready = 0;
362 npending = 0;
297 363
298 if (grp->grp_first == req) 364 etp_atfork_parent ();
299 grp->grp_first = req->grp_next;
300
301 res2 = grp_dec (grp);
302
303 if (!res && res2)
304 res = res2;
305 }
306
307 eio_destroy (req);
308
309 return res;
310} 365}
311 366
312void eio_grp_cancel (eio_req *grp) 367static void
313{ 368etp_once_init (void)
314 for (grp = grp->grp_first; grp; grp = grp->grp_next) 369{
315 eio_cancel (grp); 370 X_THREAD_ATFORK (etp_atfork_prepare, etp_atfork_parent, etp_atfork_child);
316} 371}
317 372
318void eio_cancel (eio_req *req) 373static int
374etp_init (void (*want_poll)(void), void (*done_poll)(void))
319{ 375{
320 req->flags |= EIO_FLAG_CANCELLED; 376 static pthread_once_t doinit = PTHREAD_ONCE_INIT;
321 377
322 eio_grp_cancel (req); 378 pthread_once (&doinit, etp_once_init);
323}
324 379
380 want_poll_cb = want_poll;
381 done_poll_cb = done_poll;
382}
383
325X_THREAD_PROC (eio_proc); 384X_THREAD_PROC (etp_proc);
326 385
327static void start_thread (void) 386static void etp_start_thread (void)
328{ 387{
329 worker *wrk = calloc (1, sizeof (worker)); 388 etp_worker *wrk = calloc (1, sizeof (etp_worker));
330 389
331 if (!wrk) 390 /*TODO*/
332 croak ("unable to allocate worker thread data"); 391 assert (("unable to allocate worker thread data", wrk));
333 392
334 X_LOCK (wrklock); 393 X_LOCK (wrklock);
335 394
336 if (thread_create (&wrk->tid, eio_proc, (void *)wrk)) 395 if (thread_create (&wrk->tid, etp_proc, (void *)wrk))
337 { 396 {
338 wrk->prev = &wrk_first; 397 wrk->prev = &wrk_first;
339 wrk->next = wrk_first.next; 398 wrk->next = wrk_first.next;
340 wrk_first.next->prev = wrk; 399 wrk_first.next->prev = wrk;
341 wrk_first.next = wrk; 400 wrk_first.next = wrk;
… …
345 free (wrk); 404 free (wrk);
346 405
347 X_UNLOCK (wrklock); 406 X_UNLOCK (wrklock);
348} 407}
349 408
350static void maybe_start_thread (void) 409static void etp_maybe_start_thread (void)
351{ 410{
352 if (eio_nthreads () >= wanted) 411 if (etp_nthreads () >= wanted)
353 return; 412 return;
354 413
355 /* todo: maybe use idle here, but might be less exact */ 414 /* todo: maybe use idle here, but might be less exact */
356 if (0 <= (int)eio_nthreads () + (int)eio_npending () - (int)eio_nreqs ()) 415 if (0 <= (int)etp_nthreads () + (int)etp_npending () - (int)etp_nreqs ())
357 return; 416 return;
358 417
359 start_thread (); 418 etp_start_thread ();
360} 419}
361 420
362void eio_submit (eio_req *req)
363{
364 ++nreqs;
365
366 X_LOCK (reqlock);
367 ++nready;
368 reqq_push (&req_queue, req);
369 X_COND_SIGNAL (reqwait);
370 X_UNLOCK (reqlock);
371
372 maybe_start_thread ();
373}
374
375static void end_thread (void) 421static void etp_end_thread (void)
376{ 422{
377 eio_req *req = calloc (1, sizeof (eio_req)); 423 eio_req *req = calloc (1, sizeof (eio_req));
378 424
379 req->type = EIO_QUIT; 425 req->type = -1;
380 req->pri = EIO_PRI_MAX + EIO_PRI_BIAS; 426 req->pri = ETP_PRI_MAX - ETP_PRI_MIN;
381 427
382 X_LOCK (reqlock); 428 X_LOCK (reqlock);
383 reqq_push (&req_queue, req); 429 reqq_push (&req_queue, req);
384 X_COND_SIGNAL (reqwait); 430 X_COND_SIGNAL (reqwait);
385 X_UNLOCK (reqlock); 431 X_UNLOCK (reqlock);
… …
387 X_LOCK (wrklock); 433 X_LOCK (wrklock);
388 --started; 434 --started;
389 X_UNLOCK (wrklock); 435 X_UNLOCK (wrklock);
390} 436}
391 437
392void eio_set_max_poll_time (double nseconds)
393{
394 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
395 max_poll_time = nseconds;
396 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
397}
398
399void eio_set_max_poll_reqs (unsigned int maxreqs)
400{
401 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
402 max_poll_reqs = maxreqs;
403 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
404}
405
406void eio_set_max_idle (unsigned int nthreads)
407{
408 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
409 max_idle = nthreads <= 0 ? 1 : nthreads;
410 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
411}
412
413void eio_set_min_parallel (unsigned int nthreads)
414{
415 if (wanted < nthreads)
416 wanted = nthreads;
417}
418
419void eio_set_max_parallel (unsigned int nthreads)
420{
421 if (wanted > nthreads)
422 wanted = nthreads;
423
424 while (started > wanted)
425 end_thread ();
426}
427
428int eio_poll (void) 438static int etp_poll (void)
429{ 439{
430 int maxreqs = max_poll_reqs; 440 unsigned int maxreqs;
441 unsigned int maxtime;
431 struct timeval tv_start, tv_now; 442 struct timeval tv_start, tv_now;
432 eio_req *req;
433 443
444 X_LOCK (reslock);
445 maxreqs = max_poll_reqs;
446 maxtime = max_poll_time;
447 X_UNLOCK (reslock);
448
434 if (max_poll_time) 449 if (maxtime)
435 gettimeofday (&tv_start, 0); 450 gettimeofday (&tv_start, 0);
436 451
437 for (;;) 452 for (;;)
438 { 453 {
454 ETP_REQ *req;
455
439 maybe_start_thread (); 456 etp_maybe_start_thread ();
440 457
441 X_LOCK (reslock); 458 X_LOCK (reslock);
442 req = reqq_shift (&res_queue); 459 req = reqq_shift (&res_queue);
443 460
444 if (req) 461 if (req)
… …
452 X_UNLOCK (reslock); 469 X_UNLOCK (reslock);
453 470
454 if (!req) 471 if (!req)
455 return 0; 472 return 0;
456 473
474 X_LOCK (reqlock);
457 --nreqs; 475 --nreqs;
476 X_UNLOCK (reqlock);
458 477
459 if (req->type == EIO_GROUP && req->size) 478 if (req->type == EIO_GROUP && req->size)
460 { 479 {
461 req->int1 = 1; /* mark request as delayed */ 480 req->int1 = 1; /* mark request as delayed */
462 continue; 481 continue;
463 } 482 }
464 else 483 else
465 { 484 {
466 int res = eio_finish (req); 485 int res = ETP_FINISH (req);
467 if (res) 486 if (res)
468 return res; 487 return res;
469 } 488 }
470 489
471 if (maxreqs && !--maxreqs) 490 if (maxreqs && !--maxreqs)
472 break; 491 break;
473 492
474 if (max_poll_time) 493 if (maxtime)
475 { 494 {
476 gettimeofday (&tv_now, 0); 495 gettimeofday (&tv_now, 0);
477 496
478 if (tvdiff (&tv_start, &tv_now) >= max_poll_time) 497 if (tvdiff (&tv_start, &tv_now) >= maxtime)
479 break; 498 break;
480 } 499 }
481 } 500 }
482 501
483 errno = EAGAIN; 502 errno = EAGAIN;
484 return -1; 503 return -1;
485} 504}
486 505
506static void etp_cancel (ETP_REQ *req)
507{
508 X_LOCK (wrklock);
509 req->flags |= EIO_FLAG_CANCELLED;
510 X_UNLOCK (wrklock);
511
512 eio_grp_cancel (req);
513}
514
515static void etp_submit (ETP_REQ *req)
516{
517 req->pri -= ETP_PRI_MIN;
518
519 if (req->pri < ETP_PRI_MIN - ETP_PRI_MIN) req->pri = ETP_PRI_MIN - ETP_PRI_MIN;
520 if (req->pri > ETP_PRI_MAX - ETP_PRI_MIN) req->pri = ETP_PRI_MAX - ETP_PRI_MIN;
521
522 X_LOCK (reqlock);
523 ++nreqs;
524 ++nready;
525 reqq_push (&req_queue, req);
526 X_COND_SIGNAL (reqwait);
527 X_UNLOCK (reqlock);
528
529 etp_maybe_start_thread ();
530}
531
532static void etp_set_max_poll_time (double nseconds)
533{
534 if (WORDACCESS_UNSAFE) X_LOCK (reslock);
535 max_poll_time = nseconds;
536 if (WORDACCESS_UNSAFE) X_UNLOCK (reslock);
537}
538
539static void etp_set_max_poll_reqs (unsigned int maxreqs)
540{
541 if (WORDACCESS_UNSAFE) X_LOCK (reslock);
542 max_poll_reqs = maxreqs;
543 if (WORDACCESS_UNSAFE) X_UNLOCK (reslock);
544}
545
546static void etp_set_max_idle (unsigned int nthreads)
547{
548 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
549 max_idle = nthreads <= 0 ? 1 : nthreads;
550 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
551}
552
553static void etp_set_min_parallel (unsigned int nthreads)
554{
555 if (wanted < nthreads)
556 wanted = nthreads;
557}
558
559static void etp_set_max_parallel (unsigned int nthreads)
560{
561 if (wanted > nthreads)
562 wanted = nthreads;
563
564 while (started > wanted)
565 etp_end_thread ();
566}
567
568/*****************************************************************************/
569
570static void grp_try_feed (eio_req *grp)
571{
572 while (grp->size < grp->int2 && !EIO_CANCELLED (grp))
573 {
574 int old_len = grp->size;
575
576 EIO_FEED (grp);
577
578 /* stop if no progress has been made */
579 if (old_len == grp->size)
580 {
581 grp->feed = 0;
582 break;
583 }
584 }
585}
586
587static int grp_dec (eio_req *grp)
588{
589 --grp->size;
590
591 /* call feeder, if applicable */
592 grp_try_feed (grp);
593
594 /* finish, if done */
595 if (!grp->size && grp->int1)
596 return eio_finish (grp);
597 else
598 return 0;
599}
600
601void eio_destroy (eio_req *req)
602{
603 if ((req)->flags & EIO_FLAG_PTR1_FREE) free (req->ptr1);
604 if ((req)->flags & EIO_FLAG_PTR2_FREE) free (req->ptr2);
605
606 EIO_DESTROY (req);
607}
608
609static int eio_finish (eio_req *req)
610{
611 int res = EIO_FINISH (req);
612
613 if (req->grp)
614 {
615 int res2;
616 eio_req *grp = req->grp;
617
618 /* unlink request */
619 if (req->grp_next) req->grp_next->grp_prev = req->grp_prev;
620 if (req->grp_prev) req->grp_prev->grp_next = req->grp_next;
621
622 if (grp->grp_first == req)
623 grp->grp_first = req->grp_next;
624
625 res2 = grp_dec (grp);
626
627 if (!res && res2)
628 res = res2;
629 }
630
631 eio_destroy (req);
632
633 return res;
634}
635
636void eio_grp_cancel (eio_req *grp)
637{
638 for (grp = grp->grp_first; grp; grp = grp->grp_next)
639 eio_cancel (grp);
640}
641
642void eio_cancel (eio_req *req)
643{
644 etp_cancel (req);
645}
646
647void eio_submit (eio_req *req)
648{
649 etp_submit (req);
650}
651
652unsigned int eio_nreqs (void)
653{
654 return etp_nreqs ();
655}
656
657unsigned int eio_nready (void)
658{
659 return etp_nready ();
660}
661
662unsigned int eio_npending (void)
663{
664 return etp_npending ();
665}
666
667unsigned int eio_nthreads (void)
668{
669 return etp_nthreads ();
670}
671
672void eio_set_max_poll_time (double nseconds)
673{
674 etp_set_max_poll_time (nseconds);
675}
676
677void eio_set_max_poll_reqs (unsigned int maxreqs)
678{
679 etp_set_max_poll_reqs (maxreqs);
680}
681
682void eio_set_max_idle (unsigned int nthreads)
683{
684 etp_set_max_idle (nthreads);
685}
686
687void eio_set_min_parallel (unsigned int nthreads)
688{
689 etp_set_min_parallel (nthreads);
690}
691
692void eio_set_max_parallel (unsigned int nthreads)
693{
694 etp_set_max_parallel (nthreads);
695}
696
697int eio_poll (void)
698{
699 return etp_poll ();
700}
701
487/*****************************************************************************/ 702/*****************************************************************************/
488/* work around various missing functions */ 703/* work around various missing functions */
489 704
490#if !HAVE_PREADWRITE 705#if !HAVE_PREADWRITE
491# define pread aio_pread 706# define pread eio__pread
492# define pwrite aio_pwrite 707# define pwrite eio__pwrite
493 708
494/* 709/*
495 * make our pread/pwrite safe against themselves, but not against 710 * make our pread/pwrite safe against themselves, but not against
496 * normal read/write by using a mutex. slows down execution a lot, 711 * normal read/write by using a mutex. slows down execution a lot,
497 * but that's your problem, not mine. 712 * but that's your problem, not mine.
498 */ 713 */
499static mutex_t preadwritelock = X_MUTEX_INIT; 714static mutex_t preadwritelock = X_MUTEX_INIT;
500 715
501static ssize_t pread (int fd, void *buf, size_t count, off_t offset) 716static ssize_t
717eio__pread (int fd, void *buf, size_t count, off_t offset)
502{ 718{
503 ssize_t res; 719 ssize_t res;
504 off_t ooffset; 720 off_t ooffset;
505 721
506 X_LOCK (preadwritelock); 722 X_LOCK (preadwritelock);
… …
511 X_UNLOCK (preadwritelock); 727 X_UNLOCK (preadwritelock);
512 728
513 return res; 729 return res;
514} 730}
515 731
516static ssize_t pwrite (int fd, void *buf, size_t count, off_t offset) 732static ssize_t
733eio__pwrite (int fd, void *buf, size_t count, off_t offset)
517{ 734{
518 ssize_t res; 735 ssize_t res;
519 off_t ooffset; 736 off_t ooffset;
520 737
521 X_LOCK (preadwritelock); 738 X_LOCK (preadwritelock);
… …
529} 746}
530#endif 747#endif
531 748
532#ifndef HAVE_FUTIMES 749#ifndef HAVE_FUTIMES
533 750
534# define utimes(path,times) aio_utimes (path, times) 751# define utimes(path,times) eio__utimes (path, times)
535# define futimes(fd,times) aio_futimes (fd, times) 752# define futimes(fd,times) eio__futimes (fd, times)
536 753
754static int
537static int aio_utimes (const char *filename, const struct timeval times[2]) 755eio__utimes (const char *filename, const struct timeval times[2])
538{ 756{
539 if (times) 757 if (times)
540 { 758 {
541 struct utimbuf buf; 759 struct utimbuf buf;
542 760
… …
547 } 765 }
548 else 766 else
549 return utime (filename, 0); 767 return utime (filename, 0);
550} 768}
551 769
552static int aio_futimes (int fd, const struct timeval tv[2]) 770static int eio__futimes (int fd, const struct timeval tv[2])
553{ 771{
554 errno = ENOSYS; 772 errno = ENOSYS;
555 return -1; 773 return -1;
556} 774}
557 775
… …
560#if !HAVE_FDATASYNC 778#if !HAVE_FDATASYNC
561# define fdatasync fsync 779# define fdatasync fsync
562#endif 780#endif
563 781
564#if !HAVE_READAHEAD 782#if !HAVE_READAHEAD
565# define readahead(fd,offset,count) aio_readahead (fd, offset, count, self) 783# define readahead(fd,offset,count) eio__readahead (fd, offset, count, self)
566 784
785static ssize_t
567static ssize_t aio_readahead (int fd, off_t offset, size_t count, worker *self) 786eio__readahead (int fd, off_t offset, size_t count, worker *self)
568{ 787{
569 size_t todo = count; 788 size_t todo = count;
570 dBUF; 789 dBUF;
571 790
572 while (todo > 0) 791 while (todo > 0)
573 { 792 {
574 size_t len = todo < EIO_BUFSIZE ? todo : EIO_BUFSIZE; 793 size_t len = todo < EIO_BUFSIZE ? todo : EIO_BUFSIZE;
575 794
576 pread (fd, aio_buf, len, offset); 795 pread (fd, eio_buf, len, offset);
577 offset += len; 796 offset += len;
578 todo -= len; 797 todo -= len;
579 } 798 }
580 799
581 errno = 0; 800 errno = 0;
… …
583} 802}
584 803
585#endif 804#endif
586 805
587#if !HAVE_READDIR_R 806#if !HAVE_READDIR_R
588# define readdir_r aio_readdir_r 807# define readdir_r eio__readdir_r
589 808
590static mutex_t readdirlock = X_MUTEX_INIT; 809static mutex_t readdirlock = X_MUTEX_INIT;
591 810
592static int readdir_r (DIR *dirp, X_DIRENT *ent, X_DIRENT **res) 811static int
812eio__readdir_r (DIR *dirp, EIO_STRUCT_DIRENT *ent, EIO_STRUCT_DIRENT **res)
593{ 813{
594 X_DIRENT *e; 814 EIO_STRUCT_DIRENT *e;
595 int errorno; 815 int errorno;
596 816
597 X_LOCK (readdirlock); 817 X_LOCK (readdirlock);
598 818
599 e = readdir (dirp); 819 e = readdir (dirp);
… …
613 return e ? 0 : -1; 833 return e ? 0 : -1;
614} 834}
615#endif 835#endif
616 836
617/* sendfile always needs emulation */ 837/* sendfile always needs emulation */
838static ssize_t
618static ssize_t sendfile_ (int ofd, int ifd, off_t offset, size_t count, worker *self) 839eio__sendfile (int ofd, int ifd, off_t offset, size_t count, etp_worker *self)
619{ 840{
620 ssize_t res; 841 ssize_t res;
621 842
622 if (!count) 843 if (!count)
623 return 0; 844 return 0;
… …
706 927
707 return res; 928 return res;
708} 929}
709 930
710/* read a full directory */ 931/* read a full directory */
932static void
711static void scandir_ (eio_req *req, worker *self) 933eio__scandir (eio_req *req, etp_worker *self)
712{ 934{
713 DIR *dirp; 935 DIR *dirp;
714 union 936 union
715 { 937 {
716 EIO_STRUCT_DIRENT d; 938 EIO_STRUCT_DIRENT d;
… …
768 req->result = res; 990 req->result = res;
769} 991}
770 992
771/*****************************************************************************/ 993/*****************************************************************************/
772 994
995#define ALLOC(len) \
996 if (!req->ptr2) \
997 { \
998 X_LOCK (wrklock); \
999 req->flags |= EIO_FLAG_PTR2_FREE; \
1000 X_UNLOCK (wrklock); \
1001 req->ptr2 = malloc (len); \
1002 if (!req->ptr2) \
1003 { \
1004 errno = ENOMEM; \
1005 req->result = -1; \
1006 break; \
1007 } \
1008 }
1009
773X_THREAD_PROC (eio_proc) 1010X_THREAD_PROC (etp_proc)
774{ 1011{
775 eio_req *req; 1012 ETP_REQ *req;
776 struct timespec ts; 1013 struct timespec ts;
777 worker *self = (worker *)thr_arg; 1014 etp_worker *self = (etp_worker *)thr_arg;
778 1015
779 /* try to distribute timeouts somewhat randomly */ 1016 /* try to distribute timeouts somewhat randomly */
780 ts.tv_nsec = ((unsigned long)self & 1023UL) * (1000000000UL / 1024UL); 1017 ts.tv_nsec = ((unsigned long)self & 1023UL) * (1000000000UL / 1024UL);
781 1018
782 for (;;) 1019 for (;;)
783 { 1020 {
784 ts.tv_sec = time (0) + IDLE_TIMEOUT;
785
786 X_LOCK (reqlock); 1021 X_LOCK (reqlock);
787 1022
788 for (;;) 1023 for (;;)
789 { 1024 {
790 self->req = req = reqq_shift (&req_queue); 1025 self->req = req = reqq_shift (&req_queue);
… …
792 if (req) 1027 if (req)
793 break; 1028 break;
794 1029
795 ++idle; 1030 ++idle;
796 1031
1032 ts.tv_sec = time (0) + IDLE_TIMEOUT;
797 if (X_COND_TIMEDWAIT (reqwait, reqlock, ts) == ETIMEDOUT) 1033 if (X_COND_TIMEDWAIT (reqwait, reqlock, ts) == ETIMEDOUT)
798 { 1034 {
799 if (idle > max_idle) 1035 if (idle > max_idle)
800 { 1036 {
801 --idle; 1037 --idle;
… …
806 goto quit; 1042 goto quit;
807 } 1043 }
808 1044
809 /* we are allowed to idle, so do so without any timeout */ 1045 /* we are allowed to idle, so do so without any timeout */
810 X_COND_WAIT (reqwait, reqlock); 1046 X_COND_WAIT (reqwait, reqlock);
811 ts.tv_sec = time (0) + IDLE_TIMEOUT;
812 } 1047 }
813 1048
814 --idle; 1049 --idle;
815 } 1050 }
816 1051
817 --nready; 1052 --nready;
818 1053
819 X_UNLOCK (reqlock); 1054 X_UNLOCK (reqlock);
820 1055
821 errno = 0; /* strictly unnecessary */ 1056 if (req->type < 0)
1057 goto quit;
822 1058
823 if (!EIO_CANCELLED (req)) 1059 if (!EIO_CANCELLED (req))
824 switch (req->type) 1060 ETP_EXECUTE (self, req);
825 {
826 case EIO_READ: req->result = req->offs >= 0
827 ? pread (req->int1, req->ptr2, req->size, req->offs)
828 : read (req->int1, req->ptr2, req->size); break;
829 case EIO_WRITE: req->result = req->offs >= 0
830 ? pwrite (req->int1, req->ptr2, req->size, req->offs)
831 : write (req->int1, req->ptr2, req->size); break;
832
833 case EIO_READAHEAD: req->result = readahead (req->int1, req->offs, req->size); break;
834 case EIO_SENDFILE: req->result = sendfile_ (req->int1, req->int2, req->offs, req->size, self); break;
835
836 case EIO_STAT: req->result = stat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
837 case EIO_LSTAT: req->result = lstat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
838 case EIO_FSTAT: req->result = fstat (req->int1, (EIO_STRUCT_STAT *)req->ptr2); break;
839
840 case EIO_CHOWN: req->result = chown (req->ptr1, req->int2, req->int3); break;
841 case EIO_FCHOWN: req->result = fchown (req->int1, req->int2, req->int3); break;
842 case EIO_CHMOD: req->result = chmod (req->ptr1, (mode_t)req->int2); break;
843 case EIO_FCHMOD: req->result = fchmod (req->int1, (mode_t)req->int2); break;
844 case EIO_TRUNCATE: req->result = truncate (req->ptr1, req->offs); break;
845 case EIO_FTRUNCATE: req->result = ftruncate (req->int1, req->offs); break;
846
847 case EIO_OPEN: req->result = open (req->ptr1, req->int1, (mode_t)req->int2); break;
848 case EIO_CLOSE: req->result = close (req->int1); break;
849 case EIO_DUP2: req->result = dup2 (req->int1, req->int2); break;
850 case EIO_UNLINK: req->result = unlink (req->ptr1); break;
851 case EIO_RMDIR: req->result = rmdir (req->ptr1); break;
852 case EIO_MKDIR: req->result = mkdir (req->ptr1, (mode_t)req->int2); break;
853 case EIO_RENAME: req->result = rename (req->ptr1, req->ptr2); break;
854 case EIO_LINK: req->result = link (req->ptr1, req->ptr2); break;
855 case EIO_SYMLINK: req->result = symlink (req->ptr1, req->ptr2); break;
856 case EIO_MKNOD: req->result = mknod (req->ptr1, (mode_t)req->int2, (dev_t)req->offs); break;
857 case EIO_READLINK: req->result = readlink (req->ptr1, req->ptr2, NAME_MAX); break;
858
859 case EIO_SYNC: req->result = 0; sync (); break;
860 case EIO_FSYNC: req->result = fsync (req->int1); break;
861 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break;
862
863 case EIO_READDIR: scandir_ (req, self); break;
864
865 case EIO_BUSY:
866#ifdef _WIN32
867 Sleep (req->nv1 * 1000.);
868#else
869 {
870 struct timeval tv;
871
872 tv.tv_sec = req->nv1;
873 tv.tv_usec = (req->nv1 - tv.tv_sec) * 1000000.;
874
875 req->result = select (0, 0, 0, 0, &tv);
876 }
877#endif
878 break;
879
880 case EIO_UTIME:
881 case EIO_FUTIME:
882 {
883 struct timeval tv[2];
884 struct timeval *times;
885
886 if (req->nv1 != -1. || req->nv2 != -1.)
887 {
888 tv[0].tv_sec = req->nv1;
889 tv[0].tv_usec = (req->nv1 - tv[0].tv_sec) * 1000000.;
890 tv[1].tv_sec = req->nv2;
891 tv[1].tv_usec = (req->nv2 - tv[1].tv_sec) * 1000000.;
892
893 times = tv;
894 }
895 else
896 times = 0;
897
898
899 req->result = req->type == EIO_FUTIME
900 ? futimes (req->int1, times)
901 : utimes (req->ptr1, times);
902 }
903
904 case EIO_GROUP:
905 case EIO_NOP:
906 break;
907
908 case EIO_QUIT:
909 goto quit;
910
911 default:
912 req->result = -1;
913 break;
914 }
915
916 req->errorno = errno;
917 1061
918 X_LOCK (reslock); 1062 X_LOCK (reslock);
919 1063
920 ++npending; 1064 ++npending;
921 1065
922 if (!reqq_push (&res_queue, req) && want_poll_cb) 1066 if (!reqq_push (&res_queue, req) && want_poll_cb)
923 want_poll_cb (); 1067 want_poll_cb ();
924 1068
925 self->req = 0; 1069 self->req = 0;
926 worker_clear (self); 1070 etp_worker_clear (self);
927 1071
928 X_UNLOCK (reslock); 1072 X_UNLOCK (reslock);
929 } 1073 }
930 1074
931quit: 1075quit:
932 X_LOCK (wrklock); 1076 X_LOCK (wrklock);
933 worker_free (self); 1077 etp_worker_free (self);
934 X_UNLOCK (wrklock); 1078 X_UNLOCK (wrklock);
935 1079
936 return 0; 1080 return 0;
937} 1081}
938 1082
939/*****************************************************************************/ 1083/*****************************************************************************/
940 1084
941static void eio_atfork_prepare (void) 1085int eio_init (void (*want_poll)(void), void (*done_poll)(void))
942{ 1086{
943 X_LOCK (wrklock); 1087 etp_init (want_poll, done_poll);
944 X_LOCK (reqlock);
945 X_LOCK (reslock);
946#if !HAVE_PREADWRITE
947 X_LOCK (preadwritelock);
948#endif
949#if !HAVE_READDIR_R
950 X_LOCK (readdirlock);
951#endif
952} 1088}
953 1089
954static void eio_atfork_parent (void) 1090static void eio_api_destroy (eio_req *req)
955{ 1091{
956#if !HAVE_READDIR_R 1092 free (req);
957 X_UNLOCK (readdirlock);
958#endif
959#if !HAVE_PREADWRITE
960 X_UNLOCK (preadwritelock);
961#endif
962 X_UNLOCK (reslock);
963 X_UNLOCK (reqlock);
964 X_UNLOCK (wrklock);
965} 1093}
966 1094
967static void eio_atfork_child (void) 1095#define REQ(rtype) \
968{ 1096 eio_req *req; \
969 eio_req *prv; 1097 \
1098 req = (eio_req *)calloc (1, sizeof *req); \
1099 if (!req) \
1100 return 0; \
1101 \
1102 req->type = rtype; \
1103 req->pri = pri; \
1104 req->finish = cb; \
1105 req->data = data; \
1106 req->destroy = eio_api_destroy;
970 1107
971 while (prv = reqq_shift (&req_queue)) 1108#define SEND eio_submit (req); return req
972 eio_destroy (prv);
973 1109
974 while (prv = reqq_shift (&res_queue)) 1110#define PATH \
975 eio_destroy (prv); 1111 req->flags |= EIO_FLAG_PTR1_FREE; \
1112 req->ptr1 = strdup (path); \
1113 if (!req->ptr1) \
1114 { \
1115 eio_api_destroy (req); \
1116 return 0; \
1117 }
976 1118
977 while (wrk_first.next != &wrk_first) 1119static void eio_execute (etp_worker *self, eio_req *req)
1120{
1121 errno = 0;
1122
1123 switch (req->type)
978 { 1124 {
979 worker *wrk = wrk_first.next; 1125 case EIO_READ: ALLOC (req->size);
1126 req->result = req->offs >= 0
1127 ? pread (req->int1, req->ptr2, req->size, req->offs)
1128 : read (req->int1, req->ptr2, req->size); break;
1129 case EIO_WRITE: req->result = req->offs >= 0
1130 ? pwrite (req->int1, req->ptr2, req->size, req->offs)
1131 : write (req->int1, req->ptr2, req->size); break;
980 1132
981 if (wrk->req) 1133 case EIO_READAHEAD: req->result = readahead (req->int1, req->offs, req->size); break;
982 eio_destroy (wrk->req); 1134 case EIO_SENDFILE: req->result = eio__sendfile (req->int1, req->int2, req->offs, req->size, self); break;
983 1135
984 worker_clear (wrk); 1136 case EIO_STAT: ALLOC (sizeof (EIO_STRUCT_STAT));
985 worker_free (wrk); 1137 req->result = stat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
986 } 1138 case EIO_LSTAT: ALLOC (sizeof (EIO_STRUCT_STAT));
1139 req->result = lstat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
1140 case EIO_FSTAT: ALLOC (sizeof (EIO_STRUCT_STAT));
1141 req->result = fstat (req->int1, (EIO_STRUCT_STAT *)req->ptr2); break;
987 1142
988 started = 0; 1143 case EIO_CHOWN: req->result = chown (req->ptr1, req->int2, req->int3); break;
989 idle = 0; 1144 case EIO_FCHOWN: req->result = fchown (req->int1, req->int2, req->int3); break;
990 nreqs = 0; 1145 case EIO_CHMOD: req->result = chmod (req->ptr1, (mode_t)req->int2); break;
991 nready = 0; 1146 case EIO_FCHMOD: req->result = fchmod (req->int1, (mode_t)req->int2); break;
992 npending = 0; 1147 case EIO_TRUNCATE: req->result = truncate (req->ptr1, req->offs); break;
1148 case EIO_FTRUNCATE: req->result = ftruncate (req->int1, req->offs); break;
993 1149
994 eio_atfork_parent (); 1150 case EIO_OPEN: req->result = open (req->ptr1, req->int1, (mode_t)req->int2); break;
995} 1151 case EIO_CLOSE: req->result = close (req->int1); break;
1152 case EIO_DUP2: req->result = dup2 (req->int1, req->int2); break;
1153 case EIO_UNLINK: req->result = unlink (req->ptr1); break;
1154 case EIO_RMDIR: req->result = rmdir (req->ptr1); break;
1155 case EIO_MKDIR: req->result = mkdir (req->ptr1, (mode_t)req->int2); break;
1156 case EIO_RENAME: req->result = rename (req->ptr1, req->ptr2); break;
1157 case EIO_LINK: req->result = link (req->ptr1, req->ptr2); break;
1158 case EIO_SYMLINK: req->result = symlink (req->ptr1, req->ptr2); break;
1159 case EIO_MKNOD: req->result = mknod (req->ptr1, (mode_t)req->int2, (dev_t)req->offs); break;
996 1160
997int eio_init (void (*want_poll)(void), void (*done_poll)(void)) 1161 case EIO_READLINK: ALLOC (NAME_MAX);
998{ 1162 req->result = readlink (req->ptr1, req->ptr2, NAME_MAX); break;
999 want_poll_cb = want_poll;
1000 done_poll_cb = done_poll;
1001 1163
1164 case EIO_SYNC: req->result = 0; sync (); break;
1165 case EIO_FSYNC: req->result = fsync (req->int1); break;
1166 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break;
1167
1168 case EIO_READDIR: eio__scandir (req, self); break;
1169
1170 case EIO_BUSY:
1002#ifdef _WIN32 1171#ifdef _WIN32
1003 X_MUTEX_CHECK (wrklock); 1172 Sleep (req->nv1 * 1000.);
1004 X_MUTEX_CHECK (reslock); 1173#else
1005 X_MUTEX_CHECK (reqlock);
1006 X_MUTEX_CHECK (reqwait);
1007 X_MUTEX_CHECK (preadwritelock);
1008 X_MUTEX_CHECK (readdirlock);
1009
1010 X_COND_CHECK (reqwait);
1011#endif
1012
1013 X_THREAD_ATFORK (eio_atfork_prepare, eio_atfork_parent, eio_atfork_child);
1014}
1015
1016#if 0
1017
1018eio_req *eio_fsync (int fd, eio_cb cb);
1019eio_req *eio_fdatasync (int fd, eio_cb cb);
1020eio_req *eio_dupclose (int fd, eio_cb cb);
1021eio_req *eio_readahead (int fd, off_t offset, size_t length, eio_cb cb);
1022eio_req *eio_read (int fd, off_t offs, size_t length, char *data, eio_cb cb);
1023eio_req *eio_write (int fd, off_t offs, size_t length, char *data, eio_cb cb);
1024eio_req *eio_fstat (int fd, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */
1025eio_req *eio_futime (int fd, double atime, double mtime, eio_cb cb);
1026eio_req *eio_ftruncate (int fd, off_t offset, eio_cb cb);
1027eio_req *eio_fchmod (int fd, mode_t mode, eio_cb cb);
1028eio_req *eio_fchown (int fd, uid_t uid, gid_t gid, eio_cb cb);
1029eio_req *eio_dup2 (int fd, int fd2, eio_cb cb);
1030eio_req *eio_sendfile (int out_fd, int in_fd, off_t in_offset, size_t length, eio_cb cb);
1031eio_req *eio_open (const char *path, int flags, mode_t mode, eio_cb cb);
1032eio_req *eio_readlink (const char *path, eio_cb cb); /* result=ptr2 allocated dynamically */
1033eio_req *eio_stat (const char *path, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */
1034eio_req *eio_lstat (const char *path, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */
1035eio_req *eio_utime (const char *path, double atime, double mtime, eio_cb cb);
1036eio_req *eio_truncate (const char *path, off_t offset, eio_cb cb);
1037eio_req *eio_chmod (const char *path, mode_t mode, eio_cb cb);
1038eio_req *eio_mkdir (const char *path, mode_t mode, eio_cb cb);
1039eio_req *eio_chown (const char *path, uid_t uid, gid_t gid, eio_cb cb);
1040eio_req *eio_unlink (const char *path, eio_cb cb);
1041eio_req *eio_rmdir (const char *path, eio_cb cb);
1042eio_req *eio_readdir (const char *path, eio_cb cb); /* result=ptr2 allocated dynamically */
1043eio_req *eio_mknod (const char *path, mode_t mode, dev_t dev, eio_cb cb);
1044eio_req *eio_busy (double delay, eio_cb cb); /* ties a thread for this long, simulating busyness */
1045eio_req *eio_nop (eio_cb cb); /* does nothing except go through the whole process */
1046void
1047aio_open (SV8 *pathname, int flags, int mode, SV *callback=&PL_sv_undef)
1048 PROTOTYPE: $$$;$
1049 PPCODE:
1050{
1051 dREQ;
1052
1053 req->type = EIO_OPEN;
1054 req->sv1 = newSVsv (pathname);
1055 req->ptr1 = SvPVbyte_nolen (req->sv1);
1056 req->int1 = flags;
1057 req->int2 = mode;
1058
1059 EIO_SEND;
1060}
1061
1062void
1063aio_fsync (SV *fh, SV *callback=&PL_sv_undef)
1064 PROTOTYPE: $;$
1065 ALIAS:
1066 aio_fsync = EIO_FSYNC
1067 aio_fdatasync = EIO_FDATASYNC
1068 PPCODE:
1069{
1070 dREQ;
1071
1072 req->type = ix;
1073 req->sv1 = newSVsv (fh);
1074 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh)));
1075
1076 EIO_SEND (req);
1077}
1078
1079void
1080aio_close (SV *fh, SV *callback=&PL_sv_undef)
1081 PROTOTYPE: $;$
1082 PPCODE:
1083{
1084 dREQ;
1085
1086 req->type = EIO_CLOSE;
1087 req->sv1 = newSVsv (fh);
1088 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh)));
1089
1090 EIO_SEND (req);
1091}
1092
1093void
1094aio_read (SV *fh, SV *offset, SV *length, SV8 *data, IV dataoffset, SV *callback=&PL_sv_undef)
1095 ALIAS:
1096 aio_read = EIO_READ
1097 aio_write = EIO_WRITE
1098 PROTOTYPE: $$$$$;$
1099 PPCODE:
1100{
1101 STRLEN svlen;
1102 char *svptr = SvPVbyte (data, svlen);
1103 UV len = SvUV (length);
1104
1105 SvUPGRADE (data, SVt_PV);
1106 SvPOK_on (data);
1107
1108 if (dataoffset < 0)
1109 dataoffset += svlen;
1110
1111 if (dataoffset < 0 || dataoffset > svlen)
1112 croak ("dataoffset outside of data scalar");
1113
1114 if (ix == EIO_WRITE)
1115 {
1116 /* write: check length and adjust. */
1117 if (!SvOK (length) || len + dataoffset > svlen)
1118 len = svlen - dataoffset;
1119 }
1120 else
1121 {
1122 /* read: grow scalar as necessary */
1123 svptr = SvGROW (data, len + dataoffset + 1);
1124 }
1125
1126 if (len < 0)
1127 croak ("length must not be negative");
1128
1129 { 1174 {
1130 dREQ; 1175 struct timeval tv;
1131 1176
1132 req->type = ix; 1177 tv.tv_sec = req->nv1;
1133 req->sv1 = newSVsv (fh); 1178 tv.tv_usec = (req->nv1 - tv.tv_sec) * 1000000.;
1134 req->int1 = PerlIO_fileno (ix == EIO_READ ? IoIFP (sv_2io (fh))
1135 : IoOFP (sv_2io (fh)));
1136 req->offs = SvOK (offset) ? SvVAL64 (offset) : -1;
1137 req->size = len;
1138 req->sv2 = SvREFCNT_inc (data);
1139 req->ptr2 = (char *)svptr + dataoffset;
1140 req->stroffset = dataoffset;
1141 1179
1142 if (!SvREADONLY (data)) 1180 req->result = select (0, 0, 0, 0, &tv);
1181 }
1182#endif
1183 break;
1184
1185 case EIO_UTIME:
1186 case EIO_FUTIME:
1187 {
1188 struct timeval tv[2];
1189 struct timeval *times;
1190
1191 if (req->nv1 != -1. || req->nv2 != -1.)
1143 { 1192 {
1144 SvREADONLY_on (data); 1193 tv[0].tv_sec = req->nv1;
1145 req->flags |= FLAG_SV2_RO_OFF; 1194 tv[0].tv_usec = (req->nv1 - tv[0].tv_sec) * 1000000.;
1195 tv[1].tv_sec = req->nv2;
1196 tv[1].tv_usec = (req->nv2 - tv[1].tv_sec) * 1000000.;
1197
1198 times = tv;
1146 } 1199 }
1200 else
1201 times = 0;
1147 1202
1148 EIO_SEND; 1203
1204 req->result = req->type == EIO_FUTIME
1205 ? futimes (req->int1, times)
1206 : utimes (req->ptr1, times);
1149 } 1207 }
1150}
1151 1208
1152void 1209 case EIO_GROUP:
1153aio_readlink (SV8 *path, SV *callback=&PL_sv_undef) 1210 case EIO_NOP:
1154 PROTOTYPE: $$;$ 1211 req->result = 0;
1155 PPCODE: 1212 break;
1156{
1157 SV *data;
1158 dREQ;
1159 1213
1160 data = newSV (NAME_MAX); 1214 case EIO_CUSTOM:
1161 SvPOK_on (data); 1215 req->feed (req);
1216 break;
1162 1217
1163 req->type = EIO_READLINK; 1218 default:
1164 req->sv1 = newSVsv (path); 1219 req->result = -1;
1165 req->ptr1 = SvPVbyte_nolen (req->sv1); 1220 break;
1166 req->sv2 = data; 1221 }
1167 req->ptr2 = SvPVbyte_nolen (data);
1168 1222
1169 EIO_SEND; 1223 req->errorno = errno;
1170} 1224}
1171 1225
1172void 1226#ifndef EIO_NO_WRAPPERS
1173aio_sendfile (SV *out_fh, SV *in_fh, SV *in_offset, UV length, SV *callback=&PL_sv_undef)
1174 PROTOTYPE: $$$$;$
1175 PPCODE:
1176{
1177 dREQ;
1178 1227
1179 req->type = EIO_SENDFILE; 1228eio_req *eio_nop (int pri, eio_cb cb, void *data)
1180 req->sv1 = newSVsv (out_fh);
1181 req->int1 = PerlIO_fileno (IoIFP (sv_2io (out_fh)));
1182 req->sv2 = newSVsv (in_fh);
1183 req->int2 = PerlIO_fileno (IoIFP (sv_2io (in_fh)));
1184 req->offs = SvVAL64 (in_offset);
1185 req->size = length;
1186
1187 EIO_SEND;
1188}
1189
1190void
1191aio_readahead (SV *fh, SV *offset, IV length, SV *callback=&PL_sv_undef)
1192 PROTOTYPE: $$$;$
1193 PPCODE:
1194{ 1229{
1195 dREQ; 1230 REQ (EIO_NOP); SEND;
1196
1197 req->type = EIO_READAHEAD;
1198 req->sv1 = newSVsv (fh);
1199 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh)));
1200 req->offs = SvVAL64 (offset);
1201 req->size = length;
1202
1203 EIO_SEND;
1204} 1231}
1205 1232
1206void 1233eio_req *eio_busy (double delay, int pri, eio_cb cb, void *data)
1207aio_stat (SV8 *fh_or_path, SV *callback=&PL_sv_undef)
1208 ALIAS:
1209 aio_stat = EIO_STAT
1210 aio_lstat = EIO_LSTAT
1211 PPCODE:
1212{ 1234{
1213 dREQ; 1235 REQ (EIO_BUSY); req->nv1 = delay; SEND;
1236}
1214 1237
1215 req->ptr2 = malloc (sizeof (EIO_STRUCT_STAT)); 1238eio_req *eio_sync (int pri, eio_cb cb, void *data)
1216 if (!req->ptr2) 1239{
1217 { 1240 REQ (EIO_SYNC); SEND;
1218 req_destroy (req); 1241}
1219 croak ("out of memory during aio_stat statdata allocation");
1220 }
1221 1242
1243eio_req *eio_fsync (int fd, int pri, eio_cb cb, void *data)
1244{
1245 REQ (EIO_FSYNC); req->int1 = fd; SEND;
1246}
1247
1248eio_req *eio_fdatasync (int fd, int pri, eio_cb cb, void *data)
1249{
1250 REQ (EIO_FDATASYNC); req->int1 = fd; SEND;
1251}
1252
1253eio_req *eio_close (int fd, int pri, eio_cb cb, void *data)
1254{
1255 REQ (EIO_CLOSE); req->int1 = fd; SEND;
1256}
1257
1258eio_req *eio_readahead (int fd, off_t offset, size_t length, int pri, eio_cb cb, void *data)
1259{
1260 REQ (EIO_READAHEAD); req->int1 = fd; req->offs = offset; req->size = length; SEND;
1261}
1262
1263eio_req *eio_read (int fd, void *buf, size_t length, off_t offset, int pri, eio_cb cb, void *data)
1264{
1265 REQ (EIO_READ); req->int1 = fd; req->offs = offset; req->size = length; req->ptr2 = buf; SEND;
1266}
1267
1268eio_req *eio_write (int fd, void *buf, size_t length, off_t offset, int pri, eio_cb cb, void *data)
1269{
1270 REQ (EIO_WRITE); req->int1 = fd; req->offs = offset; req->size = length; req->ptr2 = buf; SEND;
1271}
1272
1273eio_req *eio_fstat (int fd, int pri, eio_cb cb, void *data)
1274{
1275 REQ (EIO_FSTAT); req->int1 = fd; SEND;
1276}
1277
1278eio_req *eio_futime (int fd, double atime, double mtime, int pri, eio_cb cb, void *data)
1279{
1280 REQ (EIO_FUTIME); req->int1 = fd; req->nv1 = atime; req->nv2 = mtime; SEND;
1281}
1282
1283eio_req *eio_ftruncate (int fd, off_t offset, int pri, eio_cb cb, void *data)
1284{
1285 REQ (EIO_FTRUNCATE); req->int1 = fd; req->offs = offset; SEND;
1286}
1287
1288eio_req *eio_fchmod (int fd, mode_t mode, int pri, eio_cb cb, void *data)
1289{
1290 REQ (EIO_FCHMOD); req->int1 = fd; req->int2 = (long)mode; SEND;
1291}
1292
1293eio_req *eio_fchown (int fd, uid_t uid, gid_t gid, int pri, eio_cb cb, void *data)
1294{
1295 REQ (EIO_FCHOWN); req->int1 = fd; req->int2 = (long)uid; req->int3 = (long)gid; SEND;
1296}
1297
1298eio_req *eio_dup2 (int fd, int fd2, int pri, eio_cb cb, void *data)
1299{
1300 REQ (EIO_DUP2); req->int1 = fd; req->int2 = fd2; SEND;
1301}
1302
1303eio_req *eio_sendfile (int out_fd, int in_fd, off_t in_offset, size_t length, int pri, eio_cb cb, void *data)
1304{
1305 REQ (EIO_SENDFILE); req->int1 = out_fd; req->int2 = in_fd; req->offs = in_offset; req->size = length; SEND;
1306}
1307
1308eio_req *eio_open (const char *path, int flags, mode_t mode, int pri, eio_cb cb, void *data)
1309{
1310 REQ (EIO_OPEN); PATH; req->int1 = flags; req->int2 = (long)mode; SEND;
1311}
1312
1313eio_req *eio_utime (const char *path, double atime, double mtime, int pri, eio_cb cb, void *data)
1314{
1315 REQ (EIO_UTIME); PATH; req->nv1 = atime; req->nv2 = mtime; SEND;
1316}
1317
1318eio_req *eio_truncate (const char *path, off_t offset, int pri, eio_cb cb, void *data)
1319{
1320 REQ (EIO_TRUNCATE); PATH; req->offs = offset; SEND;
1321}
1322
1323eio_req *eio_chown (const char *path, uid_t uid, gid_t gid, int pri, eio_cb cb, void *data)
1324{
1325 REQ (EIO_CHOWN); PATH; req->int2 = (long)uid; req->int3 = (long)gid; SEND;
1326}
1327
1328eio_req *eio_chmod (const char *path, mode_t mode, int pri, eio_cb cb, void *data)
1329{
1330 REQ (EIO_CHMOD); PATH; req->int2 = (long)mode; SEND;
1331}
1332
1333eio_req *eio_mkdir (const char *path, mode_t mode, int pri, eio_cb cb, void *data)
1334{
1335 REQ (EIO_MKDIR); PATH; req->int2 = (long)mode; SEND;
1336}
1337
1338static eio_req *
1339eio__1path (int type, const char *path, int pri, eio_cb cb, void *data)
1340{
1341 REQ (type); PATH; SEND;
1342}
1343
1344eio_req *eio_readlink (const char *path, int pri, eio_cb cb, void *data)
1345{
1346 return eio__1path (EIO_READLINK, path, pri, cb, data);
1347}
1348
1349eio_req *eio_stat (const char *path, int pri, eio_cb cb, void *data)
1350{
1351 return eio__1path (EIO_STAT, path, pri, cb, data);
1352}
1353
1354eio_req *eio_lstat (const char *path, int pri, eio_cb cb, void *data)
1355{
1356 return eio__1path (EIO_LSTAT, path, pri, cb, data);
1357}
1358
1359eio_req *eio_unlink (const char *path, int pri, eio_cb cb, void *data)
1360{
1361 return eio__1path (EIO_UNLINK, path, pri, cb, data);
1362}
1363
1364eio_req *eio_rmdir (const char *path, int pri, eio_cb cb, void *data)
1365{
1366 return eio__1path (EIO_RMDIR, path, pri, cb, data);
1367}
1368
1369eio_req *eio_readdir (const char *path, int pri, eio_cb cb, void *data)
1370{
1371 return eio__1path (EIO_READDIR, path, pri, cb, data);
1372}
1373
1374eio_req *eio_mknod (const char *path, mode_t mode, dev_t dev, int pri, eio_cb cb, void *data)
1375{
1376 REQ (EIO_MKNOD); PATH; req->int2 = (long)mode; req->int2 = (long)dev; SEND;
1377}
1378
1379static eio_req *
1380eio__2path (int type, const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1381{
1382 REQ (type); PATH;
1383
1222 req->flags |= FLAG_PTR2_FREE; 1384 req->flags |= EIO_FLAG_PTR2_FREE;
1223 req->sv1 = newSVsv (fh_or_path); 1385 req->ptr2 = strdup (new_path);
1386 if (!req->ptr2)
1387 {
1388 eio_api_destroy (req);
1389 return 0;
1390 }
1224 1391
1225 if (SvPOK (fh_or_path)) 1392 SEND;
1226 {
1227 req->type = ix;
1228 req->ptr1 = SvPVbyte_nolen (req->sv1);
1229 }
1230 else
1231 {
1232 req->type = EIO_FSTAT;
1233 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1234 }
1235
1236 EIO_SEND;
1237} 1393}
1238 1394
1239void 1395eio_req *eio_link (const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1240aio_utime (SV8 *fh_or_path, SV *atime, SV *mtime, SV *callback=&PL_sv_undef)
1241 PPCODE:
1242{ 1396{
1243 dREQ; 1397 return eio__2path (EIO_LINK, path, new_path, pri, cb, data);
1244
1245 req->nv1 = SvOK (atime) ? SvNV (atime) : -1.;
1246 req->nv2 = SvOK (mtime) ? SvNV (mtime) : -1.;
1247 req->sv1 = newSVsv (fh_or_path);
1248
1249 if (SvPOK (fh_or_path))
1250 {
1251 req->type = EIO_UTIME;
1252 req->ptr1 = SvPVbyte_nolen (req->sv1);
1253 }
1254 else
1255 {
1256 req->type = EIO_FUTIME;
1257 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1258 }
1259
1260 EIO_SEND;
1261} 1398}
1262 1399
1263void 1400eio_req *eio_symlink (const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1264aio_truncate (SV8 *fh_or_path, SV *offset, SV *callback=&PL_sv_undef)
1265 PPCODE:
1266{ 1401{
1267 dREQ; 1402 return eio__2path (EIO_SYMLINK, path, new_path, pri, cb, data);
1268
1269 req->sv1 = newSVsv (fh_or_path);
1270 req->offs = SvOK (offset) ? SvVAL64 (offset) : -1;
1271
1272 if (SvPOK (fh_or_path))
1273 {
1274 req->type = EIO_TRUNCATE;
1275 req->ptr1 = SvPVbyte_nolen (req->sv1);
1276 }
1277 else
1278 {
1279 req->type = EIO_FTRUNCATE;
1280 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1281 }
1282
1283 EIO_SEND;
1284} 1403}
1285 1404
1286void 1405eio_req *eio_rename (const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1287aio_chmod (SV8 *fh_or_path, int mode, SV *callback=&PL_sv_undef)
1288 ALIAS:
1289 aio_chmod = EIO_CHMOD
1290 aio_fchmod = EIO_FCHMOD
1291 aio_mkdir = EIO_MKDIR
1292 PPCODE:
1293{ 1406{
1294 dREQ; 1407 return eio__2path (EIO_RENAME, path, new_path, pri, cb, data);
1295
1296 req->type = type;
1297 req->int2 = mode;
1298 req->sv1 = newSVsv (fh_or_path);
1299
1300 if (ix == EIO_FCHMOD)
1301 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1302 else
1303 req->ptr1 = SvPVbyte_nolen (req->sv1);
1304
1305 EIO_SEND;
1306} 1408}
1307 1409
1308void 1410eio_req *eio_custom (eio_cb execute, int pri, eio_cb cb, void *data)
1309aio_chown (SV8 *fh_or_path, SV *uid, SV *gid, SV *callback=&PL_sv_undef)
1310 PPCODE:
1311{ 1411{
1312 dREQ; 1412 REQ (EIO_CUSTOM); req->feed = execute; SEND;
1313
1314 req->int2 = SvOK (uid) ? SvIV (uid) : -1;
1315 req->int3 = SvOK (gid) ? SvIV (gid) : -1;
1316 req->sv1 = newSVsv (fh_or_path);
1317
1318 if (SvPOK (fh_or_path))
1319 {
1320 req->type = EIO_CHOWN;
1321 req->ptr1 = SvPVbyte_nolen (req->sv1);
1322 }
1323 else
1324 {
1325 req->type = EIO_FCHOWN;
1326 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1327 }
1328
1329 EIO_SEND;
1330} 1413}
1331 1414
1332void
1333aio_unlink (SV8 *pathname, SV *callback=&PL_sv_undef)
1334 ALIAS:
1335 aio_unlink = EIO_UNLINK
1336 aio_rmdir = EIO_RMDIR
1337 aio_readdir = EIO_READDIR
1338 PPCODE:
1339{
1340 dREQ;
1341
1342 req->type = ix;
1343 req->sv1 = newSVsv (pathname);
1344 req->ptr1 = SvPVbyte_nolen (req->sv1);
1345
1346 EIO_SEND;
1347}
1348
1349void
1350aio_link (SV8 *oldpath, SV8 *newpath, SV *callback=&PL_sv_undef)
1351 ALIAS:
1352 aio_link = EIO_LINK
1353 aio_symlink = EIO_SYMLINK
1354 aio_rename = EIO_RENAME
1355 PPCODE:
1356{
1357 dREQ;
1358
1359 req->type = ix;
1360 req->sv1 = newSVsv (oldpath);
1361 req->ptr1 = SvPVbyte_nolen (req->sv1);
1362 req->sv2 = newSVsv (newpath);
1363 req->ptr2 = SvPVbyte_nolen (req->sv2);
1364
1365 EIO_SEND;
1366}
1367
1368void
1369aio_mknod (SV8 *pathname, int mode, UV dev, SV *callback=&PL_sv_undef)
1370 PPCODE:
1371{
1372 dREQ;
1373
1374 req->type = EIO_MKNOD;
1375 req->sv1 = newSVsv (pathname);
1376 req->ptr1 = SvPVbyte_nolen (req->sv1);
1377 req->int2 = (mode_t)mode;
1378 req->offs = dev;
1379
1380 EIO_SEND;
1381}
1382
1383void
1384aio_busy (double delay, SV *callback=&PL_sv_undef)
1385 PPCODE:
1386{
1387 dREQ;
1388
1389 req->type = EIO_BUSY;
1390 req->nv1 = delay < 0. ? 0. : delay;
1391
1392 EIO_SEND;
1393}
1394
1395void
1396aio_group (SV *callback=&PL_sv_undef)
1397 PROTOTYPE: ;$
1398 PPCODE:
1399{
1400 dREQ;
1401
1402 req->type = EIO_GROUP;
1403
1404 req_send (req);
1405 XPUSHs (req_sv (req, AIO_GRP_KLASS));
1406}
1407
1408void
1409aio_nop (SV *callback=&PL_sv_undef)
1410 ALIAS:
1411 aio_nop = EIO_NOP
1412 aio_sync = EIO_SYNC
1413 PPCODE:
1414{
1415 dREQ;
1416
1417#endif 1415#endif
1416
1417eio_req *eio_grp (eio_cb cb, void *data)
1418{
1419 const int pri = EIO_PRI_MAX;
1420
1421 REQ (EIO_GROUP); SEND;
1422}
1423
1424#undef REQ
1425#undef PATH
1426#undef SEND
1427
1428/*****************************************************************************/
1429/* grp functions */
1418 1430
1419void eio_grp_feed (eio_req *grp, void (*feed)(eio_req *req), int limit) 1431void eio_grp_feed (eio_req *grp, void (*feed)(eio_req *req), int limit)
1420{ 1432{
1421 grp->int2 = limit; 1433 grp->int2 = limit;
1422 grp->feed = feed; 1434 grp->feed = feed;
… …
1445 grp->grp_first->grp_prev = req; 1457 grp->grp_first->grp_prev = req;
1446 1458
1447 grp->grp_first = req; 1459 grp->grp_first = req;
1448} 1460}
1449 1461
1462/*****************************************************************************/
1463/* misc garbage */
1450 1464
1465ssize_t eio_sendfile_sync (int ofd, int ifd, off_t offset, size_t count)
1466{
1467 etp_worker wrk;
1468
1469 wrk.dbuf = 0;
1470
1471 eio__sendfile (ofd, ifd, offset, count, &wrk);
1472
1473 if (wrk.dbuf)
1474 free (wrk.dbuf);
1475}
1476

Diff Legend

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