c_math.c

Go to the documentation of this file.

 
/***** Feature test switches ************************************************/
/***** System headers *******************************************************/
//@cond
#include "vm_config.h"
#include <math.h>
//@endcond
 
/***** Local headers ********************************************************/
#include "mrubyc.h"
 
/***** Constat values *******************************************************/
/***** Macros ***************************************************************/
/***** Typedefs *************************************************************/
/***** Function prototypes **************************************************/
/***** Local variables ******************************************************/
/***** Global variables *****************************************************/
/***** Signal catching functions ********************************************/
/***** Local functions ******************************************************/
#if MRBC_USE_FLOAT && MRBC_USE_MATH
//================================================================
static double to_double( mrbc_vm *vm, const mrbc_value *v )
{
  switch( mrbc_type(*v) ) {
  case MRBC_TT_INTEGER: return (double)v->i;
  case MRBC_TT_FLOAT:   return (double)v->d;
  default: break;
  }
 
  mrbc_raise(vm, MRBC_CLASS(TypeError), 0);
  return 0.0;
}
 
//================================================================
static void c_math_acos(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, acos( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_acosh(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, acosh( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_asin(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, asin( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_asinh(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, asinh( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_atan(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, atan( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_atan2(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, atan2( to_double(vm, &v[1]), to_double(vm, &v[2]) ));
}
 
//================================================================
static void c_math_atanh(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, atanh( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_cbrt(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, cbrt( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_cos(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, cos( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_cosh(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, cosh( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_erf(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, erf( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_erfc(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, erfc( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_exp(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, exp( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_hypot(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, hypot( to_double(vm, &v[1]), to_double(vm, &v[2]) ));
}
 
//================================================================
static void c_math_ldexp(mrbc_vm *vm, mrbc_value v[], int argc)
{
  int exp;
  switch( mrbc_type(v[2]) ) {
  case MRBC_TT_INTEGER: exp = v[2].i;           break;
  case MRBC_TT_FLOAT:   exp = (int)v[2].d;      break;
  default:
    mrbc_raise(vm, MRBC_CLASS(TypeError), 0);
    return;
  }
 
  v[0] = mrbc_float_value(vm, ldexp( to_double(vm, &v[1]), exp ));
}
 
//================================================================
static void c_math_log(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, log( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_log10(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, log10( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_log2(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, log2( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_sin(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, sin( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_sinh(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, sinh( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_sqrt(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, sqrt( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_tan(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, tan( to_double(vm, &v[1]) ));
}
 
//================================================================
static void c_math_tanh(mrbc_vm *vm, mrbc_value v[], int argc)
{
  v[0] = mrbc_float_value(vm, tanh( to_double(vm, &v[1]) ));
}
 
/***** Global functions *****************************************************/
//================================================================
void mrbc_init_module_math(void)
{
  static mrbc_value e = mrbc_float_value(0, M_E);
  mrbc_set_class_const( MRBC_CLASS(Math), MRBC_SYM(E), &e );
 
  static mrbc_value pi = mrbc_float_value(0, M_PI);
  mrbc_set_class_const( MRBC_CLASS(Math), MRBC_SYM(PI), &pi );
}
 
/* MRBC_AUTOGEN_METHOD_TABLE
 
  MODULE("Math")
  FILE("_autogen_module_math.h")
 
  METHOD( "acos",       c_math_acos )
  METHOD( "acosh",      c_math_acosh )
  METHOD( "asin",       c_math_asin )
  METHOD( "asinh",      c_math_asinh )
  METHOD( "atan",       c_math_atan )
  METHOD( "atan2",      c_math_atan2 )
  METHOD( "atanh",      c_math_atanh )
  METHOD( "cbrt",       c_math_cbrt )
  METHOD( "cos",        c_math_cos )
  METHOD( "cosh",       c_math_cosh )
  METHOD( "erf",        c_math_erf )
  METHOD( "erfc",       c_math_erfc )
  METHOD( "exp",        c_math_exp )
  METHOD( "hypot",      c_math_hypot )
  METHOD( "ldexp",      c_math_ldexp )
  METHOD( "log",        c_math_log )
  METHOD( "log10",      c_math_log10 )
  METHOD( "log2",       c_math_log2 )
  METHOD( "sin",        c_math_sin )
  METHOD( "sinh",       c_math_sinh )
  METHOD( "sqrt",       c_math_sqrt )
  METHOD( "tan",        c_math_tan )
  METHOD( "tanh",       c_math_tanh )
*/
#include "_autogen_module_math.h"
 
#endif  // MRBC_USE_FLOAT && MRBC_USE_MATH