1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
  
71
  
72
  
73
  
74
  
75
  
76
  
77
  
78
  
79
  
80
  
81
  
82
  
83
  
84
  
85
  
86
  
87
  
#ifndef CB_KEY_PIKEINT_H 
#define CB_KEY_PIKEINT_H 
#include "bitvector.h" 
#include "pike_int_types.h" 
#include "bignum.h" 
 
typedef struct object * CB_NAME(string); 
typedef mp_limb_t CB_NAME(char); 
 
#ifdef cb_string 
# undef cb_string 
#endif 
#define cb_string CB_NAME(string) 
 
#ifdef cb_char 
# undef cb_char 
#endif 
#define cb_char CB_NAME(char) 
 
static inline unsigned INT32 gclz(mp_limb_t a) { 
#if GMP_NUMB_BITS == 64 
    return clz64((UINT64)a); 
#elif GMP_NUMB_BITS == 32 
    return clz32((unsigned INT32)a); 
#else 
#error Only supports limb sizes of 32 or 64 bits. 
#endif 
} 
 
#define O2G(o) ((MP_INT*)(o->storage)) 
#define K2G(k) ((MP_INT*)((k).str->storage)) 
 
#define CB_ADD_KEY_REF(x)     do { if ((x).str) add_ref((x).str); } while(0) 
#define CB_FREE_KEY(x)                do { if ((x).str) { free_object((x).str); (x).str = NULL; } } while(0) 
#define CB_SET_KEY(node, x)                           \ 
        do { CB_ADD_KEY_REF(x);                         \ 
            CB_FREE_KEY((node)->key); (node)->key = (x); } while(0) 
 
#define CB_GC_CHECK_KEY(key)  gc_check((key).str) 
#define CB_GC_RECURSE_KEY(key)        gc_recurse_object((key).str) 
 
// int low_compare_bignums (MP_INT op1, MP_INT op2) 
#define CB_KEY_EQ(k1, k2)     ( (k1).str == (k2).str || !low_compare_bignums(K2G(k1), K2G(k2)) ) 
#define CB_KEY_LT(k1, k2)     ( (k1).str != (k2).str && low_compare_bignums(K2G(k1), K2G(k2)) < 0 ) 
 
static inline mp_limb_t CB_GET_CHAR(cb_string s, ptrdiff_t n) { 
    MP_INT * i = O2G(s); 
 
    n += abs(i->_mp_size); 
    if (n >= 0) { 
        return i->_mp_d[abs(i->_mp_size) - 1 - n]; 
    } else { 
        return 0; 
    } 
} 
 
#define CB_WIDTH(s)   (sizeof(cb_char)*8) 
#define CB_LENGTH(str)        0 
#define CB_SIZE(key)  (-abs(K2G(key)->_mp_size)) 
#define CB_GET_BIT(str, size)                 \ 
        (BITN(cb_char, CB_GET_CHAR((str), (size).chars), (size).bits)) 
#define CB_COUNT_PREFIX(s1, s2, n)            \ 
        (gclz(CB_GET_CHAR((s1), (n)) ^ CB_GET_CHAR((s2), (n)))) 
#define CB_FIRST_CHAR(key)    (-abs(K2G(key)->_mp_size)) 
 
static inline cb_size cb_prefix_count_fallback(const cb_string s1, 
                                               const cb_string s2, 
                                               const cb_size len, 
                                               cb_size start); 
 
static inline cb_size cb_prefix_count_bignum(const cb_string s1, 
                                             const cb_string s2, 
                                             const cb_size len, 
                                             cb_size start) { 
 
    if (start.chars == 0 && start.bits == 0) { 
        start.chars = -MAXIMUM(abs(O2G(s1)->_mp_size), abs(O2G(s2)->_mp_size)); 
    } 
 
    return cb_prefix_count_fallback(s1, s2, len, start); 
} 
 
#define cb_prefix_count       cb_prefix_count_bignum 
 
#endif