[apple/shell_cmds.git] / apply / apply.c

/*-
 * Copyright (c) 1994
 *	The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Jan-Simon Pendry.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#if 0
#ifndef lint
static char sccsid[] = "@(#)apply.c	8.4 (Berkeley) 4/4/94";
#endif
#endif

#include <sys/cdefs.h>
__RCSID("$FreeBSD: src/usr.bin/apply/apply.c,v 1.22 2002/07/14 18:22:12 alfred Exp $");

#include <sys/types.h>
#include <sys/wait.h>

#include <ctype.h>
#include <err.h>
#include <paths.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#define EXEC	"exec "

static int	exec_shell(const char *, char *, char *);
static void	usage(void);

int
main(int argc, char *argv[]) {
	int ch, debug, i, magic, n, nargs, offset, rval;
	size_t clen, cmdsize, l;
	char *c, *cmd, *name, *p, *q, *shell, *slashp, *tmpshell;

	debug = 0;
	magic = '%';		/* Default magic char is `%'. */
	nargs = -1;
	while ((ch = getopt(argc, argv, "a:d0123456789")) != -1)
		switch (ch) {
		case 'a':
			if (optarg[1] != '\0')
				errx(1,
				    "illegal magic character specification");
			magic = optarg[0];
			break;
		case 'd':
			debug = 1;
			break;
		case '0': case '1': case '2': case '3': case '4':
		case '5': case '6': case '7': case '8': case '9':
			if (nargs != -1)
				errx(1,
				    "only one -# argument may be specified");
			nargs = optopt - '0';
			break;
		default:
			usage();
		}
	argc -= optind;
	argv += optind;

	if (argc < 2)
		usage();

	/*
	 * The command to run is argv[0], and the args are argv[1..].
	 * Look for %digit references in the command, remembering the
	 * largest one.
	 */
	for (n = 0, p = argv[0]; *p != '\0'; ++p)
		if (p[0] == magic && isdigit(p[1]) && p[1] != '0') {
			++p;
			if (p[0] - '0' > n)
				n = p[0] - '0';
		}

	/*
	 * Figure out the shell and name arguments to pass to execl()
	 * in exec_shell().  Always malloc() shell and just set name
	 * to point at the last part of shell if there are any backslashes,
	 * otherwise just set it to point at the space malloc()'d.  If
	 * SHELL environment variable exists, replace contents of
	 * shell with it.
	 */
	shell = name = NULL;
	tmpshell = getenv("SHELL");
	shell = (tmpshell != NULL) ? strdup(tmpshell) : strdup(_PATH_BSHELL);
	if (shell == NULL)
		err(1, "strdup() failed");
	slashp = strrchr(shell, '/');
	name = (slashp != NULL) ? slashp + 1 : shell;

	/*
	 * If there were any %digit references, then use those, otherwise
	 * build a new command string with sufficient %digit references at
	 * the end to consume (nargs) arguments each time round the loop.
	 * Allocate enough space to hold the maximum command.  Save the
	 * size to pass to snprintf().
	 */
	cmdsize = sizeof(EXEC) - 1 + strlen(argv[0])
	    + 9 * (sizeof(" %1") - 1) + 1;
	if ((cmd = malloc(cmdsize)) == NULL)
		err(1, NULL);

	if (n == 0) {
		/* If nargs not set, default to a single argument. */
		if (nargs == -1)
			nargs = 1;

		p = cmd;
		offset = snprintf(cmd, cmdsize, EXEC "%s", argv[0]);
		if ((size_t)offset >= cmdsize)
			err(1, "snprintf() failed");
		p += offset;
		cmdsize -= offset;
		for (i = 1; i <= nargs; i++) {
			offset = snprintf(p, cmdsize, " %c%d", magic, i);
			if ((size_t)offset >= cmdsize)
				err(1, "snprintf() failed");
			p += offset;
			cmdsize -= offset;
		}

		/*
		 * If nargs set to the special value 0, eat a single
		 * argument for each command execution.
		 */
		if (nargs == 0)
			nargs = 1;
	} else {
		offset = snprintf(cmd, cmdsize, EXEC "%s", argv[0]);
		if ((size_t)offset >= cmdsize)
			err(1, "snprintf() failed");
		nargs = n;
	}

	/*
	 * Grab some space in which to build the command.  Allocate
	 * as necessary later, but no reason to build it up slowly
	 * for the normal case.
	 */
	if ((c = malloc(clen = 1024)) == NULL)
		err(1, NULL);

	/*
	 * (argc) and (argv) are still offset by one to make it simpler to
	 * expand %digit references.  At the end of the loop check for (argc)
	 * equals 1 means that all the (argv) has been consumed.
	 */
	for (rval = 0; argc > nargs; argc -= nargs, argv += nargs) {
		/*
		 * Find a max value for the command length, and ensure
		 * there's enough space to build it.
		 */
		for (l = strlen(cmd), i = 0; i < nargs; i++)
			l += strlen(argv[i+1]);
		if (l > clen && (c = realloc(c, clen = l)) == NULL)
			err(1, NULL);

		/* Expand command argv references. */
		for (p = cmd, q = c; *p != '\0'; ++p)
			if (p[0] == magic && isdigit(p[1]) && p[1] != '0') {
				offset = snprintf(q, l, "%s",
				    argv[(++p)[0] - '0']);
				if ((size_t)offset >= l)
					err(1, "snprintf() failed");
				q += offset;
				l -= offset;
			} else
				*q++ = *p;

		/* Terminate the command string. */
		*q = '\0';

		/* Run the command. */
		if (debug)
			(void)printf("%s\n", c);
		else
			if (exec_shell(c, shell, name))
				rval = 1;
	}

	if (argc != 1)
		errx(1, "expecting additional argument%s after \"%s\"",
	    (nargs - argc) ? "s" : "", argv[argc - 1]);
	free(cmd);
	free(c);
	free(shell);
	exit(rval);
}

/*
 * exec_shell --
 * 	Execute a shell command using passed use_shell and use_name
 * 	arguments.
 */
static int
exec_shell(const char *command, char *use_shell, char *use_name)
{
	pid_t pid;
	int omask, pstat;
	sig_t intsave, quitsave;

	if (!command)		/* just checking... */
		return(1);

	omask = sigblock(sigmask(SIGCHLD));
	switch(pid = vfork()) {
	case -1:			/* error */
		err(1, "vfork");
	case 0:				/* child */
		(void)sigsetmask(omask);
		execl(use_shell, use_name, "-c", command, (char *)NULL);
		warn("%s", use_shell);
		_exit(1);
	}
	intsave = signal(SIGINT, SIG_IGN);
	quitsave = signal(SIGQUIT, SIG_IGN);
	pid = waitpid(pid, &pstat, 0);
	(void)sigsetmask(omask);
	(void)signal(SIGINT, intsave);
	(void)signal(SIGQUIT, quitsave);
	return(pid == -1 ? -1 : pstat);
}

void
usage(void)
{

	(void)fprintf(stderr,
	"usage: apply [-a magic] [-d] [-0123456789] command arguments ...\n");
	exit(1);
}
Commit	Line	Data
44bd5ea7 A	1	/*-
	2	* Copyright (c) 1994
	3	* The Regents of the University of California. All rights reserved.
	4	*
	5	* This code is derived from software contributed to Berkeley by
	6	* Jan-Simon Pendry.
	7	*
	8	* Redistribution and use in source and binary forms, with or without
	9	* modification, are permitted provided that the following conditions
	10	* are met:
	11	* 1. Redistributions of source code must retain the above copyright
	12	* notice, this list of conditions and the following disclaimer.
	13	* 2. Redistributions in binary form must reproduce the above copyright
	14	* notice, this list of conditions and the following disclaimer in the
	15	* documentation and/or other materials provided with the distribution.
	16	* 3. All advertising materials mentioning features or use of this software
	17	* must display the following acknowledgement:
	18	* This product includes software developed by the University of
	19	* California, Berkeley and its contributors.
	20	* 4. Neither the name of the University nor the names of its contributors
	21	* may be used to endorse or promote products derived from this software
	22	* without specific prior written permission.
	23	*
	24	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	25	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	26	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	27	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	28	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	29	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	30	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	31	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	32	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	33	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	34	* SUCH DAMAGE.
	35	*/
	36
44bd5ea7	37	#if 0
9bafe280	38	#ifndef lint
44bd5ea7	39	static char sccsid[] = "@(#)apply.c 8.4 (Berkeley) 4/4/94";
44bd5ea7	40	#endif
9bafe280	41	#endif
44bd5ea7	42
9bafe280 A	43	#include <sys/cdefs.h>
	44	__RCSID("$FreeBSD: src/usr.bin/apply/apply.c,v 1.22 2002/07/14 18:22:12 alfred Exp $");
	45
	46	#include <sys/types.h>
44bd5ea7 A	47	#include <sys/wait.h>
	48
	49	#include <ctype.h>
	50	#include <err.h>
	51	#include <paths.h>
	52	#include <signal.h>
	53	#include <stdio.h>
	54	#include <stdlib.h>
	55	#include <string.h>
	56	#include <unistd.h>
	57
9bafe280 A	58	#define EXEC "exec "
	59
	60	static int exec_shell(const char , char , char *);
	61	static void usage(void);
44bd5ea7 A	62
44bd5ea7 A	63	int
9bafe280 A	64	main(int argc, char *argv[]) {
	65	int ch, debug, i, magic, n, nargs, offset, rval;
	66	size_t clen, cmdsize, l;
	67	char c, cmd, name, p, q, shell, slashp, tmpshell;
44bd5ea7 A	68
	69	debug = 0;
	70	magic = '%'; /* Default magic char is `%'. */
	71	nargs = -1;
	72	while ((ch = getopt(argc, argv, "a:d0123456789")) != -1)
	73	switch (ch) {
	74	case 'a':
	75	if (optarg[1] != '\0')
	76	errx(1,
9bafe280	77	"illegal magic character specification");
44bd5ea7 A	78	magic = optarg[0];
	79	break;
	80	case 'd':
	81	debug = 1;
	82	break;
	83	case '0': case '1': case '2': case '3': case '4':
	84	case '5': case '6': case '7': case '8': case '9':
	85	if (nargs != -1)
	86	errx(1,
9bafe280	87	"only one -# argument may be specified");
44bd5ea7 A	88	nargs = optopt - '0';
	89	break;
	90	default:
	91	usage();
	92	}
	93	argc -= optind;
	94	argv += optind;
	95
	96	if (argc < 2)
	97	usage();
	98
	99	/*
	100	* The command to run is argv[0], and the args are argv[1..].
	101	* Look for %digit references in the command, remembering the
	102	* largest one.
	103	*/
	104	for (n = 0, p = argv[0]; *p != '\0'; ++p)
	105	if (p[0] == magic && isdigit(p[1]) && p[1] != '0') {
	106	++p;
	107	if (p[0] - '0' > n)
	108	n = p[0] - '0';
	109	}
	110
9bafe280 A	111	/*
	112	* Figure out the shell and name arguments to pass to execl()
	113	* in exec_shell(). Always malloc() shell and just set name
	114	* to point at the last part of shell if there are any backslashes,
	115	* otherwise just set it to point at the space malloc()'d. If
	116	* SHELL environment variable exists, replace contents of
	117	* shell with it.
	118	*/
	119	shell = name = NULL;
	120	tmpshell = getenv("SHELL");
	121	shell = (tmpshell != NULL) ? strdup(tmpshell) : strdup(_PATH_BSHELL);
	122	if (shell == NULL)
	123	err(1, "strdup() failed");
	124	slashp = strrchr(shell, '/');
	125	name = (slashp != NULL) ? slashp + 1 : shell;
	126
44bd5ea7 A	127	/*
	128	* If there were any %digit references, then use those, otherwise
	129	* build a new command string with sufficient %digit references at
	130	* the end to consume (nargs) arguments each time round the loop.
9bafe280 A	131	* Allocate enough space to hold the maximum command. Save the
9bafe280 A	132	* size to pass to snprintf().
44bd5ea7	133	*/
9bafe280 A	134	cmdsize = sizeof(EXEC) - 1 + strlen(argv[0])
	135	+ 9 * (sizeof(" %1") - 1) + 1;
	136	if ((cmd = malloc(cmdsize)) == NULL)
	137	err(1, NULL);
	138
44bd5ea7 A	139	if (n == 0) {
	140	/* If nargs not set, default to a single argument. */
	141	if (nargs == -1)
	142	nargs = 1;
	143
	144	p = cmd;
9bafe280 A	145	offset = snprintf(cmd, cmdsize, EXEC "%s", argv[0]);
	146	if ((size_t)offset >= cmdsize)
	147	err(1, "snprintf() failed");
	148	p += offset;
	149	cmdsize -= offset;
	150	for (i = 1; i <= nargs; i++) {
	151	offset = snprintf(p, cmdsize, " %c%d", magic, i);
	152	if ((size_t)offset >= cmdsize)
	153	err(1, "snprintf() failed");
	154	p += offset;
	155	cmdsize -= offset;
	156	}
44bd5ea7 A	157
	158	/*
	159	* If nargs set to the special value 0, eat a single
	160	* argument for each command execution.
	161	*/
	162	if (nargs == 0)
	163	nargs = 1;
	164	} else {
9bafe280 A	165	offset = snprintf(cmd, cmdsize, EXEC "%s", argv[0]);
	166	if ((size_t)offset >= cmdsize)
	167	err(1, "snprintf() failed");
44bd5ea7 A	168	nargs = n;
	169	}
	170
	171	/*
	172	* Grab some space in which to build the command. Allocate
	173	* as necessary later, but no reason to build it up slowly
	174	* for the normal case.
	175	*/
	176	if ((c = malloc(clen = 1024)) == NULL)
9bafe280	177	err(1, NULL);
44bd5ea7 A	178
	179	/*
	180	* (argc) and (argv) are still offset by one to make it simpler to
	181	* expand %digit references. At the end of the loop check for (argc)
	182	* equals 1 means that all the (argv) has been consumed.
	183	*/
	184	for (rval = 0; argc > nargs; argc -= nargs, argv += nargs) {
	185	/*
	186	* Find a max value for the command length, and ensure
	187	* there's enough space to build it.
	188	*/
	189	for (l = strlen(cmd), i = 0; i < nargs; i++)
9bafe280	190	l += strlen(argv[i+1]);
44bd5ea7	191	if (l > clen && (c = realloc(c, clen = l)) == NULL)
9bafe280	192	err(1, NULL);
44bd5ea7 A	193
	194	/* Expand command argv references. */
	195	for (p = cmd, q = c; *p != '\0'; ++p)
9bafe280 A	196	if (p[0] == magic && isdigit(p[1]) && p[1] != '0') {
	197	offset = snprintf(q, l, "%s",
	198	argv[(++p)[0] - '0']);
	199	if ((size_t)offset >= l)
	200	err(1, "snprintf() failed");
	201	q += offset;
	202	l -= offset;
	203	} else
44bd5ea7 A	204	q++ = p;
	205
	206	/* Terminate the command string. */
	207	*q = '\0';
	208
	209	/* Run the command. */
	210	if (debug)
	211	(void)printf("%s\n", c);
	212	else
9bafe280	213	if (exec_shell(c, shell, name))
44bd5ea7 A	214	rval = 1;
	215	}
	216
	217	if (argc != 1)
	218	errx(1, "expecting additional argument%s after \"%s\"",
9bafe280 A	219	(nargs - argc) ? "s" : "", argv[argc - 1]);
	220	free(cmd);
	221	free(c);
	222	free(shell);
44bd5ea7 A	223	exit(rval);
	224	}
	225
	226	/*
9bafe280 A	227	* exec_shell --
	228	* Execute a shell command using passed use_shell and use_name
	229	* arguments.
44bd5ea7	230	*/
9bafe280 A	231	static int
9bafe280 A	232	exec_shell(const char command, char use_shell, char *use_name)
44bd5ea7	233	{
44bd5ea7	234	pid_t pid;
9bafe280	235	int omask, pstat;
44bd5ea7 A	236	sig_t intsave, quitsave;
44bd5ea7 A	237
44bd5ea7 A	238	if (!command) /* just checking... */
	239	return(1);
	240
	241	omask = sigblock(sigmask(SIGCHLD));
	242	switch(pid = vfork()) {
	243	case -1: /* error */
	244	err(1, "vfork");
	245	case 0: /* child */
	246	(void)sigsetmask(omask);
9bafe280 A	247	execl(use_shell, use_name, "-c", command, (char *)NULL);
9bafe280 A	248	warn("%s", use_shell);
44bd5ea7 A	249	_exit(1);
	250	}
	251	intsave = signal(SIGINT, SIG_IGN);
	252	quitsave = signal(SIGQUIT, SIG_IGN);
9bafe280	253	pid = waitpid(pid, &pstat, 0);
44bd5ea7 A	254	(void)sigsetmask(omask);
	255	(void)signal(SIGINT, intsave);
	256	(void)signal(SIGQUIT, quitsave);
9bafe280	257	return(pid == -1 ? -1 : pstat);
44bd5ea7 A	258	}
	259
	260	void
9bafe280	261	usage(void)
44bd5ea7 A	262	{
	263
	264	(void)fprintf(stderr,
9bafe280	265	"usage: apply [-a magic] [-d] [-0123456789] command arguments ...\n");
44bd5ea7 A	266	exit(1);
44bd5ea7 A	267	}