tst1500.mal

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

	x := bat.new(:oid,:chr);
	de_a := bat.insert(x,1@0,'a');
	ee_a := bat.insert(x,2@0,'a');
	fe_a := bat.insert(x,3@0,'b');
	ge_a := bat.insert(x,4@0,'b');
	he_a := bat.insert(x,5@0,'b');
	ie_a := bat.insert(x,6@0,'b');
	je_a := bat.insert(x,7@0,'c');
	ke_a := bat.insert(x,8@0,'c');
	io.print("group x"); io.print(x);
	#b1 := group.new(x);
	(hb1,b1) := group.new(x);
io.print("b1 becomes"); io.print(b1);
io.print("hb1 becomes"); io.print(hb1);