test_15.mils

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

setoid(oid(20000000));
#testing the set operations;
var b:= new(int,int);
b.insert(1,15);
b.insert(2,4);
b.insert(3,int(nil));
b.insert(4,16);
b.insert(5,25);
b.insert(6,36);
b.insert(7,49);
b.insert(8,64);
b.insert(9,int(nil));
b.insert(int(nil),int(nil));
b.insert(int(nil),81);

var c:= b.copy();
var t:= b.select(80,int(nil)); print(t);
c.access(BAT_WRITE);
insert(c,t);print(c);

var z:= new(int,int);
b.replace(1,1);
z.insert(2,4);
z.insert(3,9);
b.replace(z);
b.print();

c.reverse().print();
var d:= intersect(reverse(c),b);
print(d);
var e:= diff(reverse(c),d);
print(e);
var f:= union(e,b);
print(f);
# specials
var marcel:= b.kunion(b);
marcel.print();
quit();