![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cc.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / bin|
Return to cc.c CVS log | Up to [CSRG BSD Unix] / 43BSD / bin |
1.1 root 1: static char sccsid[] = "@(#)cc.c 4.13 9/18/85";
2: /*
3: * cc - front end for C compiler
4: */
5: #include <sys/param.h>
6: #include <stdio.h>
7: #include <ctype.h>
8: #include <signal.h>
9: #include <sys/dir.h>
10:
11: char *cpp = "/lib/cpp";
12: char *ccom = "/lib/ccom";
13: char *sccom = "/lib/sccom";
14: char *c2 = "/lib/c2";
15: char *as = "/bin/as";
16: char *ld = "/bin/ld";
17: char *crt0 = "/lib/crt0.o";
18:
19: char tmp0[30]; /* big enough for /tmp/ctm%05.5d */
20: char *tmp1, *tmp2, *tmp3, *tmp4, *tmp5;
21: char *outfile;
22: char *savestr(), *strspl(), *setsuf();
23: int idexit();
24: char **av, **clist, **llist, **plist;
25: int cflag, eflag, oflag, pflag, sflag, wflag, Rflag, exflag, proflag;
26: int fflag, gflag, Gflag, Mflag, debug;
27: char *dflag;
28: int exfail;
29: char *chpass;
30: char *npassname;
31:
32: int nc, nl, np, nxo, na;
33:
34: #define cunlink(s) if (s) unlink(s)
35:
36: main(argc, argv)
37: char **argv;
38: {
39: char *t;
40: char *assource;
41: int i, j, c;
42:
43: /* ld currently adds upto 5 args; 10 is room to spare */
44: av = (char **)calloc(argc+10, sizeof (char **));
45: clist = (char **)calloc(argc, sizeof (char **));
46: llist = (char **)calloc(argc, sizeof (char **));
47: plist = (char **)calloc(argc, sizeof (char **));
48: for (i = 1; i < argc; i++) {
49: if (*argv[i] == '-') switch (argv[i][1]) {
50:
51: case 'S':
52: sflag++;
53: cflag++;
54: continue;
55: case 'o':
56: if (++i < argc) {
57: outfile = argv[i];
58: switch (getsuf(outfile)) {
59:
60: case 'c':
61: error("-o would overwrite %s",
62: outfile);
63: exit(8);
64: }
65: }
66: continue;
67: case 'R':
68: Rflag++;
69: continue;
70: case 'O':
71: oflag++;
72: continue;
73: case 'p':
74: proflag++;
75: crt0 = "/lib/mcrt0.o";
76: if (argv[i][2] == 'g')
77: crt0 = "/usr/lib/gcrt0.o";
78: continue;
79: case 'f':
80: fflag++;
81: continue;
82: case 'g':
83: if (argv[i][2] == 'o') {
84: Gflag++; /* old format for -go */
85: } else {
86: gflag++; /* new format for -g */
87: }
88: continue;
89: case 'w':
90: wflag++;
91: continue;
92: case 'E':
93: exflag++;
94: case 'P':
95: pflag++;
96: if (argv[i][1]=='P')
97: fprintf(stderr,
98: "cc: warning: -P option obsolete; you should use -E instead\n");
99: plist[np++] = argv[i];
100: case 'c':
101: cflag++;
102: continue;
103: case 'M':
104: exflag++;
105: pflag++;
106: Mflag++;
107: /* and fall through */
108: case 'D':
109: case 'I':
110: case 'U':
111: case 'C':
112: plist[np++] = argv[i];
113: continue;
114: case 'L':
115: llist[nl++] = argv[i];
116: continue;
117: case 't':
118: if (chpass)
119: error("-t overwrites earlier option", 0);
120: chpass = argv[i]+2;
121: if (chpass[0]==0)
122: chpass = "012p";
123: continue;
124: case 'B':
125: if (npassname)
126: error("-B overwrites earlier option", 0);
127: npassname = argv[i]+2;
128: if (npassname[0]==0)
129: npassname = "/usr/c/o";
130: continue;
131: case 'd':
132: if (argv[i][2] == '\0') {
133: debug++;
134: continue;
135: }
136: dflag = argv[i];
137: continue;
138: }
139: t = argv[i];
140: c = getsuf(t);
141: if (c=='c' || c=='s' || exflag) {
142: clist[nc++] = t;
143: t = setsuf(t, 'o');
144: }
145: if (nodup(llist, t)) {
146: llist[nl++] = t;
147: if (getsuf(t)=='o')
148: nxo++;
149: }
150: }
151: if (gflag || Gflag) {
152: if (oflag)
153: fprintf(stderr, "cc: warning: -g disables -O\n");
154: oflag = 0;
155: }
156: if (npassname && chpass ==0)
157: chpass = "012p";
158: if (chpass && npassname==0)
159: npassname = "/usr/new";
160: if (chpass)
161: for (t=chpass; *t; t++) {
162: switch (*t) {
163:
164: case '0':
165: if (fflag)
166: sccom = strspl(npassname, "sccom");
167: else
168: ccom = strspl(npassname, "ccom");
169: continue;
170: case '2':
171: c2 = strspl(npassname, "c2");
172: continue;
173: case 'p':
174: cpp = strspl(npassname, "cpp");
175: continue;
176: }
177: }
178: if (nc==0)
179: goto nocom;
180: if (signal(SIGINT, SIG_IGN) != SIG_IGN)
181: signal(SIGINT, idexit);
182: if (signal(SIGTERM, SIG_IGN) != SIG_IGN)
183: signal(SIGTERM, idexit);
184: if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
185: signal(SIGHUP, idexit);
186: if (pflag==0)
187: sprintf(tmp0, "/tmp/ctm%05.5d", getpid());
188: tmp1 = strspl(tmp0, "1");
189: tmp2 = strspl(tmp0, "2");
190: tmp3 = strspl(tmp0, "3");
191: if (pflag==0)
192: tmp4 = strspl(tmp0, "4");
193: if (oflag)
194: tmp5 = strspl(tmp0, "5");
195: for (i=0; i<nc; i++) {
196: if (nc > 1 && !Mflag) {
197: printf("%s:\n", clist[i]);
198: fflush(stdout);
199: }
200: if (!Mflag && getsuf(clist[i]) == 's') {
201: assource = clist[i];
202: goto assemble;
203: } else
204: assource = tmp3;
205: if (pflag)
206: tmp4 = setsuf(clist[i], 'i');
207: av[0] = "cpp"; av[1] = clist[i];
208: na = 2;
209: if (!exflag)
210: av[na++] = tmp4;
211: for (j = 0; j < np; j++)
212: av[na++] = plist[j];
213: av[na++] = 0;
214: if (callsys(cpp, av)) {
215: exfail++;
216: eflag++;
217: }
218: if (pflag || exfail) {
219: cflag++;
220: continue;
221: }
222: if (sflag) {
223: if (nc==1 && outfile)
224: tmp3 = outfile;
225: else
226: tmp3 = setsuf(clist[i], 's');
227: assource = tmp3;
228: }
229: av[0] = fflag ? "sccom" : "ccom";
230: av[1] = tmp4; av[2] = oflag?tmp5:tmp3; na = 3;
231: if (proflag)
232: av[na++] = "-XP";
233: if (gflag) {
234: av[na++] = "-Xg";
235: } else if (Gflag) {
236: av[na++] = "-XG";
237: }
238: if (wflag)
239: av[na++] = "-w";
240: av[na] = 0;
241: if (callsys(fflag ? sccom : ccom, av)) {
242: cflag++;
243: eflag++;
244: continue;
245: }
246: if (oflag) {
247: av[0] = "c2"; av[1] = tmp5; av[2] = tmp3; av[3] = 0;
248: if (callsys(c2, av)) {
249: unlink(tmp3);
250: tmp3 = assource = tmp5;
251: } else
252: unlink(tmp5);
253: }
254: if (sflag)
255: continue;
256: assemble:
257: cunlink(tmp1); cunlink(tmp2); cunlink(tmp4);
258: av[0] = "as"; av[1] = "-o";
259: if (cflag && nc==1 && outfile)
260: av[2] = outfile;
261: else
262: av[2] = setsuf(clist[i], 'o');
263: na = 3;
264: if (Rflag)
265: av[na++] = "-R";
266: if (dflag)
267: av[na++] = dflag;
268: av[na++] = assource;
269: av[na] = 0;
270: if (callsys(as, av) > 1) {
271: cflag++;
272: eflag++;
273: continue;
274: }
275: }
276: nocom:
277: if (cflag==0 && nl!=0) {
278: i = 0;
279: av[0] = "ld"; av[1] = "-X"; av[2] = crt0; na = 3;
280: if (outfile) {
281: av[na++] = "-o";
282: av[na++] = outfile;
283: }
284: while (i < nl)
285: av[na++] = llist[i++];
286: if (gflag || Gflag)
287: av[na++] = "-lg";
288: if (proflag)
289: av[na++] = "-lc_p";
290: else
291: av[na++] = "-lc";
292: av[na++] = 0;
293: eflag |= callsys(ld, av);
294: if (nc==1 && nxo==1 && eflag==0)
295: unlink(setsuf(clist[0], 'o'));
296: }
297: dexit();
298: }
299:
300: idexit()
301: {
302:
303: eflag = 100;
304: dexit();
305: }
306:
307: dexit()
308: {
309:
310: if (!pflag) {
311: cunlink(tmp1);
312: cunlink(tmp2);
313: if (sflag==0)
314: cunlink(tmp3);
315: cunlink(tmp4);
316: cunlink(tmp5);
317: }
318: exit(eflag);
319: }
320:
321: error(s, x)
322: char *s, *x;
323: {
324: FILE *diag = exflag ? stderr : stdout;
325:
326: fprintf(diag, "cc: ");
327: fprintf(diag, s, x);
328: putc('\n', diag);
329: exfail++;
330: cflag++;
331: eflag++;
332: }
333:
334: getsuf(as)
335: char as[];
336: {
337: register int c;
338: register char *s;
339: register int t;
340:
341: s = as;
342: c = 0;
343: while (t = *s++)
344: if (t=='/')
345: c = 0;
346: else
347: c++;
348: s -= 3;
349: if (c <= MAXNAMLEN && c > 2 && *s++ == '.')
350: return (*s);
351: return (0);
352: }
353:
354: char *
355: setsuf(as, ch)
356: char *as;
357: {
358: register char *s, *s1;
359:
360: s = s1 = savestr(as);
361: while (*s)
362: if (*s++ == '/')
363: s1 = s;
364: s[-1] = ch;
365: return (s1);
366: }
367:
368: callsys(f, v)
369: char *f, **v;
370: {
371: int t, status;
372: char **cpp;
373:
374: if (debug) {
375: fprintf(stderr, "%s:", f);
376: for (cpp = v; *cpp != 0; cpp++)
377: fprintf(stderr, " %s", *cpp);
378: fprintf(stderr, "\n");
379: }
380: t = vfork();
381: if (t == -1) {
382: printf("No more processes\n");
383: return (100);
384: }
385: if (t == 0) {
386: execv(f, v);
387: printf("Can't find %s\n", f);
388: fflush(stdout);
389: _exit(100);
390: }
391: while (t != wait(&status))
392: ;
393: if ((t=(status&0377)) != 0 && t!=14) {
394: if (t!=2) {
395: printf("Fatal error in %s\n", f);
396: eflag = 8;
397: }
398: dexit();
399: }
400: return ((status>>8) & 0377);
401: }
402:
403: nodup(l, os)
404: char **l, *os;
405: {
406: register char *t, *s;
407: register int c;
408:
409: s = os;
410: if (getsuf(s) != 'o')
411: return (1);
412: while (t = *l++) {
413: while (c = *s++)
414: if (c != *t++)
415: break;
416: if (*t==0 && c==0)
417: return (0);
418: s = os;
419: }
420: return (1);
421: }
422:
423: #define NSAVETAB 1024
424: char *savetab;
425: int saveleft;
426:
427: char *
428: savestr(cp)
429: register char *cp;
430: {
431: register int len;
432:
433: len = strlen(cp) + 1;
434: if (len > saveleft) {
435: saveleft = NSAVETAB;
436: if (len > saveleft)
437: saveleft = len;
438: savetab = (char *)malloc(saveleft);
439: if (savetab == 0) {
440: fprintf(stderr, "ran out of memory (savestr)\n");
441: exit(1);
442: }
443: }
444: strncpy(savetab, cp, len);
445: cp = savetab;
446: savetab += len;
447: saveleft -= len;
448: return (cp);
449: }
450:
451: char *
452: strspl(left, right)
453: char *left, *right;
454: {
455: char buf[BUFSIZ];
456:
457: strcpy(buf, left);
458: strcat(buf, right);
459: return (savestr(buf));
460: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.