tst1202.mal

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

#old bug in tst1200
	rule_apr:= mtime.rule("last THU on or before aPr 1@01:15");
	rule_nov:= mtime.rule(11,-10,-4,75);
	mc_a := calc.*(23,60);
	tzone_07:= mtime.timezone(mc_a,rule_apr,rule_nov);
	nc_a := calc.*(-23,59);
	oc_a := calc.-(nc_a,59);
	tzone_08:= mtime.timezone(oc_a);
	tzone_09:= mtime.timezone(0);
	pc_a := calc.*(23,60);
	qc_a := calc.+(pc_a,59);
	tzone_bat:= bat.new(:oid,:timezone);
	i8:= 8@0;	# don;t use 08@0
	io.print(i8);	# don;t use 09@0
	i9:= 9@0;
	io.print(i9);
	bd_a := bat.insert(tzone_bat,8@0,tzone_08);
	cd_a := bat.insert(tzone_bat,9@0,tzone_09);
	bat.setColumn(tzone_bat,"timezone");
	jd_a := io.print(tzone_bat);