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
  
88
  
89
  
90
  
91
  
92
  
93
  
94
  
95
  
96
  
97
  
98
  
99
  
100
  
101
  
102
  
103
  
104
  
105
  
106
  
107
  
108
  
#ifndef CB_FLOAT_H 
#define CB_FLOAT_H 
#include <math.h> 
#include "bitvector.h" 
#include "pike_int_types.h" 
 
#if SIZEOF_FLOAT_TYPE == 8 
typedef UINT64 CB_NAME(string); 
typedef UINT64 CB_NAME(char); 
#else 
typedef unsigned INT32 CB_NAME(string); 
typedef unsigned INT32 CB_NAME(char); 
#endif 
 
 
#ifdef cb_char 
# undef cb_char 
#endif 
#define cb_char CB_NAME(char) 
 
#ifdef cb_string 
# undef cb_string 
#endif 
#define cb_string CB_NAME(string) 
 
#ifdef CB_SOURCE 
#if SIZEOF_FLOAT_TYPE == 4 
# define gclz(x) clz32(x) 
#else 
# define gclz(x) clz64(x) 
#endif 
#define bitsof(x)     (sizeof(x)*8) 
#define int2float(x)  (*(FLOAT_TYPE*)&(x)) 
#define float2int(x)  (*(cb_char*)&(x)) 
 
static inline cb_string cb_encode_float(FLOAT_TYPE f) { 
    cb_char str; 
 
    memcpy(&str, &f, sizeof(str)); 
 
    if (str & MASK(cb_char, 1)) { 
        str = ~str; 
    } else { 
        str |= MASK(cb_char, 1); 
    } 
 
    return str; 
} 
 
static inline FLOAT_TYPE cb_decode_float(cb_char s) { 
    FLOAT_TYPE f; 
 
    if (s & MASK(cb_char, 1)) { 
        s = (s ^ MASK(cb_char, 1)); 
    } else { 
        s = (~s); 
    } 
 
    memcpy(&f, &s, sizeof(f)); 
 
    return f; 
} 
 
#define CB_ADD_KEY_REF(x)     do { } while(0) 
#define CB_FREE_KEY(x)                do { } while(0) 
#define CB_SET_KEY(node, x)   do { (node)->key = (x); } while (0) 
 
#define CB_KEY_EQ(k1, k2)                     \ 
        ( (k1).str == (k2).str ||               \ 
          (CB_S_EQ((k1).len, (k2).len) &&       \ 
           (k1).len.bits &&                     \ 
           !(((k1).str ^ (k2).str) & MASK(cb_char, (k1).len.bits)))) 
#define CB_KEY_LT(k1, k2)                     \ 
        ( (k1).str < (k2).str ||                \ 
          (((k1).str == (k2).str) && CB_LT((k1).len, (k2).len)) ) 
 
#define CB_GET_CHAR(str, n)   (str) 
#define CB_WIDTH(s)   (bitsof(cb_string)) /* width in bits */ 
#define CB_LENGTH(str)        1 
#define CB_SIZE(key)  ((key)->len) 
#define CB_GET_BIT(str, size)                 \ 
        (BITN(cb_char, CB_GET_CHAR((str), (size).chars), (size).bits)) 
#define CB_COUNT_PREFIX(s1, s2, n)            \ 
        ((size_t)gclz(CB_GET_CHAR((s1), (n)) ^ CB_GET_CHAR((s2), (n)))) 
 
static inline cb_size cb_prefix_count_float(const cb_string s1, 
                                            const cb_string s2, 
                                            const cb_size len, 
                                            const cb_size UNUSED(start)) { 
    cb_size ret; 
 
    if (s1 == s2) return len; 
 
    ret.chars = 0; 
    ret.bits = (size_t)gclz(s1 ^ s2); 
 
    if (!len.chars) ret.bits = MINIMUM(len.bits, ret.bits); 
 
    return ret; 
} 
 
#define cb_prefix_count       cb_prefix_count_float 
 
#endif 
 
#endif