#ifndef CACHE_GENERIC_H
#define CACHE_GENERIC_H


#include "generic_hash.h"

#define CACHE_SIZE 512
#define CACHE_NCYCLES (CACHE_SIZE/2)
#define CACHE_BSIZE (((CACHE_SIZE+0x3f)&(~0x3f))>>6)
#define CACHE_BRESET(b)   for (int i = 0; i < CACHE_BSIZE; b[i++] = 0);
#define CACHE_BSET(b, x)  b[(x)>>6] |= (uint64_t)1<<((x)%64)
#define CACHE_BTEST(b, x) (b[(x)>>6]&((uint64_t)1<<((x)%64)))

// FIXME: this cache implementation is not really generic since it expects an unsigned
//        as the code and not a generic type

#define CACHE_SET(c, x)                                                        \
{                                                                              \
	c->cycles = (c->cycles+1)%CACHE_NCYCLES;                               \
	if (!c->cycles) CACHE_BRESET(c->bitmap);                               \
	CACHE_BSET(c->bitmap, x);                                              \
}


#define CACHE_DECL(cachename, type, hashfn, cmpfn)                             \
HASH_DECL(cachename##table, unsigned int, void *, hashfn, cmpfn)               \
struct cachename {                                                             \
	struct cachename##table_ref *table;                                    \
	type *array;                                                           \
	uint64_t *bitmap;                                                      \
	int cycles;                                                            \
};                                                                             \
\
\
struct cachename cachename##_init(void)                                        \
{                                                                              \
	struct cachename##table_ref *t = cachename##table_create(CACHE_SIZE);  \
	type *a = malloc(sizeof(type)*CACHE_SIZE);                             \
	uint64_t *b = malloc(sizeof(uint64_t)*CACHE_BSIZE);                    \
	CACHE_BRESET(b);                                                       \
	return (struct cachename){ .table = t, .array = a, .bitmap = b, 0};    \
}                                                                              \
\
\
void cachename##_free(struct cachename *cache)                                 \
{                                                                              \
	if (cache) {                                                           \
		cachename##table_destroy(cache->table);                        \
		free(cache->array);                                            \
		free(cache->bitmap);                                           \
	}                                                                      \
}                                                                              \
\
\
const type * cachename##_search(struct cachename *cache, unsigned int code)    \
{                                                                              \
	if (!cache)                                                            \
		return NULL;                                                   \
	struct cachename##table_entry *r;                                      \
	r = cachename##table_search(cache->table, code);                       \
	/* MISS */                                                             \
	if (!r)                                                                \
		return NULL;                                                   \
	/* HIT */                                                              \
	CACHE_SET(cache, (type *)(r->data)-cache->array);                      \
	return (const type *)(r->data);                                        \
}                                                                              \
\
\
int cachename##_get(struct cachename *cache)                                   \
{                                                                              \
	if (!cache)                                                            \
		return -1;                                                     \
	int x = 0;                                                             \
	for (int b = 0; b < CACHE_BSIZE; b++) {                                \
		if (cache->bitmap[b] == 0) x = 64;                             \
		else x = __builtin_clzll(cache->bitmap[b]);                    \
		x = 64-x;                                                      \
		if (!CACHE_BTEST(cache->bitmap, x+64*b))                       \
			return x+64*b;                                         \
	}                                                                      \
	return 0;                                                              \
}                                                                              \
\
\
const type * cachename##_insert(struct cachename *cache, const type *g, unsigned int code, int x)     \
{                                                                              \
	if (!cache)                                                            \
		return NULL;                                                   \
	type *spot = NULL;                                                     \
	/* x is the index to the cache array, it has to come from the user */  \
	/* check if the spot is free */                                        \
	if (x < 0 || CACHE_BTEST(cache->bitmap, x))                            \
		return NULL;                                                   \
	CACHE_SET(cache, x)                                                    \
	spot = &(cache->array[x]);                                             \
	*spot = *g;                                                            \
	struct cachename##table_entry e = { .code = code, .data = spot};       \
	if (!cachename##table_insert(cache->table, &e))                        \
		return NULL;                                                   \
	return spot;                                                           \
}                                                                              \


#endif