test_60.stable.out.linux

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

stdout of test 'test_60` in directory 'tests/suite_01` itself:


# 18:34:02 >  
# 18:34:02 >  Mtimeout -timeout 60 Mserver "--config=/var/tmp/_4.3.13-FixedPetersDDsync_PREFIX_MONET_GNU_32_d_--enable-warning_/etc/monet.conf" --debug=10 --set "monet_mod_path=/var/tmp/_4.3.13-FixedPetersDDsync_PREFIX_MONET_GNU_32_d_--enable-warning_/lib/MonetDB" --set "gdk_dbfarm=/var/tmp/_4.3.13-FixedPetersDDsync_PREFIX_MONET_GNU_32_d_--enable-warning_/var/MonetDB/dbfarm" --set "sql_logdir=/var/tmp/_4.3.13-FixedPetersDDsync_PREFIX_MONET_GNU_32_d_--enable-warning_/var/MonetDB/log" --set mapi_port=53708 --set sql_port=52024 --set monet_prompt= --trace --dbname=mTests_tests_suite_01  < test_60.milS
# 18:34:02 >  

# Monet Database Server V4.3.13
# 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_tests_suite_01
# Visit http://monetdb.cwi.nl for further information.
## Monet Mil to Mal compiler
## Copyright (c) 2001-2004, CWI. All rights reserved.
#
##Predefined code segment
##The compiler can not guarantee an accurate compilation,
##because MIL unlike MAL is a dynamically typed language.
##A few guidelines to maximize usefullness.
##- make the type of variables explicit, in particular 'nil'
##- upon advice of M2m to remap identifiers, change it in your program directly
##include "mil_prelude";
#	mil.line("setoid(oid(20000000));");
#	aa_a := oid(20000000);
#	ba_a := setoid(aa_a);
#	mil.line("proc newid(any x, any y) : any {");
#function newid(x:any, y:any):any;
#	mil.line("\treturn x+y;");
#	return ca_a :=+(x,y);
#end newid;
function Admin.newid(x:any,y:any):any;	# 0  dynamic (newid:any)<-(x:any)(y:any)
    mil.line("\treturn x+y;");	# 1 MILline ($3:void)<-($4:str)
    return ca_a := batcalc.+(x,y);	# 2 CMDbatADD (ca_a:bat[:any,:any])<-(x:any)(y:any)
end newid;	# 3  
#	mil.line("#calling a function;\n");
#	mil.line("var b:= new(int,int,0);");
#	b := new(nil:int,nil:int,0);
#	mil.line("b.insert(1,15);");
#	da_a := insert(b,1,15);
#	mil.line("b.insert(2,4);");
#	ea_a := insert(b,2,4);
#	mil.line("b.insert(3,int(nil));");
#	fa_a := int(nil);
#	ga_a := insert(b,3,fa_a);
#	mil.line("b.insert(4,16);");
#	ha_a := insert(b,4,16);
#	mil.line("b.insert(5,25);");
#	ia_a := insert(b,5,25);
#	mil.line("b.insert(6,36);");
#	ja_a := insert(b,6,36);
#	mil.line("b.insert(7,49);");
#	ka_a := insert(b,7,49);
#	mil.line("b.insert(8,64);");
#	la_a := insert(b,8,64);
#	mil.line("b.insert(9,int(nil));");
#	ma_a := int(nil);
#	na_a := insert(b,9,ma_a);
#	mil.line("b.insert(int(nil),int(nil));");
#	oa_a := int(nil);
#	pa_a := int(nil);
#	qa_a := insert(b,oa_a,pa_a);
#	mil.line("b.insert(int(nil),81);");
#	ra_a := int(nil);
#	sa_a := insert(b,ra_a,81);
#	mil.line("b.rename(\"tenk1_unique1\");");
#	ta_a := bat.setName(b,"tenk1_unique1");
#	mil.line("proc dummy() : int { return 1; }");
#function dummy():int;
#	return ua_a :=1;
#end dummy;
function Admin.dummy():int;	# 0  (dummy:int)
    return ua_a := 1;	# 1  (ua_a:int)<-($2:int)
end dummy;	# 2  
#	mil.line("proc p(any B, any C) : any { ");
#function p(B:any, C:any):any;
#	mil.line("        var local :=newid(B,C); ");
#	local := newid(B,C);
#	mil.line("        vars(); ");
#	va_a := vars();
#end p;
function Admin.p(B:any,C:any):any;	# 0  dynamic (p:any)<-(B:any)(C:any)
    mil.line("        var local :=newid(B,C); ");	# 1 MILline ($3:void)<-($4:str)
    local := Admin.newid(B,C);	# 2  (local:any)<-(B:any)(C:any)
    mil.line("        vars(); ");	# 3 MILline ($6:void)<-($7:str)
    va_a := vars();	# 4  unknown (va_a:any)
end p;	# 5  
#	mil.line("proc s(int low, int high) : void {");
#function s(low:int, high:int):void;
#	mil.line("\tvars(); ");
#	wa_a := vars();
#	mil.line("\tvar t := select(bat(\"tenk1_unique1\"),low,high); ");
#	xa_a := new("tenk1_unique1");
#	t := select(xa_a,low,high);
#	mil.line("        t.count().print();");
#	ya_a := count(t);
#	ab_a := print(ya_a);
#end s;
function Admin.s(low:int,high:int):void;	# 0  (s:void)<-(low:int)(high:int)
    mil.line("\tvars(); ");	# 1 MILline ($3:void)<-($4:str)
    wa_a := vars();	# 2  unknown (wa_a:any)
    mil.line("\tvar t := select(bat(\"tenk1_unique1\"),low,high); ");	# 3 MILline ($6:void)<-($7:str)
    xa_a := new("tenk1_unique1");	# 4  unknown (xa_a:bat[:any,:int])<-($9:str)
    t := algebra.select(xa_a,low,high);	# 5 ALGselect (t:bat[:any,:int])<-(xa_a:bat[:any,:int])(low:int)(high:int)
    mil.line("        t.count().print();");	# 6 MILline ($11:void)<-($12:str)
    ya_a := aggr.count(t);	# 7 ALGcount_bat (ya_a:lng)<-(t:bat[:any,:int])
    ab_a := io.print(ya_a);	# 8 IOprint_val (ab_a:int)<-(ya_a:lng)
end s;	# 9  
!ERROR: 'vars' undefined in Admin.s[2]
!ERROR: 'new' undefined in Admin.s[4]
#	mil.line("#proc echo(any x,any y) : any { vars(); z=x; vars(); return(z); }\n");
#	mil.line("proc echo(any x,any y) : any { vars(); var z:=x; vars(); return(z); }");
#function echo(x:any, y:any):any;
#	bb_a := vars();
#	z := x;
#	cb_a := vars();
#	return db_a :=z;
#end echo;
function Admin.echo(x:any,y:any):any;	# 0  dynamic (echo:any)<-(x:any)(y:any)
    bb_a := vars();	# 1  unknown (bb_a:any)
    z := x;	# 2  (z:any)<-(x:any)
    cb_a := vars();	# 3  unknown (cb_a:any)
    return db_a := z;	# 4  (db_a:any)<-(z:any)
end echo;	# 5  
#	mil.line("proc New(any N,any A,any Ahsh) : void {");
#function New(N:any, A:any, Ahsh:any):void;
#	mil.line("        var Nh := newid(N,\"_hsh\"); ");
#	Nh := newid(N,"_hsh");
#	mil.line("        var A := new(int,int,1); ");
#	A := new(nil:int,nil:int,1);
#	mil.line("        rename(A,N); ");
#	eb_a := bat.setName(A,N);
#	mil.line("        var Ahsh := new(oid,int,1); ");
#	Ahsh := new(nil:oid,nil:int,1);
#	mil.line("        rename(Ahsh,Nh); vars();");
#	fb_a := bat.setName(Ahsh,Nh);
#	gb_a := vars();
#end New;
function Admin.New(N:any,A:any,Ahsh:any):void;	# 0  (New:void)<-(N:any)(A:any)(Ahsh:any)
    mil.line("        var Nh := newid(N,\"_hsh\"); ");	# 1 MILline ($4:void)<-($5:str)
    Nh := Admin.newid(N,"_hsh");	# 2  (Nh:any)<-(N:any)($7:str)
    mil.line("        var A := new(int,int,1); ");	# 3 MILline ($8:void)<-($9:str)
    A := bbp.new(nil,nil,1);	# 4 CMDBATnewint (A:any)<-($10:int)($10:int)($11:int)
    mil.line("        rename(A,N); ");	# 5 MILline ($12:void)<-($13:str)
    eb_a := bat.setName(A,N);	# 6 BKCsetName (eb_a:void)<-(A:any)(N:any)
    mil.line("        var Ahsh := new(oid,int,1); ");	# 7 MILline ($15:void)<-($16:str)
    Ahsh := bbp.new(nil,nil,1);	# 8 CMDBATnewint (Ahsh:any)<-($17:oid)($10:int)($11:int)
    mil.line("        rename(Ahsh,Nh); vars();");	# 9 MILline ($18:void)<-($19:str)
    fb_a := bat.setName(Ahsh,Nh);	# 10 BKCsetName (fb_a:void)<-(Ahsh:any)(Nh:any)
    gb_a := vars();	# 11  unknown (gb_a:any)