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 | | |
| | | | | | | #include "global.h" | #include "stuff.h" | #include "bitvector.h" | #include "pike_cpulib.h" | #include "pike_memory.h" | | | PMOD_EXPORT const char Pike_is8bitalnum_vector[] = | "0000000000000000" | "0000000000000000" | "0000000000000000" | "1111111111000000" | "0111111111111111" | "1111111111100001" | "0111111111111111" | "1111111111100000" | "0000000000000000" | "0000000000000000" | "1011110101100010" | "1011011001101110" | "1111111111111111" | "1111111011111111" | "1111111111111111" | "1111111011111111"; | | | const INT32 hashprimes[32] = | { | 31, | 31, | 31, | 31, | 31, | 31, | 61, | 127, | 251, | 541, | 1151, | 2111, | 4327, | 8803, | 17903, | 32321, | 65599, | 133153, | 270001, | 547453, | 1109891, | 2000143, | 4561877, | 9248339, | 16777215, | 33554431, | 67108863, | 134217727, | 268435455, | 536870911, | 1073741823, | 2147483647, | }; | | | | | | | | | | | PMOD_EXPORT int my_log2(size_t x) | { | if( x == 0 ) return 0; | return log2_u32(x); | } | | | PMOD_EXPORT double my_strtod(char *nptr, char **endptr) | { | double tmp=strtod(nptr,endptr); | if(*endptr>nptr) | { | if(endptr[0][-1]=='.') | endptr[0]--; | } | return tmp; | } | | | | | | unsigned INT32 find_next_power(unsigned INT32 x) | { | if( x == 0 ) return 1; | return 1<<(my_log2(x-1)+1); | } | | |
|