Merge from vendor branch OPENSSL:
[dragonfly.git] / contrib / cvs-1.12.9 / lib / stripslash.c
1 /* stripslash.c -- remove redundant trailing slashes from a file name
2    Copyright (C) 1990, 2001, 2003 Free Software Foundation, Inc.
3
4    This program is free software; you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 2, or (at your option)
7    any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program; if not, write to the Free Software Foundation,
16    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
17
18 #if HAVE_CONFIG_H
19 # include <config.h>
20 #endif
21
22 #include "dirname.h"
23
24 /* Remove trailing slashes from PATH.
25    Return nonzero if a trailing slash was removed.
26    This is useful when using filename completion from a shell that
27    adds a "/" after directory names (such as tcsh and bash), because
28    the Unix rename and rmdir system calls return an "Invalid argument" error
29    when given a path that ends in "/" (except for the root directory).  */
30
31 int
32 strip_trailing_slashes (char *path)
33 {
34   char *base = base_name (path);
35   char *base_lim = base + base_len (base);
36   int had_slash = *base_lim;
37   *base_lim = '\0';
38   return had_slash;
39 }