Move math library into separate module
This commit is contained in:
525
engine/builtin.c
525
engine/builtin.c
@@ -273,507 +273,6 @@ static int PH7_builtin_empty(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
return PH7_OK;
|
||||
}
|
||||
#ifndef PH7_DISABLE_BUILTIN_FUNC
|
||||
#ifdef PH7_ENABLE_MATH_FUNC
|
||||
/*
|
||||
* Section:
|
||||
* Math Functions.
|
||||
* Authors:
|
||||
* Symisc Systems,devel@symisc.net.
|
||||
* Copyright (C) Symisc Systems,http://ph7.symisc.net
|
||||
* Status:
|
||||
* Stable.
|
||||
*/
|
||||
#include <stdlib.h> /* abs */
|
||||
#include <math.h>
|
||||
/*
|
||||
* float sqrt(float $arg )
|
||||
* Square root of the given number.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The square root of arg or the special value Nan of failure.
|
||||
*/
|
||||
static int PH7_builtin_sqrt(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = sqrt(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float exp(float $arg )
|
||||
* Calculates the exponent of e.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* 'e' raised to the power of arg.
|
||||
*/
|
||||
static int PH7_builtin_exp(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = exp(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float floor(float $arg )
|
||||
* Round fractions down.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* Returns the next lowest integer value by rounding down value if necessary.
|
||||
*/
|
||||
static int PH7_builtin_floor(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = floor(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float cos(float $arg )
|
||||
* Cosine.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The cosine of arg.
|
||||
*/
|
||||
static int PH7_builtin_cos(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = cos(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float acos(float $arg )
|
||||
* Arc cosine.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The arc cosine of arg.
|
||||
*/
|
||||
static int PH7_builtin_acos(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = acos(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float cosh(float $arg )
|
||||
* Hyperbolic cosine.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The hyperbolic cosine of arg.
|
||||
*/
|
||||
static int PH7_builtin_cosh(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = cosh(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float sin(float $arg )
|
||||
* Sine.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The sine of arg.
|
||||
*/
|
||||
static int PH7_builtin_sin(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = sin(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float asin(float $arg )
|
||||
* Arc sine.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The arc sine of arg.
|
||||
*/
|
||||
static int PH7_builtin_asin(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = asin(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float sinh(float $arg )
|
||||
* Hyperbolic sine.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The hyperbolic sine of arg.
|
||||
*/
|
||||
static int PH7_builtin_sinh(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = sinh(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float ceil(float $arg )
|
||||
* Round fractions up.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The next highest integer value by rounding up value if necessary.
|
||||
*/
|
||||
static int PH7_builtin_ceil(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = ceil(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float tan(float $arg )
|
||||
* Tangent.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The tangent of arg.
|
||||
*/
|
||||
static int PH7_builtin_tan(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = tan(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float atan(float $arg )
|
||||
* Arc tangent.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The arc tangent of arg.
|
||||
*/
|
||||
static int PH7_builtin_atan(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = atan(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float tanh(float $arg )
|
||||
* Hyperbolic tangent.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The Hyperbolic tangent of arg.
|
||||
*/
|
||||
static int PH7_builtin_tanh(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = tanh(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float atan2(float $y,float $x)
|
||||
* Arc tangent of two variable.
|
||||
* Parameter
|
||||
* $y = Dividend parameter.
|
||||
* $x = Divisor parameter.
|
||||
* Return
|
||||
* The arc tangent of y/x in radian.
|
||||
*/
|
||||
static int PH7_builtin_atan2(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x, y;
|
||||
if(nArg < 2) {
|
||||
/* Missing arguments,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
y = ph7_value_to_double(apArg[0]);
|
||||
x = ph7_value_to_double(apArg[1]);
|
||||
/* Perform the requested operation */
|
||||
r = atan2(y, x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float/int64 abs(float/int64 $arg )
|
||||
* Absolute value.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The absolute value of number.
|
||||
*/
|
||||
static int PH7_builtin_abs(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
int is_float;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
is_float = ph7_value_is_float(apArg[0]);
|
||||
if(is_float) {
|
||||
double r, x;
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = fabs(x);
|
||||
ph7_result_double(pCtx, r);
|
||||
} else {
|
||||
int r, x;
|
||||
x = ph7_value_to_int(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = abs(x);
|
||||
ph7_result_int(pCtx, r);
|
||||
}
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float log(float $arg,[int/float $base])
|
||||
* Natural logarithm.
|
||||
* Parameter
|
||||
* $arg: The number to process.
|
||||
* $base: The optional logarithmic base to use. (only base-10 is supported)
|
||||
* Return
|
||||
* The logarithm of arg to base, if given, or the natural logarithm.
|
||||
* Note:
|
||||
* only Natural log and base-10 log are supported.
|
||||
*/
|
||||
static int PH7_builtin_log(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
if(nArg == 2 && ph7_value_is_numeric(apArg[1]) && ph7_value_to_int(apArg[1]) == 10) {
|
||||
/* Base-10 log */
|
||||
r = log10(x);
|
||||
} else {
|
||||
r = log(x);
|
||||
}
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float log10(float $arg )
|
||||
* Base-10 logarithm.
|
||||
* Parameter
|
||||
* The number to process.
|
||||
* Return
|
||||
* The Base-10 logarithm of the given number.
|
||||
*/
|
||||
static int PH7_builtin_log10(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
/* Perform the requested operation */
|
||||
r = log10(x);
|
||||
/* store the result back */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* number pow(number $base,number $exp)
|
||||
* Exponential expression.
|
||||
* Parameter
|
||||
* base
|
||||
* The base to use.
|
||||
* exp
|
||||
* The exponent.
|
||||
* Return
|
||||
* base raised to the power of exp.
|
||||
* If the result can be represented as integer it will be returned
|
||||
* as type integer, else it will be returned as type float.
|
||||
*/
|
||||
static int PH7_builtin_pow(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double r, x, y;
|
||||
if(nArg < 1) {
|
||||
/* Missing argument,return 0 */
|
||||
ph7_result_int(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
y = ph7_value_to_double(apArg[1]);
|
||||
/* Perform the requested operation */
|
||||
r = pow(x, y);
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float pi(void)
|
||||
* Returns an approximation of pi.
|
||||
* Note
|
||||
* you can use the M_PI constant which yields identical results to pi().
|
||||
* Return
|
||||
* The value of pi as float.
|
||||
*/
|
||||
static int PH7_builtin_pi(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
SXUNUSED(nArg); /* cc warning */
|
||||
SXUNUSED(apArg);
|
||||
ph7_result_double(pCtx, PH7_PI);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float fmod(float $x,float $y)
|
||||
* Returns the floating point remainder (modulo) of the division of the arguments.
|
||||
* Parameters
|
||||
* $x
|
||||
* The dividend
|
||||
* $y
|
||||
* The divisor
|
||||
* Return
|
||||
* The floating point remainder of x/y.
|
||||
*/
|
||||
static int PH7_builtin_fmod(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double x, y, r;
|
||||
if(nArg < 2) {
|
||||
/* Missing arguments */
|
||||
ph7_result_double(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
/* Extract given arguments */
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
y = ph7_value_to_double(apArg[1]);
|
||||
/* Perform the requested operation */
|
||||
r = fmod(x, y);
|
||||
/* Processing result */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
/*
|
||||
* float hypot(float $x,float $y)
|
||||
* Calculate the length of the hypotenuse of a right-angle triangle .
|
||||
* Parameters
|
||||
* $x
|
||||
* Length of first side
|
||||
* $y
|
||||
* Length of first side
|
||||
* Return
|
||||
* Calculated length of the hypotenuse.
|
||||
*/
|
||||
static int PH7_builtin_hypot(ph7_context *pCtx, int nArg, ph7_value **apArg) {
|
||||
double x, y, r;
|
||||
if(nArg < 2) {
|
||||
/* Missing arguments */
|
||||
ph7_result_double(pCtx, 0);
|
||||
return PH7_OK;
|
||||
}
|
||||
/* Extract given arguments */
|
||||
x = ph7_value_to_double(apArg[0]);
|
||||
y = ph7_value_to_double(apArg[1]);
|
||||
/* Perform the requested operation */
|
||||
r = hypot(x, y);
|
||||
/* Processing result */
|
||||
ph7_result_double(pCtx, r);
|
||||
return PH7_OK;
|
||||
}
|
||||
#endif /* PH7_ENABLE_MATH_FUNC */
|
||||
/*
|
||||
* float round ( float $val [, int $precision = 0 [, int $mode = PHP_ROUND_HALF_UP ]] )
|
||||
* Exponential expression.
|
||||
@@ -8514,30 +8013,6 @@ static const ph7_builtin_func aBuiltInFunc[] = {
|
||||
{ "strval", PH7_builtin_strval },
|
||||
{ "empty", PH7_builtin_empty },
|
||||
#ifndef PH7_DISABLE_BUILTIN_FUNC
|
||||
#ifdef PH7_ENABLE_MATH_FUNC
|
||||
/* Math functions */
|
||||
{ "abs", PH7_builtin_abs },
|
||||
{ "sqrt", PH7_builtin_sqrt },
|
||||
{ "exp", PH7_builtin_exp },
|
||||
{ "floor", PH7_builtin_floor },
|
||||
{ "cos", PH7_builtin_cos },
|
||||
{ "sin", PH7_builtin_sin },
|
||||
{ "acos", PH7_builtin_acos },
|
||||
{ "asin", PH7_builtin_asin },
|
||||
{ "cosh", PH7_builtin_cosh },
|
||||
{ "sinh", PH7_builtin_sinh },
|
||||
{ "ceil", PH7_builtin_ceil },
|
||||
{ "tan", PH7_builtin_tan },
|
||||
{ "tanh", PH7_builtin_tanh },
|
||||
{ "atan", PH7_builtin_atan },
|
||||
{ "atan2", PH7_builtin_atan2 },
|
||||
{ "log", PH7_builtin_log },
|
||||
{ "log10", PH7_builtin_log10 },
|
||||
{ "pow", PH7_builtin_pow },
|
||||
{ "pi", PH7_builtin_pi },
|
||||
{ "fmod", PH7_builtin_fmod },
|
||||
{ "hypot", PH7_builtin_hypot },
|
||||
#endif /* PH7_ENABLE_MATH_FUNC */
|
||||
{ "round", PH7_builtin_round },
|
||||
{ "dechex", PH7_builtin_dechex },
|
||||
{ "decoct", PH7_builtin_decoct },
|
||||
|
||||
Reference in New Issue
Block a user