import from gnulib

[chaz/tar] / src / update.c

diff --git a/src/update.c b/src/update.c
index 0f0ebc0e6d996e9e973e0ce5dedd4cb17ee3a232..754d321fd4de7ea3ad0c06334fdfcb1d6747cd39 100644 (file)
--- a/src/update.c
+++ b/src/update.c
@@ -1,5 +1,7 @@
 /* Update a tar archive.
-   Copyright 1988, 1992, 1994, 1996, 1997, 1999 Free Software Foundation, Inc.
+
+   Copyright (C) 1988, 1992, 1994, 1996, 1997, 1999, 2000, 2001 Free
+   Software Foundation, Inc.
 
    This program is free software; you can redistribute it and/or modify it
    under the terms of the GNU General Public License as published by the
@@ -38,11 +40,8 @@ int time_to_start_writing;
    first part of the record.  */
 char *output_start;
 
-/*------------------------------------------------------------------------.
-| Catenate file PATH to the archive without creating a header for it.  It |
-| had better be a tar file or the archive is screwed.                    |
-`------------------------------------------------------------------------*/
-
+/* Catenate file PATH to the archive without creating a header for it.
+   It had better be a tar file or the archive is screwed.  */
 static void
 append_file (char *path)
 {
@@ -78,16 +77,10 @@ append_file (char *path)
 
          status = safe_read (handle, start->buffer, buffer_size);
          if (status < 0)
-           {
-             int e = errno;
-             FATAL_ERROR ((0, e,
-                           _("Read error at byte %s reading %lu bytes in file %s"),
-                           STRINGIFY_BIGINT (stat_data.st_size - bytes_left,
-                                             buf),
-                           (unsigned long) buffer_size, quote (path)));
-           }
+           read_fatal_details (path, stat_data.st_size - bytes_left,
+                               buffer_size);
          if (status == 0)
-           FATAL_ERROR ((0, 0, _("%s: File shrunk by %s bytes, (yark!)"),
+           FATAL_ERROR ((0, 0, _("%s: File shrank by %s bytes"),
                          quotearg_colon (path),
                          STRINGIFY_BIGINT (bytes_left, buf)));
 
@@ -101,12 +94,9 @@ append_file (char *path)
     close_error (path);
 }
 
-/*-----------------------------------------------------------------------.
-| Implement the 'r' (add files to end of archive), and 'u' (add files to |
-| end of archive if they arent there, or are more up to date than the   |
-| version in the archive.) commands.                                    |
-`-----------------------------------------------------------------------*/
-
+/* Implement the 'r' (add files to end of archive), and 'u' (add files
+   to end of archive if they aren't there, or are more up to date than
+   the version in the archive) commands.  */
 void
 update_archive (void)
 {
@@ -118,7 +108,7 @@ update_archive (void)
 
   while (!found_end)
     {
-      enum read_header status = read_header ();
+      enum read_header status = read_header (0);
 
       switch (status)
        {
@@ -141,10 +131,7 @@ update_archive (void)
                    && s.st_mtime <= current_stat.st_mtime)
                  add_avoided_name (current_file_name);
              }
-           set_next_block_after (current_header);
-           if (current_header->oldgnu_header.isextended)
-             skip_extended_headers ();
-           skip_file (current_stat.st_size);
+           skip_member ();
            break;
          }