1 #include "cache.h"
2 #include "string-list.h"
3 
string_list_init_nodup(struct string_list * list)4 void string_list_init_nodup(struct string_list *list)
5 {
6 	struct string_list blank = STRING_LIST_INIT_NODUP;
7 	memcpy(list, &blank, sizeof(*list));
8 }
9 
string_list_init_dup(struct string_list * list)10 void string_list_init_dup(struct string_list *list)
11 {
12 	struct string_list blank = STRING_LIST_INIT_DUP;
13 	memcpy(list, &blank, sizeof(*list));
14 }
15 
16 /* if there is no exact match, point to the index where the entry could be
17  * inserted */
get_entry_index(const struct string_list * list,const char * string,int * exact_match)18 static int get_entry_index(const struct string_list *list, const char *string,
19 		int *exact_match)
20 {
21 	int left = -1, right = list->nr;
22 	compare_strings_fn cmp = list->cmp ? list->cmp : strcmp;
23 
24 	while (left + 1 < right) {
25 		int middle = left + (right - left) / 2;
26 		int compare = cmp(string, list->items[middle].string);
27 		if (compare < 0)
28 			right = middle;
29 		else if (compare > 0)
30 			left = middle;
31 		else {
32 			*exact_match = 1;
33 			return middle;
34 		}
35 	}
36 
37 	*exact_match = 0;
38 	return right;
39 }
40 
41 /* returns -1-index if already exists */
add_entry(int insert_at,struct string_list * list,const char * string)42 static int add_entry(int insert_at, struct string_list *list, const char *string)
43 {
44 	int exact_match = 0;
45 	int index = insert_at != -1 ? insert_at : get_entry_index(list, string, &exact_match);
46 
47 	if (exact_match)
48 		return -1 - index;
49 
50 	ALLOC_GROW(list->items, list->nr+1, list->alloc);
51 	if (index < list->nr)
52 		MOVE_ARRAY(list->items + index + 1, list->items + index,
53 			   list->nr - index);
54 	list->items[index].string = list->strdup_strings ?
55 		xstrdup(string) : (char *)string;
56 	list->items[index].util = NULL;
57 	list->nr++;
58 
59 	return index;
60 }
61 
string_list_insert(struct string_list * list,const char * string)62 struct string_list_item *string_list_insert(struct string_list *list, const char *string)
63 {
64 	int index = add_entry(-1, list, string);
65 
66 	if (index < 0)
67 		index = -1 - index;
68 
69 	return list->items + index;
70 }
71 
string_list_remove(struct string_list * list,const char * string,int free_util)72 void string_list_remove(struct string_list *list, const char *string,
73 			int free_util)
74 {
75 	int exact_match;
76 	int i = get_entry_index(list, string, &exact_match);
77 
78 	if (exact_match) {
79 		if (list->strdup_strings)
80 			free(list->items[i].string);
81 		if (free_util)
82 			free(list->items[i].util);
83 
84 		list->nr--;
85 		MOVE_ARRAY(list->items + i, list->items + i + 1, list->nr - i);
86 	}
87 }
88 
string_list_has_string(const struct string_list * list,const char * string)89 int string_list_has_string(const struct string_list *list, const char *string)
90 {
91 	int exact_match;
92 	get_entry_index(list, string, &exact_match);
93 	return exact_match;
94 }
95 
string_list_find_insert_index(const struct string_list * list,const char * string,int negative_existing_index)96 int string_list_find_insert_index(const struct string_list *list, const char *string,
97 				  int negative_existing_index)
98 {
99 	int exact_match;
100 	int index = get_entry_index(list, string, &exact_match);
101 	if (exact_match)
102 		index = -1 - (negative_existing_index ? index : 0);
103 	return index;
104 }
105 
string_list_lookup(struct string_list * list,const char * string)106 struct string_list_item *string_list_lookup(struct string_list *list, const char *string)
107 {
108 	int exact_match, i = get_entry_index(list, string, &exact_match);
109 	if (!exact_match)
110 		return NULL;
111 	return list->items + i;
112 }
113 
string_list_remove_duplicates(struct string_list * list,int free_util)114 void string_list_remove_duplicates(struct string_list *list, int free_util)
115 {
116 	if (list->nr > 1) {
117 		int src, dst;
118 		compare_strings_fn cmp = list->cmp ? list->cmp : strcmp;
119 		for (src = dst = 1; src < list->nr; src++) {
120 			if (!cmp(list->items[dst - 1].string, list->items[src].string)) {
121 				if (list->strdup_strings)
122 					free(list->items[src].string);
123 				if (free_util)
124 					free(list->items[src].util);
125 			} else
126 				list->items[dst++] = list->items[src];
127 		}
128 		list->nr = dst;
129 	}
130 }
131 
for_each_string_list(struct string_list * list,string_list_each_func_t fn,void * cb_data)132 int for_each_string_list(struct string_list *list,
133 			 string_list_each_func_t fn, void *cb_data)
134 {
135 	int i, ret = 0;
136 	for (i = 0; i < list->nr; i++)
137 		if ((ret = fn(&list->items[i], cb_data)))
138 			break;
139 	return ret;
140 }
141 
filter_string_list(struct string_list * list,int free_util,string_list_each_func_t want,void * cb_data)142 void filter_string_list(struct string_list *list, int free_util,
143 			string_list_each_func_t want, void *cb_data)
144 {
145 	int src, dst = 0;
146 	for (src = 0; src < list->nr; src++) {
147 		if (want(&list->items[src], cb_data)) {
148 			list->items[dst++] = list->items[src];
149 		} else {
150 			if (list->strdup_strings)
151 				free(list->items[src].string);
152 			if (free_util)
153 				free(list->items[src].util);
154 		}
155 	}
156 	list->nr = dst;
157 }
158 
item_is_not_empty(struct string_list_item * item,void * unused)159 static int item_is_not_empty(struct string_list_item *item, void *unused)
160 {
161 	return *item->string != '\0';
162 }
163 
string_list_remove_empty_items(struct string_list * list,int free_util)164 void string_list_remove_empty_items(struct string_list *list, int free_util)
165 {
166 	filter_string_list(list, free_util, item_is_not_empty, NULL);
167 }
168 
string_list_clear(struct string_list * list,int free_util)169 void string_list_clear(struct string_list *list, int free_util)
170 {
171 	if (list->items) {
172 		int i;
173 		if (list->strdup_strings) {
174 			for (i = 0; i < list->nr; i++)
175 				free(list->items[i].string);
176 		}
177 		if (free_util) {
178 			for (i = 0; i < list->nr; i++)
179 				free(list->items[i].util);
180 		}
181 		free(list->items);
182 	}
183 	list->items = NULL;
184 	list->nr = list->alloc = 0;
185 }
186 
string_list_clear_func(struct string_list * list,string_list_clear_func_t clearfunc)187 void string_list_clear_func(struct string_list *list, string_list_clear_func_t clearfunc)
188 {
189 	if (list->items) {
190 		int i;
191 		if (clearfunc) {
192 			for (i = 0; i < list->nr; i++)
193 				clearfunc(list->items[i].util, list->items[i].string);
194 		}
195 		if (list->strdup_strings) {
196 			for (i = 0; i < list->nr; i++)
197 				free(list->items[i].string);
198 		}
199 		free(list->items);
200 	}
201 	list->items = NULL;
202 	list->nr = list->alloc = 0;
203 }
204 
string_list_append_nodup(struct string_list * list,char * string)205 struct string_list_item *string_list_append_nodup(struct string_list *list,
206 						  char *string)
207 {
208 	struct string_list_item *retval;
209 	ALLOC_GROW(list->items, list->nr + 1, list->alloc);
210 	retval = &list->items[list->nr++];
211 	retval->string = string;
212 	retval->util = NULL;
213 	return retval;
214 }
215 
string_list_append(struct string_list * list,const char * string)216 struct string_list_item *string_list_append(struct string_list *list,
217 					    const char *string)
218 {
219 	return string_list_append_nodup(
220 			list,
221 			list->strdup_strings ? xstrdup(string) : (char *)string);
222 }
223 
224 /*
225  * Encapsulate the compare function pointer because ISO C99 forbids
226  * casting from void * to a function pointer and vice versa.
227  */
228 struct string_list_sort_ctx
229 {
230 	compare_strings_fn cmp;
231 };
232 
cmp_items(const void * a,const void * b,void * ctx)233 static int cmp_items(const void *a, const void *b, void *ctx)
234 {
235 	struct string_list_sort_ctx *sort_ctx = ctx;
236 	const struct string_list_item *one = a;
237 	const struct string_list_item *two = b;
238 	return sort_ctx->cmp(one->string, two->string);
239 }
240 
string_list_sort(struct string_list * list)241 void string_list_sort(struct string_list *list)
242 {
243 	struct string_list_sort_ctx sort_ctx = {list->cmp ? list->cmp : strcmp};
244 
245 	QSORT_S(list->items, list->nr, cmp_items, &sort_ctx);
246 }
247 
unsorted_string_list_lookup(struct string_list * list,const char * string)248 struct string_list_item *unsorted_string_list_lookup(struct string_list *list,
249 						     const char *string)
250 {
251 	struct string_list_item *item;
252 	compare_strings_fn cmp = list->cmp ? list->cmp : strcmp;
253 
254 	for_each_string_list_item(item, list)
255 		if (!cmp(string, item->string))
256 			return item;
257 	return NULL;
258 }
259 
unsorted_string_list_has_string(struct string_list * list,const char * string)260 int unsorted_string_list_has_string(struct string_list *list,
261 				    const char *string)
262 {
263 	return unsorted_string_list_lookup(list, string) != NULL;
264 }
265 
unsorted_string_list_delete_item(struct string_list * list,int i,int free_util)266 void unsorted_string_list_delete_item(struct string_list *list, int i, int free_util)
267 {
268 	if (list->strdup_strings)
269 		free(list->items[i].string);
270 	if (free_util)
271 		free(list->items[i].util);
272 	list->items[i] = list->items[list->nr-1];
273 	list->nr--;
274 }
275 
string_list_split(struct string_list * list,const char * string,int delim,int maxsplit)276 int string_list_split(struct string_list *list, const char *string,
277 		      int delim, int maxsplit)
278 {
279 	int count = 0;
280 	const char *p = string, *end;
281 
282 	if (!list->strdup_strings)
283 		die("internal error in string_list_split(): "
284 		    "list->strdup_strings must be set");
285 	for (;;) {
286 		count++;
287 		if (maxsplit >= 0 && count > maxsplit) {
288 			string_list_append(list, p);
289 			return count;
290 		}
291 		end = strchr(p, delim);
292 		if (end) {
293 			string_list_append_nodup(list, xmemdupz(p, end - p));
294 			p = end + 1;
295 		} else {
296 			string_list_append(list, p);
297 			return count;
298 		}
299 	}
300 }
301 
string_list_split_in_place(struct string_list * list,char * string,int delim,int maxsplit)302 int string_list_split_in_place(struct string_list *list, char *string,
303 			       int delim, int maxsplit)
304 {
305 	int count = 0;
306 	char *p = string, *end;
307 
308 	if (list->strdup_strings)
309 		die("internal error in string_list_split_in_place(): "
310 		    "list->strdup_strings must not be set");
311 	for (;;) {
312 		count++;
313 		if (maxsplit >= 0 && count > maxsplit) {
314 			string_list_append(list, p);
315 			return count;
316 		}
317 		end = strchr(p, delim);
318 		if (end) {
319 			*end = '\0';
320 			string_list_append(list, p);
321 			p = end + 1;
322 		} else {
323 			string_list_append(list, p);
324 			return count;
325 		}
326 	}
327 }
328