Logo Search packages:      
Sourcecode: tar version File versions

mangle.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.,
   59 Temple Place - Suite 330, Boston, MA 02111-1307, 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;
    }
}

Generated by  Doxygen 1.6.0   Back to index