1 /* Encode long filenames for GNU tar.
2 Copyright 1988, 1992, 1994, 1996, 1997, 1999 Free Software Foundation, Inc.
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
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.
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 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
29 char mangled[NAME_FIELD_SIZE];
34 /* Should use a hash table, etc. . */
35 struct mangled *first_mangle;
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 `---------------------------------------------------------------------*/
47 off_t size = current_stat.st_size;
48 char *buffer = xmalloc ((size_t) (size + 1));
50 char *cursor = buffer;
52 if (size != (size_t) size || size == (size_t) -1)
53 FATAL_ERROR ((0, 0, _("Memory exhausted")));
59 union block *block = find_next_block ();
64 ERROR ((0, 0, _("Unexpected EOF in mangled names")));
67 available = available_space_after (block);
70 memcpy (copy, block->buffer, available);
73 set_next_block_after ((union block *) (block->buffer + available - 1));
82 next_cursor = strchr (cursor, '\n');
83 *next_cursor++ = '\0';
85 if (!strncmp (cursor, "Rename ", 7))
89 name_end = strchr (name, ' ');
90 while (strncmp (name_end, " to ", 4))
93 name_end = strchr (name_end, ' ');
96 if (next_cursor[-2] == '/')
97 next_cursor[-2] = '\0';
98 unquote_string (name_end + 4);
99 if (rename (name, name_end + 4))
100 ERROR ((0, errno, _("Cannot rename %s to %s"), name, name_end + 4));
101 else if (verbose_option)
102 WARN ((0, 0, _("Renamed %s to %s"), name, name_end + 4));
105 else if (!strncmp (cursor, "Symlink ", 8))
108 name_end = strchr (name, ' ');
109 while (strncmp (name_end, " to ", 4))
112 name_end = strchr (name_end, ' ');
115 unquote_string (name);
116 unquote_string (name_end + 4);
117 if (symlink (name, name_end + 4)
118 && (unlink (name_end + 4) || symlink (name, name_end + 4)))
119 ERROR ((0, errno, _("Cannot symlink %s to %s"),
120 name, name_end + 4));
121 else if (verbose_option)
122 WARN ((0, 0, _("Symlinked %s to %s"), name, name_end + 4));
126 ERROR ((0, 0, _("Unknown demangling command %s"), cursor));
128 cursor = next_cursor;