math.c File Reference

#include <math.h>
#include <limits.h>
#include "jscript.h"
#include "ntsecapi.h"
#include "wine/debug.h"

Include dependency graph for math.c:

Go to the source code of this file.

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (jscript)
static HRESULT	Math_abs (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_acos (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_asin (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_atan (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_atan2 (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_ceil (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_cos (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_exp (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_floor (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_log (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_max (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_min (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_pow (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_random (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_round (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_sin (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_sqrt (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Math_tan (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
HRESULT	create_math (script_ctx_t *ctx, jsdisp_t **ret)

Variables
static const builtin_prop_t	Math_props []
static const builtin_info_t	Math_info

Function Documentation

create_math()

HRESULT create_math	(	script_ctx_t *	ctx,
		jsdisp_t **	ret
	)

Definition at line 503 of file math.c.

{
    jsdisp_t *math;
    unsigned i;
    HRESULT hres;
 
    struct {
        const WCHAR *name;
        DOUBLE val;
    }constants[] = {
        {L"E",        M_E},        /* ECMA-262 3rd Edition    15.8.1.1 */
        {L"LN10",     M_LN10},     /* ECMA-262 3rd Edition    15.8.1.2 */
        {L"LN2",      M_LN2},      /* ECMA-262 3rd Edition    15.8.1.3 */
        {L"LOG2E",    M_LOG2E},    /* ECMA-262 3rd Edition    15.8.1.4 */
        {L"LOG10E",   M_LOG10E},   /* ECMA-262 3rd Edition    15.8.1.5 */
        {L"PI",       M_PI},       /* ECMA-262 3rd Edition    15.8.1.6 */
        {L"SQRT1_2",  M_SQRT1_2},  /* ECMA-262 3rd Edition    15.8.1.7 */
        {L"SQRT2",    M_SQRT2},    /* ECMA-262 3rd Edition    15.8.1.8 */
    };
 
    math = calloc(1, sizeof(jsdisp_t));
    if(!math)
        return E_OUTOFMEMORY;
 
    hres = init_dispex_from_constr(math, ctx, &Math_info, ctx->object_constr);
    if(FAILED(hres)) {
        free(math);
        return hres;
    }
 
    for(i=0; i < ARRAY_SIZE(constants); i++) {
        hres = jsdisp_define_data_property(math, constants[i].name, 0,
                                           jsval_number(constants[i].val));
        if(FAILED(hres)) {
            jsdisp_release(math);
            return hres;
        }
    }
 
    *ret = math;
    return S_OK;
}

Referenced by init_global().

Math_abs()

static HRESULT Math_abs ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 37 of file math.c.

{
    double d;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &d);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(d < 0.0 ? -d : d);
    return S_OK;
}

Math_acos()

static HRESULT Math_acos ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 60 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(x < -1.0 || x > 1.0 ? NAN : acos(x));
    return S_OK;
}

Math_asin()

static HRESULT Math_asin ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 83 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(x < -1.0 || x > 1.0 ? NAN : asin(x));
    return S_OK;
}

Math_atan()

static HRESULT Math_atan ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 106 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(atan(x));
    return S_OK;
}

Math_atan2()

static HRESULT Math_atan2 ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 129 of file math.c.

{
    double x, y;
    HRESULT hres;
 
    TRACE("\n");
 
    if(argc<2) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &y);
    if(FAILED(hres))
        return hres;
 
    hres = to_number(ctx, argv[1], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(atan2(y, x));
    return S_OK;
}

Math_ceil()

static HRESULT Math_ceil ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 157 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(ceil(x));
    return S_OK;
}

Math_cos()

static HRESULT Math_cos ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 180 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(cos(x));
    return S_OK;
}

Math_exp()

static HRESULT Math_exp ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 203 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(exp(x));
    return S_OK;
}

Math_floor()

static HRESULT Math_floor ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 226 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(floor(x));
    return S_OK;
}

Math_log()

static HRESULT Math_log ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 249 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(x < -0.0 ? NAN : log(x));
    return S_OK;
}

Math_max()

static HRESULT Math_max ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 273 of file math.c.

{
    DOUBLE max, d;
    DWORD i;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(-INFINITY);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &max);
    if(FAILED(hres))
        return hres;
 
    for(i=1; i < argc; i++) {
        hres = to_number(ctx, argv[i], &d);
        if(FAILED(hres))
            return hres;
 
        if(d > max || isnan(d))
            max = d;
    }
 
    if(r)
        *r = jsval_number(max);
    return S_OK;
}

Math_min()

static HRESULT Math_min ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 307 of file math.c.

{
    DOUBLE min, d;
    DWORD i;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(INFINITY);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &min);
    if(FAILED(hres))
        return hres;
 
    for(i=1; i < argc; i++) {
        hres = to_number(ctx, argv[i], &d);
        if(FAILED(hres))
            return hres;
 
        if(d < min || isnan(d))
            min = d;
    }
 
    if(r)
        *r = jsval_number(min);
    return S_OK;
}

Math_pow()

static HRESULT Math_pow ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 341 of file math.c.

{
    double x, y;
    HRESULT hres;
 
    TRACE("\n");
 
    if(argc < 2) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    hres = to_number(ctx, argv[1], &y);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(pow(x, y));
    return S_OK;
}

Math_random()

static HRESULT Math_random ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 369 of file math.c.

{
    UINT x;
 
    TRACE("\n");
 
    if(!RtlGenRandom(&x, sizeof(x)))
        return E_UNEXPECTED;
 
    if(r)
        *r = jsval_number((double)x/(double)UINT_MAX);
    return S_OK;
}

Math_round()

static HRESULT Math_round ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 385 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(floor(x+0.5));
    return S_OK;
}

Math_sin()

static HRESULT Math_sin ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 408 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(sin(x));
    return S_OK;
}

Math_sqrt()

static HRESULT Math_sqrt ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 431 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(sqrt(x));
    return S_OK;
}

Math_tan()

static HRESULT Math_tan ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 454 of file math.c.

{
    double x;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_number(ctx, argv[0], &x);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(tan(x));
    return S_OK;
}

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

jscript

)

Variable Documentation

Math_info

const builtin_info_t Math_info

static

Initial value:

= {
    .class = JSCLASS_MATH,    .props_cnt = ARRAY_SIZE(Math_props),
    .props = Math_props,
}

Definition at line 498 of file math.c.

Referenced by create_math().

Math_props

const builtin_prop_t Math_props[]

static

Initial value:

= {
    {L"abs",      Math_abs,      PROPF_METHOD|1},
    {L"acos",     Math_acos,     PROPF_METHOD|1},
    {L"asin",     Math_asin,     PROPF_METHOD|1},
    {L"atan",     Math_atan,     PROPF_METHOD|1},
    {L"atan2",    Math_atan2,    PROPF_METHOD|2},
    {L"ceil",     Math_ceil,     PROPF_METHOD|1},
    {L"cos",      Math_cos,      PROPF_METHOD|1},
    {L"exp",      Math_exp,      PROPF_METHOD|1},
    {L"floor",    Math_floor,    PROPF_METHOD|1},
    {L"log",      Math_log,      PROPF_METHOD|1},
    {L"max",      Math_max,      PROPF_METHOD|2},
    {L"min",      Math_min,      PROPF_METHOD|2},
    {L"pow",      Math_pow,      PROPF_METHOD|2},
    {L"random",   Math_random,   PROPF_METHOD},
    {L"round",    Math_round,    PROPF_METHOD|1},
    {L"sin",      Math_sin,      PROPF_METHOD|1},
    {L"sqrt",     Math_sqrt,     PROPF_METHOD|1},
    {L"tan",      Math_tan,      PROPF_METHOD|1}
}

Definition at line 477 of file math.c.