add LCC - a better C-Compiler for WEGA
This commit is contained in:
Oliver Lehmann
parent
4d8ac31ee3
commit
a6c8311c36
|
|
@ -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);
|
||||
}
|
||||
}
|
||||
Loading…
Reference in New Issue