git.oblomov.eu Git - wine/blob - dlls/jscript/math.c

   1 /*
   2  * Copyright 2008 Jacek Caban for CodeWeavers
   3  *
   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.
   8  *
   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.
  13  *
  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
  17  */
  18
  19 #include "config.h"
  20 #include "wine/port.h"
  21
  22 #include <math.h>
  23
  24 #include "jscript.h"
  25
  26 #include "wine/debug.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  29
  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};
  56
  57 static HRESULT math_constant(DOUBLE val, WORD flags, VARIANT *retv)
  58 {
  59     switch(flags) {
  60     case DISPATCH_PROPERTYGET:
  61         V_VT(retv) = VT_R8;
  62         V_R8(retv) = val;
  63         return S_OK;
  64     case DISPATCH_PROPERTYPUT:
  65         return S_OK;
  66     }
  67
  68     FIXME("unhandled flags %x\n", flags);
  69     return E_NOTIMPL;
  70 }
  71
  72 /* ECMA-262 3rd Edition    15.8.1.1 */
  73 static HRESULT Math_E(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  74         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  75 {
  76     TRACE("\n");
  77     return math_constant(M_E, flags, retv);
  78 }
  79
  80 static HRESULT Math_LOG2E(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  81         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  82 {
  83     FIXME("\n");
  84     return E_NOTIMPL;
  85 }
  86
  87 static HRESULT Math_LOG10E(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  88         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  89 {
  90     FIXME("\n");
  91     return E_NOTIMPL;
  92 }
  93
  94 static HRESULT Math_LN2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  95         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  96 {
  97     FIXME("\n");
  98     return E_NOTIMPL;
  99 }
 100
 101 static HRESULT Math_LN10(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 102         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 103 {
 104     FIXME("\n");
 105     return E_NOTIMPL;
 106 }
 107
 108 /* ECMA-262 3rd Edition    15.8.1.6 */
 109 static HRESULT Math_PI(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 110         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 111 {
 112     TRACE("\n");
 113     return math_constant(M_PI, flags, retv);
 114 }
 115
 116 static HRESULT Math_SQRT2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 117         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 118 {
 119     FIXME("\n");
 120     return E_NOTIMPL;
 121 }
 122
 123 static HRESULT Math_SQRT1_2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 124         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 125 {
 126     FIXME("\n");
 127     return E_NOTIMPL;
 128 }
 129
 130 /* ECMA-262 3rd Edition    15.8.2.12 */
 131 static HRESULT Math_abs(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 132         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 133 {
 134     VARIANT v;
 135     DOUBLE d;
 136     HRESULT hres;
 137
 138     TRACE("\n");
 139
 140     if(!arg_cnt(dp)) {
 141         if(retv)
 142             num_set_nan(retv);
 143         return S_OK;
 144     }
 145
 146     hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
 147     if(FAILED(hres))
 148         return hres;
 149
 150     d = num_val(&v);
 151     if(retv)
 152         num_set_val(retv, d < 0.0 ? -d : d);
 153     return S_OK;
 154 }
 155
 156 static HRESULT Math_acos(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 157         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 158 {
 159     FIXME("\n");
 160     return E_NOTIMPL;
 161 }
 162
 163 static HRESULT Math_asin(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 164         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 165 {
 166     FIXME("\n");
 167     return E_NOTIMPL;
 168 }
 169
 170 static HRESULT Math_atan(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 171         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 172 {
 173     FIXME("\n");
 174     return E_NOTIMPL;
 175 }
 176
 177 static HRESULT Math_atan2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 178         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 179 {
 180     FIXME("\n");
 181     return E_NOTIMPL;
 182 }
 183
 184 /* ECMA-262 3rd Edition    15.8.2.6 */
 185 static HRESULT Math_ceil(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 186         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 187 {
 188     VARIANT v;
 189     HRESULT hres;
 190
 191     TRACE("\n");
 192
 193     if(!arg_cnt(dp)) {
 194         if(retv)
 195             num_set_nan(retv);
 196         return S_OK;
 197     }
 198
 199     hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
 200     if(FAILED(hres))
 201         return hres;
 202
 203     if(retv)
 204         num_set_val(retv, ceil(num_val(&v)));
 205     return S_OK;
 206 }
 207
 208 static HRESULT Math_cos(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 209         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 210 {
 211     FIXME("\n");
 212     return E_NOTIMPL;
 213 }
 214
 215 static HRESULT Math_exp(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 216         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 217 {
 218     FIXME("\n");
 219     return E_NOTIMPL;
 220 }
 221
 222 static HRESULT Math_floor(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 223         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 224 {
 225     VARIANT v;
 226     HRESULT hres;
 227
 228     TRACE("\n");
 229
 230     if(!arg_cnt(dp)) {
 231         if(retv)
 232             num_set_nan(retv);
 233         return S_OK;
 234     }
 235
 236     hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
 237     if(FAILED(hres))
 238         return hres;
 239
 240     if(retv)
 241         num_set_val(retv, floor(num_val(&v)));
 242     return S_OK;
 243 }
 244
 245 static HRESULT Math_log(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 246         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 247 {
 248     FIXME("\n");
 249     return E_NOTIMPL;
 250 }
 251
 252 /* ECMA-262 3rd Edition    15.8.2.11 */
 253 static HRESULT Math_max(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 254         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 255 {
 256     DOUBLE max, d;
 257     VARIANT v;
 258     DWORD i;
 259     HRESULT hres;
 260
 261     TRACE("\n");
 262
 263     if(!arg_cnt(dp)) {
 264         if(retv)
 265             num_set_inf(retv, FALSE);
 266         return S_OK;
 267     }
 268
 269     hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
 270     if(FAILED(hres))
 271         return hres;
 272
 273     max = num_val(&v);
 274     for(i=1; i < arg_cnt(dp); i++) {
 275         hres = to_number(dispex->ctx, get_arg(dp, i), ei, &v);
 276         if(FAILED(hres))
 277             return hres;
 278
 279         d = num_val(&v);
 280         if(d > max || isnan(d))
 281             max = d;
 282     }
 283
 284     if(retv)
 285         num_set_val(retv, max);
 286     return S_OK;
 287 }
 288
 289 /* ECMA-262 3rd Edition    15.8.2.12 */
 290 static HRESULT Math_min(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 291         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 292 {
 293     DOUBLE min, d;
 294     VARIANT v;
 295     DWORD i;
 296     HRESULT hres;
 297
 298     TRACE("\n");
 299
 300     if(!arg_cnt(dp)) {
 301         if(retv)
 302             num_set_inf(retv, TRUE);
 303         return S_OK;
 304     }
 305
 306     hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
 307     if(FAILED(hres))
 308         return hres;
 309
 310     min = num_val(&v);
 311     for(i=1; i < arg_cnt(dp); i++) {
 312         hres = to_number(dispex->ctx, get_arg(dp, i), ei, &v);
 313         if(FAILED(hres))
 314             return hres;
 315
 316         d = num_val(&v);
 317         if(d < min || isnan(d))
 318             min = d;
 319     }
 320
 321     if(retv)
 322         num_set_val(retv, min);
 323     return S_OK;
 324 }
 325
 326 /* ECMA-262 3rd Edition    15.8.2.13 */
 327 static HRESULT Math_pow(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 328         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 329 {
 330     VARIANT x, y;
 331     HRESULT hres;
 332
 333     TRACE("\n");
 334
 335     if(arg_cnt(dp) < 2) {
 336         FIXME("unimplemented arg_cnt %d\n", arg_cnt(dp));
 337         return E_NOTIMPL;
 338     }
 339
 340     hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &x);
 341     if(FAILED(hres))
 342         return hres;
 343
 344     hres = to_number(dispex->ctx, get_arg(dp, 1), ei, &y);
 345     if(FAILED(hres))
 346         return hres;
 347
 348     if(retv)
 349         num_set_val(retv, pow(num_val(&x), num_val(&y)));
 350     return S_OK;
 351 }
 352
 353 static HRESULT Math_random(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 354         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 355 {
 356     FIXME("\n");
 357     return E_NOTIMPL;
 358 }
 359
 360 /* ECMA-262 3rd Edition    15.8.2.15 */
 361 static HRESULT Math_round(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 362         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 363 {
 364     VARIANT v;
 365     HRESULT hres;
 366
 367     TRACE("\n");
 368
 369     if(!arg_cnt(dp)) {
 370         FIXME("arg_cnt = 0\n");
 371         return E_NOTIMPL;
 372     }
 373
 374     hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
 375     if(FAILED(hres))
 376         return hres;
 377
 378     if(retv)
 379         num_set_val(retv, floor(num_val(&v)+0.5));
 380     return S_OK;
 381 }
 382
 383 static HRESULT Math_sin(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 384         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 385 {
 386     FIXME("\n");
 387     return E_NOTIMPL;
 388 }
 389
 390 static HRESULT Math_sqrt(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 391         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 392 {
 393     FIXME("\n");
 394     return E_NOTIMPL;
 395 }
 396
 397 static HRESULT Math_tan(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 398         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 399 {
 400     FIXME("\n");
 401     return E_NOTIMPL;
 402 }
 403
 404 static const builtin_prop_t Math_props[] = {
 405     {EW,        Math_E,        0},
 406     {LOG2EW,    Math_LOG2E,    0},
 407     {LOG10EW,   Math_LOG10E,   0},
 408     {LN2W,      Math_LN2,      0},
 409     {LN10W,     Math_LN10,     0},
 410     {PIW,       Math_PI,       0},
 411     {SQRT1_2W,  Math_SQRT1_2,  0},
 412     {SQRT2W,    Math_SQRT2,    0},
 413     {absW,      Math_abs,      PROPF_METHOD},
 414     {acosW,     Math_acos,     PROPF_METHOD},
 415     {asinW,     Math_asin,     PROPF_METHOD},
 416     {atanW,     Math_atan,     PROPF_METHOD},
 417     {atan2W,    Math_atan2,    PROPF_METHOD},
 418     {ceilW,     Math_ceil,     PROPF_METHOD},
 419     {cosW,      Math_cos,      PROPF_METHOD},
 420     {expW,      Math_exp,      PROPF_METHOD},
 421     {floorW,    Math_floor,    PROPF_METHOD},
 422     {logW,      Math_log,      PROPF_METHOD},
 423     {maxW,      Math_max,      PROPF_METHOD},
 424     {minW,      Math_min,      PROPF_METHOD},
 425     {powW,      Math_pow,      PROPF_METHOD},
 426     {randomW,   Math_random,   PROPF_METHOD},
 427     {roundW,    Math_round,    PROPF_METHOD},
 428     {sinW,      Math_sin,      PROPF_METHOD},
 429     {sqrtW,     Math_sqrt,     PROPF_METHOD},
 430     {tanW,      Math_tan,      PROPF_METHOD}
 431 };
 432
 433 static const builtin_info_t Math_info = {
 434     JSCLASS_MATH,
 435     {NULL, NULL, 0},
 436     sizeof(Math_props)/sizeof(*Math_props),
 437     Math_props,
 438     NULL,
 439     NULL
 440 };
 441
 442 HRESULT create_math(script_ctx_t *ctx, DispatchEx **ret)
 443 {
 444     return create_dispex(ctx, &Math_info, NULL, ret);
 445 }