311 lines
8.7 KiB
C
311 lines
8.7 KiB
C
|
/* Copyright (C) 1991-2022 Free Software Foundation, Inc.
|
|||
|
This file is part of the GNU C Library.
|
|||
|
|
|||
|
The GNU C Library is free software; you can redistribute it and/or
|
|||
|
modify it under the terms of the GNU Lesser General Public
|
|||
|
License as published by the Free Software Foundation; either
|
|||
|
version 2.1 of the License, or (at your option) any later version.
|
|||
|
|
|||
|
The GNU C Library is distributed in the hope that it will be useful,
|
|||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|||
|
Lesser General Public License for more details.
|
|||
|
|
|||
|
You should have received a copy of the GNU Lesser General Public
|
|||
|
License along with the GNU C Library; if not, see
|
|||
|
<https://www.gnu.org/licenses/>. */
|
|||
|
|
|||
|
#include <errno.h>
|
|||
|
#include <sys/types.h>
|
|||
|
#include <sys/stat.h>
|
|||
|
#include <hurd.h>
|
|||
|
#include <hurd/port.h>
|
|||
|
#include <dirent.h>
|
|||
|
#include <unistd.h>
|
|||
|
#include <stdlib.h>
|
|||
|
#include <string.h>
|
|||
|
#include <stdio.h>
|
|||
|
#include <fcntl.h>
|
|||
|
|
|||
|
|
|||
|
/* Get the canonical absolute name of the given directory port, and put it
|
|||
|
in SIZE bytes of BUF. Returns NULL if the directory couldn't be
|
|||
|
determined or SIZE was too small. If successful, returns BUF. In GNU,
|
|||
|
if BUF is NULL, an array is allocated with `malloc'; the array is SIZE
|
|||
|
bytes long, unless SIZE <= 0, in which case it is as big as necessary.
|
|||
|
If our root directory cannot be reached, the result will not begin with
|
|||
|
a slash to indicate that it is relative to some unknown root directory. */
|
|||
|
|
|||
|
char *
|
|||
|
__hurd_canonicalize_directory_name_internal (file_t thisdir,
|
|||
|
char *buf,
|
|||
|
size_t size)
|
|||
|
{
|
|||
|
error_t err;
|
|||
|
mach_port_t rootid, thisid, rootdevid, thisdevid;
|
|||
|
ino64_t rootino, thisino;
|
|||
|
char *file_name;
|
|||
|
char *file_namep;
|
|||
|
file_t parent;
|
|||
|
char *dirbuf = NULL;
|
|||
|
unsigned int dirbufsize = 0;
|
|||
|
const size_t orig_size = size;
|
|||
|
|
|||
|
inline void cleanup (void)
|
|||
|
{
|
|||
|
if (parent != thisdir)
|
|||
|
__mach_port_deallocate (__mach_task_self (), parent);
|
|||
|
|
|||
|
__mach_port_deallocate (__mach_task_self (), thisid);
|
|||
|
__mach_port_deallocate (__mach_task_self (), thisdevid);
|
|||
|
__mach_port_deallocate (__mach_task_self (), rootid);
|
|||
|
|
|||
|
if (dirbuf != NULL)
|
|||
|
__vm_deallocate (__mach_task_self (),
|
|||
|
(vm_address_t) dirbuf, dirbufsize);
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
if (size <= 0)
|
|||
|
{
|
|||
|
if (buf != NULL)
|
|||
|
{
|
|||
|
errno = EINVAL;
|
|||
|
return NULL;
|
|||
|
}
|
|||
|
|
|||
|
size = FILENAME_MAX * 4 + 1; /* Good starting guess. */
|
|||
|
}
|
|||
|
|
|||
|
if (buf != NULL)
|
|||
|
file_name = buf;
|
|||
|
else
|
|||
|
{
|
|||
|
file_name = malloc (size);
|
|||
|
if (file_name == NULL)
|
|||
|
return NULL;
|
|||
|
}
|
|||
|
|
|||
|
file_namep = file_name + size;
|
|||
|
*--file_namep = '\0';
|
|||
|
|
|||
|
/* Get a port to our root directory and get its identity. */
|
|||
|
|
|||
|
if (err = __USEPORT (CRDIR, __io_identity (port,
|
|||
|
&rootid, &rootdevid, &rootino)))
|
|||
|
return __hurd_fail (err), NULL;
|
|||
|
__mach_port_deallocate (__mach_task_self (), rootdevid);
|
|||
|
|
|||
|
/* Stat the port to the directory of interest. */
|
|||
|
|
|||
|
if (err = __io_identity (thisdir, &thisid, &thisdevid, &thisino))
|
|||
|
{
|
|||
|
__mach_port_deallocate (__mach_task_self (), rootid);
|
|||
|
return __hurd_fail (err), NULL;
|
|||
|
}
|
|||
|
|
|||
|
parent = thisdir;
|
|||
|
while (thisid != rootid)
|
|||
|
{
|
|||
|
/* PARENT is a port to the directory we are currently on;
|
|||
|
THISID, THISDEV, and THISINO are its identity.
|
|||
|
Look in its parent (..) for a file with the same file number. */
|
|||
|
|
|||
|
struct dirent64 *d;
|
|||
|
mach_port_t dotid, dotdevid;
|
|||
|
ino64_t dotino;
|
|||
|
int mount_point;
|
|||
|
file_t newp;
|
|||
|
char *dirdata;
|
|||
|
size_t dirdatasize;
|
|||
|
int direntry, nentries;
|
|||
|
|
|||
|
|
|||
|
/* Look at the parent directory. */
|
|||
|
newp = __file_name_lookup_under (parent, "..", O_READ, 0);
|
|||
|
if (newp == MACH_PORT_NULL)
|
|||
|
goto lose;
|
|||
|
if (parent != thisdir)
|
|||
|
__mach_port_deallocate (__mach_task_self (), parent);
|
|||
|
parent = newp;
|
|||
|
|
|||
|
/* Get this directory's identity and figure out if it's a mount
|
|||
|
point. */
|
|||
|
if (err = __io_identity (parent, &dotid, &dotdevid, &dotino))
|
|||
|
goto errlose;
|
|||
|
mount_point = dotdevid != thisdevid;
|
|||
|
|
|||
|
if (thisid == dotid)
|
|||
|
{
|
|||
|
/* `..' == `.' but it is not our root directory. */
|
|||
|
__mach_port_deallocate (__mach_task_self (), dotid);
|
|||
|
__mach_port_deallocate (__mach_task_self (), dotdevid);
|
|||
|
break;
|
|||
|
}
|
|||
|
|
|||
|
/* Search for the last directory. */
|
|||
|
direntry = 0;
|
|||
|
dirdata = dirbuf;
|
|||
|
dirdatasize = dirbufsize;
|
|||
|
while (!(err = __dir_readdir (parent, &dirdata, &dirdatasize,
|
|||
|
direntry, -1, 0, &nentries))
|
|||
|
&& nentries != 0)
|
|||
|
{
|
|||
|
/* We have a block of directory entries. */
|
|||
|
|
|||
|
unsigned int offset;
|
|||
|
|
|||
|
direntry += nentries;
|
|||
|
|
|||
|
if (dirdata != dirbuf)
|
|||
|
{
|
|||
|
/* The data was passed out of line, so our old buffer is no
|
|||
|
longer useful. Deallocate the old buffer and reset our
|
|||
|
information for the new buffer. */
|
|||
|
__vm_deallocate (__mach_task_self (),
|
|||
|
(vm_address_t) dirbuf, dirbufsize);
|
|||
|
dirbuf = dirdata;
|
|||
|
dirbufsize = round_page (dirdatasize);
|
|||
|
}
|
|||
|
|
|||
|
/* Iterate over the returned directory entries, looking for one
|
|||
|
whose file number is THISINO. */
|
|||
|
|
|||
|
offset = 0;
|
|||
|
while (offset < dirdatasize)
|
|||
|
{
|
|||
|
d = (struct dirent64 *) &dirdata[offset];
|
|||
|
offset += d->d_reclen;
|
|||
|
|
|||
|
/* Ignore `.' and `..'. */
|
|||
|
if (d->d_name[0] == '.'
|
|||
|
&& (d->d_namlen == 1
|
|||
|
|| (d->d_namlen == 2 && d->d_name[1] == '.')))
|
|||
|
continue;
|
|||
|
|
|||
|
if (mount_point || d->d_ino == thisino)
|
|||
|
{
|
|||
|
file_t try = __file_name_lookup_under (parent, d->d_name,
|
|||
|
O_NOLINK, 0);
|
|||
|
file_t id, devid;
|
|||
|
ino64_t fileno;
|
|||
|
if (try == MACH_PORT_NULL)
|
|||
|
goto lose;
|
|||
|
err = __io_identity (try, &id, &devid, &fileno);
|
|||
|
__mach_port_deallocate (__mach_task_self (), try);
|
|||
|
if (err)
|
|||
|
goto inner_errlose;
|
|||
|
__mach_port_deallocate (__mach_task_self (), id);
|
|||
|
__mach_port_deallocate (__mach_task_self (), devid);
|
|||
|
if (id == thisid)
|
|||
|
goto found;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
if (err)
|
|||
|
{
|
|||
|
inner_errlose: /* Goto ERRLOSE: after cleaning up. */
|
|||
|
__mach_port_deallocate (__mach_task_self (), dotid);
|
|||
|
__mach_port_deallocate (__mach_task_self (), dotdevid);
|
|||
|
goto errlose;
|
|||
|
}
|
|||
|
else if (nentries == 0)
|
|||
|
{
|
|||
|
/* We got to the end of the directory without finding anything!
|
|||
|
We are in a directory that has been unlinked, or something is
|
|||
|
broken. */
|
|||
|
err = ENOENT;
|
|||
|
goto inner_errlose;
|
|||
|
}
|
|||
|
else
|
|||
|
found:
|
|||
|
{
|
|||
|
/* Prepend the directory name just discovered. */
|
|||
|
|
|||
|
if (file_namep - file_name < d->d_namlen + 1)
|
|||
|
{
|
|||
|
if (orig_size > 0)
|
|||
|
{
|
|||
|
errno = ERANGE;
|
|||
|
return NULL;
|
|||
|
}
|
|||
|
else
|
|||
|
{
|
|||
|
size *= 2;
|
|||
|
buf = realloc (file_name, size);
|
|||
|
if (buf == NULL)
|
|||
|
{
|
|||
|
free (file_name);
|
|||
|
return NULL;
|
|||
|
}
|
|||
|
file_namep = &buf[file_namep - file_name + size / 2];
|
|||
|
file_name = buf;
|
|||
|
/* Move current contents up to the end of the buffer.
|
|||
|
This is guaranteed to be non-overlapping. */
|
|||
|
memcpy (file_namep, file_namep - size / 2,
|
|||
|
file_name + size - file_namep);
|
|||
|
}
|
|||
|
}
|
|||
|
file_namep -= d->d_namlen;
|
|||
|
(void) memcpy (file_namep, d->d_name, d->d_namlen);
|
|||
|
*--file_namep = '/';
|
|||
|
}
|
|||
|
|
|||
|
/* The next iteration will find the name of the directory we
|
|||
|
just searched through. */
|
|||
|
__mach_port_deallocate (__mach_task_self (), thisid);
|
|||
|
__mach_port_deallocate (__mach_task_self (), thisdevid);
|
|||
|
thisid = dotid;
|
|||
|
thisdevid = dotdevid;
|
|||
|
thisino = dotino;
|
|||
|
}
|
|||
|
|
|||
|
if (file_namep == &file_name[size - 1])
|
|||
|
/* We found nothing and got all the way to the root.
|
|||
|
So the root is our current directory. */
|
|||
|
*--file_namep = '/';
|
|||
|
|
|||
|
memmove (file_name, file_namep, file_name + size - file_namep);
|
|||
|
cleanup ();
|
|||
|
return file_name;
|
|||
|
|
|||
|
errlose:
|
|||
|
/* Set errno. */
|
|||
|
(void) __hurd_fail (err);
|
|||
|
lose:
|
|||
|
cleanup ();
|
|||
|
return NULL;
|
|||
|
}
|
|||
|
strong_alias (__hurd_canonicalize_directory_name_internal, _hurd_canonicalize_directory_name_internal)
|
|||
|
|
|||
|
char *
|
|||
|
__canonicalize_directory_name_internal (const char *thisdir, char *buf,
|
|||
|
size_t size)
|
|||
|
{
|
|||
|
char *result;
|
|||
|
file_t port = __file_name_lookup (thisdir, 0, 0);
|
|||
|
if (port == MACH_PORT_NULL)
|
|||
|
return NULL;
|
|||
|
result = __hurd_canonicalize_directory_name_internal (port, buf, size);
|
|||
|
__mach_port_deallocate (__mach_task_self (), port);
|
|||
|
return result;
|
|||
|
}
|
|||
|
|
|||
|
/* Get the pathname of the current working directory, and put it in SIZE
|
|||
|
bytes of BUF. Returns NULL if the directory couldn't be determined or
|
|||
|
SIZE was too small. If successful, returns BUF. In GNU, if BUF is
|
|||
|
NULL, an array is allocated with `malloc'; the array is SIZE bytes long,
|
|||
|
unless SIZE <= 0, in which case it is as big as necessary. */
|
|||
|
char *
|
|||
|
__getcwd (char *buf, size_t size)
|
|||
|
{
|
|||
|
char *cwd =
|
|||
|
__USEPORT (CWDIR,
|
|||
|
__hurd_canonicalize_directory_name_internal (port,
|
|||
|
buf, size));
|
|||
|
return cwd;
|
|||
|
}
|
|||
|
libc_hidden_def (__getcwd)
|
|||
|
weak_alias (__getcwd, getcwd)
|