aboutsummaryrefslogtreecommitdiff
path: root/contrib/bind9/lib/isccc/sexpr.c
diff options
context:
space:
mode:
authorDag-Erling Smørgrav <des@FreeBSD.org>2013-09-30 17:23:45 +0000
committerDag-Erling Smørgrav <des@FreeBSD.org>2013-09-30 17:23:45 +0000
commit56b72efe825d4190e0e2fdbc07ebb295cac299df (patch)
tree1a2886b0de387ddff665d0e370f40ffc32778840 /contrib/bind9/lib/isccc/sexpr.c
parent8cdb4d896719648d4d1976c133bad53d24090573 (diff)
downloadsrc-56b72efe825d4190e0e2fdbc07ebb295cac299df.tar.gz
src-56b72efe825d4190e0e2fdbc07ebb295cac299df.zip
Remove BIND.
Approved by: re (gjb)
Notes
Notes: svn path=/head/; revision=255949
Diffstat (limited to 'contrib/bind9/lib/isccc/sexpr.c')
-rw-r--r--contrib/bind9/lib/isccc/sexpr.c325
1 files changed, 0 insertions, 325 deletions
diff --git a/contrib/bind9/lib/isccc/sexpr.c b/contrib/bind9/lib/isccc/sexpr.c
deleted file mode 100644
index e96536dfce5d..000000000000
--- a/contrib/bind9/lib/isccc/sexpr.c
+++ /dev/null
@@ -1,325 +0,0 @@
-/*
- * Portions Copyright (C) 2004, 2005, 2007 Internet Systems Consortium, Inc. ("ISC")
- * Portions Copyright (C) 2001 Internet Software Consortium.
- *
- * Permission to use, copy, modify, and/or distribute this software for any
- * purpose with or without fee is hereby granted, provided that the above
- * copyright notice and this permission notice appear in all copies.
- *
- * THE SOFTWARE IS PROVIDED "AS IS" AND ISC AND NOMINUM DISCLAIMS ALL
- * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
- * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY
- * SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
- * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
- * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
- * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- *
- * Portions Copyright (C) 2001 Nominum, Inc.
- *
- * Permission to use, copy, modify, and/or distribute this software for any
- * purpose with or without fee is hereby granted, provided that the above
- * copyright notice and this permission notice appear in all copies.
- *
- * THE SOFTWARE IS PROVIDED "AS IS" AND ISC AND NOMINUM DISCLAIMS ALL
- * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
- * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY
- * SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
- * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
- * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
- * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- */
-
-/* $Id: sexpr.c,v 1.9 2007/08/28 07:20:43 tbox Exp $ */
-
-/*! \file */
-
-#include <config.h>
-
-#include <ctype.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <isc/assertions.h>
-#include <isccc/sexpr.h>
-#include <isccc/util.h>
-
-static isccc_sexpr_t sexpr_t = { ISCCC_SEXPRTYPE_T, { NULL } };
-
-#define CAR(s) (s)->value.as_dottedpair.car
-#define CDR(s) (s)->value.as_dottedpair.cdr
-
-isccc_sexpr_t *
-isccc_sexpr_cons(isccc_sexpr_t *car, isccc_sexpr_t *cdr)
-{
- isccc_sexpr_t *sexpr;
-
- sexpr = malloc(sizeof(*sexpr));
- if (sexpr == NULL)
- return (NULL);
- sexpr->type = ISCCC_SEXPRTYPE_DOTTEDPAIR;
- CAR(sexpr) = car;
- CDR(sexpr) = cdr;
-
- return (sexpr);
-}
-
-isccc_sexpr_t *
-isccc_sexpr_tconst(void)
-{
- return (&sexpr_t);
-}
-
-isccc_sexpr_t *
-isccc_sexpr_fromstring(const char *str)
-{
- isccc_sexpr_t *sexpr;
-
- sexpr = malloc(sizeof(*sexpr));
- if (sexpr == NULL)
- return (NULL);
- sexpr->type = ISCCC_SEXPRTYPE_STRING;
- sexpr->value.as_string = strdup(str);
- if (sexpr->value.as_string == NULL) {
- free(sexpr);
- return (NULL);
- }
-
- return (sexpr);
-}
-
-isccc_sexpr_t *
-isccc_sexpr_frombinary(const isccc_region_t *region)
-{
- isccc_sexpr_t *sexpr;
- unsigned int region_size;
-
- sexpr = malloc(sizeof(*sexpr));
- if (sexpr == NULL)
- return (NULL);
- sexpr->type = ISCCC_SEXPRTYPE_BINARY;
- region_size = REGION_SIZE(*region);
- /*
- * We add an extra byte when we malloc so we can NUL terminate
- * the binary data. This allows the caller to use it as a C
- * string. It's up to the caller to ensure this is safe. We don't
- * add 1 to the length of the binary region, because the NUL is
- * not part of the binary data.
- */
- sexpr->value.as_region.rstart = malloc(region_size + 1);
- if (sexpr->value.as_region.rstart == NULL) {
- free(sexpr);
- return (NULL);
- }
- sexpr->value.as_region.rend = sexpr->value.as_region.rstart +
- region_size;
- memcpy(sexpr->value.as_region.rstart, region->rstart, region_size);
- /*
- * NUL terminate.
- */
- sexpr->value.as_region.rstart[region_size] = '\0';
-
- return (sexpr);
-}
-
-void
-isccc_sexpr_free(isccc_sexpr_t **sexprp)
-{
- isccc_sexpr_t *sexpr;
- isccc_sexpr_t *item;
-
- sexpr = *sexprp;
- if (sexpr == NULL)
- return;
- switch (sexpr->type) {
- case ISCCC_SEXPRTYPE_STRING:
- free(sexpr->value.as_string);
- break;
- case ISCCC_SEXPRTYPE_DOTTEDPAIR:
- item = CAR(sexpr);
- if (item != NULL)
- isccc_sexpr_free(&item);
- item = CDR(sexpr);
- if (item != NULL)
- isccc_sexpr_free(&item);
- break;
- case ISCCC_SEXPRTYPE_BINARY:
- free(sexpr->value.as_region.rstart);
- break;
- }
- free(sexpr);
-
- *sexprp = NULL;
-}
-
-static isc_boolean_t
-printable(isccc_region_t *r)
-{
- unsigned char *curr;
-
- curr = r->rstart;
- while (curr != r->rend) {
- if (!isprint(*curr))
- return (ISC_FALSE);
- curr++;
- }
-
- return (ISC_TRUE);
-}
-
-void
-isccc_sexpr_print(isccc_sexpr_t *sexpr, FILE *stream)
-{
- isccc_sexpr_t *cdr;
- unsigned int size, i;
- unsigned char *curr;
-
- if (sexpr == NULL) {
- fprintf(stream, "nil");
- return;
- }
-
- switch (sexpr->type) {
- case ISCCC_SEXPRTYPE_T:
- fprintf(stream, "t");
- break;
- case ISCCC_SEXPRTYPE_STRING:
- fprintf(stream, "\"%s\"", sexpr->value.as_string);
- break;
- case ISCCC_SEXPRTYPE_DOTTEDPAIR:
- fprintf(stream, "(");
- do {
- isccc_sexpr_print(CAR(sexpr), stream);
- cdr = CDR(sexpr);
- if (cdr != NULL) {
- fprintf(stream, " ");
- if (cdr->type != ISCCC_SEXPRTYPE_DOTTEDPAIR) {
- fprintf(stream, ". ");
- isccc_sexpr_print(cdr, stream);
- cdr = NULL;
- }
- }
- sexpr = cdr;
- } while (sexpr != NULL);
- fprintf(stream, ")");
- break;
- case ISCCC_SEXPRTYPE_BINARY:
- size = REGION_SIZE(sexpr->value.as_region);
- curr = sexpr->value.as_region.rstart;
- if (printable(&sexpr->value.as_region)) {
- fprintf(stream, "'%.*s'", (int)size, curr);
- } else {
- fprintf(stream, "0x");
- for (i = 0; i < size; i++)
- fprintf(stream, "%02x", *curr++);
- }
- break;
- default:
- INSIST(0);
- }
-}
-
-isccc_sexpr_t *
-isccc_sexpr_car(isccc_sexpr_t *list)
-{
- REQUIRE(list->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
-
- return (CAR(list));
-}
-
-isccc_sexpr_t *
-isccc_sexpr_cdr(isccc_sexpr_t *list)
-{
- REQUIRE(list->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
-
- return (CDR(list));
-}
-
-void
-isccc_sexpr_setcar(isccc_sexpr_t *pair, isccc_sexpr_t *car)
-{
- REQUIRE(pair->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
-
- CAR(pair) = car;
-}
-
-void
-isccc_sexpr_setcdr(isccc_sexpr_t *pair, isccc_sexpr_t *cdr)
-{
- REQUIRE(pair->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
-
- CDR(pair) = cdr;
-}
-
-isccc_sexpr_t *
-isccc_sexpr_addtolist(isccc_sexpr_t **l1p, isccc_sexpr_t *l2)
-{
- isccc_sexpr_t *last, *elt, *l1;
-
- REQUIRE(l1p != NULL);
- l1 = *l1p;
- REQUIRE(l1 == NULL || l1->type == ISCCC_SEXPRTYPE_DOTTEDPAIR);
-
- elt = isccc_sexpr_cons(l2, NULL);
- if (elt == NULL)
- return (NULL);
- if (l1 == NULL) {
- *l1p = elt;
- return (elt);
- }
- for (last = l1; CDR(last) != NULL; last = CDR(last))
- /* Nothing */;
- CDR(last) = elt;
-
- return (elt);
-}
-
-isc_boolean_t
-isccc_sexpr_listp(isccc_sexpr_t *sexpr)
-{
- if (sexpr == NULL || sexpr->type == ISCCC_SEXPRTYPE_DOTTEDPAIR)
- return (ISC_TRUE);
- return (ISC_FALSE);
-}
-
-isc_boolean_t
-isccc_sexpr_emptyp(isccc_sexpr_t *sexpr)
-{
- if (sexpr == NULL)
- return (ISC_TRUE);
- return (ISC_FALSE);
-}
-
-isc_boolean_t
-isccc_sexpr_stringp(isccc_sexpr_t *sexpr)
-{
- if (sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_STRING)
- return (ISC_TRUE);
- return (ISC_FALSE);
-}
-
-isc_boolean_t
-isccc_sexpr_binaryp(isccc_sexpr_t *sexpr)
-{
- if (sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_BINARY)
- return (ISC_TRUE);
- return (ISC_FALSE);
-}
-
-char *
-isccc_sexpr_tostring(isccc_sexpr_t *sexpr)
-{
- REQUIRE(sexpr != NULL &&
- (sexpr->type == ISCCC_SEXPRTYPE_STRING ||
- sexpr->type == ISCCC_SEXPRTYPE_BINARY));
-
- if (sexpr->type == ISCCC_SEXPRTYPE_BINARY)
- return ((char *)sexpr->value.as_region.rstart);
- return (sexpr->value.as_string);
-}
-
-isccc_region_t *
-isccc_sexpr_tobinary(isccc_sexpr_t *sexpr)
-{
- REQUIRE(sexpr != NULL && sexpr->type == ISCCC_SEXPRTYPE_BINARY);
- return (&sexpr->value.as_region);
-}