Commit 7c9b8851 authored by Bob Halley's avatar Bob Halley
Browse files

add symtab

parent 222b564e
......@@ -12,7 +12,7 @@ CDEFINES =
CWARNINGS =
OBJS = assertions.o buffer.o error.o heap.o mem.o result.o rwlock.o \
socket.o task.o timer.o version.o \
socket.o symtab.o task.o timer.o version.o \
unix/time.o \
pthreads/condition.o
......
/*
* Copyright (C) 1996, 1997, 1998 Internet Software Consortium.
*
* Permission to use, copy, modify, and 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 INTERNET SOFTWARE CONSORTIUM DISCLAIMS
* ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
* CONSORTIUM 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.
*/
#ifndef ISC_SYMBOL_H
#define ISC_SYMBOL_H 1
#include <isc/mem.h>
#include <isc/result.h>
typedef union isc_symvalue {
void * as_pointer;
int as_integer;
unsigned int as_uinteger;
} isc_symvalue_t;
typedef void (*isc_symtabaction_t)(char *key, unsigned int type,
isc_symvalue_t *value);
typedef struct isc_symtab isc_symtab_t;
isc_result_t
isc_symtab_create(isc_mem_t *mctx, unsigned int size,
isc_symtab_t **symtabp);
isc_result_t
isc_symtab_onundefine(isc_symtab_t *symtab, unsigned int type,
isc_symtabaction_t action);
void
isc_symtab_destroy(isc_symtab_t **symtabp);
isc_result_t
isc_symtab_lookup(isc_symtab_t *symtab, const char *key, unsigned int type,
isc_symvalue_t *value);
isc_result_t
isc_symtab_define(isc_symtab_t *symtab, char *key, unsigned int type,
isc_symvalue_t value);
isc_result_t
isc_symtab_undefine(isc_symtab_t *symtab, char *key, unsigned int type);
#endif /* ISC_SYMBOL_H */
/*
* Copyright (C) 1996, 1997, 1998 Internet Software Consortium.
*
* Permission to use, copy, modify, and 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 INTERNET SOFTWARE CONSORTIUM DISCLAIMS
* ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
* CONSORTIUM 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.
*/
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include <isc/assertions.h>
#include <isc/list.h>
#include <isc/symtab.h>
typedef struct elt {
char * key;
unsigned int type;
isc_symvalue_t value;
LINK(struct elt) link;
} elt_t;
typedef LIST(elt_t) eltlist_t;
struct isc_symtab {
isc_mem_t * mctx;
unsigned int size;
eltlist_t * table;
LIST(isc_symtabaction_t) undefine_actions;
};
isc_result_t
isc_symtab_create(isc_mem_t *mctx, unsigned int size,
isc_symtab_t **symtabp)
{
isc_symtab_t *symtab;
unsigned int i;
REQUIRE(mctx != NULL);
REQUIRE(symtabp != NULL && *symtabp == NULL);
REQUIRE(size > 0); /* Should be prime. */
symtab = (isc_symtab_t *)isc_mem_get(mctx, sizeof *symtab);
if (symtab == NULL)
return (ISC_R_NOMEMORY);
symtab->table = (eltlist_t *)isc_mem_get(mctx,
size * sizeof (eltlist_t));
if (symtab->table == NULL) {
isc_mem_put(mctx, symtab, sizeof *symtab);
return (ISC_R_NOMEMORY);
}
for (i = 0; i < size; i++)
INIT_LIST(symtab->table[i]);
symtab->mctx = mctx;
symtab->size = size;
INIT_LIST(symtab->undefine_actions);
*symtabp = symtab;
return (ISC_R_SUCCESS);
}
isc_result_t
isc_symtab_onundefine(isc_symtab_t *symtab, unsigned int type,
isc_symtabaction_t action) {
/* REQUIRE(VALID_SYMTAB(symtab)); */
/* malloc structure, link onto action list */
return (ISC_R_SUCCESS);
}
void
isc_symtab_destroy(isc_symtab_t **symtabp) {
isc_symtab_t *symtab;
unsigned int i;
elt_t *elt, *nelt;
/* XXX REQUIRE XXX */
symtab = *symtabp;
for (i = 0; i < symtab->size; i++) {
for (elt = HEAD(symtab->table[i]); elt != NULL; elt = nelt) {
nelt = NEXT(elt, link);
/* XXX call undefine action here */
isc_mem_put(symtab->mctx, elt, sizeof *elt);
}
}
isc_mem_put(symtab->mctx, symtab->table,
symtab->size * sizeof (eltlist_t));
isc_mem_put(symtab->mctx, symtab, sizeof *symtab);
*symtabp = NULL;
}
static inline unsigned int
hash(const char *key) {
const char *s;
unsigned int h = 0;
unsigned int g;
int c;
/*
* P. J. Weinberger's hash function, adapted from p. 436 of
* _Compilers: Principles, Techniques, and Tools_, Aho, Sethi
* and Ullman, Addison-Wesley, 1986, ISBN 0-201-10088-6.
*/
for (s = key; *s != '\0'; s++) {
c = *s;
if (isascii(c) && isupper(c))
c = tolower(c);
h = ( h << 4 ) + c;
if ((g = ( h & 0xf0000000 )) != 0) {
h = h ^ (g >> 24);
h = h ^ g;
}
}
return (h);
}
#define FIND(s, k, t, b, e) \
b = hash((k)) % (s)->size; \
for (e = HEAD((s)->table[b]); e != NULL; e = NEXT(e, link)) { \
if (((t) == 0 || e->type == (t)) && \
strcasecmp(e->key, (k)) == 0) \
break; \
}
isc_result_t
isc_symtab_lookup(isc_symtab_t *symtab, const char *key, unsigned int type,
isc_symvalue_t *value)
{
unsigned int bucket;
elt_t *elt;
FIND(symtab, key, type, bucket, elt);
if (elt == NULL)
return (ISC_R_NOTFOUND);
if (value != NULL)
*value = elt->value;
return (ISC_R_SUCCESS);
}
isc_result_t
isc_symtab_define(isc_symtab_t *symtab, char *key, unsigned int type,
isc_symvalue_t value)
{
unsigned int bucket;
elt_t *elt;
FIND(symtab, key, type, bucket, elt);
if (elt != NULL)
return (ISC_R_EXISTS);
elt = (elt_t *)isc_mem_get(symtab->mctx, sizeof *elt);
if (elt == NULL)
return (ISC_R_NOMEMORY);
elt->key = key;
elt->type = type;
elt->value = value;
APPEND(symtab->table[bucket], elt, link);
return (ISC_R_SUCCESS);
}
isc_result_t
isc_symtab_undefine(isc_symtab_t *symtab, char *key, unsigned int type) {
unsigned int bucket;
elt_t *elt;
FIND(symtab, key, type, bucket, elt);
if (elt == NULL)
return (ISC_R_NOTFOUND);
/* XXX call undefine routines here */
UNLINK(symtab->table[bucket], elt, link);
isc_mem_put(symtab->mctx, elt, sizeof *elt);
return (ISC_R_SUCCESS);
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment