ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/libeio/eio.c
(Generate patch)

Comparing libeio/eio.c (file contents):
Revision 1.144 by root, Tue Dec 27 09:58:44 2016 UTC vs.
Revision 1.148 by root, Tue Feb 20 06:05:19 2018 UTC

1/* 1/*
2 * libeio implementation 2 * libeio implementation
3 * 3 *
4 * Copyright (c) 2007,2008,2009,2010,2011,2012,2013,2016 Marc Alexander Lehmann <libeio@schmorp.de> 4 * Copyright (c) 2007,2008,2009,2010,2011,2012,2013,2016,2017 Marc Alexander Lehmann <libeio@schmorp.de>
5 * All rights reserved. 5 * All rights reserved.
6 * 6 *
7 * Redistribution and use in source and binary forms, with or without modifica- 7 * Redistribution and use in source and binary forms, with or without modifica-
8 * tion, are permitted provided that the following conditions are met: 8 * tion, are permitted provided that the following conditions are met:
9 * 9 *
… …
100#ifdef _WIN32 100#ifdef _WIN32
101 101
102 #undef PAGESIZE 102 #undef PAGESIZE
103 #define PAGESIZE 4096 /* GetSystemInfo? */ 103 #define PAGESIZE 4096 /* GetSystemInfo? */
104 104
105 #define O_CLOEXEC 0
106
105 /* TODO: look at how perl does stat (non-sloppy), unlink (ro-files), utime, link */ 107 /* TODO: look at how perl does stat (non-sloppy), unlink (ro-files), utime, link */
106 108
107 #ifdef EIO_STRUCT_STATI64 109 #ifdef EIO_STRUCT_STATI64
108 /* look at perl's non-sloppy stat */ 110 /* look at perl's non-sloppy stat */
109 #define stat(path,buf) _stati64 (path,buf) 111 #define stat(path,buf) _stati64 (path,buf)
… …
231 #define D_NAME(entp) entp.cFileName 233 #define D_NAME(entp) entp.cFileName
232 #define D_TYPE(entp) (entp.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ? DT_DIR : DT_REG) 234 #define D_TYPE(entp) (entp.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ? DT_DIR : DT_REG)
233 235
234#else 236#else
235 237
238 #include <sys/ioctl.h>
236 #include <sys/time.h> 239 #include <sys/time.h>
237 #include <sys/select.h> 240 #include <sys/select.h>
238 #include <unistd.h> 241 #include <unistd.h>
239 #include <signal.h> 242 #include <signal.h>
240 #include <dirent.h> 243 #include <dirent.h>
… …
299# else 302# else
300# error sendfile support requested but not available 303# error sendfile support requested but not available
301# endif 304# endif
302#endif 305#endif
303 306
307#if HAVE_RENAMEAT2
308# include <sys/syscall.h>
309# include <linux/fs.h>
310#endif
311
304#ifndef D_TYPE 312#ifndef D_TYPE
305# define D_TYPE(de) 0 313# define D_TYPE(de) 0
306#endif 314#endif
307#ifndef D_INO 315#ifndef D_INO
308# define D_INO(de) 0 316# define D_INO(de) 0
… …
547} 555}
548 556
549/*****************************************************************************/ 557/*****************************************************************************/
550/* work around various missing functions */ 558/* work around various missing functions */
551 559
560#if HAVE_POSIX_CLOSE && !__linux
561# define eio__close(fd) posix_close (fd, 0)
562#else
563# define eio__close(fd) close (fd)
564#endif
565
566/* close() without disturbing errno */
567static void
568silent_close (int fd)
569{
570 int saved_errno = errno;
571 eio__close (fd);
572 errno = saved_errno;
573}
574
552#ifndef HAVE_UTIMES 575#ifndef HAVE_UTIMES
553 576
554# undef utimes 577# undef utimes
555# define utimes(path,times) eio__utimes (path, times) 578# define utimes(path,times) eio__utimes (path, times)
556 579
… …
1012 if (fd >= 0) 1035 if (fd >= 0)
1013 { 1036 {
1014 sprintf (tmp1, "/proc/self/fd/%d", fd); 1037 sprintf (tmp1, "/proc/self/fd/%d", fd);
1015 req->result = readlink (tmp1, res, EIO_PATH_MAX); 1038 req->result = readlink (tmp1, res, EIO_PATH_MAX);
1016 /* here we should probably stat the open file and the disk file, to make sure they still match */ 1039 /* here we should probably stat the open file and the disk file, to make sure they still match */
1017 close (fd); 1040 eio__close (fd);
1018 1041
1019 if (req->result > 0) 1042 if (req->result > 0)
1020 goto done; 1043 goto done;
1021 } 1044 }
1022 else if (errno == ELOOP || errno == ENAMETOOLONG || errno == ENOENT || errno == ENOTDIR || errno == EIO) 1045 else if (errno == ELOOP || errno == ENAMETOOLONG || errno == ENOENT || errno == ENOTDIR || errno == EIO)
… …
1380 return; 1403 return;
1381 1404
1382 dirp = fdopendir (fd); 1405 dirp = fdopendir (fd);
1383 1406
1384 if (!dirp) 1407 if (!dirp)
1385 close (fd); 1408 silent_close (fd);
1386 } 1409 }
1387 else 1410 else
1388 dirp = opendir (req->ptr1); 1411 dirp = opendir (req->ptr1);
1389 #else 1412 #else
1390 dirp = opendir (wd_expand (&self->tmpbuf, req->wd, req->ptr1)); 1413 dirp = opendir (wd_expand (&self->tmpbuf, req->wd, req->ptr1));
… …
1669eio_wd_close_sync (eio_wd wd) 1692eio_wd_close_sync (eio_wd wd)
1670{ 1693{
1671 if (wd != EIO_INVALID_WD && wd != EIO_CWD) 1694 if (wd != EIO_INVALID_WD && wd != EIO_CWD)
1672 { 1695 {
1673 #if HAVE_AT 1696 #if HAVE_AT
1674 close (wd->fd); 1697 eio__close (wd->fd);
1675 #endif 1698 #endif
1676 free (wd); 1699 free (wd);
1677 } 1700 }
1678} 1701}
1679 1702
1680#if HAVE_AT 1703#if HAVE_AT
1681 1704
1705static int
1706eio__renameat2 (int olddirfd, const char *oldpath, int newdirfd, const char *newpath, unsigned int flags)
1707{
1708#if HAVE_RENAMEAT2
1709 return syscall (SYS_renameat2, olddirfd, oldpath, newdirfd, newpath, flags);
1710#else
1711 if (flags)
1712 return EIO_ENOSYS ();
1713
1714 return renameat (olddirfd, oldpath, newdirfd, newpath);
1715#endif
1716}
1717
1682/* they forgot these */ 1718/* they forgot these */
1683 1719
1684static int 1720static int
1685eio__truncateat (int dirfd, const char *path, off_t length) 1721eio__truncateat (int dirfd, const char *path, off_t length)
1686{ 1722{
… …
1689 1725
1690 if (fd < 0) 1726 if (fd < 0)
1691 return fd; 1727 return fd;
1692 1728
1693 res = ftruncate (fd, length); 1729 res = ftruncate (fd, length);
1694 close (fd); 1730 silent_close (fd);
1695 return res; 1731 return res;
1696} 1732}
1697 1733
1698static int 1734static int
1699eio__statvfsat (int dirfd, const char *path, struct statvfs *buf) 1735eio__statvfsat (int dirfd, const char *path, struct statvfs *buf)
… …
1703 1739
1704 if (fd < 0) 1740 if (fd < 0)
1705 return fd; 1741 return fd;
1706 1742
1707 res = fstatvfs (fd, buf); 1743 res = fstatvfs (fd, buf);
1708 close (fd); 1744 silent_close (fd);
1709 return res; 1745 return res;
1710
1711} 1746}
1712 1747
1713#endif 1748#endif
1714 1749
1715/*****************************************************************************/ 1750/*****************************************************************************/
… …
1723 req->ptr2 = malloc (len); \ 1758 req->ptr2 = malloc (len); \
1724 if (!req->ptr2) \ 1759 if (!req->ptr2) \
1725 { \ 1760 { \
1726 errno = ENOMEM; \ 1761 errno = ENOMEM; \
1727 req->result = -1; \ 1762 req->result = -1; \
1728 break; \ 1763 goto alloc_fail; \
1729 } \ 1764 } \
1730 } 1765 }
1731 1766
1732/*****************************************************************************/ 1767/*****************************************************************************/
1768
1769static void
1770eio__slurp (int fd, eio_req *req)
1771{
1772 req->result = fd;
1773
1774 if (fd < 0)
1775 return;
1776
1777 if (req->offs < 0 || !req->size) /* do we need the size? */
1778 {
1779 off_t size = lseek (fd, 0, SEEK_END);
1780
1781 if (req->offs < 0)
1782 req->offs += size;
1783
1784 if (!req->size)
1785 req->size = size - req->offs;
1786 }
1787
1788 ALLOC (req->size);
1789 req->result = pread (fd, req->ptr2, req->size, req->offs);
1790
1791 silent_close (fd);
1792
1793alloc_fail:
1794 ;
1795}
1733 1796
1734int ecb_cold 1797int ecb_cold
1735eio_init (void (*want_poll)(void), void (*done_poll)(void)) 1798eio_init (void (*want_poll)(void), void (*done_poll)(void))
1736{ 1799{
1737 eio_want_poll_cb = want_poll; 1800 eio_want_poll_cb = want_poll;
… …
1835 req->result = fstatat (dirfd, req->ptr1, (EIO_STRUCT_STAT *)req->ptr2, AT_SYMLINK_NOFOLLOW); break; 1898 req->result = fstatat (dirfd, req->ptr1, (EIO_STRUCT_STAT *)req->ptr2, AT_SYMLINK_NOFOLLOW); break;
1836 case EIO_CHOWN: req->result = fchownat (dirfd, req->ptr1, req->int2, req->int3, 0); break; 1899 case EIO_CHOWN: req->result = fchownat (dirfd, req->ptr1, req->int2, req->int3, 0); break;
1837 case EIO_CHMOD: req->result = fchmodat (dirfd, req->ptr1, (mode_t)req->int2, 0); break; 1900 case EIO_CHMOD: req->result = fchmodat (dirfd, req->ptr1, (mode_t)req->int2, 0); break;
1838 case EIO_TRUNCATE: req->result = eio__truncateat (dirfd, req->ptr1, req->offs); break; 1901 case EIO_TRUNCATE: req->result = eio__truncateat (dirfd, req->ptr1, req->offs); break;
1839 case EIO_OPEN: req->result = openat (dirfd, req->ptr1, req->int1, (mode_t)req->int2); break; 1902 case EIO_OPEN: req->result = openat (dirfd, req->ptr1, req->int1, (mode_t)req->int2); break;
1903 case EIO_SLURP: eio__slurp ( openat (dirfd, req->ptr1, O_RDONLY | O_CLOEXEC), req); break;
1840 1904
1841 case EIO_UNLINK: req->result = unlinkat (dirfd, req->ptr1, 0); break; 1905 case EIO_UNLINK: req->result = unlinkat (dirfd, req->ptr1, 0); break;
1842 case EIO_RMDIR: /* complications arise because "." cannot be removed, so we might have to expand */ 1906 case EIO_RMDIR: /* complications arise because "." cannot be removed, so we might have to expand */
1843 req->result = req->wd && SINGLEDOT (req->ptr1) 1907 req->result = req->wd && SINGLEDOT (req->ptr1)
1844 ? rmdir (req->wd->str) 1908 ? rmdir (req->wd->str)
1845 : unlinkat (dirfd, req->ptr1, AT_REMOVEDIR); break; 1909 : unlinkat (dirfd, req->ptr1, AT_REMOVEDIR); break;
1846 case EIO_MKDIR: req->result = mkdirat (dirfd, req->ptr1, (mode_t)req->int2); break; 1910 case EIO_MKDIR: req->result = mkdirat (dirfd, req->ptr1, (mode_t)req->int2); break;
1911 case EIO_RENAME: req->result = eio__renameat2 (
1912 dirfd,
1847 case EIO_RENAME: /* complications arise because "." cannot be renamed, so we might have to expand */ 1913 /* complications arise because "." cannot be renamed, so we might have to expand */
1848 req->result = req->wd && SINGLEDOT (req->ptr1) 1914 req->wd && SINGLEDOT (req->ptr1) ? req->wd->str : req->ptr1,
1849 ? rename (req->wd->str, req->ptr2) 1915 WD2FD ((eio_wd)req->int3),
1850 : renameat (dirfd, req->ptr1, WD2FD ((eio_wd)req->int3), req->ptr2); break; 1916 req->ptr2,
1917 req->int2
1918 );
1919 break;
1851 case EIO_LINK: req->result = linkat (dirfd, req->ptr1, WD2FD ((eio_wd)req->int3), req->ptr2, 0); break; 1920 case EIO_LINK: req->result = linkat (dirfd, req->ptr1, WD2FD ((eio_wd)req->int3), req->ptr2, 0); break;
1852 case EIO_SYMLINK: req->result = symlinkat (req->ptr1, dirfd, req->ptr2); break; 1921 case EIO_SYMLINK: req->result = symlinkat (req->ptr1, dirfd, req->ptr2); break;
1853 case EIO_MKNOD: req->result = mknodat (dirfd, req->ptr1, (mode_t)req->int2, (dev_t)req->offs); break; 1922 case EIO_MKNOD: req->result = mknodat (dirfd, req->ptr1, (mode_t)req->int2, (dev_t)req->offs); break;
1854 case EIO_STATVFS: ALLOC (sizeof (EIO_STRUCT_STATVFS)); 1923 case EIO_STATVFS: ALLOC (sizeof (EIO_STRUCT_STATVFS));
1855 req->result = eio__statvfsat (dirfd, req->ptr1, (EIO_STRUCT_STATVFS *)req->ptr2); break; 1924 req->result = eio__statvfsat (dirfd, req->ptr1, (EIO_STRUCT_STATVFS *)req->ptr2); break;
… …
1893 req->result = lstat (path , (EIO_STRUCT_STAT *)req->ptr2); break; 1962 req->result = lstat (path , (EIO_STRUCT_STAT *)req->ptr2); break;
1894 case EIO_CHOWN: req->result = chown (path , req->int2, req->int3); break; 1963 case EIO_CHOWN: req->result = chown (path , req->int2, req->int3); break;
1895 case EIO_CHMOD: req->result = chmod (path , (mode_t)req->int2); break; 1964 case EIO_CHMOD: req->result = chmod (path , (mode_t)req->int2); break;
1896 case EIO_TRUNCATE: req->result = truncate (path , req->offs); break; 1965 case EIO_TRUNCATE: req->result = truncate (path , req->offs); break;
1897 case EIO_OPEN: req->result = open (path , req->int1, (mode_t)req->int2); break; 1966 case EIO_OPEN: req->result = open (path , req->int1, (mode_t)req->int2); break;
1967 case EIO_SLURP: eio__slurp ( open (path , O_RDONLY | O_CLOEXEC), req); break;
1898 1968
1899 case EIO_UNLINK: req->result = unlink (path ); break; 1969 case EIO_UNLINK: req->result = unlink (path ); break;
1900 case EIO_RMDIR: req->result = rmdir (path ); break; 1970 case EIO_RMDIR: req->result = rmdir (path ); break;
1901 case EIO_MKDIR: req->result = mkdir (path , (mode_t)req->int2); break; 1971 case EIO_MKDIR: req->result = mkdir (path , (mode_t)req->int2); break;
1902 case EIO_RENAME: req->result = rename (path , req->ptr2); break; 1972 case EIO_RENAME: req->result = req->int2 ? EIO_ENOSYS () : rename (path, req->ptr2); break;
1903 case EIO_LINK: req->result = link (path , req->ptr2); break; 1973 case EIO_LINK: req->result = link (path , req->ptr2); break;
1904 case EIO_SYMLINK: req->result = symlink (path , req->ptr2); break; 1974 case EIO_SYMLINK: req->result = symlink (path , req->ptr2); break;
1905 case EIO_MKNOD: req->result = mknod (path , (mode_t)req->int2, (dev_t)req->offs); break; 1975 case EIO_MKNOD: req->result = mknod (path , (mode_t)req->int2, (dev_t)req->offs); break;
1906 case EIO_STATVFS: ALLOC (sizeof (EIO_STRUCT_STATVFS)); 1976 case EIO_STATVFS: ALLOC (sizeof (EIO_STRUCT_STATVFS));
1907 req->result = statvfs (path , (EIO_STRUCT_STATVFS *)req->ptr2); break; 1977 req->result = statvfs (path , (EIO_STRUCT_STATVFS *)req->ptr2); break;
… …
1955 2025
1956 case EIO_FCHOWN: req->result = fchown (req->int1, req->int2, req->int3); break; 2026 case EIO_FCHOWN: req->result = fchown (req->int1, req->int2, req->int3); break;
1957 case EIO_FCHMOD: req->result = fchmod (req->int1, (mode_t)req->int2); break; 2027 case EIO_FCHMOD: req->result = fchmod (req->int1, (mode_t)req->int2); break;
1958 case EIO_FTRUNCATE: req->result = ftruncate (req->int1, req->offs); break; 2028 case EIO_FTRUNCATE: req->result = ftruncate (req->int1, req->offs); break;
1959 2029
1960 case EIO_CLOSE: req->result = close (req->int1); break; 2030 case EIO_CLOSE: req->result = eio__close (req->int1); break;
1961 case EIO_DUP2: req->result = dup2 (req->int1, req->int2); break; 2031 case EIO_DUP2: req->result = dup2 (req->int1, req->int2); break;
1962 case EIO_SYNC: req->result = 0; sync (); break; 2032 case EIO_SYNC: req->result = 0; sync (); break;
1963 case EIO_FSYNC: req->result = fsync (req->int1); break; 2033 case EIO_FSYNC: req->result = fsync (req->int1); break;
1964 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break; 2034 case EIO_FDATASYNC: req->result = fdatasync (req->int1); break;
1965 case EIO_SYNCFS: req->result = eio__syncfs (req->int1); break; 2035 case EIO_SYNCFS: req->result = eio__syncfs (req->int1); break;
… …
2003 default: 2073 default:
2004 req->result = EIO_ENOSYS (); 2074 req->result = EIO_ENOSYS ();
2005 break; 2075 break;
2006 } 2076 }
2007 2077
2078alloc_fail:
2008 req->errorno = errno; 2079 req->errorno = errno;
2009} 2080}
2010 2081
2011#ifndef EIO_NO_WRAPPERS 2082#ifndef EIO_NO_WRAPPERS
2012 2083
… …
2265eio_req *eio_rename (const char *path, const char *new_path, int pri, eio_cb cb, void *data) 2336eio_req *eio_rename (const char *path, const char *new_path, int pri, eio_cb cb, void *data)
2266{ 2337{
2267 return eio__2path (EIO_RENAME, path, new_path, pri, cb, data); 2338 return eio__2path (EIO_RENAME, path, new_path, pri, cb, data);
2268} 2339}
2269 2340
2341eio_req *eio_slurp (const char *path, void *buf, size_t length, off_t offset, int pri, eio_cb cb, void *data)
2342{
2343 REQ (EIO_SLURP); PATH; req->offs = offset; req->size = length; req->ptr2 = buf; SEND;
2344}
2345
2270eio_req *eio_custom (void (*execute)(eio_req *), int pri, eio_cb cb, void *data) 2346eio_req *eio_custom (void (*execute)(eio_req *), int pri, eio_cb cb, void *data)
2271{ 2347{
2272 REQ (EIO_CUSTOM); req->feed = execute; SEND; 2348 REQ (EIO_CUSTOM); req->feed = execute; SEND;
2273} 2349}
2274 2350

Diff Legend

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