contrib/bind9/lib/dns/rdata/generic/nxt_30.c

   1 /*
   2  * Copyright (C) 2004, 2005, 2007, 2009, 2015  Internet Systems Consortium, Inc. ("ISC")
   3  * Copyright (C) 1999-2003  Internet Software Consortium.
   4  *
   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.
   8  *
   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.
  16  */
  17
  18 /* $Id: nxt_30.c,v 1.65 2009/12/04 22:06:37 tbox Exp $ */
  19
  20 /* reviewed: Wed Mar 15 18:21:15 PST 2000 by brister */
  21
  22 /* RFC2535 */
  23
  24 #ifndef RDATA_GENERIC_NXT_30_C
  25 #define RDATA_GENERIC_NXT_30_C
  26
  27 /*
  28  * The attributes do not include DNS_RDATATYPEATTR_SINGLETON
  29  * because we must be able to handle a parent/child NXT pair.
  30  */
  31 #define RRTYPE_NXT_ATTRIBUTES (0)
  32
  33 static inline isc_result_t
  34 fromtext_nxt(ARGS_FROMTEXT) {
  35         isc_token_t token;
  36         dns_name_t name;
  37         isc_buffer_t buffer;
  38         char *e;
  39         unsigned char bm[8*1024]; /* 64k bits */
  40         dns_rdatatype_t covered;
  41         dns_rdatatype_t maxcovered = 0;
  42         isc_boolean_t first = ISC_TRUE;
  43         long n;
  44
  45         REQUIRE(type == dns_rdatatype_nxt);
  46
  47         UNUSED(type);
  48         UNUSED(rdclass);
  49         UNUSED(callbacks);
  50
  51         /*
  52          * Next domain.
  53          */
  54         RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_string,
  55                                       ISC_FALSE));
  56         dns_name_init(&name, NULL);
  57         buffer_fromregion(&buffer, &token.value.as_region);
  58         if (origin == NULL)
  59                 origin = dns_rootname;
  60         RETTOK(dns_name_fromtext(&name, &buffer, origin, options, target));
  61
  62         memset(bm, 0, sizeof(bm));
  63         do {
  64                 RETERR(isc_lex_getmastertoken(lexer, &token,
  65                                               isc_tokentype_string, ISC_TRUE));
  66                 if (token.type != isc_tokentype_string)
  67                         break;
  68                 n = strtol(DNS_AS_STR(token), &e, 10);
  69                 if (e != DNS_AS_STR(token) && *e == '\0') {
  70                         covered = (dns_rdatatype_t)n;
  71                 } else if (dns_rdatatype_fromtext(&covered,
  72                                 &token.value.as_textregion) == DNS_R_UNKNOWN)
  73                         RETTOK(DNS_R_UNKNOWN);
  74                 /*
  75                  * NXT is only specified for types 1..127.
  76                  */
  77                 if (covered < 1 || covered > 127)
  78                         return (ISC_R_RANGE);
  79                 if (first || covered > maxcovered)
  80                         maxcovered = covered;
  81                 first = ISC_FALSE;
  82                 bm[covered/8] |= (0x80>>(covered%8));
  83         } while (1);
  84         isc_lex_ungettoken(lexer, &token);
  85         if (first)
  86                 return (ISC_R_SUCCESS);
  87         n = (maxcovered + 8) / 8;
  88         return (mem_tobuffer(target, bm, n));
  89 }
  90
  91 static inline isc_result_t
  92 totext_nxt(ARGS_TOTEXT) {
  93         isc_region_t sr;
  94         unsigned int i, j;
  95         dns_name_t name;
  96         dns_name_t prefix;
  97         isc_boolean_t sub;
  98
  99         REQUIRE(rdata->type == dns_rdatatype_nxt);
 100         REQUIRE(rdata->length != 0);
 101
 102         dns_name_init(&name, NULL);
 103         dns_name_init(&prefix, NULL);
 104         dns_rdata_toregion(rdata, &sr);
 105         dns_name_fromregion(&name, &sr);
 106         isc_region_consume(&sr, name_length(&name));
 107         sub = name_prefix(&name, tctx->origin, &prefix);
 108         RETERR(dns_name_totext(&prefix, sub, target));
 109
 110         for (i = 0; i < sr.length; i++) {
 111                 if (sr.base[i] != 0)
 112                         for (j = 0; j < 8; j++)
 113                                 if ((sr.base[i] & (0x80 >> j)) != 0) {
 114                                         dns_rdatatype_t t = i * 8 + j;
 115                                         RETERR(str_totext(" ", target));
 116                                         if (dns_rdatatype_isknown(t)) {
 117                                                 RETERR(dns_rdatatype_totext(t,
 118                                                                       target));
 119                                         } else {
 120                                                 char buf[sizeof("65535")];
 121                                                 sprintf(buf, "%u", t);
 122                                                 RETERR(str_totext(buf,
 123                                                                   target));
 124                                         }
 125                                 }
 126         }
 127         return (ISC_R_SUCCESS);
 128 }
 129
 130 static inline isc_result_t
 131 fromwire_nxt(ARGS_FROMWIRE) {
 132         isc_region_t sr;
 133         dns_name_t name;
 134
 135         REQUIRE(type == dns_rdatatype_nxt);
 136
 137         UNUSED(type);
 138         UNUSED(rdclass);
 139
 140         dns_decompress_setmethods(dctx, DNS_COMPRESS_NONE);
 141
 142         dns_name_init(&name, NULL);
 143         RETERR(dns_name_fromwire(&name, source, dctx, options, target));
 144
 145         isc_buffer_activeregion(source, &sr);
 146         if (sr.length > 0 && (sr.base[0] & 0x80) == 0 &&
 147             ((sr.length > 16) || sr.base[sr.length - 1] == 0))
 148                 return (DNS_R_BADBITMAP);
 149         RETERR(mem_tobuffer(target, sr.base, sr.length));
 150         isc_buffer_forward(source, sr.length);
 151         return (ISC_R_SUCCESS);
 152 }
 153
 154 static inline isc_result_t
 155 towire_nxt(ARGS_TOWIRE) {
 156         isc_region_t sr;
 157         dns_name_t name;
 158         dns_offsets_t offsets;
 159
 160         REQUIRE(rdata->type == dns_rdatatype_nxt);
 161         REQUIRE(rdata->length != 0);
 162
 163         dns_compress_setmethods(cctx, DNS_COMPRESS_NONE);
 164         dns_name_init(&name, offsets);
 165         dns_rdata_toregion(rdata, &sr);
 166         dns_name_fromregion(&name, &sr);
 167         isc_region_consume(&sr, name_length(&name));
 168         RETERR(dns_name_towire(&name, cctx, target));
 169
 170         return (mem_tobuffer(target, sr.base, sr.length));
 171 }
 172
 173 static inline int
 174 compare_nxt(ARGS_COMPARE) {
 175         isc_region_t r1;
 176         isc_region_t r2;
 177         dns_name_t name1;
 178         dns_name_t name2;
 179         int order;
 180
 181         REQUIRE(rdata1->type == rdata2->type);
 182         REQUIRE(rdata1->rdclass == rdata2->rdclass);
 183         REQUIRE(rdata1->type == dns_rdatatype_nxt);
 184         REQUIRE(rdata1->length != 0);
 185         REQUIRE(rdata2->length != 0);
 186
 187         dns_name_init(&name1, NULL);
 188         dns_name_init(&name2, NULL);
 189         dns_rdata_toregion(rdata1, &r1);
 190         dns_rdata_toregion(rdata2, &r2);
 191         dns_name_fromregion(&name1, &r1);
 192         dns_name_fromregion(&name2, &r2);
 193         order = dns_name_rdatacompare(&name1, &name2);
 194         if (order != 0)
 195                 return (order);
 196
 197         return (isc_region_compare(&r1, &r2));
 198 }
 199
 200 static inline isc_result_t
 201 fromstruct_nxt(ARGS_FROMSTRUCT) {
 202         dns_rdata_nxt_t *nxt = source;
 203         isc_region_t region;
 204
 205         REQUIRE(type == dns_rdatatype_nxt);
 206         REQUIRE(source != NULL);
 207         REQUIRE(nxt->common.rdtype == type);
 208         REQUIRE(nxt->common.rdclass == rdclass);
 209         REQUIRE(nxt->typebits != NULL || nxt->len == 0);
 210         if (nxt->typebits != NULL && (nxt->typebits[0] & 0x80) == 0) {
 211                 REQUIRE(nxt->len <= 16);
 212                 REQUIRE(nxt->typebits[nxt->len - 1] != 0);
 213         }
 214
 215         UNUSED(type);
 216         UNUSED(rdclass);
 217
 218         dns_name_toregion(&nxt->next, &region);
 219         RETERR(isc_buffer_copyregion(target, &region));
 220
 221         return (mem_tobuffer(target, nxt->typebits, nxt->len));
 222 }
 223
 224 static inline isc_result_t
 225 tostruct_nxt(ARGS_TOSTRUCT) {
 226         isc_region_t region;
 227         dns_rdata_nxt_t *nxt = target;
 228         dns_name_t name;
 229
 230         REQUIRE(rdata->type == dns_rdatatype_nxt);
 231         REQUIRE(target != NULL);
 232         REQUIRE(rdata->length != 0);
 233
 234         nxt->common.rdclass = rdata->rdclass;
 235         nxt->common.rdtype = rdata->type;
 236         ISC_LINK_INIT(&nxt->common, link);
 237
 238         dns_name_init(&name, NULL);
 239         dns_rdata_toregion(rdata, &region);
 240         dns_name_fromregion(&name, &region);
 241         isc_region_consume(&region, name_length(&name));
 242         dns_name_init(&nxt->next, NULL);
 243         RETERR(name_duporclone(&name, mctx, &nxt->next));
 244
 245         nxt->len = region.length;
 246         nxt->typebits = mem_maybedup(mctx, region.base, region.length);
 247         if (nxt->typebits == NULL)
 248                 goto cleanup;
 249
 250         nxt->mctx = mctx;
 251         return (ISC_R_SUCCESS);
 252
 253  cleanup:
 254         if (mctx != NULL)
 255                 dns_name_free(&nxt->next, mctx);
 256         return (ISC_R_NOMEMORY);
 257 }
 258
 259 static inline void
 260 freestruct_nxt(ARGS_FREESTRUCT) {
 261         dns_rdata_nxt_t *nxt = source;
 262
 263         REQUIRE(source != NULL);
 264         REQUIRE(nxt->common.rdtype == dns_rdatatype_nxt);
 265
 266         if (nxt->mctx == NULL)
 267                 return;
 268
 269         dns_name_free(&nxt->next, nxt->mctx);
 270         if (nxt->typebits != NULL)
 271                 isc_mem_free(nxt->mctx, nxt->typebits);
 272         nxt->mctx = NULL;
 273 }
 274
 275 static inline isc_result_t
 276 additionaldata_nxt(ARGS_ADDLDATA) {
 277         REQUIRE(rdata->type == dns_rdatatype_nxt);
 278
 279         UNUSED(rdata);
 280         UNUSED(add);
 281         UNUSED(arg);
 282
 283         return (ISC_R_SUCCESS);
 284 }
 285
 286 static inline isc_result_t
 287 digest_nxt(ARGS_DIGEST) {
 288         isc_region_t r;
 289         dns_name_t name;
 290         isc_result_t result;
 291
 292         REQUIRE(rdata->type == dns_rdatatype_nxt);
 293
 294         dns_rdata_toregion(rdata, &r);
 295         dns_name_init(&name, NULL);
 296         dns_name_fromregion(&name, &r);
 297         result = dns_name_digest(&name, digest, arg);
 298         if (result != ISC_R_SUCCESS)
 299                 return (result);
 300         isc_region_consume(&r, name_length(&name));
 301
 302         return ((digest)(arg, &r));
 303 }
 304
 305 static inline isc_boolean_t
 306 checkowner_nxt(ARGS_CHECKOWNER) {
 307
 308         REQUIRE(type == dns_rdatatype_nxt);
 309
 310         UNUSED(name);
 311         UNUSED(type);
 312         UNUSED(rdclass);
 313         UNUSED(wildcard);
 314
 315         return (ISC_TRUE);
 316 }
 317
 318 static inline isc_boolean_t
 319 checknames_nxt(ARGS_CHECKNAMES) {
 320
 321         REQUIRE(rdata->type == dns_rdatatype_nxt);
 322
 323         UNUSED(rdata);
 324         UNUSED(owner);
 325         UNUSED(bad);
 326
 327         return (ISC_TRUE);
 328 }
 329
 330 static inline int
 331 casecompare_nxt(ARGS_COMPARE) {
 332         return (compare_nxt(rdata1, rdata2));
 333 }
 334 #endif  /* RDATA_GENERIC_NXT_30_C */