2 * Copyright (C) 2004, 2007, 2009, 2014, 2015 Internet Systems Consortium, Inc. ("ISC")
3 * Copyright (C) 1999-2003 Internet Software Consortium.
5 * Permission to use, copy, modify, and/or distribute this software for any
6 * purpose with or without fee is hereby granted, provided that the above
7 * copyright notice and this permission notice appear in all copies.
9 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10 * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11 * AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13 * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14 * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15 * PERFORMANCE OF THIS SOFTWARE.
18 /* $Id: a6_38.c,v 1.56 2009/12/04 22:06:37 tbox Exp $ */
22 #ifndef RDATA_IN_1_A6_28_C
23 #define RDATA_IN_1_A6_28_C
27 #define RRTYPE_A6_ATTRIBUTES (0)
29 static inline isc_result_t
30 fromtext_in_a6(ARGS_FROMTEXT) {
32 unsigned char addr[16];
33 unsigned char prefixlen;
40 REQUIRE(type == dns_rdatatype_a6);
41 REQUIRE(rdclass == dns_rdataclass_in);
50 RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_number,
52 if (token.value.as_ulong > 128U)
55 prefixlen = (unsigned char)token.value.as_ulong;
56 RETERR(mem_tobuffer(target, &prefixlen, 1));
61 if (prefixlen != 128) {
69 RETERR(isc_lex_getmastertoken(lexer, &token,
72 if (inet_pton(AF_INET6, DNS_AS_STR(token), addr) != 1)
73 RETTOK(DNS_R_BADAAAA);
74 mask = 0xff >> (prefixlen % 8);
76 RETERR(mem_tobuffer(target, &addr[octets], 16 - octets));
80 return (ISC_R_SUCCESS);
82 RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_string,
84 dns_name_init(&name, NULL);
85 buffer_fromregion(&buffer, &token.value.as_region);
87 origin = dns_rootname;
88 RETTOK(dns_name_fromtext(&name, &buffer, origin, options, target));
90 if ((options & DNS_RDATA_CHECKNAMES) != 0)
91 ok = dns_name_ishostname(&name, ISC_FALSE);
92 if (!ok && (options & DNS_RDATA_CHECKNAMESFAIL) != 0)
93 RETTOK(DNS_R_BADNAME);
94 if (!ok && callbacks != NULL)
95 warn_badname(&name, lexer, callbacks);
96 return (ISC_R_SUCCESS);
99 static inline isc_result_t
100 totext_in_a6(ARGS_TOTEXT) {
102 unsigned char addr[16];
103 unsigned char prefixlen;
104 unsigned char octets;
106 char buf[sizeof("128")];
111 REQUIRE(rdata->type == dns_rdatatype_a6);
112 REQUIRE(rdata->rdclass == dns_rdataclass_in);
113 REQUIRE(rdata->length != 0);
115 dns_rdata_toregion(rdata, &sr);
116 prefixlen = sr.base[0];
117 INSIST(prefixlen <= 128);
118 isc_region_consume(&sr, 1);
119 sprintf(buf, "%u", prefixlen);
120 RETERR(str_totext(buf, target));
121 RETERR(str_totext(" ", target));
123 if (prefixlen != 128) {
124 octets = prefixlen/8;
125 memset(addr, 0, sizeof(addr));
126 memmove(&addr[octets], sr.base, 16 - octets);
127 mask = 0xff >> (prefixlen % 8);
128 addr[octets] &= mask;
130 ar.length = sizeof(addr);
131 RETERR(inet_totext(AF_INET6, &ar, target));
132 isc_region_consume(&sr, 16 - octets);
136 return (ISC_R_SUCCESS);
138 RETERR(str_totext(" ", target));
139 dns_name_init(&name, NULL);
140 dns_name_init(&prefix, NULL);
141 dns_name_fromregion(&name, &sr);
142 sub = name_prefix(&name, tctx->origin, &prefix);
143 return (dns_name_totext(&prefix, sub, target));
146 static inline isc_result_t
147 fromwire_in_a6(ARGS_FROMWIRE) {
149 unsigned char prefixlen;
150 unsigned char octets;
154 REQUIRE(type == dns_rdatatype_a6);
155 REQUIRE(rdclass == dns_rdataclass_in);
160 dns_decompress_setmethods(dctx, DNS_COMPRESS_NONE);
162 isc_buffer_activeregion(source, &sr);
167 return (ISC_R_UNEXPECTEDEND);
168 prefixlen = sr.base[0];
170 return (ISC_R_RANGE);
171 isc_region_consume(&sr, 1);
172 RETERR(mem_tobuffer(target, &prefixlen, 1));
173 isc_buffer_forward(source, 1);
178 if (prefixlen != 128) {
179 octets = 16 - prefixlen / 8;
180 if (sr.length < octets)
181 return (ISC_R_UNEXPECTEDEND);
182 mask = 0xff >> (prefixlen % 8);
183 sr.base[0] &= mask; /* Ensure pad bits are zero. */
184 RETERR(mem_tobuffer(target, sr.base, octets));
185 isc_buffer_forward(source, octets);
189 return (ISC_R_SUCCESS);
191 dns_name_init(&name, NULL);
192 return (dns_name_fromwire(&name, source, dctx, options, target));
195 static inline isc_result_t
196 towire_in_a6(ARGS_TOWIRE) {
199 dns_offsets_t offsets;
200 unsigned char prefixlen;
201 unsigned char octets;
203 REQUIRE(rdata->type == dns_rdatatype_a6);
204 REQUIRE(rdata->rdclass == dns_rdataclass_in);
205 REQUIRE(rdata->length != 0);
207 dns_compress_setmethods(cctx, DNS_COMPRESS_NONE);
208 dns_rdata_toregion(rdata, &sr);
209 prefixlen = sr.base[0];
210 INSIST(prefixlen <= 128);
212 octets = 1 + 16 - prefixlen / 8;
213 RETERR(mem_tobuffer(target, sr.base, octets));
214 isc_region_consume(&sr, octets);
217 return (ISC_R_SUCCESS);
219 dns_name_init(&name, offsets);
220 dns_name_fromregion(&name, &sr);
221 return (dns_name_towire(&name, cctx, target));
225 compare_in_a6(ARGS_COMPARE) {
227 unsigned char prefixlen1, prefixlen2;
228 unsigned char octets;
231 isc_region_t region1;
232 isc_region_t region2;
234 REQUIRE(rdata1->type == rdata2->type);
235 REQUIRE(rdata1->rdclass == rdata2->rdclass);
236 REQUIRE(rdata1->type == dns_rdatatype_a6);
237 REQUIRE(rdata1->rdclass == dns_rdataclass_in);
238 REQUIRE(rdata1->length != 0);
239 REQUIRE(rdata2->length != 0);
241 dns_rdata_toregion(rdata1, ®ion1);
242 dns_rdata_toregion(rdata2, ®ion2);
243 prefixlen1 = region1.base[0];
244 prefixlen2 = region2.base[0];
245 isc_region_consume(®ion1, 1);
246 isc_region_consume(®ion2, 1);
247 if (prefixlen1 < prefixlen2)
249 else if (prefixlen1 > prefixlen2)
252 * Prefix lengths are equal.
254 octets = 16 - prefixlen1 / 8;
257 order = memcmp(region1.base, region2.base, octets);
263 * Address suffixes are equal.
267 isc_region_consume(®ion1, octets);
268 isc_region_consume(®ion2, octets);
271 dns_name_init(&name1, NULL);
272 dns_name_init(&name2, NULL);
273 dns_name_fromregion(&name1, ®ion1);
274 dns_name_fromregion(&name2, ®ion2);
275 return (dns_name_rdatacompare(&name1, &name2));
278 static inline isc_result_t
279 fromstruct_in_a6(ARGS_FROMSTRUCT) {
280 dns_rdata_in_a6_t *a6 = source;
287 REQUIRE(type == dns_rdatatype_a6);
288 REQUIRE(rdclass == dns_rdataclass_in);
289 REQUIRE(source != NULL);
290 REQUIRE(a6->common.rdtype == type);
291 REQUIRE(a6->common.rdclass == rdclass);
296 if (a6->prefixlen > 128)
297 return (ISC_R_RANGE);
299 RETERR(uint8_tobuffer(a6->prefixlen, target));
302 if (a6->prefixlen != 128) {
303 octets = 16 - a6->prefixlen / 8;
304 bits = a6->prefixlen % 8;
306 mask = 0xffU >> bits;
307 first = a6->in6_addr.s6_addr[16 - octets] & mask;
308 RETERR(uint8_tobuffer(first, target));
312 RETERR(mem_tobuffer(target,
313 a6->in6_addr.s6_addr + 16 - octets,
317 if (a6->prefixlen == 0)
318 return (ISC_R_SUCCESS);
319 dns_name_toregion(&a6->prefix, ®ion);
320 return (isc_buffer_copyregion(target, ®ion));
323 static inline isc_result_t
324 tostruct_in_a6(ARGS_TOSTRUCT) {
325 dns_rdata_in_a6_t *a6 = target;
326 unsigned char octets;
330 REQUIRE(rdata->type == dns_rdatatype_a6);
331 REQUIRE(rdata->rdclass == dns_rdataclass_in);
332 REQUIRE(target != NULL);
333 REQUIRE(rdata->length != 0);
335 a6->common.rdclass = rdata->rdclass;
336 a6->common.rdtype = rdata->type;
337 ISC_LINK_INIT(&a6->common, link);
339 dns_rdata_toregion(rdata, &r);
341 a6->prefixlen = uint8_fromregion(&r);
342 isc_region_consume(&r, 1);
343 memset(a6->in6_addr.s6_addr, 0, sizeof(a6->in6_addr.s6_addr));
348 if (a6->prefixlen != 128) {
349 octets = 16 - a6->prefixlen / 8;
350 INSIST(r.length >= octets);
351 memmove(a6->in6_addr.s6_addr + 16 - octets, r.base, octets);
352 isc_region_consume(&r, octets);
358 dns_name_init(&a6->prefix, NULL);
359 if (a6->prefixlen != 0) {
360 dns_name_init(&name, NULL);
361 dns_name_fromregion(&name, &r);
362 RETERR(name_duporclone(&name, mctx, &a6->prefix));
365 return (ISC_R_SUCCESS);
369 freestruct_in_a6(ARGS_FREESTRUCT) {
370 dns_rdata_in_a6_t *a6 = source;
372 REQUIRE(source != NULL);
373 REQUIRE(a6->common.rdclass == dns_rdataclass_in);
374 REQUIRE(a6->common.rdtype == dns_rdatatype_a6);
376 if (a6->mctx == NULL)
379 if (dns_name_dynamic(&a6->prefix))
380 dns_name_free(&a6->prefix, a6->mctx);
384 static inline isc_result_t
385 additionaldata_in_a6(ARGS_ADDLDATA) {
386 REQUIRE(rdata->type == dns_rdatatype_a6);
387 REQUIRE(rdata->rdclass == dns_rdataclass_in);
393 return (ISC_R_SUCCESS);
396 static inline isc_result_t
397 digest_in_a6(ARGS_DIGEST) {
399 unsigned char prefixlen, octets;
403 REQUIRE(rdata->type == dns_rdatatype_a6);
404 REQUIRE(rdata->rdclass == dns_rdataclass_in);
406 dns_rdata_toregion(rdata, &r1);
408 prefixlen = r1.base[0];
409 octets = 1 + 16 - prefixlen / 8;
412 result = (digest)(arg, &r1);
413 if (result != ISC_R_SUCCESS)
416 return (ISC_R_SUCCESS);
418 isc_region_consume(&r2, octets);
419 dns_name_init(&name, NULL);
420 dns_name_fromregion(&name, &r2);
421 return (dns_name_digest(&name, digest, arg));
424 static inline isc_boolean_t
425 checkowner_in_a6(ARGS_CHECKOWNER) {
427 REQUIRE(type == dns_rdatatype_a6);
428 REQUIRE(rdclass == dns_rdataclass_in);
433 return (dns_name_ishostname(name, wildcard));
436 static inline isc_boolean_t
437 checknames_in_a6(ARGS_CHECKNAMES) {
440 unsigned int prefixlen;
442 REQUIRE(rdata->type == dns_rdatatype_a6);
443 REQUIRE(rdata->rdclass == dns_rdataclass_in);
447 dns_rdata_toregion(rdata, ®ion);
448 prefixlen = uint8_fromregion(®ion);
451 isc_region_consume(®ion, 1 + 16 - prefixlen / 8);
452 dns_name_init(&name, NULL);
453 dns_name_fromregion(&name, ®ion);
454 if (!dns_name_ishostname(&name, ISC_FALSE)) {
456 dns_name_clone(&name, bad);
463 casecompare_in_a6(ARGS_COMPARE) {
464 return (compare_in_a6(rdata1, rdata2));
467 #endif /* RDATA_IN_1_A6_38_C */