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
23 #include "wine/debug.h"
25 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
27 static const WCHAR EW
[] = {'E',0};
28 static const WCHAR LOG2EW
[] = {'L','O','G','2','E',0};
29 static const WCHAR LOG10EW
[] = {'L','O','G','1','0',0};
30 static const WCHAR LN2W
[] = {'L','N','2',0};
31 static const WCHAR LN10W
[] = {'L','N','1','0',0};
32 static const WCHAR PIW
[] = {'P','I',0};
33 static const WCHAR SQRT2W
[] = {'S','Q','R','T','2',0};
34 static const WCHAR SQRT1_2W
[] = {'S','Q','R','T','1','_','2',0};
35 static const WCHAR absW
[] = {'a','b','s',0};
36 static const WCHAR acosW
[] = {'a','c','o','s',0};
37 static const WCHAR asinW
[] = {'a','s','i','n',0};
38 static const WCHAR atanW
[] = {'a','t','a','n',0};
39 static const WCHAR atan2W
[] = {'a','t','a','n','2',0};
40 static const WCHAR ceilW
[] = {'c','e','i','l',0};
41 static const WCHAR cosW
[] = {'c','o','s',0};
42 static const WCHAR expW
[] = {'e','x','p',0};
43 static const WCHAR floorW
[] = {'f','l','o','o','r',0};
44 static const WCHAR logW
[] = {'l','o','g',0};
45 static const WCHAR maxW
[] = {'m','a','x',0};
46 static const WCHAR minW
[] = {'m','i','n',0};
47 static const WCHAR powW
[] = {'p','o','w',0};
48 static const WCHAR randomW
[] = {'r','a','n','d','o','m',0};
49 static const WCHAR roundW
[] = {'r','o','u','n','d',0};
50 static const WCHAR sinW
[] = {'s','i','n',0};
51 static const WCHAR sqrtW
[] = {'s','q','r','t',0};
52 static const WCHAR tanW
[] = {'t','a','n',0};
54 static HRESULT
Math_E(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
55 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
61 static HRESULT
Math_LOG2E(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
62 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
68 static HRESULT
Math_LOG10E(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
69 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
75 static HRESULT
Math_LN2(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
76 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
82 static HRESULT
Math_LN10(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
83 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
89 static HRESULT
Math_PI(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
90 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
96 static HRESULT
Math_SQRT2(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
97 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
103 static HRESULT
Math_SQRT1_2(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
104 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
110 /* ECMA-262 3rd Edition 15.8.2.12 */
111 static HRESULT
Math_abs(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
112 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
121 FIXME("arg_cnt = 0\n");
125 hres
= to_number(dispex
->ctx
, get_arg(dp
, 0), ei
, &v
);
131 num_set_val(retv
, d
< 0.0 ? -d
: d
);
135 static HRESULT
Math_acos(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
136 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
142 static HRESULT
Math_asin(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
143 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
149 static HRESULT
Math_atan(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
150 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
156 static HRESULT
Math_atan2(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
157 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
163 /* ECMA-262 3rd Edition 15.8.2.6 */
164 static HRESULT
Math_ceil(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
165 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
173 FIXME("arg_cnt = 0\n");
177 hres
= to_number(dispex
->ctx
, get_arg(dp
, 0), ei
, &v
);
182 num_set_val(retv
, ceil(num_val(&v
)));
186 static HRESULT
Math_cos(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
187 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
193 static HRESULT
Math_exp(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
194 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
200 static HRESULT
Math_floor(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
201 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
207 static HRESULT
Math_log(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
208 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
214 /* ECMA-262 3rd Edition 15.8.2.11 */
215 static HRESULT
Math_max(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
216 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
225 /* FIXME: Handle NaN */
228 FIXME("arg_cnt = 0\n");
232 hres
= to_number(dispex
->ctx
, get_arg(dp
, 0), ei
, &v
);
237 for(i
=1; i
< arg_cnt(dp
); i
++) {
238 hres
= to_number(dispex
->ctx
, get_arg(dp
, i
), ei
, &v
);
248 num_set_val(retv
, max
);
252 /* ECMA-262 3rd Edition 15.8.2.12 */
253 static HRESULT
Math_min(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
254 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
263 /* FIXME: Handle NaN */
266 FIXME("arg_cnt = 0\n");
270 hres
= to_number(dispex
->ctx
, get_arg(dp
, 0), ei
, &v
);
275 for(i
=1; i
< arg_cnt(dp
); i
++) {
276 hres
= to_number(dispex
->ctx
, get_arg(dp
, i
), ei
, &v
);
286 num_set_val(retv
, min
);
290 /* ECMA-262 3rd Edition 15.8.2.13 */
291 static HRESULT
Math_pow(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
292 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
299 if(arg_cnt(dp
) < 2) {
300 FIXME("unimplemented arg_cnt %d\n", arg_cnt(dp
));
304 hres
= to_number(dispex
->ctx
, get_arg(dp
, 0), ei
, &x
);
308 hres
= to_number(dispex
->ctx
, get_arg(dp
, 1), ei
, &y
);
313 num_set_val(retv
, pow(num_val(&x
), num_val(&y
)));
317 static HRESULT
Math_random(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
318 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
324 /* ECMA-262 3rd Edition 15.8.2.15 */
325 static HRESULT
Math_round(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
326 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
334 FIXME("arg_cnt = 0\n");
338 hres
= to_number(dispex
->ctx
, get_arg(dp
, 0), ei
, &v
);
343 num_set_val(retv
, floor(num_val(&v
)+0.5));
347 static HRESULT
Math_sin(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
348 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
354 static HRESULT
Math_sqrt(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
355 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
361 static HRESULT
Math_tan(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
362 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
368 static const builtin_prop_t Math_props
[] = {
370 {LOG2EW
, Math_LOG2E
, 0},
371 {LOG10EW
, Math_LOG10E
, 0},
373 {LN10W
, Math_LN10
, 0},
375 {SQRT1_2W
, Math_SQRT1_2
, 0},
376 {SQRT2W
, Math_SQRT2
, 0},
377 {absW
, Math_abs
, PROPF_METHOD
},
378 {acosW
, Math_acos
, PROPF_METHOD
},
379 {asinW
, Math_asin
, PROPF_METHOD
},
380 {atanW
, Math_atan
, PROPF_METHOD
},
381 {atan2W
, Math_atan2
, PROPF_METHOD
},
382 {ceilW
, Math_ceil
, PROPF_METHOD
},
383 {cosW
, Math_cos
, PROPF_METHOD
},
384 {expW
, Math_exp
, PROPF_METHOD
},
385 {floorW
, Math_floor
, PROPF_METHOD
},
386 {logW
, Math_log
, PROPF_METHOD
},
387 {maxW
, Math_max
, PROPF_METHOD
},
388 {minW
, Math_min
, PROPF_METHOD
},
389 {powW
, Math_pow
, PROPF_METHOD
},
390 {randomW
, Math_random
, PROPF_METHOD
},
391 {roundW
, Math_round
, PROPF_METHOD
},
392 {sinW
, Math_sin
, PROPF_METHOD
},
393 {sqrtW
, Math_sqrt
, PROPF_METHOD
},
394 {tanW
, Math_tan
, PROPF_METHOD
}
397 static const builtin_info_t Math_info
= {
400 sizeof(Math_props
)/sizeof(*Math_props
),
406 HRESULT
create_math(script_ctx_t
*ctx
, DispatchEx
**ret
)
408 return create_dispex(ctx
, &Math_info
, NULL
, ret
);