2 * Copyright 2008 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 #include "wine/port.h"
26 #include "wine/debug.h"
28 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
30 static const WCHAR EW[] = {'E',0};
31 static const WCHAR LOG2EW[] = {'L','O','G','2','E',0};
32 static const WCHAR LOG10EW[] = {'L','O','G','1','0',0};
33 static const WCHAR LN2W[] = {'L','N','2',0};
34 static const WCHAR LN10W[] = {'L','N','1','0',0};
35 static const WCHAR PIW[] = {'P','I',0};
36 static const WCHAR SQRT2W[] = {'S','Q','R','T','2',0};
37 static const WCHAR SQRT1_2W[] = {'S','Q','R','T','1','_','2',0};
38 static const WCHAR absW[] = {'a','b','s',0};
39 static const WCHAR acosW[] = {'a','c','o','s',0};
40 static const WCHAR asinW[] = {'a','s','i','n',0};
41 static const WCHAR atanW[] = {'a','t','a','n',0};
42 static const WCHAR atan2W[] = {'a','t','a','n','2',0};
43 static const WCHAR ceilW[] = {'c','e','i','l',0};
44 static const WCHAR cosW[] = {'c','o','s',0};
45 static const WCHAR expW[] = {'e','x','p',0};
46 static const WCHAR floorW[] = {'f','l','o','o','r',0};
47 static const WCHAR logW[] = {'l','o','g',0};
48 static const WCHAR maxW[] = {'m','a','x',0};
49 static const WCHAR minW[] = {'m','i','n',0};
50 static const WCHAR powW[] = {'p','o','w',0};
51 static const WCHAR randomW[] = {'r','a','n','d','o','m',0};
52 static const WCHAR roundW[] = {'r','o','u','n','d',0};
53 static const WCHAR sinW[] = {'s','i','n',0};
54 static const WCHAR sqrtW[] = {'s','q','r','t',0};
55 static const WCHAR tanW[] = {'t','a','n',0};
57 static HRESULT Math_E(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
58 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
64 static HRESULT Math_LOG2E(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
65 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
71 static HRESULT Math_LOG10E(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
72 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
78 static HRESULT Math_LN2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
79 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
85 static HRESULT Math_LN10(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
86 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
92 static HRESULT Math_PI(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
93 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
99 static HRESULT Math_SQRT2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
100 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
106 static HRESULT Math_SQRT1_2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
107 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
113 /* ECMA-262 3rd Edition 15.8.2.12 */
114 static HRESULT Math_abs(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
115 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
129 hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
135 num_set_val(retv, d < 0.0 ? -d : d);
139 static HRESULT Math_acos(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
140 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
146 static HRESULT Math_asin(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
147 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
153 static HRESULT Math_atan(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
154 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
160 static HRESULT Math_atan2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
161 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
167 /* ECMA-262 3rd Edition 15.8.2.6 */
168 static HRESULT Math_ceil(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
169 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
182 hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
187 num_set_val(retv, ceil(num_val(&v)));
191 static HRESULT Math_cos(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
192 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
198 static HRESULT Math_exp(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
199 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
205 static HRESULT Math_floor(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
206 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
219 hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
224 num_set_val(retv, floor(num_val(&v)));
228 static HRESULT Math_log(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
229 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
235 /* ECMA-262 3rd Edition 15.8.2.11 */
236 static HRESULT Math_max(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
237 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
248 num_set_inf(retv, FALSE);
252 hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
257 for(i=1; i < arg_cnt(dp); i++) {
258 hres = to_number(dispex->ctx, get_arg(dp, i), ei, &v);
263 if(d > max || isnan(d))
268 num_set_val(retv, max);
272 /* ECMA-262 3rd Edition 15.8.2.12 */
273 static HRESULT Math_min(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
274 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
285 num_set_inf(retv, TRUE);
289 hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
294 for(i=1; i < arg_cnt(dp); i++) {
295 hres = to_number(dispex->ctx, get_arg(dp, i), ei, &v);
300 if(d < min || isnan(d))
305 num_set_val(retv, min);
309 /* ECMA-262 3rd Edition 15.8.2.13 */
310 static HRESULT Math_pow(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
311 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
318 if(arg_cnt(dp) < 2) {
319 FIXME("unimplemented arg_cnt %d\n", arg_cnt(dp));
323 hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &x);
327 hres = to_number(dispex->ctx, get_arg(dp, 1), ei, &y);
332 num_set_val(retv, pow(num_val(&x), num_val(&y)));
336 static HRESULT Math_random(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
337 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
343 /* ECMA-262 3rd Edition 15.8.2.15 */
344 static HRESULT Math_round(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
345 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
353 FIXME("arg_cnt = 0\n");
357 hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
362 num_set_val(retv, floor(num_val(&v)+0.5));
366 static HRESULT Math_sin(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
367 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
373 static HRESULT Math_sqrt(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
374 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
380 static HRESULT Math_tan(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
381 VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
387 static const builtin_prop_t Math_props[] = {
389 {LOG2EW, Math_LOG2E, 0},
390 {LOG10EW, Math_LOG10E, 0},
392 {LN10W, Math_LN10, 0},
394 {SQRT1_2W, Math_SQRT1_2, 0},
395 {SQRT2W, Math_SQRT2, 0},
396 {absW, Math_abs, PROPF_METHOD},
397 {acosW, Math_acos, PROPF_METHOD},
398 {asinW, Math_asin, PROPF_METHOD},
399 {atanW, Math_atan, PROPF_METHOD},
400 {atan2W, Math_atan2, PROPF_METHOD},
401 {ceilW, Math_ceil, PROPF_METHOD},
402 {cosW, Math_cos, PROPF_METHOD},
403 {expW, Math_exp, PROPF_METHOD},
404 {floorW, Math_floor, PROPF_METHOD},
405 {logW, Math_log, PROPF_METHOD},
406 {maxW, Math_max, PROPF_METHOD},
407 {minW, Math_min, PROPF_METHOD},
408 {powW, Math_pow, PROPF_METHOD},
409 {randomW, Math_random, PROPF_METHOD},
410 {roundW, Math_round, PROPF_METHOD},
411 {sinW, Math_sin, PROPF_METHOD},
412 {sqrtW, Math_sqrt, PROPF_METHOD},
413 {tanW, Math_tan, PROPF_METHOD}
416 static const builtin_info_t Math_info = {
419 sizeof(Math_props)/sizeof(*Math_props),
425 HRESULT create_math(script_ctx_t *ctx, DispatchEx **ret)
427 return create_dispex(ctx, &Math_info, NULL, ret);