ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/IO-AIO/AIO.pm
(Generate patch)

Comparing IO-AIO/AIO.pm (file contents):
Revision 1.67 by root, Tue Oct 24 02:25:16 2006 UTC vs.
Revision 1.71 by root, Tue Oct 24 11:57:30 2006 UTC

18 }; 18 };
19 19
20 # version 2+ has request and group objects 20 # version 2+ has request and group objects
21 use IO::AIO 2; 21 use IO::AIO 2;
22 22
23 aioreq_pri 4; # give next request a very high priority
23 my $req = aio_unlink "/tmp/file", sub { }; 24 my $req = aio_unlink "/tmp/file", sub { };
24 $req->cancel; # cancel request if still in queue 25 $req->cancel; # cancel request if still in queue
25 26
26 my $grp = aio_group sub { print "all stats done\n" }; 27 my $grp = aio_group sub { print "all stats done\n" };
27 add $grp aio_stat "..." for ...; 28 add $grp aio_stat "..." for ...;
59on many operating systems. However, they are often not well-supported 60on many operating systems. However, they are often not well-supported
60(Linux doesn't allow them on normal files currently, for example), 61(Linux doesn't allow them on normal files currently, for example),
61and they would only support aio_read and aio_write, so the remaining 62and they would only support aio_read and aio_write, so the remaining
62functionality would have to be implemented using threads anyway. 63functionality would have to be implemented using threads anyway.
63 64
64Although the module will work with in the presence of other threads, it is 65Although the module will work with in the presence of other threads,
65currently not reentrant, so use appropriate locking yourself, always call 66it is currently not reentrant in any way, so use appropriate locking
66C<poll_cb> from within the same thread, or never call C<poll_cb> (or other 67yourself, always call C<poll_cb> from within the same thread, or never
67C<aio_> functions) recursively. 68call C<poll_cb> (or other C<aio_> functions) recursively.
68 69
69=cut 70=cut
70 71
71package IO::AIO; 72package IO::AIO;
72 73
80 81
81 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat 82 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat
82 aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink 83 aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink
83 aio_fsync aio_fdatasync aio_readahead aio_rename aio_link aio_move 84 aio_fsync aio_fdatasync aio_readahead aio_rename aio_link aio_move
84 aio_group aio_nop); 85 aio_group aio_nop);
85 our @EXPORT = (@AIO_REQ, qw(aioreq_pri)); 86 our @EXPORT = (@AIO_REQ, qw(aioreq_pri aioreq_nice));
86 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush 87 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush
87 min_parallel max_parallel max_outstanding nreqs); 88 min_parallel max_parallel max_outstanding nreqs);
88 89
89 @IO::AIO::GRP::ISA = 'IO::AIO::REQ'; 90 @IO::AIO::GRP::ISA = 'IO::AIO::REQ';
90 91
123environment, d) use Glib::filename_from_unicode on unicode filenames or e) 124environment, d) use Glib::filename_from_unicode on unicode filenames or e)
124use something else. 125use something else.
125 126
126=over 4 127=over 4
127 128
129=item aioreq_pri $pri
130
131Sets the priority for the next aio request. The default priority
132is C<0>, the minimum and maximum priorities are C<-4> and C<4>,
133respectively. Requests with higher priority will be serviced first.
134
135The priority will be reset to C<0> after each call to one of the C<aio_>
136functions.
137
138Example: open a file with low priority, then read something from it with
139higher priority so the read request is serviced before other low priority
140open requests (potentially spamming the cache):
141
142 aioreq_pri -3;
143 aio_open ..., sub {
144 return unless $_[0];
145
146 aioreq_pri -2;
147 aio_read $_[0], ..., sub {
148 ...
149 };
150 };
151
152=item aioreq_nice $pri_adjust
153
154Similar to C<aioreq_pri>, but subtracts the given value from the current
155priority, so effects are cumulative.
156
128=item aio_open $pathname, $flags, $mode, $callback->($fh) 157=item aio_open $pathname, $flags, $mode, $callback->($fh)
129 158
130Asynchronously open or create a file and call the callback with a newly 159Asynchronously open or create a file and call the callback with a newly
131created filehandle for the file. 160created filehandle for the file.
132 161
183 $_[0] > 0 or die "read error: $!"; 212 $_[0] > 0 or die "read error: $!";
184 print "read $_[0] bytes: <$buffer>\n"; 213 print "read $_[0] bytes: <$buffer>\n";
185 }; 214 };
186 215
187=item aio_move $srcpath, $dstpath, $callback->($status) 216=item aio_move $srcpath, $dstpath, $callback->($status)
188
189[EXPERIMENTAL due to internal aio_group use]
190 217
191Try to move the I<file> (directories not supported as either source or 218Try to move the I<file> (directories not supported as either source or
192destination) from C<$srcpath> to C<$dstpath> and call the callback with 219destination) from C<$srcpath> to C<$dstpath> and call the callback with
193the C<0> (error) or C<-1> ok. 220the C<0> (error) or C<-1> ok.
194 221
346 373
347The callback a single argument which is either C<undef> or an array-ref 374The callback a single argument which is either C<undef> or an array-ref
348with the filenames. 375with the filenames.
349 376
350=item aio_scandir $path, $maxreq, $callback->($dirs, $nondirs) 377=item aio_scandir $path, $maxreq, $callback->($dirs, $nondirs)
351
352[EXPERIMENTAL due to internal aio_group use]
353 378
354Scans a directory (similar to C<aio_readdir>) but additionally tries to 379Scans a directory (similar to C<aio_readdir>) but additionally tries to
355separate the entries of directory C<$path> into two sets of names, ones 380separate the entries of directory C<$path> into two sets of names, ones
356you can recurse into (directories or links to them), and ones you cannot 381you can recurse into (directories or links to them), and ones you cannot
357recurse into (everything else). 382recurse into (everything else).
519 544
520[EXPERIMENTAL] 545[EXPERIMENTAL]
521 546
522This is a very special aio request: Instead of doing something, it is a 547This is a very special aio request: Instead of doing something, it is a
523container for other aio requests, which is useful if you want to bundle 548container for other aio requests, which is useful if you want to bundle
524many requests into a single, composite, request. 549many requests into a single, composite, request with a definite callback
550and the ability to cancel the whole request with its subrequests.
525 551
526Returns an object of class L<IO::AIO::GRP>. See its documentation below 552Returns an object of class L<IO::AIO::GRP>. See its documentation below
527for more info. 553for more info.
528 554
529Example: 555Example:
548phase and still requires a worker thread. Thus, the callback will not 574phase and still requires a worker thread. Thus, the callback will not
549be executed immediately but only after other requests in the queue have 575be executed immediately but only after other requests in the queue have
550entered their execution phase. This can be used to measure request 576entered their execution phase. This can be used to measure request
551latency. 577latency.
552 578
553=item IO::AIO::aio_sleep $fractional_seconds, $callback->() *NOT EXPORTED* 579=item IO::AIO::aio_busy $fractional_seconds, $callback->() *NOT EXPORTED*
554 580
555Mainly used for debugging and benchmarking, this aio request puts one of 581Mainly used for debugging and benchmarking, this aio request puts one of
556the request workers to sleep for the given time. 582the request workers to sleep for the given time.
557 583
558While it is theoretically handy to have simple I/O scheduling requests 584While it is theoretically handy to have simple I/O scheduling requests
559like sleep and file handle readable/writable, the overhead this creates 585like sleep and file handle readable/writable, the overhead this creates is
560is immense, so do not use this function except to put your application 586immense (it blocks a thread for a long time) so do not use this function
561under artificial I/O pressure. 587except to put your application under artificial I/O pressure.
562 588
563=back 589=back
564 590
565=head2 IO::AIO::REQ CLASS 591=head2 IO::AIO::REQ CLASS
566 592
681example, C<aio_scandir> might generate hundreds of thousands C<aio_stat> 707example, C<aio_scandir> might generate hundreds of thousands C<aio_stat>
682requests, delaying any later requests for a long time. 708requests, delaying any later requests for a long time.
683 709
684To avoid this, and allow incremental generation of requests, you can 710To avoid this, and allow incremental generation of requests, you can
685instead a group and set a feeder on it that generates those requests. The 711instead a group and set a feeder on it that generates those requests. The
686feed callback will be called whenever there are few enough (see C<feed_limit>, 712feed callback will be called whenever there are few enough (see C<limit>,
687below) requests active in the group itself and is expected to queue more 713below) requests active in the group itself and is expected to queue more
688requests. 714requests.
689 715
690The feed can queue as many requests as it likes (i.e. C<add> does not 716The feed callback can queue as many requests as it likes (i.e. C<add> does
691impose any limits). 717not impose any limits).
692 718
693If the feed does not queue more requests when called, it will be 719If the feed does not queue more requests when called, it will be
694automatically removed from the group. 720automatically removed from the group.
695 721
696If the feed limit is C<0>, it will be set to C<2> automatically. 722If the feed limit is C<0>, it will be set to C<2> automatically.
698Example: 724Example:
699 725
700 # stat all files in @files, but only ever use four aio requests concurrently: 726 # stat all files in @files, but only ever use four aio requests concurrently:
701 727
702 my $grp = aio_group sub { print "finished\n" }; 728 my $grp = aio_group sub { print "finished\n" };
703 feed_limit $grp 4; 729 limit $grp 4;
704 feed $grp sub { 730 feed $grp sub {
705 my $file = pop @files 731 my $file = pop @files
706 or return; 732 or return;
707 733
708 add $grp aio_stat $file, sub { ... }; 734 add $grp aio_stat $file, sub { ... };
709 }; 735 };
710 736
711=item feed_limit $grp $num 737=item limit $grp $num
712 738
713Sets the feeder limit for the group: The feeder will be called whenever 739Sets the feeder limit for the group: The feeder will be called whenever
714the group contains less than this many requests. 740the group contains less than this many requests.
715 741
716Setting the limit to C<0> will pause the feeding process. 742Setting the limit to C<0> will pause the feeding process.
886Each thread needs a stack area which is usually around 16k, sometimes much 912Each thread needs a stack area which is usually around 16k, sometimes much
887larger, depending on the OS. 913larger, depending on the OS.
888 914
889=head1 SEE ALSO 915=head1 SEE ALSO
890 916
891L<Coro>, L<Linux::AIO> (obsolete). 917L<Coro::AIO>.
892 918
893=head1 AUTHOR 919=head1 AUTHOR
894 920
895 Marc Lehmann <schmorp@schmorp.de> 921 Marc Lehmann <schmorp@schmorp.de>
896 http://home.schmorp.de/ 922 http://home.schmorp.de/

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines