swlpc Git

131 lines (101 with data), 1.7 kB

#if 0
/*
 *
 * LPC / C interface
 *
 */
#endif

int handle;

reset()
{
    int x;

    handle = load_shared_object("modules/math.so");
}

query_destruct()
{
    unload_shared_object(handle);
}

real acos(real x)
{
    return ext_c_call(handle, "lpc_acos", x);
}

real asin(real x)
{
    return ext_c_call(handle, "lpc_asin", x);
}

real atan(real x)
{
    return ext_c_call(handle, "lpc_atan", x);
}

real atan2(real x, real y)
{
    return ext_c_call(handle, "lpc_atan2", x,y);
}

real ceil(real x)
{
    return ext_c_call(handle, "lpc_ceil", x);
}

real cos(real x)
{
    return ext_c_call(handle, "lpc_cos", x);
}

real cosh(real x)
{
    return ext_c_call(handle, "lpc_cosh", x);
}

real exp(real x)
{
    return ext_c_call(handle, "lpc_exp", x);
}

real fabs(x)
{
    return ext_c_call(handle, "lpc_fabs", x);
}

real floor(real x)
{
    return ext_c_call(handle, "lpc_floor", x);
}

real fmod(real x, real y)
{
    return ext_c_call(handle, "lpc_fmod", x, y);
}

real frexp(real x)
{
    return ext_c_call(handle, "lpc_frexp", x);
}

real hypot(real x, real y)
{
    return ext_c_call(handle, "lpc_hypot", x, y);
}

real ldexp(real x, real y)
{
    return ext_c_call(handle, "lpc_ldexp", x, y);
}

real modf(real x)
{
    return ext_c_call(handle, "lpc_modf", x);
}

real pow(real x, real y)
{
    return ext_c_call(handle, "lpc_pow", x, y);
}

real sin(real x)
{
    return ext_c_call(handle, "lpc_sin", x);
}

real sinh(real x)
{
    return ext_c_call(handle, "lpc_sinh", x);
}

real sqrt(real x)
{
    return ext_c_call(handle, "lpc_sqrt", x);
}

real tan(real x)
{
    return ext_c_call(handle, "lpc_tan", x);
}

real tanh(real x)
{
    return ext_c_call(handle, "lpc_tanh", x);
}