test_10.mils

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

setoid(oid(20000000));
# Sorting activities
# left->right shift + left boundary;
var s:=new(int,int);
insert(s,5,5);insert(s,3,3);insert(s,4,2);insert(s,2,1);
insert(s,1,1);insert(s,4,2); insert(s,4,3);
printf("#~BeginVariableOutput~#\n");
sort(s).print();
printf("#~EndVariableOutput~#\n");
sort_ht(s).print();

# right->left shift + right boundary;
s:=new(int,int);
insert(s,2,1);insert(s,4,1); insert(s,3,1); insert(s,5,1);
insert(s,6,1);insert(s,4,2);insert(s,1,1);
printf("#~BeginVariableOutput~#\n");
sort(s).print();
printf("#~EndVariableOutput~#\n");
sort_ht(s).print();
quit();