tst040.stable.out

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

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


# 07:58:43 >  
# 07:58:43 >  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  tst040.mal </dev/null
# 07:58:43 >  

# 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.
## Variables names may be identical to type names, but
## then they also have to bear the same value 
#
#str := "hello";
#int := 1:sht;
#flt := "wrong";
#i   := true;
#
#
#
function user.main():void;	# 0  (main:void)
# Variables names may be identical to type names, but 	# 1  (_1:str)
# then they also have to bear the same value  	# 2  (_2:str)
    str := "hello";	# 3  (str:str)<-(_4:str)
    int := 1:sht;	# 4  (int:sht)<-(_6:sht)
    flt := "wrong";	# 5  (flt:str)<-(_8:str)
    i := true;	# 6  (i:bit)<-(_10:bit)
# test for coercion errors 	# 7  (_11:str)
    x0 := 1:int;	# 8  (x0:int)<-(_13:int)
    io.print(x0);	# 9 IOprint_val (_14:void)<-(x0:int)
    x1 := 3:int;	# 10  (x1:int)<-(_16:int)
    io.print(x1);	# 11 IOprint_val (_17:void)<-(x1:int)
    x2 := "3":str;	# 12  (x2:str)<-(_19:str)
    io.print(x2);	# 13 IOprint_val (_20:void)<-(x2:str)
end main;	# 14  
[ 1 ]
[ 3 ]
[ "3" ]

# 07:58:44 >  
# 07:58:44 >  Done.
# 07:58:44 >