test_60.mils

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

setoid(oid(20000000));

proc newid(any x, any y) : any {
	return x+y;
}

#calling a function;
var b:= new(int,int,0);
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);
b.rename("tenk1_unique1");

proc dummy() : int { return 1; }

proc p(any B, any C) : any { 
        var local :=newid(B,C); 
	print(local);
}

proc s(int low, int high) : void {
	var t := select(bat("tenk1_unique1"),low,high); 
        t.count().print();
}

proc echo(any x,any y) : any { 
	var z:=x; 
	return(z); 
}
proc New(any N,any A,any Ahsh) : void {
        var Nh := newid(N,"_hsh"); 
        var A := new(int,int,1); 
        rename(A,N); 
        var Ahsh := new(oid,int,1); 
        rename(Ahsh,Nh); 
	print(bat(Nh));
}

p("b","1");

# passing parameters;
var a:=35;
echo(a,"hello").print();
New("r","C","Ch");

s(0,10);
s(0,11);

# errors !;
s(0,99);
s(0,999);
quit();