contrib/bind-9.3/lib/dns/rdata/generic/nxt_30.c

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