]>
Dogcows Code - chaz/tar/blob - src/mangle.c
1 /* Encode long filenames for GNU tar.
2 Copyright 1988, 92, 94, 96, 97, 99, 2000 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. */
26 char mangled
[NAME_FIELD_SIZE
];
31 /* Extract a GNUTYPE_NAMES record contents. It seems that such are
32 not produced anymore by GNU tar, but we leave the reading code
33 around nevertheless, for salvaging old tapes. */
37 off_t size
= current_stat
.st_size
;
38 char *buffer
= xmalloc ((size_t) (size
+ 1));
40 char *cursor
= buffer
;
42 if (size
!= (size_t) size
|| size
== (size_t) -1)
49 union block
*block
= find_next_block ();
54 ERROR ((0, 0, _("Unexpected EOF in mangled names")));
57 available
= available_space_after (block
);
60 memcpy (copy
, block
->buffer
, available
);
63 set_next_block_after ((union block
*) (block
->buffer
+ available
- 1));
72 next_cursor
= strchr (cursor
, '\n');
73 *next_cursor
++ = '\0';
75 if (!strncmp (cursor
, "Rename ", 7))
79 name_end
= strchr (name
, ' ');
80 while (strncmp (name_end
, " to ", 4))
83 name_end
= strchr (name_end
, ' ');
86 if (next_cursor
[-2] == '/')
87 next_cursor
[-2] = '\0';
88 unquote_string (name_end
+ 4);
89 if (rename (name
, name_end
+ 4))
90 ERROR ((0, errno
, _("%s: Cannot rename to %s"),
91 quotearg_colon (name
), quote_n (1, name_end
+ 4)));
92 else if (verbose_option
)
93 WARN ((0, 0, _("Renamed %s to %s"), name
, name_end
+ 4));
96 else if (!strncmp (cursor
, "Symlink ", 8))
99 name_end
= strchr (name
, ' ');
100 while (strncmp (name_end
, " to ", 4))
103 name_end
= strchr (name_end
, ' ');
106 unquote_string (name
);
107 unquote_string (name_end
+ 4);
108 if (symlink (name
, name_end
+ 4)
109 && (unlink (name_end
+ 4) || symlink (name
, name_end
+ 4)))
110 ERROR ((0, errno
, _("%s: Cannot symlink to %s"),
111 quotearg_colon (name
), quote_n (1, name_end
+ 4)));
112 else if (verbose_option
)
113 WARN ((0, 0, _("Symlinked %s to %s"), name
, name_end
+ 4));
117 ERROR ((0, 0, _("Unknown demangling command %s"), cursor
));
119 cursor
= next_cursor
;
This page took 0.036752 seconds and 4 git commands to generate.