mmath.c

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

			throw(MAL, "mmath._FLOOR","Range error");
	}
	return MAL_SUCCEED;
}


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


#line 387 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
str
math_binary_FMOD(dbl *res, dbl *a, dbl *b )
{
#ifdef DEBUG
	printf( "math_binary_FMOD\n");
#endif
	if (*a == dbl_nil || *b == dbl_nil) {
		*res = dbl_nil;
	} else {
		fmod_binary( a, b, res);
	}
	return MAL_SUCCEED;
}


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




#line 403 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
str
math_binary_ROUND(dbl *res, dbl *x, int *y)
{
	if (*x == dbl_nil || *y == int_nil) {
		*res = dbl_nil;
	} else {
		double factor = pow(10, *y), integral;
		double tmp = *y > 0 ? modf(*x, &integral) : *x;

		tmp *= factor;
		if (tmp >= 0)
			tmp = floor(tmp + 0.5);
		else
			tmp = ceil(tmp - 0.5);
		tmp /= factor;

		if (*y > 0)
			tmp += integral;

		*res = tmp;
	}

	return MAL_SUCCEED;
}

str
math_unary_ISNAN(bit *res, dbl *a)
{
#ifdef DEBUG
	printf("math_unary_ISNAN\n");
#endif
	if (*a == dbl_nil) {
		*res = bit_nil;
	} else {
		*res = MNisnan(*a);
	}
	return MAL_SUCCEED;
}

str
math_unary_ISINF(int *res, dbl *a)
{
#ifdef DEBUG
	printf("math_unary_ISINF\n");
#endif
	if (*a == dbl_nil) {
		*res = int_nil;
	} else {
		if (MNisinf(*a)) {
			*res = (*a < 0.0) ? -1 : 1;
		} else {
			*res = 0;
		}
	}
	return MAL_SUCCEED;
}

str
math_unary_FINITE(bit *res, dbl *a)
{
#ifdef DEBUG
	printf("math_unary_FINITE\n");
#endif
	if (*a == dbl_nil) {
		*res = bit_nil;
	} else {
		*res = MNfinite(*a);
	}
	return MAL_SUCCEED;
}



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

#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_ACOSdbl(dbl *res , dbl *a );
str MATHunary_ACOSdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_ACOSdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		acos_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_ACOSflt(flt *res , flt *a );
str MATHunary_ACOSflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_ACOSflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		acos_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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


#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_ASINdbl(dbl *res , dbl *a );
str MATHunary_ASINdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_ASINdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		asin_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_ASINflt(flt *res , flt *a );
str MATHunary_ASINflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_ASINflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		asin_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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


#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_ATANdbl(dbl *res , dbl *a );
str MATHunary_ATANdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_ATANdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		atan_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_ATANflt(flt *res , flt *a );
str MATHunary_ATANflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_ATANflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		atan_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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


#line 516 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 501 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHbinary_ATAN2dbl(dbl *res, dbl *a, dbl *b );
str MATHbinary_ATAN2dbl(dbl *res, dbl *a, dbl *b ) {
#ifdef DEBUG
		printf( "MATHbinary_ATAN2\n");
#endif
   if (*a == dbl_nil || *b == dbl_nil) {
		*res = dbl_nil;
   } else {
		dbl r1 ,a1 = *a, b1 = *b;
		atan2_binary( &a1, &b1, &r1);
		*res= (dbl) r1;
   }
   return MAL_SUCCEED;
}


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

  
#line 501 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHbinary_ATAN2flt(flt *res, flt *a, flt *b );
str MATHbinary_ATAN2flt(flt *res, flt *a, flt *b ) {
#ifdef DEBUG
		printf( "MATHbinary_ATAN2\n");
#endif
   if (*a == flt_nil || *b == flt_nil) {
		*res = flt_nil;
   } else {
		dbl r1 ,a1 = *a, b1 = *b;
		atan2_binary( &a1, &b1, &r1);
		*res= (flt) r1;
   }
   return MAL_SUCCEED;
}


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



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


#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_COSdbl(dbl *res , dbl *a );
str MATHunary_COSdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_COSdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		cos_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_COSflt(flt *res , flt *a );
str MATHunary_COSflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_COSflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		cos_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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


#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_SINdbl(dbl *res , dbl *a );
str MATHunary_SINdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_SINdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		sin_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_SINflt(flt *res , flt *a );
str MATHunary_SINflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_SINflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		sin_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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


#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_TANdbl(dbl *res , dbl *a );
str MATHunary_TANdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_TANdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		tan_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_TANflt(flt *res , flt *a );
str MATHunary_TANflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_TANflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		tan_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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



#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_COSHdbl(dbl *res , dbl *a );
str MATHunary_COSHdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_COSHdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		cosh_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_COSHflt(flt *res , flt *a );
str MATHunary_COSHflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_COSHflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		cosh_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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


#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_SINHdbl(dbl *res , dbl *a );
str MATHunary_SINHdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_SINHdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		sinh_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



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

  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_SINHflt(flt *res , flt *a );
str MATHunary_SINHflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_SINHflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		sinh_unary( &tmp1, &tmp2 );
		*res = (flt) tmp2;
	}
   return msg;
}



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




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


#line 497 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
  
#line 478 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHunary_TANHdbl(dbl *res , dbl *a );
str MATHunary_TANHdbl(dbl *res , dbl *a ) {
#ifdef DEBUG