tst2560.mal

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

#materialized views example
r:= bat.new(:oid,:int);
bat.setRole(r,"emp","age");
bat.append(r,1);
bat.append(r,2);
bat.append(r,3);
io.print(r);
s:= bat.new(:oid,:str);
bat.setRole(s,"emp","name");
bat.append(s,"A");
bat.append(s,"B");
bat.append(s,"C");
io.print(s);

factory view1(l:int,h:int):bat[:oid,:str];
a:bat[:oid,:int] := bbp.find("emp","age");
b:bat[:oid,:str] := bbp.find("emp","name");
barrier always:= true;
	lOld:= l;
	hOld:= h;
	io.print("recalc");
	c := algebra.select(a,l,h);
	d := algebra.semijoin(b,c);
	barrier available:=true;
		yield d;
		leave available:= lOld != l;
		leave available:= hOld != h;
		io.print("reuse");
		redo available:=true;
	exit available;
	redo always;
exit always;
end view1;

e:= user.view1(0,2);
io.print(e);
e:= user.view1(0,2);
io.print(e);
e:= user.view1(0,4);
io.print(e);