tst1502.mal

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

	x := bat.new(:oid,:chr);
	bat.insert(x,1@0,'a');
	bat.insert(x,2@0,'a');
	bat.insert(x,3@0,'b');
	bat.insert(x,4@0,'b');
	bat.insert(x,5@0,'b');
	bat.insert(x,6@0,'b');
	bat.insert(x,7@0,'c');
	bat.insert(x,8@0,'c');

	y := bat.new(:oid,:dbl);
	le_a := calc.dbl(1.0);
	bat.insert(y,1@0,le_a);
	ne_a := calc.dbl(2.0);
	bat.insert(y,2@0,ne_a);
	pe_a := calc.dbl(2.0);
	bat.insert(y,3@0,pe_a);
	re_a := calc.dbl(2.0);
	bat.insert(y,4@0,re_a);
	te_a := calc.dbl(2.0);
	bat.insert(y,5@0,te_a);
	ve_a := calc.dbl(3.0);
	bat.insert(y,6@0,ve_a);
	xe_a := calc.dbl(1.0);
	bat.insert(y,7@0,xe_a);
	af_a := calc.dbl(1.0);
	bat.insert(y,8@0,af_a);

	z := bat.new(:oid,:str);
	bat.insert(z,1@0,"c");
	bat.insert(z,2@0,"a");
	bat.insert(z,3@0,"b");
	bat.insert(z,4@0,"c");
	bat.insert(z,5@0,"a");
	hf_a := bat.insert(z,6@0,"a");
	bat.insert(z,7@0,"c");
	bat.insert(z,8@0,"a");
	io.print("sort x"); 
	xs:=algebra.sort(x); 
	io.print(xs);
	io.print("hsort xrev"); 
	xrev:=bat.reverse(x);
	xsrev:= algebra.sort(xrev); 
	io.print(xsrev);