2 * Portions Copyright (C) 2004, 2005 Internet Systems Consortium, Inc. ("ISC")
3 * Portions Copyright (C) 2001 Internet Software Consortium.
4 * Portions Copyright (C) 2001 Nominum, Inc.
6 * Permission to use, copy, modify, and distribute this software for any
7 * purpose with or without fee is hereby granted, provided that the above
8 * copyright notice and this permission notice appear in all copies.
10 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC AND NOMINUM DISCLAIMS ALL
11 * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
12 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY
13 * SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
19 /* $Id: sexpr.c,v 1.4.18.2 2005/04/29 00:17:12 marka Exp $ */
29 #include <isc/assertions.h>
30 #include <isccc/sexpr.h>
31 #include <isccc/util.h>
33 static isccc_sexpr_t sexpr_t = { ISCCC_SEXPRTYPE_T, { NULL } };
35 #define CAR(s) (s)->value.as_dottedpair.car
36 #define CDR(s) (s)->value.as_dottedpair.cdr
39 isccc_sexpr_cons(isccc_sexpr_t *car, isccc_sexpr_t *cdr)
43 sexpr = malloc(sizeof(*sexpr));
46 sexpr->type = ISCCC_SEXPRTYPE_DOTTEDPAIR;
54 isccc_sexpr_tconst(void)
60 isccc_sexpr_fromstring(const char *str)
64 sexpr = malloc(sizeof(*sexpr));
67 sexpr->type = ISCCC_SEXPRTYPE_STRING;
68 sexpr->value.as_string = strdup(str);
69 if (sexpr->value.as_string == NULL) {
78 isccc_sexpr_frombinary(const isccc_region_t *region)
81 unsigned int region_size;
83 sexpr = malloc(sizeof(*sexpr));
86 sexpr->type = ISCCC_SEXPRTYPE_BINARY;
87 region_size = REGION_SIZE(*region);
89 * We add an extra byte when we malloc so we can NUL terminate
90 * the binary data. This allows the caller to use it as a C
91 * string. It's up to the caller to ensure this is safe. We don't
92 * add 1 to the length of the binary region, because the NUL is
93 * not part of the binary data.
95 sexpr->value.as_region.rstart = malloc(region_size + 1);
96 if (sexpr->value.as_region.rstart == NULL) {
100 sexpr->value.as_region.rend = sexpr->value.as_region.rstart +
102 memcpy(sexpr->value.as_region.rstart, region->rstart, region_size);
106 sexpr->value.as_region.rstart[region_size] = '\0';
112 isccc_sexpr_free(isccc_sexpr_t **sexprp)
114 isccc_sexpr_t *sexpr;
120 switch (sexpr->type) {
121 case ISCCC_SEXPRTYPE_STRING:
122 free(sexpr->value.as_string);
124 case ISCCC_SEXPRTYPE_DOTTEDPAIR:
127 isccc_sexpr_free(&item);
130 isccc_sexpr_free(&item);
132 case ISCCC_SEXPRTYPE_BINARY:
133 free(sexpr->value.as_region.rstart);
142 printable(isccc_region_t *r)
147 while (curr != r->rend) {
157 isccc_sexpr_print(isccc_sexpr_t *sexpr, FILE *stream)
160 unsigned int size, i;
164 fprintf(stream, "nil");
168 switch (sexpr->type) {
169 case ISCCC_SEXPRTYPE_T:
170 fprintf(stream, "t");
172 case ISCCC_SEXPRTYPE_STRING:
173 fprintf(stream, "\"%s\"", sexpr->value.as_string);
175 case ISCCC_SEXPRTYPE_DOTTEDPAIR:
176 fprintf(stream, "(");
178 isccc_sexpr_print(CAR(sexpr), stream);
181 fprintf(stream, " ");
182 if (cdr->type != ISCCC_SEXPRTYPE_DOTTEDPAIR) {
183 fprintf(stream, ". ");
184 isccc_sexpr_print(cdr, stream);
189 } while (sexpr != NULL);
190 fprintf(stream, ")");
192 case ISCCC_SEXPRTYPE_BINARY:
193 size = REGION_SIZE(sexpr->value.as_region);
194 curr = sexpr->value.as_region.rstart;
195 if (printable(&sexpr->value.as_region)) {
196 fprintf(stream, "'%.*s'", (int)size, curr);
198 fprintf(stream, "0x");
199 for (i = 0; i < size; i++)
200 fprintf(stream, "%02x", *curr++);
209 isccc_sexpr_car(isccc_sexpr_t *list)
211 REQUIRE(list->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
217 isccc_sexpr_cdr(isccc_sexpr_t *list)
219 REQUIRE(list->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
225 isccc_sexpr_setcar(isccc_sexpr_t *pair, isccc_sexpr_t *car)
227 REQUIRE(pair->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
233 isccc_sexpr_setcdr(isccc_sexpr_t *pair, isccc_sexpr_t *cdr)
235 REQUIRE(pair->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
241 isccc_sexpr_addtolist(isccc_sexpr_t **l1p, isccc_sexpr_t *l2)
243 isccc_sexpr_t *last, *elt, *l1;
245 REQUIRE(l1p != NULL);
247 REQUIRE(l1 == NULL || l1->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
249 elt = isccc_sexpr_cons(l2, NULL);
256 for (last = l1; CDR(last) != NULL; last = CDR(last))
264 isccc_sexpr_listp(isccc_sexpr_t *sexpr)
266 if (sexpr == NULL || sexpr->type == ISCCC_SEXPRTYPE_DOTTEDPAIR)
272 isccc_sexpr_emptyp(isccc_sexpr_t *sexpr)
280 isccc_sexpr_stringp(isccc_sexpr_t *sexpr)
282 if (sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_STRING)
288 isccc_sexpr_binaryp(isccc_sexpr_t *sexpr)
290 if (sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_BINARY)
296 isccc_sexpr_tostring(isccc_sexpr_t *sexpr)
298 REQUIRE(sexpr != NULL &&
299 (sexpr->type == ISCCC_SEXPRTYPE_STRING ||
300 sexpr->type == ISCCC_SEXPRTYPE_BINARY));
302 if (sexpr->type == ISCCC_SEXPRTYPE_BINARY)
303 return ((char *)sexpr->value.as_region.rstart);
304 return (sexpr->value.as_string);
308 isccc_sexpr_tobinary(isccc_sexpr_t *sexpr)
310 REQUIRE(sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_BINARY);
311 return (&sexpr->value.as_region);