| … | |
… | |
| 16 | #include <sys/statvfs.h> |
16 | #include <sys/statvfs.h> |
| 17 | #include <limits.h> |
17 | #include <limits.h> |
| 18 | #include <fcntl.h> |
18 | #include <fcntl.h> |
| 19 | #include <sched.h> |
19 | #include <sched.h> |
| 20 | |
20 | |
| 21 | #if _POSIX_MEMLOCK || _POSIX_MAPPED_FILES |
21 | #if _POSIX_MEMLOCK || _POSIX_MEMLOCK_RANGE || _POSIX_MAPPED_FILES |
| 22 | # include <sys/mman.h> |
22 | # include <sys/mman.h> |
| 23 | #endif |
23 | #endif |
| 24 | |
24 | |
| 25 | /* perl namespace pollution */ |
25 | /* perl namespace pollution */ |
| 26 | #undef VERSION |
26 | #undef VERSION |
| … | |
… | |
| 208 | #endif |
208 | #endif |
| 209 | #ifndef ST_RELATIME |
209 | #ifndef ST_RELATIME |
| 210 | # define ST_RELATIME 0 |
210 | # define ST_RELATIME 0 |
| 211 | #endif |
211 | #endif |
| 212 | |
212 | |
|
|
213 | #ifndef S_IFIFO |
|
|
214 | # define S_IFIFO 0 |
|
|
215 | #endif |
|
|
216 | #ifndef S_IFCHR |
|
|
217 | # define S_IFCHR 0 |
|
|
218 | #endif |
|
|
219 | #ifndef S_IFBLK |
|
|
220 | # define S_IFBLK 0 |
|
|
221 | #endif |
|
|
222 | #ifndef S_IFLNK |
|
|
223 | # define S_IFLNK 0 |
|
|
224 | #endif |
|
|
225 | #ifndef S_IFREG |
|
|
226 | # define S_IFREG 0 |
|
|
227 | #endif |
|
|
228 | #ifndef S_IFDIR |
|
|
229 | # define S_IFDIR 0 |
|
|
230 | #endif |
|
|
231 | #ifndef S_IFWHT |
|
|
232 | # define S_IFWHT 0 |
|
|
233 | #endif |
|
|
234 | #ifndef S_IFSOCK |
|
|
235 | # define S_IFSOCK 0 |
|
|
236 | #endif |
|
|
237 | |
| 213 | #ifndef MAP_ANONYMOUS |
238 | #ifndef MAP_ANONYMOUS |
| 214 | # ifdef MAP_ANON |
239 | # ifdef MAP_ANON |
| 215 | # define MAP_ANONYMOUS MAP_ANON |
240 | # define MAP_ANONYMOUS MAP_ANON |
| 216 | # else |
241 | # else |
| 217 | # define MAP_ANONYMOUS MAP_FIXED /* and hope this fails */ |
242 | # define MAP_ANONYMOUS MAP_FIXED /* and hope this fails */ |
| … | |
… | |
| 229 | #ifndef MAP_POPULATE |
254 | #ifndef MAP_POPULATE |
| 230 | # define MAP_POPULATE 0 |
255 | # define MAP_POPULATE 0 |
| 231 | #endif |
256 | #endif |
| 232 | #ifndef MAP_NONBLOCK |
257 | #ifndef MAP_NONBLOCK |
| 233 | # define MAP_NONBLOCK 0 |
258 | # define MAP_NONBLOCK 0 |
|
|
259 | #endif |
|
|
260 | |
|
|
261 | #ifndef makedev |
|
|
262 | # define makedev(maj,min) (((maj) << 8) | (min)) |
|
|
263 | #endif |
|
|
264 | #ifndef major |
|
|
265 | # define major(dev) ((dev) >> 8) |
|
|
266 | #endif |
|
|
267 | #ifndef minor |
|
|
268 | # define minor(dev) ((dev) & 0xff) |
| 234 | #endif |
269 | #endif |
| 235 | |
270 | |
| 236 | #ifndef PAGESIZE |
271 | #ifndef PAGESIZE |
| 237 | # define PAGESIZE sysconf (_SC_PAGESIZE) |
272 | # define PAGESIZE sysconf (_SC_PAGESIZE) |
| 238 | #endif |
273 | #endif |
| … | |
… | |
| 353 | /* do not recreate the result IV from scratch each time */ |
388 | /* do not recreate the result IV from scratch each time */ |
| 354 | if (expect_true (sv_result_cache)) |
389 | if (expect_true (sv_result_cache)) |
| 355 | { |
390 | { |
| 356 | sv_result = sv_result_cache; sv_result_cache = 0; |
391 | sv_result = sv_result_cache; sv_result_cache = 0; |
| 357 | SvIV_set (sv_result, req->result); |
392 | SvIV_set (sv_result, req->result); |
|
|
393 | SvIOK_only (sv_result); |
| 358 | } |
394 | } |
| 359 | else |
395 | else |
| 360 | { |
396 | { |
| 361 | sv_result = newSViv (req->result); |
397 | sv_result = newSViv (req->result); |
| 362 | SvREADONLY_on (sv_result); |
398 | SvREADONLY_on (sv_result); |
| … | |
… | |
| 526 | SvSETMAGIC (req->sv2); |
562 | SvSETMAGIC (req->sv2); |
| 527 | PUSHs (sv_result); |
563 | PUSHs (sv_result); |
| 528 | } |
564 | } |
| 529 | break; |
565 | break; |
| 530 | |
566 | |
| 531 | case EIO_DUP2: /* EIO_DUP2 actually means aio_close(), su fudge result value */ |
567 | case EIO_DUP2: /* EIO_DUP2 actually means aio_close(), so fudge result value */ |
| 532 | if (req->result > 0) |
568 | if (req->result > 0) |
| 533 | SvIV_set (sv_result, 0); |
569 | SvIV_set (sv_result, 0); |
| 534 | /* FALLTHROUGH */ |
570 | /* FALLTHROUGH */ |
| 535 | |
571 | |
| 536 | default: |
572 | default: |
| … | |
… | |
| 636 | /*****************************************************************************/ |
672 | /*****************************************************************************/ |
| 637 | |
673 | |
| 638 | #if !_POSIX_MAPPED_FILES |
674 | #if !_POSIX_MAPPED_FILES |
| 639 | # define mmap(addr,length,prot,flags,fd,offs) (errno = ENOSYS, -1) |
675 | # define mmap(addr,length,prot,flags,fd,offs) (errno = ENOSYS, -1) |
| 640 | # define munmap(addr,length) (errno = ENOSYS, -1) |
676 | # define munmap(addr,length) (errno = ENOSYS, -1) |
|
|
677 | #endif |
|
|
678 | |
|
|
679 | #if !_POSIX_MEMORY_PROTECTION |
| 641 | # define mprotect(addr,len,prot) (errno = ENOSYS, -1) |
680 | # define mprotect(addr,len,prot) (errno = ENOSYS, -1) |
| 642 | # define PROT_NONE 0 |
681 | # define PROT_NONE 0 |
| 643 | # define PROT_WRITE 0 |
682 | # define PROT_WRITE 0 |
| 644 | # define MAP_PRIVATE 0 |
683 | # define MAP_PRIVATE 0 |
| 645 | # define MAP_SHARED 0 |
684 | # define MAP_SHARED 0 |
| … | |
… | |
| 725 | const_iv (O_RDWR) |
764 | const_iv (O_RDWR) |
| 726 | const_iv (O_CREAT) |
765 | const_iv (O_CREAT) |
| 727 | const_iv (O_TRUNC) |
766 | const_iv (O_TRUNC) |
| 728 | const_iv (O_EXCL) |
767 | const_iv (O_EXCL) |
| 729 | const_iv (O_APPEND) |
768 | const_iv (O_APPEND) |
| 730 | #ifndef _WIN32 |
769 | |
| 731 | const_iv (S_IFIFO) |
770 | const_iv (S_IFIFO) |
| 732 | #endif |
771 | const_iv (S_IFCHR) |
|
|
772 | const_iv (S_IFBLK) |
|
|
773 | const_iv (S_IFLNK) |
|
|
774 | const_iv (S_IFREG) |
|
|
775 | const_iv (S_IFDIR) |
|
|
776 | const_iv (S_IFWHT) |
|
|
777 | const_iv (S_IFSOCK) |
|
|
778 | const_iv (S_IFMT) |
|
|
779 | |
| 733 | const_niv (FADV_NORMAL , POSIX_FADV_NORMAL) |
780 | const_niv (FADV_NORMAL , POSIX_FADV_NORMAL) |
| 734 | const_niv (FADV_SEQUENTIAL, POSIX_FADV_SEQUENTIAL) |
781 | const_niv (FADV_SEQUENTIAL, POSIX_FADV_SEQUENTIAL) |
| 735 | const_niv (FADV_RANDOM , POSIX_FADV_RANDOM) |
782 | const_niv (FADV_RANDOM , POSIX_FADV_RANDOM) |
| 736 | const_niv (FADV_NOREUSE , POSIX_FADV_NOREUSE) |
783 | const_niv (FADV_NOREUSE , POSIX_FADV_NOREUSE) |
| 737 | const_niv (FADV_WILLNEED , POSIX_FADV_WILLNEED) |
784 | const_niv (FADV_WILLNEED , POSIX_FADV_WILLNEED) |
| … | |
… | |
| 1059 | } |
1106 | } |
| 1060 | |
1107 | |
| 1061 | REQ_SEND; |
1108 | REQ_SEND; |
| 1062 | } |
1109 | } |
| 1063 | |
1110 | |
|
|
1111 | UV |
|
|
1112 | major (UV dev) |
|
|
1113 | ALIAS: |
|
|
1114 | minor = 1 |
|
|
1115 | CODE: |
|
|
1116 | RETVAL = ix ? major (dev) : minor (dev); |
|
|
1117 | OUTPUT: |
|
|
1118 | RETVAL |
|
|
1119 | |
|
|
1120 | UV |
|
|
1121 | makedev (UV maj, UV min) |
|
|
1122 | CODE: |
|
|
1123 | RETVAL = makedev (maj, min); |
|
|
1124 | OUTPUT: |
|
|
1125 | RETVAL |
|
|
1126 | |
| 1064 | void |
1127 | void |
| 1065 | aio_utime (SV8 *fh_or_path, SV *atime, SV *mtime, SV *callback=&PL_sv_undef) |
1128 | aio_utime (SV8 *fh_or_path, SV *atime, SV *mtime, SV *callback=&PL_sv_undef) |
| 1066 | PPCODE: |
1129 | PPCODE: |
| 1067 | { |
1130 | { |
| 1068 | dREQ; |
1131 | dREQ; |
| … | |
… | |
| 1523 | if (!SvOK (length) || len + offset > svlen) |
1586 | if (!SvOK (length) || len + offset > svlen) |
| 1524 | len = svlen - offset; |
1587 | len = svlen - offset; |
| 1525 | |
1588 | |
| 1526 | addr = (void *)(((intptr_t)addr) + offset); |
1589 | addr = (void *)(((intptr_t)addr) + offset); |
| 1527 | eio_page_align (&addr, &len); |
1590 | eio_page_align (&addr, &len); |
| 1528 | #if _POSIX_MEMLOCK |
1591 | #if _POSIX_MEMLOCK_RANGE |
| 1529 | RETVAL = munlock (addr, len); |
1592 | RETVAL = munlock (addr, len); |
| 1530 | #else |
1593 | #else |
| 1531 | RETVAL = ((errno = ENOSYS), -1); |
1594 | RETVAL = ((errno = ENOSYS), -1); |
| 1532 | #endif |
1595 | #endif |
| 1533 | } |
1596 | } |
