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.118 by root, Thu Nov 29 20:57:02 2007 UTC vs.
Revision 1.136 by root, Tue Sep 30 14:07:59 2008 UTC

… …
26 $req->cancel; # cancel request if still in queue 26 $req->cancel; # cancel request if still in queue
27 27
28 my $grp = aio_group sub { print "all stats done\n" }; 28 my $grp = aio_group sub { print "all stats done\n" };
29 add $grp aio_stat "..." for ...; 29 add $grp aio_stat "..." for ...;
30 30
31 # AnyEvent integration (EV, Event, Glib, Tk, urxvt, pureperl...) 31 # AnyEvent integration (EV, Event, Glib, Tk, POE, urxvt, pureperl...)
32 open my $fh, "<&=" . IO::AIO::poll_fileno or die "$!"; 32 use AnyEvent::AIO;
33 my $w = AnyEvent->io (fh => $fh, poll => 'r', cb => sub { IO::AIO::poll_cb });
34 33
35 # EV integration 34 # EV integration
36 my $w = EV::io IO::AIO::poll_fileno, EV::READ, \&IO::AIO::poll_cb; 35 my $w = EV::io IO::AIO::poll_fileno, EV::READ, \&IO::AIO::poll_cb;
37 36
38 # Event integration 37 # Event integration
… …
194use strict 'vars'; 193use strict 'vars';
195 194
196use base 'Exporter'; 195use base 'Exporter';
197 196
198BEGIN { 197BEGIN {
199 our $VERSION = '2.51'; 198 our $VERSION = '3.1';
200 199
201 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat 200 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close
202 aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink 201 aio_stat aio_lstat aio_unlink aio_rmdir aio_readdir
203 aio_readlink aio_fsync aio_fdatasync aio_readahead aio_rename aio_link 202 aio_scandir aio_symlink aio_readlink aio_sync aio_fsync
203 aio_fdatasync aio_pathsync aio_readahead
204 aio_rename aio_link aio_move aio_copy aio_group
204 aio_move aio_copy aio_group aio_nop aio_mknod aio_load aio_rmtree aio_mkdir 205 aio_nop aio_mknod aio_load aio_rmtree aio_mkdir aio_chown
205 aio_chown aio_chmod aio_utime aio_truncate); 206 aio_chmod aio_utime aio_truncate);
207
206 our @EXPORT = (@AIO_REQ, qw(aioreq_pri aioreq_nice aio_block)); 208 our @EXPORT = (@AIO_REQ, qw(aioreq_pri aioreq_nice));
207 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush 209 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush
208 min_parallel max_parallel max_idle 210 min_parallel max_parallel max_idle
209 nreqs nready npending nthreads 211 nreqs nready npending nthreads
210 max_poll_time max_poll_reqs); 212 max_poll_time max_poll_reqs);
211 213
… …
222All the C<aio_*> calls are more or less thin wrappers around the syscall 224All the C<aio_*> calls are more or less thin wrappers around the syscall
223with the same name (sans C<aio_>). The arguments are similar or identical, 225with the same name (sans C<aio_>). The arguments are similar or identical,
224and they all accept an additional (and optional) C<$callback> argument 226and they all accept an additional (and optional) C<$callback> argument
225which must be a code reference. This code reference will get called with 227which must be a code reference. This code reference will get called with
226the syscall return code (e.g. most syscalls return C<-1> on error, unlike 228the syscall return code (e.g. most syscalls return C<-1> on error, unlike
227perl, which usually delivers "false") as it's sole argument when the given 229perl, which usually delivers "false") as its sole argument after the given
228syscall has been executed asynchronously. 230syscall has been executed asynchronously.
229 231
230All functions expecting a filehandle keep a copy of the filehandle 232All functions expecting a filehandle keep a copy of the filehandle
231internally until the request has finished. 233internally until the request has finished.
232 234
… …
246your pathnames to the locale (or other) encoding in effect in the user 248your pathnames to the locale (or other) encoding in effect in the user
247environment, d) use Glib::filename_from_unicode on unicode filenames or e) 249environment, d) use Glib::filename_from_unicode on unicode filenames or e)
248use something else to ensure your scalar has the correct contents. 250use something else to ensure your scalar has the correct contents.
249 251
250This works, btw. independent of the internal UTF-8 bit, which IO::AIO 252This works, btw. independent of the internal UTF-8 bit, which IO::AIO
251handles correctly wether it is set or not. 253handles correctly whether it is set or not.
252 254
253=over 4 255=over 4
254 256
255=item $prev_pri = aioreq_pri [$pri] 257=item $prev_pri = aioreq_pri [$pri]
256 258
… …
319 321
320Asynchronously close a file and call the callback with the result 322Asynchronously close a file and call the callback with the result
321code. 323code.
322 324
323Unfortunately, you can't do this to perl. Perl I<insists> very strongly on 325Unfortunately, you can't do this to perl. Perl I<insists> very strongly on
324closing the file descriptor associated with the filehandle itself. Here is 326closing the file descriptor associated with the filehandle itself.
325what aio_close will try:
326 327
327 1. dup()licate the fd 328Therefore, C<aio_close> will not close the filehandle - instead it will
328 2. asynchronously close() the duplicated fd 329use dup2 to overwrite the file descriptor with the write-end of a pipe
329 3. dup()licate the fd once more 330(the pipe fd will be created on demand and will be cached).
330 4. let perl close() the filehandle
331 5. asynchronously close the duplicated fd
332 331
333The idea is that the first close() flushes stuff to disk that closing an 332Or in other words: the file descriptor will be closed, but it will not be
334fd will flush, so when perl closes the fd, nothing much will need to be 333free for reuse until the perl filehandle is closed.
335flushed. The second async. close() will then flush stuff to disk that
336closing the last fd to the file will flush.
337
338Just FYI, SuSv3 has this to say on close:
339
340 All outstanding record locks owned by the process on the file
341 associated with the file descriptor shall be removed.
342
343 If fildes refers to a socket, close() shall cause the socket to be
344 destroyed. ... close() shall block for up to the current linger
345 interval until all data is transmitted.
346 [this actually sounds like a specification bug, but who knows]
347
348And at least Linux additionally actually flushes stuff on every close,
349even when the file itself is still open.
350
351Sounds enourmously inefficient and complicated? Yes... please show me how
352to nuke perl's fd out of existence...
353 334
354=cut 335=cut
355
356sub aio_close($;$) {
357 aio_block {
358 my ($fh, $cb) = @_;
359
360 my $pri = aioreq_pri;
361 my $grp = aio_group $cb;
362
363 my $fd = fileno $fh;
364
365 defined $fd or Carp::croak "aio_close called with fd-less filehandle";
366
367 # if the dups fail we will simply get EBADF
368 my $fd2 = _dup $fd;
369 aioreq_pri $pri;
370 add $grp _aio_close $fd2, sub {
371 my $fd2 = _dup $fd;
372 close $fh;
373 aioreq_pri $pri;
374 add $grp _aio_close $fd2, sub {
375 $grp->result ($_[0]);
376 };
377 };
378
379 $grp
380 }
381}
382
383 336
384=item aio_read $fh,$offset,$length, $data,$dataoffset, $callback->($retval) 337=item aio_read $fh,$offset,$length, $data,$dataoffset, $callback->($retval)
385 338
386=item aio_write $fh,$offset,$length, $data,$dataoffset, $callback->($retval) 339=item aio_write $fh,$offset,$length, $data,$dataoffset, $callback->($retval)
387 340
… …
586memory. Status is the same as with aio_read. 539memory. Status is the same as with aio_read.
587 540
588=cut 541=cut
589 542
590sub aio_load($$;$) { 543sub aio_load($$;$) {
591 aio_block {
592 my ($path, undef, $cb) = @_; 544 my ($path, undef, $cb) = @_;
593 my $data = \$_[1]; 545 my $data = \$_[1];
594 546
595 my $pri = aioreq_pri; 547 my $pri = aioreq_pri;
596 my $grp = aio_group $cb; 548 my $grp = aio_group $cb;
549
550 aioreq_pri $pri;
551 add $grp aio_open $path, O_RDONLY, 0, sub {
552 my $fh = shift
553 or return $grp->result (-1);
597 554
598 aioreq_pri $pri; 555 aioreq_pri $pri;
599 add $grp aio_open $path, O_RDONLY, 0, sub {
600 my $fh = shift
601 or return $grp->result (-1);
602
603 aioreq_pri $pri;
604 add $grp aio_read $fh, 0, (-s $fh), $$data, 0, sub { 556 add $grp aio_read $fh, 0, (-s $fh), $$data, 0, sub {
605 $grp->result ($_[0]); 557 $grp->result ($_[0]);
606 };
607 }; 558 };
608
609 $grp
610 } 559 };
560
561 $grp
611} 562}
612 563
613=item aio_copy $srcpath, $dstpath, $callback->($status) 564=item aio_copy $srcpath, $dstpath, $callback->($status)
614 565
615Try to copy the I<file> (directories not supported as either source or 566Try to copy the I<file> (directories not supported as either source or
616destination) from C<$srcpath> to C<$dstpath> and call the callback with 567destination) from C<$srcpath> to C<$dstpath> and call the callback with
617the C<0> (error) or C<-1> ok. 568the C<0> (error) or C<-1> ok.
618 569
619This is a composite request that it creates the destination file with 570This is a composite request that creates the destination file with
620mode 0200 and copies the contents of the source file into it using 571mode 0200 and copies the contents of the source file into it using
621C<aio_sendfile>, followed by restoring atime, mtime, access mode and 572C<aio_sendfile>, followed by restoring atime, mtime, access mode and
622uid/gid, in that order. 573uid/gid, in that order.
623 574
624If an error occurs, the partial destination file will be unlinked, if 575If an error occurs, the partial destination file will be unlinked, if
… …
626errors are being ignored. 577errors are being ignored.
627 578
628=cut 579=cut
629 580
630sub aio_copy($$;$) { 581sub aio_copy($$;$) {
631 aio_block {
632 my ($src, $dst, $cb) = @_; 582 my ($src, $dst, $cb) = @_;
633 583
634 my $pri = aioreq_pri; 584 my $pri = aioreq_pri;
635 my $grp = aio_group $cb; 585 my $grp = aio_group $cb;
636 586
637 aioreq_pri $pri; 587 aioreq_pri $pri;
638 add $grp aio_open $src, O_RDONLY, 0, sub { 588 add $grp aio_open $src, O_RDONLY, 0, sub {
639 if (my $src_fh = $_[0]) { 589 if (my $src_fh = $_[0]) {
640 my @stat = stat $src_fh; 590 my @stat = stat $src_fh;
641 591
642 aioreq_pri $pri; 592 aioreq_pri $pri;
643 add $grp aio_open $dst, O_CREAT | O_WRONLY | O_TRUNC, 0200, sub { 593 add $grp aio_open $dst, O_CREAT | O_WRONLY | O_TRUNC, 0200, sub {
644 if (my $dst_fh = $_[0]) { 594 if (my $dst_fh = $_[0]) {
645 aioreq_pri $pri; 595 aioreq_pri $pri;
646 add $grp aio_sendfile $dst_fh, $src_fh, 0, $stat[7], sub { 596 add $grp aio_sendfile $dst_fh, $src_fh, 0, $stat[7], sub {
647 if ($_[0] == $stat[7]) { 597 if ($_[0] == $stat[7]) {
648 $grp->result (0); 598 $grp->result (0);
649 close $src_fh; 599 close $src_fh;
650 600
651 # those should not normally block. should. should. 601 # those should not normally block. should. should.
652 utime $stat[8], $stat[9], $dst; 602 utime $stat[8], $stat[9], $dst;
653 chmod $stat[2] & 07777, $dst_fh; 603 chmod $stat[2] & 07777, $dst_fh;
654 chown $stat[4], $stat[5], $dst_fh; 604 chown $stat[4], $stat[5], $dst_fh;
605
606 aioreq_pri $pri;
655 close $dst_fh; 607 add $grp aio_close $dst_fh;
656 } else { 608 } else {
657 $grp->result (-1); 609 $grp->result (-1);
658 close $src_fh; 610 close $src_fh;
659 close $dst_fh; 611 close $dst_fh;
660 612
661 aioreq $pri; 613 aioreq $pri;
662 add $grp aio_unlink $dst; 614 add $grp aio_unlink $dst;
663 }
664 }; 615 }
665 } else {
666 $grp->result (-1);
667 } 616 };
617 } else {
618 $grp->result (-1);
668 }, 619 }
669
670 } else {
671 $grp->result (-1);
672 } 620 },
621
622 } else {
623 $grp->result (-1);
673 }; 624 }
674
675 $grp
676 } 625 };
626
627 $grp
677} 628}
678 629
679=item aio_move $srcpath, $dstpath, $callback->($status) 630=item aio_move $srcpath, $dstpath, $callback->($status)
680 631
681Try to move the I<file> (directories not supported as either source or 632Try to move the I<file> (directories not supported as either source or
… …
687that is successful, unlinking the C<$srcpath>. 638that is successful, unlinking the C<$srcpath>.
688 639
689=cut 640=cut
690 641
691sub aio_move($$;$) { 642sub aio_move($$;$) {
692 aio_block {
693 my ($src, $dst, $cb) = @_; 643 my ($src, $dst, $cb) = @_;
694 644
695 my $pri = aioreq_pri; 645 my $pri = aioreq_pri;
696 my $grp = aio_group $cb; 646 my $grp = aio_group $cb;
697 647
698 aioreq_pri $pri; 648 aioreq_pri $pri;
699 add $grp aio_rename $src, $dst, sub { 649 add $grp aio_rename $src, $dst, sub {
700 if ($_[0] && $! == EXDEV) { 650 if ($_[0] && $! == EXDEV) {
701 aioreq_pri $pri; 651 aioreq_pri $pri;
702 add $grp aio_copy $src, $dst, sub { 652 add $grp aio_copy $src, $dst, sub {
703 $grp->result ($_[0]);
704
705 if (!$_[0]) {
706 aioreq_pri $pri;
707 add $grp aio_unlink $src;
708 }
709 };
710 } else {
711 $grp->result ($_[0]); 653 $grp->result ($_[0]);
654
655 if (!$_[0]) {
656 aioreq_pri $pri;
657 add $grp aio_unlink $src;
658 }
712 } 659 };
660 } else {
661 $grp->result ($_[0]);
713 }; 662 }
714
715 $grp
716 } 663 };
664
665 $grp
717} 666}
718 667
719=item aio_scandir $path, $maxreq, $callback->($dirs, $nondirs) 668=item aio_scandir $path, $maxreq, $callback->($dirs, $nondirs)
720 669
721Scans a directory (similar to C<aio_readdir>) but additionally tries to 670Scans a directory (similar to C<aio_readdir>) but additionally tries to
… …
769directory counting heuristic. 718directory counting heuristic.
770 719
771=cut 720=cut
772 721
773sub aio_scandir($$;$) { 722sub aio_scandir($$;$) {
774 aio_block {
775 my ($path, $maxreq, $cb) = @_; 723 my ($path, $maxreq, $cb) = @_;
776 724
777 my $pri = aioreq_pri; 725 my $pri = aioreq_pri;
778 726
779 my $grp = aio_group $cb; 727 my $grp = aio_group $cb;
780 728
781 $maxreq = 4 if $maxreq <= 0; 729 $maxreq = 4 if $maxreq <= 0;
782 730
783 # stat once 731 # stat once
732 aioreq_pri $pri;
733 add $grp aio_stat $path, sub {
734 return $grp->result () if $_[0];
735 my $now = time;
736 my $hash1 = join ":", (stat _)[0,1,3,7,9];
737
738 # read the directory entries
784 aioreq_pri $pri; 739 aioreq_pri $pri;
785 add $grp aio_stat $path, sub { 740 add $grp aio_readdir $path, sub {
741 my $entries = shift
786 return $grp->result () if $_[0]; 742 or return $grp->result ();
787 my $now = time;
788 my $hash1 = join ":", (stat _)[0,1,3,7,9];
789 743
790 # read the directory entries 744 # stat the dir another time
791 aioreq_pri $pri; 745 aioreq_pri $pri;
792 add $grp aio_readdir $path, sub {
793 my $entries = shift
794 or return $grp->result ();
795
796 # stat the dir another time
797 aioreq_pri $pri;
798 add $grp aio_stat $path, sub { 746 add $grp aio_stat $path, sub {
799 my $hash2 = join ":", (stat _)[0,1,3,7,9]; 747 my $hash2 = join ":", (stat _)[0,1,3,7,9];
800 748
801 my $ndirs; 749 my $ndirs;
802 750
803 # take the slow route if anything looks fishy 751 # take the slow route if anything looks fishy
804 if ($hash1 ne $hash2 or (stat _)[9] == $now) { 752 if ($hash1 ne $hash2 or (stat _)[9] == $now) {
805 $ndirs = -1; 753 $ndirs = -1;
806 } else { 754 } else {
807 # if nlink == 2, we are finished 755 # if nlink == 2, we are finished
808 # on non-posix-fs's, we rely on nlink < 2 756 # on non-posix-fs's, we rely on nlink < 2
809 $ndirs = (stat _)[3] - 2 757 $ndirs = (stat _)[3] - 2
810 or return $grp->result ([], $entries); 758 or return $grp->result ([], $entries);
811 } 759 }
812 760
813 # sort into likely dirs and likely nondirs 761 # sort into likely dirs and likely nondirs
814 # dirs == files without ".", short entries first 762 # dirs == files without ".", short entries first
815 $entries = [map $_->[0], 763 $entries = [map $_->[0],
816 sort { $b->[1] cmp $a->[1] } 764 sort { $b->[1] cmp $a->[1] }
817 map [$_, sprintf "%s%04d", (/.\./ ? "1" : "0"), length], 765 map [$_, sprintf "%s%04d", (/.\./ ? "1" : "0"), length],
818 @$entries]; 766 @$entries];
819 767
820 my (@dirs, @nondirs); 768 my (@dirs, @nondirs);
821 769
822 my $statgrp = add $grp aio_group sub { 770 my $statgrp = add $grp aio_group sub {
823 $grp->result (\@dirs, \@nondirs); 771 $grp->result (\@dirs, \@nondirs);
824 }; 772 };
825 773
826 limit $statgrp $maxreq; 774 limit $statgrp $maxreq;
827 feed $statgrp sub { 775 feed $statgrp sub {
828 return unless @$entries; 776 return unless @$entries;
829 my $entry = pop @$entries; 777 my $entry = pop @$entries;
830 778
831 aioreq_pri $pri; 779 aioreq_pri $pri;
832 add $statgrp aio_stat "$path/$entry/.", sub { 780 add $statgrp aio_stat "$path/$entry/.", sub {
833 if ($_[0] < 0) { 781 if ($_[0] < 0) {
834 push @nondirs, $entry; 782 push @nondirs, $entry;
835 } else { 783 } else {
836 # need to check for real directory 784 # need to check for real directory
837 aioreq_pri $pri; 785 aioreq_pri $pri;
838 add $statgrp aio_lstat "$path/$entry", sub { 786 add $statgrp aio_lstat "$path/$entry", sub {
839 if (-d _) { 787 if (-d _) {
840 push @dirs, $entry; 788 push @dirs, $entry;
841 789
842 unless (--$ndirs) { 790 unless (--$ndirs) {
843 push @nondirs, @$entries; 791 push @nondirs, @$entries;
844 feed $statgrp; 792 feed $statgrp;
845 }
846 } else {
847 push @nondirs, $entry;
848 } 793 }
794 } else {
795 push @nondirs, $entry;
849 } 796 }
850 } 797 }
851 }; 798 }
852 }; 799 };
853 }; 800 };
854 }; 801 };
855 }; 802 };
856
857 $grp
858 } 803 };
804
805 $grp
859} 806}
860 807
861=item aio_rmtree $path, $callback->($status) 808=item aio_rmtree $path, $callback->($status)
862 809
863Delete a directory tree starting (and including) C<$path>, return the 810Delete a directory tree starting (and including) C<$path>, return the
… …
867 814
868=cut 815=cut
869 816
870sub aio_rmtree; 817sub aio_rmtree;
871sub aio_rmtree($;$) { 818sub aio_rmtree($;$) {
872 aio_block {
873 my ($path, $cb) = @_; 819 my ($path, $cb) = @_;
874 820
875 my $pri = aioreq_pri; 821 my $pri = aioreq_pri;
876 my $grp = aio_group $cb; 822 my $grp = aio_group $cb;
877 823
878 aioreq_pri $pri; 824 aioreq_pri $pri;
879 add $grp aio_scandir $path, 0, sub { 825 add $grp aio_scandir $path, 0, sub {
880 my ($dirs, $nondirs) = @_; 826 my ($dirs, $nondirs) = @_;
881 827
882 my $dirgrp = aio_group sub { 828 my $dirgrp = aio_group sub {
883 add $grp aio_rmdir $path, sub { 829 add $grp aio_rmdir $path, sub {
884 $grp->result ($_[0]); 830 $grp->result ($_[0]);
885 };
886 }; 831 };
887
888 (aioreq_pri $pri), add $dirgrp aio_rmtree "$path/$_" for @$dirs;
889 (aioreq_pri $pri), add $dirgrp aio_unlink "$path/$_" for @$nondirs;
890
891 add $grp $dirgrp;
892 }; 832 };
893 833
894 $grp 834 (aioreq_pri $pri), add $dirgrp aio_rmtree "$path/$_" for @$dirs;
835 (aioreq_pri $pri), add $dirgrp aio_unlink "$path/$_" for @$nondirs;
836
837 add $grp $dirgrp;
895 } 838 };
839
840 $grp
896} 841}
842
843=item aio_sync $callback->($status)
844
845Asynchronously call sync and call the callback when finished.
897 846
898=item aio_fsync $fh, $callback->($status) 847=item aio_fsync $fh, $callback->($status)
899 848
900Asynchronously call fsync on the given filehandle and call the callback 849Asynchronously call fsync on the given filehandle and call the callback
901with the fsync result code. 850with the fsync result code.
… …
905Asynchronously call fdatasync on the given filehandle and call the 854Asynchronously call fdatasync on the given filehandle and call the
906callback with the fdatasync result code. 855callback with the fdatasync result code.
907 856
908If this call isn't available because your OS lacks it or it couldn't be 857If this call isn't available because your OS lacks it or it couldn't be
909detected, it will be emulated by calling C<fsync> instead. 858detected, it will be emulated by calling C<fsync> instead.
859
860=item aio_pathsync $path, $callback->($status)
861
862This request tries to open, fsync and close the given path. This is a
863composite request intended to sync directories after directory operations
864(E.g. rename). This might not work on all operating systems or have any
865specific effect, but usually it makes sure that directory changes get
866written to disc. It works for anything that can be opened for read-only,
867not just directories.
868
869Passes C<0> when everything went ok, and C<-1> on error.
870
871=cut
872
873sub aio_pathsync($;$) {
874 my ($path, $cb) = @_;
875
876 my $pri = aioreq_pri;
877 my $grp = aio_group $cb;
878
879 aioreq_pri $pri;
880 add $grp aio_open $path, O_RDONLY, 0, sub {
881 my ($fh) = @_;
882 if ($fh) {
883 aioreq_pri $pri;
884 add $grp aio_fsync $fh, sub {
885 $grp->result ($_[0]);
886
887 aioreq_pri $pri;
888 add $grp aio_close $fh;
889 };
890 } else {
891 $grp->result (-1);
892 }
893 };
894
895 $grp
896}
910 897
911=item aio_group $callback->(...) 898=item aio_group $callback->(...)
912 899
913This is a very special aio request: Instead of doing something, it is a 900This is a very special aio request: Instead of doing something, it is a
914container for other aio requests, which is useful if you want to bundle 901container for other aio requests, which is useful if you want to bundle
… …
1026Their lifetime, simplified, looks like this: when they are empty, they 1013Their lifetime, simplified, looks like this: when they are empty, they
1027will finish very quickly. If they contain only requests that are in the 1014will finish very quickly. If they contain only requests that are in the
1028C<done> state, they will also finish. Otherwise they will continue to 1015C<done> state, they will also finish. Otherwise they will continue to
1029exist. 1016exist.
1030 1017
1031That means after creating a group you have some time to add requests. And 1018That means after creating a group you have some time to add requests
1032in the callbacks of those requests, you can add further requests to the 1019(precisely before the callback has been invoked, which is only done within
1033group. And only when all those requests have finished will the the group 1020the C<poll_cb>). And in the callbacks of those requests, you can add
1034itself finish. 1021further requests to the group. And only when all those requests have
1022finished will the the group itself finish.
1035 1023
1036=over 4 1024=over 4
1037 1025
1038=item add $grp ... 1026=item add $grp ...
1039 1027
… …
1051itself. Useful when you queued a lot of events but got a result early. 1039itself. Useful when you queued a lot of events but got a result early.
1052 1040
1053=item $grp->result (...) 1041=item $grp->result (...)
1054 1042
1055Set the result value(s) that will be passed to the group callback when all 1043Set the result value(s) that will be passed to the group callback when all
1056subrequests have finished and set thre groups errno to the current value 1044subrequests have finished and set the groups errno to the current value
1057of errno (just like calling C<errno> without an error number). By default, 1045of errno (just like calling C<errno> without an error number). By default,
1058no argument will be passed and errno is zero. 1046no argument will be passed and errno is zero.
1059 1047
1060=item $grp->errno ([$errno]) 1048=item $grp->errno ([$errno])
1061 1049
… …
1130See C<poll_cb> for an example. 1118See C<poll_cb> for an example.
1131 1119
1132=item IO::AIO::poll_cb 1120=item IO::AIO::poll_cb
1133 1121
1134Process some outstanding events on the result pipe. You have to call this 1122Process some outstanding events on the result pipe. You have to call this
1135regularly. Returns the number of events processed. Returns immediately 1123regularly. Returns C<0> if all events could be processed, or C<-1> if it
1124returned earlier for whatever reason. Returns immediately when no events
1136when no events are outstanding. The amount of events processed depends on 1125are outstanding. The amount of events processed depends on the settings of
1137the settings of C<IO::AIO::max_poll_req> and C<IO::AIO::max_poll_time>. 1126C<IO::AIO::max_poll_req> and C<IO::AIO::max_poll_time>.
1138 1127
1139If not all requests were processed for whatever reason, the filehandle 1128If not all requests were processed for whatever reason, the filehandle
1140will still be ready when C<poll_cb> returns. 1129will still be ready when C<poll_cb> returns, so normally you don't have to
1130do anything special to have it called later.
1141 1131
1142Example: Install an Event watcher that automatically calls 1132Example: Install an Event watcher that automatically calls
1143IO::AIO::poll_cb with high priority: 1133IO::AIO::poll_cb with high priority:
1144 1134
1145 Event->io (fd => IO::AIO::poll_fileno, 1135 Event->io (fd => IO::AIO::poll_fileno,
… …
1259 1249
1260The default is probably ok in most situations, especially if thread 1250The default is probably ok in most situations, especially if thread
1261creation is fast. If thread creation is very slow on your system you might 1251creation is fast. If thread creation is very slow on your system you might
1262want to use larger values. 1252want to use larger values.
1263 1253
1264=item $oldmaxreqs = IO::AIO::max_outstanding $maxreqs 1254=item IO::AIO::max_outstanding $maxreqs
1265 1255
1266This is a very bad function to use in interactive programs because it 1256This is a very bad function to use in interactive programs because it
1267blocks, and a bad way to reduce concurrency because it is inexact: Better 1257blocks, and a bad way to reduce concurrency because it is inexact: Better
1268use an C<aio_group> together with a feed callback. 1258use an C<aio_group> together with a feed callback.
1269 1259
… …
1274 1264
1275The default value is very large, so there is no practical limit on the 1265The default value is very large, so there is no practical limit on the
1276number of outstanding requests. 1266number of outstanding requests.
1277 1267
1278You can still queue as many requests as you want. Therefore, 1268You can still queue as many requests as you want. Therefore,
1279C<max_oustsanding> is mainly useful in simple scripts (with low values) or 1269C<max_outstanding> is mainly useful in simple scripts (with low values) or
1280as a stop gap to shield against fatal memory overflow (with large values). 1270as a stop gap to shield against fatal memory overflow (with large values).
1281 1271
1282=back 1272=back
1283 1273
1284=head3 STATISTICAL INFORMATION 1274=head3 STATISTICAL INFORMATION
… …
1354 1344
1355Known bugs will be fixed in the next release. 1345Known bugs will be fixed in the next release.
1356 1346
1357=head1 SEE ALSO 1347=head1 SEE ALSO
1358 1348
1359L<Coro::AIO>. 1349L<AnyEvent::AIO> for easy integration into event loops, L<Coro::AIO> for a
1350more natural syntax.
1360 1351
1361=head1 AUTHOR 1352=head1 AUTHOR
1362 1353
1363 Marc Lehmann <schmorp@schmorp.de> 1354 Marc Lehmann <schmorp@schmorp.de>
1364 http://home.schmorp.de/ 1355 http://home.schmorp.de/

Diff Legend

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