calc.mal

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

		address CALCcompNEQshtchr;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:sht, right:chr) :bit 
		address CALCcompLTshtchr;
		command <=(left:sht, right:chr) :bit 
		address CALCcompLEshtchr;
		command >=(left:sht, right:chr) :bit 
		address CALCcompGEshtchr;
		command >(left:sht, right:chr) :bit 
		address CALCcompGTshtchr;
		command between(val:sht, low:sht, high:sht) :bit 
		address CALCcompBetweensht;


#line 156 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:sht, right:sht) :bit 
		address CALCcompEQshtsht;
		command !=(left:sht, right:sht) :bit 
		address CALCcompNEQshtsht;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:sht, right:sht) :bit 
		address CALCcompLTshtsht;
		command <=(left:sht, right:sht) :bit 
		address CALCcompLEshtsht;
		command >=(left:sht, right:sht) :bit 
		address CALCcompGEshtsht;
		command >(left:sht, right:sht) :bit 
		address CALCcompGTshtsht;
		command between(val:sht, low:sht, high:sht) :bit 
		address CALCcompBetweensht;


#line 157 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:sht, right:int) :bit 
		address CALCcompEQshtint;
		command !=(left:sht, right:int) :bit 
		address CALCcompNEQshtint;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:sht, right:int) :bit 
		address CALCcompLTshtint;
		command <=(left:sht, right:int) :bit 
		address CALCcompLEshtint;
		command >=(left:sht, right:int) :bit 
		address CALCcompGEshtint;
		command >(left:sht, right:int) :bit 
		address CALCcompGTshtint;
		command between(val:sht, low:sht, high:sht) :bit 
		address CALCcompBetweensht;


#line 158 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:sht, right:lng) :bit 
		address CALCcompEQshtlng;
		command !=(left:sht, right:lng) :bit 
		address CALCcompNEQshtlng;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:sht, right:lng) :bit 
		address CALCcompLTshtlng;
		command <=(left:sht, right:lng) :bit 
		address CALCcompLEshtlng;
		command >=(left:sht, right:lng) :bit 
		address CALCcompGEshtlng;
		command >(left:sht, right:lng) :bit 
		address CALCcompGTshtlng;
		command between(val:sht, low:sht, high:sht) :bit 
		address CALCcompBetweensht;


#line 159 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:int, right:chr) :bit 
		address CALCcompEQintchr;
		command !=(left:int, right:chr) :bit 
		address CALCcompNEQintchr;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:int, right:chr) :bit 
		address CALCcompLTintchr;
		command <=(left:int, right:chr) :bit 
		address CALCcompLEintchr;
		command >=(left:int, right:chr) :bit 
		address CALCcompGEintchr;
		command >(left:int, right:chr) :bit 
		address CALCcompGTintchr;
		command between(val:int, low:int, high:int) :bit 
		address CALCcompBetweenint;


#line 161 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:int, right:sht) :bit 
		address CALCcompEQintsht;
		command !=(left:int, right:sht) :bit 
		address CALCcompNEQintsht;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:int, right:sht) :bit 
		address CALCcompLTintsht;
		command <=(left:int, right:sht) :bit 
		address CALCcompLEintsht;
		command >=(left:int, right:sht) :bit 
		address CALCcompGEintsht;
		command >(left:int, right:sht) :bit 
		address CALCcompGTintsht;
		command between(val:int, low:int, high:int) :bit 
		address CALCcompBetweenint;


#line 162 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:int, right:int) :bit 
		address CALCcompEQintint;
		command !=(left:int, right:int) :bit 
		address CALCcompNEQintint;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:int, right:int) :bit 
		address CALCcompLTintint;
		command <=(left:int, right:int) :bit 
		address CALCcompLEintint;
		command >=(left:int, right:int) :bit 
		address CALCcompGEintint;
		command >(left:int, right:int) :bit 
		address CALCcompGTintint;
		command between(val:int, low:int, high:int) :bit 
		address CALCcompBetweenint;


#line 163 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:int, right:lng) :bit 
		address CALCcompEQintlng;
		command !=(left:int, right:lng) :bit 
		address CALCcompNEQintlng;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:int, right:lng) :bit 
		address CALCcompLTintlng;
		command <=(left:int, right:lng) :bit 
		address CALCcompLEintlng;
		command >=(left:int, right:lng) :bit 
		address CALCcompGEintlng;
		command >(left:int, right:lng) :bit 
		address CALCcompGTintlng;
		command between(val:int, low:int, high:int) :bit 
		address CALCcompBetweenint;


#line 164 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:lng, right:chr) :bit 
		address CALCcompEQlngchr;
		command !=(left:lng, right:chr) :bit 
		address CALCcompNEQlngchr;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:lng, right:chr) :bit 
		address CALCcompLTlngchr;
		command <=(left:lng, right:chr) :bit 
		address CALCcompLElngchr;
		command >=(left:lng, right:chr) :bit 
		address CALCcompGElngchr;
		command >(left:lng, right:chr) :bit 
		address CALCcompGTlngchr;
		command between(val:lng, low:lng, high:lng) :bit 
		address CALCcompBetweenlng;


#line 166 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:lng, right:sht) :bit 
		address CALCcompEQlngsht;
		command !=(left:lng, right:sht) :bit 
		address CALCcompNEQlngsht;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:lng, right:sht) :bit 
		address CALCcompLTlngsht;
		command <=(left:lng, right:sht) :bit 
		address CALCcompLElngsht;
		command >=(left:lng, right:sht) :bit 
		address CALCcompGElngsht;
		command >(left:lng, right:sht) :bit 
		address CALCcompGTlngsht;
		command between(val:lng, low:lng, high:lng) :bit 
		address CALCcompBetweenlng;


#line 167 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:lng, right:int) :bit 
		address CALCcompEQlngint;
		command !=(left:lng, right:int) :bit 
		address CALCcompNEQlngint;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:lng, right:int) :bit 
		address CALCcompLTlngint;
		command <=(left:lng, right:int) :bit 
		address CALCcompLElngint;
		command >=(left:lng, right:int) :bit 
		address CALCcompGElngint;
		command >(left:lng, right:int) :bit 
		address CALCcompGTlngint;
		command between(val:lng, low:lng, high:lng) :bit 
		address CALCcompBetweenlng;


#line 168 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:lng, right:lng) :bit 
		address CALCcompEQlnglng;
		command !=(left:lng, right:lng) :bit 
		address CALCcompNEQlnglng;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:lng, right:lng) :bit 
		address CALCcompLTlnglng;
		command <=(left:lng, right:lng) :bit 
		address CALCcompLElnglng;
		command >=(left:lng, right:lng) :bit 
		address CALCcompGElnglng;
		command >(left:lng, right:lng) :bit 
		address CALCcompGTlnglng;
		command between(val:lng, low:lng, high:lng) :bit 
		address CALCcompBetweenlng;


#line 169 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		
#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 121 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command ==(left:str, right:str) :bit 
		address CALCcompEQstrstr;
		command !=(left:str, right:str) :bit 
		address CALCcompNEQstrstr;


#line 126 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"


		command <(left:str, right:str) :bit 
		address CALCcompLTstrstr;
		command <=(left:str, right:str) :bit 
		address CALCcompLEstrstr;
		command >=(left:str, right:str) :bit 
		address CALCcompGEstrstr;
		command >(left:str, right:str) :bit 
		address CALCcompGTstrstr;
		command between(val:str, low:str, high:str) :bit 
		address CALCcompBetweenstr;


#line 171 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"



#line 176 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
command %(left:chr, right:int) :int 
address CALCbinarycheckMODchrint;
command %(left:sht, right:int) :int 
address CALCbinarycheckMODshtint;
command %(left:int, right:int) :int 
address CALCbinarycheckMODintint;
command %(left:lng, right:int) :int 
address CALCbinarycheckMODlngint;
command %(left:lng, right:lng) :lng 
address CALCbinarycheckMODlnglng;
command %(left:int, right:chr) :chr 
address CALCbinarycheckMODintchr;
command %(left:int, right:sht) :sht 
address CALCbinarycheckMODintsht;

command +(l:str,r:str):str
address CALCstrConcat
comment "Concatenate two strings";
command +(l:str,r:int):str
address CALCstrConcatInt
comment "Concatenate two strings";



#line 210 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

	
#line 199 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command +(left:flt, right:chr) :flt 
		address CALCbinaryADDfltchr; 
		command -(left:flt, right:chr) :flt 
		address CALCbinarySUBfltchr;
		command *(left:flt, right:chr) :flt 
		address CALCbinaryMULfltchr;
		command /(left:flt, right:chr) :flt 
		address CALCbinarycheckDIVfltchr;


#line 211 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

	
#line 199 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command +(left:flt, right:sht) :flt 
		address CALCbinaryADDfltsht; 
		command -(left:flt, right:sht) :flt 
		address CALCbinarySUBfltsht;
		command *(left:flt, right:sht) :flt 
		address CALCbinaryMULfltsht;
		command /(left:flt, right:sht) :flt 
		address CALCbinarycheckDIVfltsht;


#line 212 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"

	
#line 199 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		command +(left:flt, right:int) :flt 
		address CALCbinaryADDfltint; 
		command -(left:flt, right:int) :flt 
		address CALCbinarySUBfltint;