/* * Copyright 2008 Jacek Caban for CodeWeavers * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include #include #include #include "jscript.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(jscript); typedef struct { jsdisp_t dispex; double value; } NumberInstance; #define NUMBER_TOSTRING_BUF_SIZE 64 #define NUMBER_DTOA_SIZE 18 static inline NumberInstance *number_from_jsdisp(jsdisp_t *jsdisp) { return CONTAINING_RECORD(jsdisp, NumberInstance, dispex); } static inline HRESULT numberval_this(jsval_t vthis, DOUBLE *ret) { jsdisp_t *jsdisp; if(is_number(vthis)) *ret = get_number(vthis); else if(is_object_instance(vthis) && (jsdisp = to_jsdisp(get_object(vthis))) && is_class(jsdisp, JSCLASS_NUMBER)) *ret = number_from_jsdisp(jsdisp)->value; else return JS_E_NUMBER_EXPECTED; return S_OK; } static inline void number_to_str(double d, WCHAR *buf, int size, int *dec_point) { ULONGLONG l; int i; /* TODO: this function should print doubles with bigger precision */ assert(size>=2 && size<=NUMBER_DTOA_SIZE && d>=0); if(d == 0) *dec_point = 0; else *dec_point = floor(log10(d)); l = d*pow(10, size-*dec_point-1); if(l%10 >= 5) l = l/10+1; else l /= 10; buf[size-1] = 0; for(i=size-2; i>=0; i--) { buf[i] = '0'+l%10; l /= 10; } /* log10 was wrong by 1 or rounding changed number of digits */ if(l) { (*dec_point)++; memmove(buf+1, buf, size-2); buf[0] = '0'+l; }else if(buf[0]=='0' && buf[1]>='1' && buf[1]<='9') { (*dec_point)--; memmove(buf, buf+1, size-2); buf[size-2] = '0'; } } static inline jsstr_t *number_to_fixed(double val, int prec) { WCHAR buf[NUMBER_DTOA_SIZE]; int dec_point, size, buf_size, buf_pos; BOOL neg = FALSE; jsstr_t *ret; WCHAR *str; TRACE("%lf %d\n", val, prec); if(val < 0) { neg = TRUE; val = -val; } if(val >= 1) buf_size = log10(val)+prec+2; else buf_size = prec ? prec+1 : 2; if(buf_size > NUMBER_DTOA_SIZE) buf_size = NUMBER_DTOA_SIZE; number_to_str(val, buf, buf_size, &dec_point); dec_point++; size = 0; if(neg) size++; if(dec_point > 0) size += dec_point; else size++; if(prec) size += prec+1; ret = jsstr_alloc_buf(size, &str); if(!ret) return NULL; size = buf_pos = 0; if(neg) str[size++] = '-'; if(dec_point > 0) { for(;buf_pos0; dec_point--) str[size++] = '0'; if(prec) { str[size++] = '.'; for(; dec_point<0 && prec; dec_point++, prec--) str[size++] = '0'; for(; buf_posNUMBER_DTOA_SIZE) buf_size = NUMBER_DTOA_SIZE; number_to_str(val, buf, buf_size, &dec_point); buf_size--; if(prec == -1) for(; buf_size>1 && buf[buf_size-1]=='0'; buf_size--) buf[buf_size-1] = 0; size = 10; while(dec_point>=size || dec_point<=-size) { size *= 10; exp_size++; } if(buf_size == 1) size = buf_size+2+exp_size; /* 2 = strlen(e+) */ else if(prec == -1) size = buf_size+3+exp_size; /* 3 = strlen(.e+) */ else size = prec+4+exp_size; /* 4 = strlen(0.e+) */ if(neg) size++; ret = jsstr_alloc_buf(size, &str); if(!ret) return NULL; size = 0; pbuf = buf; if(neg) str[size++] = '-'; str[size++] = *pbuf++; if(buf_size != 1) { str[size++] = '.'; while(*pbuf) str[size++] = *pbuf++; for(; prec>buf_size-1; prec--) str[size++] = '0'; } str[size++] = 'e'; if(dec_point >= 0) { str[size++] = '+'; }else { str[size++] = '-'; dec_point = -dec_point; } size += exp_size; do { str[--size] = '0'+dec_point%10; dec_point /= 10; }while(dec_point>0); size += exp_size; str[size] = 0; return ret; } /* ECMA-262 3rd Edition 15.7.4.2 */ static HRESULT Number_toString(script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r) { INT radix = 10; DOUBLE val; jsstr_t *str; HRESULT hres; TRACE("\n"); hres = numberval_this(vthis, &val); if(FAILED(hres)) return hres; if(argc) { hres = to_int32(ctx, argv[0], &radix); if(FAILED(hres)) return hres; if(radix < 2 || radix > 36) return JS_E_INVALIDARG; } if(radix==10 || !isfinite(val)) { hres = to_string(ctx, jsval_number(val), &str); if(FAILED(hres)) return hres; }else { INT idx = 0; DOUBLE integ, frac, log_radix = 0; WCHAR buf[NUMBER_TOSTRING_BUF_SIZE+16]; BOOL exp = FALSE; if(val<0) { val = -val; buf[idx++] = '-'; } while(1) { integ = floor(val); frac = val-integ; if(integ == 0) buf[idx++] = '0'; while(integ>=1 && idx beg) { wch = buf[beg]; buf[beg++] = buf[end]; buf[end--] = wch; } } if(idx != NUMBER_TOSTRING_BUF_SIZE) buf[idx++] = '.'; while(frac>0 && idxlcid; _locale_t locale; unsigned convlen; jsstr_t *str; int len; /* FIXME: Localize this */ if(!isfinite(val)) return to_string(ctx, jsval_number(val), ret); /* Native never uses an exponent, even if the number is very large, it will in fact return all the digits (with thousands separators). jscript.dll uses two digits for fraction even if they are zero (likely default numDigits) and always returns them, while mshtml's jscript uses 3 digits and trims trailing zeros (on same locale). This is even for very small numbers, such as 0.0000999, which will simply be 0. */ if(!(locale = _create_locale(LC_ALL, "C"))) return E_OUTOFMEMORY; len = _swprintf_l(buf, ARRAY_SIZE(buf), L"%.3f", locale, val); _free_locale(locale); if(new_format) { WCHAR grouping[10]; format = &format_buf; format->NumDigits = 3; while(buf[--len] == '0') format->NumDigits--; /* same logic as VarFormatNumber */ grouping[2] = '\0'; if(!GetLocaleInfoW(lcid, LOCALE_SGROUPING, grouping, ARRAY_SIZE(grouping))) format->Grouping = 3; else format->Grouping = (grouping[2] == '2' ? 32 : grouping[0] - '0'); if(!GetLocaleInfoW(lcid, LOCALE_ILZERO | LOCALE_RETURN_NUMBER, (WCHAR*)&format->LeadingZero, 2)) format->LeadingZero = 0; if(!GetLocaleInfoW(lcid, LOCALE_INEGNUMBER | LOCALE_RETURN_NUMBER, (WCHAR*)&format->NegativeOrder, 2)) format->NegativeOrder = 1; format->lpDecimalSep = decimal; if(!GetLocaleInfoW(lcid, LOCALE_SDECIMAL, decimal, ARRAY_SIZE(decimal))) wcscpy(decimal, L"."); format->lpThousandSep = thousands; if(!GetLocaleInfoW(lcid, LOCALE_STHOUSAND, thousands, ARRAY_SIZE(thousands))) wcscpy(thousands, L","); } if(!(convlen = GetNumberFormatW(lcid, 0, buf, format, NULL, 0)) || !(str = jsstr_alloc_buf(convlen - 1, &numstr))) return E_OUTOFMEMORY; if(!GetNumberFormatW(lcid, 0, buf, format, numstr, convlen)) { jsstr_release(str); return E_OUTOFMEMORY; } *ret = str; return S_OK; } static HRESULT Number_toLocaleString(script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r) { jsstr_t *str; HRESULT hres; DOUBLE val; TRACE("\n"); hres = numberval_this(vthis, &val); if(FAILED(hres)) { if(hres == JS_E_NUMBER_EXPECTED && ctx->version >= SCRIPTLANGUAGEVERSION_ES5) return throw_error(ctx, JS_E_WRONG_THIS, L"Number"); return hres; } if(r) { hres = localize_number(ctx, val, ctx->version >= SCRIPTLANGUAGEVERSION_ES5, &str); if(FAILED(hres)) return hres; *r = jsval_string(str); } return S_OK; } static HRESULT Number_toFixed(script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r) { DOUBLE val; INT prec = 0; jsstr_t *str; HRESULT hres; TRACE("\n"); hres = numberval_this(vthis, &val); if(FAILED(hres)) return hres; if(argc) { hres = to_int32(ctx, argv[0], &prec); if(FAILED(hres)) return hres; if(prec < 0 || prec > 20) return JS_E_FRACTION_DIGITS_OUT_OF_RANGE; } if(!isfinite(val)) { hres = to_string(ctx, jsval_number(val), &str); if(FAILED(hres)) return hres; }else { str = number_to_fixed(val, prec); if(!str) return E_OUTOFMEMORY; } if(r) *r = jsval_string(str); else jsstr_release(str); return S_OK; } static HRESULT Number_toExponential(script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r) { DOUBLE val; INT prec = 0; jsstr_t *str; HRESULT hres; TRACE("\n"); hres = numberval_this(vthis, &val); if(FAILED(hres)) return hres; if(argc) { hres = to_int32(ctx, argv[0], &prec); if(FAILED(hres)) return hres; if(prec < 0 || prec > 20) return JS_E_FRACTION_DIGITS_OUT_OF_RANGE; } if(!isfinite(val)) { hres = to_string(ctx, jsval_number(val), &str); if(FAILED(hres)) return hres; }else { if(!prec) prec--; str = number_to_exponential(val, prec); if(!str) return E_OUTOFMEMORY; } if(r) *r = jsval_string(str); else jsstr_release(str); return S_OK; } static HRESULT Number_toPrecision(script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r) { INT prec = 0, size; jsstr_t *str; DOUBLE val; HRESULT hres; hres = numberval_this(vthis, &val); if(FAILED(hres)) return hres; if(argc) { hres = to_int32(ctx, argv[0], &prec); if(FAILED(hres)) return hres; if(prec<1 || prec>21) return JS_E_PRECISION_OUT_OF_RANGE; } if(!isfinite(val) || !prec) { hres = to_string(ctx, jsval_number(val), &str); if(FAILED(hres)) return hres; }else { if(val != 0) size = floor(log10(val>0 ? val : -val)) + 1; else size = 1; if(size > prec) str = number_to_exponential(val, prec-1); else str = number_to_fixed(val, prec-size); if(!str) return E_OUTOFMEMORY; } if(r) *r = jsval_string(str); else jsstr_release(str); return S_OK; } static HRESULT Number_valueOf(script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r) { HRESULT hres; DOUBLE val; TRACE("\n"); hres = numberval_this(vthis, &val); if(FAILED(hres)) return hres; if(r) *r = jsval_number(val); return S_OK; } static const builtin_prop_t Number_props[] = { {L"toExponential", Number_toExponential, PROPF_METHOD|1}, {L"toFixed", Number_toFixed, PROPF_METHOD}, {L"toLocaleString", Number_toLocaleString, PROPF_METHOD}, {L"toPrecision", Number_toPrecision, PROPF_METHOD|1}, {L"toString", Number_toString, PROPF_METHOD|1}, {L"valueOf", Number_valueOf, PROPF_METHOD} }; static const builtin_info_t Number_info = { JSCLASS_NUMBER, NULL, ARRAY_SIZE(Number_props), Number_props, NULL, NULL }; static const builtin_info_t NumberInst_info = { JSCLASS_NUMBER, NULL, 0, NULL, NULL, NULL }; static HRESULT NumberConstr_value(script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r) { double n; HRESULT hres; TRACE("\n"); switch(flags) { case INVOKE_FUNC: if(!argc) { if(r) *r = jsval_number(0); return S_OK; } hres = to_number(ctx, argv[0], &n); if(FAILED(hres)) return hres; if(r) *r = jsval_number(n); break; case DISPATCH_CONSTRUCT: { jsdisp_t *obj; if(argc) { hres = to_number(ctx, argv[0], &n); if(FAILED(hres)) return hres; }else { n = 0; } if(r) { hres = create_number(ctx, n, &obj); if(FAILED(hres)) return hres; *r = jsval_obj(obj); } break; } default: FIXME("unimplemented flags %x\n", flags); return E_NOTIMPL; } return S_OK; } static HRESULT alloc_number(script_ctx_t *ctx, jsdisp_t *object_prototype, NumberInstance **ret) { NumberInstance *number; HRESULT hres; number = heap_alloc_zero(sizeof(NumberInstance)); if(!number) return E_OUTOFMEMORY; if(object_prototype) hres = init_dispex(&number->dispex, ctx, &Number_info, object_prototype); else hres = init_dispex_from_constr(&number->dispex, ctx, &NumberInst_info, ctx->number_constr); if(FAILED(hres)) { heap_free(number); return hres; } *ret = number; return S_OK; } HRESULT create_number_constr(script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret) { NumberInstance *number; HRESULT hres; hres = alloc_number(ctx, object_prototype, &number); if(FAILED(hres)) return hres; number->value = 0; hres = create_builtin_constructor(ctx, NumberConstr_value, L"Number", NULL, PROPF_CONSTR|1, &number->dispex, ret); jsdisp_release(&number->dispex); return hres; } HRESULT create_number(script_ctx_t *ctx, double value, jsdisp_t **ret) { NumberInstance *number; HRESULT hres; hres = alloc_number(ctx, NULL, &number); if(FAILED(hres)) return hres; number->value = value; *ret = &number->dispex; return S_OK; }