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

#
# include <stdio.h>
# include <ctype.h>
# include <signal.h>
/* C command */

# define SBSIZE 10000
# define MAXINC 10
# define MAXFIL 100
# define MAXLIB 100
# define MAXOPT 100
char	tmp0[30];
char	*tmp1;
char	*tmp2;
char	*tmp3;
char	*tmp4;
char	*tmp5;
char	*outfile;
char *copy(),*setsuf();
# define CHSPACE 1000
char	ts[CHSPACE+50];
char	*tsa = ts;
char	*tsp = ts;
char	*av[50];
char	*clist[MAXFIL];
char	*llist[MAXLIB];
char	*alist[20];
int Wflag;
int dflag;
int	pflag;
int	sflag;
int	cflag;
int	eflag;
int	gflag;
int	exflag;
int	oflag;
int	proflag;
int	noflflag;
int	exfail;
char	*chpass ;
char	*npassname ;
char	pass0[40] = "/lib/ccom";
char	pass2[20] = "/lib/c2";
char	passp[20] = "/lib/cpp";
char	*pref = "/lib/crt0.o";

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;
	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) {
				char t;
				outfile = argv[i];
				if ((t=getsuf(outfile))=='c'||t=='o') {
					error("Would overwrite %s", outfile);
					exit(8);
				}
			}
			break;
		case 'O':
			oflag++;
			break;
		case 'p':
			proflag++;
			break;
		case 'g':
			gflag++;
			break;
		case 'W':	/* deprecated */
		case 'w':
			Wflag++;
			break;
		case 'E':
			exflag++;
		case 'P':
			pflag++;
			if (argv[i][1]=='P')
			fprintf(stderr, "(Warning): -P option obsolete\n");
			*pv++ = argv[i];
		case 'c':
			cflag++;
			break;

		case 'f':
			noflflag++;
			if (npassname || chpass)
				error("-f overwrites earlier option",0);
			npassname = "/lib/f";
			chpass = "12";
			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", 0);
				--pv;
				}
			break;
		case 't':
			if (chpass)
				error("-t overwrites earlier option",0);
			chpass = argv[i]+2;
			if (chpass[0]==0)
				chpass = "012p";
			break;

		case 'B':
			if (npassname)
				error("-B overwrites earlier option", 0);
			npassname = argv[i]+2;
			if (npassname[0]==0)
				npassname = "/usr/c/o";
			break;

		case 'd':
			dflag++;
			strcpyn(alist, argv[i], 19);
			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",0);
					exit(1);
					}
				t = setsuf(t, 'o');
			}
			if (nodup(llist, t)) {
				llist[nl++] = t;
				if (nl >= MAXLIB)
					{
					error("Too many object/library files",0);
					exit(1);
					}
				if (getsuf(t)=='o')
					nxo++;
			}
		}
	}
	if (gflag) oflag = 0;
	if (npassname && chpass ==0)
		chpass = "012p";
	if (chpass && npassname==0)
		npassname = "/usr/c/";
	if (chpass)
	for (t=chpass; *t; t++)
		{
		switch (*t)
			{
			case '0':
				strcpy (pass0, npassname);
				strcat (pass0, "ccom");
				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) {
		FILE *c;
		sprintf(tmp0,"/tmp/ctm%05.5da",getpid());
		while((c=fopen(tmp0, "r")) != NULL) {
			fclose(c);
			tmp0[9]++;
		}
		while((creat(tmp0, 0400))<0)
			tmp0[9]++;
	}
	if (signal(SIGINT, SIG_IGN) != SIG_IGN)	/* interrupt */
		signal(SIGINT, idexit);
	if (signal(SIGTERM, SIG_IGN) != SIG_IGN)	/* terminate */
		signal(SIGTERM, idexit);
	(tmp1 = copy(tmp0))[13] = '1';
	(tmp2 = copy(tmp0))[13] = '2';
	(tmp3 = copy(tmp0))[13] = '3';
	if (oflag)
		(tmp5 = copy(tmp0))[13] = '5';
	if (pflag==0)
		(tmp4 = copy(tmp0))[13] = '4';
	pvt = pv;
	for (i=0; i<nc; i++) {
		if (nc>1) {
			printf("%s:\n", clist[i]);
			fflush(stdout);
		}
		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))
			{exfail++; eflag++;}
		av[1] =tmp4;
		tsp = savetsp;
		av[0]= "ccom";
		if (pflag || exfail)
			{
			cflag++;
			continue;
			}
		if(sflag)
			assource = tmp3 = setsuf(clist[i], 's');
		av[2] = tmp3;
		if(oflag)
			av[2] = tmp5;
		if (proflag) {
			av[3] = "-XP";
			av[4] = 0;
		} else
			av[3] = 0;
		if (gflag) {
			int i;

			i = av[3] ? 4 : 3;
			av[i++] = "-Xg";
			av[i] = 0;
		}
		if (Wflag) {
			int i;

			for (i = 3; i < 10 && av[i] != 0; i++)
				;
			av[i] = "-W";
			av[++i] = 0;
		}
				
		if (callsys(pass0, 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] = "-o";
		av[2] = setsuf(clist[i], 'o');
		av[3] = assource;
		if (dflag) {
			av[4] = alist;
			av[5] = 0;
		} else
			av[4] = 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 (outfile) {
			av[j++] = "-o";
			av[j++] = outfile;
		}
		while(i<nl)
			av[j++] = llist[i++];
		if (gflag)
			av[j++] = "-lg";
		if(f20)
			av[j++] = "-l2";
		else {
			av[j++] = "/lib/libc.a";
			av[j++] = "-l";
		}
		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)
{
	fprintf(exflag?stderr:stdout , s, x);
	putc('\n', exflag? stderr : stdout);
	exfail++;
	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=vfork())==0) {
		execv(f, v);
		printf("Can't find %s\n", f);
		fflush(stdout);
		_exit(100);
	} else
		if (t == -1) {
			printf("Try again\n");
			return(100);
		}
	while(t!=wait(&status));
	if ((t=(status&0377)) != 0 && t!=14) {
		if (t!=2)		/* interrupt */
			{
			printf("Fatal error in %s\n", f);
			eflag = 8;
			}
		dexit();
	}
	return((status>>8) & 0377);
}

char *
copy(as)
char as[];
{
	register char *otsp, *s;
	int i;

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