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

Comparing libeio/eio.c (file contents):
Revision 1.4 by root, Sun May 11 00:10:15 2008 UTC vs.
Revision 1.12 by root, Tue May 13 18:54:52 2008 UTC

… …
8#include <errno.h> 8#include <errno.h>
9#include <sys/types.h> 9#include <sys/types.h>
10#include <sys/stat.h> 10#include <sys/stat.h>
11#include <limits.h> 11#include <limits.h>
12#include <fcntl.h> 12#include <fcntl.h>
13#include <sched.h> 13#include <assert.h>
14 14
15#ifndef EIO_FINISH 15#ifndef EIO_FINISH
16# 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
17#endif 17#endif
18 18
… …
41# ifndef EIO_STRUCT_DIRENT 41# ifndef EIO_STRUCT_DIRENT
42# define EIO_STRUCT_DIRENT struct dirent 42# define EIO_STRUCT_DIRENT struct dirent
43# endif 43# endif
44 44
45#endif 45#endif
46
47# ifndef EIO_STRUCT_STAT
48# define EIO_STRUCT_STAT struct stat
49# endif
50 46
51#if HAVE_SENDFILE 47#if HAVE_SENDFILE
52# if __linux 48# if __linux
53# include <sys/sendfile.h> 49# include <sys/sendfile.h>
54# elif __freebsd 50# elif __freebsd
… …
77#define dBUF \ 73#define dBUF \
78 char *eio_buf; \ 74 char *eio_buf; \
79 X_LOCK (wrklock); \ 75 X_LOCK (wrklock); \
80 self->dbuf = eio_buf = malloc (EIO_BUFSIZE); \ 76 self->dbuf = eio_buf = malloc (EIO_BUFSIZE); \
81 X_UNLOCK (wrklock); \ 77 X_UNLOCK (wrklock); \
78 errno = ENOMEM; \
82 if (!eio_buf) \ 79 if (!eio_buf) \
83 return -1; 80 return -1;
84 81
85#define EIO_TICKS ((1000000 + 1023) >> 10) 82#define EIO_TICKS ((1000000 + 1023) >> 10)
86 83
… …
95{ 92{
96 return (tv2->tv_sec - tv1->tv_sec ) * EIO_TICKS 93 return (tv2->tv_sec - tv1->tv_sec ) * EIO_TICKS
97 + ((tv2->tv_usec - tv1->tv_usec) >> 10); 94 + ((tv2->tv_usec - tv1->tv_usec) >> 10);
98} 95}
99 96
100static unsigned int started, idle, wanted; 97static unsigned int started, idle, wanted = 4;
101 98
102/* worker threads management */ 99/* worker threads management */
103static mutex_t wrklock = X_MUTEX_INIT; 100static mutex_t wrklock = X_MUTEX_INIT;
104 101
105typedef struct worker { 102typedef struct worker
103{
106 /* locked by wrklock */ 104 /* locked by wrklock */
107 struct worker *prev, *next; 105 struct worker *prev, *next;
108 106
109 thread_t tid; 107 thread_t tid;
110 108
… …
271 return 0; 269 return 0;
272} 270}
273 271
274void eio_destroy (eio_req *req) 272void eio_destroy (eio_req *req)
275{ 273{
274 if ((req)->flags & EIO_FLAG_PTR1_FREE) free (req->ptr1);
276 if ((req)->flags & EIO_FLAG_PTR2_FREE) 275 if ((req)->flags & EIO_FLAG_PTR2_FREE) free (req->ptr2);
277 free (req->ptr2);
278 276
279 EIO_DESTROY (req); 277 EIO_DESTROY (req);
280} 278}
281 279
282static int eio_finish (eio_req *req) 280static int eio_finish (eio_req *req)
… …
312 eio_cancel (grp); 310 eio_cancel (grp);
313} 311}
314 312
315void eio_cancel (eio_req *req) 313void eio_cancel (eio_req *req)
316{ 314{
315 X_LOCK (wrklock);
317 req->flags |= EIO_FLAG_CANCELLED; 316 req->flags |= EIO_FLAG_CANCELLED;
317 X_UNLOCK (wrklock);
318 318
319 eio_grp_cancel (req); 319 eio_grp_cancel (req);
320} 320}
321 321
322X_THREAD_PROC (eio_proc); 322X_THREAD_PROC (eio_proc);
323 323
324static void start_thread (void) 324static void start_thread (void)
325{ 325{
326 worker *wrk = calloc (1, sizeof (worker)); 326 worker *wrk = calloc (1, sizeof (worker));
327 327
328 if (!wrk) 328 /*TODO*/
329 croak ("unable to allocate worker thread data"); 329 assert (("unable to allocate worker thread data", wrk));
330 330
331 X_LOCK (wrklock); 331 X_LOCK (wrklock);
332 332
333 if (thread_create (&wrk->tid, eio_proc, (void *)wrk)) 333 if (thread_create (&wrk->tid, eio_proc, (void *)wrk))
334 { 334 {
… …
356 start_thread (); 356 start_thread ();
357} 357}
358 358
359void eio_submit (eio_req *req) 359void eio_submit (eio_req *req)
360{ 360{
361 req->pri += EIO_PRI_BIAS;
362
363 if (req->pri < EIO_PRI_MIN + EIO_PRI_BIAS) req->pri = EIO_PRI_MIN + EIO_PRI_BIAS;
364 if (req->pri > EIO_PRI_MAX + EIO_PRI_BIAS) req->pri = EIO_PRI_MAX + EIO_PRI_BIAS;
365
361 ++nreqs; 366 ++nreqs;
362 367
363 X_LOCK (reqlock); 368 X_LOCK (reqlock);
364 ++nready; 369 ++nready;
365 reqq_push (&req_queue, req); 370 reqq_push (&req_queue, req);
… …
483 488
484/*****************************************************************************/ 489/*****************************************************************************/
485/* work around various missing functions */ 490/* work around various missing functions */
486 491
487#if !HAVE_PREADWRITE 492#if !HAVE_PREADWRITE
488# define pread aio_pread 493# define pread eio__pread
489# define pwrite aio_pwrite 494# define pwrite eio__pwrite
490 495
491/* 496/*
492 * make our pread/pwrite safe against themselves, but not against 497 * make our pread/pwrite safe against themselves, but not against
493 * normal read/write by using a mutex. slows down execution a lot, 498 * normal read/write by using a mutex. slows down execution a lot,
494 * but that's your problem, not mine. 499 * but that's your problem, not mine.
495 */ 500 */
496static mutex_t preadwritelock = X_MUTEX_INIT; 501static mutex_t preadwritelock = X_MUTEX_INIT;
497 502
498static ssize_t pread (int fd, void *buf, size_t count, off_t offset) 503static ssize_t
504eio__pread (int fd, void *buf, size_t count, off_t offset)
499{ 505{
500 ssize_t res; 506 ssize_t res;
501 off_t ooffset; 507 off_t ooffset;
502 508
503 X_LOCK (preadwritelock); 509 X_LOCK (preadwritelock);
… …
508 X_UNLOCK (preadwritelock); 514 X_UNLOCK (preadwritelock);
509 515
510 return res; 516 return res;
511} 517}
512 518
513static ssize_t pwrite (int fd, void *buf, size_t count, off_t offset) 519static ssize_t
520eio__pwrite (int fd, void *buf, size_t count, off_t offset)
514{ 521{
515 ssize_t res; 522 ssize_t res;
516 off_t ooffset; 523 off_t ooffset;
517 524
518 X_LOCK (preadwritelock); 525 X_LOCK (preadwritelock);
… …
526} 533}
527#endif 534#endif
528 535
529#ifndef HAVE_FUTIMES 536#ifndef HAVE_FUTIMES
530 537
531# define utimes(path,times) aio_utimes (path, times) 538# define utimes(path,times) eio__utimes (path, times)
532# define futimes(fd,times) aio_futimes (fd, times) 539# define futimes(fd,times) eio__futimes (fd, times)
533 540
541static int
534static int aio_utimes (const char *filename, const struct timeval times[2]) 542eio__utimes (const char *filename, const struct timeval times[2])
535{ 543{
536 if (times) 544 if (times)
537 { 545 {
538 struct utimbuf buf; 546 struct utimbuf buf;
539 547
… …
544 } 552 }
545 else 553 else
546 return utime (filename, 0); 554 return utime (filename, 0);
547} 555}
548 556
549static int aio_futimes (int fd, const struct timeval tv[2]) 557static int eio__futimes (int fd, const struct timeval tv[2])
550{ 558{
551 errno = ENOSYS; 559 errno = ENOSYS;
552 return -1; 560 return -1;
553} 561}
554 562
… …
557#if !HAVE_FDATASYNC 565#if !HAVE_FDATASYNC
558# define fdatasync fsync 566# define fdatasync fsync
559#endif 567#endif
560 568
561#if !HAVE_READAHEAD 569#if !HAVE_READAHEAD
562# define readahead(fd,offset,count) aio_readahead (fd, offset, count, self) 570# define readahead(fd,offset,count) eio__readahead (fd, offset, count, self)
563 571
572static ssize_t
564static ssize_t aio_readahead (int fd, off_t offset, size_t count, worker *self) 573eio__readahead (int fd, off_t offset, size_t count, worker *self)
565{ 574{
566 size_t todo = count; 575 size_t todo = count;
567 dBUF; 576 dBUF;
568 577
569 while (todo > 0) 578 while (todo > 0)
… …
580} 589}
581 590
582#endif 591#endif
583 592
584#if !HAVE_READDIR_R 593#if !HAVE_READDIR_R
585# define readdir_r aio_readdir_r 594# define readdir_r eio__readdir_r
586 595
587static mutex_t readdirlock = X_MUTEX_INIT; 596static mutex_t readdirlock = X_MUTEX_INIT;
588 597
589static int readdir_r (DIR *dirp, X_DIRENT *ent, X_DIRENT **res) 598static int
599eio__readdir_r (DIR *dirp, EIO_STRUCT_DIRENT *ent, EIO_STRUCT_DIRENT **res)
590{ 600{
591 X_DIRENT *e; 601 EIO_STRUCT_DIRENT *e;
592 int errorno; 602 int errorno;
593 603
594 X_LOCK (readdirlock); 604 X_LOCK (readdirlock);
595 605
596 e = readdir (dirp); 606 e = readdir (dirp);
… …
610 return e ? 0 : -1; 620 return e ? 0 : -1;
611} 621}
612#endif 622#endif
613 623
614/* sendfile always needs emulation */ 624/* sendfile always needs emulation */
625static ssize_t
615static ssize_t sendfile_ (int ofd, int ifd, off_t offset, size_t count, worker *self) 626eio__sendfile (int ofd, int ifd, off_t offset, size_t count, worker *self)
616{ 627{
617 ssize_t res; 628 ssize_t res;
618 629
619 if (!count) 630 if (!count)
620 return 0; 631 return 0;
… …
703 714
704 return res; 715 return res;
705} 716}
706 717
707/* read a full directory */ 718/* read a full directory */
719static void
708static void scandir_ (eio_req *req, worker *self) 720eio__scandir (eio_req *req, worker *self)
709{ 721{
710 DIR *dirp; 722 DIR *dirp;
711 union 723 union
712 { 724 {
713 EIO_STRUCT_DIRENT d; 725 EIO_STRUCT_DIRENT d;
… …
765 req->result = res; 777 req->result = res;
766} 778}
767 779
768/*****************************************************************************/ 780/*****************************************************************************/
769 781
782#define ALLOC(len) \
783 if (!req->ptr2) \
784 { \
785 X_LOCK (wrklock); \
786 req->flags |= EIO_FLAG_PTR2_FREE; \
787 X_UNLOCK (wrklock); \
788 req->ptr2 = malloc (len); \
789 if (!req->ptr2) \
790 { \
791 errno = ENOMEM; \
792 req->result = -1; \
793 break; \
794 } \
795 }
796
770X_THREAD_PROC (eio_proc) 797X_THREAD_PROC (eio_proc)
771{ 798{
772 eio_req *req; 799 eio_req *req;
773 struct timespec ts; 800 struct timespec ts;
774 worker *self = (worker *)thr_arg; 801 worker *self = (worker *)thr_arg;
… …
818 errno = 0; /* strictly unnecessary */ 845 errno = 0; /* strictly unnecessary */
819 846
820 if (!EIO_CANCELLED (req)) 847 if (!EIO_CANCELLED (req))
821 switch (req->type) 848 switch (req->type)
822 { 849 {
850 case EIO_READ: ALLOC (req->size);
823 case EIO_READ: req->result = req->offs >= 0 851 req->result = req->offs >= 0
824 ? pread (req->int1, req->ptr2, req->size, req->offs) 852 ? pread (req->int1, req->ptr2, req->size, req->offs)
825 : read (req->int1, req->ptr2, req->size); break; 853 : read (req->int1, req->ptr2, req->size); break;
826 case EIO_WRITE: req->result = req->offs >= 0 854 case EIO_WRITE: req->result = req->offs >= 0
827 ? pwrite (req->int1, req->ptr2, req->size, req->offs) 855 ? pwrite (req->int1, req->ptr2, req->size, req->offs)
828 : write (req->int1, req->ptr2, req->size); break; 856 : write (req->int1, req->ptr2, req->size); break;
829 857
830 case EIO_READAHEAD: req->result = readahead (req->int1, req->offs, req->size); break; 858 case EIO_READAHEAD: req->result = readahead (req->int1, req->offs, req->size); break;
831 case EIO_SENDFILE: req->result = sendfile_ (req->int1, req->int2, req->offs, req->size, self); break; 859 case EIO_SENDFILE: req->result = eio__sendfile (req->int1, req->int2, req->offs, req->size, self); break;
832 860
861 case EIO_STAT: ALLOC (sizeof (EIO_STRUCT_STAT));
833 case EIO_STAT: req->result = stat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break; 862 req->result = stat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
863 case EIO_LSTAT: ALLOC (sizeof (EIO_STRUCT_STAT));
834 case EIO_LSTAT: req->result = lstat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break; 864 req->result = lstat (req->ptr1, (EIO_STRUCT_STAT *)req->ptr2); break;
865 case EIO_FSTAT: ALLOC (sizeof (EIO_STRUCT_STAT));
835 case EIO_FSTAT: req->result = fstat (req->int1, (EIO_STRUCT_STAT *)req->ptr2); break; 866 req->result = fstat (req->int1, (EIO_STRUCT_STAT *)req->ptr2); break;
836 867
837 case EIO_CHOWN: req->result = chown (req->ptr1, req->int2, req->int3); break; 868 case EIO_CHOWN: req->result = chown (req->ptr1, req->int2, req->int3); break;
838 case EIO_FCHOWN: req->result = fchown (req->int1, req->int2, req->int3); break; 869 case EIO_FCHOWN: req->result = fchown (req->int1, req->int2, req->int3); break;
839 case EIO_CHMOD: req->result = chmod (req->ptr1, (mode_t)req->int2); break; 870 case EIO_CHMOD: req->result = chmod (req->ptr1, (mode_t)req->int2); break;
840 case EIO_FCHMOD: req->result = fchmod (req->int1, (mode_t)req->int2); break; 871 case EIO_FCHMOD: req->result = fchmod (req->int1, (mode_t)req->int2); break;
… …
849 case EIO_MKDIR: req->result = mkdir (req->ptr1, (mode_t)req->int2); break; 880 case EIO_MKDIR: req->result = mkdir (req->ptr1, (mode_t)req->int2); break;
850 case EIO_RENAME: req->result = rename (req->ptr1, req->ptr2); break; 881 case EIO_RENAME: req->result = rename (req->ptr1, req->ptr2); break;
851 case EIO_LINK: req->result = link (req->ptr1, req->ptr2); break; 882 case EIO_LINK: req->result = link (req->ptr1, req->ptr2); break;
852 case EIO_SYMLINK: req->result = symlink (req->ptr1, req->ptr2); break; 883 case EIO_SYMLINK: req->result = symlink (req->ptr1, req->ptr2); break;
853 case EIO_MKNOD: req->result = mknod (req->ptr1, (mode_t)req->int2, (dev_t)req->offs); break; 884 case EIO_MKNOD: req->result = mknod (req->ptr1, (mode_t)req->int2, (dev_t)req->offs); break;
885
886 case EIO_READLINK: ALLOC (NAME_MAX);
854 case EIO_READLINK: req->result = readlink (req->ptr1, req->ptr2, NAME_MAX); break; 887 req->result = readlink (req->ptr1, req->ptr2, NAME_MAX); break;
855 888
856 case EIO_SYNC: req->result = 0; sync (); break; 889 case EIO_SYNC: req->result = 0; sync (); break;
857 case EIO_FSYNC: req->result = fsync (req->int1); break; 890 case EIO_FSYNC: req->result = fsync (req->int1); break;
858 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break; 891 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break;
859 892
860 case EIO_READDIR: scandir_ (req, self); break; 893 case EIO_READDIR: eio__scandir (req, self); break;
861 894
862 case EIO_BUSY: 895 case EIO_BUSY:
863#ifdef _WIN32 896#ifdef _WIN32
864 Sleep (req->nv1 * 1000.); 897 Sleep (req->nv1 * 1000.);
865#else 898#else
… …
898 : utimes (req->ptr1, times); 931 : utimes (req->ptr1, times);
899 } 932 }
900 933
901 case EIO_GROUP: 934 case EIO_GROUP:
902 case EIO_NOP: 935 case EIO_NOP:
936 req->result = 0;
903 break; 937 break;
904 938
905 case EIO_QUIT: 939 case EIO_QUIT:
906 goto quit; 940 goto quit;
907 941
… …
1008#endif 1042#endif
1009 1043
1010 X_THREAD_ATFORK (eio_atfork_prepare, eio_atfork_parent, eio_atfork_child); 1044 X_THREAD_ATFORK (eio_atfork_prepare, eio_atfork_parent, eio_atfork_child);
1011} 1045}
1012 1046
1013#if 0 1047static void eio_api_destroy (eio_req *req)
1048{
1049 free (req);
1050}
1014 1051
1052#define REQ(rtype) \
1053 eio_req *req; \
1054 \
1055 req = (eio_req *)calloc (1, sizeof *req); \
1056 if (!req) \
1057 return 0; \
1058 \
1059 req->type = rtype; \
1060 req->pri = pri; \
1061 req->finish = cb; \
1062 req->data = data; \
1063 req->destroy = eio_api_destroy;
1064
1065#define SEND eio_submit (req); return req
1066
1067#define PATH \
1068 req->flags |= EIO_FLAG_PTR1_FREE; \
1069 req->ptr1 = strdup (path); \
1070 if (!req->ptr1) \
1071 { \
1072 eio_api_destroy (req); \
1073 return 0; \
1074 }
1075
1076#ifndef EIO_NO_WRAPPERS
1077
1078eio_req *eio_nop (int pri, eio_cb cb, void *data)
1079{
1080 REQ (EIO_NOP); SEND;
1081}
1082
1083eio_req *eio_busy (double delay, int pri, eio_cb cb, void *data)
1084{
1085 REQ (EIO_BUSY); req->nv1 = delay; SEND;
1086}
1087
1015eio_req *eio_fsync (int fd, eio_cb cb); 1088eio_req *eio_sync (int pri, eio_cb cb, void *data)
1089{
1090 REQ (EIO_SYNC); SEND;
1091}
1092
1093eio_req *eio_fsync (int fd, int pri, eio_cb cb, void *data)
1094{
1095 REQ (EIO_FSYNC); req->int1 = fd; SEND;
1096}
1097
1016eio_req *eio_fdatasync (int fd, eio_cb cb); 1098eio_req *eio_fdatasync (int fd, int pri, eio_cb cb, void *data)
1017eio_req *eio_dupclose (int fd, eio_cb cb); 1099{
1100 REQ (EIO_FDATASYNC); req->int1 = fd; SEND;
1101}
1102
1103eio_req *eio_close (int fd, int pri, eio_cb cb, void *data)
1104{
1105 REQ (EIO_CLOSE); req->int1 = fd; SEND;
1106}
1107
1018eio_req *eio_readahead (int fd, off_t offset, size_t length, eio_cb cb); 1108eio_req *eio_readahead (int fd, off_t offset, size_t length, int pri, eio_cb cb, void *data)
1019eio_req *eio_read (int fd, off_t offs, size_t length, char *data, eio_cb cb); 1109{
1020eio_req *eio_write (int fd, off_t offs, size_t length, char *data, eio_cb cb); 1110 REQ (EIO_READAHEAD); req->int1 = fd; req->offs = offset; req->size = length; SEND;
1021eio_req *eio_fstat (int fd, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */ 1111}
1112
1113eio_req *eio_read (int fd, void *buf, size_t length, off_t offset, int pri, eio_cb cb, void *data)
1114{
1115 REQ (EIO_READ); req->int1 = fd; req->offs = offset; req->size = length; req->ptr2 = buf; SEND;
1116}
1117
1118eio_req *eio_write (int fd, void *buf, size_t length, off_t offset, int pri, eio_cb cb, void *data)
1119{
1120 REQ (EIO_WRITE); req->int1 = fd; req->offs = offset; req->size = length; req->ptr2 = buf; SEND;
1121}
1122
1123eio_req *eio_fstat (int fd, int pri, eio_cb cb, void *data)
1124{
1125 REQ (EIO_FSTAT); req->int1 = fd; SEND;
1126}
1127
1022eio_req *eio_futime (int fd, double atime, double mtime, eio_cb cb); 1128eio_req *eio_futime (int fd, double atime, double mtime, int pri, eio_cb cb, void *data)
1129{
1130 REQ (EIO_FUTIME); req->int1 = fd; req->nv1 = atime; req->nv2 = mtime; SEND;
1131}
1132
1023eio_req *eio_ftruncate (int fd, off_t offset, eio_cb cb); 1133eio_req *eio_ftruncate (int fd, off_t offset, int pri, eio_cb cb, void *data)
1134{
1135 REQ (EIO_FTRUNCATE); req->int1 = fd; req->offs = offset; SEND;
1136}
1137
1024eio_req *eio_fchmod (int fd, mode_t mode, eio_cb cb); 1138eio_req *eio_fchmod (int fd, mode_t mode, int pri, eio_cb cb, void *data)
1139{
1140 REQ (EIO_FCHMOD); req->int1 = fd; req->int2 = (long)mode; SEND;
1141}
1142
1025eio_req *eio_fchown (int fd, uid_t uid, gid_t gid, eio_cb cb); 1143eio_req *eio_fchown (int fd, uid_t uid, gid_t gid, int pri, eio_cb cb, void *data)
1144{
1145 REQ (EIO_FCHOWN); req->int1 = fd; req->int2 = (long)uid; req->int3 = (long)gid; SEND;
1146}
1147
1026eio_req *eio_dup2 (int fd, int fd2, eio_cb cb); 1148eio_req *eio_dup2 (int fd, int fd2, int pri, eio_cb cb, void *data)
1149{
1150 REQ (EIO_DUP2); req->int1 = fd; req->int2 = fd2; SEND;
1151}
1152
1027eio_req *eio_sendfile (int out_fd, int in_fd, off_t in_offset, size_t length, eio_cb cb); 1153eio_req *eio_sendfile (int out_fd, int in_fd, off_t in_offset, size_t length, int pri, eio_cb cb, void *data)
1154{
1155 REQ (EIO_SENDFILE); req->int1 = out_fd; req->int2 = in_fd; req->offs = in_offset; req->size = length; SEND;
1156}
1157
1028eio_req *eio_open (const char *path, int flags, mode_t mode, eio_cb cb); 1158eio_req *eio_open (const char *path, int flags, mode_t mode, int pri, eio_cb cb, void *data)
1029eio_req *eio_readlink (const char *path, eio_cb cb); /* result=ptr2 allocated dynamically */ 1159{
1030eio_req *eio_stat (const char *path, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */ 1160 REQ (EIO_OPEN); PATH; req->int1 = flags; req->int2 = (long)mode; SEND;
1031eio_req *eio_lstat (const char *path, eio_cb cb); /* stat buffer=ptr2 allocates dynamically */ 1161}
1162
1032eio_req *eio_utime (const char *path, double atime, double mtime, eio_cb cb); 1163eio_req *eio_utime (const char *path, double atime, double mtime, int pri, eio_cb cb, void *data)
1164{
1165 REQ (EIO_UTIME); PATH; req->nv1 = atime; req->nv2 = mtime; SEND;
1166}
1167
1033eio_req *eio_truncate (const char *path, off_t offset, eio_cb cb); 1168eio_req *eio_truncate (const char *path, off_t offset, int pri, eio_cb cb, void *data)
1034eio_req *eio_chmod (const char *path, mode_t mode, eio_cb cb); 1169{
1035eio_req *eio_mkdir (const char *path, mode_t mode, eio_cb cb); 1170 REQ (EIO_TRUNCATE); PATH; req->offs = offset; SEND;
1171}
1172
1036eio_req *eio_chown (const char *path, uid_t uid, gid_t gid, eio_cb cb); 1173eio_req *eio_chown (const char *path, uid_t uid, gid_t gid, int pri, eio_cb cb, void *data)
1174{
1175 REQ (EIO_CHOWN); PATH; req->int2 = (long)uid; req->int3 = (long)gid; SEND;
1176}
1177
1178eio_req *eio_chmod (const char *path, mode_t mode, int pri, eio_cb cb, void *data)
1179{
1180 REQ (EIO_CHMOD); PATH; req->int2 = (long)mode; SEND;
1181}
1182
1183eio_req *eio_mkdir (const char *path, mode_t mode, int pri, eio_cb cb, void *data)
1184{
1185 REQ (EIO_MKDIR); PATH; req->int2 = (long)mode; SEND;
1186}
1187
1188static eio_req *
1189eio__1path (int type, const char *path, int pri, eio_cb cb, void *data)
1190{
1191 REQ (type); PATH; SEND;
1192}
1193
1194eio_req *eio_readlink (const char *path, int pri, eio_cb cb, void *data)
1195{
1196 return eio__1path (EIO_READLINK, path, pri, cb, data);
1197}
1198
1199eio_req *eio_stat (const char *path, int pri, eio_cb cb, void *data)
1200{
1201 return eio__1path (EIO_STAT, path, pri, cb, data);
1202}
1203
1204eio_req *eio_lstat (const char *path, int pri, eio_cb cb, void *data)
1205{
1206 return eio__1path (EIO_LSTAT, path, pri, cb, data);
1207}
1208
1037eio_req *eio_unlink (const char *path, eio_cb cb); 1209eio_req *eio_unlink (const char *path, int pri, eio_cb cb, void *data)
1210{
1211 return eio__1path (EIO_UNLINK, path, pri, cb, data);
1212}
1213
1038eio_req *eio_rmdir (const char *path, eio_cb cb); 1214eio_req *eio_rmdir (const char *path, int pri, eio_cb cb, void *data)
1039eio_req *eio_readdir (const char *path, eio_cb cb); /* result=ptr2 allocated dynamically */ 1215{
1216 return eio__1path (EIO_RMDIR, path, pri, cb, data);
1217}
1218
1219eio_req *eio_readdir (const char *path, int pri, eio_cb cb, void *data)
1220{
1221 return eio__1path (EIO_READDIR, path, pri, cb, data);
1222}
1223
1040eio_req *eio_mknod (const char *path, mode_t mode, dev_t dev, eio_cb cb); 1224eio_req *eio_mknod (const char *path, mode_t mode, dev_t dev, int pri, eio_cb cb, void *data)
1041eio_req *eio_busy (double delay, eio_cb cb); /* ties a thread for this long, simulating busyness */
1042eio_req *eio_nop (eio_cb cb); /* does nothing except go through the whole process */
1043void
1044aio_open (SV8 *pathname, int flags, int mode, SV *callback=&PL_sv_undef)
1045 PROTOTYPE: $$$;$
1046 PPCODE:
1047{ 1225{
1048 dREQ; 1226 REQ (EIO_MKNOD); PATH; req->int2 = (long)mode; req->int2 = (long)dev; SEND;
1049
1050 req->type = EIO_OPEN;
1051 req->sv1 = newSVsv (pathname);
1052 req->ptr1 = SvPVbyte_nolen (req->sv1);
1053 req->int1 = flags;
1054 req->int2 = mode;
1055
1056 EIO_SEND;
1057} 1227}
1058 1228
1059void 1229static eio_req *
1060aio_fsync (SV *fh, SV *callback=&PL_sv_undef) 1230eio__2path (int type, const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1061 PROTOTYPE: $;$
1062 ALIAS:
1063 aio_fsync = EIO_FSYNC
1064 aio_fdatasync = EIO_FDATASYNC
1065 PPCODE:
1066{ 1231{
1067 dREQ; 1232 REQ (type); PATH;
1068 1233
1069 req->type = ix;
1070 req->sv1 = newSVsv (fh);
1071 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh)));
1072
1073 EIO_SEND (req);
1074}
1075
1076void
1077aio_close (SV *fh, SV *callback=&PL_sv_undef)
1078 PROTOTYPE: $;$
1079 PPCODE:
1080{
1081 dREQ;
1082
1083 req->type = EIO_CLOSE;
1084 req->sv1 = newSVsv (fh);
1085 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh)));
1086
1087 EIO_SEND (req);
1088}
1089
1090void
1091aio_read (SV *fh, SV *offset, SV *length, SV8 *data, IV dataoffset, SV *callback=&PL_sv_undef)
1092 ALIAS:
1093 aio_read = EIO_READ
1094 aio_write = EIO_WRITE
1095 PROTOTYPE: $$$$$;$
1096 PPCODE:
1097{
1098 STRLEN svlen;
1099 char *svptr = SvPVbyte (data, svlen);
1100 UV len = SvUV (length);
1101
1102 SvUPGRADE (data, SVt_PV);
1103 SvPOK_on (data);
1104
1105 if (dataoffset < 0)
1106 dataoffset += svlen;
1107
1108 if (dataoffset < 0 || dataoffset > svlen)
1109 croak ("dataoffset outside of data scalar");
1110
1111 if (ix == EIO_WRITE)
1112 {
1113 /* write: check length and adjust. */
1114 if (!SvOK (length) || len + dataoffset > svlen)
1115 len = svlen - dataoffset;
1116 }
1117 else
1118 {
1119 /* read: grow scalar as necessary */
1120 svptr = SvGROW (data, len + dataoffset + 1);
1121 }
1122
1123 if (len < 0)
1124 croak ("length must not be negative");
1125
1126 {
1127 dREQ;
1128
1129 req->type = ix;
1130 req->sv1 = newSVsv (fh);
1131 req->int1 = PerlIO_fileno (ix == EIO_READ ? IoIFP (sv_2io (fh))
1132 : IoOFP (sv_2io (fh)));
1133 req->offs = SvOK (offset) ? SvVAL64 (offset) : -1;
1134 req->size = len;
1135 req->sv2 = SvREFCNT_inc (data);
1136 req->ptr2 = (char *)svptr + dataoffset;
1137 req->stroffset = dataoffset;
1138
1139 if (!SvREADONLY (data))
1140 {
1141 SvREADONLY_on (data);
1142 req->flags |= FLAG_SV2_RO_OFF;
1143 }
1144
1145 EIO_SEND;
1146 }
1147}
1148
1149void
1150aio_readlink (SV8 *path, SV *callback=&PL_sv_undef)
1151 PROTOTYPE: $$;$
1152 PPCODE:
1153{
1154 SV *data;
1155 dREQ;
1156
1157 data = newSV (NAME_MAX);
1158 SvPOK_on (data);
1159
1160 req->type = EIO_READLINK;
1161 req->sv1 = newSVsv (path);
1162 req->ptr1 = SvPVbyte_nolen (req->sv1);
1163 req->sv2 = data;
1164 req->ptr2 = SvPVbyte_nolen (data);
1165
1166 EIO_SEND;
1167}
1168
1169void
1170aio_sendfile (SV *out_fh, SV *in_fh, SV *in_offset, UV length, SV *callback=&PL_sv_undef)
1171 PROTOTYPE: $$$$;$
1172 PPCODE:
1173{
1174 dREQ;
1175
1176 req->type = EIO_SENDFILE;
1177 req->sv1 = newSVsv (out_fh);
1178 req->int1 = PerlIO_fileno (IoIFP (sv_2io (out_fh)));
1179 req->sv2 = newSVsv (in_fh);
1180 req->int2 = PerlIO_fileno (IoIFP (sv_2io (in_fh)));
1181 req->offs = SvVAL64 (in_offset);
1182 req->size = length;
1183
1184 EIO_SEND;
1185}
1186
1187void
1188aio_readahead (SV *fh, SV *offset, IV length, SV *callback=&PL_sv_undef)
1189 PROTOTYPE: $$$;$
1190 PPCODE:
1191{
1192 dREQ;
1193
1194 req->type = EIO_READAHEAD;
1195 req->sv1 = newSVsv (fh);
1196 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh)));
1197 req->offs = SvVAL64 (offset);
1198 req->size = length;
1199
1200 EIO_SEND;
1201}
1202
1203void
1204aio_stat (SV8 *fh_or_path, SV *callback=&PL_sv_undef)
1205 ALIAS:
1206 aio_stat = EIO_STAT
1207 aio_lstat = EIO_LSTAT
1208 PPCODE:
1209{
1210 dREQ;
1211
1212 req->ptr2 = malloc (sizeof (EIO_STRUCT_STAT));
1213 if (!req->ptr2)
1214 {
1215 req_destroy (req);
1216 croak ("out of memory during aio_stat statdata allocation");
1217 }
1218
1219 req->flags |= FLAG_PTR2_FREE; 1234 req->flags |= EIO_FLAG_PTR2_FREE;
1220 req->sv1 = newSVsv (fh_or_path); 1235 req->ptr2 = strdup (new_path);
1236 if (!req->ptr2)
1237 {
1238 eio_api_destroy (req);
1239 return 0;
1240 }
1221 1241
1222 if (SvPOK (fh_or_path)) 1242 SEND;
1223 {
1224 req->type = ix;
1225 req->ptr1 = SvPVbyte_nolen (req->sv1);
1226 }
1227 else
1228 {
1229 req->type = EIO_FSTAT;
1230 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1231 }
1232
1233 EIO_SEND;
1234} 1243}
1235 1244
1236void 1245eio_req *eio_link (const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1237aio_utime (SV8 *fh_or_path, SV *atime, SV *mtime, SV *callback=&PL_sv_undef)
1238 PPCODE:
1239{ 1246{
1240 dREQ; 1247 return eio__2path (EIO_LINK, path, new_path, pri, cb, data);
1241
1242 req->nv1 = SvOK (atime) ? SvNV (atime) : -1.;
1243 req->nv2 = SvOK (mtime) ? SvNV (mtime) : -1.;
1244 req->sv1 = newSVsv (fh_or_path);
1245
1246 if (SvPOK (fh_or_path))
1247 {
1248 req->type = EIO_UTIME;
1249 req->ptr1 = SvPVbyte_nolen (req->sv1);
1250 }
1251 else
1252 {
1253 req->type = EIO_FUTIME;
1254 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1255 }
1256
1257 EIO_SEND;
1258} 1248}
1259 1249
1260void 1250eio_req *eio_symlink (const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1261aio_truncate (SV8 *fh_or_path, SV *offset, SV *callback=&PL_sv_undef)
1262 PPCODE:
1263{ 1251{
1264 dREQ; 1252 return eio__2path (EIO_SYMLINK, path, new_path, pri, cb, data);
1265
1266 req->sv1 = newSVsv (fh_or_path);
1267 req->offs = SvOK (offset) ? SvVAL64 (offset) : -1;
1268
1269 if (SvPOK (fh_or_path))
1270 {
1271 req->type = EIO_TRUNCATE;
1272 req->ptr1 = SvPVbyte_nolen (req->sv1);
1273 }
1274 else
1275 {
1276 req->type = EIO_FTRUNCATE;
1277 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1278 }
1279
1280 EIO_SEND;
1281} 1253}
1282 1254
1283void 1255eio_req *eio_rename (const char *path, const char *new_path, int pri, eio_cb cb, void *data)
1284aio_chmod (SV8 *fh_or_path, int mode, SV *callback=&PL_sv_undef)
1285 ALIAS:
1286 aio_chmod = EIO_CHMOD
1287 aio_fchmod = EIO_FCHMOD
1288 aio_mkdir = EIO_MKDIR
1289 PPCODE:
1290{ 1256{
1291 dREQ; 1257 return eio__2path (EIO_RENAME, path, new_path, pri, cb, data);
1292
1293 req->type = type;
1294 req->int2 = mode;
1295 req->sv1 = newSVsv (fh_or_path);
1296
1297 if (ix == EIO_FCHMOD)
1298 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1299 else
1300 req->ptr1 = SvPVbyte_nolen (req->sv1);
1301
1302 EIO_SEND;
1303} 1258}
1304 1259
1305void
1306aio_chown (SV8 *fh_or_path, SV *uid, SV *gid, SV *callback=&PL_sv_undef)
1307 PPCODE:
1308{
1309 dREQ;
1310
1311 req->int2 = SvOK (uid) ? SvIV (uid) : -1;
1312 req->int3 = SvOK (gid) ? SvIV (gid) : -1;
1313 req->sv1 = newSVsv (fh_or_path);
1314
1315 if (SvPOK (fh_or_path))
1316 {
1317 req->type = EIO_CHOWN;
1318 req->ptr1 = SvPVbyte_nolen (req->sv1);
1319 }
1320 else
1321 {
1322 req->type = EIO_FCHOWN;
1323 req->int1 = PerlIO_fileno (IoIFP (sv_2io (fh_or_path)));
1324 }
1325
1326 EIO_SEND;
1327}
1328
1329void
1330aio_unlink (SV8 *pathname, SV *callback=&PL_sv_undef)
1331 ALIAS:
1332 aio_unlink = EIO_UNLINK
1333 aio_rmdir = EIO_RMDIR
1334 aio_readdir = EIO_READDIR
1335 PPCODE:
1336{
1337 dREQ;
1338
1339 req->type = ix;
1340 req->sv1 = newSVsv (pathname);
1341 req->ptr1 = SvPVbyte_nolen (req->sv1);
1342
1343 EIO_SEND;
1344}
1345
1346void
1347aio_link (SV8 *oldpath, SV8 *newpath, SV *callback=&PL_sv_undef)
1348 ALIAS:
1349 aio_link = EIO_LINK
1350 aio_symlink = EIO_SYMLINK
1351 aio_rename = EIO_RENAME
1352 PPCODE:
1353{
1354 dREQ;
1355
1356 req->type = ix;
1357 req->sv1 = newSVsv (oldpath);
1358 req->ptr1 = SvPVbyte_nolen (req->sv1);
1359 req->sv2 = newSVsv (newpath);
1360 req->ptr2 = SvPVbyte_nolen (req->sv2);
1361
1362 EIO_SEND;
1363}
1364
1365void
1366aio_mknod (SV8 *pathname, int mode, UV dev, SV *callback=&PL_sv_undef)
1367 PPCODE:
1368{
1369 dREQ;
1370
1371 req->type = EIO_MKNOD;
1372 req->sv1 = newSVsv (pathname);
1373 req->ptr1 = SvPVbyte_nolen (req->sv1);
1374 req->int2 = (mode_t)mode;
1375 req->offs = dev;
1376
1377 EIO_SEND;
1378}
1379
1380void
1381aio_busy (double delay, SV *callback=&PL_sv_undef)
1382 PPCODE:
1383{
1384 dREQ;
1385
1386 req->type = EIO_BUSY;
1387 req->nv1 = delay < 0. ? 0. : delay;
1388
1389 EIO_SEND;
1390}
1391
1392void
1393aio_group (SV *callback=&PL_sv_undef)
1394 PROTOTYPE: ;$
1395 PPCODE:
1396{
1397 dREQ;
1398
1399 req->type = EIO_GROUP;
1400
1401 req_send (req);
1402 XPUSHs (req_sv (req, AIO_GRP_KLASS));
1403}
1404
1405void
1406aio_nop (SV *callback=&PL_sv_undef)
1407 ALIAS:
1408 aio_nop = EIO_NOP
1409 aio_sync = EIO_SYNC
1410 PPCODE:
1411{
1412 dREQ;
1413
1414#endif 1260#endif
1261
1262eio_req *eio_grp (eio_cb cb, void *data)
1263{
1264 const int pri = EIO_PRI_MAX;
1265
1266 REQ (EIO_GROUP); SEND;
1267}
1268
1269#undef REQ
1270#undef PATH
1271#undef SEND
1272
1273/*****************************************************************************/
1274/* grp functions */
1415 1275
1416void eio_grp_feed (eio_req *grp, void (*feed)(eio_req *req), int limit) 1276void eio_grp_feed (eio_req *grp, void (*feed)(eio_req *req), int limit)
1417{ 1277{
1418 grp->int2 = limit; 1278 grp->int2 = limit;
1419 grp->feed = feed; 1279 grp->feed = feed;
… …
1442 grp->grp_first->grp_prev = req; 1302 grp->grp_first->grp_prev = req;
1443 1303
1444 grp->grp_first = req; 1304 grp->grp_first = req;
1445} 1305}
1446 1306
1307/*****************************************************************************/
1308/* misc garbage */
1447 1309
1310ssize_t eio_sendfile_sync (int ofd, int ifd, off_t offset, size_t count)
1311{
1312 worker wrk;
1313
1314 wrk.dbuf = 0;
1315
1316 eio__sendfile (ofd, ifd, offset, count, &wrk);
1317
1318 if (wrk.dbuf)
1319 free (wrk.dbuf);
1320}
1321

Diff Legend

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