/*

 * Copyright (C) Internet Systems Consortium, Inc. ("ISC")

 *

 * SPDX-License-Identifier: MPL-2.0

 *

 * This Source Code Form is subject to the terms of the Mozilla Public

 * License, v. 2.0. If a copy of the MPL was not distributed with this

 * file, you can obtain one at https://mozilla.org/MPL/2.0/.

 *

 * See the COPYRIGHT file distributed with this work for additional

 * information regarding copyright ownership.

 */

/* RFC2535 */

#ifndef RDATA_GENERIC_NXT_30_C

#define RDATA_GENERIC_NXT_30_C

/*

 * The attributes do not include DNS_RDATATYPEATTR_SINGLETON

 * because we must be able to handle a parent/child NXT pair.

 */

#define RRTYPE_NXT_ATTRIBUTES (0)

static isc_result_t

fromtext_nxt(ARGS_FROMTEXT) {

  isc_token_t token;

  isc_buffer_t buffer;

  char *e;

  unsigned char bm[8 * 1024]; /* 64k bits */

  dns_rdatatype_t covered;

  dns_rdatatype_t maxcovered = 0;

  bool first = true;

  long n;

  REQUIRE(type == dns_rdatatype_nxt);

  UNUSED(type);

  UNUSED(rdclass);

  UNUSED(callbacks);

  /*

   * Next domain.

   */

  RETERR(isc_lex_getmastertoken(lexer, &token, isc_tokentype_string,

              false));

  buffer_fromregion(&buffer, &token.value.as_region);

  if (origin == NULL) {

    origin = dns_rootname;

  }

  RETTOK(dns_name_wirefromtext(&buffer, origin, options, target));

  memset(bm, 0, sizeof(bm));

  do {

    RETERR(isc_lex_getmastertoken(lexer, &token,

                isc_tokentype_string, true));

    if (token.type != isc_tokentype_string) {

      break;

    }

    n = strtol(DNS_AS_STR(token), &e, 10);

    if (e != DNS_AS_STR(token) && *e == '\0') {

      covered = (dns_rdatatype_t)n;

    } else if (dns_rdatatype_fromtext(&covered,

              &token.value.as_textregion) ==

         DNS_R_UNKNOWN)

    {

      RETTOK(DNS_R_UNKNOWN);

    }

    /*

     * NXT is only specified for types 1..127.

     */

    if (covered < 1 || covered > 127) {

      return ISC_R_RANGE;

    }

    if (first || covered > maxcovered) {

      maxcovered = covered;

    }

    first = false;

    bm[covered / 8] |= (0x80 >> (covered % 8));

  } while (1);

  isc_lex_ungettoken(lexer, &token);

  if (first) {

    return ISC_R_SUCCESS;

  }

  n = (maxcovered + 8) / 8;

  return mem_tobuffer(target, bm, n);

}

static isc_result_t

totext_nxt(ARGS_TOTEXT) {

  isc_region_t sr;

  unsigned int i, j, opts;

  dns_name_t name;

  dns_name_t prefix;

  REQUIRE(rdata->type == dns_rdatatype_nxt);

  REQUIRE(rdata->length != 0);

  dns_name_init(&name);

  dns_name_init(&prefix);

  dns_rdata_toregion(rdata, &sr);

  dns_name_fromregion(&name, &sr);

  isc_region_consume(&sr, name_length(&name));

  opts = name_prefix(&name, tctx->origin, &prefix) ? DNS_NAME_OMITFINALDOT

               : 0;

  RETERR(dns_name_totext(&prefix, opts, target));

  for (i = 0; i < sr.length; i++) {

    if (sr.base[i] != 0) {

      for (j = 0; j < 8; j++) {

        if ((sr.base[i] & (0x80 >> j)) != 0) {

          {

            dns_rdatatype_t t = i * 8 + j;

            RETERR(str_totext(" ", target));

            if (dns_rdatatype_isknown(t)) {

              RETERR(dns_rdatatype_totext(

                t, target));

            } else {

              char buf[sizeof("6553"

                  "5")];

              snprintf(buf,

                 sizeof(buf),

                 "%u", t);

              RETERR(str_totext(

                buf, target));

            }

          }

        }

      }

    }

  }

  return ISC_R_SUCCESS;

}

static isc_result_t

fromwire_nxt(ARGS_FROMWIRE) {

  isc_region_t sr;

  dns_name_t name;

  REQUIRE(type == dns_rdatatype_nxt);

  UNUSED(type);

  UNUSED(rdclass);

  dctx = dns_decompress_setpermitted(dctx, false);

  dns_name_init(&name);

  RETERR(dns_name_fromwire(&name, source, dctx, target));

  isc_buffer_activeregion(source, &sr);

  if (sr.length > 0 && ((sr.base[0] & 0x80) != 0 || sr.length > 16 ||

            sr.base[sr.length - 1] == 0))

  {

    return DNS_R_BADBITMAP;

  }

  RETERR(mem_tobuffer(target, sr.base, sr.length));

  isc_buffer_forward(source, sr.length);

  return ISC_R_SUCCESS;

}

static isc_result_t

towire_nxt(ARGS_TOWIRE) {

  isc_region_t sr;

  dns_name_t name;

  REQUIRE(rdata->type == dns_rdatatype_nxt);

  REQUIRE(rdata->length != 0);

  dns_compress_setpermitted(cctx, false);

  dns_name_init(&name);

  dns_rdata_toregion(rdata, &sr);

  dns_name_fromregion(&name, &sr);

  isc_region_consume(&sr, name_length(&name));

  RETERR(dns_name_towire(&name, cctx, target));

  return mem_tobuffer(target, sr.base, sr.length);

}

static int

compare_nxt(ARGS_COMPARE) {

  isc_region_t r1;

  isc_region_t r2;

  dns_name_t name1;

  dns_name_t name2;

  int order;

  REQUIRE(rdata1->type == rdata2->type);

  REQUIRE(rdata1->rdclass == rdata2->rdclass);

  REQUIRE(rdata1->type == dns_rdatatype_nxt);

  REQUIRE(rdata1->length != 0);

  REQUIRE(rdata2->length != 0);

  dns_name_init(&name1);

  dns_name_init(&name2);

  dns_rdata_toregion(rdata1, &r1);

  dns_rdata_toregion(rdata2, &r2);

  dns_name_fromregion(&name1, &r1);

  dns_name_fromregion(&name2, &r2);

  order = dns_name_rdatacompare(&name1, &name2);

  if (order != 0) {

    return order;

  }

  isc_region_consume(&r1, name_length(&name1));

  isc_region_consume(&r2, name_length(&name2));

  return isc_region_compare(&r1, &r2);

}

static isc_result_t

fromstruct_nxt(ARGS_FROMSTRUCT) {

  dns_rdata_nxt_t *nxt = source;

  isc_region_t region;

  REQUIRE(type == dns_rdatatype_nxt);

  REQUIRE(nxt != NULL);

  REQUIRE(nxt->common.rdtype == type);

  REQUIRE(nxt->common.rdclass == rdclass);

  REQUIRE(nxt->typebits != NULL || nxt->len == 0);

  if (nxt->typebits != NULL && (nxt->typebits[0] & 0x80) == 0) {

    REQUIRE(nxt->len <= 16);

    REQUIRE(nxt->typebits[nxt->len - 1] != 0);

  }

  UNUSED(type);

  UNUSED(rdclass);

  dns_name_toregion(&nxt->next, &region);

  RETERR(isc_buffer_copyregion(target, &region));

  return mem_tobuffer(target, nxt->typebits, nxt->len);

}

static isc_result_t

tostruct_nxt(ARGS_TOSTRUCT) {

  isc_region_t region;

  dns_rdata_nxt_t *nxt = target;

  dns_name_t name;

  REQUIRE(rdata->type == dns_rdatatype_nxt);

  REQUIRE(nxt != NULL);

  REQUIRE(rdata->length != 0);

  DNS_RDATACOMMON_INIT(nxt, rdata->type, rdata->rdclass);

  dns_name_init(&name);

  dns_rdata_toregion(rdata, &region);

  dns_name_fromregion(&name, &region);

  isc_region_consume(&region, name_length(&name));

  dns_name_init(&nxt->next);

  name_duporclone(&name, mctx, &nxt->next);

  nxt->len = region.length;

  nxt->typebits = mem_maybedup(mctx, region.base, region.length);

  nxt->mctx = mctx;

  return ISC_R_SUCCESS;

}

static void

freestruct_nxt(ARGS_FREESTRUCT) {

  dns_rdata_nxt_t *nxt = source;

  REQUIRE(nxt != NULL);

  REQUIRE(nxt->common.rdtype == dns_rdatatype_nxt);

  if (nxt->mctx == NULL) {

    return;

  }

  dns_name_free(&nxt->next, nxt->mctx);

  if (nxt->typebits != NULL) {

    isc_mem_free(nxt->mctx, nxt->typebits);

  }

  nxt->mctx = NULL;

}

static isc_result_t

additionaldata_nxt(ARGS_ADDLDATA) {

  REQUIRE(rdata->type == dns_rdatatype_nxt);

  UNUSED(rdata);

  UNUSED(owner);

  UNUSED(add);

  UNUSED(arg);

  return ISC_R_SUCCESS;

}

static isc_result_t

digest_nxt(ARGS_DIGEST) {

  isc_region_t r;

  dns_name_t name;

  REQUIRE(rdata->type == dns_rdatatype_nxt);

  dns_rdata_toregion(rdata, &r);

  dns_name_init(&name);

  dns_name_fromregion(&name, &r);

  RETERR(dns_name_digest(&name, digest, arg));

  isc_region_consume(&r, name_length(&name));

  return (digest)(arg, &r);

}

static bool

checkowner_nxt(ARGS_CHECKOWNER) {

  REQUIRE(type == dns_rdatatype_nxt);

  UNUSED(name);

  UNUSED(type);

  UNUSED(rdclass);

  UNUSED(wildcard);

  return true;

}

static bool

checknames_nxt(ARGS_CHECKNAMES) {

  REQUIRE(rdata->type == dns_rdatatype_nxt);

  UNUSED(rdata);

  UNUSED(owner);

  UNUSED(bad);

  return true;

}

static int

casecompare_nxt(ARGS_COMPARE) {

  return compare_nxt(rdata1, rdata2);

}

#endif /* RDATA_GENERIC_NXT_30_C */