tst020.mal

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

function pl(i:str);
	L:= "something";
	r:=0;
barrier l:= r == 0;
	y:= r;
	r:= r+1;
	leave l;
	redo l;
exit	l;
end pl;
a:= "hello";
z:= user.pl(a);
io.print("done");