test_00.prelude.mil

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

setoid(oid(10000000));
module("unix","ascii_io");
# initialize the database
var t:= new(int,int);
t.rename("k10_unique1");
t.persists(true);
t.import(getenv("TSTTRGDIR")+"/test_00.k10_unique1");
t.count().print();
var z:= new(int,int);
z.rename("k10_unique2");
z.persists(true);
z.import(getenv("TSTTRGDIR")+"/test_00.k10_unique2");
z.count().print();
var w:= new(int,int);
w.rename("k100_unique1");
w.persists(true);
w.import(getenv("TSTTRGDIR")+"/test_00.k100_unique1");
w.count().print();
commit();
#quit;