scape.c

Go to the documentation of this file.

#include "scape.h"

Scape *_s_new(Symbol key_source,Symbol data_source) {
    Scape *s = malloc(sizeof(Scape));
    s->key_source = key_source;
    s->data_source = data_source;
    s->data = NULL;
    return s;
}

// free the hash table data
void scapedataFree(ScapeData *i) {
    scape_elem *cur,*tmp;
    HASH_ITER(hh, *i, cur, tmp) {
    HASH_DEL(*i,cur);  /* delete; cur advances to next */
    free(cur);
    }
}

void _s_free(Scape *s) {
    scapedataFree(&s->data);
    free(s);
}
void _s_add(Scape *s,TreeHash h,Xaddr x) {
    ScapeData *data = &s->data;
    scape_elem *e;

    HASH_FIND_INT( *data, &h, e );
    if (e) {
    raise_error("allready there!");
    }
    else {
    e = malloc(sizeof(struct scape_elem));
    e->key = h;
    e->value = x;
    HASH_ADD_INT(*data,key,e);
    }
}

Xaddr _s_get(Scape *s,TreeHash h) {
    Xaddr x = {0,0};
    scape_elem *e = 0;
    ScapeData *data = &s->data;

    HASH_FIND_INT( *data, &h, e );
    if (e) return e->value;
    return x;
}