/* List a tar archive, with support routines for reading a tar archive.
- Copyright (C) 1988, 92, 93, 94, 96, 97 Free Software Foundation, Inc.
+ Copyright 1988,92,93,94,96,97,98,1999 Free Software Foundation, Inc.
Written by John Gilmore, on 1985-08-26.
This program is free software; you can redistribute it and/or modify it
You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
- 59 Place - Suite 330, Boston, MA 02111-1307, USA. */
+ 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* Define to non-zero for forcing old ctime() instead of isotime(). */
#undef USE_OLD_CTIME
#include "system.h"
+#include <quotearg.h>
#include <ctype.h>
#include <time.h>
((unsigned char) (Char) >= '0' && (unsigned char) (Char) <= '7')
#define ISSPACE(Char) (ISASCII (Char) && isspace (Char))
+#ifndef FNM_LEADING_DIR
+# include <fnmatch.h>
+#endif
+
#include "common.h"
union block *current_header; /* points to current archive header */
struct stat current_stat; /* stat struct corresponding */
enum archive_format current_format; /* recognized format */
+static uintmax_t from_oct PARAMS ((const char *, size_t, const char *, uintmax_t));
+
+
/*-----------------------------------.
| Main loop for reading an archive. |
`-----------------------------------*/
/* Valid header. We should decode next field (mode) first.
Ensure incoming names are null terminated. */
+ if (ending_file_option &&
+ fnmatch (ending_file_option, current_file_name,
+ FNM_LEADING_DIR) == 0) {
+ goto all_done;
+ }
+
/* FIXME: This is a quick kludge before 1.12 goes out. */
- current_stat.st_mtime
- = from_oct (1 + 12, current_header->header.mtime);
+ current_stat.st_mtime = TIME_FROM_OCT (current_header->header.mtime);
if (!name_match (current_file_name)
|| current_stat.st_mtime < newer_mtime_option
/* Skip to the next header on the archive. */
if (save_typeflag != DIRTYPE)
- skip_file ((long) current_stat.st_size);
+ skip_file (current_stat.st_size);
continue;
}
case HEADER_ZERO_BLOCK:
if (block_number_option)
- fprintf (stdlis, _("block %10ld: ** Block of NULs **\n"),
- current_block_ordinal ());
+ {
+ char buf[UINTMAX_STRSIZE_BOUND];
+ fprintf (stdlis, _("block %s: ** Block of NULs **\n"),
+ STRINGIFY_BIGINT (current_block_ordinal (), buf));
+ }
set_next_block_after (current_header);
status = prev_status;
case HEADER_END_OF_FILE:
if (block_number_option)
- fprintf (stdlis, _("block %10ld: ** End of File **\n"),
- current_block_ordinal ());
+ {
+ char buf[UINTMAX_STRSIZE_BOUND];
+ fprintf (stdlis, _("block %s: ** End of File **\n"),
+ STRINGIFY_BIGINT (current_block_ordinal (), buf));
+ }
break;
case HEADER_FAILURE:
}
break;
}
+ all_done: ;
apply_delayed_set_stat ();
close_archive ();
if (incremental_option && current_header->header.typeflag == GNUTYPE_DUMPDIR)
{
- size_t size, written, check;
+ off_t size;
+ size_t written, check;
union block *data_block;
set_next_block_after (current_header);
(data_block->buffer + written - 1));
if (check != written)
{
- ERROR ((0, errno, _("Only wrote %ld of %ld bytes to file %s"),
- check, written, current_file_name));
- skip_file ((long) (size - written));
+ ERROR ((0, errno, _("Only wrote %lu of %lu bytes to file %s"),
+ (unsigned long) check,
+ (unsigned long) written, current_file_name));
+ skip_file (size - written);
break;
}
}
/* Skip to the next header on the archive. */
- skip_file ((long) current_stat.st_size);
+ skip_file (current_stat.st_size);
if (multi_volume_option)
assign_string (&save_name, NULL);
enum read_header
read_header (void)
{
- int i;
+ size_t i;
long unsigned_sum; /* the POSIX one :-) */
long signed_sum; /* the Sun one :-( */
long recorded_sum;
+ uintmax_t parsed_sum;
char *p;
union block *header;
char **longp;
char *bp;
union block *data_block;
- int size, written;
+ size_t size, written;
static char *next_long_name, *next_long_link;
while (1)
if (!header)
return HEADER_END_OF_FILE;
- recorded_sum
- = from_oct (sizeof header->header.chksum, header->header.chksum);
+ parsed_sum = from_oct (header->header.chksum,
+ sizeof header->header.chksum,
+ (char *) 0, TYPE_MAXIMUM (long));
+ if (parsed_sum == (uintmax_t) -1)
+ return HEADER_FAILURE;
+ recorded_sum = parsed_sum;
unsigned_sum = 0;
signed_sum = 0;
p = header->buffer;
- for (i = sizeof (*header); --i >= 0;)
+ for (i = sizeof (*header); i-- != 0;)
{
/* We can't use unsigned char here because of old compilers,
e.g. V7. */
/* Adjust checksum to count the "chksum" field as blanks. */
- for (i = sizeof (header->header.chksum); --i >= 0;)
+ for (i = sizeof (header->header.chksum); i-- != 0;)
{
unsigned_sum -= 0xFF & header->header.chksum[i];
signed_sum -= header->header.chksum[i];
if (header->header.typeflag == LNKTYPE)
current_stat.st_size = 0; /* links 0 size on tape */
else
- current_stat.st_size = from_oct (1 + 12, header->header.size);
+ current_stat.st_size = OFF_FROM_OCT (header->header.size);
header->header.name[NAME_FIELD_SIZE - 1] = '\0';
if (header->header.typeflag == GNUTYPE_LONGNAME
set_next_block_after (header);
if (*longp)
free (*longp);
- bp = *longp = (char *) xmalloc ((size_t) current_stat.st_size);
+ size = current_stat.st_size;
+ if (size != current_stat.st_size)
+ FATAL_ERROR ((0, 0, _("Memory exhausted")));
+ bp = *longp = (char *) xmalloc (size);
- for (size = current_stat.st_size; size > 0; size -= written)
+ for (; size > 0; size -= written)
{
data_block = find_next_block ();
if (data_block == NULL)
if (written > size)
written = size;
- memcpy (bp, data_block->buffer, (size_t) written);
+ memcpy (bp, data_block->buffer, written);
bp += written;
set_next_block_after ((union block *)
(data_block->buffer + written - 1));
}
else
{
- assign_string (¤t_file_name,
- (next_long_name ? next_long_name
- : current_header->header.name));
+ char *name = next_long_name;
+ struct posix_header *h = ¤t_header->header;
+ char namebuf[sizeof h->prefix + 1 + sizeof h->name + 1];
+
+ if (! name)
+ {
+ /* Accept file names as specified by POSIX.1-1996
+ section 10.1.1. */
+ char *np = namebuf;
+ if (h->prefix[0])
+ {
+ memcpy (np, h->prefix, sizeof h->prefix);
+ np[sizeof h->prefix] = '\0';
+ np += strlen (np);
+ *np++ = '/';
+ }
+ memcpy (np, h->name, sizeof h->name);
+ np[sizeof h->name] = '\0';
+ name = namebuf;
+ }
+
+ assign_string (¤t_file_name, name);
assign_string (¤t_link_name,
(next_long_link ? next_long_link
: current_header->header.linkname));
format = V7_FORMAT;
*format_pointer = format;
- stat_info->st_mode = from_oct (8, header->header.mode);
+ stat_info->st_mode = MODE_FROM_OCT (header->header.mode);
stat_info->st_mode &= 07777;
- stat_info->st_mtime = from_oct (1 + 12, header->header.mtime);
+ stat_info->st_mtime = TIME_FROM_OCT (header->header.mtime);
if (format == OLDGNU_FORMAT && incremental_option)
{
- stat_info->st_atime = from_oct (1 + 12, header->oldgnu_header.atime);
- stat_info->st_ctime = from_oct (1 + 12, header->oldgnu_header.ctime);
+ stat_info->st_atime = TIME_FROM_OCT (header->oldgnu_header.atime);
+ stat_info->st_ctime = TIME_FROM_OCT (header->oldgnu_header.ctime);
}
if (format == V7_FORMAT)
{
- stat_info->st_uid = from_oct (8, header->header.uid);
- stat_info->st_gid = from_oct (8, header->header.gid);
+ stat_info->st_uid = UID_FROM_OCT (header->header.uid);
+ stat_info->st_gid = GID_FROM_OCT (header->header.gid);
stat_info->st_rdev = 0;
}
else
if (numeric_owner_option
|| !*header->header.uname
|| !uname_to_uid (header->header.uname, &stat_info->st_uid))
- stat_info->st_uid = from_oct (8, header->header.uid);
+ stat_info->st_uid = UID_FROM_OCT (header->header.uid);
if (numeric_owner_option
|| !*header->header.gname
|| !gname_to_gid (header->header.gname, &stat_info->st_gid))
- stat_info->st_gid = from_oct (8, header->header.gid);
+ stat_info->st_gid = GID_FROM_OCT (header->header.gid);
}
switch (header->header.typeflag)
{
#ifdef S_IFBLK
case BLKTYPE:
- stat_info->st_rdev = makedev (from_oct (8, header->header.devmajor),
- from_oct (8, header->header.devminor));
+ stat_info->st_rdev
+ = makedev (MAJOR_FROM_OCT (header->header.devmajor),
+ MINOR_FROM_OCT (header->header.devminor));
break;
#endif
#ifdef S_IFCHR
case CHRTYPE:
- stat_info->st_rdev = makedev (from_oct (8, header->header.devmajor),
- from_oct (8, header->header.devminor));
+ stat_info->st_rdev
+ = makedev (MAJOR_FROM_OCT (header->header.devmajor),
+ MINOR_FROM_OCT (header->header.devminor));
break;
#endif
| (all blank, or nonoctal). |
`------------------------------------------------------------------------*/
-long
-from_oct (int digs, char *where)
+static uintmax_t
+from_oct (const char *where0, size_t digs0, const char *type, uintmax_t maxval)
{
- long value;
+ uintmax_t value;
+ const char *where = where0;
+ size_t digs = digs0;
- while (ISSPACE (*where))
- { /* skip spaces */
+ for (;;)
+ {
+ if (digs == 0)
+ {
+ if (type)
+ ERROR ((0, 0, _("Blanks in header where octal %s value expected"),
+ type));
+ return -1;
+ }
+ if (!ISSPACE (*where))
+ break;
where++;
- if (--digs <= 0)
- return -1; /* all blank field */
+ digs--;
}
+
value = 0;
- while (digs > 0 && ISODIGIT (*where))
+ while (digs != 0 && ISODIGIT (*where))
{
/* Scan til nonoctal. */
+ if (value << 3 >> 3 != value)
+ goto out_of_range;
value = (value << 3) | (*where++ - '0');
--digs;
}
- if (digs > 0 && *where && !ISSPACE (*where))
- return -1; /* ended on non-space/nul */
+ if (digs != 0 && *where && !ISSPACE (*where))
+ {
+ if (type)
+ {
+ char buf[1000]; /* Big enough to represent any header. */
+ static struct quoting_options *o;
+
+ if (!o)
+ {
+ o = clone_quoting_options ((struct quoting_options *) 0);
+ set_quoting_style (o, escape_quoting_style);
+ }
+
+ quotearg_buffer (buf, sizeof buf, where0, digs0, o);
+ ERROR ((0, 0,
+ _("Header contains \"%.*s\" where octal %s value expected"),
+ (int) sizeof buf, buf, type));
+ }
+
+ return -1;
+ }
+
+ if (value <= maxval)
+ return value;
+
+ out_of_range:
+ if (type)
+ ERROR ((0, 0, _("Octal value `%.*s' is out of range for %s"),
+ (int) digs0, where0, type));
+ return -1;
+}
+gid_t
+gid_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "gid_t", (uintmax_t) TYPE_MAXIMUM (gid_t));
+}
+major_t
+major_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "major_t", (uintmax_t) TYPE_MAXIMUM (major_t));
+}
+minor_t
+minor_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "minor_t", (uintmax_t) TYPE_MAXIMUM (minor_t));
+}
+mode_t
+mode_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "mode_t", (uintmax_t) TYPE_MAXIMUM (mode_t));
+}
+off_t
+off_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "off_t", (uintmax_t) TYPE_MAXIMUM (off_t));
+}
+size_t
+size_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "size_t", (uintmax_t) TYPE_MAXIMUM (size_t));
+}
+time_t
+time_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "time_t", (uintmax_t) TYPE_MAXIMUM (time_t));
+}
+uid_t
+uid_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "uid_t", (uintmax_t) TYPE_MAXIMUM (uid_t));
+}
+uintmax_t
+uintmax_from_oct (const char *p, size_t s)
+{
+ return from_oct (p, s, "uintmax_t", TYPE_MAXIMUM (uintmax_t));
+}
+
- return value;
+
+/*----------------------------------------------------------------------.
+| Format O as a null-terminated decimal string into BUF _backwards_; |
+| return pointer to start of result. |
+`----------------------------------------------------------------------*/
+char *
+stringify_uintmax_t_backwards (uintmax_t o, char *buf)
+{
+ *--buf = '\0';
+ do
+ *--buf = '0' + (int) (o % 10);
+ while ((o /= 10) != 0);
+ return buf;
}
#if !USE_OLD_CTIME
`-------------------------------------------------------------------------*/
static void
-decode_mode (unsigned mode, char *string)
+decode_mode (mode_t mode, char *string)
{
- unsigned mask;
+ mode_t mask;
const char *rwx = "rwxrwxrwx";
for (mask = 0400; mask != 0; mask >>= 1)
{
char modes[11];
char *timestamp;
- char uform[11], gform[11]; /* these hold formatted ints */
+ /* These hold formatted ints. */
+ char uform[UINTMAX_STRSIZE_BOUND], gform[UINTMAX_STRSIZE_BOUND];
char *user, *group;
- char size[24]; /* holds a formatted long or maj, min */
+ char size[2 * UINTMAX_STRSIZE_BOUND];
+ /* holds formatted size or major,minor */
+ char uintbuf[UINTMAX_STRSIZE_BOUND];
time_t longie; /* to make ctime() call portable */
int pad;
char *name;
if (block_number_option)
- fprintf (stdlis, _("block %10ld: "), current_block_ordinal ());
+ {
+ char buf[UINTMAX_STRSIZE_BOUND];
+ fprintf (stdlis, _("block %s: "),
+ STRINGIFY_BIGINT (current_block_ordinal (), buf));
+ }
if (verbose_option <= 1)
{
break;
}
- decode_mode ((unsigned) current_stat.st_mode, modes + 1);
+ decode_mode (current_stat.st_mode, modes + 1);
/* Timestamp. */
if (*current_header->header.uname && current_format != V7_FORMAT)
user = current_header->header.uname;
else
- {
- user = uform;
- sprintf (uform, "%ld", from_oct (8, current_header->header.uid));
- }
+ user = STRINGIFY_BIGINT (UINTMAX_FROM_OCT (current_header->header.uid),
+ uform);
if (*current_header->header.gname && current_format != V7_FORMAT)
group = current_header->header.gname;
else
- {
- group = gform;
- sprintf (gform, "%ld", from_oct (8, current_header->header.gid));
- }
+ group = STRINGIFY_BIGINT (UINTMAX_FROM_OCT
+ (current_header->header.gid),
+ gform);
/* Format the file size or major/minor device numbers. */
#if defined(S_IFBLK) || defined(S_IFCHR)
case CHRTYPE:
case BLKTYPE:
- sprintf (size, "%d,%d",
- major (current_stat.st_rdev), minor (current_stat.st_rdev));
+ sprintf (size, "%lu,%lu",
+ (unsigned long) major (current_stat.st_rdev),
+ (unsigned long) minor (current_stat.st_rdev));
break;
#endif
case GNUTYPE_SPARSE:
- sprintf (size, "%ld",
- from_oct (1 + 12, current_header->oldgnu_header.realsize));
+ strcpy (size,
+ STRINGIFY_BIGINT
+ (UINTMAX_FROM_OCT (current_header->oldgnu_header.realsize),
+ uintbuf));
break;
default:
- sprintf (size, "%ld", (long) current_stat.st_size);
+ strcpy (size, STRINGIFY_BIGINT (current_stat.st_size, uintbuf));
+ break;
}
/* Figure out padding and print the whole line. */
break;
case GNUTYPE_MULTIVOL:
- fprintf (stdlis, _("--Continued at byte %ld--\n"),
- from_oct (1 + 12, current_header->oldgnu_header.offset));
+ strcpy (size,
+ STRINGIFY_BIGINT
+ (UINTMAX_FROM_OCT (current_header->oldgnu_header.offset),
+ uintbuf));
+ fprintf (stdlis, _("--Continued at byte %s--\n"), size);
break;
case GNUTYPE_NAMES:
`--------------------------------------------------------------*/
void
-print_for_mkdir (char *pathname, int length, int mode)
+print_for_mkdir (char *pathname, int length, mode_t mode)
{
char modes[11];
char *name;
/* File type and modes. */
modes[0] = 'd';
- decode_mode ((unsigned) mode, modes + 1);
+ decode_mode (mode, modes + 1);
if (block_number_option)
- fprintf (stdlis, _("block %10ld: "), current_block_ordinal ());
+ {
+ char buf[UINTMAX_STRSIZE_BOUND];
+ fprintf (stdlis, _("block %s: "),
+ STRINGIFY_BIGINT (current_block_ordinal (), buf));
+ }
name = quote_copy_string (pathname);
if (name)
{
`--------------------------------------------------------*/
void
-skip_file (long size)
+skip_file (off_t size)
{
union block *x;
projects / chaz / tar / blobdiff