[unix-history] / usr / src / cmd / cc.c

#
# include <stdio.h>
# include <ctype.h>
# include <signal.h>

/* cc command */

# define MAXINC 10
# define MAXFIL 100
# define MAXLIB 100
# define MAXOPT 100
char	*tmp0;
char	*tmp1;
char	*tmp2;
char	*tmp3;
char	*tmp4;
char	*tmp5;
char	*outfile;
# define CHSPACE 1000
char	ts[CHSPACE+50];
char	*tsa = ts;
char	*tsp = ts;
char	*av[50];
char	*clist[MAXFIL];
char	*llist[MAXLIB];
int	pflag;
int	sflag;
int	cflag;
int	eflag;
int	exflag;
int	oflag;
int	proflag;
int	noflflag;
char	*chpass ;
char	*npassname ;
char	pass0[20] = "/lib/c0";
char	pass1[20] = "/lib/c1";
char	pass2[20] = "/lib/c2";
char	passp[20] = "/lib/cpp";
char	*pref = "/lib/crt0.o";
char	*copy();
char	*setsuf();
char	*strcat();
char	*strcpy();

main(argc, argv)
char *argv[]; 
{
	char *t;
	char *savetsp;
	char *assource;
	char **pv, *ptemp[MAXOPT], **pvt;
	int nc, nl, i, j, c, f20, nxo, na;
	int idexit();

	i = nc = nl = f20 = nxo = 0;
	setbuf(stdout, (char *)NULL);
	pv = ptemp;
	while(++i < argc) {
		if(*argv[i] == '-') switch (argv[i][1]) {
		default:
			goto passa;
		case 'S':
			sflag++;
			cflag++;
			break;
		case 'o':
			if (++i < argc) {
				outfile = argv[i];
				if ((c=getsuf(outfile))=='c'||c=='o') {
					error("Would overwrite %s", outfile);
					exit(8);
				}
			}
			break;
		case 'O':
			oflag++;
			break;
		case 'p':
			proflag++;
			break;
		case 'E':
			exflag++;
		case 'P':
			pflag++;
			*pv++ = argv[i];
		case 'c':
			cflag++;
			break;

		case 'f':
			noflflag++;
			if (npassname || chpass)
				error("-f overwrites earlier option", (char *)NULL);
			npassname = "/lib/f";
			chpass = "1";
			break;

		case '2':
			if(argv[i][2] == '\0')
				pref = "/lib/crt2.o";
			else {
				pref = "/lib/crt20.o";
				f20 = 1;
			}
			break;
		case 'D':
		case 'I':
		case 'U':
		case 'C':
			*pv++ = argv[i];
			if (pv >= ptemp+MAXOPT) {
				error("Too many DIUC options", (char *)NULL);
				--pv;
			}
			break;
		case 't':
			if (chpass)
				error("-t overwrites earlier option", (char *)NULL);
			chpass = argv[i]+2;
			if (chpass[0]==0)
				chpass = "012p";
			break;

		case 'B':
			if (npassname)
				error("-B overwrites earlier option", (char *)NULL);
			npassname = argv[i]+2;
			if (npassname[0]==0)
				npassname = "/usr/src/cmd/c/o";
			break;
		} 
		else {
passa:
			t = argv[i];
			if((c=getsuf(t))=='c' || c=='s'|| exflag) {
				clist[nc++] = t;
				if (nc>=MAXFIL) {
					error("Too many source files", (char *)NULL);
					exit(1);
				}
				t = setsuf(t, 'o');
			}
			if (nodup(llist, t)) {
				llist[nl++] = t;
				if (nl >= MAXLIB) {
					error("Too many object/library files", (char *)NULL);
					exit(1);
				}
				if (getsuf(t)=='o')
					nxo++;
			}
		}
	}
	if (npassname && chpass ==0)
		chpass = "012p";
	if (chpass && npassname==0)
		npassname = "/usr/src/cmd/c/";
	if (chpass)
		for (t=chpass; *t; t++) {
			switch (*t) {
			case '0':
				strcpy (pass0, npassname);
				strcat (pass0, "c0");
				continue;
			case '1':
				strcpy (pass1, npassname);
				strcat (pass1, "c1");
				continue;
			case '2':
				strcpy (pass2, npassname);
				strcat (pass2, "c2");
				continue;
			case 'p':
				strcpy (passp, npassname);
				strcat (passp, "cpp");
				continue;
			}
		}
	if (noflflag)
		pref = proflag ? "/lib/fmcrt0.o" : "/lib/fcrt0.o";
	else if (proflag)
		pref = "/lib/mcrt0.o";
	if(nc==0)
		goto nocom;
	if (pflag==0) {
		tmp0 = copy("/tmp/ctm0a");
		while (access(tmp0, 0)==0)
			tmp0[9]++;
		while((creat(tmp0, 0400))<0) {
			if (tmp0[9]=='z') {
				error("cc: cannot create temp", NULL);
				exit(1);
			}
			tmp0[9]++;
		}
	}
	if (signal(SIGINT, SIG_IGN) != SIG_IGN)
		signal(SIGINT, idexit);
	if (signal(SIGTERM, SIG_IGN) != SIG_IGN)
		signal(SIGTERM, idexit);
	(tmp1 = copy(tmp0))[8] = '1';
	(tmp2 = copy(tmp0))[8] = '2';
	(tmp3 = copy(tmp0))[8] = '3';
	if (oflag)
		(tmp5 = copy(tmp0))[8] = '5';
	if (pflag==0)
		(tmp4 = copy(tmp0))[8] = '4';
	pvt = pv;
	for (i=0; i<nc; i++) {
		if (nc>1)
			printf("%s:\n", clist[i]);
		if (getsuf(clist[i])=='s') {
			assource = clist[i];
			goto assemble;
		} 
		else
			assource = tmp3;
		if (pflag)
			tmp4 = setsuf(clist[i], 'i');
		savetsp = tsp;
		av[0] = "cpp";
		av[1] = clist[i];
		av[2] = exflag ? "-" : tmp4;
		na = 3;
		for(pv=ptemp; pv <pvt; pv++)
			av[na++] = *pv;
		av[na++]=0;
		if (callsys(passp, av)) {
			cflag++;
			eflag++;
			continue;
		}
		av[1] = tmp4;
		tsp = savetsp;
		av[0]= "c0";
		if (pflag) {
			cflag++;
			continue;
		}
		av[2] = tmp1;
		av[3] = tmp2;
		if (proflag) {
			av[4] = "-P";
			av[5] = 0;
		} 
		else
			av[4] = 0;
		if (callsys(pass0, av)) {
			cflag++;
			eflag++;
			continue;
		}
		av[0] = "c1";
		av[1] = tmp1;
		av[2] = tmp2;
		if (sflag)
			assource = tmp3 = setsuf(clist[i], 's');
		av[3] = tmp3;
		if (oflag)
			av[3] = tmp5;
		av[4] = 0;
		if(callsys(pass1, av)) {
			cflag++;
			eflag++;
			continue;
		}
		if (oflag) {
			av[0] = "c2";
			av[1] = tmp5;
			av[2] = tmp3;
			av[3] = 0;
			if (callsys(pass2, av)) {
				unlink(tmp3);
				tmp3 = assource = tmp5;
			} 
			else
				unlink(tmp5);
		}
		if (sflag)
			continue;
assemble:
		av[0] = "as";
		av[1] = "-u";
		av[2] = "-o";
		av[3] = setsuf(clist[i], 'o');
		av[4] = assource;
		av[5] = 0;
		cunlink(tmp1);
		cunlink(tmp2);
		cunlink(tmp4);
		if (callsys("/bin/as", av) > 1) {
			cflag++;
			eflag++;
			continue;
		}
	}
nocom:
	if (cflag==0 && nl!=0) {
		i = 0;
		av[0] = "ld";
		av[1] = "-X";
		av[2] = pref;
		j = 3;
		if (noflflag) {
			j = 4;
			av[3] = "-lfpsim";
		}
		if (outfile) {
			av[j++] = "-o";
			av[j++] = outfile;
		}
		while(i<nl)
			av[j++] = llist[i++];
		if(f20)
			av[j++] = "-l2";
		else {
			av[j++] = "-lc";
		}
		av[j++] = 0;
		eflag |= callsys("/bin/ld", av);
		if (nc==1 && nxo==1 && eflag==0)
			cunlink(setsuf(clist[0], 'o'));
	}
	dexit();
}

idexit()
{
	eflag = 100;
	dexit();
}

dexit()
{
	if (!pflag) {
		cunlink(tmp1);
		cunlink(tmp2);
		if (sflag==0)
			cunlink(tmp3);
		cunlink(tmp4);
		cunlink(tmp5);
		cunlink(tmp0);
	}
	exit(eflag);
}

error(s, x)
char *s, *x;
{
	fprintf(exflag?stderr:stdout, s, x);
	putc('\n', exflag? stderr : stdout);
	cflag++;
	eflag++;
}


getsuf(as)
char as[];
{
	register int c;
	register char *s;
	register int t;

	s = as;
	c = 0;
	while(t = *s++)
		if (t=='/')
			c = 0;
		else
			c++;
	s -= 3;
	if (c<=14 && c>2 && *s++=='.')
		return(*s);
	return(0);
}

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

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

callsys(f, v)
char f[], *v[]; 
{
	int t, status;

	if ((t=fork())==0) {
		execv(f, v);
		printf("Can't find %s\n", f);
		exit(100);
	} else
		if (t == -1) {
			printf("Try again\n");
			return(100);
		}
	while(t!=wait(&status))
		;
	if (t = status&0377) {
		if (t!=SIGINT) {
			printf("Fatal error in %s\n", f);
			eflag = 8;
		}
		dexit();
	}
	return((status>>8) & 0377);
}

char *
copy(as)
char *as;
{
	char *malloc();
	register char *otsp, *s;

	otsp = tsp;
	s = as;
	while (*tsp++ = *s++)
		;
	if (tsp > tsa+CHSPACE) {
		tsp = tsa = malloc(CHSPACE+50);
		if (tsp==NULL) {
			error("no space for file names", (char *)NULL);
			dexit();
		}
	}
	return(otsp);
}

nodup(l, os)
char **l, *os;
{
	register char *t, *s;
	register int c;

	s = os;
	if (getsuf(s) != 'o')
		return(1);
	while(t = *l++) {
		while(c = *s++)
			if (c != *t++)
				break;
		if (*t=='\0' && c=='\0')
			return(0);
		s = os;
	}
	return(1);
}

cunlink(f)
char *f;
{
	if (f==NULL)
		return;
	unlink(f);
}
Commit	Line	Data
a077d6a3 KT	1	#
	2	# include <stdio.h>
	3	# include <ctype.h>
	4	# include <signal.h>
	5
	6	/* cc command */
	7
	8	# define MAXINC 10
	9	# define MAXFIL 100
	10	# define MAXLIB 100
	11	# define MAXOPT 100
	12	char *tmp0;
	13	char *tmp1;
	14	char *tmp2;
	15	char *tmp3;
	16	char *tmp4;
	17	char *tmp5;
	18	char *outfile;
	19	# define CHSPACE 1000
	20	char ts[CHSPACE+50];
	21	char *tsa = ts;
	22	char *tsp = ts;
	23	char *av[50];
	24	char *clist[MAXFIL];
	25	char *llist[MAXLIB];
	26	int pflag;
	27	int sflag;
	28	int cflag;
	29	int eflag;
	30	int exflag;
	31	int oflag;
	32	int proflag;
	33	int noflflag;
	34	char *chpass ;
	35	char *npassname ;
	36	char pass0[20] = "/lib/c0";
	37	char pass1[20] = "/lib/c1";
	38	char pass2[20] = "/lib/c2";
	39	char passp[20] = "/lib/cpp";
	40	char *pref = "/lib/crt0.o";
	41	char *copy();
	42	char *setsuf();
	43	char *strcat();
	44	char *strcpy();
	45
	46	main(argc, argv)
	47	char *argv[];
	48	{
	49	char *t;
	50	char *savetsp;
	51	char *assource;
	52	char *pv, ptemp[MAXOPT], **pvt;
	53	int nc, nl, i, j, c, f20, nxo, na;
	54	int idexit();
	55
	56	i = nc = nl = f20 = nxo = 0;
	57	setbuf(stdout, (char *)NULL);
	58	pv = ptemp;
	59	while(++i < argc) {
	60	if(*argv[i] == '-') switch (argv[i][1]) {
	61	default:
	62	goto passa;
	63	case 'S':
	64	sflag++;
65	cflag++;
66	break;
67	case 'o':
68	if (++i < argc) {
69	outfile = argv[i];
70	if ((c=getsuf(outfile))=='c'\|\|c=='o') {
71	error("Would overwrite %s", outfile);
72	exit(8);
73	}
74	}
75	break;
76	case 'O':
77	oflag++;
78	break;
79	case 'p':
80	proflag++;
81	break;
82	case 'E':
83	exflag++;
84	case 'P':
85	pflag++;
86	*pv++ = argv[i];
87	case 'c':
88	cflag++;
89	break;
90
91	case 'f':
92	noflflag++;
93	if (npassname \|\| chpass)
94	error("-f overwrites earlier option", (char *)NULL);
95	npassname = "/lib/f";
96	chpass = "1";
97	break;
98
99	case '2':
100	if(argv[i][2] == '\0')
101	pref = "/lib/crt2.o";
102	else {
103	pref = "/lib/crt20.o";
104	f20 = 1;
105	}
106	break;
107	case 'D':
108	case 'I':
109	case 'U':
110	case 'C':
111	*pv++ = argv[i];
112	if (pv >= ptemp+MAXOPT) {
113	error("Too many DIUC options", (char *)NULL);
114	--pv;
115	}
116	break;
117	case 't':
118	if (chpass)
119	error("-t overwrites earlier option", (char *)NULL);
120	chpass = argv[i]+2;
121	if (chpass[0]==0)
122	chpass = "012p";
123	break;
124
125	case 'B':
126	if (npassname)
127	error("-B overwrites earlier option", (char *)NULL);
128	npassname = argv[i]+2;
129	if (npassname[0]==0)
130	npassname = "/usr/src/cmd/c/o";
131	break;
132	}
133	else {
134	passa:
135	t = argv[i];
136	if((c=getsuf(t))=='c' \|\| c=='s'\|\| exflag) {
137	clist[nc++] = t;
138	if (nc>=MAXFIL) {
139	error("Too many source files", (char *)NULL);
140	exit(1);
141	}
142	t = setsuf(t, 'o');
143	}
144	if (nodup(llist, t)) {
145	llist[nl++] = t;
146	if (nl >= MAXLIB) {
147	error("Too many object/library files", (char *)NULL);
148	exit(1);
149	}
150	if (getsuf(t)=='o')
151	nxo++;
152	}
153	}
154	}
155	if (npassname && chpass ==0)
156	chpass = "012p";
157	if (chpass && npassname==0)
158	npassname = "/usr/src/cmd/c/";
159	if (chpass)
160	for (t=chpass; *t; t++) {
161	switch (*t) {
162	case '0':
163	strcpy (pass0, npassname);
164	strcat (pass0, "c0");
165	continue;
166	case '1':
167	strcpy (pass1, npassname);
168	strcat (pass1, "c1");
169	continue;
170	case '2':
171	strcpy (pass2, npassname);
172	strcat (pass2, "c2");
173	continue;
174	case 'p':
175	strcpy (passp, npassname);
176	strcat (passp, "cpp");
177	continue;
178	}
179	}
180	if (noflflag)
181	pref = proflag ? "/lib/fmcrt0.o" : "/lib/fcrt0.o";
182	else if (proflag)
183	pref = "/lib/mcrt0.o";
184	if(nc==0)
185	goto nocom;
186	if (pflag==0) {
187	tmp0 = copy("/tmp/ctm0a");
188	while (access(tmp0, 0)==0)
189	tmp0[9]++;
190	while((creat(tmp0, 0400))<0) {
191	if (tmp0[9]=='z') {
192	error("cc: cannot create temp", NULL);
193	exit(1);
194	}
195	tmp0[9]++;
196	}
197	}
198	if (signal(SIGINT, SIG_IGN) != SIG_IGN)
199	signal(SIGINT, idexit);
200	if (signal(SIGTERM, SIG_IGN) != SIG_IGN)
201	signal(SIGTERM, idexit);
202	(tmp1 = copy(tmp0))[8] = '1';
203	(tmp2 = copy(tmp0))[8] = '2';
204	(tmp3 = copy(tmp0))[8] = '3';
205	if (oflag)
206	(tmp5 = copy(tmp0))[8] = '5';
207	if (pflag==0)
208	(tmp4 = copy(tmp0))[8] = '4';
209	pvt = pv;
210	for (i=0; i<nc; i++) {
211	if (nc>1)
212	printf("%s:\n", clist[i]);
213	if (getsuf(clist[i])=='s') {
214	assource = clist[i];
215	goto assemble;
216	}
217	else
218	assource = tmp3;
219	if (pflag)
220	tmp4 = setsuf(clist[i], 'i');
221	savetsp = tsp;
222	av[0] = "cpp";
223	av[1] = clist[i];
224	av[2] = exflag ? "-" : tmp4;
225	na = 3;
226	for(pv=ptemp; pv <pvt; pv++)
227	av[na++] = *pv;
228	av[na++]=0;
229	if (callsys(passp, av)) {
230	cflag++;
231	eflag++;
232	continue;
233	}
234	av[1] = tmp4;
235	tsp = savetsp;
236	av[0]= "c0";
237	if (pflag) {
238	cflag++;
239	continue;
240	}
241	av[2] = tmp1;
242	av[3] = tmp2;
243	if (proflag) {
244	av[4] = "-P";
245	av[5] = 0;
246	}
247	else
248	av[4] = 0;
249	if (callsys(pass0, av)) {
250	cflag++;
251	eflag++;
252	continue;
253	}
254	av[0] = "c1";
255	av[1] = tmp1;
256	av[2] = tmp2;
257	if (sflag)
258	assource = tmp3 = setsuf(clist[i], 's');
259	av[3] = tmp3;
260	if (oflag)
261	av[3] = tmp5;
262	av[4] = 0;
263	if(callsys(pass1, av)) {
264	cflag++;
265	eflag++;
266	continue;
267	}
268	if (oflag) {
269	av[0] = "c2";
270	av[1] = tmp5;
271	av[2] = tmp3;
272	av[3] = 0;
273	if (callsys(pass2, av)) {
274	unlink(tmp3);
275	tmp3 = assource = tmp5;
276	}
277	else
278	unlink(tmp5);
279	}
280	if (sflag)
281	continue;
282	assemble:
283	av[0] = "as";
284	av[1] = "-u";
285	av[2] = "-o";
286	av[3] = setsuf(clist[i], 'o');
287	av[4] = assource;
288	av[5] = 0;
289	cunlink(tmp1);
290	cunlink(tmp2);
291	cunlink(tmp4);
292	if (callsys("/bin/as", av) > 1) {
293	cflag++;
294	eflag++;
295	continue;
296	}
297	}
298	nocom:
299	if (cflag==0 && nl!=0) {
300	i = 0;
301	av[0] = "ld";
302	av[1] = "-X";
303	av[2] = pref;
304	j = 3;
305	if (noflflag) {
306	j = 4;
307	av[3] = "-lfpsim";
308	}
309	if (outfile) {
310	av[j++] = "-o";
311	av[j++] = outfile;
312	}
313	while(i<nl)
314	av[j++] = llist[i++];
315	if(f20)
316	av[j++] = "-l2";
317	else {
318	av[j++] = "-lc";
319	}
320	av[j++] = 0;
321	eflag \|= callsys("/bin/ld", av);
322	if (nc==1 && nxo==1 && eflag==0)
323	cunlink(setsuf(clist[0], 'o'));
324	}
325	dexit();
326	}
327
328	idexit()
329	{
330	eflag = 100;
331	dexit();
332	}
333
334	dexit()
335	{
336	if (!pflag) {
337	cunlink(tmp1);
338	cunlink(tmp2);
339	if (sflag==0)
340	cunlink(tmp3);
341	cunlink(tmp4);
342	cunlink(tmp5);
343	cunlink(tmp0);
344	}
345	exit(eflag);
346	}
347
348	error(s, x)
349	char s, x;
350	{
351	fprintf(exflag?stderr:stdout, s, x);
352	putc('\n', exflag? stderr : stdout);
353	cflag++;
354	eflag++;
355	}
356
357
358
359
360	getsuf(as)
361	char as[];
362	{
363	register int c;
364	register char *s;
365	register int t;
366
367	s = as;
368	c = 0;
369	while(t = *s++)
370	if (t=='/')
371	c = 0;
372	else
373	c++;
374	s -= 3;
375	if (c<=14 && c>2 && *s++=='.')
376	return(*s);
377	return(0);
378	}
379
380	char *
381	setsuf(as, ch)
382	char *as;
383	{
384	register char s, s1;
385
386	s = s1 = copy(as);
387	while(*s)
388	if (*s++ == '/')
389	s1 = s;
390	s[-1] = ch;
391	return(s1);
392	}
393
394	callsys(f, v)
395	char f[], *v[];
396	{
397	int t, status;
398
399	if ((t=fork())==0) {
400	execv(f, v);
401	printf("Can't find %s\n", f);
402	exit(100);
403	} else
404	if (t == -1) {
405	printf("Try again\n");
406	return(100);
407	}
408	while(t!=wait(&status))
409	;
410	if (t = status&0377) {
411	if (t!=SIGINT) {
412	printf("Fatal error in %s\n", f);
413	eflag = 8;
414	}
415	dexit();
416	}
417	return((status>>8) & 0377);
418	}
419
420	char *
421	copy(as)
422	char *as;
423	{
424	char *malloc();
425	register char otsp, s;
426
427	otsp = tsp;
428	s = as;
429	while (tsp++ = s++)
430	;
431	if (tsp > tsa+CHSPACE) {
432	tsp = tsa = malloc(CHSPACE+50);
433	if (tsp==NULL) {
434	error("no space for file names", (char *)NULL);
435	dexit();
436	}
437	}
438	return(otsp);
439	}
440
441	nodup(l, os)
442	char *l, os;
443	{
444	register char t, s;
445	register int c;
446
447	s = os;
448	if (getsuf(s) != 'o')
449	return(1);
450	while(t = *l++) {
451	while(c = *s++)
452	if (c != *t++)
453	break;
454	if (*t=='\0' && c=='\0')
455	return(0);
456	s = os;
457	}
458	return(1);
459	}
460
461	cunlink(f)
462	char *f;
463	{
464	if (f==NULL)
465	return;
466	unlink(f);
467	}