da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char usage[] =

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "default, the mode of created directories is \ba=rwx\b minus the "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "bits set in the \bumask\b(1).]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "\amode\a is symbolic or octal mode as in \bchmod\b(1). Relative "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "modes assume an initial mode of \ba=rwx\b.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "each dir operand that does not name an existing directory, effects "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "equivalent to those caused by the following command shall occur: "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "\vmkdir -p -m $(umask -S),u+wx $(dirname dir) && mkdir [-m mode]] "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "dir\v where the \b-m\b mode option represents that option supplied to "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "the original invocation of \bmkdir\b, if any. Each dir operand that "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "names an existing directory shall be ignored without error.]"

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner "directory.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+0?All directories created successfully, or the \b-p\b option "

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "was specified and all the specified directories now exist.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+>0?An error occurred.]"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <cmd.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ls.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define DIRMODE (S_IRWXU|S_IRWXG|S_IRWXO)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinb_mkdir(int argc, char** argv, void* context)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register mode_t mode = DIRMODE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register mode_t mask = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int mflag = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int pflag = 0;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner register int vflag = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* name;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode_t dmode;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin struct stat st;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cmdinit(argc, argv, context, ERROR_CATALOG, 0);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz switch (optget(argv, usage))

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz case 0:

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz break;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz case 'm':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz mflag = 1;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz mode = strperm(arg = opt_info.arg, &opt_info.arg, mode);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if (*opt_info.arg)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz error(ERROR_exit(0), "%s: invalid mode", arg);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz continue;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner case 'p':

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner pflag = 1;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner continue;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner case 'v':

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner vflag = 1;

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner continue;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz case ':':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz error(2, "%s", opt_info.arg);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz continue;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz case '?':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz error(ERROR_usage(2), "%s", opt_info.arg);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz continue;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += opt_info.index;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (error_info.errors || !*argv)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_usage(2), "%s", optusage(NiL));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mask = umask(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mflag || pflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dmode = DIRMODE & ~mask;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!mflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode = dmode;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dmode |= S_IWUSR | S_IXUSR;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mode &= ~mask;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin umask(mask);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mask = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (arg = *argv++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mkdir(arg, mode) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!pflag || !(errno == ENOENT || errno == EEXIST || errno == ENOTDIR))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(0), "%s:", arg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (errno == EEXIST)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = strlen(arg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (n > 0 && arg[--n] == '/');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg[n + 1] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (name = arg, n = *arg; n;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip over slashes */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*arg == '/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip to next component */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((n = *arg) && n != '/')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin arg++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *arg = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mkdir(name, n ? dmode : mode) < 0 && errno != EEXIST && access(name, F_OK) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *arg = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_system(0), "%s:", name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner if (vflag)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner error(0, "%s: directory created", name);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (!(*arg = n) && (mode & (S_ISVTX|S_ISUID|S_ISGID)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (stat(name, &st))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin error(ERROR_system(0), "%s: cannot stat", name);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if ((st.st_mode & (S_ISVTX|S_ISUID|S_ISGID)) != (mode & (S_ISVTX|S_ISUID|S_ISGID)) && chmod(name, mode))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin error(ERROR_system(0), "%s: cannot change mode from %s to %s", name, fmtperm(st.st_mode & (S_ISVTX|S_ISUID|S_ISGID)), fmtperm(mode));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner else if (vflag)

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner error(0, "%s: directory created", arg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mask)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin umask(mask);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return error_info.errors != 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}