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"
27 #include "wine/debug.h"
29 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
37 static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
38 static const WCHAR toLocaleStringW[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
39 static const WCHAR toFixedW[] = {'t','o','F','i','x','e','d',0};
40 static const WCHAR toExponentialW[] = {'t','o','E','x','p','o','n','e','n','t','i','a','l',0};
41 static const WCHAR toPrecisionW[] = {'t','o','P','r','e','c','i','s','i','o','n',0};
42 static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
44 #define NUMBER_TOSTRING_BUF_SIZE 64
45 #define NUMBER_DTOA_SIZE 18
47 static inline NumberInstance *number_from_vdisp(vdisp_t *vdisp)
49 return (NumberInstance*)vdisp->u.jsdisp;
52 static inline NumberInstance *number_this(vdisp_t *jsthis)
54 return is_vclass(jsthis, JSCLASS_NUMBER) ? number_from_vdisp(jsthis) : NULL;
57 static inline void dtoa(double d, WCHAR *buf, int size, int *dec_point)
62 /* TODO: this function should print doubles with bigger precision */
63 assert(size>=2 && size<=NUMBER_DTOA_SIZE && d>=0);
68 *dec_point = floor(log10(d));
69 l = d*pow(10, size-*dec_point-1);
77 for(i=size-2; i>=0; i--) {
82 /* log10 was wrong by 1 or rounding changed number of digits */
85 memmove(buf+1, buf, size-2);
87 }else if(buf[0]=='0' && buf[1]>='1' && buf[1]<='9') {
89 memmove(buf, buf+1, size-2);
94 static inline void number_to_fixed(double val, int prec, BSTR *out)
96 WCHAR buf[NUMBER_DTOA_SIZE];
97 int dec_point, size, buf_size, buf_pos;
106 if(val<=-1 || val>=1)
107 buf_size = log10(val)+prec+2;
110 if(buf_size > NUMBER_DTOA_SIZE)
111 buf_size = NUMBER_DTOA_SIZE;
113 dtoa(val, buf, buf_size, &dec_point);
125 str = SysAllocStringLen(NULL, size);
130 for(;buf_pos<buf_size-1 && dec_point; dec_point--)
131 str[size++] = buf[buf_pos++];
135 for(; dec_point>0; dec_point--)
140 for(; dec_point<0 && prec; dec_point++, prec--)
142 for(; buf_pos<buf_size-1 && prec; prec--)
143 str[size++] = buf[buf_pos++];
144 for(; prec; prec--) {
153 static inline void number_to_exponential(double val, int prec, BSTR *out)
155 WCHAR buf[NUMBER_DTOA_SIZE], *pbuf;
156 int dec_point, size, buf_size, exp_size = 1;
166 if(buf_size<2 || buf_size>NUMBER_DTOA_SIZE)
167 buf_size = NUMBER_DTOA_SIZE;
168 dtoa(val, buf, buf_size, &dec_point);
171 for(; buf_size>1 && buf[buf_size-1]=='0'; buf_size--)
175 while(dec_point>=size || dec_point<=-size) {
181 size = buf_size+2+exp_size; /* 2 = strlen(e+) */
183 size = buf_size+3+exp_size; /* 3 = strlen(.e+) */
185 size = prec+4+exp_size; /* 4 = strlen(0.e+) */
188 str = SysAllocStringLen(NULL, size);
194 str[size++] = *pbuf++;
198 str[size++] = *pbuf++;
199 for(; prec>buf_size-1; prec--)
207 dec_point = -dec_point;
211 str[--size] = '0'+dec_point%10;
220 /* ECMA-262 3rd Edition 15.7.4.2 */
221 static HRESULT Number_toString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
222 jsval_t *r, jsexcept_t *ei)
224 NumberInstance *number;
232 if(!(number = number_this(jsthis)))
233 return throw_type_error(ctx, ei, JS_E_NUMBER_EXPECTED, NULL);
236 hres = to_int32(ctx, argv[0], ei, &radix);
240 if(radix<2 || radix>36)
241 return throw_type_error(ctx, ei, JS_E_INVALIDARG, NULL);
246 if(radix==10 || isnan(val) || isinf(val)) {
249 num_set_val(&v, val);
250 hres = to_string(ctx, &v, ei, &str);
255 DOUBLE integ, frac, log_radix = 0;
256 WCHAR buf[NUMBER_TOSTRING_BUF_SIZE+16];
270 while(integ>=1 && idx<NUMBER_TOSTRING_BUF_SIZE) {
271 buf[idx] = fmod(integ, radix);
272 if(buf[idx]<10) buf[idx] += '0';
273 else buf[idx] += 'a'-10;
278 if(idx<NUMBER_TOSTRING_BUF_SIZE) {
279 INT beg = buf[0]=='-'?1:0;
285 buf[beg++] = buf[end];
290 if(idx != NUMBER_TOSTRING_BUF_SIZE) buf[idx++] = '.';
292 while(frac>0 && idx<NUMBER_TOSTRING_BUF_SIZE) {
294 buf[idx] = fmod(frac, radix);
296 if(buf[idx]<10) buf[idx] += '0';
297 else buf[idx] += 'a'-10;
301 if(idx==NUMBER_TOSTRING_BUF_SIZE && !exp) {
303 idx = (buf[0]=='-') ? 1 : 0;
304 log_radix = floor(log(val)/log(radix));
305 val *= pow(radix, -log_radix);
312 while(buf[idx-1] == '0') idx--;
313 if(buf[idx-1] == '.') idx--;
319 static const WCHAR formatW[] = {'(','e','%','c','%','d',')',0};
323 log_radix = -log_radix;
327 sprintfW(&buf[idx], formatW, ch, (int)log_radix);
330 else buf[idx] = '\0';
332 str = SysAllocString(buf);
334 return E_OUTOFMEMORY;
338 *r = jsval_string(str);
344 static HRESULT Number_toLocaleString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
345 jsval_t *r, jsexcept_t *ei)
351 static HRESULT Number_toFixed(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
352 jsval_t *r, jsexcept_t *ei)
354 NumberInstance *number;
362 if(!(number = number_this(jsthis)))
363 return throw_type_error(ctx, ei, JS_E_NUMBER_EXPECTED, NULL);
366 hres = to_int32(ctx, argv[0], ei, &prec);
370 if(prec<0 || prec>20)
371 return throw_range_error(ctx, ei, JS_E_FRACTION_DIGITS_OUT_OF_RANGE, NULL);
375 if(isinf(val) || isnan(val)) {
378 num_set_val(&v, val);
379 hres = to_string(ctx, &v, ei, &str);
383 number_to_fixed(val, prec, &str);
387 *r = jsval_string(str);
393 static HRESULT Number_toExponential(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
394 jsval_t *r, jsexcept_t *ei)
396 NumberInstance *number;
404 if(!(number = number_this(jsthis)))
405 return throw_type_error(ctx, ei, JS_E_NUMBER_EXPECTED, NULL);
408 hres = to_int32(ctx, argv[0], ei, &prec);
412 if(prec<0 || prec>20)
413 return throw_range_error(ctx, ei, JS_E_FRACTION_DIGITS_OUT_OF_RANGE, NULL);
417 if(isinf(val) || isnan(val)) {
420 num_set_val(&v, val);
421 hres = to_string(ctx, &v, ei, &str);
427 number_to_exponential(val, prec, &str);
431 *r = jsval_string(str);
437 static HRESULT Number_toPrecision(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
438 jsval_t *r, jsexcept_t *ei)
440 NumberInstance *number;
446 if(!(number = number_this(jsthis)))
447 return throw_type_error(ctx, ei, JS_E_NUMBER_EXPECTED, NULL);
450 hres = to_int32(ctx, argv[0], ei, &prec);
454 if(prec<1 || prec>21)
455 return throw_range_error(ctx, ei, JS_E_PRECISION_OUT_OF_RANGE, NULL);
459 if(isinf(val) || isnan(val) || !prec) {
462 num_set_val(&v, val);
463 hres = to_string(ctx, &v, ei, &str);
468 size = floor(log10(val>0 ? val : -val)) + 1;
473 number_to_exponential(val, prec-1, &str);
475 number_to_fixed(val, prec-size, &str);
479 *r = jsval_string(str);
485 static HRESULT Number_valueOf(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
486 jsval_t *r, jsexcept_t *ei)
488 NumberInstance *number;
492 if(!(number = number_this(jsthis)))
493 return throw_type_error(ctx, ei, JS_E_NUMBER_EXPECTED, NULL);
496 *r = jsval_number(number->value);
500 static HRESULT Number_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
501 jsval_t *r, jsexcept_t *ei)
503 NumberInstance *number = number_from_vdisp(jsthis);
507 return throw_type_error(ctx, ei, JS_E_FUNCTION_EXPECTED, NULL);
508 case DISPATCH_PROPERTYGET:
509 *r = jsval_number(number->value);
513 FIXME("flags %x\n", flags);
520 static const builtin_prop_t Number_props[] = {
521 {toExponentialW, Number_toExponential, PROPF_METHOD|1},
522 {toFixedW, Number_toFixed, PROPF_METHOD},
523 {toLocaleStringW, Number_toLocaleString, PROPF_METHOD},
524 {toPrecisionW, Number_toPrecision, PROPF_METHOD|1},
525 {toStringW, Number_toString, PROPF_METHOD|1},
526 {valueOfW, Number_valueOf, PROPF_METHOD}
529 static const builtin_info_t Number_info = {
531 {NULL, Number_value, 0},
532 sizeof(Number_props)/sizeof(*Number_props),
538 static const builtin_info_t NumberInst_info = {
540 {NULL, Number_value, 0},
546 static HRESULT NumberConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
547 jsval_t *r, jsexcept_t *ei)
558 *r = jsval_number(0);
562 hres = to_number_jsval(ctx, argv[0], ei, &n);
567 *r = jsval_number(n);
570 case DISPATCH_CONSTRUCT: {
574 hres = to_number_jsval(ctx, argv[0], ei, &n);
581 hres = create_number(ctx, n, &obj);
589 FIXME("unimplemented flags %x\n", flags);
596 static HRESULT alloc_number(script_ctx_t *ctx, jsdisp_t *object_prototype, NumberInstance **ret)
598 NumberInstance *number;
601 number = heap_alloc_zero(sizeof(NumberInstance));
603 return E_OUTOFMEMORY;
606 hres = init_dispex(&number->dispex, ctx, &Number_info, object_prototype);
608 hres = init_dispex_from_constr(&number->dispex, ctx, &NumberInst_info, ctx->number_constr);
616 HRESULT create_number_constr(script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret)
618 NumberInstance *number;
621 static const WCHAR NumberW[] = {'N','u','m','b','e','r',0};
623 hres = alloc_number(ctx, object_prototype, &number);
628 hres = create_builtin_constructor(ctx, NumberConstr_value, NumberW, NULL,
629 PROPF_CONSTR|1, &number->dispex, ret);
631 jsdisp_release(&number->dispex);
635 HRESULT create_number(script_ctx_t *ctx, double value, jsdisp_t **ret)
637 NumberInstance *number;
640 hres = alloc_number(ctx, NULL, &number);
644 number->value = value;
646 *ret = &number->dispex;