projects / unix-history / blob
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
date and time created 88/03/29 15:14:21 by bostic
[unix-history] / usr / src / local / local.cmd / ncpio.c
static char *RCSid = "$Header: cpio.c,v 1.4 83/12/16 13:18:54 ks Exp $";
/* @(#)cpio.c 1.7 */
/* cpio COMPILE: cc -O cpio.c -s -i -o cpio
cpio -- copy file collections
*/
#include <stdio.h>
#include <signal.h>
#ifdef RT
#include <rt/macro.h>
#include <rt/types.h>
#include <rt/stat.h>
#else
#include <sys/types.h>
#include <sys/stat.h>
#endif
#define EQ(x,y) (strcmp(x,y)==0)
/* for VAX, Interdata, ... */
#define MKSHORT(v,lv) {U.l=1L;if(U.c[0]) U.l=lv,v[0]=U.s[1],v[1]=U.s[0]; else U.l=lv,v[0]=U.s[0],v[1]=U.s[1];}
#define MAGIC 070707 /* cpio magic number */
#define IN 1 /* copy in */
#define OUT 2 /* copy out */
#define PASS 3 /* direct copy */
#define HDRSIZE (Hdr.h_name - (char *)&Hdr) /* header size minus filename field */
#define LINKS 1000 /* max no. of links allowed */
#define CHARS 76 /* ASCII header size minus filename field */
#define BUFSIZE 512 /* In u370, can't use BUFSIZ nor BSIZE */
#define CPIOBSZ 8192 /* file read/write */
#ifndef MAXPATHLEN
#define MAXPATHLEN 1024 /* Maximum length of any single path name */
#endif MAXPATHLEN
#ifdef RT
extern long filespace;
#endif
struct stat Statb, Xstatb;
/* Cpio header format */
struct header {
short h_magic,
h_dev;
ushort h_ino,
h_mode,
h_uid,
h_gid;
short h_nlink,
h_rdev,
h_mtime[2],
h_namesize,
h_filesize[2];
char h_name[MAXPATHLEN+1];
} Hdr;
unsigned Bufsize = BUFSIZE; /* default record size */
short Buf[CPIOBSZ/2], *Dbuf;
char BBuf[CPIOBSZ], *Cbuf;
int Wct, Wc;
short *Wp;
char *Cp;
#ifdef RT
short Actual_size[2];
#endif
short Option,
Dir,
Uncond,
Link,
Rename,
Toc,
Verbose,
Select,
Mod_time,
Acc_time,
Cflag,
fflag,
hflag;
#ifdef RT
Extent,
#endif
Swap,
byteswap,
bothswap,
halfswap;
int Ifile,
Ofile,
Input = 0,
Output = 1;
long Blocks,
Longfile,
Longtime;
char Fullname[MAXPATHLEN+1],
Name[MAXPATHLEN+1];
int Pathend;
FILE *Rtty,
*Wtty;
char *Pattern[100];
char Strhdr[500];
char *Chdr = Strhdr;
short Dev,
Uid,
EUid,
Gid,
A_directory,
A_special,
#ifdef RT
One_extent,
Multi_extent,
#endif
Filetype = S_IFMT;
extern errno;
char *malloc();
char *cd();
/* char *Cd_name; */
FILE *popen();
union { long l; short s[2]; char c[4]; } U;
/* for VAX, Interdata, ... */
long mklong(v)
short v[];
{
U.l = 1;
if(U.c[0])
U.s[0] = v[1], U.s[1] = v[0];
else
U.s[0] = v[0], U.s[1] = v[1];
return U.l;
}
main(argc, argv)
char **argv;
{
register ct;
long filesz;
register char *fullp;
register i;
int ans;
signal(SIGSYS, 1);
if(*argv[1] != '-')
usage();
Uid = getuid();
EUid = geteuid();
umask(0);
Gid = getgid();
Pattern[0] = "*";
while(*++argv[1]) {
switch(*argv[1]) {
case 'a': /* reset access time */
Acc_time++;
break;
case 'B': /* change record size to 5120 bytes */
Bufsize = 5120;
break;
case 'i':
Option = IN;
if(argc > 2 ) { /* save patterns, if any */
for(i = 0; (i+2) < argc; ++i)
Pattern[i] = argv[i+2];
}
break;
case 'f': /* do not consider patterns in cmd line */
fflag++;
break;
case 'o':
if(argc != 2)
usage();
Option = OUT;
break;
case 'p':
if(argc != 3)
usage();
if(access(argv[2], 2) == -1) {
accerr:
fprintf(stderr,"cannot write in <%s>\n", argv[2]);
exit(2);
}
strcpy(Fullname, argv[2]); /* destination directory */
strcat(Fullname, "/");
hflag ? stat(Fullname, &Xstatb) : lstat(Fullname, &Xstatb);
if((Xstatb.st_mode&S_IFMT) != S_IFDIR)
goto accerr;
Option = PASS;
Dev = Xstatb.st_dev;
break;
case 'c': /* ASCII header */
Cflag++;
break;
case 'd': /* create directories when needed */
Dir++;
break;
case 'l': /* link files, when necessary */
Link++;
break;
case 'm': /* retain mod time */
Mod_time++;
break;
case 'r': /* rename files interactively */
Rename++;
Rtty = fopen("/dev/tty", "r");
Wtty = fopen("/dev/tty", "w");
if(Rtty==NULL || Wtty==NULL) {
fprintf(stderr,
"Cannot rename (/dev/tty missing)\n");
exit(2);
}
break;
case 'S': /* swap halfwords */
halfswap++;
Swap++;
break;
case 's': /* swap bytes */
byteswap++;
Swap++;
break;
case 'b':
bothswap++;
Swap++;
break;
case 't': /* table of contents */
Toc++;
break;
case 'u': /* copy unconditionally */
Uncond++;
break;
case 'v': /* verbose table of contents */
Verbose++;
break;
case '6': /* for old, sixth-edition files */
Filetype = 060000;
break;
#ifdef RT
case 'e':
Extent++;
break;
#endif
case 'h':
hflag++;
break;
default:
usage();
}
}
if(!Option) {
fprintf(stderr,"Options must include o|i|p\n");
exit(2);
}
#ifdef RT
setio(-1,1); /* turn on physio */
#endif
if(Option == PASS) {
if(Rename) {
fprintf(stderr,"Pass and Rename cannot be used together\n");
exit(2);
}
if(Bufsize == 5120) {
printf("`B' option is irrelevant with the '-p' option\n");
Bufsize = BUFSIZE;
}
}else {
if(Cflag)
Cp = Cbuf = (char *)malloc(Bufsize);
else
Wp = Dbuf = (short *)malloc(Bufsize);
}
Wct = Bufsize >> 1;
Wc = Bufsize;
switch(Option) {
case OUT: /* get filename, copy header and file out */
while(getname()) {
if( mklong(Hdr.h_filesize) == 0L) {
#ifdef S_IFLNK
if((Hdr.h_mode&S_IFMT) == S_IFLNK) {
outsymlink();
continue;
}
#endif
if( Cflag )
writehdr(Chdr,CHARS+Hdr.h_namesize);
else
bwrite(&Hdr, HDRSIZE+Hdr.h_namesize);
#ifdef RT
if (One_extent || Multi_extent) {
actsize(0);
if( Cflag )
writehdr(Chdr,CHARS+Hdr.h_namesize);
else
bwrite(&Hdr, HDRSIZE+Hdr.h_namesize);
}
#endif
continue;
}
if((Ifile = open(Hdr.h_name, 0)) < 0) {
fprintf(stderr,"<%s> ?\n", Hdr.h_name);
continue;
}
if ( Cflag )
writehdr(Chdr,CHARS+Hdr.h_namesize);
else
bwrite(&Hdr, HDRSIZE+Hdr.h_namesize);
#ifdef RT
if (One_extent || Multi_extent) {
actsize(Ifile);
if(Cflag)
writehdr(Chdr,CHARS+Hdr.h_namesize);
else
bwrite(&Hdr, HDRSIZE+Hdr.h_namesize);
Hdr.h_filesize[0] = Actual_size[0];
Hdr.h_filesize[1] = Actual_size[1];
}
#endif
for(filesz=mklong(Hdr.h_filesize); filesz>0; filesz-= CPIOBSZ){
ct = filesz>CPIOBSZ? CPIOBSZ: filesz;
if(read(Ifile, Cflag? BBuf: (char *)Buf, ct) < 0) {
fprintf(stderr,"Cannot read %s\n", Hdr.h_name);
continue;
}
Cflag? writehdr(BBuf,ct): bwrite(Buf,ct);
}
close(Ifile);
if(Acc_time)
set_time(Hdr.h_name, Statb.st_atime,
Statb.st_mtime);
if(Verbose)
fprintf(stderr,"%s\n", Hdr.h_name);
}
/* copy trailer, after all files have been copied */
strcpy(Hdr.h_name, "TRAILER!!!");
Hdr.h_magic = MAGIC;
MKSHORT(Hdr.h_filesize, 0L);
Hdr.h_namesize = strlen("TRAILER!!!") + 1;
if ( Cflag ) {
bintochar(0L);
writehdr(Chdr,CHARS+Hdr.h_namesize);
}
else
bwrite(&Hdr, HDRSIZE+Hdr.h_namesize);
Cflag? writehdr(Cbuf, Bufsize): bwrite(Dbuf, Bufsize);
break;
case IN:
pwd();
while(gethdr()) {
Ofile = ckname(Hdr.h_name)? openout(Hdr.h_name): 0;
#ifdef S_IFLNK
if ((Hdr.h_mode&S_IFMT) != S_IFLNK)
#endif
for(filesz=mklong(Hdr.h_filesize); filesz>0; filesz-= CPIOBSZ){
ct = filesz>CPIOBSZ? CPIOBSZ: filesz;
Cflag? readhdr(BBuf,ct): bread(Buf, ct);
if(Ofile) {
if(Swap)
Cflag? swap(BBuf,ct): swap(Buf,ct);
if(write(Ofile, Cflag? BBuf: (char *)Buf, ct) < 0) {
fprintf(stderr,"Cannot write %s\n", Hdr.h_name);
continue;
}
}
}
if(Ofile) {
close(Ofile);
if(chmod(Hdr.h_name, Hdr.h_mode) < 0) {
fprintf(stderr,"Cannot chmod <%s> (errno:%d)\n", Hdr.h_name, errno);
}
set_time(Hdr.h_name, mklong(Hdr.h_mtime), mklong(Hdr.h_mtime));
}
if(!Select)
continue;
if(Verbose)
if(Toc)
pentry(Hdr.h_name);
else
puts(Hdr.h_name);
else if(Toc)
puts(Hdr.h_name);
}
break;
case PASS: /* move files around */
fullp = Fullname + strlen(Fullname);
while(getname()) {
if (A_directory && !Dir)
fprintf(stderr,"Use `-d' option to copy <%s>\n",Hdr.h_name);
if(!ckname(Hdr.h_name))
continue;
i = 0;
while(Hdr.h_name[i] == '/')
i++;
strcpy(fullp, &(Hdr.h_name[i]));
if(Link
&& !A_directory
#ifdef S_IFLNK
&& ((Hdr.h_mode&S_IFMT)!=S_IFLNK)
#endif
&& Dev == Statb.st_dev
&& (Uid == Statb.st_uid || !Uid)) {
if(link(Hdr.h_name, Fullname) < 0) { /* missing dir.? */
unlink(Fullname);
missdir(Fullname);
if(link(Hdr.h_name, Fullname) < 0) {
fprintf(stderr,
"Cannot link <%s> & <%s>\n",
Hdr.h_name, Fullname);
continue;
}
}
/* try creating (only twice) */
ans = 0;
do {
if(link(Hdr.h_name, Fullname) < 0) { /* missing dir.? */
unlink(Fullname);
ans += 1;
}else {
ans = 0;
break;
}
}while(ans < 2 && missdir(Fullname) == 0);
if(ans == 1) {
fprintf(stderr,"Cannot create directory for <%s> (errno:%d)\n", Fullname, errno);
exit(0);
}else if(ans == 2) {
fprintf(stderr,"Cannot link <%s> & <%s>\n", Hdr.h_name, Fullname);
exit(0);
}
if(chmod(Hdr.h_name, Hdr.h_mode) < 0) {
fprintf(stderr,"Cannot chmod <%s> (errno:%d)\n", Hdr.h_name, errno);
}
set_time(Hdr.h_name, mklong(Hdr.h_mtime), mklong(Hdr.h_mtime));
goto ckverbose;
}
#ifdef RT
if (One_extent || Multi_extent)
actsize(0);
#endif
if(!(Ofile = openout(Fullname))) {
continue;
}
if((Ifile = open(Hdr.h_name, 0)) < 0) {
fprintf(stderr,"<%s> ?\n", Hdr.h_name);
close(Ofile);
continue;
}
filesz = Statb.st_size;
for(; filesz > 0; filesz -= CPIOBSZ) {
ct = filesz>CPIOBSZ? CPIOBSZ: filesz;
if(read(Ifile, Buf, ct) < 0) {
fprintf(stderr,"Cannot read %s\n", Hdr.h_name);
break;
}
if(Ofile)
if(write(Ofile, Buf, ct) < 0) {
fprintf(stderr,"Cannot write %s\n", Hdr.h_name);
break;
}
#ifndef u370
Blocks += ((ct + (BUFSIZE - 1)) / BUFSIZE);
#else
++Blocks;
#endif
}
close(Ifile);
if(Acc_time)
set_time(Hdr.h_name, Statb.st_atime,
Statb.st_mtime);
if(Ofile) {
close(Ofile);
if(chmod(Fullname, Hdr.h_mode) < 0) {
fprintf(stderr,"Cannot chmod <%s> (errno:%d)\n", Fullname, errno);
}
set_time(Fullname, Statb.st_atime, mklong(Hdr.h_mtime));
ckverbose:
if(Verbose)
puts(Fullname);
}
}
}
/* print number of blocks actually copied */
fprintf(stderr,"%ld blocks\n", Blocks * (Bufsize>>9));
exit(0);
}
usage()
{
fprintf(stderr,"Usage: cpio -o[acvB] <name-list >collection\n%s\n%s\n",
" cpio -i[cdmrstuvfB6] [pattern ...] <collection",
" cpio -p[adlmruv] directory <name-list");
exit(2);
}
getname() /* get file name, get info for header */
{
register char *namep = Name;
register ushort ftype;
long tlong;
int namelen;
for(;;) {
if (fgets(namep, MAXPATHLEN, stdin) == NULL)
return 0;
namelen = strlen(namep);
namep[namelen - 1] = '\0';
if (namelen > 128)
fprintf(stderr,"Warning: filename <%s> too long for older versions of cpio\n", namep);
if(*namep == '.' && namep[1] == '/')
namep += 2;
strcpy(Hdr.h_name, namep);
if((hflag ? stat(namep, &Statb) : lstat(namep, &Statb)) < 0) {
fprintf(stderr,"< %s > ?\n", Hdr.h_name);
continue;
}
ftype = Statb.st_mode & Filetype;
A_directory = (ftype == S_IFDIR);
A_special = (ftype == S_IFBLK)
#ifdef S_IFIFO
|| (ftype == S_IFIFO)
#endif
#ifdef S_IFLNK
|| (ftype == S_IFLNK)
#endif
#ifdef S_ISOCK
|| (ftype == S_ISOCK)
#endif
|| (ftype == S_IFCHR);
#ifdef RT
A_special |= (ftype == S_IFREC);
One_extent = (ftype == S_IF1EXT);
Multi_extent = (ftype == S_IFEXT);
#endif
Hdr.h_magic = MAGIC;
Hdr.h_namesize = strlen(Hdr.h_name) + 1;
Hdr.h_uid = Statb.st_uid;
Hdr.h_gid = Statb.st_gid;
Hdr.h_dev = Statb.st_dev;
Hdr.h_ino = Statb.st_ino;
Hdr.h_mode = Statb.st_mode;
MKSHORT(Hdr.h_mtime, Statb.st_mtime);
Hdr.h_nlink = Statb.st_nlink;
tlong = ((Hdr.h_mode&S_IFMT) == S_IFREG)? Statb.st_size: 0L;
#ifdef RT
if (One_extent || Multi_extent) tlong = Statb.st_size;
#endif
MKSHORT(Hdr.h_filesize, tlong);
Hdr.h_rdev = Statb.st_rdev;
if( Cflag )
bintochar(tlong);
return 1;
}
}
bintochar(t) /* ASCII header write */
long t;
{
sprintf(Chdr,"%.6o%.6ho%.6ho%.6ho%.6ho%.6ho%.6ho%.6ho%.11lo%.6ho%.11lo%s",
MAGIC,Statb.st_dev,Statb.st_ino,Statb.st_mode,Statb.st_uid,
Statb.st_gid,Statb.st_nlink,Statb.st_rdev & 00000177777,
Statb.st_mtime,(short)strlen(Hdr.h_name)+1,t,Hdr.h_name);
}
chartobin() /* ASCII header read */
{
sscanf(Chdr,"%6ho%6ho%6ho%6ho%6ho%6ho%6ho%6ho%11lo%6ho%11lo",
&Hdr.h_magic,&Hdr.h_dev,&Hdr.h_ino,&Hdr.h_mode,&Hdr.h_uid,
&Hdr.h_gid,&Hdr.h_nlink,&Hdr.h_rdev,&Longtime,&Hdr.h_namesize,
&Longfile);
MKSHORT(Hdr.h_filesize, Longfile);
MKSHORT(Hdr.h_mtime, Longtime);
}
gethdr() /* get file headers */
{
register ushort ftype;
if (Cflag) {
readhdr(Chdr,CHARS);
chartobin();
}
else
bread(&Hdr, HDRSIZE);
if(Hdr.h_magic != MAGIC) {
fprintf(stderr,"Out of phase--get help\n");
exit(2);
}
if(Cflag)
readhdr(Hdr.h_name, Hdr.h_namesize);
else
bread(Hdr.h_name, Hdr.h_namesize);
if(EQ(Hdr.h_name, "TRAILER!!!"))
return 0;
ftype = Hdr.h_mode & Filetype;
A_directory = (ftype == S_IFDIR);
A_special =(ftype == S_IFBLK)
#ifdef S_IFIFO
|| (ftype == S_IFIFO)
#endif
#ifdef S_IFLNK
|| (ftype == S_IFLNK)
#endif
#ifdef S_ISOCK
|| (ftype == S_ISOCK)
#endif
|| (ftype == S_IFCHR);
#ifdef RT
A_special |= (ftype == S_IFREC);
One_extent = (ftype == S_IF1EXT);
Multi_extent = (ftype == S_IFEXT);
if (One_extent || Multi_extent) {
Actual_size[0] = Hdr.h_filesize[0];
Actual_size[1] = Hdr.h_filesize[1];
if (Cflag) {
readhdr(Chdr,CHARS);
chartobin();
}
else
bread(&Hdr, HDRSIZE);
if(Hdr.h_magic != MAGIC) {
fprintf(stderr,"Out of phase--get RT help\n");
exit(2);
}
if(Cflag)
readhdr(Hdr.h_name, Hdr.h_namesize);
else
bread(Hdr.h_name, Hdr.h_namesize);
}
#endif
return 1;
}
ckname(namep) /* check filenames with patterns given on cmd line */
register char *namep;
{
++Select;
if(fflag ^ !nmatch(namep, Pattern)) {
Select = 0;
return 0;
}
if(Rename && !A_directory) { /* rename interactively */
fprintf(Wtty, "Rename <%s>\n", namep);
fflush(Wtty);
fgets(namep, MAXPATHLEN, Rtty);
if(feof(Rtty))
exit(2);
namep[strlen(namep) - 1] = '\0';
if(EQ(namep, "")) {
printf("Skipped\n");
#ifdef S_IFLNK
if ((Hdr.h_mode&S_IFMT) == S_IFLNK)
discardfile(mklong(Hdr.h_filesize));
#endif
return 0;
}
}
#ifdef S_IFLNK
if (Toc && ((Hdr.h_mode&S_IFMT) == S_IFLNK))
discardfile(mklong(Hdr.h_filesize));
#endif
return !Toc;
}
openout(namep) /* open files for writing, set all necessary info */
register char *namep;
{
register f;
register char *np;
int ans;
if(!strncmp(namep, "./", 2))
namep += 2;
np = namep;
/*
if(Option == IN)
Cd_name = namep = cd(namep);
*/
if(A_directory) {
if(!Dir
|| Rename
|| EQ(namep, ".")
|| EQ(namep, "..")) /* do not consider . or .. files */
return 0;
if((hflag ? stat(namep, &Xstatb) : lstat(namep, &Xstatb)) == -1) {
/* try creating (only twice) */
ans = 0;
do {
if(makdir(namep) != 0) {
ans += 1;
}else {
ans = 0;
break;
}
}while(ans < 2 && missdir(namep) == 0);
if(ans == 1) {
fprintf(stderr,"Cannot create directory for <%s> (errno:%d)\n", namep, errno);
return(0);
}else if(ans == 2) {
fprintf(stderr,"Cannot create directory <%s> (errno:%d)\n", namep, errno);
return(0);
}
}
ret:
if(chmod(namep, Hdr.h_mode) < 0) {
fprintf(stderr,"Cannot chmod <%s> (errno:%d)\n", namep, errno);
}
if(Uid == 0)
if(chown(namep, Hdr.h_uid, Hdr.h_gid) < 0) {
fprintf(stderr,"Cannot chown <%s> (errno:%d)\n", namep, errno);
}
set_time(namep, mklong(Hdr.h_mtime), mklong(Hdr.h_mtime));
return 0;
}
if(Hdr.h_nlink > 1)
if(!postml(namep, np))
return 0;
if((hflag ? stat(namep, &Xstatb) : lstat(namep, &Xstatb)) == 0) {
if((Uncond && !((!(Xstatb.st_mode & S_IWRITE) || A_special) && (Uid != 0)))) {
if(unlink(namep) < 0) {
fprintf(stderr,"cannot unlink current <%s> (errno:%d)\n", namep, errno);
}
}
if(!Uncond && (mklong(Hdr.h_mtime) <= Xstatb.st_mtime) &&
((Hdr.h_mode&S_IFMT)!=S_IFLNK)) {
/* There's a newer version of file on destination */
if(mklong(Hdr.h_mtime) < Xstatb.st_mtime)
fprintf(stderr,"current <%s> newer\n", np);
return 0;
}
}
if(Option == PASS
&& Hdr.h_ino == Xstatb.st_ino
&& Hdr.h_dev == Xstatb.st_dev) {
fprintf(stderr,"Attempt to pass file to self!\n");
exit(2);
}
if(A_special) {
#ifdef S_IFLNK
if ((Hdr.h_mode & Filetype) == S_IFLNK) {
ipsymlink(namep);
return 0;
}
#endif
#ifdef S_IFIFO
if((Hdr.h_mode & Filetype) == S_IFIFO)
Hdr.h_rdev = 0;
#endif
/* try creating (only twice) */
ans = 0;
do {
if(mknod(namep, Hdr.h_mode, Hdr.h_rdev) < 0) {
ans += 1;
}else {
ans = 0;
break;
}
}while(ans < 2 && missdir(np) == 0);
if(ans == 1) {
fprintf(stderr,"Cannot create directory for <%s> (errno:%d)\n", namep, errno);
return(0);
}else if(ans == 2) {
fprintf(stderr,"Cannot mknod <%s> (errno:%d)\n", namep, errno);
return(0);
}
goto ret;
}
#ifdef RT
if(One_extent || Multi_extent) {
/* try creating (only twice) */
ans = 0;
do {
if((f = falloc(namep, Hdr.h_mode, longword(Hdr.h_filesize[0]))) < 0) {
ans += 1;
}else {
ans = 0;
break;
}
}while(ans < 2 && missdir(np) == 0);
if(ans == 1) {
fprintf(stderr,"Cannot create directory for <%s> (errno:%d)\n", namep, errno);
return(0);
}else if(ans == 2) {
fprintf(stderr,"Cannot create <%s> (errno:%d)\n", namep, errno);
return(0);
}
if(filespace < longword(Hdr.h_filesize[0])){
fprintf(stderr,"Cannot create contiguous file <%s> proper size\n", namep);
fprintf(stderr," <%s> will be created as a regular file\n", namep);
if(unlink(Fullname) != 0)
fprintf(stderr,"<%s> not removed\n", namep);
Hdr.h_mode = (Hdr.h_mode & !S_IFMT) | S_IFREG;
One_extent = Multi_extent = 0;
}
Hdr.h_filesize[0] = Actual_size[0];
Hdr.h_filesize[1] = Actual_size[1];
}
if (!(One_extent || Multi_extent)) {
#endif
/* try creating (only twice) */
ans = 0;
do {
if((f = creat(namep, Hdr.h_mode)) < 0) {
ans += 1;
}else {
ans = 0;
break;
}
}while(ans < 2 && missdir(np) == 0);
if(ans == 1) {
fprintf(stderr,"Cannot create directory for <%s> (errno:%d)\n", namep, errno);
return(0);
}else if(ans == 2) {
fprintf(stderr,"Cannot create <%s> (errno:%d)\n", namep, errno);
return(0);
}
#ifdef RT
}
#endif
if(Uid == 0)
chown(namep, Hdr.h_uid, Hdr.h_gid);
return f;
}
bread(b, c)
register c;
register short *b;
{
static nleft = 0;
static short *ip;
register int rv;
register short *p = ip;
register int in;
c = (c+1)>>1;
while(c--) {
if(nleft == 0) {
in = 0;
while((rv=read(Input, &(((char *)Dbuf)[in]), Bufsize - in)) != Bufsize - in) {
if(rv <= 0) {
Input = chgreel(0, Input);
continue;
}
in += rv;
nleft += (rv >> 1);
}
nleft += (rv >> 1);
p = Dbuf;
++Blocks;
}
*b++ = *p++;
--nleft;
}
ip = p;
}
readhdr(b, c)
register c;
register char *b;
{
static nleft = 0;
static char *ip;
register int rv;
register char *p = ip;
register int in;
while(c--) {
if(nleft == 0) {
in = 0;
while((rv=read(Input, &(((char *)Cbuf)[in]), Bufsize - in)) != Bufsize - in) {
if(rv <= 0) {
Input = chgreel(0, Input);
continue;
}
in += rv;
nleft += rv;
}
nleft += rv;
p = Cbuf;
++Blocks;
}
*b++ = *p++;
--nleft;
}
ip = p;
}
bwrite(rp, c)
register short *rp;
register c;
{
register short *wp = Wp;
c = (c+1) >> 1;
while(c--) {
if(!Wct) {
again:
if(write(Output, Dbuf, Bufsize)<0) {
Output = chgreel(1, Output);
goto again;
}
Wct = Bufsize >> 1;
wp = Dbuf;
++Blocks;
}
*wp++ = *rp++;
--Wct;
}
Wp = wp;
}
writehdr(rp, c)
register char *rp;
register c;
{
register char *cp = Cp;
while(c--) {
if(!Wc) {
again:
if(write(Output,Cbuf,Bufsize)<0) {
Output = chgreel(1,Output);
goto again;
}
Wc = Bufsize;
cp = Cbuf;
++Blocks;
}
*cp++ = *rp++;
--Wc;
}
Cp = cp;
}
postml(namep, np) /* linking funtion */
register char *namep, *np;
{
register i;
static struct ml {
short m_dev,
m_ino;
char m_name[2];
} *ml[LINKS];
static mlinks = 0;
char *mlp;
int ans;
for(i = 0; i < mlinks; ++i) {
if(mlinks == LINKS) break;
if(ml[i]->m_ino==Hdr.h_ino &&
ml[i]->m_dev==Hdr.h_dev) {
if(Verbose)
printf("%s linked to %s\n", ml[i]->m_name,
np);
unlink(namep);
if(Option == IN && *ml[i]->m_name != '/') {
Fullname[Pathend] = '\0';
strcat(Fullname, ml[i]->m_name);
mlp = Fullname;
}
mlp = ml[i]->m_name;
/* try linking (only twice) */
ans = 0;
do {
if(link(mlp, namep) < 0) {
ans += 1;
}else {
ans = 0;
break;
}
}while(ans < 2 && missdir(np) == 0);
if(ans == 1) {
fprintf(stderr,"Cannot create directory for <%s> (errno:%d)\n", np, errno);
return(0);
}else if(ans == 2) {
fprintf(stderr,"Cannot link <%s> & <%s>.\n", ml[i]->m_name, np);
return(0);
}
set_time(namep, mklong(Hdr.h_mtime), mklong(Hdr.h_mtime));
return 0;
}
}
if(mlinks == LINKS
|| !(ml[mlinks] = (struct ml *)malloc(strlen(np) + 2 + sizeof(struct ml)))) {
static int first=1;
if(first)
if(mlinks == LINKS)
fprintf(stderr,"Too many links\n");
else
fprintf(stderr,"No memory for links\n");
mlinks = LINKS;
first = 0;
return 1;
}
ml[mlinks]->m_dev = Hdr.h_dev;
ml[mlinks]->m_ino = Hdr.h_ino;
strcpy(ml[mlinks]->m_name, np);
++mlinks;
return 1;
}
pentry(namep) /* print verbose table of contents */
register char *namep;
{
static short lastid = -1;
#include <pwd.h>
static struct passwd *pw;
struct passwd *getpwuid();
static char tbuf[32];
char *ctime();
printf("%-7o", Hdr.h_mode & 0177777);
if(lastid == Hdr.h_uid)
printf("%-6s", pw->pw_name);
else {
setpwent();
if(pw = getpwuid((int)Hdr.h_uid)) {
printf("%-6s", pw->pw_name);
lastid = Hdr.h_uid;
} else {
printf("%-6d", Hdr.h_uid);
lastid = -1;
}
}
printf("%7ld ", mklong(Hdr.h_filesize));
U.l = mklong(Hdr.h_mtime);
strcpy(tbuf, ctime((long *)&U.l));
tbuf[24] = '\0';
printf(" %s %s\n", &tbuf[4], namep);
}
/* pattern matching functions */
nmatch(s, pat)
char *s, **pat;
{
if(EQ(*pat, "*"))
return 1;
while(*pat) {
if((**pat == '!' && !gmatch(s, *pat+1))
|| gmatch(s, *pat))
return 1;
++pat;
}
return 0;
}
gmatch(s, p)
register char *s, *p;
{
register int c;
register cc, ok, lc, scc;
scc = *s;
lc = 077777;
switch (c = *p) {
case '[':
ok = 0;
while (cc = *++p) {
switch (cc) {
case ']':
if (ok)
return(gmatch(++s, ++p));
else
return(0);
case '-':
ok |= ((lc <= scc) && (scc <= (cc=p[1])));
}
if (scc==(lc=cc)) ok++;
}
return(0);
case '?':
caseq:
if(scc) return(gmatch(++s, ++p));
return(0);
case '*':
return(umatch(s, ++p));
case 0:
return(!scc);
}
if (c==scc) goto caseq;
return(0);
}
umatch(s, p)
register char *s, *p;
{
if(*p==0) return(1);
while(*s)
if (gmatch(s++,p)) return(1);
return(0);
}
#ifdef S_IFLNK
/* If 4.2 BSD or greater, we have a nifty syscall for this .. */
makdir(namep)
{
/*
* Error: mkdir returns -1, makdir returns 1
* Success: mkdir returns 0, makdir returns 0
*/
return(-mkdir(namep, 0777));
}
#else
makdir(namep) /* make needed directories */
register char *namep;
{
static status;
register pid;
if(pid = fork())
while(wait(&status) != pid);
else {
close(2);
execl("/bin/mkdir", "mkdir", namep, 0);
exit(2);
}
return ((status>>8) & 0377)? 1: 0;
}
#endif
swap(buf, ct) /* swap halfwords, bytes or both */
register ct;
register char *buf;
{
register char c;
register union swp { long longw; short shortv[2]; char charv[4]; } *pbuf;
int savect, n, i;
char *savebuf;
short cc;
savect = ct; savebuf = buf;
if(byteswap || bothswap) {
if (ct % 2) buf[ct] = 0;
ct = (ct + 1) / 2;
while (ct--) {
c = *buf;
*buf = *(buf + 1);
*(buf + 1) = c;
buf += 2;
}
if (bothswap) {
ct = savect;
pbuf = (union swp *)savebuf;
if (n = ct % sizeof(union swp)) {
if(n % 2)
for(i = ct + 1; i <= ct + (sizeof(union swp) - n); i++) pbuf->charv[i] = 0;
else
for (i = ct; i < ct + (sizeof(union swp) - n); i++) pbuf->charv[i] = 0;
}
ct = (ct + (sizeof(union swp) -1)) / sizeof(union swp);
while(ct--) {
cc = pbuf->shortv[0];
pbuf->shortv[0] = pbuf->shortv[1];
pbuf->shortv[1] = cc;
++pbuf;
}
}
}
else if (halfswap) {
pbuf = (union swp *)buf;
if (n = ct % sizeof(union swp))
for (i = ct; i < ct + (sizeof(union swp) - n); i++) pbuf->charv[i] = 0;
ct = (ct + (sizeof(union swp) -1)) / sizeof(union swp);
while (ct--) {
cc = pbuf->shortv[0];
pbuf->shortv[0] = pbuf->shortv[1];
pbuf->shortv[1] = cc;
++pbuf;
}
}
}
set_time(namep, atime, mtime) /* set access and modification times */
register *namep;
long atime, mtime;
{
static long timevec[2];
if(!Mod_time)
return;
timevec[0] = atime;
timevec[1] = mtime;
utime(namep, timevec);
}
chgreel(x, fl)
{
register f;
char str[22];
FILE *devtty;
struct stat statb;
fprintf(stderr,"errno: %d, ", errno);
fprintf(stderr,"Can't %s\n", x? "write output": "read input");
fstat(fl, &statb);
#ifndef RT
if((statb.st_mode&S_IFMT) != S_IFCHR)
exit(2);
#else
if((statb.st_mode & (S_IFBLK|S_IFREC))==0)
exit(2);
#endif
again:
fprintf(stderr,"If you want to go on, type device/file name when ready\n");
devtty = fopen("/dev/tty", "r");
fgets(str, 20, devtty);
str[strlen(str) - 1] = '\0';
if(!*str)
exit(2);
close(fl);
if((f = open(str, x? 1: 0)) < 0) {
fprintf(stderr,"That didn't work");
fclose(devtty);
goto again;
}
return f;
}
missdir(namep)
register char *namep;
{
register char *np;
register ct = 2;
for(np = namep; *np; ++np)
if(*np == '/') {
if(np == namep) continue; /* skip over 'root slash' */
*np = '\0';
if((hflag ? stat(namep, &Xstatb) : lstat(namep, &Xstatb)) == -1) {
if(Dir) {
if((ct = makdir(namep)) != 0) {
*np = '/';
return(ct);
}
}else {
fprintf(stderr,"missing 'd' option\n");
return(-1);
}
}
*np = '/';
}
if (ct == 2) ct = 0; /* the file already exists */
return ct;
}
pwd() /* get working directory */
{
FILE *dir;
dir = popen("pwd", "r");
fgets(Fullname, 256, dir);
if(pclose(dir))
exit(2);
Pathend = strlen(Fullname);
Fullname[Pathend - 1] = '/';
}
char * cd(n) /* change directories */
register char *n;
{
char *p_save = Name, *n_save = n, *p_end = 0;
register char *p = Name;
static char dotdot[]="../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../";
int slashes, ans;
if(*n == '/') /* don't try to chdir on full pathnames */
return n;
for(; *p && *n == *p; ++p, ++n) { /* whatever part of strings == */
if(*p == '/')
p_save = p+1, n_save = n+1;
}
p = p_save;
*p++ = '\0';
for(slashes = 0; *p; ++p) { /* if prev is longer, chdir("..") */
if(*p == '/')
++slashes;
}
p = p_save;
if(slashes) {
slashes = slashes * 3 - 1;
dotdot[slashes] = '\0';
chdir(dotdot);
dotdot[slashes] = '/';
}
n = n_save;
for(; *n; ++n, ++p) {
*p = *n;
if(*n == '/')
p_end = p+1, n_save = n+1;
}
*p = '\0';
if(p_end) {
*p_end = '\0';
if(chdir(p_save) == -1) {
if((ans = missdir(p_save)) == -1) {
fprintf(stderr,"Cannot chdir (no `d' option)\n");
exit(2);
} else if (ans > 0) {
fprintf(stderr,"Cannot chdir - no write permission\n");
exit(2);
} else if(chdir(p_save) == -1) {
fprintf(stderr,"Cannot chdir\n");
exit(2);
}
}
} else
*p_save = '\0';
return n_save;
}
#ifdef RT
actsize(file)
register int file;
{
long tlong;
long fsize();
register int tfile;
Actual_size[0] = Hdr.h_filesize[0];
Actual_size[1] = Hdr.h_filesize[1];
if (!Extent)
return;
if (file)
tfile = file;
else if ((tfile = open(Hdr.h_name,0)) < 0)
return;
tlong = fsize(tfile);
MKSHORT(Hdr.h_filesize,tlong);
if (Cflag)
bintochar(tlong);
if (!file)
close(tfile);
}
#endif
#ifdef S_IFLNK
outsymlink()
{
short simlnksz;
if((simlnksz =
readlink(Hdr.h_name, Cflag ? BBuf: (char *)Buf, CPIOBSZ)) < 0) {
fprintf(stderr,"<%s> ?\n", Hdr.h_name);
return;
}
MKSHORT(Hdr.h_filesize, (long)(simlnksz));
if (Option == OUT) { /* Option!=PASS */
if (Cflag) {
writehdr(Chdr,CHARS+Hdr.h_namesize);
writehdr(BBuf, simlnksz);
}
else {
bwrite(&Hdr, HDRSIZE+Hdr.h_namesize);
bwrite(Buf, simlnksz);
}
}
if(Acc_time)
set_time(Hdr.h_name, Statb.st_atime, Statb.st_mtime);
if(Verbose && Option == OUT)
fprintf(stderr,"%s\n", Hdr.h_name);
}
ipsymlink(namep)
char *namep;
{
int ans;
long linklen;
int statres;
/*
* Get information concerning symbolic link.
*/
if (Option == IN) {
linklen = mklong(Hdr.h_filesize);
if (linklen > CPIOBSZ) {
/* This is fucked up.... */
/* Print error and try to recover.... */
fprintf(stderr,"Symbolic link <%s> too long\n", namep);
discardfile(linklen);
return 0;
}
/*
* This is what normally happens for IN Option..
*/
if (Cflag)
readhdr(BBuf, (int)linklen);
else
bread(Buf, (int)linklen);
}
else { /* Option == PASS */
outsymlink();
linklen = mklong(Hdr.h_filesize);
}
/*
* Null terminate the value of the symbolic link...
* (what it points to..).
*/
if (Cflag)
BBuf[linklen] = '\0';
else
((char *)Buf)[linklen] = '\0';
statres = hflag ? stat(namep, &Xstatb) : lstat(namep, &Xstatb);
if(!Uncond && (statres == 0) &&
(mklong(Hdr.h_mtime) <= Xstatb.st_mtime)) {
/* There's a newer version of symbolic link on destination */
fprintf(stderr,"current <%s> newer\n", namep);
return 0;
}
/*
* unlink an old symbolic link if it is present..
*/
if ((statres == 0) && (unlink(namep) < 0)) {
fprintf(stderr,"cannot unlink existing symbolic link <%s> (errno:%d)\n", namep, errno);
return 0;
}
/*
* Make the link..
*/
ans = 0;
umask((~Hdr.h_mode)&0777);
do {
if (symlink((Cflag ? BBuf : (char *)(Buf)), namep) < 0) {
ans += 1;
}
else {
ans = 0;
break;
}
} while (ans < 2 && missdir(namep) == 0);
umask(0);
if (ans == 1) {
fprintf(stderr,"Cannot create directory for <%s> (errno:%d)\n", namep, errno);
return 0;
}
else if (ans == 2) {
fprintf(stderr,"Cannot create symbolic link <%s> (errno:%d)\n", namep, errno);
return 0;
}
if(Uid == 0 && chown(namep, Hdr.h_uid, Hdr.h_gid) < 0) {
fprintf(stderr,"Cannot chown <%s> (errno:%d)\n", namep, errno);
}
/*
* No way to set the modify time on a symbolic link..
*/
/*
* Pass through option will miss printing this one..
*/
if ((Option == PASS) && Verbose)
puts(namep);
return 0;
}
#endif
#ifndef S_IFLNK
symlink()
{
return(-1);
}
lstat(name, statb)
char *name
struct stat *statb;
{
stat(name, statb);
}
#endif
discardfile(len)
long len;
{
while(len > CPIOBSZ) {
if (Cflag)
readhdr(BBuf, CPIOBSZ);
else
bread(Buf, CPIOBSZ);
}
if (len) {
if (Cflag)
readhdr(BBuf, (int)len);
else
bread(Buf, (int)len);
}
}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.