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_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 stripping the trailing slashes changes from a directory to a
196 symlink, follow the GNU behavior of rejecting the rename.
197 Technically, we could follow the POSIX behavior by chasing a
198 readlink trail, but that is counter-intuitive and harder. */
201 src_temp = strdup (src);
204 /* Rather than rely on strdup-posix, we set errno ourselves. */
205 rename_errno = ENOMEM;
208 strip_trailing_slashes (src_temp);
209 if (lstat (src_temp, &src_st))
211 rename_errno = errno;
214 if (S_ISLNK (src_st.st_mode))
219 dst_temp = strdup (dst);
222 rename_errno = ENOMEM;
225 strip_trailing_slashes (dst_temp);
226 if (lstat (dst_temp, &dst_st))
230 rename_errno = errno;
234 else if (S_ISLNK (dst_st.st_mode))
237 ret_val = rename (src_temp, dst_temp);
238 rename_errno = errno;
244 errno = rename_errno;
247 # endif /* RENAME_TRAILING_SLASH_BUG */
248 #endif /* ! W32 platform */