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.13 by root, Tue May 13 19:34:11 2008 UTC

1#include "eio.h" 1#include "eio.h"
2#include "xthread.h" 2#include "xthread.h"
3 3
4#include <errno.h> 4#include <errno.h>
5
6#include "EXTERN.h"
7#include "perl.h"
8#include "XSUB.h"
9
10#include <stddef.h> 5#include <stddef.h>
11#include <stdlib.h> 6#include <stdlib.h>
7#include <string.h>
12#include <errno.h> 8#include <errno.h>
13#include <sys/types.h> 9#include <sys/types.h>
14#include <sys/stat.h> 10#include <sys/stat.h>
15#include <limits.h> 11#include <limits.h>
16#include <fcntl.h> 12#include <fcntl.h>
17#include <sched.h> 13#include <assert.h>
18 14
19#ifndef EIO_FINISH 15#ifndef EIO_FINISH
20# define EIO_FINISH(req) ((req)->finish) && !EIO_CANCELLED (req) ? (req)->finish (req) : 0 16# define EIO_FINISH(req) ((req)->finish) && !EIO_CANCELLED (req) ? (req)->finish (req) : 0
21#endif 17#endif
22 18
… …
38# include <sys/time.h> 34# include <sys/time.h>
39# include <sys/select.h> 35# include <sys/select.h>
40# include <unistd.h> 36# include <unistd.h>
41# include <utime.h> 37# include <utime.h>
42# include <signal.h> 38# include <signal.h>
39# include <dirent.h>
43 40
44# ifndef EIO_STRUCT_DIRENT 41# ifndef EIO_STRUCT_DIRENT
45# define EIO_STRUCT_DIRENT struct dirent 42# define EIO_STRUCT_DIRENT struct dirent
46# endif 43# endif
47 44
48#endif 45#endif
49
50# ifndef EIO_STRUCT_STAT
51# define EIO_STRUCT_STAT struct stat
52# endif
53 46
54#if HAVE_SENDFILE 47#if HAVE_SENDFILE
55# if __linux 48# if __linux
56# include <sys/sendfile.h> 49# include <sys/sendfile.h>
57# elif __freebsd 50# elif __freebsd
… …
77/* buffer size for various temporary buffers */ 70/* buffer size for various temporary buffers */
78#define EIO_BUFSIZE 65536 71#define EIO_BUFSIZE 65536
79 72
80#define dBUF \ 73#define dBUF \
81 char *eio_buf; \ 74 char *eio_buf; \
82 X_LOCK (wrklock); \ 75 X_LOCK (etplock); \
83 self->dbuf = eio_buf = malloc (EIO_BUFSIZE); \ 76 self->dbuf = eio_buf = malloc (EIO_BUFSIZE); \
84 X_UNLOCK (wrklock); \ 77 X_UNLOCK (etplock); \
78 errno = ENOMEM; \
85 if (!eio_buf) \ 79 if (!eio_buf) \
86 return -1; 80 return -1;
87 81
88#define EIO_TICKS ((1000000 + 1023) >> 10) 82#define EIO_TICKS ((1000000 + 1023) >> 10)
89 83
90static void (*want_poll_cb) (void); 84/*****************************************************************************/
91static void (*done_poll_cb) (void);
92
93static unsigned int max_poll_time = 0;
94static unsigned int max_poll_reqs = 0;
95 85
96/* calculcate time difference in ~1/EIO_TICKS of a second */ 86/* calculcate time difference in ~1/EIO_TICKS of a second */
97static int tvdiff (struct timeval *tv1, struct timeval *tv2) 87static int tvdiff (struct timeval *tv1, struct timeval *tv2)
98{ 88{
99 return (tv2->tv_sec - tv1->tv_sec ) * EIO_TICKS 89 return (tv2->tv_sec - tv1->tv_sec ) * EIO_TICKS
100 + ((tv2->tv_usec - tv1->tv_usec) >> 10); 90 + ((tv2->tv_usec - tv1->tv_usec) >> 10);
101} 91}
102 92
103static unsigned int started, idle, wanted; 93static unsigned int started, idle, wanted = 4;
104 94
105/* worker threads management */ 95typedef struct etp_pool
96{
97 void (*want_poll_cb) (void);
98 void (*done_poll_cb) (void);
99
100 unsigned int max_poll_time;
101 unsigned int max_poll_reqs;
102} etp_pool;
103
104static volatile unsigned int nreqs, nready, npending;
105static volatile unsigned int max_idle = 4;
106
107static mutex_t etplock = X_MUTEX_INIT;
106static mutex_t wrklock = X_MUTEX_INIT; 108static mutex_t reslock = X_MUTEX_INIT;
109static mutex_t reqlock = X_MUTEX_INIT;
110static cond_t reqwait = X_COND_INIT;
107 111
108typedef struct worker { 112typedef struct worker
113{
109 /* locked by wrklock */ 114 /* locked by etplock */
110 struct worker *prev, *next; 115 struct worker *prev, *next;
111 116
112 thread_t tid; 117 thread_t tid;
113 118
114 /* locked by reslock, reqlock or wrklock */ 119 /* locked by reslock, reqlock or etplock */
115 eio_req *req; /* currently processed request */ 120 eio_req *req; /* currently processed request */
116 void *dbuf; 121 void *dbuf;
117 DIR *dirp; 122 DIR *dirp;
118} worker; 123} worker;
119 124
120static worker wrk_first = { &wrk_first, &wrk_first, 0 }; 125static worker wrk_first = { &wrk_first, &wrk_first, 0 }; /* NOT etp */
126
127/* worker threads management */
121 128
122static void worker_clear (worker *wrk) 129static void worker_clear (worker *wrk)
123{ 130{
124 if (wrk->dirp) 131 if (wrk->dirp)
125 { 132 {
… …
139 wrk->next->prev = wrk->prev; 146 wrk->next->prev = wrk->prev;
140 wrk->prev->next = wrk->next; 147 wrk->prev->next = wrk->next;
141 148
142 free (wrk); 149 free (wrk);
143} 150}
144
145static volatile unsigned int nreqs, nready, npending;
146static volatile unsigned int max_idle = 4;
147
148static mutex_t reslock = X_MUTEX_INIT;
149static mutex_t reqlock = X_MUTEX_INIT;
150static cond_t reqwait = X_COND_INIT;
151 151
152unsigned int eio_nreqs (void) 152unsigned int eio_nreqs (void)
153{ 153{
154 return nreqs; 154 return nreqs;
155} 155}
… …
239 } 239 }
240 240
241 abort (); 241 abort ();
242} 242}
243 243
244static void etp_atfork_prepare (void)
245{
246 X_LOCK (etplock);
247 X_LOCK (reqlock);
248 X_LOCK (reslock);
249#if !HAVE_PREADWRITE
250 X_LOCK (preadwritelock);
251#endif
252#if !HAVE_READDIR_R
253 X_LOCK (readdirlock);
254#endif
255}
256
257static void etp_atfork_parent (void)
258{
259#if !HAVE_READDIR_R
260 X_UNLOCK (readdirlock);
261#endif
262#if !HAVE_PREADWRITE
263 X_UNLOCK (preadwritelock);
264#endif
265 X_UNLOCK (reslock);
266 X_UNLOCK (reqlock);
267 X_UNLOCK (etplock);
268}
269
270static void etp_atfork_child (void)
271{
272 eio_req *prv;
273
274 while (prv = reqq_shift (&req_queue))
275 eio_destroy (prv);
276
277 while (prv = reqq_shift (&res_queue))
278 eio_destroy (prv);
279
280 while (wrk_first.next != &wrk_first)
281 {
282 worker *wrk = wrk_first.next;
283
284 if (wrk->req)
285 eio_destroy (wrk->req);
286
287 worker_clear (wrk);
288 worker_free (wrk);
289 }
290
291 started = 0;
292 idle = 0;
293 nreqs = 0;
294 nready = 0;
295 npending = 0;
296
297 etp_atfork_parent ();
298}
299
300static void
301etp_once_init (void)
302{
303 X_THREAD_ATFORK (etp_atfork_prepare, etp_atfork_parent, etp_atfork_child);
304}
305
306static int
307etp_init (etp_pool *etp, void (*want_poll)(void), void (*done_poll)(void))
308{
309 static pthread_once_t doinit = PTHREAD_ONCE_INIT;
310
311 pthread_once (&doinit, etp_once_init);
312
313 memset (etp, 0, sizeof *etp);
314
315 etp->want_poll_cb = want_poll;
316 etp->done_poll_cb = done_poll;
317}
318
319static etp_pool etp;
320
321/*****************************************************************************/
322
244static void grp_try_feed (eio_req *grp) 323static void grp_try_feed (eio_req *grp)
245{ 324{
246 while (grp->size < grp->int2 && !EIO_CANCELLED (grp)) 325 while (grp->size < grp->int2 && !EIO_CANCELLED (grp))
247 { 326 {
248 int old_len = grp->size; 327 int old_len = grp->size;
… …
274 return 0; 353 return 0;
275} 354}
276 355
277void eio_destroy (eio_req *req) 356void eio_destroy (eio_req *req)
278{ 357{
358 if ((req)->flags & EIO_FLAG_PTR1_FREE) free (req->ptr1);
279 if ((req)->flags & EIO_FLAG_PTR2_FREE) 359 if ((req)->flags & EIO_FLAG_PTR2_FREE) free (req->ptr2);
280 free (req->ptr2);
281 360
282 EIO_DESTROY (req); 361 EIO_DESTROY (req);
283} 362}
284 363
285static int eio_finish (eio_req *req) 364static int eio_finish (eio_req *req)
… …
315 eio_cancel (grp); 394 eio_cancel (grp);
316} 395}
317 396
318void eio_cancel (eio_req *req) 397void eio_cancel (eio_req *req)
319{ 398{
399 X_LOCK (etplock);
320 req->flags |= EIO_FLAG_CANCELLED; 400 req->flags |= EIO_FLAG_CANCELLED;
401 X_UNLOCK (etplock);
321 402
322 eio_grp_cancel (req); 403 eio_grp_cancel (req);
323} 404}
324 405
325X_THREAD_PROC (eio_proc); 406X_THREAD_PROC (eio_proc);
326 407
327static void start_thread (void) 408static void start_thread (void)
328{ 409{
329 worker *wrk = calloc (1, sizeof (worker)); 410 worker *wrk = calloc (1, sizeof (worker));
330 411
331 if (!wrk) 412 /*TODO*/
332 croak ("unable to allocate worker thread data"); 413 assert (("unable to allocate worker thread data", wrk));
333 414
334 X_LOCK (wrklock); 415 X_LOCK (etplock);
335 416
336 if (thread_create (&wrk->tid, eio_proc, (void *)wrk)) 417 if (thread_create (&wrk->tid, eio_proc, (void *)wrk))
337 { 418 {
338 wrk->prev = &wrk_first; 419 wrk->prev = &wrk_first;
339 wrk->next = wrk_first.next; 420 wrk->next = wrk_first.next;
… …
342 ++started; 423 ++started;
343 } 424 }
344 else 425 else
345 free (wrk); 426 free (wrk);
346 427
347 X_UNLOCK (wrklock); 428 X_UNLOCK (etplock);
348} 429}
349 430
350static void maybe_start_thread (void) 431static void maybe_start_thread (void)
351{ 432{
352 if (eio_nthreads () >= wanted) 433 if (eio_nthreads () >= wanted)
… …
359 start_thread (); 440 start_thread ();
360} 441}
361 442
362void eio_submit (eio_req *req) 443void eio_submit (eio_req *req)
363{ 444{
445 req->pri += EIO_PRI_BIAS;
446
447 if (req->pri < EIO_PRI_MIN + EIO_PRI_BIAS) req->pri = EIO_PRI_MIN + EIO_PRI_BIAS;
448 if (req->pri > EIO_PRI_MAX + EIO_PRI_BIAS) req->pri = EIO_PRI_MAX + EIO_PRI_BIAS;
449
364 ++nreqs; 450 ++nreqs;
365 451
366 X_LOCK (reqlock); 452 X_LOCK (reqlock);
367 ++nready; 453 ++nready;
368 reqq_push (&req_queue, req); 454 reqq_push (&req_queue, req);
… …
382 X_LOCK (reqlock); 468 X_LOCK (reqlock);
383 reqq_push (&req_queue, req); 469 reqq_push (&req_queue, req);
384 X_COND_SIGNAL (reqwait); 470 X_COND_SIGNAL (reqwait);
385 X_UNLOCK (reqlock); 471 X_UNLOCK (reqlock);
386 472
387 X_LOCK (wrklock); 473 X_LOCK (etplock);
388 --started; 474 --started;
389 X_UNLOCK (wrklock); 475 X_UNLOCK (etplock);
390} 476}
391 477
392void eio_set_max_poll_time (double nseconds) 478void eio_set_max_poll_time (double nseconds)
393{ 479{
394 if (WORDACCESS_UNSAFE) X_LOCK (reqlock); 480 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
395 max_poll_time = nseconds; 481 etp.max_poll_time = nseconds;
396 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock); 482 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
397} 483}
398 484
399void eio_set_max_poll_reqs (unsigned int maxreqs) 485void eio_set_max_poll_reqs (unsigned int maxreqs)
400{ 486{
401 if (WORDACCESS_UNSAFE) X_LOCK (reqlock); 487 if (WORDACCESS_UNSAFE) X_LOCK (reqlock);
402 max_poll_reqs = maxreqs; 488 etp.max_poll_reqs = maxreqs;
403 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock); 489 if (WORDACCESS_UNSAFE) X_UNLOCK (reqlock);
404} 490}
405 491
406void eio_set_max_idle (unsigned int nthreads) 492void eio_set_max_idle (unsigned int nthreads)
407{ 493{
… …
425 end_thread (); 511 end_thread ();
426} 512}
427 513
428int eio_poll (void) 514int eio_poll (void)
429{ 515{
430 int maxreqs = max_poll_reqs; 516 int maxreqs = etp.max_poll_reqs;
431 struct timeval tv_start, tv_now; 517 struct timeval tv_start, tv_now;
432 eio_req *req; 518 eio_req *req;
433 519
434 if (max_poll_time) 520 if (etp.max_poll_time)
435 gettimeofday (&tv_start, 0); 521 gettimeofday (&tv_start, 0);
436 522
437 for (;;) 523 for (;;)
438 { 524 {
439 maybe_start_thread (); 525 maybe_start_thread ();
… …
443 529
444 if (req) 530 if (req)
445 { 531 {
446 --npending; 532 --npending;
447 533
448 if (!res_queue.size && done_poll_cb) 534 if (!res_queue.size && etp.done_poll_cb)
449 done_poll_cb (); 535 etp.done_poll_cb ();
450 } 536 }
451 537
452 X_UNLOCK (reslock); 538 X_UNLOCK (reslock);
453 539
454 if (!req) 540 if (!req)
… …
469 } 555 }
470 556
471 if (maxreqs && !--maxreqs) 557 if (maxreqs && !--maxreqs)
472 break; 558 break;
473 559
474 if (max_poll_time) 560 if (etp.max_poll_time)
475 { 561 {
476 gettimeofday (&tv_now, 0); 562 gettimeofday (&tv_now, 0);
477 563
478 if (tvdiff (&tv_start, &tv_now) >= max_poll_time) 564 if (tvdiff (&tv_start, &tv_now) >= etp.max_poll_time)
479 break; 565 break;
480 } 566 }
481 } 567 }
482 568
483 errno = EAGAIN; 569 errno = EAGAIN;
… …
486 572
487/*****************************************************************************/ 573/*****************************************************************************/
488/* work around various missing functions */ 574/* work around various missing functions */
489 575
490#if !HAVE_PREADWRITE 576#if !HAVE_PREADWRITE
491# define pread aio_pread 577# define pread eio__pread
492# define pwrite aio_pwrite 578# define pwrite eio__pwrite
493 579
494/* 580/*
495 * make our pread/pwrite safe against themselves, but not against 581 * make our pread/pwrite safe against themselves, but not against
496 * normal read/write by using a mutex. slows down execution a lot, 582 * normal read/write by using a mutex. slows down execution a lot,
497 * but that's your problem, not mine. 583 * but that's your problem, not mine.
498 */ 584 */
499static mutex_t preadwritelock = X_MUTEX_INIT; 585static mutex_t preadwritelock = X_MUTEX_INIT;
500 586
501static ssize_t pread (int fd, void *buf, size_t count, off_t offset) 587static ssize_t
588eio__pread (int fd, void *buf, size_t count, off_t offset)
502{ 589{
503 ssize_t res; 590 ssize_t res;
504 off_t ooffset; 591 off_t ooffset;
505 592
506 X_LOCK (preadwritelock); 593 X_LOCK (preadwritelock);
… …
511 X_UNLOCK (preadwritelock); 598 X_UNLOCK (preadwritelock);
512 599
513 return res; 600 return res;
514} 601}
515 602
516static ssize_t pwrite (int fd, void *buf, size_t count, off_t offset) 603static ssize_t
604eio__pwrite (int fd, void *buf, size_t count, off_t offset)
517{ 605{
518 ssize_t res; 606 ssize_t res;
519 off_t ooffset; 607 off_t ooffset;
520 608
521 X_LOCK (preadwritelock); 609 X_LOCK (preadwritelock);
… …
529} 617}
530#endif 618#endif
531 619
532#ifndef HAVE_FUTIMES 620#ifndef HAVE_FUTIMES
533 621
534# define utimes(path,times) aio_utimes (path, times) 622# define utimes(path,times) eio__utimes (path, times)
535# define futimes(fd,times) aio_futimes (fd, times) 623# define futimes(fd,times) eio__futimes (fd, times)
536 624
625static int
537static int aio_utimes (const char *filename, const struct timeval times[2]) 626eio__utimes (const char *filename, const struct timeval times[2])
538{ 627{
539 if (times) 628 if (times)
540 { 629 {
541 struct utimbuf buf; 630 struct utimbuf buf;
542 631
… …
547 } 636 }
548 else 637 else
549 return utime (filename, 0); 638 return utime (filename, 0);
550} 639}
551 640
552static int aio_futimes (int fd, const struct timeval tv[2]) 641static int eio__futimes (int fd, const struct timeval tv[2])
553{ 642{
554 errno = ENOSYS; 643 errno = ENOSYS;
555 return -1; 644 return -1;
556} 645}
557 646
… …
560#if !HAVE_FDATASYNC 649#if !HAVE_FDATASYNC
561# define fdatasync fsync 650# define fdatasync fsync
562#endif 651#endif
563 652
564#if !HAVE_READAHEAD 653#if !HAVE_READAHEAD
565# define readahead(fd,offset,count) aio_readahead (fd, offset, count, self) 654# define readahead(fd,offset,count) eio__readahead (fd, offset, count, self)
566 655
656static ssize_t
567static ssize_t aio_readahead (int fd, off_t offset, size_t count, worker *self) 657eio__readahead (int fd, off_t offset, size_t count, worker *self)
568{ 658{
569 size_t todo = count; 659 size_t todo = count;
570 dBUF; 660 dBUF;
571 661
572 while (todo > 0) 662 while (todo > 0)
573 { 663 {
574 size_t len = todo < EIO_BUFSIZE ? todo : EIO_BUFSIZE; 664 size_t len = todo < EIO_BUFSIZE ? todo : EIO_BUFSIZE;
575 665
576 pread (fd, aio_buf, len, offset); 666 pread (fd, eio_buf, len, offset);
577 offset += len; 667 offset += len;
578 todo -= len; 668 todo -= len;
579 } 669 }
580 670
581 errno = 0; 671 errno = 0;
… …
583} 673}
584 674
585#endif 675#endif
586 676
587#if !HAVE_READDIR_R 677#if !HAVE_READDIR_R
588# define readdir_r aio_readdir_r 678# define readdir_r eio__readdir_r
589 679
590static mutex_t readdirlock = X_MUTEX_INIT; 680static mutex_t readdirlock = X_MUTEX_INIT;
591 681
592static int readdir_r (DIR *dirp, X_DIRENT *ent, X_DIRENT **res) 682static int
683eio__readdir_r (DIR *dirp, EIO_STRUCT_DIRENT *ent, EIO_STRUCT_DIRENT **res)
593{ 684{
594 X_DIRENT *e; 685 EIO_STRUCT_DIRENT *e;
595 int errorno; 686 int errorno;
596 687
597 X_LOCK (readdirlock); 688 X_LOCK (readdirlock);
598 689
599 e = readdir (dirp); 690 e = readdir (dirp);
… …
613 return e ? 0 : -1; 704 return e ? 0 : -1;
614} 705}
615#endif 706#endif
616 707
617/* sendfile always needs emulation */ 708/* sendfile always needs emulation */
709static ssize_t
618static ssize_t sendfile_ (int ofd, int ifd, off_t offset, size_t count, worker *self) 710eio__sendfile (int ofd, int ifd, off_t offset, size_t count, worker *self)
619{ 711{
620 ssize_t res; 712 ssize_t res;
621 713
622 if (!count) 714 if (!count)
623 return 0; 715 return 0;
… …
706 798
707 return res; 799 return res;
708} 800}
709 801
710/* read a full directory */ 802/* read a full directory */
803static void
711static void scandir_ (eio_req *req, worker *self) 804eio__scandir (eio_req *req, worker *self)
712{ 805{
713 DIR *dirp; 806 DIR *dirp;
714 union 807 union
715 { 808 {
716 EIO_STRUCT_DIRENT d; 809 EIO_STRUCT_DIRENT d;
… …
720 char *name, *names; 813 char *name, *names;
721 int memlen = 4096; 814 int memlen = 4096;
722 int memofs = 0; 815 int memofs = 0;
723 int res = 0; 816 int res = 0;
724 817
725 X_LOCK (wrklock); 818 X_LOCK (etplock);
726 self->dirp = dirp = opendir (req->ptr1); 819 self->dirp = dirp = opendir (req->ptr1);
727 self->dbuf = u = malloc (sizeof (*u)); 820 self->dbuf = u = malloc (sizeof (*u));
728 req->flags |= EIO_FLAG_PTR2_FREE; 821 req->flags |= EIO_FLAG_PTR2_FREE;
729 req->ptr2 = names = malloc (memlen); 822 req->ptr2 = names = malloc (memlen);
730 X_UNLOCK (wrklock); 823 X_UNLOCK (etplock);
731 824
732 if (dirp && u && names) 825 if (dirp && u && names)
733 for (;;) 826 for (;;)
734 { 827 {
735 errno = 0; 828 errno = 0;
… …
747 res++; 840 res++;
748 841
749 while (memofs + len > memlen) 842 while (memofs + len > memlen)
750 { 843 {
751 memlen *= 2; 844 memlen *= 2;
752 X_LOCK (wrklock); 845 X_LOCK (etplock);
753 req->ptr2 = names = realloc (names, memlen); 846 req->ptr2 = names = realloc (names, memlen);
754 X_UNLOCK (wrklock); 847 X_UNLOCK (etplock);
755 848
756 if (!names) 849 if (!names)
757 break; 850 break;
758 } 851 }
759 852
… …
767 860
768 req->result = res; 861 req->result = res;
769} 862}
770 863
771/*****************************************************************************/ 864/*****************************************************************************/
865
866#define ALLOC(len) \
867 if (!req->ptr2) \
868 { \
869 X_LOCK (etplock); \
870 req->flags |= EIO_FLAG_PTR2_FREE; \
871 X_UNLOCK (etplock); \
872 req->ptr2 = malloc (len); \
873 if (!req->ptr2) \
874 { \
875 errno = ENOMEM; \
876 req->result = -1; \
877 break; \
878 } \
879 }
772 880
773X_THREAD_PROC (eio_proc) 881X_THREAD_PROC (eio_proc)
774{ 882{
775 eio_req *req; 883 eio_req *req;
776 struct timespec ts; 884 struct timespec ts;
… …
798 { 906 {
799 if (idle > max_idle) 907 if (idle > max_idle)
800 { 908 {
801 --idle; 909 --idle;
802 X_UNLOCK (reqlock); 910 X_UNLOCK (reqlock);
803 X_LOCK (wrklock); 911 X_LOCK (etplock);
804 --started; 912 --started;
805 X_UNLOCK (wrklock); 913 X_UNLOCK (etplock);
806 goto quit; 914 goto quit;
807 } 915 }
808 916
809 /* we are allowed to idle, so do so without any timeout */ 917 /* we are allowed to idle, so do so without any timeout */
810 X_COND_WAIT (reqwait, reqlock); 918 X_COND_WAIT (reqwait, reqlock);
… …
821 errno = 0; /* strictly unnecessary */ 929 errno = 0; /* strictly unnecessary */
822 930
823 if (!EIO_CANCELLED (req)) 931 if (!EIO_CANCELLED (req))
824 switch (req->type) 932 switch (req->type)
825 { 933 {
934 case EIO_READ: ALLOC (req->size);
826 case EIO_READ: req->result = req->offs >= 0 935 req->result = req->offs >= 0
827 ? pread (req->int1, req->ptr2, req->size, req->offs) 936 ? pread (req->int1, req->ptr2, req->size, req->offs)
828 : read (req->int1, req->ptr2, req->size); break; 937 : read (req->int1, req->ptr2, req->size); break;
829 case EIO_WRITE: req->result = req->offs >= 0 938 case EIO_WRITE: req->result = req->offs >= 0
830 ? pwrite (req->int1, req->ptr2, req->size, req->offs) 939 ? pwrite (req->int1, req->ptr2, req->size, req->offs)
831 : write (req->int1, req->ptr2, req->size); break; 940 : write (req->int1, req->ptr2, req->size); break;
832 941
833 case EIO_READAHEAD: req->result = readahead (req->int1, req->offs, req->size); break; 942 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; 943 case EIO_SENDFILE: req->result = eio__sendfile (req->int1, req->int2, req->offs, req->size, self); break;
835 944
945 case EIO_STAT: ALLOC (sizeof (EIO_STRUCT_STAT));
836 case EIO_STAT: req->result = stat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break; 946 req->result = stat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
947 case EIO_LSTAT: ALLOC (sizeof (EIO_STRUCT_STAT));
837 case EIO_LSTAT: req->result = lstat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break; 948 req->result = lstat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
949 case EIO_FSTAT: ALLOC (sizeof (EIO_STRUCT_STAT));
838 case EIO_FSTAT: req->result = fstat (req->int1, (EIO_STRUCT_STAT *)req->ptr2); break; 950 req->result = fstat (req->int1, (EIO_STRUCT_STAT *)req->ptr2); break;
839 951
840 case EIO_CHOWN: req->result = chown (req->ptr1, req->int2, req->int3); break; 952 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; 953 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; 954 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; 955 case EIO_FCHMOD: req->result = fchmod (req->int1, (mode_t)req->int2); break;
… …
852 case EIO_MKDIR: req->result = mkdir (req->ptr1, (mode_t)req->int2); break; 964 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; 965 case EIO_RENAME: req->result = rename (req->ptr1, req->ptr2); break;
854 case EIO_LINK: req->result = link (req->ptr1, req->ptr2); break; 966 case EIO_LINK: req->result = link (req->ptr1, req->ptr2); break;
855 case EIO_SYMLINK: req->result = symlink (req->ptr1, req->ptr2); break; 967 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; 968 case EIO_MKNOD: req->result = mknod (req->ptr1, (mode_t)req->int2, (dev_t)req->offs); break;
969
970 case EIO_READLINK: ALLOC (NAME_MAX);
857 case EIO_READLINK: req->result = readlink (req->ptr1, req->ptr2, NAME_MAX); break; 971 req->result = readlink (req->ptr1, req->ptr2, NAME_MAX); break;
858 972
859 case EIO_SYNC: req->result = 0; sync (); break; 973 case EIO_SYNC: req->result = 0; sync (); break;
860 case EIO_FSYNC: req->result = fsync (req->int1); break; 974 case EIO_FSYNC: req->result = fsync (req->int1); break;
861 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break; 975 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break;
862 976
863 case EIO_READDIR: scandir_ (req, self); break; 977 case EIO_READDIR: eio__scandir (req, self); break;
864 978
865 case EIO_BUSY: 979 case EIO_BUSY:
866#ifdef _WIN32 980#ifdef _WIN32
867 Sleep (req->nv1 * 1000.); 981 Sleep (req->nv1 * 1000.);
868#else 982#else
… …
901 : utimes (req->ptr1, times); 1015 : utimes (req->ptr1, times);
902 } 1016 }
903 1017
904 case EIO_GROUP: 1018 case EIO_GROUP:
905 case EIO_NOP: 1019 case EIO_NOP:
1020 req->result = 0;
906 break; 1021 break;
907 1022
908 case EIO_QUIT: 1023 case EIO_QUIT:
909 goto quit; 1024 goto quit;
910 1025
… …
917 1032
918 X_LOCK (reslock); 1033 X_LOCK (reslock);
919 1034
920 ++npending; 1035 ++npending;
921 1036
922 if (!reqq_push (&res_queue, req) && want_poll_cb) 1037 if (!reqq_push (&res_queue, req) && etp.want_poll_cb)
923 want_poll_cb (); 1038 etp.want_poll_cb ();
924 1039
925 self->req = 0; 1040 self->req = 0;
926 worker_clear (self); 1041 worker_clear (self);
927 1042
928 X_UNLOCK (reslock); 1043 X_UNLOCK (reslock);
929 } 1044 }
930 1045
931quit: 1046quit:
932 X_LOCK (wrklock); 1047 X_LOCK (etplock);
933 worker_free (self); 1048 worker_free (self);
934 X_UNLOCK (wrklock); 1049 X_UNLOCK (etplock);
935 1050
936 return 0; 1051 return 0;
937} 1052}
938 1053
939/*****************************************************************************/ 1054/*****************************************************************************/
940 1055
941static void eio_atfork_prepare (void)
942{
943 X_LOCK (wrklock);
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}
953
954static void eio_atfork_parent (void)
955{
956#if !HAVE_READDIR_R
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}
966
967static void eio_atfork_child (void)
968{
969 eio_req *prv;
970
971 while (prv = reqq_shift (&req_queue))
972 eio_destroy (prv);
973
974 while (prv = reqq_shift (&res_queue))
975 eio_destroy (prv);
976
977 while (wrk_first.next != &wrk_first)
978 {
979 worker *wrk = wrk_first.next;
980
981 if (wrk->req)
982 eio_destroy (wrk->req);
983
984 worker_clear (wrk);
985 worker_free (wrk);
986 }
987
988 started = 0;
989 idle = 0;
990 nreqs = 0;
991 nready = 0;
992 npending = 0;
993
994 eio_atfork_parent ();
995}
996
997int eio_init (void (*want_poll)(void), void (*done_poll)(void)) 1056int eio_init (void (*want_poll)(void), void (*done_poll)(void))
998{ 1057{
999 want_poll_cb = want_poll; 1058 etp_init (&etp, want_poll, done_poll);
1000 done_poll_cb = done_poll;
1001
1002#ifdef _WIN32
1003 X_MUTEX_CHECK (wrklock);
1004 X_MUTEX_CHECK (reslock);
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} 1059}
1015 1060
1016#if 0 1061static void eio_api_destroy (eio_req *req)
1062{
1063 free (req);
1064}
1017 1065
1066#define REQ(rtype) \
1067 eio_req *req; \
1068 \
1069 req = (eio_req *)calloc (1, sizeof *req); \
1070 if (!req) \
1071 return 0; \
1072 \
1073 req->type = rtype; \
1074 req->pri = pri; \
1075 req->finish = cb; \
1076 req->data = data; \
1077 req->destroy = eio_api_destroy;
1078
1079#define SEND eio_submit (req); return req
1080
1081#define PATH \
1082 req->flags |= EIO_FLAG_PTR1_FREE; \
1083 req->ptr1 = strdup (path); \
1084 if (!req->ptr1) \
1085 { \
1086 eio_api_destroy (req); \
1087 return 0; \
1088 }
1089
1090#ifndef EIO_NO_WRAPPERS
1091
1092eio_req *eio_nop (int pri, eio_cb cb, void *data)
1093{
1094 REQ (EIO_NOP); SEND;
1095}
1096
1097eio_req *eio_busy (double delay, int pri, eio_cb cb, void *data)
1098{
1099 REQ (EIO_BUSY); req->nv1 = delay; SEND;
1100}
1101
1018eio_req *eio_fsync (int fd, eio_cb cb); 1102eio_req *eio_sync (int pri, eio_cb cb, void *data)
1103{
1104 REQ (EIO_SYNC); SEND;
1105}
1106
1107eio_req *eio_fsync (int fd, int pri, eio_cb cb, void *data)
1108{
1109 REQ (EIO_FSYNC); req->int1 = fd; SEND;
1110}
1111
1019eio_req *eio_fdatasync (int fd, eio_cb cb); 1112eio_req *eio_fdatasync (int fd, int pri, eio_cb cb, void *data)
1020eio_req *eio_dupclose (int fd, eio_cb cb); 1113{
1114 REQ (EIO_FDATASYNC); req->int1 = fd; SEND;
1115}
1116
1117eio_req *eio_close (int fd, int pri, eio_cb cb, void *data)
1118{
1119 REQ (EIO_CLOSE); req->int1 = fd; SEND;
1120}
1121
1021eio_req *eio_readahead (int fd, off_t offset, size_t length, eio_cb cb); 1122eio_req *eio_readahead (int fd, off_t offset, size_t length, int pri, eio_cb cb, void *data)
1022eio_req *eio_read (int fd, off_t offs, size_t length, char *data, eio_cb cb); 1123{
1023eio_req *eio_write (int fd, off_t offs, size_t length, char *data, eio_cb cb); 1124 REQ (EIO_READAHEAD); req->int1 = fd; req->offs = offset; req->size = length; SEND;
1024eio_req *eio_fstat (int fd, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */ 1125}
1126
1127eio_req *eio_read (int fd, void *buf, size_t length, off_t offset, int pri, eio_cb cb, void *data)
1128{
1129 REQ (EIO_READ); req->int1 = fd; req->offs = offset; req->size = length; req->ptr2 = buf; SEND;
1130}
1131
1132eio_req *eio_write (int fd, void *buf, size_t length, off_t offset, int pri, eio_cb cb, void *data)
1133{
1134 REQ (EIO_WRITE); req->int1 = fd; req->offs = offset; req->size = length; req->ptr2 = buf; SEND;
1135}
1136
1137eio_req *eio_fstat (int fd, int pri, eio_cb cb, void *data)
1138{
1139 REQ (EIO_FSTAT); req->int1 = fd; SEND;
1140}
1141
1025eio_req *eio_futime (int fd, double atime, double mtime, eio_cb cb); 1142eio_req *eio_futime (int fd, double atime, double mtime, int pri, eio_cb cb, void *data)
1143{
1144 REQ (EIO_FUTIME); req->int1 = fd; req->nv1 = atime; req->nv2 = mtime; SEND;
1145}
1146
1026eio_req *eio_ftruncate (int fd, off_t offset, eio_cb cb); 1147eio_req *eio_ftruncate (int fd, off_t offset, int pri, eio_cb cb, void *data)
1148{
1149 REQ (EIO_FTRUNCATE); req->int1 = fd; req->offs = offset; SEND;
1150}
1151
1027eio_req *eio_fchmod (int fd, mode_t mode, eio_cb cb); 1152eio_req *eio_fchmod (int fd, mode_t mode, int pri, eio_cb cb, void *data)
1153{
1154 REQ (EIO_FCHMOD); req->int1 = fd; req->int2 = (long)mode; SEND;
1155}
1156
1028eio_req *eio_fchown (int fd, uid_t uid, gid_t gid, eio_cb cb); 1157eio_req *eio_fchown (int fd, uid_t uid, gid_t gid, int pri, eio_cb cb, void *data)
1158{
1159 REQ (EIO_FCHOWN); req->int1 = fd; req->int2 = (long)uid; req->int3 = (long)gid; SEND;
1160}
1161
1029eio_req *eio_dup2 (int fd, int fd2, eio_cb cb); 1162eio_req *eio_dup2 (int fd, int fd2, int pri, eio_cb cb, void *data)
1163{
1164 REQ (EIO_DUP2); req->int1 = fd; req->int2 = fd2; SEND;
1165}
1166
1030eio_req *eio_sendfile (int out_fd, int in_fd, off_t in_offset, size_t length, eio_cb cb); 1167eio_req *eio_sendfile (int out_fd, int in_fd, off_t in_offset, size_t length, int pri, eio_cb cb, void *data)
1168{
1169 REQ (EIO_SENDFILE); req->int1 = out_fd; req->int2 = in_fd; req->offs = in_offset; req->size = length; SEND;
1170}
1171
1031eio_req *eio_open (const char *path, int flags, mode_t mode, eio_cb cb); 1172eio_req *eio_open (const char *path, int flags, mode_t mode, int pri, eio_cb cb, void *data)
1032eio_req *eio_readlink (const char *path, eio_cb cb); /* result=ptr2 allocated dynamically */ 1173{
1033eio_req *eio_stat (const char *path, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */ 1174 REQ (EIO_OPEN); PATH; req->int1 = flags; req->int2 = (long)mode; SEND;
1034eio_req *eio_lstat (const char *path, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */ 1175}
1176
1035eio_req *eio_utime (const char *path, double atime, double mtime, eio_cb cb); 1177eio_req *eio_utime (const char *path, double atime, double mtime, int pri, eio_cb cb, void *data)
1178{
1179 REQ (EIO_UTIME); PATH; req->nv1 = atime; req->nv2 = mtime; SEND;
1180}
1181
1036eio_req *eio_truncate (const char *path, off_t offset, eio_cb cb); 1182eio_req *eio_truncate (const char *path, off_t offset, int pri, eio_cb cb, void *data)
1037eio_req *eio_chmod (const char *path, mode_t mode, eio_cb cb); 1183{
1038eio_req *eio_mkdir (const char *path, mode_t mode, eio_cb cb); 1184 REQ (EIO_TRUNCATE); PATH; req->offs = offset; SEND;
1185}
1186
1039eio_req *eio_chown (const char *path, uid_t uid, gid_t gid, eio_cb cb); 1187eio_req *eio_chown (const char *path, uid_t uid, gid_t gid, int pri, eio_cb cb, void *data)
1188{
1189 REQ (EIO_CHOWN); PATH; req->int2 = (long)uid; req->int3 = (long)gid; SEND;
1190}
1191
1192eio_req *eio_chmod (const char *path, mode_t mode, int pri, eio_cb cb, void *data)
1193{
1194 REQ (EIO_CHMOD); PATH; req->int2 = (long)mode; SEND;
1195}
1196
1197eio_req *eio_mkdir (const char *path, mode_t mode, int pri, eio_cb cb, void *data)
1198{
1199 REQ (EIO_MKDIR); PATH; req->int2 = (long)mode; SEND;
1200}
1201
1202static eio_req *
1203eio__1path (int type, const char *path, int pri, eio_cb cb, void *data)
1204{
1205 REQ (type); PATH; SEND;
1206}
1207
1208eio_req *eio_readlink (const char *path, int pri, eio_cb cb, void *data)
1209{
1210 return eio__1path (EIO_READLINK, path, pri, cb, data);
1211}
1212
1213eio_req *eio_stat (const char *path, int pri, eio_cb cb, void *data)
1214{
1215 return eio__1path (EIO_STAT, path, pri, cb, data);
1216}
1217
1218eio_req *eio_lstat (const char *path, int pri, eio_cb cb, void *data)
1219{
1220 return eio__1path (EIO_LSTAT, path, pri, cb, data);
1221}
1222
1040eio_req *eio_unlink (const char *path, eio_cb cb); 1223eio_req *eio_unlink (const char *path, int pri, eio_cb cb, void *data)
1224{
1225 return eio__1path (EIO_UNLINK, path, pri, cb, data);
1226}
1227
1041eio_req *eio_rmdir (const char *path, eio_cb cb); 1228eio_req *eio_rmdir (const char *path, int pri, eio_cb cb, void *data)
1042eio_req *eio_readdir (const char *path, eio_cb cb); /* result=ptr2 allocated dynamically */ 1229{
1230 return eio__1path (EIO_RMDIR, path, pri, cb, data);
1231}
1232
1233eio_req *eio_readdir (const char *path, int pri, eio_cb cb, void *data)
1234{
1235 return eio__1path (EIO_READDIR, path, pri, cb, data);
1236}
1237
1043eio_req *eio_mknod (const char *path, mode_t mode, dev_t dev, eio_cb cb); 1238eio_req *eio_mknod (const char *path, mode_t mode, dev_t dev, int pri, eio_cb cb, void *data)
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{ 1239{
1051 dREQ; 1240 REQ (EIO_MKNOD); PATH; req->int2 = (long)mode; req->int2 = (long)dev; SEND;
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} 1241}
1061 1242
1062void 1243static eio_req *
1063aio_fsync (SV *fh, SV *callback=&PL_sv_undef) 1244eio__2path (int type, const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1064 PROTOTYPE: $;$
1065 ALIAS:
1066 aio_fsync = EIO_FSYNC
1067 aio_fdatasync = EIO_FDATASYNC
1068 PPCODE:
1069{ 1245{
1070 dREQ; 1246 REQ (type); PATH;
1071 1247
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 {
1130 dREQ;
1131
1132 req->type = ix;
1133 req->sv1 = newSVsv (fh);
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
1142 if (!SvREADONLY (data))
1143 {
1144 SvREADONLY_on (data);
1145 req->flags |= FLAG_SV2_RO_OFF;
1146 }
1147
1148 EIO_SEND;
1149 }
1150}
1151
1152void
1153aio_readlink (SV8 *path, SV *callback=&PL_sv_undef)
1154 PROTOTYPE: $$;$
1155 PPCODE:
1156{
1157 SV *data;
1158 dREQ;
1159
1160 data = newSV (NAME_MAX);
1161 SvPOK_on (data);
1162
1163 req->type = EIO_READLINK;
1164 req->sv1 = newSVsv (path);
1165 req->ptr1 = SvPVbyte_nolen (req->sv1);
1166 req->sv2 = data;
1167 req->ptr2 = SvPVbyte_nolen (data);
1168
1169 EIO_SEND;
1170}
1171
1172void
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
1179 req->type = EIO_SENDFILE;
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{
1195 dREQ;
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}
1205
1206void
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{
1213 dREQ;
1214
1215 req->ptr2 = malloc (sizeof (EIO_STRUCT_STAT));
1216 if (!req->ptr2)
1217 {
1218 req_destroy (req);
1219 croak ("out of memory during aio_stat statdata allocation");
1220 }
1221
1222 req->flags |= FLAG_PTR2_FREE; 1248 req->flags |= EIO_FLAG_PTR2_FREE;
1223 req->sv1 = newSVsv (fh_or_path); 1249 req->ptr2 = strdup (new_path);
1250 if (!req->ptr2)
1251 {
1252 eio_api_destroy (req);
1253 return 0;
1254 }
1224 1255
1225 if (SvPOK (fh_or_path)) 1256 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} 1257}
1238 1258
1239void 1259eio_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{ 1260{
1243 dREQ; 1261 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} 1262}
1262 1263
1263void 1264eio_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{ 1265{
1267 dREQ; 1266 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} 1267}
1285 1268
1286void 1269eio_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{ 1270{
1294 dREQ; 1271 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} 1272}
1307 1273
1308void
1309aio_chown (SV8 *fh_or_path, SV *uid, SV *gid, SV *callback=&PL_sv_undef)
1310 PPCODE:
1311{
1312 dREQ;
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}
1331
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 1274#endif
1275
1276eio_req *eio_grp (eio_cb cb, void *data)
1277{
1278 const int pri = EIO_PRI_MAX;
1279
1280 REQ (EIO_GROUP); SEND;
1281}
1282
1283#undef REQ
1284#undef PATH
1285#undef SEND
1286
1287/*****************************************************************************/
1288/* grp functions */
1418 1289
1419void eio_grp_feed (eio_req *grp, void (*feed)(eio_req *req), int limit) 1290void eio_grp_feed (eio_req *grp, void (*feed)(eio_req *req), int limit)
1420{ 1291{
1421 grp->int2 = limit; 1292 grp->int2 = limit;
1422 grp->feed = feed; 1293 grp->feed = feed;
… …
1445 grp->grp_first->grp_prev = req; 1316 grp->grp_first->grp_prev = req;
1446 1317
1447 grp->grp_first = req; 1318 grp->grp_first = req;
1448} 1319}
1449 1320
1321/*****************************************************************************/
1322/* misc garbage */
1450 1323
1324ssize_t eio_sendfile_sync (int ofd, int ifd, off_t offset, size_t count)
1325{
1326 worker wrk;
1327
1328 wrk.dbuf = 0;
1329
1330 eio__sendfile (ofd, ifd, offset, count, &wrk);
1331
1332 if (wrk.dbuf)
1333 free (wrk.dbuf);
1334}
1335

Diff Legend

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