From a6c8311c362c223e69f2cc876a6d41a7d86c1711 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Thu, 22 Mar 1990 17:30:48 +0000
Subject: [PATCH] add LCC - a better C-Compiler for WEGA

---
 WEGA/contrib/lcc/cmd/lcc.c | 609 +++++++++++++++++++++++++++++++++++++
 1 file changed, 609 insertions(+)
 create mode 100644 WEGA/contrib/lcc/cmd/lcc.c

diff --git a/WEGA/contrib/lcc/cmd/lcc.c b/WEGA/contrib/lcc/cmd/lcc.c
new file mode 100644
index 0000000..ffdd953
--- /dev/null
+++ b/WEGA/contrib/lcc/cmd/lcc.c
@@ -0,0 +1,609 @@
+# include <stdio.h>
+# include <ctype.h>
+# include <signal.h>
+
+#define	SCPTR	sizeof(char *)
+
+#define	Xc0	0
+#define	Xc1	1
+#define	Xc2	2
+#define	Xcp	3
+#define	Xas	4
+#define	Xld	5
+#define	NPASS	6
+
+#define	NAMEc0 "ccom"
+#define	NAMEc1 0
+#define	NAMEc2 "lcopt"
+#define	NAMEcp "lcpp"
+#define	NAMEas "cas"
+#define	NAMEld "lld"
+
+char	lctm1[] = "/tmp/lctm1XXXXXX";
+char	lctm2[] = "/tmp/lctm2XXXXXX";
+char	lctm3[] = "/tmp/lctm3XXXXXX";
+char	lctm4[] = "/tmp/lctm4XXXXXX";
+char	lctm5[] = "/tmp/lctm5XXXXXX";
+
+char	*tmp1 = NULL;
+char	*tmp2 = NULL;
+char	*tmp3 = NULL;
+char	*tmp4 = NULL;
+char	*tmp5 = NULL;
+char	*outfile;
+char	**clist;
+char	**list[NPASS];
+int	nlist[NPASS];
+char	**av;
+int	pflag;
+int	sflag;
+int	cflag;
+int	eflag;
+int	gflag;
+int	exflag;
+int	oflag;
+char	fchar;
+char	bflag;
+char	debug = 0;
+
+#define	CCNAME	"lcc"
+char	*chpass ;
+char	*npassname ;
+char	rpassname[] = "/z/LCC/lib//";
+char	alpassname[] = "/z/LCC/bin//";
+char	minusl[4] = "-l\000";	/*template for "-lXc", "-lc", etc.*/
+char	*nameps[NPASS] = {NAMEc0, NAMEc1, NAMEc2, NAMEcp, NAMEas, NAMEld};
+char	*passes[NPASS];
+char	*pref = "lcrt0.o";
+extern	int optind;
+extern	int opterr;
+extern	char *optarg;
+extern	int optopt;
+
+char	*copy(), *setsuf(), *stralloc();
+char	*strcat(), *strncat(), *strtok();
+char	*strncpy(), *strcpy(), *strrchr();
+char	*mktemp(), *malloc(), *mktemp();
+
+main(argc, argv, envp)
+char *argv[]; 
+char *envp[];
+{
+	char *t;
+	char *assource;
+	int nc, nargs, nxo;
+	char *f20;
+	int i, j, c, na, ic;
+	int idexit();
+
+	opterr = 0;
+	i = nc = nxo = 0;
+	f20 = (char *)NULL;
+	nargs = argc + 1;
+	j = SCPTR * nargs - 1;		/*stralloc allocates extra byte.*/
+	for (i=NPASS; i-- > 0; ) {
+		nlist[i] = 0;
+		list[i] = (char **) stralloc(j);
+	}
+	clist = (char **)stralloc(j);
+	av = (char **)stralloc(j + 5 * SCPTR);
+	setbuf(stdout, (char *)NULL);
+	if((t = strrchr(argv[0], '/')) == NULL)
+		fchar = *argv[0];
+	else
+		fchar = t[1];
+	if(fchar == CCNAME[0])
+		fchar = 0;
+	while (optind<argc)
+	{
+	  c = getopt(argc, argv, "So:OcEPD:I:U:Ct:B:#gZ:W:0:1:2:A:L:d:l:V:");
+	  if (optarg == (char *)0)
+		optarg = "";
+	  switch (c) {
+	case 'S':
+		sflag++;
+		cflag++;
+		continue;
+
+	case 'o':
+		outfile = optarg;
+		if ((c=getsuf(outfile))=='c'||c=='o')
+			error("'-o %s': Illegal name for output of lld", outfile);
+		continue;
+
+	case 'O':
+		oflag++;
+		continue;
+
+	case 'c':
+		cflag++;
+		continue;
+
+	case 'E':
+		exflag++;
+	case 'P':
+		pflag++;
+		cflag++;
+	case 'D':
+	case 'I':
+	case 'U':
+	case 'C':
+		if (nlist[Xcp] >= nargs) {
+			error("Too many EPDIUC options", (char *)NULL);
+			continue;
+		}
+		list[Xcp][nlist[Xcp]] = stralloc(strlen(optarg)+2);
+		list[Xcp][nlist[Xcp]][0] = '-';
+		list[Xcp][nlist[Xcp]][1] = c;
+		list[Xcp][nlist[Xcp]][2] = '\0';
+		strcat(list[Xcp][nlist[Xcp]], optarg);
+		nlist[Xcp]++;
+		continue;
+
+	case 't':
+		if (chpass)
+			error("-t overwrites earlier option", (char *)NULL);
+		chpass = optarg;
+		if (chpass[0]==0)
+			chpass = "012p";
+		continue;
+
+	case 'B':
+		if (npassname)
+			error("-B overwrites earlier option", (char *)NULL);
+		npassname = optarg;
+		if (npassname[0]==0){
+			npassname = "/lib/o";
+			bflag = 0;
+		}else
+			bflag = 1;
+		continue;
+
+	case '#':
+		debug = 1;
+		continue;
+
+	case 'g':
+		gflag++;
+		continue;
+
+	case 'Z':
+		if(optarg[1] != 0){
+			error("'-Z' needs one-letter subargument: -Z%s", optarg);
+			continue;
+		}
+		(pref = "crt2.o")[3] = optarg[0];
+		(f20 = "-l2")[2] = optarg[0];;
+		continue;
+
+	case 'W':
+		if((optarg[1] != ',')
+			|| ((t = strtok(optarg, ",")) != optarg)){
+			error("Invalid subargument: -W%s", optarg);
+			continue;
+		}
+		if((i = getXpass((ic = *t), "-W")) == -1)
+			continue;
+		while((t = strtok(NULL, ",")) != NULL) {
+			if(nlist[i] >= nargs){
+				error("Too many arguments for pass -W%c", ic);
+				continue;
+			}
+			list[i][nlist[i]++] = t;
+		}
+		continue;
+
+	case '0':
+	case '1':
+	case '2':
+	case 'A':
+	case 'L':
+	case 'd':
+		error("The lcc option '-%c%s' is no longer supported.",c,optarg);
+		error("Please use '-Wc,arg'", (char *)NULL);
+		continue;
+
+	case 'l':
+	case 'V':
+		t = stralloc(strlen(optarg)+2);
+		t[0] = '-';
+		t[1] = c;
+		t[2] = '\0';
+		strcat(t, optarg);
+		goto checknl;
+	case '?':
+		t = stralloc(2);
+		t[0] = '-';
+		t[1] = optopt;
+		t[2] = '\0';
+checknl:
+		if(nlist[Xld] >= nargs){
+			free(t);
+			error("Too many lld options", (char *)NULL);
+			continue;
+		}
+		list[Xld][nlist[Xld]++] = t;
+		continue;
+
+	case EOF:
+		t = argv[optind];
+		optind++;
+		if((c=getsuf(t))=='c' || c=='s'|| exflag) {
+			clist[nc++] = t;
+			t = setsuf(t, 'o');
+		}
+		if (nodup(list[Xld], t)) {
+			if(nlist[Xld] >= nargs){
+				error("Too many lld arguments", (char *)NULL);
+				continue;
+			}
+			list[Xld][nlist[Xld]++] = t;
+			if (getsuf(t)=='o')
+				nxo++;
+		}
+	  }
+	}
+	if (gflag)
+		oflag = 0;
+	if(fchar) {
+		(list[Xcp][nlist[Xcp]] = "-I/usr/Xinclude")[7] = fchar;
+		nlist[Xcp]++;
+	}
+	if (npassname && chpass ==0)
+		chpass = "012p";
+	if (chpass && npassname==0)
+		npassname = "/lib/n";
+	if (chpass)
+		for (t=chpass; *t; t++) {
+			if((i = getXpass(*t, "-t")) == -1)
+				continue;
+			mkpname (i, npassname);
+			continue;
+		}
+	rpassname[sizeof(rpassname)-2] = fchar;
+	alpassname[sizeof(alpassname)-2] = fchar;
+	for (i = 0; i < NPASS; i++)
+		if(passes[i] == 0){
+			mkpname (i, i < Xas ? rpassname : alpassname);
+		}
+	if(nc==0)
+		goto nocom;
+	if (pflag==0) {
+		tmp1 = mktemp(lctm1);
+		tmp2 = mktemp(lctm2);
+		tmp3 = mktemp(lctm3);
+		tmp4 = mktemp(lctm4);
+		if (oflag)
+			tmp5 = mktemp(lctm5);
+		if (!(tmp1 && tmp2 && tmp3 && tmp4 && (tmp5 || !oflag)) ||
+			creat(tmp1, 0666) < 0)
+			error("lcc: cannot create temporaries: %s", tmp1);
+	}
+	if(eflag)
+		dexit();
+	if (signal(SIGINT, SIG_IGN) != SIG_IGN)
+		signal(SIGINT, idexit);
+	if (signal(SIGTERM, SIG_IGN) != SIG_IGN)
+		signal(SIGTERM, idexit);
+	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');
+		av[0] = nameps[Xcp];
+		av[1] = clist[i];
+		av[2] = exflag ? "-" : tmp4;
+		na = 3;
+		for(j=0; j < nlist[Xcp]; j++)
+			av[na++] = list[Xcp][j];
+		av[na]=0;
+		if (callsys(passes[Xcp], av, envp)) {
+			cflag++; 
+			eflag++;
+			continue;
+		}
+		if (pflag)
+			continue;
+		na = 0;
+		av[na++] = nameps[Xc0];
+		for (j=0; j < nlist[Xc0]; j++)
+			av[na++] = list[Xc0][j];
+		av[na++] = tmp4;
+		if (nameps[Xc1] == 0){
+			if (sflag)
+				assource = tmp3 = setsuf(clist[i], 's');
+			av[na++] = tmp3;
+			if (oflag)
+				av[na-1] = tmp5;
+		}else
+			av[na++] = tmp1;
+		if (gflag)
+			av[na++] = "-Xg";
+		av[na] = 0;
+		if (callsys(passes[Xc0], av, envp)) {
+			cflag++;
+			eflag++;
+			continue;
+		}
+		if(nameps[Xc1] != (char *)0){
+			na = 0;
+			av[na++] = nameps[Xc1];
+			for (j=0; j < nlist[Xc1]; j++)
+				av[na++] = list[Xc1][j];
+			av[na++] = tmp1;
+			if (sflag)
+				assource = tmp3 = setsuf(clist[i], 's');
+			av[na++] = tmp3;
+			if (oflag)
+				av[na-1] = tmp5;
+			av[na] = 0;
+			if(callsys(passes[Xc1], av, envp)) {
+				cflag++;
+				eflag++;
+				continue;
+			}
+		}
+		if (oflag) {
+			na = 0;
+			av[na++] = nameps[Xc2];
+			for (j=0; j < nlist[Xc2]; j++)
+				av[na++] = list[Xc2][j];
+			av[na++] = tmp5;
+			av[na++] = tmp3;
+			av[na] = 0;
+			if (callsys(passes[Xc2], av, envp)) {
+				unlink(tmp3);
+				assource = tmp5;
+			} 
+			else
+				unlink(tmp5);
+		}
+		if (sflag)
+			continue;
+assemble:
+		na = 0;
+		av[na++] = nameps[Xas];
+		for (j=0; j < nlist[Xas]; j++)
+			av[na++] = list[Xas][j];
+		av[na++] = "-u";
+		av[na++] = "-o";
+		av[na++] = setsuf(clist[i], 'o');
+		av[na++] = assource;
+		av[na] = 0;
+		cunlink(tmp1);
+		cunlink(tmp2);
+		cunlink(tmp4);
+		if (callsys(passes[Xas], av, envp) > 0) {
+			cflag++;
+			eflag++;
+			continue;
+		}
+	}
+nocom:
+	if (cflag==0 && nlist[Xld]!=0) {
+		na = i = 0;
+		av[na++] = nameps[Xld];
+		j = sizeof("/z/LCC/lib//") - 1;
+		av[na++] = t = stralloc(j + strlen(pref));
+		strcpy(t, "/z/LCC/lib//");
+		strcat(t, pref);
+		if(fchar){
+			t[j-1] = fchar;
+			if(access(t, 04) != 0)
+				t[j-1] = '/';
+		}
+		if (outfile) {
+			av[na++] = "-o";
+			av[na++] = outfile;
+		}
+		while(i<nlist[Xld])
+			av[na++] = list[Xld][i++];
+		if(fchar)
+			minusl[2] = fchar;	/*set up for "-lnc", etc.*/
+		if (gflag)
+			av[na++] = strcat( strcpy( "-lXg", minusl), "g");
+		if(f20 != NULL)
+			av[na++] = f20;
+		else
+			av[na++] = strcat( strcpy( "-lXc", minusl), "c");
+		av[na] = 0;
+		eflag |= callsys(passes[Xld], av, envp);
+		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);
+	}
+	exit(eflag);
+}
+
+/*VARARGS*/
+error(s, a, b)
+char *s, *a, *b;
+{
+	fprintf(stderr, s, a, b);
+	putc('\n', stderr);
+	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, envp)
+char f[], *v[]; 
+char *envp[];
+{
+	int t, status;
+	char **p;
+
+	if (debug) {
+		printf("callsys %s:", f);
+		for (p=v; *p != NULL; p++)
+			printf(" '%s'", *p);
+		printf(" .\n");
+		for (p=envp; *p != NULL; p++)
+			printf(" '%s'", *p);
+		printf(" .\n");
+		return(0);
+	}
+	if ((t=fork())==0) {
+		execve(f, v, envp);
+		error("Can't find %s, %s", f);
+		exit(300);
+	} else
+		if (t == -1) {
+			error("Can't fork; Try again");
+			return(1);
+		}
+	while(t!=wait(&status))
+		;
+	if (t = status&0377) {
+		if (t!=SIGINT)
+			error("Fatal error in %s", f);
+		eflag += 200;
+		dexit();
+	}
+	return((status>>8) & 0377);
+}
+
+char *
+copy(s)
+register char *s;
+{
+	register char *ns;
+
+	ns = stralloc(strlen(s));
+	return(strcpy(ns, s));
+}
+
+char *
+stralloc(n)
+int	n;
+{
+	char *malloc();
+	register char *s;
+
+	s = malloc(n+1);
+	if (s==NULL) {
+		error("out of space", (char *)NULL);
+		dexit();
+	}
+	return(s);
+}
+
+
+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);
+}
+
+
+mkpname(n, pname)
+int	n;
+char	*pname;
+{
+	if (nameps[n] == 0)
+		return;
+	passes[n] = stralloc(strlen(pname) + strlen(nameps[n]));
+	strcpy(passes[n], pname);
+	strcat(passes[n], nameps[n]);
+}
+
+
+getXpass(c, opt)
+char	c, *opt;
+{
+	switch (c) {
+	default:
+		error("Unrecognized pass name: '%s%c'", opt, c);
+		return(-1);
+	case '0':
+	case '1':
+	case '2':
+		return(c - '0');
+	case 'p':
+		return(Xcp);
+	case 'a':
+		return(Xas);
+	case 'l':
+		return(Xld);
+	}
+}