d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wr_fd no longer exists, because the object module now buffers

Browse source
This commit is contained in:
ceriel 1990-01-03 14:24:08 +00:00
parent e59812782e
commit f0dccf3ca0
1 changed files with 21 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
util/amisc/astrip.c
View file

@ -38,10 +38,13 @@ char **argv;
exit(status);
}
extern long lseek();
strip(name)
char *name;
{
long size;
int fw;
if (! rd_open(name)) {
fprintf(stderr, "astrip: cannot open %s\n", name);
@ -68,51 +71,56 @@ char *name;
return(2);
}
wr_ohead(&buf);
wr_close();
if (writeerror) {
fprintf(stderr, "astrip: write error on temp file %s\n", tname);
rd_close();
wr_close();
return(1);
}
if(copy(name, tname, size)) {
fw = open(tname, 2);
if (fw < 0 || lseek(fw, (long)SZ_HEAD, 0) < 0) {
fprintf(stderr, "astrip: cannot create temp file %s\n", tname);
rd_close();
wr_close();
close(fw);
return(2);
}
if(copy(name, tname, size, rd_fd(), fw)) {
rd_close();
close(fw);
return(1);
}
rd_close();
wr_close();
close(fw);
size += SZ_HEAD;
if (! wr_open(name)) {
fw = open(name, 1);
if (fw < 0) {
fprintf(stderr, "astrip: cannot write %s\n", name);
return(1);
}
if (! rd_open(tname)) {
fprintf(stderr, "astrip: cannot read temp file %s\n", tname);
wr_close();
close(fw);
return(2);
}
if(copy(tname, name, size)) {
wr_close();
if(copy(tname, name, size, rd_fd(), fw)) {
close(fw);
rd_close();
return(2);
}
wr_close();
close(fw);
rd_close();
return(0);
}
copy(fnam, tnam, size)
copy(fnam, tnam, size, fr, fw)
char *fnam;
char *tnam;
long size;
{
register s, n;
char lbuf[512];
int fr, fw;
fr = rd_fd();
fw = wr_fd();
while(size != (long)0) {
s = 512;
if(size < 512)