-/* 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;
- }
-}
projects / chaz / tar / commitdiff
