wshash.c File Reference

#include "wsint.h"
#include "wshash.h"

Go to the source code of this file.

Data Structures
struct	WsHashItemRec
struct	WsHashRec

Macros
#define	WS_HASH_TABLE_SIZE   256

Typedefs
typedef struct WsHashItemRec	WsHashItem

Functions
static size_t	count_hash (const char *string)
WsHashPtr	ws_hash_create (WsHashItemDestructor destructor, void *context)
void	ws_hash_destroy (WsHashPtr hash)
WsBool	ws_hash_put (WsHashPtr hash, const char *name, void *data)
void *	ws_hash_get (WsHashPtr hash, const char *name)
void	ws_hash_clear (WsHashPtr hash)

Macro Definition Documentation

WS_HASH_TABLE_SIZE

#define WS_HASH_TABLE_SIZE   256

Definition at line 76 of file wshash.c.

Referenced by count_hash(), and ws_hash_clear().

Typedef Documentation

WsHashItem

typedef struct WsHashItemRec WsHashItem

Definition at line 86 of file wshash.c.

Function Documentation

count_hash()

static size_t count_hash ( const char *  string )

static

Definition at line 200 of file wshash.c.

References WS_HASH_TABLE_SIZE.

Referenced by ws_hash_get(), and ws_hash_put().

{
    size_t val = 0;
    int i;

    for (i = 0; string[i]; i++) {
        val <<= 3;
        val ^= string[i];
        val ^= (val & 0xff00) >> 5;
        val ^= (val & 0xff0000) >> 16;
    }

    return val % WS_HASH_TABLE_SIZE;
}

ws_hash_clear()

void ws_hash_clear

(

WsHashPtr

hash

)

Definition at line 180 of file wshash.c.

References WsHashItemRec::data, WsHashRec::destructor, WsHashRec::destructor_context, WsHashRec::items, WsHashItemRec::name, WsHashItemRec::next, ws_free(), and WS_HASH_TABLE_SIZE.

Referenced by ws_hash_destroy().

{
    WsHashItem *i, *n;
    size_t j;

    for (j = 0; j < WS_HASH_TABLE_SIZE; j++) {
        for (i = hash->items[j]; i; i = n) {
            n = i->next;
            if (hash->destructor)
                (*hash->destructor)(i->data, hash->destructor_context);

            ws_free(i->name);
            ws_free(i);
        }
        hash->items[j] = NULL;
    }
}

ws_hash_create()

WsHashPtr ws_hash_create	(	WsHashItemDestructor	destructor,
		void *	context
	)

Definition at line 103 of file wshash.c.

References WsHashRec::destructor, WsHashRec::destructor_context, and ws_calloc().

Referenced by ws_function_hash_create(), ws_pragma_use_hash_create(), and ws_variable_hash_create().

{
    WsHashPtr hash = ws_calloc(1, sizeof(*hash));

    if (hash) {
        hash->destructor = destructor;
        hash->destructor_context = context;
    }

    return hash;
}

ws_hash_destroy()

void ws_hash_destroy

(

WsHashPtr

hash

)

Definition at line 116 of file wshash.c.

References ws_free(), and ws_hash_clear().

Referenced by compile_stream().

{
    if (hash == NULL)
        return;

    ws_hash_clear(hash);
    ws_free(hash);
}

ws_hash_get()

void* ws_hash_get	(	WsHashPtr	hash,
		const char *	name
	)

Definition at line 167 of file wshash.c.

References count_hash(), WsHashItemRec::data, WsHashRec::items, WsHashItemRec::name, name, and WsHashItemRec::next.

Referenced by ws_expr_linearize(), ws_function_hash(), ws_pragma_use(), ws_variable_define(), and ws_variable_lookup().

{
    WsHashItem *i;
    size_t h = count_hash(name);

    for (i = hash->items[h]; i; i = i->next)
        if (strcmp(i->name, name) == 0)
            return i->data;

    return NULL;
}

ws_hash_put()

WsBool ws_hash_put	(	WsHashPtr	hash,
		const char *	name,
		void *	data
	)

Definition at line 126 of file wshash.c.

References count_hash(), WsHashItemRec::data, WsHashRec::destructor, WsHashRec::destructor_context, WsHashRec::items, WsHashItemRec::name, name, WsHashItemRec::next, ws_calloc(), WS_FALSE, ws_free(), ws_strdup(), and WS_TRUE.

Referenced by ws_function_hash(), ws_pragma_use(), and ws_variable_define().

{
    WsHashItem *i;
    size_t h = count_hash(name);

    for (i = hash->items[h]; i; i = i->next) {
        if (strcmp(i->name, name) == 0) {
            /* Found it. */

            /* Destroy the old item */
            if (hash->destructor)
                (*hash->destructor)(i->data, hash->destructor_context);

            i->data = data;

            return WS_FALSE;
        }
    }

    /* Must create a new mapping. */
    i = ws_calloc(1, sizeof(*i));

    if (i == NULL)
        return WS_FALSE;

    i->name = ws_strdup(name);
    if (i->name == NULL) {
        ws_free(i);
        return WS_FALSE;
    }

    i->data = data;

    /* Link it to our hash. */
    i->next = hash->items[h];
    hash->items[h] = i;

    return WS_TRUE;
}