Mercurial > hg > octave-lojdl > gnulib-hg
changeset 4271:76382576bc2e
New module 'pathname'.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Tue, 01 Apr 2003 09:02:02 +0000 |
parents | 5c0e07c26d94 |
children | c6c0d9d79fec |
files | ChangeLog MODULES.html.sh lib/ChangeLog lib/concatpath.c lib/pathname.h modules/pathname |
diffstat | 6 files changed, 155 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-04-01 Bruno Haible <bruno@clisp.org> + + * modules/pathname: New file. + * MODULES.html.sh (func_all_modules): Add it. + 2003-03-28 Bruno Haible <bruno@clisp.org> * modules/copy-file: New file.
--- a/MODULES.html.sh +++ b/MODULES.html.sh @@ -1733,7 +1733,7 @@ func_module modechange func_module mountlist func_module path-concat - #func_module pathname + func_module pathname func_module pathmax func_module same func_module save-cwd
--- a/lib/ChangeLog +++ b/lib/ChangeLog @@ -1,3 +1,8 @@ +2003-04-01 Bruno Haible <bruno@clisp.org> + + * pathname.h: New file, from GNU gettext. + * concatpath.c: New file, from GNU gettext. + 2003-03-30 Bruno Haible <bruno@clisp.org> * copy-file.c (copy_file_preserving): Don't set owner if the function
new file mode 100644 --- /dev/null +++ b/lib/concatpath.c @@ -0,0 +1,71 @@ +/* Construct a full pathname from a directory and a filename. + Copyright (C) 2001-2002 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 Bruno Haible <haible@clisp.cons.org>. */ + +#ifdef HAVE_CONFIG_H +# include <config.h> +#endif + +/* Specification. */ +#include "pathname.h" + +#include <string.h> + +#include "xalloc.h" +#include "stpcpy.h" + +/* Concatenate a directory pathname, a relative pathname and an optional + suffix. The directory may end with the directory separator. The second + argument may not start with the directory separator (it is relative). + Return a freshly allocated pathname. */ +char * +concatenated_pathname (const char *directory, const char *filename, + const char *suffix) +{ + char *result; + char *p; + + if (strcmp (directory, ".") == 0) + { + /* No need to prepend the directory. */ + result = (char *) xmalloc (strlen (filename) + + (suffix != NULL ? strlen (suffix) : 0) + + 1); + p = result; + } + else + { + size_t directory_len = strlen (directory); + int need_slash = + (directory_len > FILESYSTEM_PREFIX_LEN (directory) + && !ISSLASH (directory[directory_len - 1])); + result = (char *) xmalloc (directory_len + need_slash + + strlen (filename) + + (suffix != NULL ? strlen (suffix) : 0) + + 1); + memcpy (result, directory, directory_len); + p = result + directory_len; + if (need_slash) + *p++ = '/'; + } + p = stpcpy (p, filename); + if (suffix != NULL) + stpcpy (p, suffix); + return result; +}
new file mode 100644 --- /dev/null +++ b/lib/pathname.h @@ -0,0 +1,50 @@ +/* Pathname support. + Copyright (C) 2001-2002 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. */ + +#ifndef _PATHNAME_H +#define _PATHNAME_H + +/* Pathname support. + ISSLASH(C) tests whether C is a directory separator character. + IS_ABSOLUTE_PATH(P) tests whether P is an absolute path. If it is not, + it may be concatenated to a directory pathname. + IS_PATH_WITH_DIR(P) tests whether P contains a directory specification. + */ +#if defined _WIN32 || defined __WIN32__ || defined __EMX__ || defined __DJGPP__ + /* Win32, OS/2, DOS */ +# define ISSLASH(C) ((C) == '/' || (C) == '\\') +# define HAS_DEVICE(P) \ + ((((P)[0] >= 'A' && (P)[0] <= 'Z') || ((P)[0] >= 'a' && (P)[0] <= 'z')) \ + && (P)[1] == ':') +# define IS_ABSOLUTE_PATH(P) (ISSLASH ((P)[0]) || HAS_DEVICE (P)) +# define IS_PATH_WITH_DIR(P) \ + (strchr (P, '/') != NULL || strchr (P, '\\') != NULL || HAS_DEVICE (P)) +# define FILESYSTEM_PREFIX_LEN(P) (HAS_DEVICE (P) ? 2 : 0) +#else + /* Unix */ +# define ISSLASH(C) ((C) == '/') +# define IS_ABSOLUTE_PATH(P) ISSLASH ((P)[0]) +# define IS_PATH_WITH_DIR(P) (strchr (P, '/') != NULL) +# define FILESYSTEM_PREFIX_LEN(P) 0 +#endif + +/* Concatenate a directory pathname, a relative pathname and an optional + suffix. Return a freshly allocated pathname. */ +extern char *concatenated_pathname (const char *directory, + const char *filename, const char *suffix); + +#endif /* _PATHNAME_H */
new file mode 100644 --- /dev/null +++ b/modules/pathname @@ -0,0 +1,23 @@ +Description: +Construct a full pathname by concatenating a directory name, a relative +filename, and a suffix. + +Files: +lib/pathname.h +lib/concatpath.c + +Depends-on: +xalloc +stpcpy + +configure.ac: + +Makefile.am: +lib_SOURCES += pathname.h concatpath.c + +Include: +"pathname.h" + +Maintainer: +Bruno Haible +