X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fmakepath.c;h=99119a213107aa821a92a3095f80def13994ddf3;hb=refs%2Ftags%2FFILEUTILS-3_16x;hp=496c852b131fd9f38ff6bcc7b90c733d9b1ed92b;hpb=cd7176958b4d782f215401486ee348cf040c8008;p=gnulib.git diff --git a/lib/makepath.c b/lib/makepath.c index 496c852b1..99119a213 100644 --- a/lib/makepath.c +++ b/lib/makepath.c @@ -1,5 +1,5 @@ /* makepath.c -- Ensure that a directory path exists. - Copyright (C) 1990 Free Software Foundation, Inc. + Copyright (C) 1990, 1997, 1998 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,58 +12,57 @@ 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. */ + 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 . */ +/* Written by David MacKenzie and Jim Meyering. */ -#ifdef HAVE_CONFIG_H -#include +#if HAVE_CONFIG_H +# include #endif -#ifdef __GNUC__ -#define alloca __builtin_alloca -#else -#ifdef HAVE_ALLOCA_H -#include -#else -#ifdef _AIX - #pragma alloca +#if __GNUC__ +# define alloca __builtin_alloca #else +# if HAVE_ALLOCA_H +# include +# else +# ifdef _AIX + # pragma alloca +# else char *alloca (); -#endif -#endif +# 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 STAT_MACROS_BROKEN +# undef S_ISDIR +#endif #if !defined(S_ISDIR) && defined(S_IFDIR) -#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) +# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) #endif -#ifdef STDC_HEADERS -#include +#if STDC_HEADERS +# include #endif -#ifdef HAVE_ERRNO_H -#include +#if HAVE_ERRNO_H +# include #endif #ifndef errno extern int errno; #endif -#ifdef HAVE_STRING_H +#if HAVE_STRING_H # include #else # include @@ -72,14 +71,49 @@ extern int errno; # endif #endif +#ifndef S_IWUSR +# define S_IWUSR 0200 +#endif + +#ifndef S_IXUSR +# define S_IXUSR 0100 +#endif + +#define WX_USR (S_IWUSR | S_IXUSR) + #ifdef __MSDOS__ typedef int uid_t; typedef int gid_t; #endif +#include "save-cwd.h" #include "makepath.h" -#include "safe-stat.h" -void error (); +#include "error.h" + +void strip_trailing_slashes (); + +#define CLEANUP_CWD \ + do \ + { \ + /* We're done operating on basename_dir. \ + Restore working directory. */ \ + if (do_chdir) \ + { \ + int fail = restore_cwd (&cwd, NULL, NULL); \ + free_cwd (&cwd); \ + if (fail) \ + return 1; \ + } \ + } \ + while (0) + +#define CLEANUP \ + do \ + { \ + umask (oldmask); \ + CLEANUP_CWD; \ + } \ + while (0) /* Ensure that the directory ARGPATH exists. Remove any trailing slashes from ARGPATH before calling this function. @@ -99,7 +133,6 @@ void error (); Return 0 if ARGPATH exists as a directory with the proper ownership and permissions when done, otherwise 1. */ -#if __STDC__ int make_path (const char *argpath, int mode, @@ -108,30 +141,11 @@ make_path (const char *argpath, gid_t group, int preserve_existing, const char *verbose_fmt_string) -#else -int -make_path (argpath, mode, parent_mode, owner, group, preserve_existing, - verbose_fmt_string) - const char *argpath; - int mode; - int parent_mode; - uid_t owner; - gid_t group; - int preserve_existing; - const char *verbose_fmt_string; -#endif { - char *dirpath; /* A copy we can scribble NULs on. */ struct stat stats; int retval = 0; - int oldmask = umask (0); - - /* FIXME: move this alloca and strcpy into the if-block. - Set dirpath to argpath in the else-block. */ - dirpath = (char *) alloca (strlen (argpath) + 1); - strcpy (dirpath, argpath); - if (stat (dirpath, &stats)) + if (stat (argpath, &stats)) { char *slash; int tmp_mode; /* Initial perms for leading dirs. */ @@ -142,12 +156,24 @@ make_path (argpath, mode, parent_mode, owner, group, preserve_existing, struct ptr_list *next; }; struct ptr_list *p, *leading_dirs = NULL; + int 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. */ + int 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 + if (((parent_mode & WX_USR) != WX_USR) + || ((owner != (uid_t) -1 || group != (gid_t) -1) && (parent_mode & 07000) != 0)) { tmp_mode = 0700; @@ -159,49 +185,103 @@ make_path (argpath, mode, parent_mode, owner, group, preserve_existing, re_protect = 0; } + /* If we can record the current working directory, we may be able + to do the chdir optimization. */ + do_chdir = !save_cwd (&cwd); + + /* 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 = 0; + slash = dirpath; + + /* Skip over leading slashes. */ while (*slash == '/') slash++; - while ((slash = strchr (slash, '/'))) + + while (1) { + int newly_created_dir = 1; + + /* 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; + + /* The mkdir and stat calls below 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. */ + *slash = '\0'; - if (stat (dirpath, &stats)) + if (mkdir (basename_dir, tmp_mode)) { - if (mkdir (dirpath, tmp_mode)) + if (stat (basename_dir, &stats)) { error (0, errno, "cannot create directory `%s'", dirpath); - umask (oldmask); + CLEANUP; + return 1; + } + else if (!S_ISDIR (stats.st_mode)) + { + error (0, 0, "`%s' exists but is not a directory", dirpath); + CLEANUP; return 1; } else { - if (verbose_fmt_string != NULL) - error (0, 0, verbose_fmt_string, dirpath); + /* DIRPATH already exists and is a directory. */ + newly_created_dir = 0; + } + } + + if (newly_created_dir) + { + if (verbose_fmt_string) + fprintf (stderr, verbose_fmt_string, dirpath); - if (owner != (uid_t) -1 && group != (gid_t) -1 - && chown (dirpath, owner, group) + if ((owner != (uid_t) -1 || group != (gid_t) -1) + && chown (basename_dir, owner, group) #if defined(AFS) && defined (EPERM) - && errno != 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; - } + ) + { + error (0, errno, "%s", dirpath); + CLEANUP; + return 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; } } - 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); + error (0, errno, "cannot chdir to directory, %s", dirpath); + CLEANUP; return 1; } @@ -213,40 +293,49 @@ make_path (argpath, mode, parent_mode, owner, group, preserve_existing, slash++; } + if (!do_chdir) + basename_dir = dirpath; + /* We're done making leading directories. Create the final component of the path. */ /* The path could end in "/." or contain "/..", so test if we really have to create the directory. */ - if (stat (dirpath, &stats) && mkdir (dirpath, mode)) + if (stat (basename_dir, &stats) && mkdir (basename_dir, mode)) { error (0, errno, "cannot create directory `%s'", dirpath); - umask (oldmask); + CLEANUP; return 1; } + + /* Done creating directories. Restore original umask. */ + umask (oldmask); + if (verbose_fmt_string != NULL) error (0, 0, verbose_fmt_string, dirpath); 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); + error (0, errno, "cannot chown %s", dirpath); retval = 1; } /* chown may have turned off some permission bits we wanted. */ - if ((mode & 07000) != 0 && chmod (dirpath, mode)) + if ((mode & 07000) != 0 && chmod (basename_dir, mode)) { - error (0, errno, "%s", dirpath); + error (0, errno, "cannot chmod %s", dirpath); retval = 1; } } + CLEANUP_CWD; + /* If the mode for leading directories didn't include owner "wx" privileges, we have to reset their protections to the correct value. */ @@ -264,10 +353,11 @@ make_path (argpath, mode, parent_mode, owner, group, preserve_existing, { /* 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; } @@ -279,7 +369,7 @@ make_path (argpath, mode, parent_mode, owner, group, preserve_existing, 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 + if ((owner != (uid_t) -1 || group != (gid_t) -1) && chown (dirpath, owner, group) #ifdef AFS && errno != EPERM @@ -297,6 +387,5 @@ make_path (argpath, mode, parent_mode, owner, group, preserve_existing, } } - umask (oldmask); return retval; }