27 lines
662 B
C
27 lines
662 B
C
#ifndef INCLUDED_HASHTABLE_H
|
|
#define INCLUDED_HASHTABLE_H
|
|
|
|
#include "base.h"
|
|
|
|
struct HashTableBucket {
|
|
uintptr_t hash;
|
|
LispVal *key;
|
|
LispVal *value;
|
|
};
|
|
|
|
DEFOBJTYPE(HashTable, HASH_TABLE, HASH_TABLE_P, {
|
|
LispVal *hash_fn;
|
|
LispVal *eq_fn;
|
|
struct HashTableBucket *data;
|
|
size_t size;
|
|
size_t count;
|
|
});
|
|
|
|
DECLARE_FUNCTION(make_hash_table, (LispVal * hash_fn, LispVal *eq_fn));
|
|
DECLARE_FUNCTION(gethash, (LispVal * ht, LispVal *key, LispVal *def));
|
|
DECLARE_FUNCTION(puthash, (LispVal * ht, LispVal *key, LispVal *val));
|
|
DECLARE_FUNCTION(remhash, (LispVal * ht, LispVal *key));
|
|
DECLARE_FUNCTION(hash_table_count, (LispVal * ht));
|
|
|
|
#endif
|