/usr/src/usr.sbin/nsd/zonec.c

Bug Summary

File:	src/usr.sbin/nsd/zonec.c
Warning:	line 1249, column 19 Division by zero
Annotated Source Code

Press '?' to see keyboard shortcuts
Show analyzer invocation
clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name zonec.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/usr.sbin/nsd/obj -resource-dir /usr/local/lib/clang/13.0.0 -I . -I /usr/src/usr.sbin/nsd -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/usr.sbin/nsd/obj -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/usr.sbin/nsd/zonec.c
1/*
* zonec.c -- zone compiler.
*
* Copyright (c) 2001-2006, NLnet Labs. All rights reserved.
*
* See LICENSE for the license.
*
*/

10#include "config.h"

12#include <assert.h>
13#include <fcntl.h>
14#include <ctype.h>
15#include <errno(*__errno()).h>
16#include <limits.h>
17#include <stdio.h>
18#include <string.h>
19#ifdef HAVE_STRINGS_H1
20#include <strings.h>
21#endif
22#include <unistd.h>
23#include <stdlib.h>
24#include <time.h>
25#ifdef HAVE_SYS_STAT_H1
26#include <sys/stat.h>
27#endif

29#include <netinet/in.h>

31#ifdef HAVE_NETDB_H1
32#include <netdb.h>
33#endif

35#include "zonec.h"

37#include "dname.h"
38#include "dns.h"
39#include "namedb.h"
40#include "rdata.h"
41#include "region-allocator.h"
42#include "util.h"
43#include "zparser.h"
44#include "options.h"
45#include "nsec3.h"

47#define ILNP_MAXDIGITS4 4
48#define ILNP_NUMGROUPS4 4
49#define SVCB_MAX_COMMA_SEPARATED_VALUES1000 1000


52const dname_type *error_dname;
53domain_type *error_domain;

55static time_t startzonec = 0;
56static long int totalrrs = 0;

58extern uint8_t nsecbits[NSEC_WINDOW_COUNT256][NSEC_WINDOW_BITS_SIZE(256 / 8)];
59extern uint16_t nsec_highest_rcode;


62/*
* Allocate SIZE+sizeof(uint16_t) bytes and store SIZE in the first
* element.  Return a pointer to the allocation.
*/
66static uint16_t *
67alloc_rdata(region_type *region, size_t size)
68{
uint16_t *result = region_alloc(region, sizeof(uint16_t) + size);
*result = size;
return result;
72}

74uint16_t *
75alloc_rdata_init(region_type *region, const void *data, size_t size)
76{
uint16_t *result = region_alloc(region, sizeof(uint16_t) + size);
*result = size;
memcpy(result + 1, data, size);
return result;
81}

83/*
* These are parser function for generic zone file stuff.
*/
86uint16_t *
87zparser_conv_hex(region_type *region, const char *hex, size_t len)
88{
/* convert a hex value to wireformat */
uint16_t *r = NULL((void*)0);
uint8_t *t;
int i;

if(len == 1 && hex[0] == '0') {
/* single 0 represents empty buffer */
return alloc_rdata(region, 0);
}
if (len % 2 != 0) {
zc_error_prev_line("number of hex digits must be a multiple of 2");
} else if (len > MAX_RDLENGTH65535 * 2) {
zc_error_prev_line("hex data exceeds maximum rdata length (%d)",
		   MAX_RDLENGTH65535);
} else {
/* the length part */
r = alloc_rdata(region, len/2);
t = (uint8_t *)(r + 1);

/* Now process octet by octet... */
while (*hex) {
	*t = 0;
	for (i = 16; i >= 1; i -= 15) {
		if (isxdigit((unsigned char)*hex)) {
			*t += hexdigit_to_int(*hex) * i;
		} else {
			zc_error_prev_line(
				"illegal hex character '%c'",
				(int) *hex);
			return NULL((void*)0);
		}
		++hex;
	}
	++t;
}
}
return r;
126}

128/* convert hex, precede by a 1-byte length */
129uint16_t *
130zparser_conv_hex_length(region_type *region, const char *hex, size_t len)
131{
uint16_t *r = NULL((void*)0);
uint8_t *t;
int i;
if (len % 2 != 0) {
zc_error_prev_line("number of hex digits must be a multiple of 2");
} else if (len > 255 * 2) {
zc_error_prev_line("hex data exceeds 255 bytes");
} else {
uint8_t *l;

/* the length part */
r = alloc_rdata(region, len/2+1);
t = (uint8_t *)(r + 1);

l = t++;
*l = '\0';

/* Now process octet by octet... */
while (*hex) {
	*t = 0;
	for (i = 16; i >= 1; i -= 15) {
		if (isxdigit((unsigned char)*hex)) {
			*t += hexdigit_to_int(*hex) * i;
		} else {
			zc_error_prev_line(
				"illegal hex character '%c'",
				(int) *hex);
			return NULL((void*)0);
		}
		++hex;
	}
	++t;
	++*l;
}
}
return r;
168}

170uint16_t *
171zparser_conv_time(region_type *region, const char *time)
172{
/* convert a time YYHM to wireformat */
uint16_t *r = NULL((void*)0);
struct tm tm;

/* Try to scan the time... */
if (!strptime(time, "%Y%m%d%H%M%S", &tm)) {
zc_error_prev_line("date and time is expected");
} else {
uint32_t l = htonl(mktime_from_utc(&tm))(__uint32_t)(__builtin_constant_p(mktime_from_utc(&tm)) ?
 (__uint32_t)(((__uint32_t)(mktime_from_utc(&tm)) & 0xff
) << 24 | ((__uint32_t)(mktime_from_utc(&tm)) &
 0xff00) << 8 | ((__uint32_t)(mktime_from_utc(&tm))
 & 0xff0000) >> 8 | ((__uint32_t)(mktime_from_utc(&
tm)) & 0xff000000) >> 24) : __swap32md(mktime_from_utc
(&tm)));
r = alloc_rdata_init(region, &l, sizeof(l));
}
return r;
185}

187uint16_t *
188zparser_conv_services(region_type *region, const char *protostr,
      char *servicestr)
190{
/*
* Convert a protocol and a list of service port numbers
* (separated by spaces) in the rdata to wireformat
*/
uint16_t *r = NULL((void*)0);
uint8_t *p;
uint8_t bitmap[65536/8];
char sep[] = " ";
char *word;
int max_port = -8;
/* convert a protocol in the rdata to wireformat */
struct protoent *proto;

memset(bitmap, 0, sizeof(bitmap));

proto = getprotobyname(protostr);
if (!proto) {
proto = getprotobynumber(atoi(protostr));
}
if (!proto) {
zc_error_prev_line("unknown protocol '%s'", protostr);
return NULL((void*)0);
}

for (word = strtok(servicestr, sep); word; word = strtok(NULL((void*)0), sep)) {
struct servent *service;
int port;

service = getservbyname(word, proto->p_name);
if (service) {
	/* Note: ntohs not ntohl!  Strange but true.  */
	port = ntohs((uint16_t) service->s_port)(__uint16_t)(__builtin_constant_p((uint16_t) service->s_port
) ? (__uint16_t)(((__uint16_t)((uint16_t) service->s_port)
 & 0xffU) << 8 | ((__uint16_t)((uint16_t) service->
s_port) & 0xff00U) >> 8) : __swap16md((uint16_t) service
->s_port));
} else {
	char *end;
	port = strtol(word, &end, 10);
	if (*end != '\0') {
		zc_error_prev_line("unknown service '%s' for protocol '%s'",
				   word, protostr);
		continue;
	}
}

if (port < 0 || port > 65535) {
	zc_error_prev_line("bad port number %d", port);
} else {
	set_bit(bitmap, port);
	if (port > max_port)
		max_port = port;
}
}

r = alloc_rdata(region, sizeof(uint8_t) + max_port / 8 + 1);
p = (uint8_t *) (r + 1);
*p = proto->p_proto;
memcpy(p + 1, bitmap, *r-1);

return r;
248}

250uint16_t *
251zparser_conv_serial(region_type *region, const char *serialstr)
252{
uint16_t *r = NULL((void*)0);
uint32_t serial;
const char *t;

serial = strtoserial(serialstr, &t);
if (*t != '\0') {
zc_error_prev_line("serial is expected or serial too big");
} else {
serial = htonl(serial)(__uint32_t)(__builtin_constant_p(serial) ? (__uint32_t)(((__uint32_t
)(serial) & 0xff) << 24 | ((__uint32_t)(serial) &
 0xff00) << 8 | ((__uint32_t)(serial) & 0xff0000) >>
| ((__uint32_t)(serial) & 0xff000000) >> 24) : __swap32md
(serial));
r = alloc_rdata_init(region, &serial, sizeof(serial));
}
return r;
265}

267uint16_t *
268zparser_conv_period(region_type *region, const char *periodstr)
269{
/* convert a time period (think TTL's) to wireformat) */
uint16_t *r = NULL((void*)0);
uint32_t period;
const char *end;

/* Allocate required space... */
period = strtottl(periodstr, &end);
if (*end != '\0') {
zc_error_prev_line("time period is expected");
} else {
period = htonl(period)(__uint32_t)(__builtin_constant_p(period) ? (__uint32_t)(((__uint32_t
)(period) & 0xff) << 24 | ((__uint32_t)(period) &
 0xff00) << 8 | ((__uint32_t)(period) & 0xff0000) >>
| ((__uint32_t)(period) & 0xff000000) >> 24) : __swap32md
(period));
r = alloc_rdata_init(region, &period, sizeof(period));
}
return r;
284}

286uint16_t *
287zparser_conv_short(region_type *region, const char *text)
288{
uint16_t *r = NULL((void*)0);
uint16_t value;
char *end;

value = htons((uint16_t) strtol(text, &end, 10))(__uint16_t)(__builtin_constant_p((uint16_t) strtol(text, &
end, 10)) ? (__uint16_t)(((__uint16_t)((uint16_t) strtol(text
, &end, 10)) & 0xffU) << 8 | ((__uint16_t)((uint16_t
) strtol(text, &end, 10)) & 0xff00U) >> 8) : __swap16md
((uint16_t) strtol(text, &end, 10)));
if (*end != '\0') {
zc_error_prev_line("integer value is expected");
} else {
r = alloc_rdata_init(region, &value, sizeof(value));
}
return r;
300}

302uint16_t *
303zparser_conv_byte(region_type *region, const char *text)
304{
uint16_t *r = NULL((void*)0);
uint8_t value;
char *end;

value = (uint8_t) strtol(text, &end, 10);
if (*end != '\0') {
zc_error_prev_line("integer value is expected");
} else {
r = alloc_rdata_init(region, &value, sizeof(value));
}
return r;
316}

318uint16_t *
319zparser_conv_algorithm(region_type *region, const char *text)
320{
const lookup_table_type *alg;
uint8_t id;

alg = lookup_by_name(dns_algorithms, text);
if (alg) {
id = (uint8_t) alg->id;
} else {
char *end;
id = (uint8_t) strtol(text, &end, 10);
if (*end != '\0') {
	zc_error_prev_line("algorithm is expected");
	return NULL((void*)0);
}
}

return alloc_rdata_init(region, &id, sizeof(id));
337}

339uint16_t *
340zparser_conv_certificate_type(region_type *region, const char *text)
341{
/* convert an algorithm string to integer */
const lookup_table_type *type;
uint16_t id;

type = lookup_by_name(dns_certificate_types, text);
if (type) {
id = htons((uint16_t) type->id)(__uint16_t)(__builtin_constant_p((uint16_t) type->id) ? (
__uint16_t)(((__uint16_t)((uint16_t) type->id) & 0xffU
) << 8 | ((__uint16_t)((uint16_t) type->id) & 0xff00U
) >> 8) : __swap16md((uint16_t) type->id));
} else {
char *end;
id = htons((uint16_t) strtol(text, &end, 10))(__uint16_t)(__builtin_constant_p((uint16_t) strtol(text, &
end, 10)) ? (__uint16_t)(((__uint16_t)((uint16_t) strtol(text
, &end, 10)) & 0xffU) << 8 | ((__uint16_t)((uint16_t
) strtol(text, &end, 10)) & 0xff00U) >> 8) : __swap16md
((uint16_t) strtol(text, &end, 10)));
if (*end != '\0') {
	zc_error_prev_line("certificate type is expected");
	return NULL((void*)0);
}
}

return alloc_rdata_init(region, &id, sizeof(id));
359}

361uint16_t *
362zparser_conv_a(region_type *region, const char *text)
363{
in_addr_t address;
uint16_t *r = NULL((void*)0);

if (inet_pton(AF_INET2, text, &address) != 1) {
zc_error_prev_line("invalid IPv4 address '%s'", text);
} else {
r = alloc_rdata_init(region, &address, sizeof(address));
}
return r;
373}

375uint16_t *
376zparser_conv_aaaa(region_type *region, const char *text)
377{
uint8_t address[IP6ADDRLEN(128/8)];
uint16_t *r = NULL((void*)0);

if (inet_pton(AF_INET624, text, address) != 1) {
zc_error_prev_line("invalid IPv6 address '%s'", text);
} else {
r = alloc_rdata_init(region, address, sizeof(address));
}
return r;
387}


390uint16_t *
391zparser_conv_ilnp64(region_type *region, const char *text)
392{
uint16_t *r = NULL((void*)0);
int ngroups, num;
unsigned long hex;
const char *ch;
char digits[ILNP_MAXDIGITS4+1];
unsigned int ui[ILNP_NUMGROUPS4];
uint16_t a[ILNP_NUMGROUPS4];

ngroups = 1; /* Always at least one group */
num = 0;
for (ch = text; *ch != '\0'; ch++) {
if (*ch == ':') {
	if (num <= 0) {
		zc_error_prev_line("ilnp64: empty group of "
			"digits is not allowed");
		return NULL((void*)0);
	}
	digits[num] = '\0';
	hex = (unsigned long) strtol(digits, NULL((void*)0), 16);
	num = 0;
	ui[ngroups - 1] = hex;
	if (ngroups >= ILNP_NUMGROUPS4) {
		zc_error_prev_line("ilnp64: more than %d groups "
			"of digits", ILNP_NUMGROUPS4);
		return NULL((void*)0);
	}
	ngroups++;
} else {
	/* Our grammar is stricter than the one accepted by
	 * strtol. */
	if (!isxdigit((unsigned char)*ch)) {
		zc_error_prev_line("ilnp64: invalid "
			"(non-hexadecimal) character %c", *ch);
		return NULL((void*)0);
	}
	if (num >= ILNP_MAXDIGITS4) {
		zc_error_prev_line("ilnp64: more than %d digits "
			"in a group", ILNP_MAXDIGITS4);
		return NULL((void*)0);
	}
	digits[num++] = *ch;
}
}
if (num <= 0) {
zc_error_prev_line("ilnp64: empty group of digits is not "
	"allowed");
return NULL((void*)0);
}
digits[num] = '\0';
hex = (unsigned long) strtol(digits, NULL((void*)0), 16);
ui[ngroups - 1] = hex;
if (ngroups < 4) {
zc_error_prev_line("ilnp64: less than %d groups of digits",
	ILNP_NUMGROUPS4);
return NULL((void*)0);
}

a[0] = htons(ui[0])(__uint16_t)(__builtin_constant_p(ui[0]) ? (__uint16_t)(((__uint16_t
)(ui[0]) & 0xffU) << 8 | ((__uint16_t)(ui[0]) &
 0xff00U) >> 8) : __swap16md(ui[0]));
a[1] = htons(ui[1])(__uint16_t)(__builtin_constant_p(ui[1]) ? (__uint16_t)(((__uint16_t
)(ui[1]) & 0xffU) << 8 | ((__uint16_t)(ui[1]) &
 0xff00U) >> 8) : __swap16md(ui[1]));
a[2] = htons(ui[2])(__uint16_t)(__builtin_constant_p(ui[2]) ? (__uint16_t)(((__uint16_t
)(ui[2]) & 0xffU) << 8 | ((__uint16_t)(ui[2]) &
 0xff00U) >> 8) : __swap16md(ui[2]));
a[3] = htons(ui[3])(__uint16_t)(__builtin_constant_p(ui[3]) ? (__uint16_t)(((__uint16_t
)(ui[3]) & 0xffU) << 8 | ((__uint16_t)(ui[3]) &
 0xff00U) >> 8) : __swap16md(ui[3]));
r = alloc_rdata_init(region, a, sizeof(a));
return r;
456}

458static uint16_t *
459zparser_conv_eui48(region_type *region, const char *text)
460{
uint8_t nums[6];
uint16_t *r = NULL((void*)0);
unsigned int a, b, c, d, e, f;
int l;

if (sscanf(text, "%2x-%2x-%2x-%2x-%2x-%2x%n",
&a, &b, &c, &d, &e, &f, &l) != 6 ||
l != (int)strlen(text)){
zc_error_prev_line("eui48: invalid rr");
return NULL((void*)0);
}
nums[0] = (uint8_t)a;
nums[1] = (uint8_t)b;
nums[2] = (uint8_t)c;
nums[3] = (uint8_t)d;
nums[4] = (uint8_t)e;
nums[5] = (uint8_t)f;
r = alloc_rdata_init(region, nums, sizeof(nums));
return r;
480}

482static uint16_t *
483zparser_conv_eui64(region_type *region, const char *text)
484{
uint8_t nums[8];
uint16_t *r = NULL((void*)0);
unsigned int a, b, c, d, e, f, g, h;
int l;
if (sscanf(text, "%2x-%2x-%2x-%2x-%2x-%2x-%2x-%2x%n",
&a, &b, &c, &d, &e, &f, &g, &h, &l) != 8 ||
l != (int)strlen(text)) {
zc_error_prev_line("eui64: invalid rr");
return NULL((void*)0);
}
nums[0] = (uint8_t)a;
nums[1] = (uint8_t)b;
nums[2] = (uint8_t)c;
nums[3] = (uint8_t)d;
nums[4] = (uint8_t)e;
nums[5] = (uint8_t)f;
nums[6] = (uint8_t)g;
nums[7] = (uint8_t)h;
r = alloc_rdata_init(region, nums, sizeof(nums));
return r;
505}

507uint16_t *
508zparser_conv_eui(region_type *region, const char *text, size_t len)
509{
uint16_t *r = NULL((void*)0);
int nnum, num;
const char* ch;

nnum = len/8;
num = 1;
for (ch = text; *ch != '\0'; ch++) {
if (*ch == '-') {
	num++;
} else if (!isxdigit((unsigned char)*ch)) {
	zc_error_prev_line("eui%u: invalid (non-hexadecimal) "
		"character %c", (unsigned) len, *ch);
	return NULL((void*)0);
}
}
if (num != nnum) {
zc_error_prev_line("eui%u: wrong number of hex numbers",
	(unsigned) len);
return NULL((void*)0);
}

switch (len) {
case 48:
	r = zparser_conv_eui48(region, text);
	break;
case 64:
	r = zparser_conv_eui64(region, text);
break;
default:
	zc_error_prev_line("eui%u: invalid length",
		(unsigned) len);
	return NULL((void*)0);
	break;
}
return r;
545}

547uint16_t *
548zparser_conv_text(region_type *region, const char *text, size_t len)
549{
uint16_t *r = NULL((void*)0);
uint8_t *p;

if (len > 255) {
zc_error_prev_line("text string is longer than 255 characters,"
		   " try splitting it into multiple parts");
len = 255;
}
r = alloc_rdata(region, len + 1);
p = (uint8_t *) (r + 1);
*p = len;
memcpy(p + 1, text, len);
return r;
563}

565/* for CAA Value [RFC 6844] */
566uint16_t *
567zparser_conv_long_text(region_type *region, const char *text, size_t len)
568{
uint16_t *r = NULL((void*)0);
if (len > MAX_RDLENGTH65535) {
zc_error_prev_line("text string is longer than max rdlen");
return NULL((void*)0);
}
r = alloc_rdata_init(region, text, len);
return r;
576}

578/* for CAA Tag [RFC 6844] */
579uint16_t *
580zparser_conv_tag(region_type *region, const char *text, size_t len)
581{
uint16_t *r = NULL((void*)0);
uint8_t *p;
const char* ptr;

if (len < 1) {
zc_error_prev_line("invalid tag: zero length");
return NULL((void*)0);
}
if (len > 15) {
zc_error_prev_line("invalid tag %s: longer than 15 characters (%u)",
	text, (unsigned) len);
return NULL((void*)0);
}
for (ptr = text; *ptr; ptr++) {
if (!isdigit((unsigned char)*ptr) && !islower((unsigned char)*ptr)) {
	zc_error_prev_line("invalid tag %s: contains invalid char %c",
		text, *ptr);
	return NULL((void*)0);
}
}
r = alloc_rdata(region, len + 1);
p = (uint8_t *) (r + 1);
*p = len;
memmove(p + 1, text, len);
return r;
607}

609uint16_t *
610zparser_conv_dns_name(region_type *region, const uint8_t* name, size_t len)
611{
uint16_t* r = NULL((void*)0);
uint8_t* p = NULL((void*)0);
r = alloc_rdata(region, len);
p = (uint8_t *) (r + 1);
memcpy(p, name, len);

return r;
619}

621uint16_t *
622zparser_conv_b32(region_type *region, const char *b32)
623{
uint8_t buffer[B64BUFSIZE65535];
uint16_t *r = NULL((void*)0);
int i;

if(strcmp(b32, "-") == 0) {
return alloc_rdata_init(region, "", 1);
}
i = b32_pton(b32, buffer+1, B64BUFSIZE65535-1);
if (i == -1 || i > 255) {
zc_error_prev_line("invalid base32 data");
} else {
buffer[0] = i; /* store length byte */
r = alloc_rdata_init(region, buffer, i+1);
}
return r;
639}

641uint16_t *
642zparser_conv_b64(region_type *region, const char *b64)
643{
uint8_t buffer[B64BUFSIZE65535];
uint16_t *r = NULL((void*)0);
int i;

if(strcmp(b64, "0") == 0) {
/* single 0 represents empty buffer */
return alloc_rdata(region, 0);
}
i = __b64_pton(b64, buffer, B64BUFSIZE65535);
if (i == -1) {
zc_error_prev_line("invalid base64 data");
} else {
r = alloc_rdata_init(region, buffer, i);
}
return r;
659}

661uint16_t *
662zparser_conv_rrtype(region_type *region, const char *text)
663{
uint16_t *r = NULL((void*)0);
uint16_t type = rrtype_from_string(text);

if (type == 0) {
zc_error_prev_line("unrecognized RR type '%s'", text);
} else {
type = htons(type)(__uint16_t)(__builtin_constant_p(type) ? (__uint16_t)(((__uint16_t
)(type) & 0xffU) << 8 | ((__uint16_t)(type) & 0xff00U
) >> 8) : __swap16md(type));
r = alloc_rdata_init(region, &type, sizeof(type));
}
return r;
674}

676uint16_t *
677zparser_conv_nxt(region_type *region, uint8_t nxtbits[])
678{
/* nxtbits[] consists of 16 bytes with some zero's in it
* copy every byte with zero to r and write the length in
* the first byte
*/
uint16_t i;
uint16_t last = 0;

for (i = 0; i < 16; i++) {
if (nxtbits[i] != 0)
	last = i + 1;
}

return alloc_rdata_init(region, nxtbits, last);
692}


695/* we potentially have 256 windows, each one is numbered. empty ones
* should be discarded
*/
698uint16_t *
699zparser_conv_nsec(region_type *region,
  uint8_t nsecbits[NSEC_WINDOW_COUNT256][NSEC_WINDOW_BITS_SIZE(256 / 8)])
701{
/* nsecbits contains up to 64K of bits which represent the
* types available for a name. Walk the bits according to
* nsec++ draft from jakob
*/
uint16_t *r;
uint8_t *ptr;
size_t i,j;
uint16_t window_count = 0;
uint16_t total_size = 0;
uint16_t window_max = 0;

/* The used windows.  */
int used[NSEC_WINDOW_COUNT256];
/* The last byte used in each the window.  */
int size[NSEC_WINDOW_COUNT256];

window_max = 1 + (nsec_highest_rcode / 256);

/* used[i] is the i-th window included in the nsec
* size[used[0]] is the size of window 0
*/

/* walk through the 256 windows */
for (i = 0; i < window_max; ++i) {
int empty_window = 1;
/* check each of the 32 bytes */
for (j = 0; j < NSEC_WINDOW_BITS_SIZE(256 / 8); ++j) {
	if (nsecbits[i][j] != 0) {
		size[i] = j + 1;
		empty_window = 0;
	}
}
if (!empty_window) {
	used[window_count] = i;
	window_count++;
}
}

for (i = 0; i < window_count; ++i) {
total_size += sizeof(uint16_t) + size[used[i]];
}

r = alloc_rdata(region, total_size);
ptr = (uint8_t *) (r + 1);

/* now walk used and copy it */
for (i = 0; i < window_count; ++i) {
ptr[0] = used[i];
ptr[1] = size[used[i]];
memcpy(ptr + 2, &nsecbits[used[i]], size[used[i]]);
ptr += size[used[i]] + 2;
}

return r;
756}

758static uint16_t
759svcbparam_lookup_key(const char *key, size_t key_len)
760{
char buf[64];
char *endptr;
unsigned long int key_value;

if (key_len >= 4  && key_len <= 8 && !strncmp(key, "key", 3)) {
memcpy(buf, key + 3, key_len - 3);
buf[key_len - 3] = 0;
key_value = strtoul(buf, &endptr, 10);
if (endptr > buf	/* digits seen */
&& *endptr == 0		/* no non-digit chars after digits */
&&  key_value <= 65535)	/* no overflow */
	return key_value;

} else switch (key_len) {
case sizeof("mandatory")-1:
if (!strncmp(key, "mandatory", sizeof("mandatory")-1))
	return SVCB_KEY_MANDATORY0;
if (!strncmp(key, "echconfig", sizeof("echconfig")-1))
	return SVCB_KEY_ECH5; /* allow "echconfig as well as "ech" */
break;

case sizeof("alpn")-1:
if (!strncmp(key, "alpn", sizeof("alpn")-1))
	return SVCB_KEY_ALPN1;
if (!strncmp(key, "port", sizeof("port")-1))
	return SVCB_KEY_PORT3;
break;

case sizeof("no-default-alpn")-1:
if (!strncmp( key  , "no-default-alpn"
            , sizeof("no-default-alpn")-1))
	return SVCB_KEY_NO_DEFAULT_ALPN2;
break;

case sizeof("ipv4hint")-1:
if (!strncmp(key, "ipv4hint", sizeof("ipv4hint")-1))
	return SVCB_KEY_IPV4HINT4;
if (!strncmp(key, "ipv6hint", sizeof("ipv6hint")-1))
	return SVCB_KEY_IPV6HINT6;
break;
case sizeof("ech")-1:
if (!strncmp(key, "ech", sizeof("ech")-1))
	return SVCB_KEY_ECH5;
break;
default:
break;
}
if (key_len > sizeof(buf) - 1)
zc_error_prev_line("Unknown SvcParamKey");
else {
memcpy(buf, key, key_len);
buf[key_len] = 0;
zc_error_prev_line("Unknown SvcParamKey: %s", buf);
}
/* Although the returned value might be used by the caller,
* the parser has erred, so the zone will not be loaded.
*/
return -1;
819}

821static uint16_t *
822zparser_conv_svcbparam_port_value(region_type *region, const char *val)
823{
unsigned long int port;
char *endptr;
uint16_t *r;

port = strtoul(val, &endptr, 10);
if (endptr > val	/* digits seen */
&& *endptr == 0		/* no non-digit chars after digits */
&&  port <= 65535) {	/* no overflow */

r = alloc_rdata(region, 3 * sizeof(uint16_t));
r[1] = htons(SVCB_KEY_PORT)(__uint16_t)(__builtin_constant_p(3) ? (__uint16_t)(((__uint16_t
)(3) & 0xffU) << 8 | ((__uint16_t)(3) & 0xff00U
) >> 8) : __swap16md(3));
r[2] = htons(sizeof(uint16_t))(__uint16_t)(__builtin_constant_p(sizeof(uint16_t)) ? (__uint16_t
)(((__uint16_t)(sizeof(uint16_t)) & 0xffU) << 8 | (
(__uint16_t)(sizeof(uint16_t)) & 0xff00U) >> 8) : __swap16md
(sizeof(uint16_t)));
r[3] = htons(port)(__uint16_t)(__builtin_constant_p(port) ? (__uint16_t)(((__uint16_t
)(port) & 0xffU) << 8 | ((__uint16_t)(port) & 0xff00U
) >> 8) : __swap16md(port));
return r;
}
zc_error_prev_line("Could not parse port SvcParamValue: \"%s\"", val);
return NULL((void*)0);
841}

843static uint16_t *
844zparser_conv_svcbparam_ipv4hint_value(region_type *region, const char *val)
845{
uint16_t *r;
int count;
char ip_str[INET_ADDRSTRLEN16+1];
char *next_ip_str;
uint32_t *ip_wire_dst;
size_t i;

for (i = 0, count = 1; val[i]; i++) {
if (val[i] == ',')
	count += 1;
if (count > SVCB_MAX_COMMA_SEPARATED_VALUES1000) {
	zc_error_prev_line("Too many IPV4 addresses in ipv4hint");
	return NULL((void*)0);
}
}

/* count == number of comma's in val + 1, so the actual number of IPv4
* addresses in val
*/
r = alloc_rdata(region, 2 * sizeof(uint16_t) + IP4ADDRLEN(32/8) * count);
r[1] = htons(SVCB_KEY_IPV4HINT)(__uint16_t)(__builtin_constant_p(4) ? (__uint16_t)(((__uint16_t
)(4) & 0xffU) << 8 | ((__uint16_t)(4) & 0xff00U
) >> 8) : __swap16md(4));
r[2] = htons(IP4ADDRLEN * count)(__uint16_t)(__builtin_constant_p((32/8) * count) ? (__uint16_t
)(((__uint16_t)((32/8) * count) & 0xffU) << 8 | ((__uint16_t
)((32/8) * count) & 0xff00U) >> 8) : __swap16md((32
/8) * count));
ip_wire_dst = (void *)&r[3];

while (count) {
if (!(next_ip_str = strchr(val, ','))) {
	if (inet_pton(AF_INET2, val, ip_wire_dst) != 1)
		break;

	assert(count == 1)((void)0);

} else if (next_ip_str - val >= (int)sizeof(ip_str))
	break;

else {
	memcpy(ip_str, val, next_ip_str - val);
	ip_str[next_ip_str - val] = 0;
	if (inet_pton(AF_INET2, ip_str, ip_wire_dst) != 1) {
		val = ip_str; /* to use in error reporting below */
		break;
	}

	val = next_ip_str + 1;
}
ip_wire_dst++;
count--;
}
if (count)
zc_error_prev_line("Could not parse ipv4hint SvcParamValue: %s", val);

return r;
897}

899static uint16_t *
900zparser_conv_svcbparam_ipv6hint_value(region_type *region, const char *val)
901{
uint16_t *r;
int i, count;
char ip6_str[INET6_ADDRSTRLEN46+1];
char *next_ip6_str;
uint8_t *ipv6_wire_dst;

for (i = 0, count = 1; val[i]; i++) {
if (val[i] == ',')
	count += 1;
if (count > SVCB_MAX_COMMA_SEPARATED_VALUES1000) {
	zc_error_prev_line("Too many IPV6 addresses in ipv6hint");
	return NULL((void*)0);
}
}

/* count == number of comma's in val + 1 
* so actually the number of IPv6 addresses in val
*/
r = alloc_rdata(region, 2 * sizeof(uint16_t) + IP6ADDRLEN(128/8) * count);
r[1] = htons(SVCB_KEY_IPV6HINT)(__uint16_t)(__builtin_constant_p(6) ? (__uint16_t)(((__uint16_t
)(6) & 0xffU) << 8 | ((__uint16_t)(6) & 0xff00U
) >> 8) : __swap16md(6));
r[2] = htons(IP6ADDRLEN * count)(__uint16_t)(__builtin_constant_p((128/8) * count) ? (__uint16_t
)(((__uint16_t)((128/8) * count) & 0xffU) << 8 | ((
__uint16_t)((128/8) * count) & 0xff00U) >> 8) : __swap16md
((128/8) * count));
ipv6_wire_dst = (void *)&r[3];

while (count) {
if (!(next_ip6_str = strchr(val, ','))) {
	if ((inet_pton(AF_INET624, val, ipv6_wire_dst) != 1))
		break;

	assert(count == 1)((void)0);

} else if (next_ip6_str - val >= (int)sizeof(ip6_str))
	break;

else {
	memcpy(ip6_str, val, next_ip6_str - val);
	ip6_str[next_ip6_str - val] = 0;
	if (inet_pton(AF_INET624, ip6_str, ipv6_wire_dst) != 1) {
		val = ip6_str; /* for error reporting below */
		break;
	}

	val = next_ip6_str + 1; /* skip the comma */
}
ipv6_wire_dst += IP6ADDRLEN(128/8);
count--;
}
if (count)
zc_error_prev_line("Could not parse ipv6hint SvcParamValue: %s", val);

return r;
952}

954static int
955network_uint16_cmp(const void *a, const void *b)
956{
return ((int)read_uint16(a)) - ((int)read_uint16(b));
958}

960static uint16_t *
961zparser_conv_svcbparam_mandatory_value(region_type *region,
const char *val, size_t val_len)
963{
uint16_t *r;
size_t i, count;
char* next_key;
uint16_t* key_dst;

for (i = 0, count = 1; val[i]; i++) {
if (val[i] == ',')
	count += 1;
if (count > SVCB_MAX_COMMA_SEPARATED_VALUES1000) {
	zc_error_prev_line("Too many keys in mandatory");
	return NULL((void*)0);
}
}

r = alloc_rdata(region, (2 + count) * sizeof(uint16_t));
r[1] = htons(SVCB_KEY_MANDATORY)(__uint16_t)(__builtin_constant_p(0) ? (__uint16_t)(((__uint16_t
)(0) & 0xffU) << 8 | ((__uint16_t)(0) & 0xff00U
) >> 8) : __swap16md(0));
r[2] = htons(sizeof(uint16_t) * count)(__uint16_t)(__builtin_constant_p(sizeof(uint16_t) * count) ?
 (__uint16_t)(((__uint16_t)(sizeof(uint16_t) * count) & 0xffU
) << 8 | ((__uint16_t)(sizeof(uint16_t) * count) & 0xff00U
) >> 8) : __swap16md(sizeof(uint16_t) * count));
key_dst = (void *)&r[3];

for(;;) {
if (!(next_key = strchr(val, ','))) {
	*key_dst = htons(svcbparam_lookup_key(val, val_len))(__uint16_t)(__builtin_constant_p(svcbparam_lookup_key(val, val_len
)) ? (__uint16_t)(((__uint16_t)(svcbparam_lookup_key(val, val_len
)) & 0xffU) << 8 | ((__uint16_t)(svcbparam_lookup_key
(val, val_len)) & 0xff00U) >> 8) : __swap16md(svcbparam_lookup_key
(val, val_len)));
	break;	
} else {
	*key_dst = htons(svcbparam_lookup_key(val, next_key - val))(__uint16_t)(__builtin_constant_p(svcbparam_lookup_key(val, next_key
 - val)) ? (__uint16_t)(((__uint16_t)(svcbparam_lookup_key(val
, next_key - val)) & 0xffU) << 8 | ((__uint16_t)(svcbparam_lookup_key
(val, next_key - val)) & 0xff00U) >> 8) : __swap16md
(svcbparam_lookup_key(val, next_key - val)));
}

val_len -= next_key - val + 1;
val = next_key + 1; /* skip the comma */
key_dst += 1;
}

/* In draft-ietf-dnsop-svcb-https-04 Section 7:
*
*     In wire format, the keys are represented by their numeric
*     values in network byte order, concatenated in ascending order.
*/
qsort((void *)&r[3], count, sizeof(uint16_t), network_uint16_cmp);

return r;
1004}

1006static uint16_t *
1007zparser_conv_svcbparam_ech_value(region_type *region, const char *b64)
1008{
uint8_t buffer[B64BUFSIZE65535];
uint16_t *r = NULL((void*)0);
int wire_len;

if(strcmp(b64, "0") == 0) {
/* single 0 represents empty buffer */
return alloc_rdata(region, 0);
}
wire_len = __b64_pton(b64, buffer, B64BUFSIZE65535);
if (wire_len == -1) {
zc_error_prev_line("invalid base64 data in ech");
} else {
r = alloc_rdata(region, 2 * sizeof(uint16_t) + wire_len);
r[1] = htons(SVCB_KEY_ECH)(__uint16_t)(__builtin_constant_p(5) ? (__uint16_t)(((__uint16_t
)(5) & 0xffU) << 8 | ((__uint16_t)(5) & 0xff00U
) >> 8) : __swap16md(5));
r[2] = htons(wire_len)(__uint16_t)(__builtin_constant_p(wire_len) ? (__uint16_t)(((
__uint16_t)(wire_len) & 0xffU) << 8 | ((__uint16_t)
(wire_len) & 0xff00U) >> 8) : __swap16md(wire_len));
memcpy(&r[3], buffer, wire_len);
}

return r;
1028}

1030static const char* parse_alpn_next_unescaped_comma(const char *val)
1031{
while (*val) {
/* Only return when the comma is not escaped*/
if (*val == '\\'){
	++val;
	if (!*val)
		break;
} else if (*val == ',')
		return val;

val++;
}
return NULL((void*)0);
1044}

1046static size_t
1047parse_alpn_copy_unescaped(uint8_t *dst, const char *src, size_t len)
1048{
uint8_t *orig_dst = dst;

while (len) {
if (*src == '\\') {
	src++;
	len--;
	if (!len)
		break;
}
*dst++ = *src++;
len--;
}
return (size_t)(dst - orig_dst);
1062}

1064static uint16_t *
1065zparser_conv_svcbparam_alpn_value(region_type *region,
const char *val, size_t val_len)
1067{
uint8_t     unescaped_dst[65536];
uint8_t    *dst = unescaped_dst;
const char *next_str;
size_t      str_len;
size_t      dst_len;
uint16_t   *r = NULL((void*)0);

if (val_len > sizeof(unescaped_dst)) {
zc_error_prev_line("invalid alpn");
return r;
}
while (val_len) {
size_t dst_len;

str_len = (next_str = parse_alpn_next_unescaped_comma(val))
        ? (size_t)(next_str - val) : val_len;

if (str_len > 255) {
	zc_error_prev_line("alpn strings need to be"
			   " smaller than 255 chars");
	return r;
}
dst_len = parse_alpn_copy_unescaped(dst + 1, val, str_len);
*dst++ = dst_len;
 dst  += dst_len;

if (!next_str)
	break;

/* skip the comma for the next iteration */
val_len -= next_str - val + 1;
val = next_str + 1;
}
dst_len = dst - unescaped_dst;
r = alloc_rdata(region, 2 * sizeof(uint16_t) + dst_len);
r[1] = htons(SVCB_KEY_ALPN)(__uint16_t)(__builtin_constant_p(1) ? (__uint16_t)(((__uint16_t
)(1) & 0xffU) << 8 | ((__uint16_t)(1) & 0xff00U
) >> 8) : __swap16md(1));
r[2] = htons(dst_len)(__uint16_t)(__builtin_constant_p(dst_len) ? (__uint16_t)(((__uint16_t
)(dst_len) & 0xffU) << 8 | ((__uint16_t)(dst_len) &
 0xff00U) >> 8) : __swap16md(dst_len));
memcpy(&r[3], unescaped_dst, dst_len);
return r;
1107}

1109static uint16_t *
1110zparser_conv_svcbparam_key_value(region_type *region,
  const char *key, size_t key_len, const char *val, size_t val_len)
1112{
uint16_t svcparamkey = svcbparam_lookup_key(key, key_len);
uint16_t *r;

switch (svcparamkey) {
case SVCB_KEY_PORT3:
return zparser_conv_svcbparam_port_value(region, val);
case SVCB_KEY_IPV4HINT4:
return zparser_conv_svcbparam_ipv4hint_value(region, val);
case SVCB_KEY_IPV6HINT6:
return zparser_conv_svcbparam_ipv6hint_value(region, val);
case SVCB_KEY_MANDATORY0:
return zparser_conv_svcbparam_mandatory_value(region, val, val_len);
case SVCB_KEY_NO_DEFAULT_ALPN2:
if(zone_is_slave(parser->current_zone->opts))
	zc_warning_prev_line("no-default-alpn should not have a value");
else
	zc_error_prev_line("no-default-alpn should not have a value");
break;
case SVCB_KEY_ECH5:
return zparser_conv_svcbparam_ech_value(region, val);
case SVCB_KEY_ALPN1:
return zparser_conv_svcbparam_alpn_value(region, val, val_len);
default:
break;
}
r = alloc_rdata(region, 2 * sizeof(uint16_t) + val_len);
r[1] = htons(svcparamkey)(__uint16_t)(__builtin_constant_p(svcparamkey) ? (__uint16_t)
(((__uint16_t)(svcparamkey) & 0xffU) << 8 | ((__uint16_t
)(svcparamkey) & 0xff00U) >> 8) : __swap16md(svcparamkey
));
r[2] = htons(val_len)(__uint16_t)(__builtin_constant_p(val_len) ? (__uint16_t)(((__uint16_t
)(val_len) & 0xffU) << 8 | ((__uint16_t)(val_len) &
 0xff00U) >> 8) : __swap16md(val_len));
memcpy(r + 3, val, val_len);
return r;
1143}

1145uint16_t *
1146zparser_conv_svcbparam(region_type *region, const char *key, size_t key_len
                                        , const char *val, size_t val_len)
1148{
const char *eq;
uint16_t *r;
uint16_t svcparamkey;

/* Form <key>="<value>" (or at least with quoted value) */
if (val && val_len) {
/* Does key end with '=' */
if (key_len && key[key_len - 1] == '=')
	return zparser_conv_svcbparam_key_value(
	    region, key, key_len - 1, val, val_len);

zc_error_prev_line( "SvcParam syntax error in param: %s\"%s\""
                  , key, val);
}
assert(val == NULL)((void)0);
if ((eq = memchr(key, '=', key_len))) {
size_t new_key_len = eq - key;

if (key_len - new_key_len - 1 > 0)
	return zparser_conv_svcbparam_key_value(region,
	    key, new_key_len, eq+1, key_len - new_key_len - 1);
key_len = new_key_len;
}
/* Some SvcParamKeys require values */
svcparamkey = svcbparam_lookup_key(key, key_len);
switch (svcparamkey) {
case SVCB_KEY_MANDATORY0:
case SVCB_KEY_ALPN1:
case SVCB_KEY_PORT3:
case SVCB_KEY_IPV4HINT4:
case SVCB_KEY_IPV6HINT6:
	if(zone_is_slave(parser->current_zone->opts))
		zc_warning_prev_line("value expected for SvcParam: %s", key);
	else
		zc_error_prev_line("value expected for SvcParam: %s", key);
	break;
default:
	break;
}
/* SvcParam is only a SvcParamKey */
r = alloc_rdata(region, 2 * sizeof(uint16_t));
r[1] = htons(svcparamkey)(__uint16_t)(__builtin_constant_p(svcparamkey) ? (__uint16_t)
(((__uint16_t)(svcparamkey) & 0xffU) << 8 | ((__uint16_t
)(svcparamkey) & 0xff00U) >> 8) : __swap16md(svcparamkey
));
r[2] = 0;
return r;
1193}

1195/* Parse an int terminated in the specified range. */
1196static int
1197parse_int(const char *str,
 char **end,
 int *result,
 const char *name,
 int min,
 int max)
1203{
*result = (int) strtol(str, end, 10);
if (*result < min || *result > max) {
zc_error_prev_line("%s must be within the range [%d .. %d]",
		   name,
		   min,
		   max);
return 0;
} else {
return 1;
}
1214}

1216/* RFC1876 conversion routines */
1217static unsigned int poweroften[10] = {1, 10, 100, 1000, 10000, 100000,
		1000000,10000000,100000000,1000000000};

1220/*
* Converts ascii size/precision X * 10**Y(cm) to 0xXY.
* Sets the given pointer to the last used character.
*
*/
1225static uint8_t
1226precsize_aton (char *cp, char **endptr)
1227{
unsigned int mval = 0, cmval = 0;
uint8_t retval = 0;
int exponent;
int mantissa;

while (isdigit((unsigned char)*cp))
38
←
Loop condition is false. Execution continues on line 1236→
mval = mval * 10 + hexdigit_to_int(*cp++);

if (*cp == '.') {	/* centimeters */
39
←
Assuming the condition is false→
40
←
Taking false branch→
cp++;
if (isdigit((unsigned char)*cp)) {
	cmval = hexdigit_to_int(*cp++) * 10;
	if (isdigit((unsigned char)*cp)) {
		cmval += hexdigit_to_int(*cp++);
	}
}
}

if(mval >= poweroften[7]) {
41
←
Assuming the condition is true→
42
←
Taking true branch→
assert(poweroften[7] != 0)((void)0);
/* integer overflow possible for *100 */
mantissa = mval / poweroften[7];
43
←
Division by zero
exponent = 9; /* max */
}
else {
cmval = (mval * 100) + cmval;

for (exponent = 0; exponent < 9; exponent++)
	if (cmval < poweroften[exponent+1])
		break;

assert(poweroften[exponent] != 0)((void)0);
mantissa = cmval / poweroften[exponent];
}
if (mantissa > 9)
mantissa = 9;

retval = (mantissa << 4) | exponent;

if (*cp == 'm') cp++;

*endptr = cp;

return (retval);
1272}

1274/*
* Parses a specific part of rdata.
*
* Returns:
*
*	number of elements parsed
*	zero on error
*
*/
1283uint16_t *
1284zparser_conv_loc(region_type *region, char *str)
1285{
uint16_t *r;
uint32_t *p;
int i;
int deg, min, secs;	/* Secs is stored times 1000.  */
uint32_t lat = 0, lon = 0, alt = 0;
/* encoded defaults: version=0 sz=1m hp=10000m vp=10m */
uint8_t vszhpvp[4] = {0, 0x12, 0x16, 0x13};
char *start;
double d;

for(;;) {
1
Loop condition is true.  Entering loop body→
11
←
Loop condition is true.  Entering loop body→
deg = min = secs = 0;

/* Degrees */
if (*str == '\0') {
2
←
Assuming the condition is false→
3
←
Taking false branch→
12
←
Assuming the condition is false→
13
←
Taking false branch→
	zc_error_prev_line("unexpected end of LOC data");
	return NULL((void*)0);
}

if (!parse_int(str, &str, &deg, "degrees", 0, 180))
4
←
Taking false branch→
14
←
Taking false branch→
	return NULL((void*)0);
if (!isspace((unsigned char)*str)) {
5
←
Taking false branch→
15
←
Taking false branch→
	zc_error_prev_line("space expected after degrees");
	return NULL((void*)0);
}
++str;

/* Minutes? */
if (isdigit((unsigned char)*str)) {
6
←
Taking false branch→
16
←
Taking false branch→
	if (!parse_int(str, &str, &min, "minutes", 0, 60))
		return NULL((void*)0);
	if (!isspace((unsigned char)*str)) {
		zc_error_prev_line("space expected after minutes");
		return NULL((void*)0);
	}
	++str;
}

/* Seconds? */
if (isdigit((unsigned char)*str)) {
7
←
Taking false branch→
17
←
Taking false branch→
	start = str;
	if (!parse_int(str, &str, &i, "seconds", 0, 60)) {
		return NULL((void*)0);
	}

	if (*str == '.' && !parse_int(str + 1, &str, &i, "seconds fraction", 0, 999)) {
		return NULL((void*)0);
	}

	if (!isspace((unsigned char)*str)) {
		zc_error_prev_line("space expected after seconds");
		return NULL((void*)0);
	}
	/* No need for precision specifiers, it's a double */
	if (sscanf(start, "%lf", &d) != 1) {
		zc_error_prev_line("error parsing seconds");
	}

	if (d < 0.0 || d > 60.0) {
		zc_error_prev_line("seconds not in range 0.0 .. 60.0");
	}

	secs = (int) (d * 1000.0 + 0.5);
	++str;
}

switch(*str) {
8
←
Control jumps to 'case 119:'  at line 1366→
18
←
Control jumps to 'case 110:'  at line 1354→
case 'N':
case 'n':
	lat = ((uint32_t)1<<31) + (deg * 3600000 + min * 60000 + secs);
	break;
19
←
 Execution continues on line 1373→
case 'E':
case 'e':
	lon = ((uint32_t)1<<31) + (deg * 3600000 + min * 60000 + secs);
	break;
case 'S':
case 's':
	lat = ((uint32_t)1<<31) - (deg * 3600000 + min * 60000 + secs);
	break;
case 'W':
case 'w':
	lon = ((uint32_t)1<<31) - (deg * 3600000 + min * 60000 + secs);
	break;
9
←
 Execution continues on line 1373→
default:
	zc_error_prev_line("invalid latitude/longtitude: '%c'", *str);
	return NULL((void*)0);
}
++str;

if (lat9.1
'lat' is equal to 0
 != 0 && lon != 0)
20
←
Assuming 'lat' is not equal to 0→
21
←
Assuming 'lon' is not equal to 0→
22
←
Taking true branch→
	break;
23
←
 Execution continues on line 1386→

if (!isspace((unsigned char)*str)) {
10
←
Taking false branch→
	zc_error_prev_line("space expected after latitude/longitude");
	return NULL((void*)0);
}
++str;
}

/* Altitude */
if (*str == '\0') {
24
←
Assuming the condition is false→
25
←
Taking false branch→
zc_error_prev_line("unexpected end of LOC data");
return NULL((void*)0);
}

if (!isspace((unsigned char)*str)) {
26
←
Taking false branch→
zc_error_prev_line("space expected before altitude");
return NULL((void*)0);
}
++str;

start = str;

/* Sign */
if (*str == '+' || *str == '-') {
27
←
Assuming the condition is false→
28
←
Assuming the condition is false→
29
←
Taking false branch→
++str;
}

/* Meters of altitude... */
if(strtol(str, &str, 10) == LONG_MAX9223372036854775807L) {
30
←
Assuming the condition is false→
31
←
Taking false branch→
zc_error_prev_line("altitude too large, number overflow");
return NULL((void*)0);
}
switch(*str) {
32
←
Control jumps to 'case 32:'  at line 1410→
case ' ':
case '\0':
case 'm':
break;
33
←
 Execution continues on line 1427→
case '.':
if (!parse_int(str + 1, &str, &i, "altitude fraction", 0, 99)) {
	return NULL((void*)0);
}
if (!isspace((unsigned char)*str) && *str != '\0' && *str != 'm') {
	zc_error_prev_line("altitude fraction must be a number");
	return NULL((void*)0);
}
break;
default:
zc_error_prev_line("altitude must be expressed in meters");
return NULL((void*)0);
}
if (!isspace((unsigned char)*str) && *str != '\0')
++str;

if (sscanf(start, "%lf", &d) != 1) {
34
←
Assuming the condition is false→
35
←
Taking false branch→
zc_error_prev_line("error parsing altitude");
}

alt = (uint32_t) (10000000.0 + d * 100 + 0.5);

if (!isspace((unsigned char)*str) && *str != '\0') {
zc_error_prev_line("unexpected character after altitude");
return NULL((void*)0);
}

/* Now parse size, horizontal precision and vertical precision if any */
for(i = 1; isspace((unsigned char)*str) && i <= 3; i++) {
36
←
Loop condition is true.  Entering loop body→
vszhpvp[i] = precsize_aton(str + 1, &str);
37
←
Calling 'precsize_aton'→

if (!isspace((unsigned char)*str) && *str != '\0') {
	zc_error_prev_line("invalid size or precision");
	return NULL((void*)0);
}
}

/* Allocate required space... */
r = alloc_rdata(region, 16);
p = (uint32_t *) (r + 1);

memmove(p, vszhpvp, 4);
write_uint32(p + 1, lat);
write_uint32(p + 2, lon);
write_uint32(p + 3, alt);

return r;
1461}

1463/*
* Convert an APL RR RDATA element.
*/
1466uint16_t *
1467zparser_conv_apl_rdata(region_type *region, char *str)
1468{
int negated = 0;
uint16_t address_family;
uint8_t prefix;
uint8_t maximum_prefix;
uint8_t length;
uint8_t address[IP6ADDRLEN(128/8)];
char *colon = strchr(str, ':');
char *slash = strchr(str, '/');
int af;
int rc;
uint16_t rdlength;
uint16_t *r;
uint8_t *t;
char *end;
long p;

if (!colon) {
zc_error("address family separator is missing");
return NULL((void*)0);
}
if (!slash) {
zc_error("prefix separator is missing");
return NULL((void*)0);
}

*colon = '\0';
*slash = '\0';

if (*str == '!') {
negated = 1;
++str;
}

if (strcmp(str, "1") == 0) {
address_family = htons(1)(__uint16_t)(__builtin_constant_p(1) ? (__uint16_t)(((__uint16_t
)(1) & 0xffU) << 8 | ((__uint16_t)(1) & 0xff00U
) >> 8) : __swap16md(1));
af = AF_INET2;
length = sizeof(in_addr_t);
maximum_prefix = length * 8;
} else if (strcmp(str, "2") == 0) {
address_family = htons(2)(__uint16_t)(__builtin_constant_p(2) ? (__uint16_t)(((__uint16_t
)(2) & 0xffU) << 8 | ((__uint16_t)(2) & 0xff00U
) >> 8) : __swap16md(2));
af = AF_INET624;
length = IP6ADDRLEN(128/8);
maximum_prefix = length * 8;
} else {
zc_error("invalid address family '%s'", str);
return NULL((void*)0);
}

rc = inet_pton(af, colon + 1, address);
if (rc == 0) {
zc_error("invalid address '%s'", colon + 1);
return NULL((void*)0);
} else if (rc == -1) {
zc_error("inet_pton failed: %s", strerror(errno(*__errno())));
return NULL((void*)0);
}

/* Strip trailing zero octets.	*/
while (length > 0 && address[length - 1] == 0)
--length;


p = strtol(slash + 1, &end, 10);
if (p < 0 || p > maximum_prefix) {
zc_error("prefix not in the range 0 .. %d", maximum_prefix);
return NULL((void*)0);
} else if (*end != '\0') {
zc_error("invalid prefix '%s'", slash + 1);
return NULL((void*)0);
}
prefix = (uint8_t) p;

rdlength = (sizeof(address_family) + sizeof(prefix) + sizeof(length)
    + length);
r = alloc_rdata(region, rdlength);
t = (uint8_t *) (r + 1);

memcpy(t, &address_family, sizeof(address_family));
t += sizeof(address_family);
memcpy(t, &prefix, sizeof(prefix));
t += sizeof(prefix);
memcpy(t, &length, sizeof(length));
if (negated) {
*t |= APL_NEGATION_MASK0x80U;
}
t += sizeof(length);
memcpy(t, address, length);

return r;
1558}

1560/*
* Below some function that also convert but not to wireformat
* but to "normal" (int,long,char) types
*/

1565uint32_t
1566zparser_ttl2int(const char *ttlstr, int* error)
1567{
/* convert a ttl value to a integer
* return the ttl in a int
* -1 on error
*/

uint32_t ttl;
const char *t;

ttl = strtottl(ttlstr, &t);
if (*t != 0) {
zc_error_prev_line("invalid TTL value: %s",ttlstr);
*error = 1;
}

return ttl;
1583}


1586void
1587zadd_rdata_wireformat(uint16_t *data)
1588{
if (parser->current_rr.rdata_count >= MAXRDATALEN64) {
zc_error_prev_line("too many rdata elements");
} else {
parser->current_rr.rdatas[parser->current_rr.rdata_count].data
	= data;
++parser->current_rr.rdata_count;
}
1596}

1598/**
* Used for TXT RR's to grow with undefined number of strings.
*/
1601void
1602zadd_rdata_txt_wireformat(uint16_t *data, int first)
1603{
rdata_atom_type *rd;
if (parser->current_rr.rdata_count >= MAXRDATALEN64) {
zc_error_prev_line("too many rdata txt elements");
return;
}

/* First STR in str_seq, allocate 65K in first unused rdata
* else find last used rdata */
if (first) {
rd = &parser->current_rr.rdatas[parser->current_rr.rdata_count];
if ((rd->data = (uint16_t *) region_alloc(parser->rr_region,
	sizeof(uint16_t) + 65535 * sizeof(uint8_t))) == NULL((void*)0)) {
	zc_error_prev_line("Could not allocate memory for TXT RR");
	return;
}
parser->current_rr.rdata_count++;
rd->data[0] = 0;
}
else
rd = &parser->current_rr.rdatas[parser->current_rr.rdata_count-1];

if ((size_t)rd->data[0] + (size_t)data[0] > 65535) {
zc_error_prev_line("too large rdata element");
return;
}

memcpy((uint8_t *)rd->data + 2 + rd->data[0], data + 1, data[0]);
rd->data[0] += data[0];
1632}

1634/**
* Clean up after last call of zadd_rdata_txt_wireformat
*/
1637void
1638zadd_rdata_txt_clean_wireformat()
1639{
uint16_t *tmp_data;
rdata_atom_type *rd = &parser->current_rr.rdatas[parser->current_rr.rdata_count-1];
if(!rd || !rd->data)
return; /* previous syntax failure */
if ((tmp_data = (uint16_t *) region_alloc(parser->region, 
((size_t)rd->data[0]) + ((size_t)2))) != NULL((void*)0)) {
memcpy(tmp_data, rd->data, rd->data[0] + 2);
/* rd->data of u16+65535 freed when rr_region is freed */
rd->data = tmp_data;
}
else {
/* We could not get memory in non-volatile region */
zc_error_prev_line("could not allocate memory for rdata");
return;
}
1655}

1657static int
1658svcparam_key_cmp(const void *a, const void *b)
1659{
return ((int)read_uint16(rdata_atom_data(*(rdata_atom_type *)a)))
    - ((int)read_uint16(rdata_atom_data(*(rdata_atom_type *)b)));
1662}

1664void
1665zadd_rdata_svcb_check_wireformat()
1666{
size_t i;
uint8_t paramkeys[65536];
int prev_key = - 1;
int key = 0;
size_t size;
uint16_t *mandatory_values;

if (parser->current_rr.rdata_count <= 2) {
if (!parser->error_occurred)
	zc_error_prev_line("invalid SVCB or HTTPS rdata");
return;
} else for (i = 2; i < parser->current_rr.rdata_count; i++) {
if (parser->current_rr.rdatas[i].data == NULL((void*)0)
||  rdata_atom_data(parser->current_rr.rdatas[i]) == NULL((void*)0)
||  rdata_atom_size(parser->current_rr.rdatas[i]) < 4) {
	if (!parser->error_occurred)
		zc_error_prev_line("invalid SVCB or HTTPS rdata");
	return;
}
}
/* After this point, all rdatas do have data larger than 4 bytes.
* So we may assume a uint16_t SVCB key followed by uint16_t length
* in each rdata in the remainder of this function.
*/
memset(paramkeys, 0, sizeof(paramkeys));
/* 
* In draft-ietf-dnsop-svcb-https-04 Section 7:
* In wire format, the keys are represented by their numeric values in
* network byte order, concatenated in ascending order.
*
* svcparam_key_cmp assumes the rdatas to have a SVCB key, which is
* safe because we checked.
*
*/
qsort( (void *)&parser->current_rr.rdatas[2]
    , parser->current_rr.rdata_count - 2
    , sizeof(rdata_atom_type)
    , svcparam_key_cmp
    );

for (i = 2; i < parser->current_rr.rdata_count; i++) {
assert(parser->current_rr.rdatas[i].data)((void)0);
assert(rdata_atom_data(parser->current_rr.rdatas[i]))((void)0);
assert(rdata_atom_size(parser->current_rr.rdatas[i]) >= sizeof(uint16_t))((void)0);
 
key = read_uint16(rdata_atom_data(parser->current_rr.rdatas[i]));

/* In draft-ietf-dnsop-svcb-https-04 Section 7:
 *
 *     Keys (...) MUST NOT appear more than once.
 * 
 * If they key has already been seen, we have a duplicate
 */
if (!paramkeys[key])
	/* keep track of keys that are present */
	paramkeys[key] = 1;

else if (key < SVCPARAMKEY_COUNT7) {
	if(zone_is_slave(parser->current_zone->opts))
		zc_warning_prev_line(
			"Duplicate key found: %s",
			svcparamkey_strs[key]);
	else {
		zc_error_prev_line(
			"Duplicate key found: %s",
			svcparamkey_strs[key]);
	}
} else if(zone_is_slave(parser->current_zone->opts))
	zc_warning_prev_line(
			"Duplicate key found: key%d", key);
else
	zc_error_prev_line(
			"Duplicate key found: key%d", key);
}
/* Checks when a mandatory key is present */
if (!paramkeys[SVCB_KEY_MANDATORY0])
return;

size = rdata_atom_size(parser->current_rr.rdatas[2]);
assert(size >= 4)((void)0);
mandatory_values = (void*)rdata_atom_data(parser->current_rr.rdatas[2]);
mandatory_values += 2; /* skip the key type and length */

if (size % 2)
zc_error_prev_line("mandatory rdata must be a multiple of shorts");

else for (i = 0; i < (size - 4)/2; i++) {
key = ntohs(mandatory_values[i])(__uint16_t)(__builtin_constant_p(mandatory_values[i]) ? (__uint16_t
)(((__uint16_t)(mandatory_values[i]) & 0xffU) << 8 |
 ((__uint16_t)(mandatory_values[i]) & 0xff00U) >> 8
) : __swap16md(mandatory_values[i]));

if (paramkeys[key])
	; /* pass */

else if (key < SVCPARAMKEY_COUNT7) {
	if(zone_is_slave(parser->current_zone->opts))
		zc_warning_prev_line("mandatory SvcParamKey: %s is missing "
				     "the record", svcparamkey_strs[key]);
	else
		zc_error_prev_line("mandatory SvcParamKey: %s is missing "
				   "the record", svcparamkey_strs[key]);
} else {
	if(zone_is_slave(parser->current_zone->opts))
		zc_warning_prev_line("mandatory SvcParamKey: key%d is missing "
				     "the record", key);
	else
		zc_error_prev_line("mandatory SvcParamKey: key%d is missing "
				   "the record", key);
}

/* In draft-ietf-dnsop-svcb-https-04 Section 8
 * automatically mandatory MUST NOT appear in its own value-list
 */
if (key == SVCB_KEY_MANDATORY0) {
	if(zone_is_slave(parser->current_zone->opts))
		zc_warning_prev_line("mandatory MUST not be included"
				     " as mandatory parameter");
	else
		zc_error_prev_line("mandatory MUST not be included"
				   " as mandatory parameter");
}
if (key == prev_key) {
	if(zone_is_slave(parser->current_zone->opts))
		zc_warning_prev_line("Keys inSvcParam mandatory "
		                   "MUST NOT appear more than once.");
	else
		zc_error_prev_line("Keys in SvcParam mandatory "
		                   "MUST NOT appear more than once.");
}
prev_key = key;
}
1796}

1798void
1799zadd_rdata_domain(domain_type *domain)
1800{
if (parser->current_rr.rdata_count >= MAXRDATALEN64) {
zc_error_prev_line("too many rdata elements");
} else {
parser->current_rr.rdatas[parser->current_rr.rdata_count].domain
	= domain;
domain->usage ++; /* new reference to domain */
++parser->current_rr.rdata_count;
}
1809}

1811void
1812parse_unknown_rdata(uint16_t type, uint16_t *wireformat)
1813{
buffer_type packet;
uint16_t size;
ssize_t rdata_count;
ssize_t i;
rdata_atom_type *rdatas;

if (wireformat) {
size = *wireformat;
} else {
return;
}

buffer_create_from(&packet, wireformat + 1, *wireformat);
rdata_count = rdata_wireformat_to_rdata_atoms(parser->region,
				      parser->db->domains,
				      type,
				      size,
				      &packet,
				      &rdatas);
if (rdata_count == -1) {
zc_error_prev_line("bad unknown RDATA");
return;
}

for (i = 0; i < rdata_count; ++i) {
if (rdata_atom_is_domain(type, i)) {
	zadd_rdata_domain(rdatas[i].domain);
} else {
	zadd_rdata_wireformat(rdatas[i].data);
}
}
region_recycle(parser->region, rdatas,
rdata_count*sizeof(rdata_atom_type));
1847}


1850/*
* Compares two rdata arrays.
*
* Returns:
*
*	zero if they are equal
*	non-zero if not
*
*/
1859static int
1860zrdatacmp(uint16_t type, rr_type *a, rr_type *b)
1861{
int i = 0;

assert(a)((void)0);
assert(b)((void)0);

/* One is shorter than another */
if (a->rdata_count != b->rdata_count)
return 1;

/* Compare element by element */
for (i = 0; i < a->rdata_count; ++i) {
if (rdata_atom_is_domain(type, i)) {
	if (rdata_atom_domain(a->rdatas[i])
	    != rdata_atom_domain(b->rdatas[i]))
	{
		return 1;
	}
} else if(rdata_atom_is_literal_domain(type, i)) {
	if (rdata_atom_size(a->rdatas[i])
	    != rdata_atom_size(b->rdatas[i]))
		return 1;
	if (!dname_equal_nocase(rdata_atom_data(a->rdatas[i]),
		   rdata_atom_data(b->rdatas[i]),
		   rdata_atom_size(a->rdatas[i])))
		return 1;
} else {
	if (rdata_atom_size(a->rdatas[i])
	    != rdata_atom_size(b->rdatas[i]))
	{
		return 1;
	}
	if (memcmp(rdata_atom_data(a->rdatas[i]),
		   rdata_atom_data(b->rdatas[i]),
		   rdata_atom_size(a->rdatas[i])) != 0)
	{
		return 1;
	}
}
}

/* Otherwise they are equal */
return 0;
1904}

1906/*
*
* Opens a zone file.
*
* Returns:
*
*	- pointer to the parser structure
*	- NULL on error and errno set
*
*/
1916static int
1917zone_open(const char *filename, uint32_t ttl, uint16_t klass,
 const dname_type *origin)
1919{
/* Open the zone file... */
if (strcmp(filename, "-") == 0) {
yyin = stdin(&__sF[0]);
filename = "<stdin>";
warn_if_directory("zonefile from stdin", yyin, filename);
} else {
if (!(yyin = fopen(filename, "r"))) {
	return 0;
}
warn_if_directory("zonefile", yyin, filename);
}

zparser_init(filename, ttl, klass, origin);

return 1;
1935}


1938void
1939set_bitnsec(uint8_t bits[NSEC_WINDOW_COUNT256][NSEC_WINDOW_BITS_SIZE(256 / 8)],
   uint16_t index)
1941{
/*
* The bits are counted from left to right, so bit #0 is the
* left most bit.
*/
uint8_t window = index / 256;
uint8_t bit = index % 256;

bits[window][bit / 8] |= (1 << (7 - bit % 8));
1950}


1953static int
1954has_soa(domain_type* domain)
1955{
rrset_type* p = NULL((void*)0);
if(!domain) return 0;
for(p = domain->rrsets; p; p = p->next)
if(rrset_rrtype(p) == TYPE_SOA6)
	return 1;
return 0;
1962}

1964int
1965process_rr(void)
1966{
zone_type *zone = parser->current_zone;
rr_type *rr = &parser->current_rr;
rrset_type *rrset;
size_t max_rdlength;
int i;
rrtype_descriptor_type *descriptor
= rrtype_descriptor_by_type(rr->type);

/* We only support IN class */
if (rr->klass != CLASS_IN1) {
if(zone_is_slave(zone->opts))
	zc_warning_prev_line("only class IN is supported");
else
	zc_error_prev_line("only class IN is supported");
return 0;
}

/* Make sure the maximum RDLENGTH does not exceed 65535 bytes.	*/
max_rdlength = rdata_maximum_wireformat_size(
descriptor, rr->rdata_count, rr->rdatas);

if (max_rdlength > MAX_RDLENGTH65535) {
zc_error_prev_line("maximum rdata length exceeds %d octets", MAX_RDLENGTH65535);
return 0;
}

/* We cannot print invalid owner names,
* so error on that before it is used in printing other errors.
*/
if (rr->owner == error_domain
||  domain_dname(rr->owner) == error_dname) {
zc_error_prev_line("invalid owner name");
return 0;
}

/* we have the zone already */
assert(zone)((void)0);
if (rr->type == TYPE_SOA6) {
if (rr->owner != zone->apex) {
	char s[MAXDOMAINLEN255*5];
	snprintf(s, sizeof(s), "%s", domain_to_string(zone->apex));
	zc_error_prev_line(
		"SOA record with invalid domain name, '%s' is not '%s'", domain_to_string(rr->owner), s);
	return 0;
}
if(has_soa(rr->owner)) {
	if(zone_is_slave(zone->opts))
		zc_warning_prev_line("this SOA record was already encountered");
	else
		zc_error_prev_line("this SOA record was already encountered");
	return 0;
}
rr->owner->is_apex = 1;
}

if (!domain_is_subdomain(rr->owner, zone->apex))
{
char s[MAXDOMAINLEN255*5];
snprintf(s, sizeof(s), "%s", domain_to_string(zone->apex));
if(zone_is_slave(zone->opts))
	zc_warning_prev_line("out of zone data: %s is outside the zone for fqdn %s", domain_to_string(rr->owner), s);
else
	zc_error_prev_line("out of zone data: %s is outside the zone for fqdn %s", domain_to_string(rr->owner), s);
return 0;
}

/* Do we have this type of rrset already? */
rrset = domain_find_rrset(rr->owner, zone, rr->type);
if (!rrset) {
rrset = (rrset_type *) region_alloc(parser->region,
				    sizeof(rrset_type));
rrset->zone = zone;
rrset->rr_count = 1;
rrset->rrs = (rr_type *) region_alloc(parser->region,
				      sizeof(rr_type));
rrset->rrs[0] = *rr;

/* Add it */
domain_add_rrset(rr->owner, rrset);
} else {
rr_type* o;
if (rr->type != TYPE_RRSIG46 && rrset->rrs[0].ttl != rr->ttl) {
	zc_warning_prev_line(
		"%s TTL %u does not match the TTL %u of the %s RRset",
		domain_to_string(rr->owner), (unsigned)rr->ttl,
		(unsigned)rrset->rrs[0].ttl,
		rrtype_to_string(rr->type));
}

/* Search for possible duplicates... */
for (i = 0; i < rrset->rr_count; i++) {
	if (!zrdatacmp(rr->type, rr, &rrset->rrs[i])) {
		break;
	}
}

/* Discard the duplicates... */
if (i < rrset->rr_count) {
	/* add rdatas to recycle bin. */
	size_t i;
	for (i = 0; i < rr->rdata_count; i++) {
		if(!rdata_atom_is_domain(rr->type, i))
			region_recycle(parser->region, rr->rdatas[i].data,
				rdata_atom_size(rr->rdatas[i])
				+ sizeof(uint16_t));
	}
	region_recycle(parser->region, rr->rdatas,
		sizeof(rdata_atom_type)*rr->rdata_count);
	return 0;
}
if(rrset->rr_count == 65535) {
	zc_error_prev_line("too many RRs for domain RRset");
	return 0;
}

/* Add it... */
o = rrset->rrs;
rrset->rrs = (rr_type *) region_alloc_array(parser->region,
	(rrset->rr_count + 1), sizeof(rr_type));
memcpy(rrset->rrs, o, (rrset->rr_count) * sizeof(rr_type));
region_recycle(parser->region, o,
	(rrset->rr_count) * sizeof(rr_type));
rrset->rrs[rrset->rr_count] = *rr;
++rrset->rr_count;
}

if(rr->type == TYPE_DNAME39 && rrset->rr_count > 1) {
if(zone_is_slave(zone->opts))
	zc_warning_prev_line("multiple DNAMEs at the same name");
else
	zc_error_prev_line("multiple DNAMEs at the same name");
}
if(rr->type == TYPE_CNAME5 && rrset->rr_count > 1) {
if(zone_is_slave(zone->opts))
	zc_warning_prev_line("multiple CNAMEs at the same name");
else
	zc_error_prev_line("multiple CNAMEs at the same name");
}
if((rr->type == TYPE_DNAME39 && domain_find_rrset(rr->owner, zone, TYPE_CNAME5))
||(rr->type == TYPE_CNAME5 && domain_find_rrset(rr->owner, zone, TYPE_DNAME39))) {
if(zone_is_slave(zone->opts))
	zc_warning_prev_line("DNAME and CNAME at the same name");
else
	zc_error_prev_line("DNAME and CNAME at the same name");
}
if(domain_find_rrset(rr->owner, zone, TYPE_CNAME5) &&
domain_find_non_cname_rrset(rr->owner, zone)) {
if(zone_is_slave(zone->opts))
	zc_warning_prev_line("CNAME and other data at the same name");
else
	zc_error_prev_line("CNAME and other data at the same name");
}

/* Check we have SOA */
if(rr->owner == zone->apex)
apex_rrset_checks(parser->db, rrset, rr->owner);

if(parser->line % ZONEC_PCT_COUNT100000 == 0 && time(NULL((void*)0)) > startzonec + ZONEC_PCT_TIME5) {
struct stat buf;
startzonec = time(NULL((void*)0));
buf.st_size = 0;
fstat(fileno(yyin)(!__isthreaded ? ((yyin)->_file) : (fileno)(yyin)), &buf);
if(buf.st_size == 0) buf.st_size = 1;
VERBOSITY(1, (LOG_INFO, "parse %s %d %%",do { if ((1) <= verbosity) { log_msg (6, "parse %s %d %%",
 parser->current_zone->opts->name, (int)((uint64_t)ftell
(yyin)*(uint64_t)100/(uint64_t)buf.st_size)) ; } } while (0)
	parser->current_zone->opts->name,do { if ((1) <= verbosity) { log_msg (6, "parse %s %d %%",
 parser->current_zone->opts->name, (int)((uint64_t)ftell
(yyin)*(uint64_t)100/(uint64_t)buf.st_size)) ; } } while (0)
	(int)((uint64_t)ftell(yyin)*(uint64_t)100/(uint64_t)buf.st_size)))do { if ((1) <= verbosity) { log_msg (6, "parse %s %d %%",
 parser->current_zone->opts->name, (int)((uint64_t)ftell
(yyin)*(uint64_t)100/(uint64_t)buf.st_size)) ; } } while (0);
}
++totalrrs;
return 1;
2136}

2138/*
* Find rrset type for any zone
*/
2141static rrset_type*
2142domain_find_rrset_any(domain_type *domain, uint16_t type)
2143{
rrset_type *result = domain->rrsets;
while (result) {
if (rrset_rrtype(result) == type) {
	return result;
}
result = result->next;
}
return NULL((void*)0);
2152}

2154/*
* Check for DNAME type. Nothing is allowed below it
*/
2157static void
2158check_dname(zone_type* zone)
2159{
domain_type* domain;
for(domain = zone->apex; domain && domain_is_subdomain(domain,
zone->apex); domain=domain_next(domain))
{
if(domain->is_existing) {
	/* there may not be DNAMEs above it */
	domain_type* parent = domain->parent;
2167#ifdef NSEC3
	if(domain_has_only_NSEC3(domain, NULL((void*)0)))
		continue;
2170#endif
	while(parent) {
		if(domain_find_rrset_any(parent, TYPE_DNAME39)) {
			zc_error("While checking node %s,",
				domain_to_string(domain));
			zc_error("DNAME at %s has data below it. "
				"This is not allowed (rfc 2672).",
				domain_to_string(parent));
			return;
		}
		parent = parent->parent;
	}
}
}
2184}

2186/*
* Reads the specified zone into the memory
* nsd_options can be NULL if no config file is passed.
*/
2190unsigned int
2191zonec_read(const char* name, const char* zonefile, zone_type* zone)
2192{
const dname_type *dname;

totalrrs = 0;
startzonec = time(NULL((void*)0));
parser->errors = 0;

dname = dname_parse(parser->rr_region, name);
if (!dname) {
zc_error("incorrect zone name '%s'", name);
return 1;
}

2205#ifndef ROOT_SERVER
/* Is it a root zone? Are we a root server then? Idiot proof. */
if (dname->label_count == 1) {
zc_error("not configured as a root server");
return 1;
}
2211#endif

/* Open the zone file */
if (!zone_open(zonefile, 3600, CLASS_IN1, dname)) {
zc_error("cannot open '%s': %s", zonefile, strerror(errno(*__errno())));
return 1;
}
parser->current_zone = zone;

/* Parse and process all RRs.  */
yyparse();

/* remove origin if it was unused */
if(parser->origin != error_domain)
domain_table_deldomain(parser->db, parser->origin);
/* rr_region has been emptied by now */
dname = dname_parse(parser->rr_region, name);

/* check if zone file contained a correct SOA record */
if (!parser->current_zone) {
zc_error("zone configured as '%s' has no content.", name);
} else if(!parser->current_zone->soa_rrset ||
parser->current_zone->soa_rrset->rr_count == 0) {
zc_error("zone configured as '%s' has no SOA record.", name);
} else if(dname_compare(domain_dname(
parser->current_zone->soa_rrset->rrs[0].owner), dname) != 0) {
zc_error("zone configured as '%s', but SOA has owner '%s'.",
	name, domain_to_string(
	parser->current_zone->soa_rrset->rrs[0].owner));
}
region_free_all(parser->rr_region);

parser_flush();
fclose(yyin);
if(!zone_is_slave(zone->opts))
check_dname(zone);

parser->filename = NULL((void*)0);
return parser->errors;
2250}


2253/*
* setup parse
*/
2256void
2257zonec_setup_parser(namedb_type* db)
2258{
region_type* rr_region = region_create(xalloc, free);
parser = zparser_create(db->region, rr_region, db);
assert(parser)((void)0);
/* Unique pointers used to mark errors.	 */
error_dname = (dname_type *) region_alloc(db->region, 1);
error_domain = (domain_type *) region_alloc(db->region, 1);
/* Open the network database */
setprotoent(1);
setservent(1);
2268}

2270/** desetup parse */
2271void
2272zonec_desetup_parser(void)
2273{
if(parser) {
endservent();
endprotoent();
region_destroy(parser->rr_region);
/* removed when parser->region(=db->region) is destroyed:
 * region_recycle(parser->region, (void*)error_dname, 1);
 * region_recycle(parser->region, (void*)error_domain, 1); */
/* clear memory for exit, but this is not portable to
 * other versions of lex. yylex_destroy(); */
2283#ifdef MEMCLEAN /* OS collects memory pages */
yylex_destroy();
2285#endif
}
2287}

2289static domain_table_type* orig_domains = NULL((void*)0);
2290static region_type* orig_region = NULL((void*)0);
2291static region_type* orig_dbregion = NULL((void*)0);

2293/** setup for string parse */
2294void
2295zonec_setup_string_parser(region_type* region, domain_table_type* domains)
2296{
assert(parser)((void)0); /* global parser must be setup */
orig_domains = parser->db->domains;
orig_region = parser->region;
orig_dbregion = parser->db->region;
parser->region = region;
parser->db->region = region;
parser->db->domains = domains;
zparser_init("string", 3600, CLASS_IN1, domain_dname(domains->root));
2305}

2307/** desetup string parse */
2308void
2309zonec_desetup_string_parser(void)
2310{
parser->region = orig_region;
parser->db->domains = orig_domains;
parser->db->region = orig_dbregion;
2314}

2316/** parse a string into temporary storage */
2317int
2318zonec_parse_string(region_type* region, domain_table_type* domains,
zone_type* zone, char* str, domain_type** parsed, int* num_rrs)
2320{
int errors;
zonec_setup_string_parser(region, domains);
parser->current_zone = zone;
parser->errors = 0;
totalrrs = 0;
startzonec = time(NULL((void*)0))+100000; /* disable */
parser_push_stringbuf(str);
yyparse();
parser_pop_stringbuf();
errors = parser->errors;
*num_rrs = totalrrs;
if(*num_rrs == 0)
*parsed = NULL((void*)0);
else	*parsed = parser->prev_dname;
/* remove origin if it was not used during the parse */
if(parser->origin != error_domain)
domain_table_deldomain(parser->db, parser->origin);
region_free_all(parser->rr_region);
zonec_desetup_string_parser();
parser_flush();
return errors;
2342}

2344/** check SSHFP type for failures and emit warnings */
2345void check_sshfp(void)
2346{
uint8_t hash;
uint16_t size;
if(parser->current_rr.rdata_count < 3)
return; /* cannot check it, too few rdata elements */
if(!parser->current_rr.rdatas[0].data ||
!parser->current_rr.rdatas[1].data ||
!parser->current_rr.rdatas[2].data ||
!parser->current_rr.owner)
return; /* cannot check, NULLs (due to earlier errors) */
if(rdata_atom_size(parser->current_rr.rdatas[1]) != 1)
return; /* wrong size of the hash type rdata element */
hash = rdata_atom_data(parser->current_rr.rdatas[1])[0];
size = rdata_atom_size(parser->current_rr.rdatas[2]);
if(hash == 1 && size != 20) {
zc_warning_prev_line("SSHFP %s of type SHA1 has hash of "
	"wrong length, %d bytes, should be 20",
	domain_to_string(parser->current_rr.owner),
	(int)size);
} else if(hash == 2 && size != 32) {
zc_warning_prev_line("SSHFP %s of type SHA256 has hash of "
	"wrong length, %d bytes, should be 32",
	domain_to_string(parser->current_rr.owner),
	(int)size);
}
2371}