|
@@ -92,6 +92,10 @@ do {
|
|
#define uthash_memcmp(a,b,n) memcmp(a,b,n)
|
|
#define uthash_memcmp(a,b,n) memcmp(a,b,n)
|
|
#endif
|
|
#endif
|
|
|
|
|
|
|
|
+#ifndef HASH_FUNCTION
|
|
|
|
+#define HASH_FUNCTION(keyptr,keylen,hashv) HASH_JEN(keyptr, keylen, hashv)
|
|
|
|
+#endif
|
|
|
|
+
|
|
#ifndef HASH_KEYCMP
|
|
#ifndef HASH_KEYCMP
|
|
#define HASH_KEYCMP(a,b,n) uthash_memcmp(a,b,n)
|
|
#define HASH_KEYCMP(a,b,n) uthash_memcmp(a,b,n)
|
|
#endif
|
|
#endif
|
|
@@ -151,7 +155,7 @@ do {
|
|
|
|
|
|
#define HASH_VALUE(keyptr,keylen,hashv) \
|
|
#define HASH_VALUE(keyptr,keylen,hashv) \
|
|
do { \
|
|
do { \
|
|
- HASH_FCN(keyptr, keylen, hashv); \
|
|
|
|
|
|
+ HASH_FUNCTION(keyptr, keylen, hashv); \
|
|
} while (0)
|
|
} while (0)
|
|
|
|
|
|
#define HASH_FIND_BYHASHVALUE(hh,head,keyptr,keylen,hashval,out) \
|
|
#define HASH_FIND_BYHASHVALUE(hh,head,keyptr,keylen,hashval,out) \
|
|
@@ -583,13 +587,6 @@ do {
|
|
#define HASH_EMIT_KEY(hh,head,keyptr,fieldlen)
|
|
#define HASH_EMIT_KEY(hh,head,keyptr,fieldlen)
|
|
#endif
|
|
#endif
|
|
|
|
|
|
-/* default to Jenkin's hash unless overridden e.g. DHASH_FUNCTION=HASH_SAX */
|
|
|
|
-#ifdef HASH_FUNCTION
|
|
|
|
-#define HASH_FCN HASH_FUNCTION
|
|
|
|
-#else
|
|
|
|
-#define HASH_FCN HASH_JEN
|
|
|
|
-#endif
|
|
|
|
-
|
|
|
|
/* The Bernstein hash function, used in Perl prior to v5.6. Note (x<<5+x)=x*33. */
|
|
/* The Bernstein hash function, used in Perl prior to v5.6. Note (x<<5+x)=x*33. */
|
|
#define HASH_BER(key,keylen,hashv) \
|
|
#define HASH_BER(key,keylen,hashv) \
|
|
do { \
|
|
do { \
|