summaryrefslogtreecommitdiff
path: root/cross/lib/save-cwd.c
diff options
context:
space:
mode:
Diffstat (limited to 'cross/lib/save-cwd.c')
-rw-r--r--cross/lib/save-cwd.c89
1 files changed, 0 insertions, 89 deletions
diff --git a/cross/lib/save-cwd.c b/cross/lib/save-cwd.c
deleted file mode 100644
index 7c517d1c819..00000000000
--- a/cross/lib/save-cwd.c
+++ /dev/null
@@ -1,89 +0,0 @@
-/* save-cwd.c -- Save and restore current working directory.
-
- Copyright (C) 1995, 1997-1998, 2003-2006, 2009-2023 Free Software
- Foundation, Inc.
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
-
- This program 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 General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <https://www.gnu.org/licenses/>. */
-
-/* Gnulib needs to save and restore the current working directory to
- fully emulate functions like fstatat. But Emacs doesn't care what
- the current working directory is; it always uses absolute file
- names. This module replaces the Gnulib module by omitting the code
- that Emacs does not need. */
-
-#include <config.h>
-
-#include "save-cwd.h"
-
-#include <fcntl.h>
-#include <unistd.h>
-
-/* Record the location of the current working directory in CWD so that
- the program may change to other directories and later use restore_cwd
- to return to the recorded location. This function may allocate
- space using malloc (via getcwd) or leave a file descriptor open;
- use free_cwd to perform the necessary free or close. Upon failure,
- no memory is allocated, any locally opened file descriptors are
- closed; return non-zero -- in that case, free_cwd need not be
- called, but doing so is ok. Otherwise, return zero.
-
- The _raison d'etre_ for this interface is that the working directory
- is sometimes inaccessible, and getcwd is not robust or as efficient.
- So, we prefer to use the open/fchdir approach, but fall back on
- getcwd if necessary. This module works for most cases with just
- the getcwd-lgpl module, but to be truly robust, use the getcwd module.
-
- Some systems lack fchdir altogether: e.g., OS/2, pre-2001 Cygwin,
- SCO Xenix. Also, SunOS 4 and Irix 5.3 provide the function, yet it
- doesn't work for partitions on which auditing is enabled. If
- you're still using an obsolete system with these problems, please
- send email to the maintainer of this code. */
-
-#if !defined HAVE_FCHDIR && !defined fchdir
-# define fchdir(fd) (-1)
-#endif
-
-int
-save_cwd (struct saved_cwd *cwd)
-{
- cwd->desc = open (".", O_SEARCH | O_CLOEXEC);
- /* The 'name' member is present only to minimize differences from
- gnulib. Initialize it to zero, if only to simplify debugging. */
- cwd->name = 0;
- return 0;
-}
-
-/* Change to recorded location, CWD, in directory hierarchy.
- Upon failure, return -1 (errno is set by chdir or fchdir).
- Upon success, return zero. */
-
-int
-restore_cwd (const struct saved_cwd *cwd)
-{
- /* Restore the previous directory if possible, to avoid tying down
- the file system of the new directory (Bug#18232).
- Don't worry if fchdir fails, as Emacs doesn't care what the
- working directory is. The fchdir call is inside an 'if' merely to
- pacify compilers that complain if fchdir's return value is ignored. */
- if (fchdir (cwd->desc) == 0)
- return 0;
-
- return 0;
-}
-
-void
-free_cwd (struct saved_cwd *cwd)
-{
- close (cwd->desc);
-}