1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin * *
3da2e3ebdSchin * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1992-2012 AT&T Intellectual Property *
5da2e3ebdSchin * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
77c2fbfb3SApril Chin * by AT&T Intellectual Property *
8da2e3ebdSchin * *
9da2e3ebdSchin * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12da2e3ebdSchin * *
13da2e3ebdSchin * Information and Software Systems Research *
14da2e3ebdSchin * AT&T Research *
15da2e3ebdSchin * Florham Park NJ *
16da2e3ebdSchin * *
17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> *
18da2e3ebdSchin * David Korn <dgk@research.att.com> *
19da2e3ebdSchin * *
20da2e3ebdSchin ***********************************************************************/
21da2e3ebdSchin #pragma prototyped
22da2e3ebdSchin /*
23da2e3ebdSchin * David Korn
24da2e3ebdSchin * AT&T Bell Laboratories
25da2e3ebdSchin *
26da2e3ebdSchin * mkdir
27da2e3ebdSchin */
28da2e3ebdSchin
29da2e3ebdSchin static const char usage[] =
30*b30d1939SAndy Fiddaman "[-?\n@(#)$Id: mkdir (AT&T Research) 2010-04-08 $\n]"
31da2e3ebdSchin USAGE_LICENSE
32da2e3ebdSchin "[+NAME?mkdir - make directories]"
33da2e3ebdSchin "[+DESCRIPTION?\bmkdir\b creates one or more directories. By "
34da2e3ebdSchin "default, the mode of created directories is \ba=rwx\b minus the "
35da2e3ebdSchin "bits set in the \bumask\b(1).]"
36da2e3ebdSchin "[m:mode]:[mode?Set the mode of created directories to \amode\a. "
37da2e3ebdSchin "\amode\a is symbolic or octal mode as in \bchmod\b(1). Relative "
38da2e3ebdSchin "modes assume an initial mode of \ba=rwx\b.]"
39da2e3ebdSchin "[p:parents?Create any missing intermediate pathname components. For "
40da2e3ebdSchin "each dir operand that does not name an existing directory, effects "
41da2e3ebdSchin "equivalent to those caused by the following command shall occur: "
42da2e3ebdSchin "\vmkdir -p -m $(umask -S),u+wx $(dirname dir) && mkdir [-m mode]] "
43da2e3ebdSchin "dir\v where the \b-m\b mode option represents that option supplied to "
44da2e3ebdSchin "the original invocation of \bmkdir\b, if any. Each dir operand that "
45da2e3ebdSchin "names an existing directory shall be ignored without error.]"
463e14f97fSRoger A. Faulkner "[v:verbose?Print a message on the standard error for each created "
473e14f97fSRoger A. Faulkner "directory.]"
48da2e3ebdSchin "\n"
49da2e3ebdSchin "\ndirectory ...\n"
50da2e3ebdSchin "\n"
51da2e3ebdSchin "[+EXIT STATUS?]{"
52da2e3ebdSchin "[+0?All directories created successfully, or the \b-p\b option "
53da2e3ebdSchin "was specified and all the specified directories now exist.]"
54da2e3ebdSchin "[+>0?An error occurred.]"
55da2e3ebdSchin "}"
56da2e3ebdSchin "[+SEE ALSO?\bchmod\b(1), \brmdir\b(1), \bumask\b(1)]"
57da2e3ebdSchin ;
58da2e3ebdSchin
59da2e3ebdSchin #include <cmd.h>
60da2e3ebdSchin #include <ls.h>
61da2e3ebdSchin
62da2e3ebdSchin #define DIRMODE (S_IRWXU|S_IRWXG|S_IRWXO)
63da2e3ebdSchin
64da2e3ebdSchin int
b_mkdir(int argc,char ** argv,Shbltin_t * context)65*b30d1939SAndy Fiddaman b_mkdir(int argc, char** argv, Shbltin_t* context)
66da2e3ebdSchin {
67*b30d1939SAndy Fiddaman register char* path;
68da2e3ebdSchin register int n;
69da2e3ebdSchin register mode_t mode = DIRMODE;
70da2e3ebdSchin register mode_t mask = 0;
71da2e3ebdSchin register int mflag = 0;
72da2e3ebdSchin register int pflag = 0;
733e14f97fSRoger A. Faulkner register int vflag = 0;
74*b30d1939SAndy Fiddaman int made;
75*b30d1939SAndy Fiddaman char* part;
76da2e3ebdSchin mode_t dmode;
777c2fbfb3SApril Chin struct stat st;
78da2e3ebdSchin
79da2e3ebdSchin cmdinit(argc, argv, context, ERROR_CATALOG, 0);
8034f9b3eeSRoland Mainz for (;;)
81da2e3ebdSchin {
8234f9b3eeSRoland Mainz switch (optget(argv, usage))
8334f9b3eeSRoland Mainz {
8434f9b3eeSRoland Mainz case 'm':
8534f9b3eeSRoland Mainz mflag = 1;
86*b30d1939SAndy Fiddaman mode = strperm(opt_info.arg, &part, mode);
87*b30d1939SAndy Fiddaman if (*part)
88*b30d1939SAndy Fiddaman error(ERROR_exit(0), "%s: invalid mode", opt_info.arg);
8934f9b3eeSRoland Mainz continue;
903e14f97fSRoger A. Faulkner case 'p':
913e14f97fSRoger A. Faulkner pflag = 1;
923e14f97fSRoger A. Faulkner continue;
933e14f97fSRoger A. Faulkner case 'v':
943e14f97fSRoger A. Faulkner vflag = 1;
953e14f97fSRoger A. Faulkner continue;
9634f9b3eeSRoland Mainz case ':':
9734f9b3eeSRoland Mainz error(2, "%s", opt_info.arg);
98*b30d1939SAndy Fiddaman break;
9934f9b3eeSRoland Mainz case '?':
10034f9b3eeSRoland Mainz error(ERROR_usage(2), "%s", opt_info.arg);
101*b30d1939SAndy Fiddaman break;
10234f9b3eeSRoland Mainz }
103da2e3ebdSchin break;
104da2e3ebdSchin }
105da2e3ebdSchin argv += opt_info.index;
106da2e3ebdSchin if (error_info.errors || !*argv)
107da2e3ebdSchin error(ERROR_usage(2), "%s", optusage(NiL));
108da2e3ebdSchin mask = umask(0);
109da2e3ebdSchin if (mflag || pflag)
110da2e3ebdSchin {
111da2e3ebdSchin dmode = DIRMODE & ~mask;
112da2e3ebdSchin if (!mflag)
113da2e3ebdSchin mode = dmode;
114da2e3ebdSchin dmode |= S_IWUSR | S_IXUSR;
115da2e3ebdSchin }
116da2e3ebdSchin else
117da2e3ebdSchin {
118da2e3ebdSchin mode &= ~mask;
119da2e3ebdSchin umask(mask);
120da2e3ebdSchin mask = 0;
121da2e3ebdSchin }
122*b30d1939SAndy Fiddaman while (path = *argv++)
123da2e3ebdSchin {
124*b30d1939SAndy Fiddaman if (!mkdir(path, mode))
125*b30d1939SAndy Fiddaman {
126*b30d1939SAndy Fiddaman if (vflag)
127*b30d1939SAndy Fiddaman error(0, "%s: directory created", path);
128*b30d1939SAndy Fiddaman made = 1;
129*b30d1939SAndy Fiddaman }
130*b30d1939SAndy Fiddaman else if (!pflag || !(errno == ENOENT || errno == EEXIST || errno == ENOTDIR))
131*b30d1939SAndy Fiddaman {
132*b30d1939SAndy Fiddaman error(ERROR_system(0), "%s:", path);
133*b30d1939SAndy Fiddaman continue;
134*b30d1939SAndy Fiddaman }
135*b30d1939SAndy Fiddaman else if (errno == EEXIST)
136*b30d1939SAndy Fiddaman continue;
137*b30d1939SAndy Fiddaman else
138da2e3ebdSchin {
139da2e3ebdSchin /*
140da2e3ebdSchin * -p option, preserve intermediates
141da2e3ebdSchin * first eliminate trailing /'s
142da2e3ebdSchin */
143da2e3ebdSchin
144*b30d1939SAndy Fiddaman made = 0;
145*b30d1939SAndy Fiddaman n = strlen(path);
146*b30d1939SAndy Fiddaman while (n > 0 && path[--n] == '/');
147*b30d1939SAndy Fiddaman path[n + 1] = 0;
148*b30d1939SAndy Fiddaman for (part = path, n = *part; n;)
149da2e3ebdSchin {
150da2e3ebdSchin /* skip over slashes */
151*b30d1939SAndy Fiddaman while (*part == '/')
152*b30d1939SAndy Fiddaman part++;
153da2e3ebdSchin /* skip to next component */
154*b30d1939SAndy Fiddaman while ((n = *part) && n != '/')
155*b30d1939SAndy Fiddaman part++;
156*b30d1939SAndy Fiddaman *part = 0;
157*b30d1939SAndy Fiddaman if (mkdir(path, n ? dmode : mode) < 0 && errno != EEXIST && access(path, F_OK) < 0)
158da2e3ebdSchin {
159*b30d1939SAndy Fiddaman error(ERROR_system(0), "%s: cannot create intermediate directory", path);
160*b30d1939SAndy Fiddaman *part = n;
161da2e3ebdSchin break;
162da2e3ebdSchin }
1633e14f97fSRoger A. Faulkner if (vflag)
164*b30d1939SAndy Fiddaman error(0, "%s: directory created", path);
165*b30d1939SAndy Fiddaman if (!(*part = n))
1667c2fbfb3SApril Chin {
167*b30d1939SAndy Fiddaman made = 1;
168*b30d1939SAndy Fiddaman break;
1697c2fbfb3SApril Chin }
170da2e3ebdSchin }
171da2e3ebdSchin }
172*b30d1939SAndy Fiddaman if (made && (mode & (S_ISVTX|S_ISUID|S_ISGID)))
173*b30d1939SAndy Fiddaman {
174*b30d1939SAndy Fiddaman if (stat(path, &st))
175*b30d1939SAndy Fiddaman {
176*b30d1939SAndy Fiddaman error(ERROR_system(0), "%s: cannot stat", path);
177*b30d1939SAndy Fiddaman break;
178*b30d1939SAndy Fiddaman }
179*b30d1939SAndy Fiddaman if ((st.st_mode & (S_ISVTX|S_ISUID|S_ISGID)) != (mode & (S_ISVTX|S_ISUID|S_ISGID)) && chmod(path, mode))
180*b30d1939SAndy Fiddaman {
181*b30d1939SAndy Fiddaman error(ERROR_system(0), "%s: cannot change mode from %s to %s", path, fmtperm(st.st_mode & (S_ISVTX|S_ISUID|S_ISGID)), fmtperm(mode));
182*b30d1939SAndy Fiddaman break;
183*b30d1939SAndy Fiddaman }
184*b30d1939SAndy Fiddaman }
185da2e3ebdSchin }
186da2e3ebdSchin if (mask)
187da2e3ebdSchin umask(mask);
188da2e3ebdSchin return error_info.errors != 0;
189da2e3ebdSchin }
190