X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=src%2Flist.c;h=a0e18542e9f95c5de5c3c5a98c762a90942cad4a;hb=aa985330d59a033156b0d793f880de952eafa4e5;hp=b07a087d92a9a9e839f0b6935a9087645a156614;hpb=b7890ac7573e6df20fa843fd85400072b5638c28;p=chaz%2Ftar

diff --git a/src/list.c b/src/list.c
index b07a087..a0e1854 100644
--- a/src/list.c
+++ b/src/list.c
@@ -1,5 +1,5 @@
 /* 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
@@ -14,12 +14,13 @@
 
    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>
@@ -28,12 +29,19 @@
   ((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.  |
 `-----------------------------------*/
@@ -62,9 +70,14 @@ read_and (void (*do_something) ())
 	  /* 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
@@ -111,7 +124,7 @@ read_and (void (*do_something) ())
 	      /* 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;
 	    }
 
@@ -120,8 +133,11 @@ read_and (void (*do_something) ())
 
 	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;
@@ -131,8 +147,11 @@ read_and (void (*do_something) ())
 
 	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:
@@ -159,6 +178,7 @@ read_and (void (*do_something) ())
 	}
       break;
     }
+ all_done: ;
 
   apply_delayed_set_stat ();
   close_archive ();
@@ -185,7 +205,8 @@ list_archive (void)
 
   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);
@@ -213,9 +234,10 @@ list_archive (void)
 				(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;
 	    }
 	}
@@ -264,7 +286,7 @@ list_archive (void)
 
   /* 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);
@@ -297,16 +319,17 @@ list_archive (void)
 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)
@@ -316,13 +339,17 @@ read_header (void)
       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.  */
@@ -333,7 +360,7 @@ read_header (void)
 
       /* 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];
@@ -357,7 +384,7 @@ read_header (void)
       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
@@ -370,9 +397,12 @@ read_header (void)
 	  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)
@@ -384,7 +414,7 @@ read_header (void)
 	      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));
@@ -395,9 +425,28 @@ read_header (void)
 	}
       else
 	{
-	  assign_string (&current_file_name,
-			 (next_long_name ? next_long_name
-			  : current_header->header.name));
+	  char *name = next_long_name;
+	  struct posix_header *h = &current_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 (&current_file_name, name);
 	  assign_string (&current_link_name,
 			 (next_long_link ? next_long_link
 			  : current_header->header.linkname));
@@ -437,20 +486,20 @@ decode_header (union block *header, struct stat *stat_info,
     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
@@ -462,26 +511,28 @@ decode_header (union block *header, struct stat *stat_info,
 	  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
 
@@ -496,30 +547,130 @@ decode_header (union block *header, struct stat *stat_info,
 | (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
@@ -551,9 +702,9 @@ isotime (const time_t *time)
 `-------------------------------------------------------------------------*/
 
 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)
@@ -606,15 +757,22 @@ print_header (void)
 {
   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)
     {
@@ -685,7 +843,7 @@ print_header (void)
 	  break;
 	}
 
-      decode_mode ((unsigned) current_stat.st_mode, modes + 1);
+      decode_mode (current_stat.st_mode, modes + 1);
 
       /* Timestamp.  */
 
@@ -704,18 +862,15 @@ print_header (void)
       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.  */
 
@@ -724,16 +879,20 @@ print_header (void)
 #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.  */
@@ -806,8 +965,11 @@ print_header (void)
 	  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:
@@ -823,7 +985,7 @@ print_header (void)
 `--------------------------------------------------------------*/
 
 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;
@@ -833,10 +995,14 @@ print_for_mkdir (char *pathname, int length, int mode)
       /* 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)
 	{
@@ -855,7 +1021,7 @@ print_for_mkdir (char *pathname, int length, int mode)
 `--------------------------------------------------------*/
 
 void
-skip_file (long size)
+skip_file (off_t size)
 {
   union block *x;