[unix-history] / usr / src / usr.bin / pascal / pc / pc.c

static	char sccsid[] = "@(#)pc.c 3.11 %G%";
#include <stdio.h>
#include <signal.h>
#include <wait.h>

/*
 * Pc - front end for Pascal compiler.
 */
char	*pc0 = "/usr/lib/pc0";
char	*pc1 = "/lib/f1";
char	*pc2 = "/usr/lib/pc2";
char	*c2 = "/lib/c2";
char	*pc3 = "/usr/lib/pc3";
char	*ld = "/bin/ld";
char	*as = "/bin/as";
char	*lpc = "-lpc";
char	*crt0 = "/lib/crt0.o";
char	*mcrt0 = "/lib/mcrt0.o";

char	*mktemp();
char	*tname[2];
char	*tfile[2];

char	*setsuf(), *savestr();

int	Jflag, Sflag, Oflag, cflag, gflag, pflag;
int	debug;

#define	NARGS	512
int	ldargx = 3;
int	pc0argx = 3;
char	*pc0args[NARGS] =	{ "pc0", "-o", "XXX" };
char	*pc1args[3] =		{ "pc1", 0, };
char	*pc2args[2] =		{ "pc2", 0 };
char	*c2args[4] =		{ "c2", 0, 0, 0 };
int	pc3argx = 1;
#define	pc3args	pc0args
#define	ldargs	pc0args
/* char	*pc3args[NARGS] =	{ "pc3", 0 }; */
/* char	*ldargs[NARGS] =	{ "ld", "-X", "/lib/crt0.o", 0, }; */
int	asargx;
char	*asargs[6] =		{ "as", 0, };

/*
 * If the number of .p arguments (np) is 1, and the number of .o arguments
 * (nxo) is 0, and we successfully create an ``a.out'', then we remove
 * the one .ps .o file (onepso).
 */
int	np, nxo;
char	*onepso;
int	errs;

int	onintr();

main(argc, argv)
	int argc;
	char **argv;
{
	register char *argp;
	register int i;
	int savargx;
	char *t, c;
	int j;

	argc--, argv++;
	if (argc == 0) {
		execl("/bin/cat", "cat", "/usr/lib/how_pc");
		exit(1);
	}
	if (signal(SIGINT, SIG_IGN) != SIG_IGN) {
		signal(SIGINT, onintr);
		signal(SIGTERM, onintr);
	}
	for (i = 0; i < argc; i++) {
		argp = argv[i];
		if (argp[0] != '-')
			continue;
		switch (argp[1]) {

		case 'd':
			if (argp[2] == 0)
				debug++;
			continue;
		case 'i':
			pc0args[pc0argx++] = "-i";
			while (i+1 < argc && argv[i+1][0] != '-' &&
			    getsuf(argv[i+1]) != 'p') {
				pc0args[pc0argx++] = argv[i+1];
				i++;
			}
			if (i+1 == argc) {
				fprintf(stderr, "pc: bad -i construction\n");
				exit(1);
			}
			continue;
		case 'o':
			i++;
			if (i == argc) {
				fprintf(stderr, "pc: -o must specify file\n");
				exit(1);
			}
			c = getsuf(argv[i]);
			if (c == 'o' || c == 'p' || c == 'c') {
				fprintf(stderr, "pc: -o would overwrite %s\n",
				    argv[i]);
				exit(1);
			}
			continue;
		case 'O':
			Oflag = 1;
			continue;
		case 'S':
			Sflag = 1;
			continue;
		case 'J':
			Jflag = 1;
			continue;
		case 'T':
			switch (argp[2]) {

			case '0':
				pc0 = "/usr/src/cmd/pc0/a.out";
				continue;
			case '1':
				pc1 = "/usr/src/cmd/pcc/pc1";
				continue;
			case '2':
				pc2 = "/usr/src/cmd/pascal/pc2";
				continue;
			case '3':
				pc3 = "/usr/src/cmd/pascal/pc3";
				continue;
			case 'l':
				lpc = "/usr/src/lib/libpc/libpc";
				continue;
			}
			continue;
		case 'c':
			cflag = 1;
			continue;
		case 'l':
			if (argp[2])
				continue;
			/* fall into ... */
		case 'b':
		case 'g':
		case 's':
		case 'w':
		case 'z':
		case 'C':
			pc0args[pc0argx++] = argp;
			if (argp[1] == 'g')
				gflag = 1;
			continue;
		case 't':
			fprintf(stderr, "pc: -t is default; -C for checking\n");
			continue;
		case 'p':
			crt0 = mcrt0;
			pflag++;
			continue;
		}
	}
	if (gflag && Oflag) {
		fprintf(stderr, "pc: warning: -g overrides -O\n");
		Oflag = 0;
	}
	tname[0] = mktemp("/tmp/p0XXXXXX");
	tname[1] = mktemp("/tmp/p1XXXXXX");
	savargx = pc0argx;
	for (i = 0; i < argc; i++) {
		argp = argv[i];
		if (argp[0] == '-')
			continue;
		if (suffix(argp) == 's') {
			asargx = 1;
			if (Jflag)
				asargs[asargx++] = "-J";
			asargs[asargx++] = argp;
			asargs[asargx++] = "-o";
			tfile[1] = setsuf(argp, 'o');
			asargs[asargx++] = tfile[1];
			asargs[asargx] = 0;
			if (dosys(as, asargs, 0, 0))
				continue;
			tfile[1] = 0;
			continue;
		}
		if (suffix(argp) != 'p')
			continue;
		tfile[0] = tname[0];
		pc0args[2] = tfile[0];
		pc0argx = savargx;
		if (pflag)
			pc0args[pc0argx++] = "-p";
		pc0args[pc0argx++] = argp;
		pc0args[pc0argx] = 0;
		if (dosys(pc0, pc0args, 0, 0))
			continue;
		pc1args[1] = tfile[0];
		tfile[1] = tname[1];
		if (dosys(pc1, pc1args, 0, tfile[1]))
			continue;
		unlink(tfile[0]);
		tfile[0] = tname[0];
		if (Oflag) {
			if (dosys(c2, c2args, tfile[1], tfile[0]))
				continue;
			unlink(tfile[1]);
			tfile[1] = tfile[0];
			tfile[0] = tname[1];
		}
		if (Sflag)
			tfile[0] = setsuf(argp, 's');
		if (dosys(pc2, pc2args, tfile[1], tfile[0]))
			continue;
		unlink(tfile[1]);
		tfile[1] = 0;
		if (Sflag) {
			tfile[0] = 0;
			continue;
		}
		asargx = 1;
		if (Jflag)
			asargs[asargx++] = "-J";
		asargs[asargx++] = tfile[0];
		asargs[asargx++] = "-o";
		tfile[1] = setsuf(argp, 'o');
		asargs[asargx++] = tfile[1];
		asargs[asargx] = 0;
		if (dosys(as, asargs, 0, 0))
			continue;
		tfile[1] = 0;
		remove();
	}
	if (errs || cflag || Sflag)
		done();
/* char	*pc3args[NARGS] =	{ "pc3", 0 }; */
	pc3args[0] = "pc3";
	for (i = 0; i < argc; i++) {
		argp = argv[i];
		if (!strcmp(argp, "-o"))
			i++;
		if (argp[0] == '-')
			continue;
		switch (getsuf(argp)) {

		case 'o':
			pc3args[pc3argx++] = argp;
			nxo++;
			continue;
		case 's':
		case 'p':
			onepso = pc3args[pc3argx++] =
			    savestr(setsuf(argp, 'o'));
			np++;
			continue;
		}
	}
	pc3args[pc3argx] = 0;
	if (dosys(pc3, pc3args, 0, 0))
		done();
/* char	*ldargs[NARGS] =	{ "ld", "-X", "/lib/crt0.o", 0, }; */
	ldargs[0] = "ld";
	ldargs[1] = "-X";
	ldargs[2] = crt0;
	for (i = 0; i < argc; i++) {
		argp = argv[i];
		if (argp[0] != '-') {
			switch (getsuf(argp)) {

			case 'p':
			case 's':
				ldargs[ldargx] = savestr(setsuf(argp, 'o'));
				break;
			default:
				ldargs[ldargx] = argp;
				break;
			}
			if (getsuf(ldargs[ldargx]) == 'o')
			for (j = 0; j < ldargx; j++)
				if (!strcmp(ldargs[j], ldargs[ldargx]))
					goto duplicate;
			ldargx++;
duplicate:
			continue;
		}
		switch (argp[1]) {

		case 'i':
			while (i+1 < argc && argv[i+1][0] != '-' &&
			    getsuf(argv[i+1]) != 'p')
				i++;
			continue;
		case 'd':
			if (argp[2] == 0)
				continue;
			ldargs[ldargx++] = argp;
			continue;
		case 'o':
			ldargs[ldargx++] = argp;
			i++;
			ldargs[ldargx++] = argv[i];
			continue;
		case 'l':
			if (argp[2])
				ldargs[ldargx++] = argp;
			continue;
		case 'c':
		case 'g':
		case 'w':
		case 'p':
		case 'S':
		case 'J':
		case 'T':
		case 'O':
		case 'C':
		case 'b':
		case 's':
		case 'z':
			continue;
		default:
			ldargs[ldargx++] = argp;
			continue;
		}
	}
	ldargs[ldargx++] = lpc;
	if (gflag)
		ldargs[ldargx++] = "-lg";
	ldargs[ldargx++] = "-lnm";
	ldargs[ldargx++] = "-lc";
	ldargs[ldargx] = 0;
	if (dosys(ld, ldargs, 0, 0)==0 && np == 1 && nxo == 0)
		unlink(onepso);
	done();
}

dosys(cmd, argv, in, out)
	char *cmd, **argv, *in, *out;
{
	union wait status;
	int pid;

	if (debug) {
		int i;
		printf("%s:", cmd);
		for (i = 0; argv[i]; i++)
			printf(" %s", argv[i]);
		if (in)
			printf(" <%s", in);
		if (out)
			printf(" >%s", out);
		printf("\n");
	}
	pid = vfork();
	if (pid < 0) {
		fprintf(stderr, "pc: No more processes\n");
		done();
	}
	if (pid == 0) {
		if (in) {
			close(0);
			if (open(in, 0) != 0) {
				perror(in);
				exit(1);
			}
		}
		if (out) {
			close(1);
			unlink(out);
			if (creat(out, 0666) != 1) {
				perror(out);
				exit(1);
			}
		}
		signal(SIGINT, SIG_DFL);
		execv(cmd, argv);
		perror(cmd);
		exit(1);
	}
	while (wait(&status) != pid)
		;
	if (WIFSIGNALED(status)) {
		if (status.w_termsig != SIGINT)
			fprintf(stderr, "Fatal error in %s\n", cmd);
		errs = 100;
		done();
		/*NOTREACHED*/
	}
	if (status.w_retcode) {
		errs = 1;
		remove();
	}
	return (status.w_retcode);
}

done()
{

	remove();
	exit(errs);
}

remove()
{

	if (tfile[0])
		unlink(tfile[0]);
	if (tfile[1])
		unlink(tfile[1]);
}

onintr()
{

	errs = 1;
	done();
}

getsuf(cp)
	char *cp;
{

	if (*cp == 0)
		return;
	while (cp[1])
		cp++;
	if (cp[-1] != '.')
		return (0);
	return (*cp);
}

char *
setsuf(as, ch)
	char *as;
{
	register char *s, *s1;

	s = s1 = savestr(as);
	while (*s)
		if (*s++ == '/')
			s1 = s;
	s[-1] = ch;
	return (s1);
}

#define	NSAVETAB	512
char	*savetab;
int	saveleft;

char *
savestr(cp)
	register char *cp;
{
	register int len;

	len = strlen(cp) + 1;
	if (len > saveleft) {
		saveleft = NSAVETAB;
		if (len > saveleft)
			saveleft = len;
		savetab = (char *)malloc(saveleft);
		if (savetab == 0) {
			fprintf(stderr, "ran out of memory (savestr)\n");
			exit(1);
		}
	}
	strncpy(savetab, cp, len);
	cp = savetab;
	savetab += len;
	return (cp);
}

suffix(cp)
	char *cp;
{

	if (cp[0] == 0 || cp[1] == 0)
		return (0);
	while (cp[1])
		cp++;
	if (cp[-1] == '.')
		return (*cp);
	return (0);
}
Commit	Line	Data
6e4fa11e	1	static char sccsid[] = "@(#)pc.c 3.11 %G%";
aa358624 BJ	2	#include <stdio.h>
	3	#include <signal.h>
	4	#include <wait.h>
	5
	6	/*
4c675422	7	* Pc - front end for Pascal compiler.
aa358624	8	*/
5d9fd577 BJ	9	char *pc0 = "/usr/lib/pc0";
	10	char *pc1 = "/lib/f1";
	11	char *pc2 = "/usr/lib/pc2";
	12	char *c2 = "/lib/c2";
	13	char *pc3 = "/usr/lib/pc3";
	14	char *ld = "/bin/ld";
	15	char *as = "/bin/as";
aa358624	16	char *lpc = "-lpc";
5d9fd577 BJ	17	char *crt0 = "/lib/crt0.o";
5d9fd577 BJ	18	char *mcrt0 = "/lib/mcrt0.o";
aa358624 BJ	19
	20	char *mktemp();
	21	char *tname[2];
	22	char *tfile[2];
	23
	24	char setsuf(), savestr();
	25
5d9fd577	26	int Jflag, Sflag, Oflag, cflag, gflag, pflag;
aa358624 BJ	27	int debug;
	28
	29	#define NARGS 512
	30	int ldargx = 3;
	31	int pc0argx = 3;
	32	char *pc0args[NARGS] = { "pc0", "-o", "XXX" };
	33	char *pc1args[3] = { "pc1", 0, };
	34	char *pc2args[2] = { "pc2", 0 };
	35	char *c2args[4] = { "c2", 0, 0, 0 };
	36	int pc3argx = 1;
	37	#define pc3args pc0args
	38	#define ldargs pc0args
	39	/* char pc3args[NARGS] = { "pc3", 0 }; /
5d9fd577 BJ	40	/* char ldargs[NARGS] = { "ld", "-X", "/lib/crt0.o", 0, }; /
	41	int asargx;
	42	char *asargs[6] = { "as", 0, };
aa358624 BJ	43
	44	/*
	45	* If the number of .p arguments (np) is 1, and the number of .o arguments
	46	* (nxo) is 0, and we successfully create an ``a.out'', then we remove
	47	* the one .ps .o file (onepso).
	48	*/
	49	int np, nxo;
	50	char *onepso;
	51	int errs;
	52
	53	int onintr();
	54
	55	main(argc, argv)
	56	int argc;
	57	char **argv;
	58	{
	59	register char *argp;
	60	register int i;
	61	int savargx;
	62	char *t, c;
	63	int j;
	64
	65	argc--, argv++;
	66	if (argc == 0) {
	67	execl("/bin/cat", "cat", "/usr/lib/how_pc");
	68	exit(1);
	69	}
	70	if (signal(SIGINT, SIG_IGN) != SIG_IGN) {
	71	signal(SIGINT, onintr);
	72	signal(SIGTERM, onintr);
	73	}
	74	for (i = 0; i < argc; i++) {
	75	argp = argv[i];
	76	if (argp[0] != '-')
	77	continue;
	78	switch (argp[1]) {
	79
	80	case 'd':
	81	if (argp[2] == 0)
	82	debug++;
	83	continue;
	84	case 'i':
	85	pc0args[pc0argx++] = "-i";
	86	while (i+1 < argc && argv[i+1][0] != '-' &&
	87	getsuf(argv[i+1]) != 'p') {
	88	pc0args[pc0argx++] = argv[i+1];
	89	i++;
	90	}
	91	if (i+1 == argc) {
	92	fprintf(stderr, "pc: bad -i construction\n");
	93	exit(1);
	94	}
	95	continue;
	96	case 'o':
	97	i++;
	98	if (i == argc) {
	99	fprintf(stderr, "pc: -o must specify file\n");
	100	exit(1);
	101	}
	102	c = getsuf(argv[i]);
	103	if (c == 'o' \|\| c == 'p' \|\| c == 'c') {
	104	fprintf(stderr, "pc: -o would overwrite %s\n",
	105	argv[i]);
	106	exit(1);
107	}
108	continue;
109	case 'O':
110	Oflag = 1;
111	continue;
112	case 'S':
113	Sflag = 1;
114	continue;
5d9fd577 BJ	115	case 'J':
	116	Jflag = 1;
	117	continue;
aa358624 BJ	118	case 'T':
	119	switch (argp[2]) {
	120
	121	case '0':
5d9fd577	122	pc0 = "/usr/src/cmd/pc0/a.out";
aa358624 BJ	123	continue;
aa358624 BJ	124	case '1':
5d9fd577	125	pc1 = "/usr/src/cmd/pcc/pc1";
aa358624 BJ	126	continue;
aa358624 BJ	127	case '2':
1b1e09c7	128	pc2 = "/usr/src/cmd/pascal/pc2";
aa358624 BJ	129	continue;
aa358624 BJ	130	case '3':
1b1e09c7	131	pc3 = "/usr/src/cmd/pascal/pc3";
aa358624 BJ	132	continue;
aa358624 BJ	133	case 'l':
5198bde1	134	lpc = "/usr/src/lib/libpc/libpc";
aa358624 BJ	135	continue;
	136	}
	137	continue;
	138	case 'c':
	139	cflag = 1;
	140	continue;
	141	case 'l':
	142	if (argp[2])
	143	continue;
	144	/* fall into ... */
	145	case 'b':
	146	case 'g':
	147	case 's':
	148	case 'w':
	149	case 'z':
	150	case 'C':
	151	pc0args[pc0argx++] = argp;
	152	if (argp[1] == 'g')
	153	gflag = 1;
	154	continue;
	155	case 't':
	156	fprintf(stderr, "pc: -t is default; -C for checking\n");
	157	continue;
	158	case 'p':
4c675422 BJ	159	crt0 = mcrt0;
	160	pflag++;
	161	continue;
aa358624 BJ	162	}
	163	}
	164	if (gflag && Oflag) {
	165	fprintf(stderr, "pc: warning: -g overrides -O\n");
	166	Oflag = 0;
	167	}
	168	tname[0] = mktemp("/tmp/p0XXXXXX");
	169	tname[1] = mktemp("/tmp/p1XXXXXX");
	170	savargx = pc0argx;
	171	for (i = 0; i < argc; i++) {
	172	argp = argv[i];
	173	if (argp[0] == '-')
	174	continue;
7c57a955 PK	175	if (suffix(argp) == 's') {
	176	asargx = 1;
	177	if (Jflag)
	178	asargs[asargx++] = "-J";
	179	asargs[asargx++] = argp;
	180	asargs[asargx++] = "-o";
	181	tfile[1] = setsuf(argp, 'o');
	182	asargs[asargx++] = tfile[1];
	183	asargs[asargx] = 0;
	184	if (dosys(as, asargs, 0, 0))
	185	continue;
	186	tfile[1] = 0;
	187	continue;
	188	}
aa358624 BJ	189	if (suffix(argp) != 'p')
	190	continue;
	191	tfile[0] = tname[0];
	192	pc0args[2] = tfile[0];
	193	pc0argx = savargx;
4c675422 BJ	194	if (pflag)
4c675422 BJ	195	pc0args[pc0argx++] = "-p";
aa358624 BJ	196	pc0args[pc0argx++] = argp;
	197	pc0args[pc0argx] = 0;
	198	if (dosys(pc0, pc0args, 0, 0))
	199	continue;
	200	pc1args[1] = tfile[0];
4c675422	201	tfile[1] = tname[1];
aa358624 BJ	202	if (dosys(pc1, pc1args, 0, tfile[1]))
	203	continue;
	204	unlink(tfile[0]);
6e4fa11e KM	205	tfile[0] = tname[0];
	206	if (Oflag) {
	207	if (dosys(c2, c2args, tfile[1], tfile[0]))
	208	continue;
	209	unlink(tfile[1]);
	210	tfile[1] = tfile[0];
	211	tfile[0] = tname[1];
	212	}
	213	if (Sflag)
4c675422	214	tfile[0] = setsuf(argp, 's');
aa358624 BJ	215	if (dosys(pc2, pc2args, tfile[1], tfile[0]))
	216	continue;
	217	unlink(tfile[1]);
	218	tfile[1] = 0;
4c675422 BJ	219	if (Sflag) {
4c675422 BJ	220	tfile[0] = 0;
aa358624	221	continue;
4c675422	222	}
5d9fd577 BJ	223	asargx = 1;
	224	if (Jflag)
	225	asargs[asargx++] = "-J";
	226	asargs[asargx++] = tfile[0];
	227	asargs[asargx++] = "-o";
aa358624	228	tfile[1] = setsuf(argp, 'o');
5d9fd577 BJ	229	asargs[asargx++] = tfile[1];
5d9fd577 BJ	230	asargs[asargx] = 0;
aa358624 BJ	231	if (dosys(as, asargs, 0, 0))
	232	continue;
	233	tfile[1] = 0;
	234	remove();
	235	}
	236	if (errs \|\| cflag \|\| Sflag)
	237	done();
	238	/* char pc3args[NARGS] = { "pc3", 0 }; /
	239	pc3args[0] = "pc3";
	240	for (i = 0; i < argc; i++) {
	241	argp = argv[i];
	242	if (!strcmp(argp, "-o"))
	243	i++;
	244	if (argp[0] == '-')
	245	continue;
	246	switch (getsuf(argp)) {
	247
aa358624 BJ	248	case 'o':
	249	pc3args[pc3argx++] = argp;
	250	nxo++;
	251	continue;
7c57a955	252	case 's':
aa358624 BJ	253	case 'p':
	254	onepso = pc3args[pc3argx++] =
	255	savestr(setsuf(argp, 'o'));
	256	np++;
	257	continue;
	258	}
	259	}
	260	pc3args[pc3argx] = 0;
	261	if (dosys(pc3, pc3args, 0, 0))
	262	done();
5d9fd577	263	/* char ldargs[NARGS] = { "ld", "-X", "/lib/crt0.o", 0, }; /
aa358624 BJ	264	ldargs[0] = "ld";
aa358624 BJ	265	ldargs[1] = "-X";
4c675422	266	ldargs[2] = crt0;
aa358624 BJ	267	for (i = 0; i < argc; i++) {
	268	argp = argv[i];
	269	if (argp[0] != '-') {
	270	switch (getsuf(argp)) {
	271
	272	case 'p':
7c57a955	273	case 's':
aa358624 BJ	274	ldargs[ldargx] = savestr(setsuf(argp, 'o'));
	275	break;
	276	default:
	277	ldargs[ldargx] = argp;
	278	break;
	279	}
	280	if (getsuf(ldargs[ldargx]) == 'o')
	281	for (j = 0; j < ldargx; j++)
	282	if (!strcmp(ldargs[j], ldargs[ldargx]))
	283	goto duplicate;
	284	ldargx++;
	285	duplicate:
	286	continue;
	287	}
	288	switch (argp[1]) {
	289
	290	case 'i':
	291	while (i+1 < argc && argv[i+1][0] != '-' &&
	292	getsuf(argv[i+1]) != 'p')
	293	i++;
	294	continue;
	295	case 'd':
	296	if (argp[2] == 0)
	297	continue;
	298	ldargs[ldargx++] = argp;
	299	continue;
	300	case 'o':
	301	ldargs[ldargx++] = argp;
	302	i++;
	303	ldargs[ldargx++] = argv[i];
	304	continue;
	305	case 'l':
	306	if (argp[2])
	307	ldargs[ldargx++] = argp;
	308	continue;
	309	case 'c':
	310	case 'g':
	311	case 'w':
	312	case 'p':
	313	case 'S':
5d9fd577	314	case 'J':
aa358624 BJ	315	case 'T':
	316	case 'O':
	317	case 'C':
	318	case 'b':
	319	case 's':
	320	case 'z':
	321	continue;
	322	default:
	323	ldargs[ldargx++] = argp;
	324	continue;
	325	}
	326	}
	327	ldargs[ldargx++] = lpc;
	328	if (gflag)
	329	ldargs[ldargx++] = "-lg";
d0f80439	330	ldargs[ldargx++] = "-lnm";
c7fbd6ac	331	ldargs[ldargx++] = "-lc";
aa358624 BJ	332	ldargs[ldargx] = 0;
	333	if (dosys(ld, ldargs, 0, 0)==0 && np == 1 && nxo == 0)
	334	unlink(onepso);
	335	done();
	336	}
	337
	338	dosys(cmd, argv, in, out)
	339	char cmd, argv, in, *out;
	340	{
	341	union wait status;
	342	int pid;
	343
	344	if (debug) {
	345	int i;
	346	printf("%s:", cmd);
	347	for (i = 0; argv[i]; i++)
	348	printf(" %s", argv[i]);
	349	if (in)
	350	printf(" <%s", in);
	351	if (out)
	352	printf(" >%s", out);
	353	printf("\n");
	354	}
	355	pid = vfork();
	356	if (pid < 0) {
	357	fprintf(stderr, "pc: No more processes\n");
	358	done();
	359	}
	360	if (pid == 0) {
	361	if (in) {
	362	close(0);
	363	if (open(in, 0) != 0) {
	364	perror(in);
	365	exit(1);
	366	}
	367	}
	368	if (out) {
	369	close(1);
	370	unlink(out);
	371	if (creat(out, 0666) != 1) {
	372	perror(out);
	373	exit(1);
	374	}
	375	}
	376	signal(SIGINT, SIG_DFL);
	377	execv(cmd, argv);
	378	perror(cmd);
	379	exit(1);
	380	}
	381	while (wait(&status) != pid)
	382	;
	383	if (WIFSIGNALED(status)) {
	384	if (status.w_termsig != SIGINT)
	385	fprintf(stderr, "Fatal error in %s\n", cmd);
	386	errs = 100;
	387	done();
	388	/NOTREACHED/
	389	}
	390	if (status.w_retcode) {
	391	errs = 1;
	392	remove();
	393	}
	394	return (status.w_retcode);
	395	}
396
397	done()
398	{
399
400	remove();
401	exit(errs);
402	}
403
404	remove()
405	{
406
407	if (tfile[0])
408	unlink(tfile[0]);
409	if (tfile[1])
410	unlink(tfile[1]);
411	}
412
413	onintr()
414	{
415
416	errs = 1;
417	done();
418	}
419
420	getsuf(cp)
421	char *cp;
422	{
423
424	if (*cp == 0)
425	return;
426	while (cp[1])
427	cp++;
428	if (cp[-1] != '.')
429	return (0);
430	return (*cp);
431	}
432
aa358624	433	char *
4c675422 BJ	434	setsuf(as, ch)
4c675422 BJ	435	char *as;
aa358624	436	{
4c675422 BJ	437	register char s, s1;
	438
	439	s = s1 = savestr(as);
	440	while (*s)
	441	if (*s++ == '/')
	442	s1 = s;
	443	s[-1] = ch;
	444	return (s1);
aa358624 BJ	445	}
	446
	447	#define NSAVETAB 512
	448	char *savetab;
	449	int saveleft;
	450
	451	char *
	452	savestr(cp)
	453	register char *cp;
	454	{
	455	register int len;
	456
	457	len = strlen(cp) + 1;
	458	if (len > saveleft) {
	459	saveleft = NSAVETAB;
	460	if (len > saveleft)
	461	saveleft = len;
	462	savetab = (char *)malloc(saveleft);
	463	if (savetab == 0) {
	464	fprintf(stderr, "ran out of memory (savestr)\n");
	465	exit(1);
	466	}
	467	}
	468	strncpy(savetab, cp, len);
	469	cp = savetab;
	470	savetab += len;
	471	return (cp);
	472	}
	473
	474	suffix(cp)
	475	char *cp;
	476	{
	477
	478	if (cp[0] == 0 \|\| cp[1] == 0)
	479	return (0);
	480	while (cp[1])
	481	cp++;
	482	if (cp[-1] == '.')
	483	return (*cp);
	484	return (0);
	485	}