tst004.stable.out

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

stdout of test 'tst004` in directory 'src/mal` itself:


# 07:58:33 >  
# 07:58:33 >  Mtimeout -timeout 60 Mserver "--config=/ufs/mk/monet5/Linux/etc/MonetDB5.conf" --debug=10 --set "monet_mod_path=/ufs/mk/monet5/Linux/lib/MonetDB5:/ufs/mk/opensource/MonetDB/Linux/lib/MonetDB" --set "gdk_dbfarm=/ufs/mk/monet5/Linux/var/MonetDB5/dbfarm" --set "sql_logdir=/ufs/mk/monet5/Linux/var/MonetDB5/log" --set mapi_port=42158 --set sql_port=55708 --set monet_prompt= --trace "--config=/ufs/mk/monet5/src/mal/Tests/All.conf" --dbname=mTests_src_mal  tst004.mal </dev/null
# 07:58:33 >  

# Monet Database Server V4.99.19
# Copyright (c) 1993-2004, CWI. All rights reserved.
# Compiled for i686-redhat-linux-gnu/32bit; dynamically linked.
# config:/ufs/mk/monet5/Linux/etc/MonetDB5.conf
# dbfarm:/ufs/mk/monet5/Linux/var/MonetDB5/dbfarm
# dbname:mTests_src_mal
# Visit http://monetdb.cwi.nl/ for further information.
## minimal barrier
#barrier	l:=1;
#	print(l);
#exit	l:= 2;
#	print(l);
#barrier m:=3;
#	leave m;
#exit	m:= 4;
#	print(m);
#
function user.main():void;	# 0  (main:void)
# minimal barrier 	# 1  (_1:str)
barrier l := 1;	# 2  (l:int)<-(_3:int) jump 4
    io.print(l);	# 3 IOprint_val (_4:void)<-(l:int)
exit l := 2;	# 4  (l:int)<-(_5:int)
    io.print(l);	# 5 IOprint_val (_6:void)<-(l:int)
barrier m := 3;	# 6  (m:int)<-(_8:int) jump 8
    leave m;	# 7  (m:int) jump 8
exit m := 4;	# 8  (m:int)<-(_9:int)
    io.print(m);	# 9 IOprint_val (_10:void)<-(m:int)
end main;	# 10  
[ 1 ]
[ 2 ]
[ 4 ]

# 07:58:33 >  
# 07:58:33 >  Done.
# 07:58:33 >