1 /* $NetBSD: alist.c,v 1.4 2014/12/10 04:38:01 christos Exp $ */
2
3 /*
4 * Portions Copyright (C) 2004, 2005, 2007 Internet Systems Consortium, Inc. ("ISC")
5 * Portions Copyright (C) 2001 Internet Software Consortium.
6 *
7 * Permission to use, copy, modify, and/or distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
10 *
11 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC AND NOMINUM DISCLAIMS ALL
12 * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
13 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY
14 * SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18 *
19 * Portions Copyright (C) 2001 Nominum, Inc.
20 *
21 * Permission to use, copy, modify, and/or distribute this software for any
22 * purpose with or without fee is hereby granted, provided that the above
23 * copyright notice and this permission notice appear in all copies.
24 *
25 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC AND NOMINUM DISCLAIMS ALL
26 * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
27 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY
28 * SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
29 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
30 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
31 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
32 */
33
34 /* Id: alist.c,v 1.8 2007/08/28 07:20:43 tbox Exp */
35
36 /*! \file */
37
38 #include <config.h>
39
40 #include <stdlib.h>
41 #include <string.h>
42
43 #include <isccc/alist.h>
44 #include <isc/assertions.h>
45 #include <isccc/result.h>
46 #include <isccc/sexpr.h>
47 #include <isccc/util.h>
48
49 #define CAR(s) (s)->value.as_dottedpair.car
50 #define CDR(s) (s)->value.as_dottedpair.cdr
51
52 #define ALIST_TAG "*alist*"
53 #define MAX_INDENT 64
54
55 static char spaces[MAX_INDENT + 1] =
56 " ";
57
58 isccc_sexpr_t *
isccc_alist_create(void)59 isccc_alist_create(void)
60 {
61 isccc_sexpr_t *alist, *tag;
62
63 tag = isccc_sexpr_fromstring(ALIST_TAG);
64 if (tag == NULL)
65 return (NULL);
66 alist = isccc_sexpr_cons(tag, NULL);
67 if (alist == NULL) {
68 isccc_sexpr_free(&tag);
69 return (NULL);
70 }
71
72 return (alist);
73 }
74
75 isc_boolean_t
isccc_alist_alistp(isccc_sexpr_t * alist)76 isccc_alist_alistp(isccc_sexpr_t *alist)
77 {
78 isccc_sexpr_t *car;
79
80 if (alist == NULL || alist->type != ISCCC_SEXPRTYPE_DOTTEDPAIR)
81 return (ISC_FALSE);
82 car = CAR(alist);
83 if (car == NULL || car->type != ISCCC_SEXPRTYPE_STRING)
84 return (ISC_FALSE);
85 if (strcmp(car->value.as_string, ALIST_TAG) != 0)
86 return (ISC_FALSE);
87 return (ISC_TRUE);
88 }
89
90 isc_boolean_t
isccc_alist_emptyp(isccc_sexpr_t * alist)91 isccc_alist_emptyp(isccc_sexpr_t *alist)
92 {
93 REQUIRE(isccc_alist_alistp(alist));
94
95 if (CDR(alist) == NULL)
96 return (ISC_TRUE);
97 return (ISC_FALSE);
98 }
99
100 isccc_sexpr_t *
isccc_alist_first(isccc_sexpr_t * alist)101 isccc_alist_first(isccc_sexpr_t *alist)
102 {
103 REQUIRE(isccc_alist_alistp(alist));
104
105 return (CDR(alist));
106 }
107
108 isccc_sexpr_t *
isccc_alist_assq(isccc_sexpr_t * alist,const char * key)109 isccc_alist_assq(isccc_sexpr_t *alist, const char *key)
110 {
111 isccc_sexpr_t *car, *caar;
112
113 REQUIRE(isccc_alist_alistp(alist));
114
115 /*
116 * Skip alist type tag.
117 */
118 alist = CDR(alist);
119
120 while (alist != NULL) {
121 INSIST(alist->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
122 car = CAR(alist);
123 INSIST(car->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
124 caar = CAR(car);
125 if (caar->type == ISCCC_SEXPRTYPE_STRING &&
126 strcmp(caar->value.as_string, key) == 0)
127 return (car);
128 alist = CDR(alist);
129 }
130
131 return (NULL);
132 }
133
134 void
isccc_alist_delete(isccc_sexpr_t * alist,const char * key)135 isccc_alist_delete(isccc_sexpr_t *alist, const char *key)
136 {
137 isccc_sexpr_t *car, *caar, *rest, *prev;
138
139 REQUIRE(isccc_alist_alistp(alist));
140
141 prev = alist;
142 rest = CDR(alist);
143 while (rest != NULL) {
144 INSIST(rest->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
145 car = CAR(rest);
146 INSIST(car != NULL && car->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
147 caar = CAR(car);
148 if (caar->type == ISCCC_SEXPRTYPE_STRING &&
149 strcmp(caar->value.as_string, key) == 0) {
150 CDR(prev) = CDR(rest);
151 CDR(rest) = NULL;
152 isccc_sexpr_free(&rest);
153 break;
154 }
155 prev = rest;
156 rest = CDR(rest);
157 }
158 }
159
160 isccc_sexpr_t *
isccc_alist_define(isccc_sexpr_t * alist,const char * key,isccc_sexpr_t * value)161 isccc_alist_define(isccc_sexpr_t *alist, const char *key, isccc_sexpr_t *value)
162 {
163 isccc_sexpr_t *kv, *k, *elt;
164
165 kv = isccc_alist_assq(alist, key);
166 if (kv == NULL) {
167 /*
168 * New association.
169 */
170 k = isccc_sexpr_fromstring(key);
171 if (k == NULL)
172 return (NULL);
173 kv = isccc_sexpr_cons(k, value);
174 if (kv == NULL) {
175 isccc_sexpr_free(&kv);
176 return (NULL);
177 }
178 elt = isccc_sexpr_addtolist(&alist, kv);
179 if (elt == NULL) {
180 isccc_sexpr_free(&kv);
181 return (NULL);
182 }
183 } else {
184 /*
185 * We've already got an entry for this key. Replace it.
186 */
187 isccc_sexpr_free(&CDR(kv));
188 CDR(kv) = value;
189 }
190
191 return (kv);
192 }
193
194 isccc_sexpr_t *
isccc_alist_definestring(isccc_sexpr_t * alist,const char * key,const char * str)195 isccc_alist_definestring(isccc_sexpr_t *alist, const char *key, const char *str)
196 {
197 isccc_sexpr_t *v, *kv;
198
199 v = isccc_sexpr_fromstring(str);
200 if (v == NULL)
201 return (NULL);
202 kv = isccc_alist_define(alist, key, v);
203 if (kv == NULL)
204 isccc_sexpr_free(&v);
205
206 return (kv);
207 }
208
209 isccc_sexpr_t *
isccc_alist_definebinary(isccc_sexpr_t * alist,const char * key,isccc_region_t * r)210 isccc_alist_definebinary(isccc_sexpr_t *alist, const char *key, isccc_region_t *r)
211 {
212 isccc_sexpr_t *v, *kv;
213
214 v = isccc_sexpr_frombinary(r);
215 if (v == NULL)
216 return (NULL);
217 kv = isccc_alist_define(alist, key, v);
218 if (kv == NULL)
219 isccc_sexpr_free(&v);
220
221 return (kv);
222 }
223
224 isccc_sexpr_t *
isccc_alist_lookup(isccc_sexpr_t * alist,const char * key)225 isccc_alist_lookup(isccc_sexpr_t *alist, const char *key)
226 {
227 isccc_sexpr_t *kv;
228
229 kv = isccc_alist_assq(alist, key);
230 if (kv != NULL)
231 return (CDR(kv));
232 return (NULL);
233 }
234
235 isc_result_t
isccc_alist_lookupstring(isccc_sexpr_t * alist,const char * key,char ** strp)236 isccc_alist_lookupstring(isccc_sexpr_t *alist, const char *key, char **strp)
237 {
238 isccc_sexpr_t *kv, *v;
239
240 kv = isccc_alist_assq(alist, key);
241 if (kv != NULL) {
242 v = CDR(kv);
243 if (isccc_sexpr_stringp(v)) {
244 if (strp != NULL)
245 *strp = isccc_sexpr_tostring(v);
246 return (ISC_R_SUCCESS);
247 } else
248 return (ISC_R_EXISTS);
249 }
250
251 return (ISC_R_NOTFOUND);
252 }
253
254 isc_result_t
isccc_alist_lookupbinary(isccc_sexpr_t * alist,const char * key,isccc_region_t ** r)255 isccc_alist_lookupbinary(isccc_sexpr_t *alist, const char *key, isccc_region_t **r)
256 {
257 isccc_sexpr_t *kv, *v;
258
259 kv = isccc_alist_assq(alist, key);
260 if (kv != NULL) {
261 v = CDR(kv);
262 if (isccc_sexpr_binaryp(v)) {
263 if (r != NULL)
264 *r = isccc_sexpr_tobinary(v);
265 return (ISC_R_SUCCESS);
266 } else
267 return (ISC_R_EXISTS);
268 }
269
270 return (ISC_R_NOTFOUND);
271 }
272
273 void
isccc_alist_prettyprint(isccc_sexpr_t * sexpr,unsigned int indent,FILE * stream)274 isccc_alist_prettyprint(isccc_sexpr_t *sexpr, unsigned int indent, FILE *stream)
275 {
276 isccc_sexpr_t *elt, *kv, *k, *v;
277
278 if (isccc_alist_alistp(sexpr)) {
279 fprintf(stream, "{\n");
280 indent += 4;
281 for (elt = isccc_alist_first(sexpr);
282 elt != NULL;
283 elt = CDR(elt)) {
284 kv = CAR(elt);
285 INSIST(isccc_sexpr_listp(kv));
286 k = CAR(kv);
287 v = CDR(kv);
288 INSIST(isccc_sexpr_stringp(k));
289 fprintf(stream, "%.*s%s => ", (int)indent, spaces,
290 isccc_sexpr_tostring(k));
291 isccc_alist_prettyprint(v, indent, stream);
292 if (CDR(elt) != NULL)
293 fprintf(stream, ",");
294 fprintf(stream, "\n");
295 }
296 indent -= 4;
297 fprintf(stream, "%.*s}", (int)indent, spaces);
298 } else if (isccc_sexpr_listp(sexpr)) {
299 fprintf(stream, "(\n");
300 indent += 4;
301 for (elt = sexpr;
302 elt != NULL;
303 elt = CDR(elt)) {
304 fprintf(stream, "%.*s", (int)indent, spaces);
305 isccc_alist_prettyprint(CAR(elt), indent, stream);
306 if (CDR(elt) != NULL)
307 fprintf(stream, ",");
308 fprintf(stream, "\n");
309 }
310 indent -= 4;
311 fprintf(stream, "%.*s)", (int)indent, spaces);
312 } else
313 isccc_sexpr_print(sexpr, stream);
314 }
315