diff options
author | Andy Wingo <wingo@pobox.com> | 2011-06-18 00:45:19 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-06-18 01:07:20 +0200 |
commit | 78f0ef20a77dd745a8fa4c1ac1fae4d42b481adf (patch) | |
tree | 3345f81ef4b52c46898deb998d365fca563f90b9 /lib/stripslash.c | |
parent | 25711fa4caf815ffdf6000045534b2bf8f73740b (diff) | |
parent | c245d16a5b18afdb68356f8343e6af7b3c32935b (diff) | |
download | guile-78f0ef20a77dd745a8fa4c1ac1fae4d42b481adf.tar.gz |
Merge remote-tracking branch 'local-2.0/stable-2.0'
Conflicts:
module/ice-9/psyntax-pp.scm
module/language/tree-il/compile-glil.scm
Diffstat (limited to 'lib/stripslash.c')
-rw-r--r-- | lib/stripslash.c | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/lib/stripslash.c b/lib/stripslash.c new file mode 100644 index 000000000..31034cb5d --- /dev/null +++ b/lib/stripslash.c @@ -0,0 +1,45 @@ +/* stripslash.c -- remove redundant trailing slashes from a file name + + Copyright (C) 1990, 2001, 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 "dirname.h" + +/* Remove trailing slashes from FILE. Return true if a trailing slash + was removed. This is useful when using file name completion from a + shell that adds a "/" after directory names (such as tcsh and + bash), because on symlinks to directories, several system calls + have different semantics according to whether a trailing slash is + present. */ + +bool +strip_trailing_slashes (char *file) +{ + char *base = last_component (file); + char *base_lim; + bool had_slash; + + /* last_component returns "" for file system roots, but we need to turn + `///' into `/'. */ + if (! *base) + base = file; + base_lim = base + base_len (base); + had_slash = (*base_lim != '\0'); + *base_lim = '\0'; + return had_slash; +} |