tst4300.mal

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

#some join operations

mdb();
b:= new(:lng,:lng);
barrier (k,v):= newRange(0:lng);
        insert(b,v,v);
        redo (k,v):= nextElement(1:lng,100:lng);
exit (k,v);

i:= count(b);
print(i);

c:= select(b,0:lng,9:lng);
i:= count(c);
print(i);
d:= select(b,0:lng,49:lng);
i:= count(d);
print(i);

zz:= joinPath(b,c,d);
i:= count(zz);
print(i);

#to be detected by join inversion
#z:= joinPath(b,c);
#zz:= joinPath(zz,d);
#i:= count(z);
#print(i);