calc.mal

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

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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:chr) :bit 
	address CALCisnil_chr
	comment "is a value nil?";
	command isnotnil(v:chr) :bit 
	address CALCisnotnil_chr
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:bit) :bit 
	address CALCisnil_bit
	comment "is a value nil?";
	command isnotnil(v:bit) :bit 
	address CALCisnotnil_bit
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:sht) :bit 
	address CALCisnil_sht
	comment "is a value nil?";
	command isnotnil(v:sht) :bit 
	address CALCisnotnil_sht
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:int) :bit 
	address CALCisnil_int
	comment "is a value nil?";
	command isnotnil(v:int) :bit 
	address CALCisnotnil_int
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:oid) :bit 
	address CALCisnil_oid
	comment "is a value nil?";
	command isnotnil(v:oid) :bit 
	address CALCisnotnil_oid
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:flt) :bit 
	address CALCisnil_flt
	comment "is a value nil?";
	command isnotnil(v:flt) :bit 
	address CALCisnotnil_flt
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:lng) :bit 
	address CALCisnil_lng
	comment "is a value nil?";
	command isnotnil(v:lng) :bit 
	address CALCisnotnil_lng
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:dbl) :bit 
	address CALCisnil_dbl
	comment "is a value nil?";
	command isnotnil(v:dbl) :bit 
	address CALCisnotnil_dbl
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:str) :bit 
	address CALCisnil_str
	comment "is a value nil?";
	command isnotnil(v:str) :bit 
	address CALCisnotnil_str
	comment "is a value not equal to nil?";


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

	
#line 84 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
	command isnil(v:bat) :bit 
	address CALCisnil_bat
	comment "is a value nil?";
	command isnotnil(v:bat) :bit 
	address CALCisnotnil_bat
	comment "is a value not equal to nil?";


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

command isnil(v:void) :bit 
address CALCisnil_void
comment "is a value nil?";
command isnotnil(v:void) :bit 
address CALCisnotnil_void
comment "is a value not equal to nil?";


#line 139 "/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:oid, right:oid) :bit 
		address CALCcompEQoidoid;
		command !=(left:oid, right:oid) :bit 
		address CALCcompNEQoidoid;


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


		command <(left:oid, right:oid) :bit 
		address CALCcompLToidoid;
		command <=(left:oid, right:oid) :bit 
		address CALCcompLEoidoid;
		command >=(left:oid, right:oid) :bit 
		address CALCcompGEoidoid;
		command >(left:oid, right:oid) :bit 
		address CALCcompGToidoid;
		command between(val:oid, low:oid, high:oid) :bit 
		address CALCcompBetweenoid;


#line 140 "/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:flt, right:flt) :bit 
		address CALCcompEQfltflt;
		command !=(left:flt, right:flt) :bit 
		address CALCcompNEQfltflt;


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


		command <(left:flt, right:flt) :bit 
		address CALCcompLTfltflt;
		command <=(left:flt, right:flt) :bit 
		address CALCcompLEfltflt;
		command >=(left:flt, right:flt) :bit 
		address CALCcompGEfltflt;
		command >(left:flt, right:flt) :bit 
		address CALCcompGTfltflt;
		command between(val:flt, low:flt, high:flt) :bit 
		address CALCcompBetweenflt;


#line 141 "/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:flt, right:dbl) :bit 
		address CALCcompEQfltdbl;
		command !=(left:flt, right:dbl) :bit 
		address CALCcompNEQfltdbl;


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


		command <(left:flt, right:dbl) :bit 
		address CALCcompLTfltdbl;
		command <=(left:flt, right:dbl) :bit 
		address CALCcompLEfltdbl;
		command >=(left:flt, right:dbl) :bit 
		address CALCcompGEfltdbl;
		command >(left:flt, right:dbl) :bit 
		address CALCcompGTfltdbl;
		command between(val:flt, low:flt, high:flt) :bit 
		address CALCcompBetweenflt;


#line 142 "/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:dbl, right:dbl) :bit 
		address CALCcompEQdbldbl;
		command !=(left:dbl, right:dbl) :bit 
		address CALCcompNEQdbldbl;


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


		command <(left:dbl, right:dbl) :bit 
		address CALCcompLTdbldbl;
		command <=(left:dbl, right:dbl) :bit 
		address CALCcompLEdbldbl;
		command >=(left:dbl, right:dbl) :bit 
		address CALCcompGEdbldbl;
		command >(left:dbl, right:dbl) :bit 
		address CALCcompGTdbldbl;
		command between(val:dbl, low:dbl, high:dbl) :bit 
		address CALCcompBetweendbl;


#line 143 "/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:chr, right:chr) :bit 
		address CALCcompEQchrchr;
		command !=(left:chr, right:chr) :bit 
		address CALCcompNEQchrchr;


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


		command <(left:chr, right:chr) :bit 
		address CALCcompLTchrchr;
		command <=(left:chr, right:chr) :bit 
		address CALCcompLEchrchr;
		command >=(left:chr, right:chr) :bit 
		address CALCcompGEchrchr;
		command >(left:chr, right:chr) :bit 
		address CALCcompGTchrchr;
		command between(val:chr, low:chr, high:chr) :bit 
		address CALCcompBetweenchr;


#line 145 "/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:chr, right:sht) :bit 
		address CALCcompEQchrsht;
		command !=(left:chr, right:sht) :bit 
		address CALCcompNEQchrsht;


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


		command <(left:chr, right:sht) :bit 
		address CALCcompLTchrsht;
		command <=(left:chr, right:sht) :bit 
		address CALCcompLEchrsht;
		command >=(left:chr, right:sht) :bit 
		address CALCcompGEchrsht;
		command >(left:chr, right:sht) :bit 
		address CALCcompGTchrsht;
		command between(val:chr, low:chr, high:chr) :bit 
		address CALCcompBetweenchr;


#line 146 "/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:chr, right:int) :bit 
		address CALCcompEQchrint;
		command !=(left:chr, right:int) :bit 
		address CALCcompNEQchrint;


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


		command <(left:chr, right:int) :bit 
		address CALCcompLTchrint;
		command <=(left:chr, right:int) :bit 
		address CALCcompLEchrint;
		command >=(left:chr, right:int) :bit 
		address CALCcompGEchrint;
		command >(left:chr, right:int) :bit 
		address CALCcompGTchrint;
		command between(val:chr, low:chr, high:chr) :bit 
		address CALCcompBetweenchr;


#line 147 "/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:chr, right:lng) :bit 
		address CALCcompEQchrlng;
		command !=(left:chr, right:lng) :bit 
		address CALCcompNEQchrlng;


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


		command <(left:chr, right:lng) :bit 
		address CALCcompLTchrlng;
		command <=(left:chr, right:lng) :bit 
		address CALCcompLEchrlng;
		command >=(left:chr, right:lng) :bit 
		address CALCcompGEchrlng;
		command >(left:chr, right:lng) :bit 
		address CALCcompGTchrlng;
		command between(val:chr, low:chr, high:chr) :bit 
		address CALCcompBetweenchr;


#line 148 "/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:bit, right:bit) :bit 
		address CALCcompEQbitbit;
		command !=(left:bit, right:bit) :bit 
		address CALCcompNEQbitbit;


#line 150 "/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:bit, right:chr) :bit 
		address CALCcompEQbitchr;
		command !=(left:bit, right:chr) :bit 
		address CALCcompNEQbitchr;


#line 151 "/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:bit, right:sht) :bit 
		address CALCcompEQbitsht;
		command !=(left:bit, right:sht) :bit 
		address CALCcompNEQbitsht;


#line 152 "/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:bit, right:int) :bit 
		address CALCcompEQbitint;
		command !=(left:bit, right:int) :bit 
		address CALCcompNEQbitint;


#line 153 "/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:bit, right:lng) :bit 
		address CALCcompEQbitlng;
		command !=(left:bit, right:lng) :bit 
		address CALCcompNEQbitlng;


#line 154 "/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:chr) :bit 
		address CALCcompEQshtchr;
		command !=(left:sht, right:chr) :bit