calc.c

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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQbitbit(bit *retval, bit *v1, bit *v2);
str CALCcompNEQbitbit(bit *retval, bit *v1, bit *v2){
	if (*v1 == bit_nil || *v2 == bit_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQbitchr(bit *retval, bit *v1, chr *v2);
str CALCcompNEQbitchr(bit *retval, bit *v1, chr *v2){
	if (*v1 == bit_nil || *v2 == chr_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQbitsht(bit *retval, bit *v1, sht *v2);
str CALCcompNEQbitsht(bit *retval, bit *v1, sht *v2){
	if (*v1 == bit_nil || *v2 == sht_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQbitint(bit *retval, bit *v1, int *v2);
str CALCcompNEQbitint(bit *retval, bit *v1, int *v2){
	if (*v1 == bit_nil || *v2 == int_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQbitlng(bit *retval, bit *v1, lng *v2);
str CALCcompNEQbitlng(bit *retval, bit *v1, lng *v2){
	if (*v1 == bit_nil || *v2 == lng_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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


		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQshtchr(bit *retval, sht *v1, chr *v2);
str CALCcompNEQshtchr(bit *retval, sht *v1, chr *v2){
	if (*v1 == sht_nil || *v2 == chr_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQshtsht(bit *retval, sht *v1, sht *v2);
str CALCcompNEQshtsht(bit *retval, sht *v1, sht *v2){
	if (*v1 == sht_nil || *v2 == sht_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQshtint(bit *retval, sht *v1, int *v2);
str CALCcompNEQshtint(bit *retval, sht *v1, int *v2){
	if (*v1 == sht_nil || *v2 == int_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQshtlng(bit *retval, sht *v1, lng *v2);
str CALCcompNEQshtlng(bit *retval, sht *v1, lng *v2){
	if (*v1 == sht_nil || *v2 == lng_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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


		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQintchr(bit *retval, int *v1, chr *v2);
str CALCcompNEQintchr(bit *retval, int *v1, chr *v2){
	if (*v1 == int_nil || *v2 == chr_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQintsht(bit *retval, int *v1, sht *v2);
str CALCcompNEQintsht(bit *retval, int *v1, sht *v2){
	if (*v1 == int_nil || *v2 == sht_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQintint(bit *retval, int *v1, int *v2);
str CALCcompNEQintint(bit *retval, int *v1, int *v2){
	if (*v1 == int_nil || *v2 == int_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQintlng(bit *retval, int *v1, lng *v2);
str CALCcompNEQintlng(bit *retval, int *v1, lng *v2){
	if (*v1 == int_nil || *v2 == lng_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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


		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQlngchr(bit *retval, lng *v1, chr *v2);
str CALCcompNEQlngchr(bit *retval, lng *v1, chr *v2){
	if (*v1 == lng_nil || *v2 == chr_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQlngsht(bit *retval, lng *v1, sht *v2);
str CALCcompNEQlngsht(bit *retval, lng *v1, sht *v2){
	if (*v1 == lng_nil || *v2 == sht_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQlngint(bit *retval, lng *v1, int *v2);
str CALCcompNEQlngint(bit *retval, lng *v1, int *v2){
	if (*v1 == lng_nil || *v2 == int_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompNEQlnglng(bit *retval, lng *v1, lng *v2);
str CALCcompNEQlnglng(bit *retval, lng *v1, lng *v2){
	if (*v1 == lng_nil || *v2 == lng_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 != *v2;	
	}
	return MAL_SUCCEED;
}


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


calc_export str CALCcompNEQstrstr(bit *retval, str *s1, str *s2);
str CALCcompNEQstrstr(bit *retval, str *s1, str *s2){
	if (strNil(*s1) || strNil(*s2)) {
		*retval = bit_nil; 
	} else {
		*retval = (strcmp(*s1,*s2) != 0);
	}
	return MAL_SUCCEED;
}
calc_export str CALCcompNEQany(bit *retval, ptr *v1, int tpe, ptr *v2);
str CALCcompNEQany(bit *retval, ptr *v1, int tpe, ptr *v2){
	int (*cmp)(ptr,ptr) = BATatoms[tpe].atomCmp;
	ptr nil = ATOMnilptr(tpe);

	if ((*cmp)(*v1, nil) == 0 || (*cmp)(*v2, nil) == 0) {
		*retval = bit_nil; 
	} else {
		*retval = ((*cmp)( *v1, *v2) != 0);
	}
	return MAL_SUCCEED;
}


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


#line 978 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEoidoid(bit *retval, oid *v1, oid *v2);
str CALCcompGEoidoid(bit *retval, oid *v1, oid *v2){
	if (*v1 == oid_nil || *v2 == oid_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEfltflt(bit *retval, flt *v1, flt *v2);
str CALCcompGEfltflt(bit *retval, flt *v1, flt *v2){
	if (*v1 == flt_nil || *v2 == flt_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEfltdbl(bit *retval, flt *v1, dbl *v2);
str CALCcompGEfltdbl(bit *retval, flt *v1, dbl *v2){
	if (*v1 == flt_nil || *v2 == dbl_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEdbldbl(bit *retval, dbl *v1, dbl *v2);
str CALCcompGEdbldbl(bit *retval, dbl *v1, dbl *v2){
	if (*v1 == dbl_nil || *v2 == dbl_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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


		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEchrchr(bit *retval, chr *v1, chr *v2);
str CALCcompGEchrchr(bit *retval, chr *v1, chr *v2){
	if (*v1 == chr_nil || *v2 == chr_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEchrsht(bit *retval, chr *v1, sht *v2);
str CALCcompGEchrsht(bit *retval, chr *v1, sht *v2){
	if (*v1 == chr_nil || *v2 == sht_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEchrint(bit *retval, chr *v1, int *v2);
str CALCcompGEchrint(bit *retval, chr *v1, int *v2){
	if (*v1 == chr_nil || *v2 == int_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEchrlng(bit *retval, chr *v1, lng *v2);
str CALCcompGEchrlng(bit *retval, chr *v1, lng *v2){
	if (*v1 == chr_nil || *v2 == lng_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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


		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEbitbit(bit *retval, bit *v1, bit *v2);
str CALCcompGEbitbit(bit *retval, bit *v1, bit *v2){
	if (*v1 == bit_nil || *v2 == bit_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEbitchr(bit *retval, bit *v1, chr *v2);
str CALCcompGEbitchr(bit *retval, bit *v1, chr *v2){
	if (*v1 == bit_nil || *v2 == chr_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEbitsht(bit *retval, bit *v1, sht *v2);
str CALCcompGEbitsht(bit *retval, bit *v1, sht *v2){
	if (*v1 == bit_nil || *v2 == sht_nil) {
		*retval = bit_nil;
	} else {
		*retval = *v1 >= *v2;	
	}
	return MAL_SUCCEED;
}


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

		
#line 968 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/calc.mx"
calc_export str CALCcompGEbitint(bit *retval, bit *v1, int *v2);