tst400a2.mal

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

# simple iterator loop test

	i:= -1:lng;
barrier v:= i<1000000:lng;
	i:= i+1;
	redo v:= i<1000000:ln;
exit	v;
print("end of loop");