test_90.mils

来自「一个内存数据库的源代码这是服务器端还有客户端」· MILS 代码 · 共 25 行

setoid(oid(20000000));
#test mark and number primitives

var b:= new(str,int);
b.insert("the",1);
b.insert("quick",20);
b.insert("brown",30);
b.insert("fox",40);
b.insert("jumps",50);
b.insert("over",60);
b.insert("lazy",70);
b.insert("dog",80);
b.insert(str(nil),90);
b.insert(".",100);
b.insert("",int(nil));
b.insert(str(nil),int(nil));
b.print();

var c:= markTail(b,oid(20000050));
print(c);

var d:=number(b);
print(d);
quit();