X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fmakepath.c;h=1bc12c31052365935f9ef6ef145dcda2ee414c05;hb=1a58ab824a26d93fee2b6f131ff070d1b72116c9;hp=9725168d2f95a94393d4ca769d4ee6eaf905b2f7;hpb=d2577763d50b047b35057c18fe5906a5821cae1d;p=gnulib.git diff --git a/lib/makepath.c b/lib/makepath.c index 9725168d2..1bc12c310 100644 --- a/lib/makepath.c +++ b/lib/makepath.c @@ -1,5 +1,7 @@ /* makepath.c -- Ensure that a directory path exists. - Copyright (C) 1990 Free Software Foundation, Inc. + + Copyright (C) 1990, 1997, 1998, 1999, 2000, 2002, 2003, 2004 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 @@ -12,186 +14,269 @@ 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., 675 Mass Ave, Cambridge, MA 02139, USA. */ - -/* Written by David MacKenzie and - Jim Meyering . */ - -#ifdef HAVE_CONFIG_H -#if defined (CONFIG_BROKETS) -/* We use instead of "config.h" so that a compilation - using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h - (which it would do because it found this file in $srcdir). */ -#include -#else -#include "config.h" -#endif + 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 David MacKenzie and Jim Meyering. */ + +#if HAVE_CONFIG_H +# include #endif -#ifdef __GNUC__ -#define alloca __builtin_alloca -#else -#ifdef HAVE_ALLOCA_H +#include "makepath.h" + #include -#else -#ifdef _AIX - #pragma alloca -#else -char *alloca (); -#endif -#endif -#endif #include #include #include -#ifdef HAVE_UNISTD_H -#include +#if HAVE_UNISTD_H +# include #endif -#ifdef STAT_MACROS_BROKEN -#undef S_ISDIR -#endif /* STAT_MACROS_BROKEN. */ - -#if !defined(S_ISDIR) && defined(S_IFDIR) -#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) -#endif - -#ifdef STDC_HEADERS #include -#endif - -#ifdef HAVE_ERRNO_H #include -#endif +#include -#ifndef STDC_HEADERS -extern int errno; -#endif +#include "gettext.h" +#define _(msgid) gettext (msgid) + +#include "save-cwd.h" +#include "dirname.h" +#include "error.h" +#include "quote.h" +#include "stat-macros.h" + +#define WX_USR (S_IWUSR | S_IXUSR) + +#define CLEANUP_CWD \ + do \ + { \ + /* We're done operating on basename_dir. \ + Restore working directory. */ \ + if (do_chdir) \ + { \ + if (restore_cwd (&cwd) != 0) \ + { \ + int _saved_errno = errno; \ + error (0, errno, \ + _("failed to return to initial working directory")); \ + free_cwd (&cwd); \ + errno = _saved_errno; \ + return 1; \ + } \ + free_cwd (&cwd); \ + } \ + } \ + while (0) + +#define CLEANUP \ + do \ + { \ + umask (oldmask); \ + CLEANUP_CWD; \ + } \ + while (0) + +/* Attempt to create directory DIR (aka DIRPATH) with the specified MODE. + If CREATED_DIR_P is non-NULL, set *CREATED_DIR_P if this + function creates DIR and clear it otherwise. Give a diagnostic and + return false if DIR cannot be created or cannot be determined to + exist already. Use DIRPATH in any diagnostic, not DIR. + Note that if DIR already exists, this function returns true + (indicating success) and clears *CREATED_DIR_P. */ + +bool +make_dir (const char *dir, const char *dirpath, mode_t mode, + bool *created_dir_p) +{ + bool ok = true; + bool created_dir; -#if defined(STDC_HEADERS) || defined(HAVE_STRING_H) -#include -#ifndef index -#define index strchr -#endif -#else -#include -#endif + created_dir = (mkdir (dir, mode) == 0); -#ifdef __MSDOS__ -typedef int uid_t; -typedef int gid_t; -#endif + if (!created_dir) + { + struct stat stats; + int saved_errno = errno; + + /* The mkdir and stat calls below may appear to be reversed. + They are not. It is important to call mkdir first and then to + call stat (to distinguish the three cases) only if mkdir fails. + The alternative to this approach is to `stat' each directory, + then to call mkdir if it doesn't exist. But if some other process + were to create the directory between the stat & mkdir, the mkdir + would fail with EEXIST. */ + + if (stat (dir, &stats)) + { + error (0, saved_errno, _("cannot create directory %s"), + quote (dirpath)); + ok = false; + } + else if (!S_ISDIR (stats.st_mode)) + { + error (0, 0, _("%s exists but is not a directory"), quote (dirpath)); + ok = false; + } + else + { + /* DIR (aka DIRPATH) already exists and is a directory. */ + } + } + + if (created_dir_p) + *created_dir_p = created_dir; -#include "safe-stat.h" -void error (); + return ok; +} /* Ensure that the directory ARGPATH exists. - Remove any trailing slashes from ARGPATH before calling this function. - Make any leading directories that don't already exist, with + Create any leading directories that don't already exist, with permissions PARENT_MODE. If the last element of ARGPATH does not exist, create it as a new directory with permissions MODE. - If OWNER and GROUP are non-negative, make them the UID and GID of - created directories. + If OWNER and GROUP are non-negative, use them to set the UID and GID of + any created directories. If VERBOSE_FMT_STRING is nonzero, use it as a printf format string for printing a message after successfully making a directory, with the name of the directory that was just made as an argument. - - Return 0 if ARGPATH exists as a directory with the proper - ownership and permissions when done, otherwise 1. */ - -int -make_path (argpath, mode, parent_mode, owner, group, verbose_fmt_string) - char *argpath; - int mode; - int parent_mode; - uid_t owner; - gid_t group; - char *verbose_fmt_string; + If PRESERVE_EXISTING is true and ARGPATH is an existing directory, + then do not attempt to set its permissions and ownership. + + Return true iff ARGPATH exists as a directory with the proper + ownership and permissions when done. */ + +bool +make_path (const char *argpath, + mode_t mode, + mode_t parent_mode, + uid_t owner, + gid_t group, + bool preserve_existing, + const char *verbose_fmt_string) { - char *dirpath; /* A copy we can scribble NULs on. */ struct stat stats; - int retval = 0; - int oldmask = umask (0); - - dirpath = (char *) alloca (strlen (argpath) + 1); - strcpy (dirpath, argpath); + bool retval = true; - if (SAFE_STAT (dirpath, &stats)) + if (stat (argpath, &stats)) { char *slash; - int tmp_mode; /* Initial perms for leading dirs. */ - int re_protect; /* Should leading dirs be unwritable? */ + mode_t tmp_mode; /* Initial perms for leading dirs. */ + bool re_protect; /* Should leading dirs be unwritable? */ struct ptr_list { char *dirname_end; struct ptr_list *next; }; struct ptr_list *p, *leading_dirs = NULL; + bool do_chdir; /* Whether to chdir before each mkdir. */ + struct saved_cwd cwd; + char *basename_dir; + char *dirpath; + + /* Temporarily relax umask in case it's overly restrictive. */ + mode_t oldmask = umask (0); + + /* Make a copy of ARGPATH that we can scribble NULs on. */ + dirpath = (char *) alloca (strlen (argpath) + 1); + strcpy (dirpath, argpath); + strip_trailing_slashes (dirpath); /* If leading directories shouldn't be writable or executable, or should have set[ug]id or sticky bits set and we are setting their owners, we need to fix their permissions after making them. */ - if (((parent_mode & 0300) != 0300) - || (owner != (uid_t) -1 && group != (gid_t) -1 - && (parent_mode & 07000) != 0)) + if (((parent_mode & WX_USR) != WX_USR) + || ((owner != (uid_t) -1 || group != (gid_t) -1) + && (parent_mode & (S_ISUID | S_ISGID | S_ISVTX)) != 0)) { - tmp_mode = 0700; - re_protect = 1; + tmp_mode = S_IRWXU; + re_protect = true; } else { tmp_mode = parent_mode; - re_protect = 0; + re_protect = false; } + /* If we can record the current working directory, we may be able + to do the chdir optimization. */ + do_chdir = (save_cwd (&cwd) == 0); + + /* If we've saved the cwd and DIRPATH is an absolute pathname, + we must chdir to `/' in order to enable the chdir optimization. + So if chdir ("/") fails, turn off the optimization. */ + if (do_chdir && *dirpath == '/' && chdir ("/") < 0) + do_chdir = false; + slash = dirpath; + + /* Skip over leading slashes. */ while (*slash == '/') slash++; - while ((slash = index (slash, '/'))) + + while (1) { + bool newly_created_dir; + + /* slash points to the leftmost unprocessed component of dirpath. */ + basename_dir = slash; + + slash = strchr (slash, '/'); + if (slash == NULL) + break; + + /* If we're *not* doing chdir before each mkdir, then we have to refer + to the target using the full (multi-component) directory name. */ + if (!do_chdir) + basename_dir = dirpath; + *slash = '\0'; - if (SAFE_STAT (dirpath, &stats)) + if (! make_dir (basename_dir, dirpath, tmp_mode, &newly_created_dir)) { - if (mkdir (dirpath, tmp_mode)) + CLEANUP; + return false; + } + + if (newly_created_dir) + { + if (verbose_fmt_string) + error (0, 0, verbose_fmt_string, quote (dirpath)); + + if ((owner != (uid_t) -1 || group != (gid_t) -1) + && chown (basename_dir, owner, group) +#if defined AFS && defined EPERM + && errno != EPERM +#endif + ) { - error (0, errno, "cannot make directory `%s'", dirpath); - umask (oldmask); - return 1; + error (0, errno, _("cannot change owner and/or group of %s"), + quote (dirpath)); + CLEANUP; + return false; } - else - { - if (verbose_fmt_string != NULL) - error (0, 0, verbose_fmt_string, dirpath); - if (owner != (uid_t) -1 && group != (gid_t) -1 - && chown (dirpath, owner, group) -#if defined(AFS) && defined (EPERM) - && errno != EPERM -#endif - ) - { - error (0, errno, "%s", dirpath); - retval = 1; - } - if (re_protect) - { - struct ptr_list *new = (struct ptr_list *) - alloca (sizeof (struct ptr_list)); - new->dirname_end = slash; - new->next = leading_dirs; - leading_dirs = new; - } + if (re_protect) + { + struct ptr_list *new = (struct ptr_list *) + alloca (sizeof (struct ptr_list)); + new->dirname_end = slash; + new->next = leading_dirs; + leading_dirs = new; } } - else if (!S_ISDIR (stats.st_mode)) + + /* If we were able to save the initial working directory, + then we can use chdir to change into each directory before + creating an entry in that directory. This avoids making + stat and mkdir process O(n^2) file name components. */ + if (do_chdir && chdir (basename_dir) < 0) { - error (0, 0, "`%s' exists but is not a directory", dirpath); - umask (oldmask); - return 1; + error (0, errno, _("cannot chdir to directory %s"), + quote (dirpath)); + CLEANUP; + return false; } *slash++ = '/'; @@ -202,40 +287,53 @@ make_path (argpath, mode, parent_mode, owner, group, verbose_fmt_string) slash++; } - /* We're done making leading directories. - Make the final component of the path. */ + if (!do_chdir) + basename_dir = dirpath; + + /* Done creating leading directories. Restore original umask. */ + umask (oldmask); - /* The path could end in "/." or contain "/..", so test - if we really have to create the directory. */ + /* We're done making leading directories. + Create the final component of the path. */ - if (SAFE_STAT (dirpath, &stats) && mkdir (dirpath, mode)) + if (! make_dir (basename_dir, dirpath, mode, NULL)) { - error (0, errno, "cannot make directory `%s'", dirpath); - umask (oldmask); - return 1; + CLEANUP; + return false; } + if (verbose_fmt_string != NULL) - error (0, 0, verbose_fmt_string, dirpath); + error (0, 0, verbose_fmt_string, quote (dirpath)); - if (owner != (uid_t) -1 && group != (gid_t) -1) + if (owner != (uid_t) -1 || group != (gid_t) -1) { - if (chown (dirpath, owner, group) + if (chown (basename_dir, owner, group) #ifdef AFS && errno != EPERM #endif ) { - error (0, errno, "%s", dirpath); - retval = 1; - } - /* chown may have turned off some permission bits we wanted. */ - if ((mode & 07000) != 0 && chmod (dirpath, mode)) - { - error (0, errno, "%s", dirpath); - retval = 1; + error (0, errno, _("cannot change owner and/or group of %s"), + quote (dirpath)); + retval = false; } } + /* The above chown may have turned off some permission bits in MODE. + Another reason we may have to use chmod here is that mkdir(2) is + required to honor only the file permission bits. In particular, + it need not honor the `special' bits, so if MODE includes any + special bits, set them here. */ + if ((mode & ~S_IRWXUGO) + && chmod (basename_dir, mode)) + { + error (0, errno, _("cannot change permissions of %s"), + quote (dirpath)); + retval = false; + } + + CLEANUP_CWD; + /* If the mode for leading directories didn't include owner "wx" privileges, we have to reset their protections to the correct value. */ @@ -244,8 +342,9 @@ make_path (argpath, mode, parent_mode, owner, group, verbose_fmt_string) *(p->dirname_end) = '\0'; if (chmod (dirpath, parent_mode)) { - error (0, errno, "%s", dirpath); - retval = 1; + error (0, errno, _("cannot change permissions of %s"), + quote (dirpath)); + retval = false; } } } @@ -253,36 +352,41 @@ make_path (argpath, mode, parent_mode, owner, group, verbose_fmt_string) { /* We get here if the entire path already exists. */ + const char *dirpath = argpath; + if (!S_ISDIR (stats.st_mode)) { - error (0, 0, "`%s' exists but is not a directory", dirpath); - umask (oldmask); - return 1; + error (0, 0, _("%s exists but is not a directory"), quote (dirpath)); + return false; } - /* chown must precede chmod because on some systems, - chown clears the set[ug]id bits for non-superusers, - resulting in incorrect permissions. - On System V, users can give away files with chown and then not - be able to chmod them. So don't give files away. */ - - if (owner != (uid_t) -1 && group != (gid_t) -1 - && chown (dirpath, owner, group) + if (!preserve_existing) + { + /* chown must precede chmod because on some systems, + chown clears the set[ug]id bits for non-superusers, + resulting in incorrect permissions. + On System V, users can give away files with chown and then not + be able to chmod them. So don't give files away. */ + + if ((owner != (uid_t) -1 || group != (gid_t) -1) + && chown (dirpath, owner, group) #ifdef AFS - && errno != EPERM + && errno != EPERM #endif - ) - { - error (0, errno, "%s", dirpath); - retval = 1; - } - if (chmod (dirpath, mode)) - { - error (0, errno, "%s", dirpath); - retval = 1; + ) + { + error (0, errno, _("cannot change owner and/or group of %s"), + quote (dirpath)); + retval = false; + } + if (chmod (dirpath, mode)) + { + error (0, errno, _("cannot change permissions of %s"), + quote (dirpath)); + retval = false; + } } } - umask (oldmask); return retval; }