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

static	char sccsid[] = "@(#)pc.c 3.20 %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	*gcrt0 = "/usr/lib/gcrt0.o";

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

char	*setsuf(), *savestr();

int	Jflag, Sflag, Oflag, Tlflag, cflag, gflag, pflag, wflag;
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, };

char *mesg[] = {
	0,
	"Hangup",
	"Interrupt",	
	"Quit",
	"Illegal instruction",
	"Trace/BPT trap",
	"IOT trap",
	"EMT trap",
	"Floating exception",
	"Killed",
	"Bus error",
	"Segmentation fault",
	"Bad system call",
	"Broken pipe",
	"Alarm clock",
	"Terminated",
	"Signal 16",
	"Stopped (signal)",
	"Stopped",
	"Continued",
	"Child exited",
	"Stopped (tty input)",
	"Stopped (tty output)",
	"Tty input interrupt",
	"Cputime limit exceeded",
	"Filesize limit exceeded",
	"Signal 26",
	"Signal 27",
	"Signal 28",
	"Signal 29",
	"Signal 30",
	"Signal 31",
	"Signal 32"
};

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