/* Delete entries from a tar archive.
Copyright (C) 1988, 1992, 1994, 1996, 1997, 2000, 2001, 2003, 2004,
- 2005, 2006 Free Software Foundation, Inc.
+ 2005, 2006, 2010 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
- Free Software Foundation; either version 2, or (at your option) any later
+ Free Software Foundation; either version 3, or (at your option) any later
version.
This program is distributed in the hope that it will be useful, but
extern union block *recent_long_name;
extern union block *recent_long_link;
extern off_t records_read;
-extern off_t records_written;
/* The number of records skipped at the start of the archive, when
passing over members that are not deleted. */
-static off_t records_skipped;
+off_t records_skipped;
/* Move archive descriptor by COUNT records worth. If COUNT is
positive we move forward, else we move negative. If it's a tape,
do
{
- enum read_header status = read_header (true);
+ enum read_header status = read_header (¤t_header,
+ ¤t_stat_info,
+ read_header_x_raw);
switch (status)
{
abort ();
case HEADER_SUCCESS:
- if ((name = name_scan (current_stat_info.file_name, false)) == NULL)
+ if ((name = name_scan (current_stat_info.file_name)) == NULL)
{
skip_member ();
break;
if (current_block == record_end)
flush_archive ();
- status = read_header (false);
+ status = read_header (¤t_header, ¤t_stat_info,
+ read_header_auto);
xheader_decode (¤t_stat_info);
/* Found another header. */
- if ((name = name_scan (current_stat_info.file_name, false)) != NULL)
+ if ((name = name_scan (current_stat_info.file_name)) != NULL)
{
name->found_count++;
if (ISFOUND(name))
}
/* Copy header. */
- if (extended_header.size)
+ if (current_stat_info.xhdr.size)
{
- write_recent_bytes (extended_header.buffer,
- extended_header.size);
+ write_recent_bytes (current_stat_info.xhdr.buffer,
+ current_stat_info.xhdr.size);
}
else
{