test_40.mils

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

setoid(oid(2000000));
# Checking out the effect of hash clustering
module("cluster");
var k10_unique1 := bat("k10_unique1");
var t:= k10_unique1.select(0,20);
t.accbuild("hash");
t.print();
t.acccluster(find(monet_acctbl,"hash"));
t.print();

quit();