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.156 by root, Tue Jun 16 23:41:59 2009 UTC vs.
Revision 1.171 by root, Sat Jan 2 14:24:32 2010 UTC

186 186
187package IO::AIO; 187package IO::AIO;
188 188
189use Carp (); 189use Carp ();
190 190
191no warnings; 191use common::sense;
192use strict 'vars';
193 192
194use base 'Exporter'; 193use base 'Exporter';
195 194
196BEGIN { 195BEGIN {
197 our $VERSION = '3.23'; 196 our $VERSION = '3.4';
198 197
199 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close 198 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close
200 aio_stat aio_lstat aio_unlink aio_rmdir aio_readdir aio_readdirx 199 aio_stat aio_lstat aio_unlink aio_rmdir aio_readdir aio_readdirx
201 aio_scandir aio_symlink aio_readlink aio_sync aio_fsync 200 aio_scandir aio_symlink aio_readlink aio_sync aio_fsync
202 aio_fdatasync aio_sync_file_range aio_pathsync aio_readahead 201 aio_fdatasync aio_sync_file_range aio_pathsync aio_readahead
203 aio_rename aio_link aio_move aio_copy aio_group 202 aio_rename aio_link aio_move aio_copy aio_group
204 aio_nop aio_mknod aio_load aio_rmtree aio_mkdir aio_chown 203 aio_nop aio_mknod aio_load aio_rmtree aio_mkdir aio_chown
205 aio_chmod aio_utime aio_truncate); 204 aio_chmod aio_utime aio_truncate
205 aio_msync aio_mtouch);
206 206
207 our @EXPORT = (@AIO_REQ, qw(aioreq_pri aioreq_nice)); 207 our @EXPORT = (@AIO_REQ, qw(aioreq_pri aioreq_nice));
208 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush 208 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush
209 min_parallel max_parallel max_idle 209 min_parallel max_parallel max_idle
210 nreqs nready npending nthreads 210 nreqs nready npending nthreads
211 max_poll_time max_poll_reqs); 211 max_poll_time max_poll_reqs
212 sendfile fadvise);
212 213
213 push @AIO_REQ, qw(aio_busy); # not exported 214 push @AIO_REQ, qw(aio_busy); # not exported
214 215
215 @IO::AIO::GRP::ISA = 'IO::AIO::REQ'; 216 @IO::AIO::GRP::ISA = 'IO::AIO::REQ';
216 217
380 381
381This call tries to make use of a native C<sendfile> syscall to provide 382This call tries to make use of a native C<sendfile> syscall to provide
382zero-copy operation. For this to work, C<$out_fh> should refer to a 383zero-copy operation. For this to work, C<$out_fh> should refer to a
383socket, and C<$in_fh> should refer to mmap'able file. 384socket, and C<$in_fh> should refer to mmap'able file.
384 385
385If the native sendfile call fails or is not implemented, it will be 386If a native sendfile cannot be found or it fails with C<ENOSYS>,
387C<ENOTSUP>, C<EOPNOTSUPP>, C<EAFNOSUPPORT>, C<EPROTOTYPE> or C<ENOTSOCK>,
386emulated, so you can call C<aio_sendfile> on any type of filehandle 388it will be emulated, so you can call C<aio_sendfile> on any type of
387regardless of the limitations of the operating system. 389filehandle regardless of the limitations of the operating system.
388 390
389Please note, however, that C<aio_sendfile> can read more bytes from 391Please note, however, that C<aio_sendfile> can read more bytes from
390C<$in_fh> than are written, and there is no way to find out how many 392C<$in_fh> than are written, and there is no way to find out how many
391bytes have been read from C<aio_sendfile> alone, as C<aio_sendfile> only 393bytes have been read from C<aio_sendfile> alone, as C<aio_sendfile> only
392provides the number of bytes written to C<$out_fh>. Only if the result 394provides the number of bytes written to C<$out_fh>. Only if the result
634 636
635=item aio_copy $srcpath, $dstpath, $callback->($status) 637=item aio_copy $srcpath, $dstpath, $callback->($status)
636 638
637Try to copy the I<file> (directories not supported as either source or 639Try to copy the I<file> (directories not supported as either source or
638destination) from C<$srcpath> to C<$dstpath> and call the callback with 640destination) from C<$srcpath> to C<$dstpath> and call the callback with
639the C<0> (error) or C<-1> ok. 641a status of C<0> (ok) or C<-1> (error, see C<$!>).
640 642
641This is a composite request that creates the destination file with 643This is a composite request that creates the destination file with
642mode 0200 and copies the contents of the source file into it using 644mode 0200 and copies the contents of the source file into it using
643C<aio_sendfile>, followed by restoring atime, mtime, access mode and 645C<aio_sendfile>, followed by restoring atime, mtime, access mode and
644uid/gid, in that order. 646uid/gid, in that order.
656 my $grp = aio_group $cb; 658 my $grp = aio_group $cb;
657 659
658 aioreq_pri $pri; 660 aioreq_pri $pri;
659 add $grp aio_open $src, O_RDONLY, 0, sub { 661 add $grp aio_open $src, O_RDONLY, 0, sub {
660 if (my $src_fh = $_[0]) { 662 if (my $src_fh = $_[0]) {
661 my @stat = stat $src_fh; # hmm, might bock over nfs? 663 my @stat = stat $src_fh; # hmm, might block over nfs?
662 664
663 aioreq_pri $pri; 665 aioreq_pri $pri;
664 add $grp aio_open $dst, O_CREAT | O_WRONLY | O_TRUNC, 0200, sub { 666 add $grp aio_open $dst, O_CREAT | O_WRONLY | O_TRUNC, 0200, sub {
665 if (my $dst_fh = $_[0]) { 667 if (my $dst_fh = $_[0]) {
666 aioreq_pri $pri; 668 aioreq_pri $pri;
713 715
714=item aio_move $srcpath, $dstpath, $callback->($status) 716=item aio_move $srcpath, $dstpath, $callback->($status)
715 717
716Try to move the I<file> (directories not supported as either source or 718Try to move the I<file> (directories not supported as either source or
717destination) from C<$srcpath> to C<$dstpath> and call the callback with 719destination) from C<$srcpath> to C<$dstpath> and call the callback with
718the C<0> (error) or C<-1> ok. 720a status of C<0> (ok) or C<-1> (error, see C<$!>).
719 721
720This is a composite request that tries to rename(2) the file first; if 722This is a composite request that tries to rename(2) the file first; if
721rename fails with C<EXDEV>, it copies the file with C<aio_copy> and, if 723rename fails with C<EXDEV>, it copies the file with C<aio_copy> and, if
722that is successful, unlinks the C<$srcpath>. 724that is successful, unlinks the C<$srcpath>.
723 725
957(E.g. rename). This might not work on all operating systems or have any 959(E.g. rename). This might not work on all operating systems or have any
958specific effect, but usually it makes sure that directory changes get 960specific effect, but usually it makes sure that directory changes get
959written to disc. It works for anything that can be opened for read-only, 961written to disc. It works for anything that can be opened for read-only,
960not just directories. 962not just directories.
961 963
964Future versions of this function might fall back to other methods when
965C<fsync> on the directory fails (such as calling C<sync>).
966
962Passes C<0> when everything went ok, and C<-1> on error. 967Passes C<0> when everything went ok, and C<-1> on error.
963 968
964=cut 969=cut
965 970
966sub aio_pathsync($;$) { 971sub aio_pathsync($;$) {
986 }; 991 };
987 992
988 $grp 993 $grp
989} 994}
990 995
996=item aio_msync $scalar, $offset = 0, $length = undef, flags = 0, $callback->($status)
997
998This is a rather advanced IO::AIO call, which only works on mmap(2)ed
999scalars (see the L<Sys::Mmap> or L<Mmap> modules for details on this, note
1000that the scalar must only be modified in-place while an aio operation is
1001pending on it).
1002
1003It calls the C<msync> function of your OS, if available, with the memory
1004area starting at C<$offset> in the string and ending C<$length> bytes
1005later. If C<$length> is negative, counts from the end, and if C<$length>
1006is C<undef>, then it goes till the end of the string. The flags can be
1007a combination of C<IO::AIO::MS_ASYNC>, C<IO::AIO::MS_INVALIDATE> and
1008C<IO::AIO::MS_SYNC>.
1009
1010=item aio_mtouch $scalar, $offset = 0, $length = undef, flags = 0, $callback->($status)
1011
1012This is a rather advanced IO::AIO call, which works best on mmap(2)ed
1013scalars.
1014
1015It touches (reads or writes) all memory pages in the specified
1016range inside the scalar. All caveats and parameters are the same
1017as for C<aio_msync>, above, except for flags, which must be either
1018C<0> (which reads all pages and ensures they are instantiated) or
1019C<IO::AIO::MT_MODIFY>, which modifies the memory page s(by reading and
1020writing an octet from it, which dirties the page).
1021
991=item aio_group $callback->(...) 1022=item aio_group $callback->(...)
992 1023
993This is a very special aio request: Instead of doing something, it is a 1024This is a very special aio request: Instead of doing something, it is a
994container for other aio requests, which is useful if you want to bundle 1025container for other aio requests, which is useful if you want to bundle
995many requests into a single, composite, request with a definite callback 1026many requests into a single, composite, request with a definite callback
1130=item $grp->cancel_subs 1161=item $grp->cancel_subs
1131 1162
1132Cancel all subrequests and clears any feeder, but not the group request 1163Cancel all subrequests and clears any feeder, but not the group request
1133itself. Useful when you queued a lot of events but got a result early. 1164itself. Useful when you queued a lot of events but got a result early.
1134 1165
1166The group request will finish normally (you cannot add requests to the
1167group).
1168
1135=item $grp->result (...) 1169=item $grp->result (...)
1136 1170
1137Set the result value(s) that will be passed to the group callback when all 1171Set the result value(s) that will be passed to the group callback when all
1138subrequests have finished and set the groups errno to the current value 1172subrequests have finished and set the groups errno to the current value
1139of errno (just like calling C<errno> without an error number). By default, 1173of errno (just like calling C<errno> without an error number). By default,
1391 1425
1392=item IO::AIO::npending 1426=item IO::AIO::npending
1393 1427
1394Returns the number of requests currently in the pending state (executed, 1428Returns the number of requests currently in the pending state (executed,
1395but not yet processed by poll_cb). 1429but not yet processed by poll_cb).
1430
1431=back
1432
1433=head3 MISCELLANEOUS FUNCTIONS
1434
1435IO::AIO implements some functions that might be useful, but are not
1436asynchronous.
1437
1438=over 4
1439
1440=item IO::AIO::sendfile $ofh, $ifh, $offset, $count
1441
1442Calls the C<eio_sendfile_sync> function, which is like C<aio_sendfile>,
1443but is blocking (this makes most sense if you know the input data is
1444likely cached already and the output filehandle is set to non-blocking
1445operations).
1446
1447Returns the number of bytes copied, or C<-1> on error.
1448
1449=item IO::AIO::fadvise $fh, $offset, $len, $advice
1450
1451Simply calls the C<posix_fadvise> function (see it's
1452manpage for details). The following advice constants are
1453avaiable: C<IO::AIO::FADV_NORMAL>, C<IO::AIO::FADV_SEQUENTIAL>,
1454C<IO::AIO::FADV_RANDOM>, C<IO::AIO::FADV_NOREUSE>,
1455C<IO::AIO::FADV_WILLNEED>, C<IO::AIO::FADV_DONTNEED>.
1456
1457On systems that do not implement C<posix_fadvise>, this function returns
1458ENOSYS, otherwise the return value of C<posix_fadvise>.
1396 1459
1397=back 1460=back
1398 1461
1399=cut 1462=cut
1400 1463

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines