#include <stdio.h>

#include "act_p.h"
#include "act_hash.h"

struct kd {
    char *k;
    char *d;
};

#define act_hash_insert_str(h,k,v,o) \
        act_hash_insert((h),(k),strlen((k)),(v),strlen((v))+1,(o))
#define act_hash_lookup_str(h,k,v) \
        act_hash_lookup((h),(k),strlen((k)),(v),NULL)
#define act_hash_delete_str(h,k) \
        act_hash_delete((h),(k),strlen((k)))

int main(int argc, char *argv[]) 
{
    act_hash_t *h;
    char buf[1024];
    char buf2[1024];
    long i;
    FILE *fp;
    act_ctx_t *ctx;
    char s[1024];
    char *cp;

    act_init();

    ctx = act_ctx_dup(act_ctx_default, NULL);
    act_ctx_set(ctx, ACT_HASH_FUNC, act_hash_fct(cdt));

    if ((h = act_hash_new(ctx)) == NULL) {
        perror("act_hash_new");
        exit(1);
    }

    act_ctx_free(ctx);

    act_hash_status(h, s, sizeof s);
    fprintf(stderr, "%s\n", s);

    fprintf(stderr, "\n**INSERT**\n\n");

    fp = fopen("../data/words", "r");
    i = 1;
    while (fgets(buf, sizeof(buf), fp) != NULL) {
        buf[strlen(buf)-1] = '\0';
        sprintf(buf2, "%ld", i);
        act_hash_insert_str(h, buf, buf2, FALSE);
        if (   (i < 100     && i % 10     == 0)
            || (i < 1000    && i % 100    == 0)
            || (i < 10000   && i % 1000   == 0)
            || (i < 100000  && i % 10000  == 0)
            || (i < 1000000 && i % 100000 == 0)) {
            act_hash_status(h, s, sizeof s);
            fprintf(stderr, "%s\n", s);
        }
        i++;
    }
    fclose(fp);

    act_hash_status(h, s, sizeof s);
    fprintf(stderr, "%s\n", s);

    fprintf(stderr, "\n**LOOKUP**\n\n");

    fp = fopen("../data/words", "r");
    i = 1;
    while (fgets(buf, sizeof(buf), fp) != NULL) {
        buf[strlen(buf)-1] = '\0';
        sprintf(buf2, "%ld", i);
        if (!act_hash_lookup_str(h, buf, (void **)&cp)) 
            fprintf(stderr, "failed to lookup `%s'\n", buf);
        else {
            if (strcmp(cp, buf2) != 0)
                fprintf(stderr, "value failed for `%s': %s <-> %s\n", buf, buf2, cp);
        }
        i++;
    }
    fclose(fp);

    act_hash_status(h, s, sizeof s);
    fprintf(stderr, "%s\n", s);

    fprintf(stderr, "\n**DELETE**\n\n");

    fp = fopen("../data/words", "r");
    while (fgets(buf, sizeof(buf), fp) != NULL) {
        buf[strlen(buf)-1] = '\0';
        if (   (i < 100     && i % 10     == 0)
            || (i < 1000    && i % 100    == 0)
            || (i < 10000   && i % 1000   == 0)
            || (i < 100000  && i % 10000  == 0)
            || (i < 1000000 && i % 100000 == 0)) {
            act_hash_status(h, s, sizeof s);
            fprintf(stderr, "%s\n", s);
        }
        if (!act_hash_delete_str(h, buf)) 
            fprintf(stderr, "failed to delete `%s'\n", buf);
        i--;
    }
    fclose(fp);

    act_hash_status(h, s, sizeof s);
    fprintf(stderr, "%s\n", s);

    if (!act_hash_free(h)) {
        perror("act_hash_free");
        exit(1);
    }
    exit(0);
}