test_02.mils

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

setoid(oid(20000000));
var s:= new(str,int);
insert(s,"hello",1);
print(find(s,"hello"));
insert(s,"bello",2);
insert(s,"cello",3);
insert(s,"dello",4);
insert(s,"eello",5);
insert(s,"fello",6);
insert(s,"gello",7);
insert(s,"hello",8);
printf("#~BeginVariableOutput~#\n"); info(s).print(); printf("#~EndVariableOutput~#\n");
print(find(s,"cello"));
delete(s,"cello",3);
print(s);
var sn:= select(s,1,5);
print(sn);
var s2:= semijoin(s.reverse(),sn.reverse());
print(s2);
var x:= join(s,s2);
print(x);
quit();