tst606.stable.out

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

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


# 08:01:25 >  
# 08:01:25 >  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  tst606.mal </dev/null
# 08:01:25 >  

# 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.
## partial definition of the object space for MIL
## it is subordinate to the MIL space dealing with persistent bats
## CONST STORE_MEM   := 0; 
## CONST STORE_MMAP  := 1; 
## CONST STORE_COMPR := 2; 
#
#module constants;
#
##the variables introduced in main are retained as globals
#function main():void;
#	STORE_MEM :=0;
#	STORE_MMAP :=1;
#	STORE_COMPR :=2;
#	const.deposit(STORE_MEM);
#	const.deposit(STORE_MMAP);
#	const.deposit(STORE_COMPR);
#end main;
function constants.main():void;	# 0  (main:void)
    STORE_MEM := 0;	# 1  (STORE_MEM:int)<-(_2:int)
    STORE_MMAP := 1;	# 2  (STORE_MMAP:int)<-(_4:int)
    STORE_COMPR := 2;	# 3  (STORE_COMPR:int)<-(_6:int)
    const.deposit("STORE_MEM",STORE_MEM);	# 4 CSTdeposit (_7:void)<-(_8:str)(STORE_MEM:int)
    const.deposit("STORE_MAP",STORE_MMAP);	# 5 CSTdeposit (_9:void)<-(_10:str)(STORE_MMAP:int)
    const.deposit("STORE_COMPR",STORE_COMPR);	# 6 CSTdeposit (_11:void)<-(_12:str)(STORE_COMPR:int)
end main;	# 7  
#
## take uses the 'root' versions.
#function take(v:str):any;
#	printf("looking for %s\n",v);
#	w:= take(v);
#	return w;
#end take;
function constants.take(v:str):any_1;	# 0  dynamic (take:any_1)<-(v:str)
    io.printf("looking for %s\n",v);	# 1 IOprint_formatted_str (_2:void)<-(_3:str)(v:str)
    w := constants.take(v);	# 2  (w:any)<-(v:str)
    return w;	# 3  (w:any)
end take;	# 4  
#
## release is overloaded for testing only
#function release(v:any):void;
#	BoxException:= "releasing a constant is forbidden";
#	raise BoxException;
#end release;
function constants.release(v:any_1):void;	# 0  (release:void)<-(v:any_1)
    BoxException := "releasing a constant is forbidden";	# 1  (BoxException:str)<-(_3:str)
    raise BoxException;	# 2  (BoxException:str)
end release;	# 3  
#
## accept the definition of a new constant
#function deposit(v:any_1,name:str) 
!MALException:MAL.getAddress:address of 'constants.space_deposit' not found
#
#

# 08:01:25 >  
# 08:01:25 >  Done.
# 08:01:25 >