tst2550.mal

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

# Factory functions seem to provide a better control structure

factory random(seed:int) (noes:bit,val:int);
	i:= seed;
barrier L:= true;
	i:= 125 *i;
	i:= i % 32767;
	yield (noes,val):=(true,i);
	redo L;
exit L;
	return (noes,val):=(false,seed);
end;