1 /* Work around rename bugs in some systems.
3 Copyright (C) 2001, 2002, 2003, 2005, 2006, 2009 Free Software
6 This program is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19 /* Written by Volker Borchert, Eric Blake. */
27 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
28 /* The mingw rename has problems with trailing slashes; it also
29 requires use of native Windows calls to allow atomic renames over
34 # define WIN32_LEAN_AND_MEAN
37 /* Rename the file SRC to DST. This replacement is necessary on
38 Windows, on which the system rename function will not replace
41 rpl_rename (char const *src, char const *dst)
45 /* MoveFileEx works if SRC is a directory without any flags,
46 but fails with MOVEFILE_REPLACE_EXISTING, so try without
48 if (MoveFileEx (src, dst, 0))
51 /* Retry with MOVEFILE_REPLACE_EXISTING if the move failed
52 * due to the destination already existing. */
53 error = GetLastError ();
54 if (error == ERROR_FILE_EXISTS || error == ERROR_ALREADY_EXISTS)
56 if (MoveFileEx (src, dst, MOVEFILE_REPLACE_EXISTING))
59 error = GetLastError ();
64 case ERROR_FILE_NOT_FOUND:
65 case ERROR_PATH_NOT_FOUND:
66 case ERROR_BAD_PATHNAME:
71 case ERROR_ACCESS_DENIED:
72 case ERROR_SHARING_VIOLATION:
76 case ERROR_OUTOFMEMORY:
80 case ERROR_CURRENT_DIRECTORY:
84 case ERROR_NOT_SAME_DEVICE:
88 case ERROR_WRITE_PROTECT:
92 case ERROR_WRITE_FAULT:
93 case ERROR_READ_FAULT:
94 case ERROR_GEN_FAILURE:
98 case ERROR_HANDLE_DISK_FULL:
100 case ERROR_DISK_TOO_FRAGMENTED:
104 case ERROR_FILE_EXISTS:
105 case ERROR_ALREADY_EXISTS:
109 case ERROR_BUFFER_OVERFLOW:
110 case ERROR_FILENAME_EXCED_RANGE:
111 errno = ENAMETOOLONG;
114 case ERROR_INVALID_NAME:
115 case ERROR_DELETE_PENDING:
116 errno = EPERM; /* ? */
119 # ifndef ERROR_FILE_TOO_LARGE
120 /* This value is documented but not defined in all versions of windows.h. */
121 # define ERROR_FILE_TOO_LARGE 223
123 case ERROR_FILE_TOO_LARGE:
135 #else /* ! W32 platform */
137 # if RENAME_DEST_EXISTS_BUG
138 # error Please report your platform and this message to bug-gnulib@gnu.org.
139 # elif RENAME_TRAILING_SLASH_SOURCE_BUG || RENAME_TRAILING_SLASH_DEST_BUG
145 # include <sys/stat.h>
147 # include "dirname.h"
149 /* Rename the file SRC to DST, fixing any trailing slash bugs. */
152 rpl_rename (char const *src, char const *dst)
154 size_t src_len = strlen (src);
155 size_t dst_len = strlen (dst);
156 char *src_temp = (char *) src;
157 char *dst_temp = (char *) dst;
161 int rename_errno = ENOTDIR;
165 if (!src_len || !dst_len)
166 return rename (src, dst); /* Let strace see the ENOENT failure. */
168 src_slash = src[src_len - 1] == '/';
169 dst_slash = dst[dst_len - 1] == '/';
170 if (!src_slash && !dst_slash)
171 return rename (src, dst);
173 /* Presence of a trailing slash requires directory semantics. If
174 the source does not exist, or if the destination cannot be turned
175 into a directory, give up now. Otherwise, strip trailing slashes
176 before calling rename. */
177 if (lstat (src, &src_st))
179 if (lstat (dst, &dst_st))
181 if (errno != ENOENT || !S_ISDIR (src_st.st_mode))
184 else if (!S_ISDIR (dst_st.st_mode))
189 else if (!S_ISDIR (src_st.st_mode))
195 # if RENAME_TRAILING_SLASH_SOURCE_BUG
196 /* If the only bug was that a trailing slash was allowed on a
197 non-existing file destination, as in Solaris 10, then we've
198 already covered that situation. But if there is any problem with
199 a trailing slash on an existing source or destination, as in
200 Solaris 9, then we must strip the offending slash and check that
201 we have not encountered a symlink instead of a directory.
203 Stripping a trailing slash interferes with POSIX semantics, where
204 rename behavior on a symlink with a trailing slash operates on
205 the corresponding target directory. We prefer the GNU semantics
206 of rejecting any use of a symlink with trailing slash, but do not
207 enforce them, since Solaris 10 is able to obey POSIX semantics
208 and there might be clients expecting it, as counter-intuitive as
211 Technically, we could also follow the POSIX behavior by chasing a
212 readlink trail, but that is harder to implement. */
215 src_temp = strdup (src);
218 /* Rather than rely on strdup-posix, we set errno ourselves. */
219 rename_errno = ENOMEM;
222 strip_trailing_slashes (src_temp);
223 if (lstat (src_temp, &src_st))
225 rename_errno = errno;
228 if (S_ISLNK (src_st.st_mode))
233 dst_temp = strdup (dst);
236 rename_errno = ENOMEM;
239 strip_trailing_slashes (dst_temp);
240 if (lstat (dst_temp, &dst_st))
244 rename_errno = errno;
248 else if (S_ISLNK (dst_st.st_mode))
251 # endif /* RENAME_TRAILING_SLASH_SOURCE_BUG */
253 ret_val = rename (src_temp, dst_temp);
254 rename_errno = errno;
260 errno = rename_errno;
263 # endif /* RENAME_TRAILING_SLASH_*_BUG */
264 #endif /* ! W32 platform */