tst605.mal

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

# Testing global consts defined for all users
# It should traverse the nested spaces looking for the correct variable
# take a local copy
	version:str := const.take("version");
	user:str := const.take("user");
	dbname:str:= const.take("dbname");
	dbfarm:str:= const.take("dbfarm");
#	dd:str:= const.take(distribution);
#	bb:bat[void,str] := const.take(environment);

# how to obtain a copy of all objects in a space?
io.print("Contents of the 'const' box");
barrier (b,nme):= const.newIterator();
	io.printf("# %s=",nme);
	val:str := const.toString(nme);
	io.printf("%s\n",val);
	redo (b,nme):= const.hasMoreElements();
exit b;