Mercurial > gnulib
changeset 20365:ecef6f07801e
.
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Mon, 19 Aug 1996 01:41:53 +0000 |
parents | 113a84081b4a |
children | cc347cebbbbe |
files | lib/path-concat.c lib/path-concat.h |
diffstat | 2 files changed, 67 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/path-concat.c Mon Aug 19 01:41:53 1996 +0000 @@ -0,0 +1,58 @@ +/* path-concat.c -- concatenate two arbitrary pathnames + Copyright (C) 1996 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, 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 General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +/* Written by Jim Meyering. */ + +#ifdef HAVE_CONFIG_H +#include <config.h> +#endif + +char *malloc (); +char *stpcpy (); + +/* Concatenate two pathname components, DIR and BASE, in newly-allocated + storage and return the result. Return 0 if out of memory. Add a slash + between DIR and BASE in the result if neither would contribute one. + If each would contribute at least one, elide one from the end of DIR. + Otherwise, simply concatenate DIR and BASE. In any case, if + BASE_IN_RESULT is non-NULL, set *BASE_IN_RESULT to point to the copy of + BASE in the returned concatenation. */ + +char * +path_concat (const char *dir, const char *base, char **base_in_result) +{ + char *p; + char *p_concat; + + p_concat = malloc (strlen (dir) + strlen (base) + 2); + if (!p_concat) + return 0; + + p = stpcpy (p_concat, dir); + + if (*(p - 1) == '/' && *base == '/') + --p; + else if (*(p - 1) != '/' && *base != '/') + p = stpcpy (p, "/"); + + if (base_in_result) + *base_in_result = p; + + stpcpy (p, base); + + return p_concat; +}