tst042.stable.out

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

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


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

# 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.
#s := "hello";
#i := 1;
#f := 3.14;
#c := 'a';
#b:= true;
#bb:= new(:void,:str);
#
#st:= getType(s); printf("string %d\n",st);
#it:= getType(i); printf("int %d\n",it);
#ft:= getType(f); printf("flt %d\n",ft);
#ct:= getType(c); printf("chr %d\n",ct);
#bt:= getType(b); printf("bit %d\n",bt);
#bbt:= getType(bb); printf("bat %d\n",bbt);
#
## get them as strings
#v:= "";
#v:= getTypeName(st); printf("string %s\n",v);
#v:= getTypeName(it); printf("int %s\n",v);
#v:= getTypeName(ft); printf("flt %s\n",v);
#v:= getTypeName(ct); printf("chr %s\n",v);
#v:= getTypeName(bt); printf("bit %s\n",v);
#v:= getTypeName(bbt); printf("bat %s\n",v);
#
#
function user.main():void;	# 0  (main:void)
    s := "hello";	# 1  (s:str)<-(_2:str)
    i := 1;	# 2  (i:int)<-(_4:int)
    f := 3.1400001;	# 3  (f:flt)<-(_6:flt)
    c := 'a';	# 4  (c:chr)<-(_8:chr)
    b := true;	# 5  (b:bit)<-(_10:bit)
    bb := bat.new(:oid,:str);	# 6 CMDBATnew (bb:bat[:oid,:str])<-(_12:oid)(_13:str)
    st := inspect.getType(s);	# 7 INSPECTtypeName (st:str)<-(s:str)
    io.printf("%s\n",st);	# 8 IOprint_formatted_str (_15:void)<-(_16:str)(st:str)
    it := inspect.getType(i);	# 9 INSPECTtypeName (it:str)<-(i:int)
    io.printf("%s\n",it);	# 10 IOprint_formatted_str (_18:void)<-(_16:str)(it:str)
    ft := inspect.getType(f);	# 11 INSPECTtypeName (ft:str)<-(f:flt)
    io.printf("%s\n",ft);	# 12 IOprint_formatted_str (_20:void)<-(_16:str)(ft:str)
    ct := inspect.getType(c);	# 13 INSPECTtypeName (ct:str)<-(c:chr)
    io.printf("%s\n",ct);	# 14 IOprint_formatted_str (_22:void)<-(_16:str)(ct:str)
    bt := inspect.getType(b);	# 15 INSPECTtypeName (bt:str)<-(b:bit)
    io.printf("%s\n",bt);	# 16 IOprint_formatted_str (_24:void)<-(_16:str)(bt:str)
    (ht,tt):= inspect.getType(bb);	# 17 INSPECTtypeName (ht:str)(tt:str)<-(bb:bat[:oid,:str])
    io.printf("bat  head %s\n",ht);	# 18 IOprint_formatted_str (_27:void)<-(_28:str)(ht:str)
    io.printf("bat  head %s\n",tt);	# 19 IOprint_formatted_str (_29:void)<-(_28:str)(tt:str)
end main;	# 20  
str
int
flt
chr
bit
bat  head oid
bat  head str

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