]> www.ginac.de Git - cln.git/blob - src/base/string/cl_st_hashcode.cc
Initial revision
[cln.git] / src / base / string / cl_st_hashcode.cc
1 // cl_string hashcode().
2
3 // General includes.
4 #include "cl_sysdep.h"
5
6 // Specification.
7 #include "cl_string.h"
8
9
10 // Implementation.
11
12 unsigned long hashcode (const cl_string& str)
13 {
14     var unsigned long code = 0x61284AF3;
15     // We walk through all characters. It may take some time for very
16     // long strings, but it's better than completely ignoring some characters.
17     var long len = str.length();
18     var const char * ptr = str.asciz();
19     for (; len > 0; len--) {
20         var unsigned char c = *ptr++;
21         code = (code << 5) | (code >> 27); // rotate left 5 bits
22         code += (long)c << 16;
23         code ^= (long)c;
24         code &= 0xFFFFFFFF;
25     }
26     return code;
27 }