tst007.mal

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

# A collection of forloops, which should not execute
barrier	H := batoperatie;
	Tail:= algebra.fetch(b,H);
	#body
redo 	H;
exit	H;


# de andere loops zijn eenvoudig. 'goto' is altijd beperkt tot
# 'randen' van het blok. (redo L, leave L)
# een while loop
barrier L := chop.hasMoreElements(b);
	H:= chop.head(b);
	v:= chop.nextElement(b);
redo	L;
exit	L;
	
#een do-while loop
	entry:= true;
barrier M:= entry_or_exittest;
	entry:= false;
	# rest
redo	M;
exit	M;

#een for-loop 
	i:= 1;
barrier N:= i<10;
	#body
	i:=i+1;
redo	N;
exit	N;


# de if-then en if-then-else constructies

barrier	FT:= booleanexpr;
	# thenpart
exit	FT;

barrier	FTE:= booleanexpr;
	# thenpart
exit	FTE;
barrier FS:= batcalc.not(FTE);
	#elsepart
exit	FS;