500 lines
11 KiB
C++
500 lines
11 KiB
C++
/* dir.cc: Posix directory-related routines
|
|
|
|
This file is part of Cygwin.
|
|
|
|
This software is a copyrighted work licensed under the terms of the
|
|
Cygwin license. Please consult the file "CYGWIN_LICENSE" for
|
|
details. */
|
|
|
|
#include "winsup.h"
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <sys/stat.h>
|
|
|
|
#define _LIBC
|
|
#include <dirent.h>
|
|
|
|
#include "cygerrno.h"
|
|
#include "security.h"
|
|
#include "path.h"
|
|
#include "fhandler.h"
|
|
#include "dtable.h"
|
|
#include "cygheap.h"
|
|
#include "cygtls.h"
|
|
#include "tls_pbuf.h"
|
|
|
|
extern "C" int
|
|
dirfd (DIR *dir)
|
|
{
|
|
__try
|
|
{
|
|
if (dir->__d_cookie == __DIRENT_COOKIE)
|
|
return dir->__d_fd;
|
|
syscall_printf ("-1 = dirfd (%p)", dir);
|
|
set_errno (EINVAL);
|
|
}
|
|
__except (EFAULT) {}
|
|
__endtry
|
|
return -1;
|
|
}
|
|
|
|
/* Symbol kept for backward compatibility. Don't remove. Don't declare
|
|
in public header file. */
|
|
extern "C" DIR *
|
|
__opendir_with_d_ino (const char *name)
|
|
{
|
|
return opendir (name);
|
|
}
|
|
|
|
/* opendir: POSIX 5.1.2.1 */
|
|
extern "C" DIR *
|
|
opendir (const char *name)
|
|
{
|
|
fhandler_base *fh;
|
|
DIR *res;
|
|
|
|
fh = build_fh_name (name, PC_SYM_FOLLOW);
|
|
if (!fh)
|
|
res = NULL;
|
|
else if (fh->error ())
|
|
{
|
|
set_errno (fh->error ());
|
|
res = NULL;
|
|
}
|
|
else if (!fh->exists ())
|
|
{
|
|
set_errno (ENOENT);
|
|
res = NULL;
|
|
}
|
|
else if (!fh->pc.isdir ())
|
|
{
|
|
set_errno (ENOTDIR);
|
|
res = NULL;
|
|
}
|
|
else
|
|
res = fh->opendir (-1);
|
|
|
|
if (!res && fh)
|
|
delete fh;
|
|
/* Applications calling flock(2) on dirfd(fd) need this... */
|
|
if (res && !fh->nohandle ())
|
|
fh->set_unique_id ();
|
|
return res;
|
|
}
|
|
|
|
extern "C" DIR *
|
|
fdopendir (int fd)
|
|
{
|
|
DIR *res = NULL;
|
|
|
|
cygheap_fdget cfd (fd);
|
|
if (cfd >= 0)
|
|
res = cfd->opendir (fd);
|
|
return res;
|
|
}
|
|
|
|
static int
|
|
readdir_worker (DIR *dir, dirent *de)
|
|
{
|
|
int res = 0;
|
|
|
|
__try
|
|
{
|
|
if (dir->__d_cookie != __DIRENT_COOKIE)
|
|
{
|
|
syscall_printf ("%p = readdir (%p)", NULL, dir);
|
|
res = EBADF;
|
|
__leave;
|
|
}
|
|
|
|
de->d_ino = 0;
|
|
de->d_type = DT_UNKNOWN;
|
|
de->d_reclen = sizeof *de;
|
|
memset (&de->__d_unused1, 0, sizeof (de->__d_unused1));
|
|
|
|
res = ((fhandler_base *) dir->__fh)->readdir (dir, de);
|
|
|
|
if (res == ENMFILE)
|
|
{
|
|
if (!(dir->__flags & dirent_saw_dot))
|
|
{
|
|
strcpy (de->d_name, ".");
|
|
dir->__flags |= dirent_saw_dot;
|
|
dir->__d_position++;
|
|
res = 0;
|
|
}
|
|
else if (!(dir->__flags & dirent_saw_dot_dot))
|
|
{
|
|
strcpy (de->d_name, "..");
|
|
dir->__flags |= dirent_saw_dot_dot;
|
|
dir->__d_position++;
|
|
res = 0;
|
|
}
|
|
}
|
|
|
|
if (!res && !de->d_ino)
|
|
{
|
|
bool is_dot = false;
|
|
bool is_dot_dot = false;
|
|
|
|
if (de->d_name[0] == '.')
|
|
{
|
|
if (de->d_name[1] == '\0')
|
|
is_dot = true;
|
|
else if (de->d_name[1] == '.' && de->d_name[2] == '\0')
|
|
is_dot_dot = true;
|
|
}
|
|
|
|
if (is_dot_dot && !(dir->__flags & dirent_isroot))
|
|
de->d_ino = readdir_get_ino (((fhandler_base *)
|
|
dir->__fh)->get_name (),
|
|
true);
|
|
else
|
|
{
|
|
/* Compute d_ino by combining filename hash with directory hash. */
|
|
de->d_ino = ((fhandler_base *) dir->__fh)->get_ino ();
|
|
if (!is_dot && !is_dot_dot)
|
|
{
|
|
PUNICODE_STRING w32name =
|
|
((fhandler_base *) dir->__fh)->pc.get_nt_native_path ();
|
|
DWORD devn = ((fhandler_base *) dir->__fh)->get_device ();
|
|
/* Paths below /proc don't have a Win32 pendant. */
|
|
if (isproc_dev (devn))
|
|
de->d_ino = hash_path_name (de->d_ino, L"/");
|
|
else if (w32name->Buffer[w32name->Length / sizeof (WCHAR) - 1]
|
|
!= L'\\')
|
|
de->d_ino = hash_path_name (de->d_ino, L"\\");
|
|
de->d_ino = hash_path_name (de->d_ino, de->d_name);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
__except (NO_ERROR)
|
|
{
|
|
res = EFAULT;
|
|
}
|
|
__endtry
|
|
return res;
|
|
}
|
|
|
|
/* readdir: POSIX 5.1.2.1 */
|
|
extern "C" struct dirent *
|
|
readdir (DIR *dir)
|
|
{
|
|
int res = readdir_worker (dir, dir->__d_dirent);
|
|
if (res == 0)
|
|
return dir->__d_dirent;
|
|
if (res != ENMFILE)
|
|
set_errno (res);
|
|
return NULL;
|
|
}
|
|
|
|
extern "C" int
|
|
readdir_r (DIR *__restrict dir, dirent *__restrict de, dirent **__restrict ode)
|
|
{
|
|
int res = readdir_worker (dir, de);
|
|
if (!res)
|
|
*ode = de;
|
|
else
|
|
{
|
|
*ode = NULL;
|
|
if (res == ENMFILE)
|
|
res = 0;
|
|
}
|
|
return res;
|
|
}
|
|
|
|
extern "C"
|
|
ssize_t posix_getdents(int fd, void *buf, size_t nbytes, int flags)
|
|
{
|
|
struct posix_dent *dent_buf, *src;
|
|
ssize_t cnt = 0;
|
|
|
|
cygheap_fdget cfd (fd);
|
|
/* Valid descriptor? */
|
|
if (cfd < 0)
|
|
return -1;
|
|
/* Valid flags? Right now only DT_FORCE_TYPE is defined */
|
|
if ((flags & ~DT_FORCE_TYPE) != 0)
|
|
{
|
|
set_errno (EINVAL);
|
|
return -1;
|
|
}
|
|
/* Create type-safe buffer pointer */
|
|
dent_buf = (struct posix_dent *) buf;
|
|
/* Check if nbytes is big enough to fit at least one struct posix_dent */
|
|
if (nbytes < sizeof (struct posix_dent))
|
|
{
|
|
set_errno (EINVAL);
|
|
return -1;
|
|
}
|
|
/* Create internal DIR * on first invocation */
|
|
if (!cfd->getdents_dir ())
|
|
{
|
|
cfd->getdents_dir (cfd->opendir (fd));
|
|
if (!cfd->getdents_dir ())
|
|
return -1;
|
|
}
|
|
/* Now loop until EOF or buf is full */
|
|
while (nbytes >= sizeof (struct posix_dent))
|
|
{
|
|
/* Our struct posix_dent is identical to struct dirent */
|
|
src = (struct posix_dent *) readdir (cfd->getdents_dir ());
|
|
if (!src)
|
|
break;
|
|
/* Handle the suggested DT_FORCE_TYPE flag */
|
|
if (src->d_type == DT_UNKNOWN && (flags & DT_FORCE_TYPE))
|
|
{
|
|
struct stat st;
|
|
|
|
if (!fstatat (fd, src->d_name, &st, AT_SYMLINK_NOFOLLOW))
|
|
src->d_type = IFTODT (st.st_mode);
|
|
}
|
|
*dent_buf++ = *src;
|
|
++cnt;
|
|
nbytes -= sizeof (struct posix_dent);
|
|
}
|
|
return cnt * sizeof (struct posix_dent);
|
|
}
|
|
|
|
/* telldir */
|
|
extern "C" long
|
|
telldir (DIR *dir)
|
|
{
|
|
__try
|
|
{
|
|
if (dir->__d_cookie == __DIRENT_COOKIE)
|
|
return ((fhandler_base *) dir->__fh)->telldir (dir);
|
|
set_errno (EBADF);
|
|
}
|
|
__except (EFAULT) {}
|
|
__endtry
|
|
return -1;
|
|
}
|
|
|
|
/* telldir was never defined using off_t in POSIX, only in early versions
|
|
of glibc. We have to keep the function in as entry point for backward
|
|
compatibility. */
|
|
extern "C" off_t
|
|
telldir64 (DIR *dir)
|
|
{
|
|
return (off_t) telldir (dir);
|
|
}
|
|
|
|
/* seekdir */
|
|
extern "C" void
|
|
seekdir (DIR *dir, long loc)
|
|
{
|
|
__try
|
|
{
|
|
if (dir->__d_cookie == __DIRENT_COOKIE)
|
|
{
|
|
dir->__flags &= dirent_info_mask;
|
|
((fhandler_base *) dir->__fh)->seekdir (dir, loc);
|
|
}
|
|
}
|
|
__except (EFAULT) {}
|
|
__endtry
|
|
}
|
|
|
|
/* seekdir was never defined using off_t in POSIX, only in early versions
|
|
of glibc. We have to keep the function in as entry point for backward
|
|
compatibility. */
|
|
extern "C" void
|
|
seekdir64 (DIR *dir, off_t loc)
|
|
{
|
|
seekdir (dir, (long) loc);
|
|
}
|
|
|
|
/* rewinddir: POSIX 5.1.2.1 */
|
|
extern "C" void
|
|
rewinddir (DIR *dir)
|
|
{
|
|
__try
|
|
{
|
|
if (dir->__d_cookie == __DIRENT_COOKIE)
|
|
{
|
|
dir->__flags &= dirent_info_mask;
|
|
((fhandler_base *) dir->__fh)->rewinddir (dir);
|
|
}
|
|
set_errno (EINVAL); /* Diagnosis */
|
|
}
|
|
__except (EFAULT) {}
|
|
__endtry
|
|
}
|
|
|
|
static int
|
|
closedir_worker (DIR *dir, int *fdret)
|
|
{
|
|
__try
|
|
{
|
|
if (dir->__d_cookie == __DIRENT_COOKIE)
|
|
{
|
|
/* Reset the marker in case the caller tries to use `dir' again. */
|
|
dir->__d_cookie = 0;
|
|
|
|
int res = ((fhandler_base *) dir->__fh)->closedir (dir);
|
|
|
|
if (fdret)
|
|
*fdret = dir->__d_fd;
|
|
else
|
|
close (dir->__d_fd);
|
|
|
|
free (dir->__d_dirname);
|
|
free (dir->__d_dirent);
|
|
free (dir);
|
|
return res;
|
|
}
|
|
set_errno (EBADF);
|
|
}
|
|
__except (EFAULT) {}
|
|
__endtry
|
|
return -1;
|
|
}
|
|
|
|
/* closedir: POSIX 5.1.2.1 */
|
|
extern "C" int
|
|
closedir (DIR *dir)
|
|
{
|
|
int res;
|
|
|
|
res = closedir_worker (dir, NULL);
|
|
syscall_printf ("%R = closedir(%p)", res, dir);
|
|
return res;
|
|
}
|
|
|
|
extern "C" int
|
|
fdclosedir (DIR *dir)
|
|
{
|
|
int fd = -1;
|
|
|
|
closedir_worker (dir, &fd);
|
|
syscall_printf ("%d = fdclosedir(%p)", fd, dir);
|
|
return fd;
|
|
}
|
|
|
|
/* mkdir: POSIX 5.4.1.1 */
|
|
extern "C" int
|
|
mkdir (const char *dir, mode_t mode)
|
|
{
|
|
int res = -1;
|
|
fhandler_base *fh = NULL;
|
|
tmp_pathbuf tp;
|
|
|
|
__try
|
|
{
|
|
if (!*dir)
|
|
{
|
|
set_errno (ENOENT);
|
|
__leave;
|
|
}
|
|
/* Following Linux, and intentionally ignoring POSIX, do not
|
|
resolve the last component of DIR if it is a symlink, even if
|
|
DIR has a trailing slash. Achieve this by stripping trailing
|
|
slashes or backslashes.
|
|
|
|
Exception: If DIR == 'x:' followed by one or more slashes or
|
|
backslashes, and if there's at least one backslash, assume
|
|
that the user is referring to the root directory of drive x.
|
|
Retain one backslash in this case. */
|
|
if (isdirsep (dir[strlen (dir) - 1]))
|
|
{
|
|
/* This converts // to /, but since both give EEXIST, we're okay. */
|
|
char *buf;
|
|
char *p = stpcpy (buf = tp.c_get (), dir) - 1;
|
|
bool msdos = false;
|
|
dir = buf;
|
|
while (p > dir && isdirsep (*p))
|
|
{
|
|
if (*p == '\\')
|
|
msdos = true;
|
|
*p-- = '\0';
|
|
}
|
|
if (msdos && p == dir + 1 && isdrive (dir))
|
|
p[1] = '\\';
|
|
}
|
|
if (!(fh = build_fh_name (dir, PC_SYM_NOFOLLOW)))
|
|
__leave; /* errno already set */;
|
|
|
|
if (fh->error ())
|
|
{
|
|
debug_printf ("got %d error from build_fh_name", fh->error ());
|
|
set_errno (fh->error ());
|
|
}
|
|
else if (fh->exists ())
|
|
set_errno (EEXIST);
|
|
else if (has_dot_last_component (dir, true))
|
|
set_errno (ENOENT);
|
|
else if (!fh->mkdir (mode))
|
|
res = 0;
|
|
delete fh;
|
|
}
|
|
__except (EFAULT) {}
|
|
__endtry
|
|
syscall_printf ("%R = mkdir(%s, %d)", res, dir, mode);
|
|
return res;
|
|
}
|
|
|
|
/* rmdir: POSIX 5.5.2.1 */
|
|
extern "C" int
|
|
rmdir (const char *dir)
|
|
{
|
|
int res = -1;
|
|
fhandler_base *fh = NULL;
|
|
tmp_pathbuf tp;
|
|
|
|
__try
|
|
{
|
|
if (!*dir)
|
|
{
|
|
set_errno (ENOENT);
|
|
__leave;
|
|
}
|
|
/* Following Linux, and intentionally ignoring POSIX, do not
|
|
resolve the last component of DIR if it is a symlink, even if
|
|
DIR has a trailing slash. Achieve this by stripping trailing
|
|
slashes or backslashes.
|
|
|
|
Exception: If DIR == 'x:' followed by one or more slashes or
|
|
backslashes, and if there's at least one backslash, assume
|
|
that the user is referring to the root directory of drive x.
|
|
Retain one backslash in this case. */
|
|
if (isdirsep (dir[strlen (dir) - 1]))
|
|
{
|
|
/* This converts // to /, but since both give ENOTEMPTY,
|
|
we're okay. */
|
|
char *buf;
|
|
char *p = stpcpy (buf = tp.c_get (), dir) - 1;
|
|
bool msdos = false;
|
|
dir = buf;
|
|
while (p > dir && isdirsep (*p))
|
|
{
|
|
if (*p == '\\')
|
|
msdos = true;
|
|
*p-- = '\0';
|
|
}
|
|
if (msdos && p == dir + 1 && isdrive (dir))
|
|
p[1] = '\\';
|
|
}
|
|
if (!(fh = build_fh_name (dir, PC_SYM_NOFOLLOW)))
|
|
__leave; /* errno already set */;
|
|
|
|
if (fh->error ())
|
|
{
|
|
debug_printf ("got %d error from build_fh_name", fh->error ());
|
|
set_errno (fh->error ());
|
|
}
|
|
else if (!fh->exists ())
|
|
set_errno (ENOENT);
|
|
else if (has_dot_last_component (dir, false))
|
|
set_errno (EINVAL);
|
|
else if (!fh->rmdir ())
|
|
res = 0;
|
|
delete fh;
|
|
}
|
|
__except (EFAULT) {}
|
|
__endtry
|
|
syscall_printf ("%R = rmdir(%s)", res, dir);
|
|
return res;
|
|
}
|