tst1503.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');

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

	z := bat.new(:oid,:str);
	cf_a := bat.insert(z,1@0,"c");
	df_a := bat.insert(z,2@0,"a");
	ef_a := bat.insert(z,3@0,"b");
	ff_a := bat.insert(z,4@0,"c");
	gf_a := bat.insert(z,5@0,"a");
	hf_a := bat.insert(z,6@0,"a");
	if_a := bat.insert(z,7@0,"c");
	jf_a := bat.insert(z,8@0,"a");
io.print("group x");io.print(x,y,z);
        (zb1,b1) := group.new(x);
io.print("b1 becomes"); io.print(b1);
io.print("zb1 becomes"); io.print(zb1);
        (zb2,b2) := group.derive(zb1,b1,y);
io.print("b2 becomes"); io.print(b2);