mkey.mal

一个内存数据库的源代码这是服务器端还有客户端

#line 24 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mkey.mx"
module mkey;

command rotate(v:int, nbits:int) :int 
address MKEYrotate
comment "left-rotate an int by nbits";

pattern hash(v:any):int 
address MKEYhash 
comment "compute a hash int number from any value";
command hash(v:chr):int 
address MKEYhash_chr; 
command hash(v:sht):int 
address MKEYhash_sht; 
command hash(v:int):int 
address MKEYhash_int; 
command hash(v:flt):int 
address MKEYhash_flt; 
command hash(v:dbl):int 
address MKEYhash_dbl; 
command hash(v:lng):int 
address MKEYhash_lng; 
command hash(v:str):int 
address MKEYhash_str; 

pattern bulk_rotate_xor_hash(h:int, nbits:int, v:any) :int 
address MKEYrotate_xor_hash
comment "post: [:xor=]([:rotate=](h, nbits), [hash](b))";

command bulk_rotate_xor_hash(h:bat[:oid,:int], nbits:int,b:bat[:oid,:any_1])
	:bat[:oid,:int] 
address MKEYbulk_rotate_xor_hash
comment "pre:  h and b should be synced on head
         post: [:xor=]([:rotate=](h, nbits), [hash](b))";