mmath.c

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

		printf( "MATHunary_TANHdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		tanh_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_TANHflt(flt *res , flt *a );
str MATHunary_TANHflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_TANHflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		tanh_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 553 "/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_EXPdbl(dbl *res , dbl *a );
str MATHunary_EXPdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_EXPdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		exp_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_EXPflt(flt *res , flt *a );
str MATHunary_EXPflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_EXPflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		exp_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 555 "/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_LOGdbl(dbl *res , dbl *a );
str MATHunary_LOGdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_LOGdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		log_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_LOGflt(flt *res , flt *a );
str MATHunary_LOGflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_LOGflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		log_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 556 "/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_LOG10dbl(dbl *res , dbl *a );
str MATHunary_LOG10dbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_LOG10dbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		log10_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_LOG10flt(flt *res , flt *a );
str MATHunary_LOG10flt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_LOG10flt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		log10_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 557 "/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_POWdbl(dbl *res, dbl *a, dbl *b );
str MATHbinary_POWdbl(dbl *res, dbl *a, dbl *b ) {
#ifdef DEBUG
		printf( "MATHbinary_POW\n");
#endif
   if (*a == dbl_nil || *b == dbl_nil) {
		*res = dbl_nil;
   } else {
		dbl r1 ,a1 = *a, b1 = *b;
		pow_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_POWflt(flt *res, flt *a, flt *b );
str MATHbinary_POWflt(flt *res, flt *a, flt *b ) {
#ifdef DEBUG
		printf( "MATHbinary_POW\n");
#endif
   if (*a == flt_nil || *b == flt_nil) {
		*res = flt_nil;
   } else {
		dbl r1 ,a1 = *a, b1 = *b;
		pow_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 559 "/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_SQRTdbl(dbl *res , dbl *a );
str MATHunary_SQRTdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_SQRTdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		sqrt_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_SQRTflt(flt *res , flt *a );
str MATHunary_SQRTflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_SQRTflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		sqrt_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 560 "/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_CEILdbl(dbl *res , dbl *a );
str MATHunary_CEILdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_CEILdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		ceil_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_CEILflt(flt *res , flt *a );
str MATHunary_CEILflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_CEILflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		ceil_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 562 "/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_FABSdbl(dbl *res , dbl *a );
str MATHunary_FABSdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_FABSdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		fabs_unary( &tmp1, &tmp2 );
		*res = (dbl) tmp2;
	}
   return msg;
}



#line 563 "/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_FLOORdbl(dbl *res , dbl *a );
str MATHunary_FLOORdbl(dbl *res , dbl *a ) {
#ifdef DEBUG
		printf( "MATHunary_FLOORdbl\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == dbl_nil) {
		*res = dbl_nil;
	} else {
		tmp1= *a;
		floor_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_FLOORflt(flt *res , flt *a );
str MATHunary_FLOORflt(flt *res , flt *a ) {
#ifdef DEBUG
		printf( "MATHunary_FLOORflt\n");
#endif
	dbl tmp1,tmp2;
	str msg= MAL_SUCCEED;
	if (*a == flt_nil) {
		*res = flt_nil;
	} else {
		tmp1= *a;
		floor_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 564 "/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_FMODdbl(dbl *res, dbl *a, dbl *b );
str MATHbinary_FMODdbl(dbl *res, dbl *a, dbl *b ) {
#ifdef DEBUG
		printf( "MATHbinary_FMOD\n");
#endif
   if (*a == dbl_nil || *b == dbl_nil) {
		*res = dbl_nil;
   } else {
		dbl r1 ,a1 = *a, b1 = *b;
		fmod_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_FMODflt(flt *res, flt *a, flt *b );
str MATHbinary_FMODflt(flt *res, flt *a, flt *b ) {
#ifdef DEBUG
		printf( "MATHbinary_FMOD\n");
#endif
   if (*a == flt_nil || *b == flt_nil) {
		*res = flt_nil;
   } else {
		dbl r1 ,a1 = *a, b1 = *b;
		fmod_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 565 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"



#line 520 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHbinary_ROUNDdbl(dbl *res, dbl *x, int *y);
str MATHbinary_ROUNDdbl(dbl *res, dbl *x, int *y) {
  if(*x == dbl_nil || *y == int_nil) {
	*res = dbl_nil;
  } else {
	dbl factor = pow(10,*y), integral;
	dbl 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 = (dbl) tmp;
  }
  return MAL_SUCCEED;
}


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


#line 520 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/mmath.mx"
mmath_export str MATHbinary_ROUNDflt(flt *res, flt *x, int *y);
str MATHbinary_ROUNDflt(flt *res, flt *x, int *y) {
  if(*x == flt_nil || *y == int_nil) {
	*res = flt_nil;
  } else {
	dbl factor = pow(10,*y), integral;
	dbl 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 = (flt) tmp;
  }
  return MAL_SUCCEED;
}


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


mmath_export str MATHunary_ISNAN(bit *res, dbl *a);
str
MATHunary_ISNAN(bit *res, dbl *a)
{
	return math_unary_ISNAN(res, a);
}

mmath_export str MATHunary_ISINF(int *res, dbl *a);
str
MATHunary_ISINF(int *res, dbl *a)
{
	return math_unary_ISINF(res, a);
}

mmath_export str MATHunary_FINITE(bit *res, dbl *a);
str
MATHunary_FINITE(bit *res, dbl *a)
{
	return math_unary_FINITE(res, a);
}

mmath_export str MATHrandint(int *res);
str
MATHrandint(int *res)
{
	*res = rand();
	return MAL_SUCCEED;
}

mmath_export str MATHsrandint(int *seed);
str
MATHsrandint(int *seed)
{
	srand(*seed);
	return MAL_SUCCEED;
}



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