Sweden-Number/dlls/jscript/math.c

544 lines
12 KiB
C

/*
* Copyright 2008 Jacek Caban for CodeWeavers
* Copyright 2009 Piotr Caban
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include <math.h>
#include <limits.h>
#include "jscript.h"
#include "ntsecapi.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(jscript);
/* ECMA-262 3rd Edition 15.8.2.12 */
static HRESULT Math_abs(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_acos(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_asin(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_atan(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_atan2(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
/* ECMA-262 3rd Edition 15.8.2.6 */
static HRESULT Math_ceil(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_cos(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_exp(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_floor(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_log(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
/* ECMA-262 3rd Edition 15.8.2.11 */
static HRESULT Math_max(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
/* ECMA-262 3rd Edition 15.8.2.12 */
static HRESULT Math_min(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
/* ECMA-262 3rd Edition 15.8.2.13 */
static HRESULT Math_pow(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
/* ECMA-262 3rd Edition 15.8.2.14 */
static HRESULT Math_random(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
/* ECMA-262 3rd Edition 15.8.2.15 */
static HRESULT Math_round(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_sin(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_sqrt(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static HRESULT Math_tan(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
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;
}
static const builtin_prop_t Math_props[] = {
{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}
};
static const builtin_info_t Math_info = {
JSCLASS_MATH,
{NULL, NULL, 0},
ARRAY_SIZE(Math_props),
Math_props,
NULL,
NULL
};
HRESULT create_math(script_ctx_t *ctx, jsdisp_t **ret)
{
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 = heap_alloc_zero(sizeof(jsdisp_t));
if(!math)
return E_OUTOFMEMORY;
hres = init_dispex_from_constr(math, ctx, &Math_info, ctx->object_constr);
if(FAILED(hres)) {
heap_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;
}