1 files changed, 121 insertions, 0 deletions
diff --git a/contrib/tar/src/mangle.c b/contrib/tar/src/mangle.c
new file mode 100644
index 0000000..204bf7c
--- /dev/null
+++ b/contrib/tar/src/mangle.c
@@ -0,0 +1,121 @@
+/* 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.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;
+    }
+}