ref: d65589c29941b16a5239f6f2e9c8f6fea5c863a2
dir: /sys/src/ape/cmd/pax/list.c/
/* $Source: /u/mark/src/pax/RCS/list.c,v $
*
* $Revision: 1.2 $
*
* list.c - List all files on an archive
*
* DESCRIPTION
*
* These function are needed to support archive table of contents and
* verbose mode during extraction and creation of achives.
*
* AUTHOR
*
* Mark H. Colburn, NAPS International (mark@jhereg.mn.org)
*
* Sponsored by The USENIX Association for public distribution.
*
* Copyright (c) 1989 Mark H. Colburn.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice is duplicated in all such
* forms and that any documentation, advertising materials, and other
* materials related to such distribution and use acknowledge that the
* software was developed * by Mark H. Colburn and sponsored by The
* USENIX Association.
*
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*
* $Log: list.c,v $
* Revision 1.2 89/02/12 10:04:43 mark
* 1.2 release fixes
*
* Revision 1.1 88/12/23 18:02:14 mark
* Initial revision
*
*/
#ifndef lint
static char *ident = "$Id: list.c,v 1.2 89/02/12 10:04:43 mark Exp $";
static char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n";
#endif /* ! lint */
/* Headers */
#include "pax.h"
/* Defines */
/*
* isodigit returns non zero iff argument is an octal digit, zero otherwise
*/
#define ISODIGIT(c) (((c) >= '0') && ((c) <= '7'))
/* Function Prototypes */
#ifdef __STDC__
static void cpio_entry(char *, Stat *);
static void tar_entry(char *, Stat *);
static void pax_entry(char *, Stat *);
static void print_mode(ushort);
static long from_oct(int digs, char *where);
#else /* !__STDC__ */
static void cpio_entry();
static void tar_entry();
static void pax_entry();
static void print_mode();
static long from_oct();
#endif /* __STDC__ */
/* Internal Identifiers */
static char *monnames[] = {
"Jan", "Feb", "Mar", "Apr", "May", "Jun",
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
};
/* read_header - read a header record
*
* DESCRIPTION
*
* Read a record that's supposed to be a header record. Return its
* address in "head", and if it is good, the file's size in
* asb->sb_size. Decode things from a file header record into a "Stat".
* Also set "head_standard" to !=0 or ==0 depending whether header record
* is "Unix Standard" tar format or regular old tar format.
*
* PARAMETERS
*
* char *name - pointer which will contain name of file
* Stat *asb - pointer which will contain stat info
*
* RETURNS
*
* Return 1 for success, 0 if the checksum is bad, EOF on eof, 2 for a
* record full of zeros (EOF marker).
*/
#ifdef __STDC__
int read_header(char *name, Stat *asb)
#else
int read_header(name, asb)
char *name;
Stat *asb;
#endif
{
int i;
long sum;
long recsum;
Link *link;
char *p;
char hdrbuf[BLOCKSIZE];
memset((char *)asb, 0, sizeof(Stat));
/* read the header from the buffer */
if (buf_read(hdrbuf, BLOCKSIZE) != 0) {
return (EOF);
}
strcpy(name, hdrbuf);
recsum = from_oct(8, &hdrbuf[148]);
sum = 0;
p = hdrbuf;
for (i = 0 ; i < 500; i++) {
/*
* We can't use unsigned char here because of old compilers, e.g. V7.
*/
sum += 0xFF & *p++;
}
/* Adjust checksum to count the "chksum" field as blanks. */
for (i = 0; i < 8; i++) {
sum -= 0xFF & hdrbuf[148 + i];
}
sum += ' ' * 8;
if (sum == 8 * ' ') {
/*
* This is a zeroed record...whole record is 0's except for the 8
* blanks we faked for the checksum field.
*/
return (2);
}
if (sum == recsum) {
/*
* Good record. Decode file size and return.
*/
if (hdrbuf[156] != LNKTYPE) {
asb->sb_size = from_oct(1 + 12, &hdrbuf[124]);
}
asb->sb_mtime = from_oct(1 + 12, &hdrbuf[136]);
asb->sb_mode = from_oct(8, &hdrbuf[100]);
if (strcmp(&hdrbuf[257], TMAGIC) == 0) {
/* Unix Standard tar archive */
head_standard = 1;
#ifdef NONAMES
asb->sb_uid = from_oct(8, &hdrbuf[108]);
asb->sb_gid = from_oct(8, &hdrbuf[116]);
#else
asb->sb_uid = finduid(&hdrbuf[265]);
asb->sb_gid = findgid(&hdrbuf[297]);
#endif
switch (hdrbuf[156]) {
case BLKTYPE:
case CHRTYPE:
#ifndef _POSIX_SOURCE
asb->sb_rdev = makedev(from_oct(8, &hdrbuf[329]),
from_oct(8, &hdrbuf[337]));
#endif
break;
default:
/* do nothing... */
break;
}
} else {
/* Old fashioned tar archive */
head_standard = 0;
asb->sb_uid = from_oct(8, &hdrbuf[108]);
asb->sb_gid = from_oct(8, &hdrbuf[116]);
}
switch (hdrbuf[156]) {
case REGTYPE:
case AREGTYPE:
/*
* Berkeley tar stores directories as regular files with a
* trailing /
*/
if (name[strlen(name) - 1] == '/') {
name[strlen(name) - 1] = '\0';
asb->sb_mode |= S_IFDIR;
} else {
asb->sb_mode |= S_IFREG;
}
break;
case LNKTYPE:
asb->sb_nlink = 2;
linkto(&hdrbuf[157], asb);
linkto(name, asb);
asb->sb_mode |= S_IFREG;
break;
case BLKTYPE:
asb->sb_mode |= S_IFBLK;
break;
case CHRTYPE:
asb->sb_mode |= S_IFCHR;
break;
case DIRTYPE:
asb->sb_mode |= S_IFDIR;
break;
#ifdef S_IFLNK
case SYMTYPE:
asb->sb_mode |= S_IFLNK;
strcpy(asb->sb_link, &hdrbuf[157]);
break;
#endif
#ifdef S_IFIFO
case FIFOTYPE:
asb->sb_mode |= S_IFIFO;
break;
#endif
#ifdef S_IFCTG
case CONTTYPE:
asb->sb_mode |= S_IFCTG;
break;
#endif
}
return (1);
}
return (0);
}
/* print_entry - print a single table-of-contents entry
*
* DESCRIPTION
*
* Print_entry prints a single line of file information. The format
* of the line is the same as that used by the LS command. For some
* archive formats, various fields may not make any sense, such as
* the link count on tar archives. No error checking is done for bad
* or invalid data.
*
* PARAMETERS
*
* char *name - pointer to name to print an entry for
* Stat *asb - pointer to the stat structure for the file
*/
#ifdef __STDC__
void print_entry(char *name, Stat *asb)
#else
void print_entry(name, asb)
char *name;
Stat *asb;
#endif
{
switch (ar_interface) {
case TAR:
tar_entry(name, asb);
break;
case CPIO:
cpio_entry(name, asb);
break;
case PAX: pax_entry(name, asb);
break;
}
}
/* cpio_entry - print a verbose cpio-style entry
*
* DESCRIPTION
*
* Print_entry prints a single line of file information. The format
* of the line is the same as that used by the traditional cpio
* command. No error checking is done for bad or invalid data.
*
* PARAMETERS
*
* char *name - pointer to name to print an entry for
* Stat *asb - pointer to the stat structure for the file
*/
#ifdef __STDC__
static void cpio_entry(char *name, Stat *asb)
#else
static void cpio_entry(name, asb)
char *name;
Stat *asb;
#endif
{
struct tm *atm;
Link *from;
struct passwd *pwp;
struct group *grp;
if (f_list && f_verbose) {
fprintf(msgfile, "%-7o", asb->sb_mode);
atm = localtime(&asb->sb_mtime);
if (pwp = getpwuid((int) USH(asb->sb_uid))) {
fprintf(msgfile, "%-6s", pwp->pw_name);
} else {
fprintf(msgfile, "%-6u", USH(asb->sb_uid));
}
fprintf(msgfile,"%7ld %3s %2d %02d:%02d:%02d %4d ",
asb->sb_size, monnames[atm->tm_mon],
atm->tm_mday, atm->tm_hour, atm->tm_min,
atm->tm_sec, atm->tm_year + 1900);
}
fprintf(msgfile, "%s", name);
if ((asb->sb_nlink > 1) && (from = islink(name, asb))) {
fprintf(msgfile, " linked to %s", from->l_name);
}
#ifdef S_IFLNK
if ((asb->sb_mode & S_IFMT) == S_IFLNK) {
fprintf(msgfile, " symbolic link to %s", asb->sb_link);
}
#endif /* S_IFLNK */
putc('\n', msgfile);
}
/* tar_entry - print a tar verbose mode entry
*
* DESCRIPTION
*
* Print_entry prints a single line of tar file information. The format
* of the line is the same as that produced by the traditional tar
* command. No error checking is done for bad or invalid data.
*
* PARAMETERS
*
* char *name - pointer to name to print an entry for
* Stat *asb - pointer to the stat structure for the file
*/
#ifdef __STDC__
static void tar_entry(char *name, Stat *asb)
#else
static void tar_entry(name, asb)
char *name;
Stat *asb;
#endif
{
struct tm *atm;
int i;
int mode;
char *symnam = "NULL";
Link *link;
if ((mode = asb->sb_mode & S_IFMT) == S_IFDIR) {
return; /* don't print directories */
}
if (f_extract) {
switch (mode) {
#ifdef S_IFLNK
case S_IFLNK: /* This file is a symbolic link */
i = readlink(name, symnam, PATH_MAX - 1);
if (i < 0) { /* Could not find symbolic link */
warn("can't read symbolic link", strerror());
} else { /* Found symbolic link filename */
symnam[i] = '\0';
fprintf(msgfile, "x %s symbolic link to %s\n", name, symnam);
}
break;
#endif
case S_IFREG: /* It is a link or a file */
if ((asb->sb_nlink > 1) && (link = islink(name, asb))) {
fprintf(msgfile, "%s linked to %s\n", name, link->l_name);
} else {
fprintf(msgfile, "x %s, %ld bytes, %d tape blocks\n",
name, asb->sb_size, ROUNDUP(asb->sb_size,
BLOCKSIZE) / BLOCKSIZE);
}
}
} else if (f_append || f_create) {
switch (mode) {
#ifdef S_IFLNK
case S_IFLNK: /* This file is a symbolic link */
i = readlink(name, symnam, PATH_MAX - 1);
if (i < 0) { /* Could not find symbolic link */
warn("can't read symbolic link", strerror());
} else { /* Found symbolic link filename */
symnam[i] = '\0';
fprintf(msgfile, "a %s symbolic link to %s\n", name, symnam);
}
break;
#endif
case S_IFREG: /* It is a link or a file */
fprintf(msgfile, "a %s ", name);
if ((asb->sb_nlink > 1) && (link = islink(name, asb))) {
fprintf(msgfile, "link to %s\n", link->l_name);
} else {
fprintf(msgfile, "%ld Blocks\n",
ROUNDUP(asb->sb_size, BLOCKSIZE) / BLOCKSIZE);
}
break;
}
} else if (f_list) {
if (f_verbose) {
atm = localtime(&asb->sb_mtime);
print_mode(asb->sb_mode);
fprintf(msgfile," %d/%d %6d %3s %2d %02d:%02d %4d %s",
asb->sb_uid, asb->sb_gid, asb->sb_size,
monnames[atm->tm_mon], atm->tm_mday, atm->tm_hour,
atm->tm_min, atm->tm_year + 1900, name);
} else {
fprintf(msgfile, "%s", name);
}
switch (mode) {
#ifdef S_IFLNK
case S_IFLNK: /* This file is a symbolic link */
i = readlink(name, symnam, PATH_MAX - 1);
if (i < 0) { /* Could not find symbolic link */
warn("can't read symbolic link", strerror());
} else { /* Found symbolic link filename */
symnam[i] = '\0';
fprintf(msgfile, " symbolic link to %s", symnam);
}
break;
#endif
case S_IFREG: /* It is a link or a file */
if ((asb->sb_nlink > 1) && (link = islink(name, asb))) {
fprintf(msgfile, " linked to %s", link->l_name);
}
break; /* Do not print out directories */
}
fputc('\n', msgfile);
} else {
fprintf(msgfile, "? %s %ld blocks\n", name,
ROUNDUP(asb->sb_size, BLOCKSIZE) / BLOCKSIZE);
}
}
/* pax_entry - print a verbose cpio-style entry
*
* DESCRIPTION
*
* Print_entry prints a single line of file information. The format
* of the line is the same as that used by the LS command.
* No error checking is done for bad or invalid data.
*
* PARAMETERS
*
* char *name - pointer to name to print an entry for
* Stat *asb - pointer to the stat structure for the file
*/
#ifdef __STDC__
static void pax_entry(char *name, Stat *asb)
#else
static void pax_entry(name, asb)
char *name;
Stat *asb;
#endif
{
struct tm *atm;
Link *from;
struct passwd *pwp;
struct group *grp;
if (f_list && f_verbose) {
print_mode(asb->sb_mode);
fprintf(msgfile, " %2d", asb->sb_nlink);
atm = localtime(&asb->sb_mtime);
if (pwp = getpwuid((int) USH(asb->sb_uid))) {
fprintf(msgfile, " %-8s", pwp->pw_name);
} else {
fprintf(msgfile, " %-8u", USH(asb->sb_uid));
}
if (grp = getgrgid((int) USH(asb->sb_gid))) {
fprintf(msgfile, " %-8s", grp->gr_name);
} else {
fprintf(msgfile, " %-8u", USH(asb->sb_gid));
}
switch (asb->sb_mode & S_IFMT) {
case S_IFBLK:
case S_IFCHR:
fprintf(msgfile, "\t%3d, %3d",
major(asb->sb_rdev), minor(asb->sb_rdev));
break;
case S_IFREG:
fprintf(msgfile, "\t%8ld", asb->sb_size);
break;
default:
fprintf(msgfile, "\t ");
}
fprintf(msgfile," %3s %2d %02d:%02d ",
monnames[atm->tm_mon], atm->tm_mday,
atm->tm_hour, atm->tm_min);
}
fprintf(msgfile, "%s", name);
if ((asb->sb_nlink > 1) && (from = islink(name, asb))) {
fprintf(msgfile, " == %s", from->l_name);
}
#ifdef S_IFLNK
if ((asb->sb_mode & S_IFMT) == S_IFLNK) {
fprintf(msgfile, " -> %s", asb->sb_link);
}
#endif /* S_IFLNK */
putc('\n', msgfile);
}
/* print_mode - fancy file mode display
*
* DESCRIPTION
*
* Print_mode displays a numeric file mode in the standard unix
* representation, ala ls (-rwxrwxrwx). No error checking is done
* for bad mode combinations. FIFOS, sybmbolic links, sticky bits,
* block- and character-special devices are supported if supported
* by the hosting implementation.
*
* PARAMETERS
*
* ushort mode - The integer representation of the mode to print.
*/
#ifdef __STDC__
static void print_mode(ushort mode)
#else
static void print_mode(mode)
ushort mode;
#endif
{
/* Tar does not print the leading identifier... */
if (ar_interface != TAR) {
switch (mode & S_IFMT) {
case S_IFDIR:
putc('d', msgfile);
break;
#ifdef S_IFLNK
case S_IFLNK:
putc('l', msgfile);
break;
#endif /* S_IFLNK */
case S_IFBLK:
putc('b', msgfile);
break;
case S_IFCHR:
putc('c', msgfile);
break;
#ifdef S_IFIFO
case S_IFIFO:
putc('p', msgfile);
break;
#endif /* S_IFIFO */
case S_IFREG:
default:
putc('-', msgfile);
break;
}
}
putc(mode & 0400 ? 'r' : '-', msgfile);
putc(mode & 0200 ? 'w' : '-', msgfile);
putc(mode & 0100
? mode & 04000 ? 's' : 'x'
: mode & 04000 ? 'S' : '-', msgfile);
putc(mode & 0040 ? 'r' : '-', msgfile);
putc(mode & 0020 ? 'w' : '-', msgfile);
putc(mode & 0010
? mode & 02000 ? 's' : 'x'
: mode & 02000 ? 'S' : '-', msgfile);
putc(mode & 0004 ? 'r' : '-', msgfile);
putc(mode & 0002 ? 'w' : '-', msgfile);
putc(mode & 0001
? mode & 01000 ? 't' : 'x'
: mode & 01000 ? 'T' : '-', msgfile);
}
/* from_oct - quick and dirty octal conversion
*
* DESCRIPTION
*
* From_oct will convert an ASCII representation of an octal number
* to the numeric representation. The number of characters to convert
* is given by the parameter "digs". If there are less numbers than
* specified by "digs", then the routine returns -1.
*
* PARAMETERS
*
* int digs - Number to of digits to convert
* char *where - Character representation of octal number
*
* RETURNS
*
* The value of the octal number represented by the first digs
* characters of the string where. Result is -1 if the field
* is invalid (all blank, or nonoctal).
*
* ERRORS
*
* If the field is all blank, then the value returned is -1.
*
*/
#ifdef __STDC__
static long from_oct(int digs, char *where)
#else
static long from_oct(digs, where)
int digs; /* number of characters to convert */
char *where; /* character representation of octal number */
#endif
{
long value;
while (isspace(*where)) { /* Skip spaces */
where++;
if (--digs <= 0) {
return(-1); /* All blank field */
}
}
value = 0;
while (digs > 0 && ISODIGIT(*where)) { /* Scan til nonoctal */
value = (value << 3) | (*where++ - '0');
--digs;
}
if (digs > 0 && *where && !isspace(*where)) {
return(-1); /* Ended on non-space/nul */
}
return(value);
}