diff options
author | Andy Wingo <wingo@pobox.com> | 2011-06-16 23:43:44 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-06-16 23:43:44 +0200 |
commit | a67f2fce5456caf8e63dacb110b8e15600bb1c9f (patch) | |
tree | 37621f85a908cc29cce79ac69044254b9fe4a512 /lib/rmdir.c | |
parent | 7505c6e024369f2ef381512cbc4a790cc6503428 (diff) | |
download | guile-a67f2fce5456caf8e63dacb110b8e15600bb1c9f.tar.gz |
add `rename' gnulib module
This should fix `rename' on mingw32.
Diffstat (limited to 'lib/rmdir.c')
-rw-r--r-- | lib/rmdir.c | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/lib/rmdir.c b/lib/rmdir.c new file mode 100644 index 000000000..98104bfc1 --- /dev/null +++ b/lib/rmdir.c @@ -0,0 +1,53 @@ +/* Work around rmdir bugs. + + Copyright (C) 1988, 1990, 1999, 2003-2006, 2009-2011 Free Software + Foundation, Inc. + + This program 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 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 Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +#include <config.h> + +#include <unistd.h> + +#include <errno.h> +#include <string.h> + +#include "dosname.h" + +#undef rmdir + +/* Remove directory DIR. + Return 0 if successful, -1 if not. */ + +int +rpl_rmdir (char const *dir) +{ + /* Work around cygwin 1.5.x bug where rmdir("dir/./") succeeds. */ + size_t len = strlen (dir); + int result; + while (len && ISSLASH (dir[len - 1])) + len--; + if (len && dir[len - 1] == '.' && (1 == len || ISSLASH (dir[len - 2]))) + { + errno = EINVAL; + return -1; + } + result = rmdir (dir); + /* Work around mingw bug, where rmdir("file/") fails with EINVAL + instead of ENOTDIR. We've already filtered out trailing ., the + only reason allowed by POSIX for EINVAL. */ + if (result == -1 && errno == EINVAL) + errno = ENOTDIR; + return result; +} |