… | |
… | |
167 | use common::sense; |
167 | use common::sense; |
168 | |
168 | |
169 | use base 'Exporter'; |
169 | use base 'Exporter'; |
170 | |
170 | |
171 | BEGIN { |
171 | BEGIN { |
172 | our $VERSION = 4.33; |
172 | our $VERSION = 4.34; |
173 | |
173 | |
174 | our @AIO_REQ = qw(aio_sendfile aio_seek aio_read aio_write aio_open aio_close |
174 | our @AIO_REQ = qw(aio_sendfile aio_seek aio_read aio_write aio_open aio_close |
175 | aio_stat aio_lstat aio_unlink aio_rmdir aio_readdir aio_readdirx |
175 | aio_stat aio_lstat aio_unlink aio_rmdir aio_readdir aio_readdirx |
176 | aio_scandir aio_symlink aio_readlink aio_realpath aio_sync |
176 | aio_scandir aio_symlink aio_readlink aio_realpath aio_fcntl aio_ioctl |
177 | aio_fsync aio_syncfs aio_fdatasync aio_sync_file_range aio_allocate |
177 | aio_sync aio_fsync aio_syncfs aio_fdatasync aio_sync_file_range |
178 | aio_pathsync aio_readahead aio_fiemap |
178 | aio_pathsync aio_readahead aio_fiemap aio_allocate |
179 | aio_rename aio_link aio_move aio_copy aio_group |
179 | aio_rename aio_link aio_move aio_copy aio_group |
180 | aio_nop aio_mknod aio_load aio_rmtree aio_mkdir aio_chown |
180 | aio_nop aio_mknod aio_load aio_rmtree aio_mkdir aio_chown |
181 | aio_chmod aio_utime aio_truncate |
181 | aio_chmod aio_utime aio_truncate |
182 | aio_msync aio_mtouch aio_mlock aio_mlockall |
182 | aio_msync aio_mtouch aio_mlock aio_mlockall |
183 | aio_statvfs |
183 | aio_statvfs |
… | |
… | |
240 | aio_scandir $pathname, $maxreq, $callback->($dirs, $nondirs) |
240 | aio_scandir $pathname, $maxreq, $callback->($dirs, $nondirs) |
241 | aio_load $pathname, $data, $callback->($status) |
241 | aio_load $pathname, $data, $callback->($status) |
242 | aio_copy $srcpath, $dstpath, $callback->($status) |
242 | aio_copy $srcpath, $dstpath, $callback->($status) |
243 | aio_move $srcpath, $dstpath, $callback->($status) |
243 | aio_move $srcpath, $dstpath, $callback->($status) |
244 | aio_rmtree $pathname, $callback->($status) |
244 | aio_rmtree $pathname, $callback->($status) |
|
|
245 | aio_fcntl $fh, $cmd, $arg, $callback->($status) |
|
|
246 | aio_ioctl $fh, $request, $buf, $callback->($status) |
245 | aio_sync $callback->($status) |
247 | aio_sync $callback->($status) |
246 | aio_syncfs $fh, $callback->($status) |
248 | aio_syncfs $fh, $callback->($status) |
247 | aio_fsync $fh, $callback->($status) |
249 | aio_fsync $fh, $callback->($status) |
248 | aio_fdatasync $fh, $callback->($status) |
250 | aio_fdatasync $fh, $callback->($status) |
249 | aio_sync_file_range $fh, $offset, $nbytes, $flags, $callback->($status) |
251 | aio_sync_file_range $fh, $offset, $nbytes, $flags, $callback->($status) |
… | |
… | |
508 | As native sendfile syscalls (as practically any non-POSIX interface hacked |
510 | As native sendfile syscalls (as practically any non-POSIX interface hacked |
509 | together in a hurry to improve benchmark numbers) tend to be rather buggy |
511 | together in a hurry to improve benchmark numbers) tend to be rather buggy |
510 | on many systems, this implementation tries to work around some known bugs |
512 | on many systems, this implementation tries to work around some known bugs |
511 | in Linux and FreeBSD kernels (probably others, too), but that might fail, |
513 | in Linux and FreeBSD kernels (probably others, too), but that might fail, |
512 | so you really really should check the return value of C<aio_sendfile> - |
514 | so you really really should check the return value of C<aio_sendfile> - |
513 | fewre bytes than expected might have been transferred. |
515 | fewer bytes than expected might have been transferred. |
514 | |
516 | |
515 | |
517 | |
516 | =item aio_readahead $fh,$offset,$length, $callback->($retval) |
518 | =item aio_readahead $fh,$offset,$length, $callback->($retval) |
517 | |
519 | |
518 | C<aio_readahead> populates the page cache with data from a file so that |
520 | C<aio_readahead> populates the page cache with data from a file so that |
… | |
… | |
522 | whole pages, so that offset is effectively rounded down to a page boundary |
524 | whole pages, so that offset is effectively rounded down to a page boundary |
523 | and bytes are read up to the next page boundary greater than or equal to |
525 | and bytes are read up to the next page boundary greater than or equal to |
524 | (off-set+length). C<aio_readahead> does not read beyond the end of the |
526 | (off-set+length). C<aio_readahead> does not read beyond the end of the |
525 | file. The current file offset of the file is left unchanged. |
527 | file. The current file offset of the file is left unchanged. |
526 | |
528 | |
527 | If that syscall doesn't exist (likely if your OS isn't Linux) it will be |
529 | If that syscall doesn't exist (likely if your kernel isn't Linux) it will |
528 | emulated by simply reading the data, which would have a similar effect. |
530 | be emulated by simply reading the data, which would have a similar effect. |
529 | |
531 | |
530 | |
532 | |
531 | =item aio_stat $fh_or_path, $callback->($status) |
533 | =item aio_stat $fh_or_path, $callback->($status) |
532 | |
534 | |
533 | =item aio_lstat $fh, $callback->($status) |
535 | =item aio_lstat $fh, $callback->($status) |
… | |
… | |
1227 | }; |
1229 | }; |
1228 | |
1230 | |
1229 | $grp |
1231 | $grp |
1230 | } |
1232 | } |
1231 | |
1233 | |
|
|
1234 | =item aio_fcntl $fh, $cmd, $arg, $callback->($status) |
|
|
1235 | |
|
|
1236 | =item aio_ioctl $fh, $request, $buf, $callback->($status) |
|
|
1237 | |
|
|
1238 | These work just like the C<fcntl> and C<ioctl> built-in functions, except |
|
|
1239 | they execute asynchronously and pass the return value to the callback. |
|
|
1240 | |
|
|
1241 | Both calls can be used for a lot of things, some of which make more sense |
|
|
1242 | to run asynchronously in their own thread, while some others make less |
|
|
1243 | sense. For example, calls that block waiting for external events, such |
|
|
1244 | as locking, will also lock down an I/O thread while it is waiting, which |
|
|
1245 | can deadlock the whole I/O system. At the same time, there might be no |
|
|
1246 | alternative to using a thread to wait. |
|
|
1247 | |
|
|
1248 | So in general, you should only use these calls for things that do |
|
|
1249 | (filesystem) I/O, not for things that wait for other events (network, |
|
|
1250 | other processes), although if you are careful and know what you are doing, |
|
|
1251 | you still can. |
|
|
1252 | |
1232 | =item aio_sync $callback->($status) |
1253 | =item aio_sync $callback->($status) |
1233 | |
1254 | |
1234 | Asynchronously call sync and call the callback when finished. |
1255 | Asynchronously call sync and call the callback when finished. |
1235 | |
1256 | |
1236 | =item aio_fsync $fh, $callback->($status) |
1257 | =item aio_fsync $fh, $callback->($status) |
… | |
… | |
2020 | =item IO::AIO::madvise $scalar, $offset, $len, $advice |
2041 | =item IO::AIO::madvise $scalar, $offset, $len, $advice |
2021 | |
2042 | |
2022 | Simply calls the C<posix_madvise> function (see its |
2043 | Simply calls the C<posix_madvise> function (see its |
2023 | manpage for details). The following advice constants are |
2044 | manpage for details). The following advice constants are |
2024 | available: C<IO::AIO::MADV_NORMAL>, C<IO::AIO::MADV_SEQUENTIAL>, |
2045 | available: C<IO::AIO::MADV_NORMAL>, C<IO::AIO::MADV_SEQUENTIAL>, |
2025 | C<IO::AIO::MADV_RANDOM>, C<IO::AIO::MADV_WILLNEED>, C<IO::AIO::MADV_DONTNEED>. |
2046 | C<IO::AIO::MADV_RANDOM>, C<IO::AIO::MADV_WILLNEED>, C<IO::AIO::MADV_DONTNEED>, |
|
|
2047 | C<IO::AIO::MADV_FREE>. |
2026 | |
2048 | |
2027 | On systems that do not implement C<posix_madvise>, this function returns |
2049 | On systems that do not implement C<posix_madvise>, this function returns |
2028 | ENOSYS, otherwise the return value of C<posix_madvise>. |
2050 | ENOSYS, otherwise the return value of C<posix_madvise>. |
2029 | |
2051 | |
2030 | =item IO::AIO::mprotect $scalar, $offset, $len, $protect |
2052 | =item IO::AIO::mprotect $scalar, $offset, $len, $protect |
… | |
… | |
2065 | C<$flags> can be a combination of |
2087 | C<$flags> can be a combination of |
2066 | C<IO::AIO::MAP_SHARED> or |
2088 | C<IO::AIO::MAP_SHARED> or |
2067 | C<IO::AIO::MAP_PRIVATE>, |
2089 | C<IO::AIO::MAP_PRIVATE>, |
2068 | or a number of system-specific flags (when not available, the are C<0>): |
2090 | or a number of system-specific flags (when not available, the are C<0>): |
2069 | C<IO::AIO::MAP_ANONYMOUS> (which is set to C<MAP_ANON> if your system only provides this constant), |
2091 | C<IO::AIO::MAP_ANONYMOUS> (which is set to C<MAP_ANON> if your system only provides this constant), |
2070 | C<IO::AIO::MAP_HUGETLB>, |
|
|
2071 | C<IO::AIO::MAP_LOCKED>, |
2092 | C<IO::AIO::MAP_LOCKED>, |
2072 | C<IO::AIO::MAP_NORESERVE>, |
2093 | C<IO::AIO::MAP_NORESERVE>, |
2073 | C<IO::AIO::MAP_POPULATE>, |
2094 | C<IO::AIO::MAP_POPULATE>, |
2074 | C<IO::AIO::MAP_NONBLOCK>, |
2095 | C<IO::AIO::MAP_NONBLOCK>, |
2075 | C<IO::AIO::MAP_FIXED>, |
2096 | C<IO::AIO::MAP_FIXED>, |