122 lines
3.4 KiB
C
122 lines
3.4 KiB
C
/* Encode long filenames for GNU tar.
|
|
Copyright 1988, 92, 94, 96, 97, 99, 2000 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
|
|
version.
|
|
|
|
This program is distributed in the hope that it will be useful, but
|
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
|
|
Public License for more details.
|
|
|
|
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.,
|
|
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
|
|
|
|
#include <system.h>
|
|
#include "common.h"
|
|
#include <quotearg.h>
|
|
|
|
struct mangled
|
|
{
|
|
struct mangled *next;
|
|
int type;
|
|
char mangled[NAME_FIELD_SIZE];
|
|
char *linked_to;
|
|
char normal[1];
|
|
};
|
|
|
|
/* Extract a GNUTYPE_NAMES record contents. It seems that such are
|
|
not produced anymore by GNU tar, but we leave the reading code
|
|
around nevertheless, for salvaging old tapes. */
|
|
void
|
|
extract_mangle (void)
|
|
{
|
|
off_t size = current_stat_info.stat.st_size;
|
|
char *buffer = xmalloc ((size_t) (size + 1));
|
|
char *copy = buffer;
|
|
char *cursor = buffer;
|
|
|
|
if (size != (size_t) size || size == (size_t) -1)
|
|
xalloc_die ();
|
|
|
|
buffer[size] = '\0';
|
|
|
|
while (size > 0)
|
|
{
|
|
union block *block = find_next_block ();
|
|
size_t available;
|
|
|
|
if (!block)
|
|
{
|
|
ERROR ((0, 0, _("Unexpected EOF in mangled names")));
|
|
return;
|
|
}
|
|
available = available_space_after (block);
|
|
if (available > size)
|
|
available = size;
|
|
memcpy (copy, block->buffer, available);
|
|
copy += available;
|
|
size -= available;
|
|
set_next_block_after ((union block *) (block->buffer + available - 1));
|
|
}
|
|
|
|
while (*cursor)
|
|
{
|
|
char *next_cursor;
|
|
char *name;
|
|
char *name_end;
|
|
|
|
next_cursor = strchr (cursor, '\n');
|
|
*next_cursor++ = '\0';
|
|
|
|
if (!strncmp (cursor, "Rename ", 7))
|
|
{
|
|
|
|
name = cursor + 7;
|
|
name_end = strchr (name, ' ');
|
|
while (strncmp (name_end, " to ", 4))
|
|
{
|
|
name_end++;
|
|
name_end = strchr (name_end, ' ');
|
|
}
|
|
*name_end = '\0';
|
|
if (next_cursor[-2] == '/')
|
|
next_cursor[-2] = '\0';
|
|
unquote_string (name_end + 4);
|
|
if (rename (name, name_end + 4))
|
|
ERROR ((0, errno, _("%s: Cannot rename to %s"),
|
|
quotearg_colon (name), quote_n (1, name_end + 4)));
|
|
else if (verbose_option)
|
|
WARN ((0, 0, _("Renamed %s to %s"), name, name_end + 4));
|
|
}
|
|
#ifdef HAVE_SYMLINK
|
|
else if (!strncmp (cursor, "Symlink ", 8))
|
|
{
|
|
name = cursor + 8;
|
|
name_end = strchr (name, ' ');
|
|
while (strncmp (name_end, " to ", 4))
|
|
{
|
|
name_end++;
|
|
name_end = strchr (name_end, ' ');
|
|
}
|
|
*name_end = '\0';
|
|
unquote_string (name);
|
|
unquote_string (name_end + 4);
|
|
if (symlink (name, name_end + 4)
|
|
&& (unlink (name_end + 4) || symlink (name, name_end + 4)))
|
|
ERROR ((0, errno, _("%s: Cannot symlink to %s"),
|
|
quotearg_colon (name), quote_n (1, name_end + 4)));
|
|
else if (verbose_option)
|
|
WARN ((0, 0, _("Symlinked %s to %s"), name, name_end + 4));
|
|
}
|
|
#endif
|
|
else
|
|
ERROR ((0, 0, _("Unknown demangling command %s"), cursor));
|
|
|
|
cursor = next_cursor;
|
|
}
|
|
}
|