1 /* -*- buffer-read-only: t -*- vi: set ro: */
2 /* DO NOT EDIT! GENERATED AUTOMATICALLY! */
3 /* Work around rename bugs in some systems.
5 Copyright (C) 2001-2003, 2005-2006, 2009-2011 Free Software Foundation, Inc.
7 This program is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
20 /* Written by Volker Borchert, Eric Blake. */
28 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
29 /* The mingw rename has problems with trailing slashes; it also
30 requires use of native Windows calls to allow atomic renames over
36 # include <sys/stat.h>
39 # define WIN32_LEAN_AND_MEAN
44 /* Rename the file SRC to DST. This replacement is necessary on
45 Windows, on which the system rename function will not replace
48 rpl_rename (char const *src, char const *dst)
51 size_t src_len = strlen (src);
52 size_t dst_len = strlen (dst);
53 char *src_base = last_component (src);
54 char *dst_base = last_component (dst);
61 /* Filter out dot as last component. */
62 if (!src_len || !dst_len)
69 size_t len = base_len (src_base);
70 if (len == 1 || (len == 2 && src_base[1] == '.'))
78 size_t len = base_len (dst_base);
79 if (len == 1 || (len == 2 && dst_base[1] == '.'))
86 /* Presence of a trailing slash requires directory semantics. If
87 the source does not exist, or if the destination cannot be turned
88 into a directory, give up now. Otherwise, strip trailing slashes
89 before calling rename. There are no symlinks on mingw, so stat
90 works instead of lstat. */
91 src_slash = ISSLASH (src[src_len - 1]);
92 dst_slash = ISSLASH (dst[dst_len - 1]);
93 if (stat (src, &src_st))
95 if (stat (dst, &dst_st))
97 if (errno != ENOENT || (!S_ISDIR (src_st.st_mode) && dst_slash))
103 if (S_ISDIR (dst_st.st_mode) != S_ISDIR (src_st.st_mode))
105 errno = S_ISDIR (dst_st.st_mode) ? EISDIR : ENOTDIR;
111 /* There are no symlinks, so if a file existed with a trailing
112 slash, it must be a directory, and we don't have to worry about
113 stripping strip trailing slash. However, mingw refuses to
114 replace an existing empty directory, so we have to help it out.
115 And canonicalize_file_name is not yet ported to mingw; however,
116 for directories, getcwd works as a viable alternative. Ensure
117 that we can get back to where we started before using it; later
118 attempts to return are fatal. Note that we can end up losing a
119 directory if rename then fails, but it was empty, so not much
121 if (dst_exists && S_ISDIR (dst_st.st_mode))
123 char *cwd = getcwd (NULL, 0);
126 if (!cwd || chdir (cwd))
128 if (IS_ABSOLUTE_FILE_NAME (src))
130 dst_temp = chdir (dst) ? NULL : getcwd (NULL, 0);
131 src_temp = chdir (src) ? NULL : getcwd (NULL, 0);
135 src_temp = chdir (src) ? NULL : getcwd (NULL, 0);
136 if (!IS_ABSOLUTE_FILE_NAME (dst) && chdir (cwd))
138 dst_temp = chdir (dst) ? NULL : getcwd (NULL, 0);
143 if (!src_temp || !dst_temp)
150 src_len = strlen (src_temp);
151 if (strncmp (src_temp, dst_temp, src_len) == 0
152 && (ISSLASH (dst_temp[src_len]) || dst_temp[src_len] == '\0'))
154 error = dst_temp[src_len];
176 /* MoveFileEx works if SRC is a directory without any flags, but
177 fails with MOVEFILE_REPLACE_EXISTING, so try without flags first.
178 Thankfully, MoveFileEx handles hard links correctly, even though
179 rename() does not. */
180 if (MoveFileEx (src, dst, 0))
183 /* Retry with MOVEFILE_REPLACE_EXISTING if the move failed
184 due to the destination already existing. */
185 error = GetLastError ();
186 if (error == ERROR_FILE_EXISTS || error == ERROR_ALREADY_EXISTS)
188 if (MoveFileEx (src, dst, MOVEFILE_REPLACE_EXISTING))
191 error = GetLastError ();
196 case ERROR_FILE_NOT_FOUND:
197 case ERROR_PATH_NOT_FOUND:
198 case ERROR_BAD_PATHNAME:
199 case ERROR_DIRECTORY:
203 case ERROR_ACCESS_DENIED:
204 case ERROR_SHARING_VIOLATION:
208 case ERROR_OUTOFMEMORY:
212 case ERROR_CURRENT_DIRECTORY:
216 case ERROR_NOT_SAME_DEVICE:
220 case ERROR_WRITE_PROTECT:
224 case ERROR_WRITE_FAULT:
225 case ERROR_READ_FAULT:
226 case ERROR_GEN_FAILURE:
230 case ERROR_HANDLE_DISK_FULL:
231 case ERROR_DISK_FULL:
232 case ERROR_DISK_TOO_FRAGMENTED:
236 case ERROR_FILE_EXISTS:
237 case ERROR_ALREADY_EXISTS:
241 case ERROR_BUFFER_OVERFLOW:
242 case ERROR_FILENAME_EXCED_RANGE:
243 errno = ENAMETOOLONG;
246 case ERROR_INVALID_NAME:
247 case ERROR_DELETE_PENDING:
248 errno = EPERM; /* ? */
251 # ifndef ERROR_FILE_TOO_LARGE
252 /* This value is documented but not defined in all versions of windows.h. */
253 # define ERROR_FILE_TOO_LARGE 223
255 case ERROR_FILE_TOO_LARGE:
267 #else /* ! W32 platform */
273 # include <sys/stat.h>
276 # include "dirname.h"
277 # include "same-inode.h"
279 /* Rename the file SRC to DST, fixing any trailing slash bugs. */
282 rpl_rename (char const *src, char const *dst)
284 size_t src_len = strlen (src);
285 size_t dst_len = strlen (dst);
286 char *src_temp = (char *) src;
287 char *dst_temp = (char *) dst;
292 int rename_errno = ENOTDIR;
296 if (!src_len || !dst_len)
297 return rename (src, dst); /* Let strace see the ENOENT failure. */
299 # if RENAME_DEST_EXISTS_BUG
301 char *src_base = last_component (src);
302 char *dst_base = last_component (dst);
303 if (*src_base == '.')
305 size_t len = base_len (src_base);
306 if (len == 1 || (len == 2 && src_base[1] == '.'))
312 if (*dst_base == '.')
314 size_t len = base_len (dst_base);
315 if (len == 1 || (len == 2 && dst_base[1] == '.'))
322 # endif /* RENAME_DEST_EXISTS_BUG */
324 src_slash = src[src_len - 1] == '/';
325 dst_slash = dst[dst_len - 1] == '/';
327 # if !RENAME_HARD_LINK_BUG && !RENAME_DEST_EXISTS_BUG
328 /* If there are no trailing slashes, then trust the native
329 implementation unless we also suspect issues with hard link
330 detection or file/directory conflicts. */
331 if (!src_slash && !dst_slash)
332 return rename (src, dst);
333 # endif /* !RENAME_HARD_LINK_BUG && !RENAME_DEST_EXISTS_BUG */
335 /* Presence of a trailing slash requires directory semantics. If
336 the source does not exist, or if the destination cannot be turned
337 into a directory, give up now. Otherwise, strip trailing slashes
338 before calling rename. */
339 if (lstat (src, &src_st))
341 if (lstat (dst, &dst_st))
343 if (errno != ENOENT || (!S_ISDIR (src_st.st_mode) && dst_slash))
349 if (S_ISDIR (dst_st.st_mode) != S_ISDIR (src_st.st_mode))
351 errno = S_ISDIR (dst_st.st_mode) ? EISDIR : ENOTDIR;
354 # if RENAME_HARD_LINK_BUG
355 if (SAME_INODE (src_st, dst_st))
357 # endif /* RENAME_HARD_LINK_BUG */
361 # if (RENAME_TRAILING_SLASH_SOURCE_BUG || RENAME_DEST_EXISTS_BUG \
362 || RENAME_HARD_LINK_BUG)
363 /* If the only bug was that a trailing slash was allowed on a
364 non-existing file destination, as in Solaris 10, then we've
365 already covered that situation. But if there is any problem with
366 a trailing slash on an existing source or destination, as in
367 Solaris 9, or if a directory can overwrite a symlink, as on
368 Cygwin 1.5, or if directories cannot be created with trailing
369 slash, as on NetBSD 1.6, then we must strip the offending slash
370 and check that we have not encountered a symlink instead of a
373 Stripping a trailing slash interferes with POSIX semantics, where
374 rename behavior on a symlink with a trailing slash operates on
375 the corresponding target directory. We prefer the GNU semantics
376 of rejecting any use of a symlink with trailing slash, but do not
377 enforce them, since Solaris 10 is able to obey POSIX semantics
378 and there might be clients expecting it, as counter-intuitive as
381 Technically, we could also follow the POSIX behavior by chasing a
382 readlink trail, but that is harder to implement. */
385 src_temp = strdup (src);
388 /* Rather than rely on strdup-posix, we set errno ourselves. */
389 rename_errno = ENOMEM;
392 strip_trailing_slashes (src_temp);
393 if (lstat (src_temp, &src_st))
395 rename_errno = errno;
398 if (S_ISLNK (src_st.st_mode))
403 dst_temp = strdup (dst);
406 rename_errno = ENOMEM;
409 strip_trailing_slashes (dst_temp);
410 if (lstat (dst_temp, &dst_st))
414 rename_errno = errno;
418 else if (S_ISLNK (dst_st.st_mode))
421 # endif /* RENAME_TRAILING_SLASH_SOURCE_BUG || RENAME_DEST_EXISTS_BUG
422 || RENAME_HARD_LINK_BUG */
424 # if RENAME_DEST_EXISTS_BUG
425 /* Cygwin 1.5 sometimes behaves oddly when moving a non-empty
426 directory on top of an empty one (the old directory name can
427 reappear if the new directory tree is removed). Work around this
428 by removing the target first, but don't remove the target if it
429 is a subdirectory of the source. Note that we can end up losing
430 a directory if rename then fails, but it was empty, so not much
432 if (dst_exists && S_ISDIR (dst_st.st_mode))
434 if (src_st.st_dev != dst_st.st_dev)
436 rename_errno = EXDEV;
441 src_temp = canonicalize_file_name (src);
444 dst_temp = canonicalize_file_name (dst);
445 if (!src_temp || !dst_temp)
447 rename_errno = ENOMEM;
450 src_len = strlen (src_temp);
451 if (strncmp (src_temp, dst_temp, src_len) == 0
452 && dst_temp[src_len] == '/')
454 rename_errno = EINVAL;
459 rename_errno = errno;
463 # endif /* RENAME_DEST_EXISTS_BUG */
465 ret_val = rename (src_temp, dst_temp);
466 rename_errno = errno;
472 errno = rename_errno;
475 #endif /* ! W32 platform */