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