Commit 5a68303a authored by Russ Cox's avatar Russ Cox

throw away most of the compat.h compatibility layer

in favor of the lib9 compatibility layer.  no need for two.

now that mycreate is gone, .6 files are 0644 not 0755.

TBR=r
OCL=26679
CL=26679
parent fcd76f7d
......@@ -86,16 +86,13 @@ main(int argc, char *argv[])
c = 0;
nout = 0;
for(;;) {
Waitmsg *w;
while(nout < nproc && argc > 0) {
i = myfork();
i = fork();
if(i < 0) {
i = mywait(&status);
if(i < 0)
errorexit();
if(status)
c++;
nout--;
continue;
fprint(2, "fork: %r\n");
errorexit();
}
if(i == 0) {
print("%s:\n", *argv);
......@@ -107,13 +104,13 @@ main(int argc, char *argv[])
argc--;
argv++;
}
i = mywait(&status);
if(i < 0) {
w = wait();
if(w == nil) {
if(c)
errorexit();
exits(0);
}
if(status)
if(w->msg[0])
c++;
nout--;
}
......@@ -160,7 +157,7 @@ assemble(char *file)
}
}
of = mycreat(outfile, 0664);
of = create(outfile, OWRITE, 0664);
if(of < 0) {
yyerror("%ca: cannot create %s", thechar, outfile);
errorexit();
......
......@@ -33,11 +33,30 @@
#include "y.tab.h"
#include <ctype.h>
enum
{
Plan9 = 1<<0,
Unix = 1<<1,
Windows = 1<<2,
};
int
systemtype(int sys)
{
return sys&Plan9;
}
int
pathchar(void)
{
return '/';
}
void
main(int argc, char *argv[])
{
char *p;
int nout, nproc, status, i, c;
int nout, nproc, i, c;
thechar = '6';
thestring = "amd64";
......@@ -83,16 +102,13 @@ main(int argc, char *argv[])
c = 0;
nout = 0;
for(;;) {
Waitmsg *w;
while(nout < nproc && argc > 0) {
i = myfork();
i = fork();
if(i < 0) {
i = mywait(&status);
if(i < 0)
errorexit();
if(status)
c++;
nout--;
continue;
fprint(2, "fork: %r\n");
errorexit();
}
if(i == 0) {
print("%s:\n", *argv);
......@@ -104,13 +120,13 @@ main(int argc, char *argv[])
argc--;
argv++;
}
i = mywait(&status);
if(i < 0) {
w = wait();
if(w == nil) {
if(c)
errorexit();
exits(0);
}
if(status)
if(w->msg[0])
c++;
nout--;
}
......@@ -157,7 +173,7 @@ assemble(char *file)
}
}
of = mycreate(outfile, 0664);
of = create(outfile, OWRITE, 0664);
if(of < 0) {
yyerror("%ca: cannot create %s", thechar, outfile);
errorexit();
......@@ -1044,9 +1060,9 @@ cinit(void)
}
pathname = allocn(pathname, 0, 100);
if(mygetwd(pathname, 99) == 0) {
if(getwd(pathname, 99) == 0) {
pathname = allocn(pathname, 100, 900);
if(mygetwd(pathname, 999) == 0)
if(getwd(pathname, 999) == 0)
strcpy(pathname, "/???");
}
}
......
......@@ -182,7 +182,7 @@ asmb(void)
case 6:
debug['8'] = 1; /* 64-bit addresses */
v = HEADR+textsize;
myseek(cout, v);
seek(cout, v, 0);
v = rnd(v, 4096) - v;
while(v > 0) {
cput(0);
......@@ -197,7 +197,7 @@ asmb(void)
strtabsize = linuxstrtable();
cflush();
v = rnd(HEADR+textsize, INITRND);
myseek(cout, v);
seek(cout, v, 0);
break;
}
......
......@@ -82,16 +82,13 @@ main(int argc, char *argv[])
c = 0;
nout = 0;
for(;;) {
Waitmsg *w;
while(nout < nproc && argc > 0) {
i = myfork();
i = fork();
if(i < 0) {
i = mywait(&status);
if(i < 0)
errorexit();
if(status)
c++;
nout--;
continue;
fprint(2, "fork: %r\n");
errorexit();
}
if(i == 0) {
print("%s:\n", *argv);
......@@ -103,13 +100,13 @@ main(int argc, char *argv[])
argc--;
argv++;
}
i = mywait(&status);
if(i < 0) {
w = wait();
if(w == nil) {
if(c)
errorexit();
exits(0);
}
if(status)
if(w->msg[0])
c++;
nout--;
}
......@@ -156,7 +153,7 @@ assemble(char *file)
}
}
of = mycreate(outfile, 0664);
of = create(outfile, OWRITE, 0664);
if(of < 0) {
yyerror("%ca: cannot create %s", thechar, outfile);
errorexit();
......
......@@ -32,7 +32,6 @@
#include <libc.h>
#include <bio.h>
#include <ctype.h>
#include "compat.h"
#pragma lib "../cc/cc.a$O"
......@@ -542,17 +541,8 @@ extern uint32 thash[];
/*
* compat.c/unix.c/windows.c
*/
int mywait(int*);
int mycreat(char*, int);
int systemtype(int);
int pathchar(void);
int myaccess(char*);
char* mygetwd(char*, int);
int myexec(char*, char*[]);
int mydup(int, int);
int myfork(void);
int mypipe(int*);
void* mysbrk(uint32);
/*
* parser
......@@ -794,3 +784,14 @@ int machcap(Node*);
#pragma varargck type "O" int
#pragma varargck type "T" Type*
#pragma varargck type "|" int
enum
{
Plan9 = 1<<0,
Unix = 1<<1,
Windows = 1<<2,
};
int pathchar(void);
int systemtype(int);
void* alloc(int32 n);
void* allocn(void*, int32, int32);
......@@ -35,6 +35,19 @@
#define CPP "/bin/cpp"
#endif
int
systemtype(int sys)
{
return sys&Plan9;
}
int
pathchar(void)
{
return '/';
}
/*
* known debug flags
* -a acid declaration output
......@@ -67,7 +80,7 @@ void
main(int argc, char *argv[])
{
char *defs[50], *p;
int nproc, nout, status, i, c, ndef;
int nproc, nout, i, c, ndef;
memset(debug, 0, sizeof(debug));
tinit();
......@@ -132,18 +145,13 @@ main(int argc, char *argv[])
c = 0;
nout = 0;
for(;;) {
Waitmsg *w;
while(nout < nproc && argc > 0) {
i = myfork();
i = fork();
if(i < 0) {
i = mywait(&status);
if(i < 0) {
print("cannot create a process\n");
errorexit();
}
if(status)
c++;
nout--;
continue;
print("cannot create a process\n");
errorexit();
}
if(i == 0) {
fprint(2, "%s:\n", *argv);
......@@ -155,13 +163,13 @@ main(int argc, char *argv[])
argc--;
argv++;
}
i = mywait(&status);
if(i < 0) {
w = wait();
if(w == nil) {
if(c)
errorexit();
exits(0);
}
if(status)
if(w->msg[0])
c++;
nout--;
}
......@@ -236,7 +244,7 @@ compile(char *file, char **defs, int ndef)
dup(2, 1);
}
} else {
c = mycreate(outfile, 0664);
c = create(outfile, OWRITE, 0664);
if(c < 0) {
diag(Z, "cannot open %s - %r", outfile);
outfile = 0;
......@@ -254,21 +262,21 @@ compile(char *file, char **defs, int ndef)
diag(Z, "-p option not supported on windows");
errorexit();
}
if(myaccess(file) < 0) {
if(access(file, AREAD) < 0) {
diag(Z, "%s does not exist", file);
errorexit();
}
if(mypipe(fd) < 0) {
if(pipe(fd) < 0) {
diag(Z, "pipe failed");
errorexit();
}
switch(myfork()) {
switch(fork()) {
case -1:
diag(Z, "fork failed");
errorexit();
case 0:
close(fd[0]);
mydup(fd[1], 1);
dup(fd[1], 1);
close(fd[1]);
av[0] = CPP;
i = 1;
......@@ -296,7 +304,7 @@ compile(char *file, char **defs, int ndef)
fprint(2, "%s ", av[c]);
fprint(2, "\n");
}
myexec(av[0], av);
exec(av[0], av);
fprint(2, "can't exec C preprocessor %s: %r\n", CPP);
errorexit();
default:
......@@ -1266,9 +1274,9 @@ cinit(void)
dclstack = D;
pathname = allocn(pathname, 0, 100);
if(mygetwd(pathname, 99) == 0) {
if(getwd(pathname, 99) == 0) {
pathname = allocn(pathname, 100, 900);
if(mygetwd(pathname, 999) == 0)
if(getwd(pathname, 999) == 0)
strcpy(pathname, "/???");
}
......@@ -1540,3 +1548,33 @@ setinclude(char *p)
p = e+1;
}
}
void*
alloc(int32 n)
{
void *p;
p = malloc(n);
if(p == nil) {
print("alloc out of mem\n");
exit(1);
}
memset(p, 0, n);
return p;
}
void*
allocn(void *p, int32 n, int32 d)
{
if(p == nil)
return alloc(d);
p = realloc(p, n+d);
if(p == nil) {
print("allocn out of mem\n");
exit(1);
}
if(d > 0)
memset((char*)p+n, 0, d);
return p;
}
......@@ -579,7 +579,7 @@ macinc(void)
if(strcmp(symb, "./") == 0)
symb[0] = 0;
strcat(symb, str);
f = myopen(symb);
f = open(symb, OREAD);
if(f >= 0)
break;
}
......
......@@ -618,7 +618,6 @@ int Fconv(Fmt*);
/*
* subr.c
*/
void myexit(int);
void* mal(int32);
void* remal(void*, int32, int32);
void errorexit(void);
......
......@@ -45,7 +45,7 @@ mainlex(int argc, char *argv[])
goto usage;
pathname = mal(100);
if(mygetwd(pathname, 99) == 0)
if(getwd(pathname, 99) == 0)
strcpy(pathname, "/???");
fmtinstall('O', Oconv); // node opcodes
......@@ -107,7 +107,7 @@ mainlex(int argc, char *argv[])
if(nerrors)
errorexit();
myexit(0);
exit(0);
return 0;
usage:
......@@ -122,7 +122,7 @@ usage:
print(" -p print the assembly language\n");
print(" -w print the parse tree after typing\n");
print(" -x print lex tokens\n");
myexit(0);
exit(0);
return 0;
}
......
......@@ -10,7 +10,7 @@ errorexit(void)
{
if(outfile)
remove(outfile);
myexit(1);
exit(1);
}
void
......@@ -59,7 +59,7 @@ fatal(char *fmt, ...)
print("\n");
if(debug['h'])
*(int*)0 = 0;
myexit(1);
exit(1);
}
void
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment