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  * mkfifo
27da2e3ebdSchin  */
28da2e3ebdSchin 
29da2e3ebdSchin static const char usage[] =
3034f9b3eeSRoland Mainz "[-?\n@(#)$Id: mkfifo (AT&T Research) 2009-01-02 $\n]"
31da2e3ebdSchin USAGE_LICENSE
32da2e3ebdSchin "[+NAME?mkfifo - make FIFOs (named pipes)]"
33da2e3ebdSchin "[+DESCRIPTION?\bmkfifo\b creates one or more FIFO's.  By "
34da2e3ebdSchin 	"default, the mode of created FIFO is \ba=rw\b minus the "
35da2e3ebdSchin 	"bits set in the \bumask\b(1).]"
36da2e3ebdSchin "[m:mode]:[mode?Set the mode of created FIFO 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=rw\b.]"
39da2e3ebdSchin "\n"
40da2e3ebdSchin "\nfile ...\n"
41da2e3ebdSchin "\n"
42da2e3ebdSchin "[+EXIT STATUS?]{"
43da2e3ebdSchin         "[+0?All FIFO's created successfully.]"
44da2e3ebdSchin         "[+>0?One or more FIFO's could not be created.]"
45da2e3ebdSchin "}"
46da2e3ebdSchin "[+SEE ALSO?\bchmod\b(1), \bumask\b(1)]"
47da2e3ebdSchin ;
48da2e3ebdSchin 
49da2e3ebdSchin #include <cmd.h>
50da2e3ebdSchin #include <ls.h>
51da2e3ebdSchin 
52da2e3ebdSchin int
b_mkfifo(int argc,char ** argv,Shbltin_t * context)53*b30d1939SAndy Fiddaman b_mkfifo(int argc, char** argv, Shbltin_t* context)
54da2e3ebdSchin {
5534f9b3eeSRoland Mainz 	register char*	arg;
5634f9b3eeSRoland Mainz 	register mode_t mode = S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH;
5734f9b3eeSRoland Mainz 	register mode_t	mask = 0;
5834f9b3eeSRoland Mainz 	register int	mflag = 0;
59da2e3ebdSchin 
60da2e3ebdSchin 	cmdinit(argc, argv, context, ERROR_CATALOG, 0);
6134f9b3eeSRoland Mainz 	for (;;)
62da2e3ebdSchin 	{
6334f9b3eeSRoland Mainz 		switch (optget(argv, usage))
6434f9b3eeSRoland Mainz 		{
6534f9b3eeSRoland Mainz 		case 'm':
6634f9b3eeSRoland Mainz 			mflag = 1;
6734f9b3eeSRoland Mainz 			mode = strperm(arg = opt_info.arg, &opt_info.arg, mode);
6834f9b3eeSRoland Mainz 			if (*opt_info.arg)
6934f9b3eeSRoland Mainz 				error(ERROR_exit(0), "%s: invalid mode", arg);
7034f9b3eeSRoland Mainz 			continue;
7134f9b3eeSRoland Mainz 		case ':':
7234f9b3eeSRoland Mainz 			error(2, "%s", opt_info.arg);
73*b30d1939SAndy Fiddaman 			break;
7434f9b3eeSRoland Mainz 		case '?':
7534f9b3eeSRoland Mainz 			error(ERROR_usage(2), "%s", opt_info.arg);
76*b30d1939SAndy Fiddaman 			break;
7734f9b3eeSRoland Mainz 		}
78da2e3ebdSchin 		break;
79da2e3ebdSchin 	}
80da2e3ebdSchin 	argv += opt_info.index;
8134f9b3eeSRoland Mainz 	if (error_info.errors || !*argv)
8234f9b3eeSRoland Mainz 		error(ERROR_usage(2), "%s", optusage(NiL));
8334f9b3eeSRoland Mainz 	mask = umask(0);
8434f9b3eeSRoland Mainz 	if (!mflag)
85da2e3ebdSchin 	{
8634f9b3eeSRoland Mainz 		mode &= ~mask;
8734f9b3eeSRoland Mainz 		umask(mask);
8834f9b3eeSRoland Mainz 		mask = 0;
89da2e3ebdSchin 	}
9034f9b3eeSRoland Mainz 	while (arg = *argv++)
9134f9b3eeSRoland Mainz 		if (mkfifo(arg, mode) < 0)
9234f9b3eeSRoland Mainz 			error(ERROR_system(0), "%s:", arg);
9334f9b3eeSRoland Mainz 	if (mask)
94da2e3ebdSchin 		umask(mask);
9534f9b3eeSRoland Mainz 	return error_info.errors != 0;
96da2e3ebdSchin }
97