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.66 by root, Mon Oct 23 22:54:27 2006 UTC vs.
Revision 1.70 by root, Tue Oct 24 03:40:38 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
… …
76use base 'Exporter'; 77use base 'Exporter';
77 78
78BEGIN { 79BEGIN {
79 our $VERSION = '2.0'; 80 our $VERSION = '2.0';
80 81
81 our @EXPORT = 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_OK = qw(poll_fileno poll_cb min_parallel max_parallel max_outstanding nreqs); 86 our @EXPORT = (@AIO_REQ, qw(aioreq_pri aioreq_nice));
87 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush
88 min_parallel max_parallel max_outstanding nreqs);
86 89
87 @IO::AIO::GRP::ISA = 'IO::AIO::REQ'; 90 @IO::AIO::GRP::ISA = 'IO::AIO::REQ';
88 91
89 require XSLoader; 92 require XSLoader;
90 XSLoader::load ("IO::AIO", $VERSION); 93 XSLoader::load ("IO::AIO", $VERSION);
… …
120your pathnames to the locale (or other) encoding in effect in the user 123your pathnames to the locale (or other) encoding in effect in the user
121environment, d) use Glib::filename_from_unicode on unicode filenames or e) 124environment, d) use Glib::filename_from_unicode on unicode filenames or e)
122use something else. 125use something else.
123 126
124=over 4 127=over 4
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.
125 156
126=item aio_open $pathname, $flags, $mode, $callback->($fh) 157=item aio_open $pathname, $flags, $mode, $callback->($fh)
127 158
128Asynchronously 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
129created filehandle for the file. 160created filehandle for the file.
… …
679example, C<aio_scandir> might generate hundreds of thousands C<aio_stat> 710example, C<aio_scandir> might generate hundreds of thousands C<aio_stat>
680requests, delaying any later requests for a long time. 711requests, delaying any later requests for a long time.
681 712
682To avoid this, and allow incremental generation of requests, you can 713To avoid this, and allow incremental generation of requests, you can
683instead a group and set a feeder on it that generates those requests. The 714instead a group and set a feeder on it that generates those requests. The
684feed callback will be called whenever there are few enough (see C<feed_limit>, 715feed callback will be called whenever there are few enough (see C<limit>,
685below) requests active in the group itself and is expected to queue more 716below) requests active in the group itself and is expected to queue more
686requests. 717requests.
687 718
688The feed can queue as many requests as it likes (i.e. C<add> does not 719The feed callback can queue as many requests as it likes (i.e. C<add> does
689impose any limits). 720not impose any limits).
690 721
691If the feed does not queue more requests when called, it will be 722If the feed does not queue more requests when called, it will be
692automatically removed from the group. 723automatically removed from the group.
693 724
694If the feed limit is C<0>, it will be set to C<2> automatically. 725If the feed limit is C<0>, it will be set to C<2> automatically.
… …
696Example: 727Example:
697 728
698 # stat all files in @files, but only ever use four aio requests concurrently: 729 # stat all files in @files, but only ever use four aio requests concurrently:
699 730
700 my $grp = aio_group sub { print "finished\n" }; 731 my $grp = aio_group sub { print "finished\n" };
701 feed_limit $grp 4; 732 limit $grp 4;
702 feed $grp sub { 733 feed $grp sub {
703 my $file = pop @files 734 my $file = pop @files
704 or return; 735 or return;
705 736
706 add $grp aio_stat $file, sub { ... }; 737 add $grp aio_stat $file, sub { ... };
707 }; 738 };
708 739
709=item feed_limit $grp $num 740=item limit $grp $num
710 741
711Sets the feeder limit for the group: The feeder will be called whenever 742Sets the feeder limit for the group: The feeder will be called whenever
712the group contains less than this many requests. 743the group contains less than this many requests.
713 744
714Setting the limit to C<0> will pause the feeding process. 745Setting the limit to C<0> will pause the feeding process.
… …
884Each thread needs a stack area which is usually around 16k, sometimes much 915Each thread needs a stack area which is usually around 16k, sometimes much
885larger, depending on the OS. 916larger, depending on the OS.
886 917
887=head1 SEE ALSO 918=head1 SEE ALSO
888 919
889L<Coro>, L<Linux::AIO> (obsolete). 920L<Coro::AIO>.
890 921
891=head1 AUTHOR 922=head1 AUTHOR
892 923
893 Marc Lehmann <schmorp@schmorp.de> 924 Marc Lehmann <schmorp@schmorp.de>
894 http://home.schmorp.de/ 925 http://home.schmorp.de/

Diff Legend

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