1 /* Keep a unique copy of strings.
2
3 Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4
5 This file is part of Bison, the GNU Compiler Compiler.
6
7 Bison is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
10 any later version.
11
12 Bison is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with Bison; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
21
22 #include <config.h>
23 #include "system.h"
24
25 #include <error.h>
26 #include <hash.h>
27 #include <quotearg.h>
28
29 #include "uniqstr.h"
30
31 /*-----------------------.
32 | A uniqstr hash table. |
33 `-----------------------*/
34
35 /* Initial capacity of uniqstr hash table. */
36 #define HT_INITIAL_CAPACITY 257
37
38 static struct hash_table *uniqstrs_table = NULL;
39
40 /*-------------------------------------.
41 | Create the uniqstr for S if needed. |
42 `-------------------------------------*/
43
44 uniqstr
uniqstr_new(char const * str)45 uniqstr_new (char const *str)
46 {
47 uniqstr res = hash_lookup (uniqstrs_table, str);
48 if (!res)
49 {
50 /* First insertion in the hash. */
51 res = xstrdup (str);
52 hash_insert (uniqstrs_table, res);
53 }
54 return res;
55 }
56
57
58 /*------------------------------.
59 | Abort if S is not a uniqstr. |
60 `------------------------------*/
61
62 void
uniqstr_assert(char const * str)63 uniqstr_assert (char const *str)
64 {
65 if (!hash_lookup (uniqstrs_table, str))
66 {
67 error (0, 0,
68 "not a uniqstr: %s", quotearg (str));
69 abort ();
70 }
71 }
72
73
74 /*--------------------.
75 | Print the uniqstr. |
76 `--------------------*/
77
78 static inline bool
uniqstr_print(uniqstr ustr)79 uniqstr_print (uniqstr ustr)
80 {
81 fprintf (stderr, "%s\n", ustr);
82 return true;
83 }
84
85 static bool
uniqstr_print_processor(void * ustr,void * null ATTRIBUTE_UNUSED)86 uniqstr_print_processor (void *ustr, void *null ATTRIBUTE_UNUSED)
87 {
88 return uniqstr_print (ustr);
89 }
90
91
92 /*-----------------------.
93 | A uniqstr hash table. |
94 `-----------------------*/
95
96 static bool
hash_compare_uniqstr(void const * m1,void const * m2)97 hash_compare_uniqstr (void const *m1, void const *m2)
98 {
99 return strcmp (m1, m2) == 0;
100 }
101
102 static size_t
hash_uniqstr(void const * m,size_t tablesize)103 hash_uniqstr (void const *m, size_t tablesize)
104 {
105 return hash_string (m, tablesize);
106 }
107
108 /*----------------------------.
109 | Create the uniqstrs table. |
110 `----------------------------*/
111
112 void
uniqstrs_new(void)113 uniqstrs_new (void)
114 {
115 uniqstrs_table = hash_initialize (HT_INITIAL_CAPACITY,
116 NULL,
117 hash_uniqstr,
118 hash_compare_uniqstr,
119 free);
120 }
121
122
123 /*-------------------------------------.
124 | Perform a task on all the uniqstrs. |
125 `-------------------------------------*/
126
127 static void
uniqstrs_do(Hash_processor processor,void * processor_data)128 uniqstrs_do (Hash_processor processor, void *processor_data)
129 {
130 hash_do_for_each (uniqstrs_table, processor, processor_data);
131 }
132
133
134 /*-----------------.
135 | Print them all. |
136 `-----------------*/
137
138 void
uniqstrs_print(void)139 uniqstrs_print (void)
140 {
141 uniqstrs_do (uniqstr_print_processor, NULL);
142 }
143
144
145 /*--------------------.
146 | Free the uniqstrs. |
147 `--------------------*/
148
149 void
uniqstrs_free(void)150 uniqstrs_free (void)
151 {
152 hash_free (uniqstrs_table);
153 }
154