1 /* This file is part of GNU paxutils
2 Copyright (C) 2005 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 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
23 /* Hash tables of strings. */
25 /* Calculate the hash of a string. */
27 hash_string_hasher (void const *name, size_t n_buckets)
29 return hash_string (name, n_buckets);
32 /* Compare two strings for equality. */
34 hash_string_compare (void const *name1, void const *name2)
36 return strcmp (name1, name2) == 0;
39 /* Return zero if TABLE contains a copy of STRING; otherwise, insert a
40 copy of STRING to TABLE and return 1. */
42 hash_string_insert (Hash_table **table, char const *string)
44 Hash_table *t = *table;
45 char *s = xstrdup (string);
49 || (*table = t = hash_initialize (0, 0, hash_string_hasher,
50 hash_string_compare, 0)))
51 && (e = hash_insert (t, s))))
63 /* Return 1 if TABLE contains STRING. */
65 hash_string_lookup (Hash_table const *table, char const *string)
67 return table && hash_lookup (table, string);
71 static Hash_table *prefix_table[2];
73 /* Return true if file names of some members in the archive were stripped off
74 their leading components. We could have used
75 return prefix_table[0] || prefix_table[1]
76 but the following seems to be safer: */
78 removed_prefixes_p (void)
80 return (prefix_table[0] && hash_get_n_entries (prefix_table[0]) != 0)
81 || (prefix_table[1] && hash_get_n_entries (prefix_table[1]) != 0);
84 /* Return a safer suffix of FILE_NAME, or "." if it has no safer
85 suffix. Check for fully specified file names and other atrocities.
86 Warn the user if we do not return NAME. If LINK_TARGET is 1,
87 FILE_NAME is the target of a hard link, not a member name.
88 If ABSOLUTE_NAMES is 0, strip filesystem prefix from the file name. */
91 safer_name_suffix (char const *file_name, bool link_target, bool absolute_names)
99 /* Skip file system prefixes, leading file name components that contain
100 "..", and leading slashes. */
102 size_t prefix_len = FILE_SYSTEM_PREFIX_LEN (file_name);
104 for (p = file_name + prefix_len; *p; )
106 if (p[0] == '.' && p[1] == '.' && (ISSLASH (p[2]) || !p[2]))
107 prefix_len = p + 2 - file_name;
118 for (p = file_name + prefix_len; ISSLASH (*p); p++)
120 prefix_len = p - file_name;
124 char *prefix = alloca (prefix_len + 1);
125 memcpy (prefix, file_name, prefix_len);
126 prefix[prefix_len] = '\0';
128 if (hash_string_insert (&prefix_table[link_target], prefix))
130 static char const *const diagnostic[] =
132 N_("Removing leading `%s' from member names"),
133 N_("Removing leading `%s' from hard link targets")
135 WARN ((0, 0, _(diagnostic[link_target]), prefix));
144 static char const *const diagnostic[] =
146 N_("Substituting `.' for empty member name"),
147 N_("Substituting `.' for empty hard link target")
149 WARN ((0, 0, "%s", _(diagnostic[link_target])));