1 /*
2 * Portions Copyright (C) Internet Systems Consortium, Inc. ("ISC")
3 *
4 * This Source Code Form is subject to the terms of the Mozilla Public
5 * License, v. 2.0. If a copy of the MPL was not distributed with this
6 * file, you can obtain one at https://mozilla.org/MPL/2.0/.
7 *
8 * See the COPYRIGHT file distributed with this work for additional
9 * information regarding copyright ownership.
10 *
11 * Portions Copyright (C) 2001 Nominum, Inc.
12 *
13 * Permission to use, copy, modify, and/or distribute this software for any
14 * purpose with or without fee is hereby granted, provided that the above
15 * copyright notice and this permission notice appear in all copies.
16 *
17 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC AND NOMINUM DISCLAIMS ALL
18 * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
19 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY
20 * SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
21 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
22 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
23 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
24 */
25
26 /*! \file */
27
28 #include <config.h>
29
30 #include <ctype.h>
31 #include <stdbool.h>
32 #include <stdlib.h>
33 #include <string.h>
34
35 #include <isc/assertions.h>
36 #include <isc/print.h>
37 #include <isccc/sexpr.h>
38 #include <isccc/util.h>
39
40 static isccc_sexpr_t sexpr_t = { ISCCC_SEXPRTYPE_T, { NULL } };
41
42 #define CAR(s) (s)->value.as_dottedpair.car
43 #define CDR(s) (s)->value.as_dottedpair.cdr
44
45 isccc_sexpr_t *
isccc_sexpr_cons(isccc_sexpr_t * car,isccc_sexpr_t * cdr)46 isccc_sexpr_cons(isccc_sexpr_t *car, isccc_sexpr_t *cdr) {
47 isccc_sexpr_t *sexpr;
48
49 sexpr = malloc(sizeof(*sexpr));
50 if (sexpr == NULL)
51 return (NULL);
52 sexpr->type = ISCCC_SEXPRTYPE_DOTTEDPAIR;
53 CAR(sexpr) = car;
54 CDR(sexpr) = cdr;
55
56 return (sexpr);
57 }
58
59 isccc_sexpr_t *
isccc_sexpr_tconst(void)60 isccc_sexpr_tconst(void) {
61 return (&sexpr_t);
62 }
63
64 isccc_sexpr_t *
isccc_sexpr_fromstring(const char * str)65 isccc_sexpr_fromstring(const char *str) {
66 isccc_sexpr_t *sexpr;
67
68 sexpr = malloc(sizeof(*sexpr));
69 if (sexpr == NULL)
70 return (NULL);
71 sexpr->type = ISCCC_SEXPRTYPE_STRING;
72 sexpr->value.as_string = strdup(str);
73 if (sexpr->value.as_string == NULL) {
74 free(sexpr);
75 return (NULL);
76 }
77
78 return (sexpr);
79 }
80
81 isccc_sexpr_t *
isccc_sexpr_frombinary(const isccc_region_t * region)82 isccc_sexpr_frombinary(const isccc_region_t *region) {
83 isccc_sexpr_t *sexpr;
84 unsigned int region_size;
85
86 sexpr = malloc(sizeof(*sexpr));
87 if (sexpr == NULL)
88 return (NULL);
89 sexpr->type = ISCCC_SEXPRTYPE_BINARY;
90 region_size = REGION_SIZE(*region);
91 /*
92 * We add an extra byte when we malloc so we can NUL terminate
93 * the binary data. This allows the caller to use it as a C
94 * string. It's up to the caller to ensure this is safe. We don't
95 * add 1 to the length of the binary region, because the NUL is
96 * not part of the binary data.
97 */
98 sexpr->value.as_region.rstart = malloc(region_size + 1);
99 if (sexpr->value.as_region.rstart == NULL) {
100 free(sexpr);
101 return (NULL);
102 }
103 sexpr->value.as_region.rend = sexpr->value.as_region.rstart +
104 region_size;
105 memmove(sexpr->value.as_region.rstart, region->rstart, region_size);
106 /*
107 * NUL terminate.
108 */
109 sexpr->value.as_region.rstart[region_size] = '\0';
110
111 return (sexpr);
112 }
113
114 void
isccc_sexpr_free(isccc_sexpr_t ** sexprp)115 isccc_sexpr_free(isccc_sexpr_t **sexprp) {
116 isccc_sexpr_t *sexpr;
117 isccc_sexpr_t *item;
118
119 sexpr = *sexprp;
120 if (sexpr == NULL)
121 return;
122 switch (sexpr->type) {
123 case ISCCC_SEXPRTYPE_STRING:
124 free(sexpr->value.as_string);
125 break;
126 case ISCCC_SEXPRTYPE_DOTTEDPAIR:
127 item = CAR(sexpr);
128 if (item != NULL)
129 isccc_sexpr_free(&item);
130 item = CDR(sexpr);
131 if (item != NULL)
132 isccc_sexpr_free(&item);
133 break;
134 case ISCCC_SEXPRTYPE_BINARY:
135 free(sexpr->value.as_region.rstart);
136 break;
137 }
138 free(sexpr);
139
140 *sexprp = NULL;
141 }
142
143 static bool
printable(isccc_region_t * r)144 printable(isccc_region_t *r) {
145 unsigned char *curr;
146
147 curr = r->rstart;
148 while (curr != r->rend) {
149 if (!isprint(*curr))
150 return (false);
151 curr++;
152 }
153
154 return (true);
155 }
156
157 void
isccc_sexpr_print(isccc_sexpr_t * sexpr,FILE * stream)158 isccc_sexpr_print(isccc_sexpr_t *sexpr, FILE *stream) {
159 isccc_sexpr_t *cdr;
160 unsigned int size, i;
161 unsigned char *curr;
162
163 if (sexpr == NULL) {
164 fprintf(stream, "nil");
165 return;
166 }
167
168 switch (sexpr->type) {
169 case ISCCC_SEXPRTYPE_T:
170 fprintf(stream, "t");
171 break;
172 case ISCCC_SEXPRTYPE_STRING:
173 fprintf(stream, "\"%s\"", sexpr->value.as_string);
174 break;
175 case ISCCC_SEXPRTYPE_DOTTEDPAIR:
176 fprintf(stream, "(");
177 do {
178 isccc_sexpr_print(CAR(sexpr), stream);
179 cdr = CDR(sexpr);
180 if (cdr != NULL) {
181 fprintf(stream, " ");
182 if (cdr->type != ISCCC_SEXPRTYPE_DOTTEDPAIR) {
183 fprintf(stream, ". ");
184 isccc_sexpr_print(cdr, stream);
185 cdr = NULL;
186 }
187 }
188 sexpr = cdr;
189 } while (sexpr != NULL);
190 fprintf(stream, ")");
191 break;
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);
197 } else {
198 fprintf(stream, "0x");
199 for (i = 0; i < size; i++)
200 fprintf(stream, "%02x", *curr++);
201 }
202 break;
203 default:
204 INSIST(0);
205 ISC_UNREACHABLE();
206 }
207 }
208
209 isccc_sexpr_t *
isccc_sexpr_car(isccc_sexpr_t * list)210 isccc_sexpr_car(isccc_sexpr_t *list) {
211 REQUIRE(list->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
212
213 return (CAR(list));
214 }
215
216 isccc_sexpr_t *
isccc_sexpr_cdr(isccc_sexpr_t * list)217 isccc_sexpr_cdr(isccc_sexpr_t *list) {
218 REQUIRE(list->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
219
220 return (CDR(list));
221 }
222
223 void
isccc_sexpr_setcar(isccc_sexpr_t * pair,isccc_sexpr_t * car)224 isccc_sexpr_setcar(isccc_sexpr_t *pair, isccc_sexpr_t *car) {
225 REQUIRE(pair->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
226
227 CAR(pair) = car;
228 }
229
230 void
isccc_sexpr_setcdr(isccc_sexpr_t * pair,isccc_sexpr_t * cdr)231 isccc_sexpr_setcdr(isccc_sexpr_t *pair, isccc_sexpr_t *cdr) {
232 REQUIRE(pair->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
233
234 CDR(pair) = cdr;
235 }
236
237 isccc_sexpr_t *
isccc_sexpr_addtolist(isccc_sexpr_t ** l1p,isccc_sexpr_t * l2)238 isccc_sexpr_addtolist(isccc_sexpr_t **l1p, isccc_sexpr_t *l2) {
239 isccc_sexpr_t *last, *elt, *l1;
240
241 REQUIRE(l1p != NULL);
242 l1 = *l1p;
243 REQUIRE(l1 == NULL || l1->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
244
245 elt = isccc_sexpr_cons(l2, NULL);
246 if (elt == NULL)
247 return (NULL);
248 if (l1 == NULL) {
249 *l1p = elt;
250 return (elt);
251 }
252 for (last = l1; CDR(last) != NULL; last = CDR(last))
253 /* Nothing */;
254 CDR(last) = elt;
255
256 return (elt);
257 }
258
259 bool
isccc_sexpr_listp(isccc_sexpr_t * sexpr)260 isccc_sexpr_listp(isccc_sexpr_t *sexpr) {
261 if (sexpr == NULL || sexpr->type == ISCCC_SEXPRTYPE_DOTTEDPAIR)
262 return (true);
263 return (false);
264 }
265
266 bool
isccc_sexpr_emptyp(isccc_sexpr_t * sexpr)267 isccc_sexpr_emptyp(isccc_sexpr_t *sexpr) {
268 if (sexpr == NULL)
269 return (true);
270 return (false);
271 }
272
273 bool
isccc_sexpr_stringp(isccc_sexpr_t * sexpr)274 isccc_sexpr_stringp(isccc_sexpr_t *sexpr) {
275 if (sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_STRING)
276 return (true);
277 return (false);
278 }
279
280 bool
isccc_sexpr_binaryp(isccc_sexpr_t * sexpr)281 isccc_sexpr_binaryp(isccc_sexpr_t *sexpr) {
282 if (sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_BINARY)
283 return (true);
284 return (false);
285 }
286
287 char *
isccc_sexpr_tostring(isccc_sexpr_t * sexpr)288 isccc_sexpr_tostring(isccc_sexpr_t *sexpr) {
289 REQUIRE(sexpr != NULL &&
290 (sexpr->type == ISCCC_SEXPRTYPE_STRING ||
291 sexpr->type == ISCCC_SEXPRTYPE_BINARY));
292
293 if (sexpr->type == ISCCC_SEXPRTYPE_BINARY)
294 return ((char *)sexpr->value.as_region.rstart);
295 return (sexpr->value.as_string);
296 }
297
298 isccc_region_t *
isccc_sexpr_tobinary(isccc_sexpr_t * sexpr)299 isccc_sexpr_tobinary(isccc_sexpr_t *sexpr) {
300 REQUIRE(sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_BINARY);
301 return (&sexpr->value.as_region);
302 }
303