Dogcows Code - chaz/tar/blob - src/mangle.c

   1 /* Encode long filenames for GNU tar.
   2    Copyright (C) 1988, 1992, 1994, 1996, 1997 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify it
   5    under the terms of the GNU General Public License as published by the
   6    Free Software Foundation; either version 2, or (at your option) any later
   7    version.
   8
   9    This program is distributed in the hope that it will be useful, but
  10    WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
  12    Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License along
  15    with this program; if not, write to the Free Software Foundation, Inc.,
  16    59 Place - Suite 330, Boston, MA 02111-1307, USA.  */
  17
  18 #include "system.h"
  19
  20 #include <time.h>
  21 time_t time ();
  22
  23 #include "common.h"
  24
  25 struct mangled
  26   {
  27     struct mangled *next;
  28     int type;
  29     char mangled[NAME_FIELD_SIZE];
  30     char *linked_to;
  31     char normal[1];
  32   };
  33
  34 /* Should use a hash table, etc. .  */
  35 struct mangled *first_mangle;
  36 int mangled_num = 0;
  37
  38 /*---------------------------------------------------------------------.
  39 | Extract a GNUTYPE_NAMES record contents.  It seems that such are not |
  40 | produced anymore by GNU tar, but we leave the reading code around    |
  41 | nevertheless, for salvaging old tapes.                               |
  42 `---------------------------------------------------------------------*/
  43
  44 void
  45 extract_mangle (void)
  46 {
  47   int size = current_stat.st_size;
  48   char *buffer = xmalloc ((size_t) (size + 1));
  49   char *copy = buffer;
  50   char *cursor = buffer;
  51
  52   buffer[size] = '\0';
  53
  54   while (size > 0)
  55     {
  56       union block *block = find_next_block ();
  57       int available;
  58
  59       if (!block)
  60         {
  61           ERROR ((0, 0, _("Unexpected EOF in mangled names")));
  62           return;
  63         }
  64       available = available_space_after (block);
  65       if (available > size)
  66         available = size;
  67       memcpy (copy, block->buffer, (size_t) available);
  68       copy += available;
  69       size -= available;
  70       set_next_block_after ((union block *) (block->buffer + available - 1));
  71     }
  72
  73   while (*cursor)
  74     {
  75       char *next_cursor;
  76       char *name;
  77       char *name_end;
  78
  79       next_cursor = strchr (cursor, '\n');
  80       *next_cursor++ = '\0';
  81
  82       if (!strncmp (cursor, "Rename ", 7))
  83         {
  84
  85           name = cursor + 7;
  86           name_end = strchr (name, ' ');
  87           while (strncmp (name_end, " to ", 4))
  88             {
  89               name_end++;
  90               name_end = strchr (name_end, ' ');
  91             }
  92           *name_end = '\0';
  93           if (next_cursor[-2] == '/')
  94             next_cursor[-2] = '\0';
  95           unquote_string (name_end + 4);
  96           if (rename (name, name_end + 4))
  97             ERROR ((0, errno, _("Cannot rename %s to %s"), name, name_end + 4));
  98           else if (verbose_option)
  99             WARN ((0, 0, _("Renamed %s to %s"), name, name_end + 4));
 100         }
 101 #ifdef S_ISLNK
 102       else if (!strncmp (cursor, "Symlink ", 8))
 103         {
 104           name = cursor + 8;
 105           name_end = strchr (name, ' ');
 106           while (strncmp (name_end, " to ", 4))
 107             {
 108               name_end++;
 109               name_end = strchr (name_end, ' ');
 110             }
 111           *name_end = '\0';
 112           unquote_string (name);
 113           unquote_string (name_end + 4);
 114           if (symlink (name, name_end + 4)
 115               && (unlink (name_end + 4) || symlink (name, name_end + 4)))
 116             ERROR ((0, errno, _("Cannot symlink %s to %s"),
 117                     name, name_end + 4));
 118           else if (verbose_option)
 119             WARN ((0, 0, _("Symlinked %s to %s"), name, name_end + 4));
 120         }
 121 #endif
 122       else
 123         ERROR ((0, 0, _("Unknown demangling command %s"), cursor));
 124
 125       cursor = next_cursor;
 126     }
 127 }