2 * Copyright 2008 Jacek Caban for CodeWeavers
3 * Copyright 2009 Piotr Caban
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 #include "wine/port.h"
29 #include "wine/debug.h"
31 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
33 static const WCHAR EW[] = {'E',0};
34 static const WCHAR LOG2EW[] = {'L','O','G','2','E',0};
35 static const WCHAR LOG10EW[] = {'L','O','G','1','0','E',0};
36 static const WCHAR LN2W[] = {'L','N','2',0};
37 static const WCHAR LN10W[] = {'L','N','1','0',0};
38 static const WCHAR PIW[] = {'P','I',0};
39 static const WCHAR SQRT2W[] = {'S','Q','R','T','2',0};
40 static const WCHAR SQRT1_2W[] = {'S','Q','R','T','1','_','2',0};
41 static const WCHAR absW[] = {'a','b','s',0};
42 static const WCHAR acosW[] = {'a','c','o','s',0};
43 static const WCHAR asinW[] = {'a','s','i','n',0};
44 static const WCHAR atanW[] = {'a','t','a','n',0};
45 static const WCHAR atan2W[] = {'a','t','a','n','2',0};
46 static const WCHAR ceilW[] = {'c','e','i','l',0};
47 static const WCHAR cosW[] = {'c','o','s',0};
48 static const WCHAR expW[] = {'e','x','p',0};
49 static const WCHAR floorW[] = {'f','l','o','o','r',0};
50 static const WCHAR logW[] = {'l','o','g',0};
51 static const WCHAR maxW[] = {'m','a','x',0};
52 static const WCHAR minW[] = {'m','i','n',0};
53 static const WCHAR powW[] = {'p','o','w',0};
54 static const WCHAR randomW[] = {'r','a','n','d','o','m',0};
55 static const WCHAR roundW[] = {'r','o','u','n','d',0};
56 static const WCHAR sinW[] = {'s','i','n',0};
57 static const WCHAR sqrtW[] = {'s','q','r','t',0};
58 static const WCHAR tanW[] = {'t','a','n',0};
60 /* ECMA-262 3rd Edition 15.8.2.12 */
61 static HRESULT Math_abs(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
62 VARIANT *retv, jsexcept_t *ei)
71 num_set_val(retv, NAN);
75 hres = to_number(ctx, get_arg(dp, 0), ei, &d);
80 num_set_val(retv, d < 0.0 ? -d : d);
84 static HRESULT Math_acos(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
85 VARIANT *retv, jsexcept_t *ei)
93 if(retv) num_set_val(retv, NAN);
97 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
102 num_set_val(retv, x < -1.0 || x > 1.0 ? NAN : acos(x));
106 static HRESULT Math_asin(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
107 VARIANT *retv, jsexcept_t *ei)
115 if(retv) num_set_val(retv, NAN);
119 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
124 num_set_val(retv, x < -1.0 || x > 1.0 ? NAN : asin(x));
128 static HRESULT Math_atan(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
129 VARIANT *retv, jsexcept_t *ei)
137 if(retv) num_set_val(retv, NAN);
141 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
145 if(retv) num_set_val(retv, atan(x));
149 static HRESULT Math_atan2(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
150 VARIANT *retv, jsexcept_t *ei)
158 if(retv) num_set_val(retv, NAN);
162 hres = to_number(ctx, get_arg(dp, 0), ei, &y);
166 hres = to_number(ctx, get_arg(dp, 1), ei, &x);
170 if(retv) num_set_val(retv, atan2(y, x));
174 /* ECMA-262 3rd Edition 15.8.2.6 */
175 static HRESULT Math_ceil(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
176 VARIANT *retv, jsexcept_t *ei)
185 num_set_val(retv, NAN);
189 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
194 num_set_val(retv, ceil(x));
198 static HRESULT Math_cos(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
199 VARIANT *retv, jsexcept_t *ei)
207 if(retv) num_set_val(retv, NAN);
211 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
215 if(retv) num_set_val(retv, cos(x));
219 static HRESULT Math_exp(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
220 VARIANT *retv, jsexcept_t *ei)
228 if(retv) num_set_val(retv, NAN);
232 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
236 if(retv) num_set_val(retv, exp(x));
240 static HRESULT Math_floor(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
241 VARIANT *retv, jsexcept_t *ei)
250 num_set_val(retv, NAN);
254 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
259 num_set_val(retv, floor(x));
263 static HRESULT Math_log(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
264 VARIANT *retv, jsexcept_t *ei)
273 num_set_val(retv, NAN);
277 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
282 num_set_val(retv, x < -0.0 ? NAN : log(x));
286 /* ECMA-262 3rd Edition 15.8.2.11 */
287 static HRESULT Math_max(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
288 VARIANT *retv, jsexcept_t *ei)
298 num_set_inf(retv, FALSE);
302 hres = to_number(ctx, get_arg(dp, 0), ei, &max);
306 for(i=1; i < arg_cnt(dp); i++) {
307 hres = to_number(ctx, get_arg(dp, i), ei, &d);
311 if(d > max || isnan(d))
316 num_set_val(retv, max);
320 /* ECMA-262 3rd Edition 15.8.2.12 */
321 static HRESULT Math_min(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
322 VARIANT *retv, jsexcept_t *ei)
332 num_set_inf(retv, TRUE);
336 hres = to_number(ctx, get_arg(dp, 0), ei, &min);
340 for(i=1; i < arg_cnt(dp); i++) {
341 hres = to_number(ctx, get_arg(dp, i), ei, &d);
345 if(d < min || isnan(d))
350 num_set_val(retv, min);
354 /* ECMA-262 3rd Edition 15.8.2.13 */
355 static HRESULT Math_pow(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
356 VARIANT *retv, jsexcept_t *ei)
363 if(arg_cnt(dp) < 2) {
364 if(retv) num_set_val(retv, NAN);
368 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
372 hres = to_number(ctx, get_arg(dp, 1), ei, &y);
377 num_set_val(retv, pow(x, y));
381 /* ECMA-262 3rd Edition 15.8.2.14 */
382 static HRESULT Math_random(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
383 VARIANT *retv, jsexcept_t *ei)
389 if(!RtlGenRandom(&r, sizeof(r)))
393 num_set_val(retv, (DOUBLE)r/(DOUBLE)UINT_MAX);
398 /* ECMA-262 3rd Edition 15.8.2.15 */
399 static HRESULT Math_round(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
400 VARIANT *retv, jsexcept_t *ei)
409 num_set_val(retv, NAN);
413 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
418 num_set_val(retv, floor(x+0.5));
422 static HRESULT Math_sin(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
423 VARIANT *retv, jsexcept_t *ei)
431 if(retv) num_set_val(retv, NAN);
435 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
439 if(retv) num_set_val(retv, sin(x));
443 static HRESULT Math_sqrt(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
444 VARIANT *retv, jsexcept_t *ei)
452 if(retv) num_set_val(retv, NAN);
456 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
460 if(retv) num_set_val(retv, sqrt(x));
464 static HRESULT Math_tan(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, DISPPARAMS *dp,
465 VARIANT *retv, jsexcept_t *ei)
473 if(retv) num_set_val(retv, NAN);
477 hres = to_number(ctx, get_arg(dp, 0), ei, &x);
481 if(retv) num_set_val(retv, tan(x));
485 static const builtin_prop_t Math_props[] = {
486 {absW, Math_abs, PROPF_METHOD|1},
487 {acosW, Math_acos, PROPF_METHOD|1},
488 {asinW, Math_asin, PROPF_METHOD|1},
489 {atanW, Math_atan, PROPF_METHOD|1},
490 {atan2W, Math_atan2, PROPF_METHOD|2},
491 {ceilW, Math_ceil, PROPF_METHOD|1},
492 {cosW, Math_cos, PROPF_METHOD|1},
493 {expW, Math_exp, PROPF_METHOD|1},
494 {floorW, Math_floor, PROPF_METHOD|1},
495 {logW, Math_log, PROPF_METHOD|1},
496 {maxW, Math_max, PROPF_METHOD|2},
497 {minW, Math_min, PROPF_METHOD|2},
498 {powW, Math_pow, PROPF_METHOD|2},
499 {randomW, Math_random, PROPF_METHOD},
500 {roundW, Math_round, PROPF_METHOD|1},
501 {sinW, Math_sin, PROPF_METHOD|1},
502 {sqrtW, Math_sqrt, PROPF_METHOD|1},
503 {tanW, Math_tan, PROPF_METHOD|1}
506 static const builtin_info_t Math_info = {
509 sizeof(Math_props)/sizeof(*Math_props),
515 HRESULT create_math(script_ctx_t *ctx, jsdisp_t **ret)
526 {EW, M_E}, /* ECMA-262 3rd Edition 15.8.1.1 */
527 {LN10W, M_LN10}, /* ECMA-262 3rd Edition 15.8.1.2 */
528 {LN2W, M_LN2}, /* ECMA-262 3rd Edition 15.8.1.3 */
529 {LOG2EW, M_LOG2E}, /* ECMA-262 3rd Edition 15.8.1.4 */
530 {LOG10EW, M_LOG10E}, /* ECMA-262 3rd Edition 15.8.1.5 */
531 {PIW, M_PI}, /* ECMA-262 3rd Edition 15.8.1.6 */
532 {SQRT1_2W, M_SQRT1_2}, /* ECMA-262 3rd Edition 15.8.1.7 */
533 {SQRT2W, M_SQRT2}, /* ECMA-262 3rd Edition 15.8.1.8 */
536 math = heap_alloc_zero(sizeof(jsdisp_t));
538 return E_OUTOFMEMORY;
540 hres = init_dispex_from_constr(math, ctx, &Math_info, ctx->object_constr);
547 for(i=0; i < sizeof(constants)/sizeof(*constants); i++) {
548 V_R8(&v) = constants[i].val;
549 hres = jsdisp_propput_const(math, constants[i].name, &v);
551 jsdisp_release(math);