jsutils.c File Reference

#include <math.h>
#include <assert.h>
#include "jscript.h"
#include "engine.h"
#include "wine/debug.h"

Include dependency graph for jsutils.c:

Go to the source code of this file.

Macros
#define	MIN_BLOCK_SIZE   128
#define	ARENA_FREE_FILLER   0xaa

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (jscript)
	WINE_DECLARE_DEBUG_CHANNEL (heap)
const char *	debugstr_jsval (const jsval_t v)
static DWORD	block_size (DWORD block)
void	heap_pool_init (heap_pool_t *heap)
void *	heap_pool_alloc (heap_pool_t *heap, DWORD size)
void *	heap_pool_grow (heap_pool_t *heap, void *mem, DWORD size, DWORD inc)
void	heap_pool_clear (heap_pool_t *heap)
void	heap_pool_free (heap_pool_t *heap)
heap_pool_t *	heap_pool_mark (heap_pool_t *heap)
void	jsval_release (jsval_t val)
static HRESULT	jsval_variant (jsval_t *val, VARIANT *var)
HRESULT	jsval_copy (jsval_t v, jsval_t *r)
HRESULT	variant_to_jsval (script_ctx_t *ctx, VARIANT *var, jsval_t *r)
HRESULT	jsval_to_variant (jsval_t val, VARIANT *retv)
HRESULT	to_primitive (script_ctx_t *ctx, jsval_t val, jsval_t *ret, hint_t hint)
HRESULT	to_boolean (jsval_t val, BOOL *ret)
static int	hex_to_int (WCHAR c)
static HRESULT	str_to_number (jsstr_t *str, double *ret)
HRESULT	to_number (script_ctx_t *ctx, jsval_t val, double *ret)
HRESULT	to_integer (script_ctx_t *ctx, jsval_t v, double *ret)
static INT32	double_to_int32 (double number)
HRESULT	to_int32 (script_ctx_t *ctx, jsval_t v, INT *ret)
HRESULT	to_long (script_ctx_t *ctx, jsval_t v, LONG *ret)
HRESULT	to_uint32 (script_ctx_t *ctx, jsval_t val, UINT32 *ret)
HRESULT	double_to_string (double n, jsstr_t **str)
HRESULT	to_string (script_ctx_t *ctx, jsval_t val, jsstr_t **str)
HRESULT	to_flat_string (script_ctx_t *ctx, jsval_t val, jsstr_t **str, const WCHAR **ret_str)
HRESULT	to_object (script_ctx_t *ctx, jsval_t val, IDispatch **disp)
HRESULT	variant_change_type (script_ctx_t *ctx, VARIANT *dst, VARIANT *src, VARTYPE vt)
static JSCaller *	impl_from_IServiceProvider (IServiceProvider *iface)
static HRESULT WINAPI	JSCaller_QueryInterface (IServiceProvider *iface, REFIID riid, void **ppv)
static ULONG WINAPI	JSCaller_AddRef (IServiceProvider *iface)
static ULONG WINAPI	JSCaller_Release (IServiceProvider *iface)
static HRESULT WINAPI	JSCaller_QueryService (IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
HRESULT	create_jscaller (script_ctx_t *ctx)

Variables
static const IServiceProviderVtbl	ServiceProviderVtbl

Macro Definition Documentation

ARENA_FREE_FILLER

#define ARENA_FREE_FILLER   0xaa

Definition at line 59 of file jsutils.c.

MIN_BLOCK_SIZE

#define MIN_BLOCK_SIZE   128

Definition at line 58 of file jsutils.c.

Function Documentation

block_size()

static DWORD block_size ( DWORD  block )

inlinestatic

Definition at line 61 of file jsutils.c.

{
    return MIN_BLOCK_SIZE << block;
}

Referenced by _aligned_offset_malloc_base(), _aligned_offset_malloc_dbg(), _aligned_offset_realloc_dbg(), chmc_crunch_lzx(), ctl2_alloc_segment(), decode_block(), ext4_xattr_entry_data(), FDSA_Initialize(), heap_alloc_dbg_internal(), heap_pool_alloc(), heap_pool_clear(), heap_pool_grow(), load_APE_metadata(), lznt1_decompress(), lzx_compress_block(), RtlpCompressBufferLZNT1(), sort_linked_list(), test_fdsa(), test_marshal_HGLOBAL(), and urlcache_entry_alloc().

create_jscaller()

HRESULT create_jscaller

(

script_ctx_t *

ctx

)

Definition at line 1109 of file jsutils.c.

{
    JSCaller *ret;
 
    ret = malloc(sizeof(*ret));
    if(!ret)
        return E_OUTOFMEMORY;
 
    ret->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
    ret->ref = 1;
    ret->ctx = ctx;
    ret->caller = SP_CALLER_UNINITIALIZED;
 
    ctx->jscaller = ret;
    return S_OK;
}

Referenced by JScript_SetScriptSite().

debugstr_jsval()

const char * debugstr_jsval

(

const jsval_t

v

)

Definition at line 35 of file jsutils.c.

{
    switch(jsval_type(v)) {
    case JSV_UNDEFINED:
        return "undefined";
    case JSV_NULL:
        return "null";
    case JSV_OBJECT:
        return wine_dbg_sprintf("obj(%p)", get_object(v));
    case JSV_STRING:
        return wine_dbg_sprintf("str(%s)", debugstr_jsstr(get_string(v)));
    case JSV_NUMBER:
        return wine_dbg_sprintf("%lf", get_number(v));
    case JSV_BOOL:
        return get_bool(v) ? "true" : "false";
    case JSV_VARIANT:
        return debugstr_variant(get_variant(v));
    }
 
    assert(0);
    return NULL;
}

Referenced by Arguments_prop_put(), Array_every(), Array_filter(), Array_forEach(), Array_map(), Array_reduce(), Array_some(), Array_sort(), bind_event_target(), builtin_eval(), builtin_set_const(), exprval_call(), Function_invoke(), interp_add(), interp_carray_set(), interp_eq(), interp_eq2(), interp_gt(), interp_gteq(), interp_local(), interp_lt(), interp_lteq(), interp_neq(), interp_set_member(), interp_to_string(), invoke_prop_func(), iterate_map(), jsdisp_define_property(), JSGlobal_parseFloat(), Map_delete(), Map_forEach(), Map_get(), Map_has(), Map_set(), Object_create(), Object_freeze(), Object_get_proto_(), Object_getOwnPropertyNames(), Object_getPrototypeOf(), Object_isExtensible(), Object_isFrozen(), Object_isSealed(), Object_keys(), Object_preventExtensions(), Object_seal(), Object_set_proto_(), print_backtrace(), prop_get(), prop_put(), Set_add(), Set_delete(), Set_forEach(), Set_has(), unwind_exception(), and WeakMap_set().

double_to_int32()

static INT32 double_to_int32 ( double  number )

static

Definition at line 692 of file jsutils.c.

{
    INT32 exp, result;
    union {
        double d;
        INT64 n;
    } bits;
 
    bits.d = number;
    exp = ((INT32)(bits.n >> 52) & 0x7ff) - 0x3ff;
 
    /* If exponent < 0 there will be no bits to the left of the decimal point
     * after rounding; if the exponent is > 83 then no bits of precision can be
     * left in the low 32-bit range of the result (IEEE-754 doubles have 52 bits
     * of fractional precision).
     * Note this case handles 0, -0, and all infinite, NaN & denormal values. */
    if(exp < 0 || exp > 83)
        return 0;
 
    /* Select the appropriate 32-bits from the floating point mantissa.  If the
     * exponent is 52 then the bits we need to select are already aligned to the
     * lowest bits of the 64-bit integer representation of the number, no need
     * to shift.  If the exponent is greater than 52 we need to shift the value
     * left by (exp - 52), if the value is less than 52 we need to shift right
     * accordingly. */
    result = (exp > 52) ? bits.n << (exp - 52) : bits.n >> (52 - exp);
 
    /* IEEE-754 double precision values are stored omitting an implicit 1 before
     * the decimal point; we need to reinsert this now.  We may also the shifted
     * invalid bits into the result that are not a part of the mantissa (the sign
     * and exponent bits from the floatingpoint representation); mask these out. */
    if(exp < 32) {
        INT32 missing_one = 1 << exp;
        result &= missing_one - 1;
        result += missing_one;
    }
 
    /* If the input value was negative (we could test either 'number' or 'bits',
     * but testing 'bits' is likely faster) invert the result appropriately. */
    return bits.n < 0 ? -result : result;
}

Referenced by to_int32(), and to_uint32().

double_to_string()

HRESULT double_to_string	(	double	n,
		jsstr_t **	str
	)

Definition at line 767 of file jsutils.c.

{
    if(isnan(n)) {
        *str = jsstr_nan();
    }else if(isinf(n)) {
        *str = jsstr_alloc(n<0 ? L"-Infinity" : L"Infinity");
    }else if(is_int32(n)) {
        WCHAR buf[12];
#ifdef __REACTOS__ /* FIXME: Inspect */
        swprintf(buf, ARRAY_SIZE(buf), L"%d", (int)n);
#else
        _ltow_s(n, buf, ARRAY_SIZE(buf), 10);
#endif
        *str = jsstr_alloc(buf);
    }else {
        VARIANT strv, v;
        HRESULT hres;
 
        /* FIXME: Don't use VariantChangeTypeEx */
        V_VT(&v) = VT_R8;
        V_R8(&v) = n;
        V_VT(&strv) = VT_EMPTY;
        hres = VariantChangeTypeEx(&strv, &v, MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT), 0, VT_BSTR);
        if(FAILED(hres))
            return hres;
 
        *str = jsstr_alloc(V_BSTR(&strv));
        SysFreeString(V_BSTR(&strv));
    }
 
    return *str ? S_OK : E_OUTOFMEMORY;
}

Referenced by literal_as_string(), stringify(), and to_string().

heap_pool_alloc()

void * heap_pool_alloc	(	heap_pool_t *	heap,
		DWORD	size
	)

Definition at line 72 of file jsutils.c.

{
    struct list *list;
    void *tmp;
 
    if(!heap->block_cnt) {
        if(!heap->blocks) {
            heap->blocks = malloc(sizeof(void*));
            if(!heap->blocks)
                return NULL;
        }
 
        tmp = malloc(block_size(0));
        if(!tmp)
            return NULL;
 
        heap->blocks[0] = tmp;
        heap->block_cnt = 1;
    }
 
    if(heap->offset + size <= block_size(heap->last_block)) {
        tmp = ((BYTE*)heap->blocks[heap->last_block])+heap->offset;
        heap->offset += size;
        return tmp;
    }
 
    if(size <= block_size(heap->last_block+1)) {
        if(heap->last_block+1 == heap->block_cnt) {
            tmp = realloc(heap->blocks, (heap->block_cnt+1)*sizeof(void*));
            if(!tmp)
                return NULL;
 
            heap->blocks = tmp;
            heap->blocks[heap->block_cnt] = malloc(block_size(heap->block_cnt));
            if(!heap->blocks[heap->block_cnt])
                return NULL;
 
            heap->block_cnt++;
        }
 
        heap->last_block++;
        heap->offset = size;
        return heap->blocks[heap->last_block];
    }
 
    list = malloc(size + sizeof(struct list));
    if(!list)
        return NULL;
 
    list_add_head(&heap->custom_blocks, list);
    return list+1;
}

Referenced by add_dynamic_var(), alloc_local(), alloc_match_state(), compiler_alloc(), compiler_alloc_zero(), exec_global_code(), heap_pool_grow(), heap_pool_strdup(), InitMatch(), NewRENode(), parser_alloc(), and parser_alloc_tmp().

heap_pool_clear()

void heap_pool_clear

(

heap_pool_t *

heap

)

Definition at line 141 of file jsutils.c.

{
    struct list *tmp;
 
    if(!heap)
        return;
 
    while((tmp = list_head(&heap->custom_blocks))) {
        list_remove(tmp);
        free(tmp);
    }
 
    if(WARN_ON(heap)) {
        DWORD i;
 
        for(i=0; i < heap->block_cnt; i++)
            memset(heap->blocks[i], ARENA_FREE_FILLER, block_size(i));
    }
 
    heap->last_block = heap->offset = 0;
    heap->mark = FALSE;
}

Referenced by heap_pool_free().

heap_pool_free()

void heap_pool_free

(

heap_pool_t *

heap

)

Definition at line 164 of file jsutils.c.

{
    DWORD i;
 
    heap_pool_clear(heap);
 
    for(i=0; i < heap->block_cnt; i++)
        free(heap->blocks[i]);
    free(heap->blocks);
 
    heap_pool_init(heap);
}

heap_pool_grow()

void * heap_pool_grow	(	heap_pool_t *	heap,
		void *	mem,
		DWORD	size,
		DWORD	inc
	)

Definition at line 125 of file jsutils.c.

{
    void *ret;
 
    if(mem == (BYTE*)heap->blocks[heap->last_block] + heap->offset-size
       && heap->offset+inc < block_size(heap->last_block)) {
        heap->offset += inc;
        return mem;
    }
 
    ret = heap_pool_alloc(heap, size+inc);
    if(ret) /* FIXME: avoid copying for custom blocks */
        memcpy(ret, mem, size);
    return ret;
}

heap_pool_init()

void heap_pool_init

(

heap_pool_t *

heap

)

Definition at line 66 of file jsutils.c.

{
    memset(heap, 0, sizeof(*heap));
    list_init(&heap->custom_blocks);
}

Referenced by heap_pool_free().

heap_pool_mark()

heap_pool_t * heap_pool_mark

(

heap_pool_t *

heap

)

Definition at line 177 of file jsutils.c.

{
    if(heap->mark)
        return NULL;
 
    heap->mark = TRUE;
    return heap;
}

hex_to_int()

static int hex_to_int ( WCHAR  c )

static

Definition at line 520 of file jsutils.c.

{
    if('0' <= c && c <= '9')
        return c-'0';
 
    if('a' <= c && c <= 'f')
        return c-'a'+10;
 
    if('A' <= c && c <= 'F')
        return c-'A'+10;
 
    return -1;
}

Referenced by str_to_number().

impl_from_IServiceProvider()

static JSCaller * impl_from_IServiceProvider ( IServiceProvider *  iface )

inlinestatic

Definition at line 1020 of file jsutils.c.

{
    return CONTAINING_RECORD(iface, JSCaller, IServiceProvider_iface);
}

Referenced by JSCaller_AddRef(), JSCaller_QueryInterface(), JSCaller_QueryService(), and JSCaller_Release().

JSCaller_AddRef()

static ULONG WINAPI JSCaller_AddRef ( IServiceProvider *  iface )

static

Definition at line 1045 of file jsutils.c.

{
    JSCaller *This = impl_from_IServiceProvider(iface);
    LONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    return ref;
}

JSCaller_QueryInterface()

static HRESULT WINAPI JSCaller_QueryInterface ( IServiceProvider *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1025 of file jsutils.c.

{
    JSCaller *This = impl_from_IServiceProvider(iface);
 
    if(IsEqualGUID(&IID_IUnknown, riid)) {
        TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
        *ppv = &This->IServiceProvider_iface;
    }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
        TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
        *ppv = &This->IServiceProvider_iface;
    }else {
        WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

JSCaller_QueryService()

static HRESULT WINAPI JSCaller_QueryService ( IServiceProvider *  iface, REFGUID  guidService, REFIID  riid, void **  ppv  )

static

Definition at line 1070 of file jsutils.c.

{
    JSCaller *This = impl_from_IServiceProvider(iface);
 
    if(IsEqualGUID(guidService, &IID_IActiveScriptSite)) {
        TRACE("(%p)->(IID_IActiveScriptSite)\n", This);
        if(This->ctx && This->ctx->site)
            return IActiveScriptSite_QueryInterface(This->ctx->site, riid, ppv);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    if(IsEqualGUID(guidService, &SID_GetCaller)) {
        TRACE("(%p)->(SID_GetCaller)\n", This);
        *ppv = NULL;
        if(!This->caller)
            return S_OK;
        return (This->caller == SP_CALLER_UNINITIALIZED) ? E_NOINTERFACE : IServiceProvider_QueryInterface(This->caller, riid, ppv);
    }
 
    if(IsEqualGUID(guidService, &SID_VariantConversion) && This->ctx && This->ctx->active_script) {
        TRACE("(%p)->(SID_VariantConversion)\n", This);
        return IActiveScript_QueryInterface(This->ctx->active_script, riid, ppv);
    }
 
    FIXME("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 
    *ppv = NULL;
    return E_NOINTERFACE;
}

JSCaller_Release()

static ULONG WINAPI JSCaller_Release ( IServiceProvider *  iface )

static

Definition at line 1055 of file jsutils.c.

{
    JSCaller *This = impl_from_IServiceProvider(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    if(!ref) {
        assert(!This->ctx);
        free(This);
    }
 
    return ref;
}

jsval_copy()

HRESULT jsval_copy	(	jsval_t	v,
		jsval_t *	r
	)

Definition at line 225 of file jsutils.c.

{
    switch(jsval_type(v)) {
    case JSV_UNDEFINED:
    case JSV_NULL:
    case JSV_NUMBER:
    case JSV_BOOL:
        *r = v;
        return S_OK;
    case JSV_OBJECT:
        IDispatch_AddRef(get_object(v));
        *r = v;
        return S_OK;
    case JSV_STRING: {
        jsstr_addref(get_string(v));
        *r = v;
        return S_OK;
    }
    case JSV_VARIANT:
        return jsval_variant(r, get_variant(v));
    }
 
    assert(0);
    return E_FAIL;
}

Referenced by Arguments_prop_get(), Arguments_prop_put(), Array_reduce(), builtin_eval(), create_bind_function(), detach_arguments_object(), Enumerator_item(), exprval_propget(), exprval_propput(), Function_apply(), Function_call(), interp_local(), jsdisp_define_property(), Map_get(), maybe_to_primitive(), Object_set_proto_(), prop_get(), prop_put(), RegExp_get_lastIndex(), RegExp_set_lastIndex(), scope_prop_get(), scope_prop_put(), set_map_entry(), setup_scope(), to_primitive(), VBArrayConstr_value(), WeakMap_get(), and WeakMap_set().

jsval_release()

void jsval_release

(

jsval_t

val

)

Definition at line 186 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_OBJECT:
        IDispatch_Release(get_object(val));
        break;
    case JSV_STRING:
        jsstr_release(get_string(val));
        break;
    case JSV_VARIANT:
        VariantClear(get_variant(val));
        free(get_variant(val));
        break;
    default:
        break;
    }
}

Referenced by Arguments_destructor(), Arguments_prop_put(), Array_every(), Array_filter(), Array_forEach(), Array_indexOf(), array_join(), Array_lastIndexOf(), Array_map(), Array_pop(), Array_reduce(), Array_reverse(), Array_shift(), Array_slice(), Array_some(), Array_sort(), Array_splice(), array_to_args(), Array_unshift(), bind_event_target(), BindFunction_destructor(), clear_acc(), concat_array(), convert_params(), create_match_array(), DateConstr_value(), delete_prop(), DispatchEx_InvokeEx(), enter_bytecode(), Enumerator_destructor(), enumvar_get_next_item(), equal_values(), Error_toString(), exprval_call(), exprval_propput(), exprval_release(), Function_apply(), Function_bind(), Function_call(), gc_process_linked_val(), get_length(), init_dispex_from_constr(), interp_add(), interp_array(), interp_assign(), interp_bneg(), interp_call_eval(), interp_carray_set(), interp_case(), interp_delete(), interp_enter_catch(), interp_eq(), interp_eq2(), interp_gt(), interp_gteq(), interp_in(), interp_instanceof(), interp_jmp_z(), interp_lt(), interp_lteq(), interp_memberid(), interp_neg(), interp_neq(), interp_neq2(), interp_obj_prop(), interp_postinc(), interp_preinc(), interp_push_with_scope(), interp_ret(), interp_set_member(), interp_setret(), interp_to_string(), interp_tonum(), interp_typeof(), interp_typeofid(), interp_typeofident(), invoke_prop_func(), iterate_map(), JScriptParse_ParseScriptText(), jsdisp_define_properties(), jsdisp_define_property(), jsdisp_free(), JSON_parse(), JSON_stringify(), less_eval(), parse_json_value(), pop_call_frame(), prop_put(), RegExp_destructor(), RegExp_set_lastIndex(), release_map_entry(), release_property_descriptor(), remove_weakmap_entry(), rep_call(), reset_ei(), scope_destructor(), scope_init_locals(), scope_prop_put(), script_release(), set_error_value(), set_last_index(), set_map_entry(), setup_scope(), sort_cmp(), stack_pop_number(), stack_pop_object(), stack_popn(), stringify(), to_number(), to_property_descriptor(), to_string(), transform_json_object(), unlink_jsdisp(), unwind_exception(), variant_change_type(), VBArray_toArray(), and WeakMap_set().

jsval_to_variant()

HRESULT jsval_to_variant	(	jsval_t	val,
		VARIANT *	retv
	)

Definition at line 367 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
        V_VT(retv) = VT_EMPTY;
        return S_OK;
    case JSV_NULL:
        if(get_bool(val)) {
            V_VT(retv) = VT_DISPATCH;
            V_DISPATCH(retv) = NULL;
            return S_OK;
        }
        V_VT(retv) = VT_NULL;
        return S_OK;
    case JSV_OBJECT: {
        IWineJSDispatchHost *host_disp = get_host_dispatch(get_object(val));
        V_VT(retv) = VT_DISPATCH;
        if(host_disp) {
            V_DISPATCH(retv) = (IDispatch *)host_disp;
            return S_OK;
        }
 
        V_DISPATCH(retv) = get_object(val);
        IDispatch_AddRef(get_object(val));
        return S_OK;
    }
    case JSV_STRING:
        V_VT(retv) = VT_BSTR;
        return jsstr_to_bstr(get_string(val), &V_BSTR(retv));
    case JSV_NUMBER: {
        double n = get_number(val);
 
        if(is_int32(n)) {
            V_VT(retv) = VT_I4;
            V_I4(retv) = n;
        }else {
            V_VT(retv) = VT_R8;
            V_R8(retv) = n;
        }
 
        return S_OK;
    }
    case JSV_BOOL:
        V_VT(retv) = VT_BOOL;
        V_BOOL(retv) = get_bool(val) ? VARIANT_TRUE : VARIANT_FALSE;
        return S_OK;
    case JSV_VARIANT:
        V_VT(retv) = VT_EMPTY;
        return VariantCopy(retv, get_variant(val));
    }
 
    assert(0);
    return E_FAIL;
}

Referenced by disp_call(), disp_call_value_with_caller(), disp_propput(), DispatchEx_InvokeEx(), HostConstructor_call(), HostFunction_call(), HostObject_prop_put(), and JScriptParse_ParseScriptText().

jsval_variant()

static HRESULT jsval_variant ( jsval_t *  val, VARIANT *  var  )

static

Definition at line 204 of file jsutils.c.

{
    VARIANT *v;
    HRESULT hres;
 
    __JSVAL_TYPE(*val) = JSV_VARIANT;
    __JSVAL_VAR(*val) = v = malloc(sizeof(VARIANT));
    if(!v) {
        *val = jsval_undefined();
        return E_OUTOFMEMORY;
    }
 
    V_VT(v) = VT_EMPTY;
    hres = VariantCopy(v, var);
    if(FAILED(hres)) {
        *val = jsval_undefined();
        free(v);
    }
    return hres;
}

Referenced by jsval_copy(), and variant_to_jsval().

str_to_number()

static HRESULT str_to_number ( jsstr_t *  str, double *  ret  )

static

Definition at line 536 of file jsutils.c.

{
    const WCHAR *ptr;
    BOOL neg = FALSE;
    DOUBLE d = 0.0;
 
    static const WCHAR infinityW[] = L"Infinity";
 
    ptr = jsstr_flatten(str);
    if(!ptr)
        return E_OUTOFMEMORY;
 
    while(iswspace(*ptr))
        ptr++;
 
    if(*ptr == '-') {
        neg = TRUE;
        ptr++;
    }else if(*ptr == '+') {
        ptr++;
    }
 
    if(!wcsncmp(ptr, infinityW, ARRAY_SIZE(infinityW)-1)) {
        ptr += ARRAY_SIZE(infinityW) - 1;
        while(*ptr && iswspace(*ptr))
            ptr++;
 
        if(*ptr)
            *ret = NAN;
        else
            *ret = neg ? -INFINITY : INFINITY;
        return S_OK;
    }
 
    if(*ptr == '0' && ptr[1] == 'x') {
        DWORD l = 0;
 
        ptr += 2;
        while((l = hex_to_int(*ptr)) != -1) {
            d = d*16 + l;
            ptr++;
        }
 
        *ret = d;
        return S_OK;
    }
 
    while(is_digit(*ptr))
        d = d*10 + (*ptr++ - '0');
 
    if(*ptr == 'e' || *ptr == 'E') {
        BOOL eneg = FALSE;
        LONG l = 0;
 
        ptr++;
        if(*ptr == '-') {
            ptr++;
            eneg = TRUE;
        }else if(*ptr == '+') {
            ptr++;
        }
 
        while(is_digit(*ptr))
            l = l*10 + (*ptr++ - '0');
        if(eneg)
            l = -l;
 
        d *= pow(10, l);
    }else if(*ptr == '.') {
        DOUBLE dec = 0.1;
 
        ptr++;
        while(is_digit(*ptr)) {
            d += dec * (*ptr++ - '0');
            dec *= 0.1;
        }
    }
 
    while(iswspace(*ptr))
        ptr++;
 
    if(*ptr) {
        *ret = NAN;
        return S_OK;
    }
 
    if(neg)
        d = -d;
 
    *ret = d;
    return S_OK;
}

Referenced by to_number().

to_boolean()

HRESULT to_boolean	(	jsval_t	val,
		BOOL *	ret
	)

Definition at line 489 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
    case JSV_NULL:
        *ret = FALSE;
        return S_OK;
    case JSV_OBJECT:
        *ret = TRUE;
        return S_OK;
    case JSV_STRING:
        *ret = jsstr_length(get_string(val)) != 0;
        return S_OK;
    case JSV_NUMBER:
        *ret = !isnan(get_number(val)) && get_number(val);
        return S_OK;
    case JSV_BOOL:
        *ret = get_bool(val);
        return S_OK;
    case JSV_VARIANT:
        FIXME("unimplemented for variant %s\n", debugstr_variant(get_variant(val)));
        return E_NOTIMPL;
    }
 
    assert(0);
    return E_FAIL;
}

Referenced by Array_every(), Array_filter(), Array_some(), BoolConstr_value(), get_data(), interp_cnd_nz(), interp_cnd_z(), interp_jmp_z(), interp_neg(), set_data(), to_property_descriptor(), and variant_change_type().

to_flat_string()

HRESULT to_flat_string	(	script_ctx_t *	ctx,
		jsval_t	val,
		jsstr_t **	str,
		const WCHAR **	ret_str
	)

Definition at line 846 of file jsutils.c.

{
    HRESULT hres;
 
    hres = to_string(ctx, val, str);
    if(FAILED(hres))
        return hres;
 
    *ret_str = jsstr_flatten(*str);
    if(!*ret_str) {
        jsstr_release(*str);
        return E_OUTOFMEMORY;
    }
 
    return S_OK;
}

Referenced by ActiveXObject_value(), Array_join(), interp_array(), interp_in(), interp_memberid(), JSGlobal_decodeURI(), JSGlobal_decodeURIComponent(), JSGlobal_encodeURI(), JSGlobal_encodeURIComponent(), JSGlobal_escape(), JSGlobal_parseFloat(), JSGlobal_parseInt(), JSGlobal_unescape(), JSON_parse(), Object_defineGetter(), Object_defineProperty(), Object_defineSetter(), Object_getOwnPropertyDescriptor(), Object_propertyIsEnumerable(), run_exec(), String_indexOf(), String_lastIndexOf(), String_replace(), String_split(), and String_trim().

to_int32()

HRESULT to_int32	(	script_ctx_t *	ctx,
		jsval_t	v,
		INT *	ret
	)

Definition at line 735 of file jsutils.c.

{
    double n;
    HRESULT hres;
 
    hres = to_number(ctx, v, &n);
    if(FAILED(hres))
        return hres;
 
    *ret = double_to_int32(n);
    return S_OK;
}

Referenced by DataView_setInt16(), DataView_setInt32(), DataView_setInt8(), interp_bneg(), JSGlobal_parseInt(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), Number_toString(), stack_pop_int(), to_long(), and variant_change_type().

to_integer()

HRESULT to_integer	(	script_ctx_t *	ctx,
		jsval_t	v,
		double *	ret
	)

Definition at line 676 of file jsutils.c.

{
    double n;
    HRESULT hres;
 
    hres = to_number(ctx, v, &n);
    if(FAILED(hres))
        return hres;
 
    if(isnan(n))
        *ret = 0;
    else
        *ret = n >= 0.0 ? floor(n) : -floor(-n);
    return S_OK;
}

Referenced by Array_indexOf(), Array_lastIndexOf(), Array_splice(), ArrayBuffer_slice(), ArrayBufferConstr_value(), DataViewConstr_value(), get_data(), set_data(), String_charAt(), String_charCodeAt(), String_indexOf(), String_lastIndexOf(), String_slice(), String_substr(), and String_substring().

to_long()

HRESULT to_long	(	script_ctx_t *	ctx,
		jsval_t	v,
		LONG *	ret
	)

Definition at line 748 of file jsutils.c.

{
    return to_int32(ctx, v, (INT*)ret);
}

Referenced by VBArray_getItem(), VBArray_lbound(), and VBArray_ubound().

to_number()

HRESULT to_number	(	script_ctx_t *	ctx,
		jsval_t	val,
		double *	ret
	)

Definition at line 630 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
        *ret = NAN;
        return S_OK;
    case JSV_NULL:
        *ret = 0;
        return S_OK;
    case JSV_NUMBER:
        *ret = get_number(val);
        return S_OK;
    case JSV_STRING:
        return str_to_number(get_string(val), ret);
    case JSV_OBJECT: {
        jsval_t prim;
        HRESULT hres;
 
        hres = to_primitive(ctx, val, &prim, HINT_NUMBER);
        if(FAILED(hres))
            return hres;
 
        hres = to_number(ctx, prim, ret);
        jsval_release(prim);
        return hres;
    }
    case JSV_BOOL:
        *ret = get_bool(val) ? 1 : 0;
        return S_OK;
    case JSV_VARIANT: {
        const VARIANT *v = get_variant(val);
        switch(V_VT(v)) {
        case VT_DATE:
            return variant_date_to_number(V_DATE(v), ret);
        default:
            FIXME("unimplemented for variant %s\n", debugstr_variant(v));
            return E_NOTIMPL;
        }
    }
    };
 
    assert(0);
    return E_FAIL;
}

Referenced by Array_set_length(), Array_slice(), DataView_setFloat32(), DataView_setFloat64(), Date_setDate(), Date_setFullYear(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setMonth(), Date_setSeconds(), Date_setTime(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCMonth(), Date_setUTCSeconds(), Date_setYear(), date_utc(), DateConstr_value(), equal_values(), error_constr(), index_from_val(), interp_add(), interp_postinc(), interp_preinc(), interp_tonum(), JSGlobal_isFinite(), JSGlobal_isNaN(), less_eval(), Math_abs(), Math_acos(), Math_asin(), Math_atan(), Math_atan2(), Math_ceil(), Math_cos(), Math_exp(), Math_floor(), Math_log(), Math_max(), Math_min(), Math_pow(), Math_round(), Math_sin(), Math_sqrt(), Math_tan(), maybe_to_primitive(), NumberConstr_value(), sort_cmp(), stack_pop_number(), to_int32(), to_integer(), to_number(), to_uint32(), and variant_change_type().

to_object()

HRESULT to_object	(	script_ctx_t *	ctx,
		jsval_t	val,
		IDispatch **	disp
	)

Definition at line 864 of file jsutils.c.

{
    jsdisp_t *dispex;
    HRESULT hres;
 
    switch(jsval_type(val)) {
    case JSV_STRING:
        hres = create_string(ctx, get_string(val), &dispex);
        if(FAILED(hres))
            return hres;
 
        *disp = to_disp(dispex);
        break;
    case JSV_NUMBER:
        hres = create_number(ctx, get_number(val), &dispex);
        if(FAILED(hres))
            return hres;
 
        *disp = to_disp(dispex);
        break;
    case JSV_OBJECT:
        *disp = get_object(val);
        IDispatch_AddRef(*disp);
        break;
    case JSV_BOOL:
        hres = create_bool(ctx, get_bool(val), &dispex);
        if(FAILED(hres))
            return hres;
 
        *disp = to_disp(dispex);
        break;
    case JSV_NULL:
        if(is_null_disp(val))
            return JS_E_OBJECT_REQUIRED;
        /* fall through */
    case JSV_UNDEFINED:
        WARN("object expected\n");
        return JS_E_OBJECT_EXPECTED;
    case JSV_VARIANT:
        switch(V_VT(get_variant(val))) {
        case VT_ARRAY|VT_VARIANT:
            hres = create_vbarray(ctx, V_ARRAY(get_variant(val)), &dispex);
            if(FAILED(hres))
                return hres;
 
            *disp = to_disp(dispex);
            break;
 
        default:
            FIXME("Unsupported %s\n", debugstr_variant(get_variant(val)));
            return E_NOTIMPL;
        }
        break;
    }
 
    return S_OK;
}

Referenced by Array_concat(), exprval_call(), Function_apply(), Function_bind(), Function_call(), get_length(), interp_delete(), interp_memberid(), interp_push_with_scope(), interp_set_member(), InterpretedFunction_call(), jsdisp_define_properties(), Object_get_proto_(), Object_hasOwnProperty(), Object_isPrototypeOf(), Object_propertyIsEnumerable(), Object_toLocaleString(), Object_toString(), Object_valueOf(), ObjectConstr_value(), stack_pop_object(), and to_locale_string().

to_primitive()

HRESULT to_primitive	(	script_ctx_t *	ctx,
		jsval_t	val,
		jsval_t *	ret,
		hint_t	hint
	)

Definition at line 423 of file jsutils.c.

{
    if(is_object_instance(val)) {
        jsdisp_t *jsdisp;
        jsval_t prim;
        DISPID id;
        HRESULT hres;
 
        jsdisp = iface_to_jsdisp(get_object(val));
        if(!jsdisp)
            return disp_propget(ctx, get_object(val), DISPID_VALUE, ret);
 
        if(hint == NO_HINT)
            hint = is_class(jsdisp, JSCLASS_DATE) ? HINT_STRING : HINT_NUMBER;
 
        /* Native implementation doesn't throw TypeErrors, returns strange values */
 
        hres = jsdisp_get_id(jsdisp, hint == HINT_STRING ? L"toString" : L"valueOf", 0, &id);
        if(SUCCEEDED(hres)) {
            hres = jsdisp_call(jsdisp, id, DISPATCH_METHOD, 0, NULL, &prim);
            if(FAILED(hres)) {
                WARN("call error - forwarding exception\n");
                jsdisp_release(jsdisp);
                return hres;
            }else if(!is_object_instance(prim)) {
                jsdisp_release(jsdisp);
                *ret = prim;
                return S_OK;
            }else {
                IDispatch_Release(get_object(prim));
            }
        }else if(hres != DISP_E_UNKNOWNNAME) {
            jsdisp_release(jsdisp);
            return hres;
        }
 
        hres = jsdisp_get_id(jsdisp, hint == HINT_STRING ? L"valueOf" : L"toString", 0, &id);
        if(SUCCEEDED(hres)) {
            hres = jsdisp_call(jsdisp, id, DISPATCH_METHOD, 0, NULL, &prim);
            if(FAILED(hres)) {
                WARN("call error - forwarding exception\n");
                jsdisp_release(jsdisp);
                return hres;
            }else if(!is_object_instance(prim)) {
                jsdisp_release(jsdisp);
                *ret = prim;
                return S_OK;
            }else {
                IDispatch_Release(get_object(prim));
            }
        }else if(hres != DISP_E_UNKNOWNNAME) {
            jsdisp_release(jsdisp);
            return hres;
        }
 
        jsdisp_release(jsdisp);
 
        WARN("failed\n");
        return JS_E_TO_PRIMITIVE;
    }
 
    return jsval_copy(val, ret);
 
}

Referenced by DateConstr_value(), DispatchEx_InvokeEx(), equal_values(), interp_add(), less_eval(), to_number(), and to_string().

to_string()

HRESULT to_string	(	script_ctx_t *	ctx,
		jsval_t	val,
		jsstr_t **	str
	)

Definition at line 801 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
        *str = jsstr_undefined();
        return S_OK;
    case JSV_NULL:
        *str = jsstr_alloc(L"null");
        break;
    case JSV_NUMBER:
        return double_to_string(get_number(val), str);
    case JSV_STRING:
        *str = jsstr_addref(get_string(val));
        break;
    case JSV_OBJECT: {
        jsval_t prim;
        HRESULT hres;
 
        hres = to_primitive(ctx, val, &prim, HINT_STRING);
        if(FAILED(hres))
            return hres;
 
        hres = to_string(ctx, prim, str);
        jsval_release(prim);
        return hres;
    }
    case JSV_BOOL:
        *str = jsstr_alloc(get_bool(val) ? L"true" : L"false");
        break;
    default: {
        const VARIANT *v = get_variant(val);
        switch(V_VT(v))
        {
        case VT_DATE:
            return variant_date_to_string(ctx, V_DATE(v), str);
        default:
            FIXME("unsupported %s\n", debugstr_variant(v));
            return E_NOTIMPL;
        }
    }
    }
 
    return *str ? S_OK : E_OUTOFMEMORY;
}

Referenced by to_flat_string(), to_string(), and variant_change_type().

to_uint32()

HRESULT to_uint32	(	script_ctx_t *	ctx,
		jsval_t	val,
		UINT32 *	ret
	)

Definition at line 754 of file jsutils.c.

{
    double n;
    HRESULT hres;
 
    hres = to_number(ctx, val, &n);
    if(FAILED(hres))
        return hres;
 
    *ret = double_to_int32(n);
    return S_OK;
}

Referenced by array_to_args(), get_length(), set_error_value(), stack_pop_uint(), String_split(), StringConstr_fromCharCode(), and variant_change_type().

variant_change_type()

HRESULT variant_change_type	(	script_ctx_t *	ctx,
		VARIANT *	dst,
		VARIANT *	src,
		VARTYPE	vt
	)

Definition at line 922 of file jsutils.c.

{
    jsexcept_t ei;
    jsval_t val;
    HRESULT hres;
 
    hres = variant_to_jsval(ctx, src, &val);
    if(FAILED(hres))
        return hres;
 
    enter_script(ctx, &ei);
 
    switch(vt) {
    case VT_I2:
    case VT_I4: {
        INT i;
 
        hres = to_int32(ctx, val, &i);
        if(SUCCEEDED(hres)) {
            if(vt == VT_I4)
                V_I4(dst) = i;
            else
                V_I2(dst) = i;
        }
        break;
    }
    case VT_UI2: {
        UINT32 i;
 
        hres = to_uint32(ctx, val, &i);
        if(SUCCEEDED(hres))
            V_UI2(dst) = i;
        break;
    }
    case VT_R8: {
        double n;
        hres = to_number(ctx, val, &n);
        if(SUCCEEDED(hres))
            V_R8(dst) = n;
        break;
    }
    case VT_R4: {
        double n;
 
        hres = to_number(ctx, val, &n);
        if(SUCCEEDED(hres))
            V_R4(dst) = n;
        break;
    }
    case VT_BOOL: {
        BOOL b;
 
        hres = to_boolean(val, &b);
        if(SUCCEEDED(hres))
            V_BOOL(dst) = b ? VARIANT_TRUE : VARIANT_FALSE;
        break;
    }
    case VT_BSTR: {
        jsstr_t *str;
 
        hres = to_string(ctx, val, &str);
        if(FAILED(hres))
            break;
 
        hres = jsstr_to_bstr(str, &V_BSTR(dst));
        jsstr_release(str);
        break;
    }
    case VT_EMPTY:
        hres = V_VT(src) == VT_EMPTY ? S_OK : E_NOTIMPL;
        break;
    case VT_NULL:
        hres = V_VT(src) == VT_NULL ? S_OK : E_NOTIMPL;
        break;
    case VT_UNKNOWN:
    case VT_DISPATCH:
        if(V_VT(src) != vt)
            hres = E_NOTIMPL;
        else {
            IUnknown_AddRef(V_UNKNOWN(src));
            V_UNKNOWN(dst) = V_UNKNOWN(src);
            hres = S_OK;
        }
        break;
    default:
        FIXME("vt %d not implemented\n", vt);
        hres = E_NOTIMPL;
    }
 
    jsval_release(val);
    leave_script(ctx, hres);
    if(FAILED(hres))
        return hres;
 
    V_VT(dst) = vt;
    return S_OK;
}

Referenced by VariantChangeType_ChangeType().

variant_to_jsval()

HRESULT variant_to_jsval	(	script_ctx_t *	ctx,
		VARIANT *	var,
		jsval_t *	r
	)

Definition at line 251 of file jsutils.c.

{
    if(V_VT(var) == (VT_VARIANT|VT_BYREF))
        var = V_VARIANTREF(var);
 
    switch(V_VT(var)) {
    case VT_EMPTY:
        *r = jsval_undefined();
        return S_OK;
    case VT_NULL:
        *r = jsval_null();
        return S_OK;
    case VT_BOOL:
        *r = jsval_bool(V_BOOL(var));
        return S_OK;
    case VT_I4:
        *r = jsval_number(V_I4(var));
        return S_OK;
    case VT_R8:
        *r = jsval_number(V_R8(var));
        return S_OK;
    case VT_BSTR: {
        jsstr_t *str;
 
        if(V_BSTR(var)) {
            str = jsstr_alloc_len(V_BSTR(var), SysStringLen(V_BSTR(var)));
            if(!str)
                return E_OUTOFMEMORY;
        }else {
            str = jsstr_null_bstr();
        }
 
        *r = jsval_string(str);
        return S_OK;
    }
    case VT_DISPATCH:
        if(!V_DISPATCH(var)) {
            *r = ctx->html_mode ? jsval_null() : jsval_null_disp();
            return S_OK;
        }
        if(ctx->version >= SCRIPTLANGUAGEVERSION_ES5) {
            IWineJSDispatchHost *disp_host;
            HRESULT hres;
            hres = IDispatch_QueryInterface(V_DISPATCH(var), &IID_IWineJSDispatchHost, (void **)&disp_host);
            if(SUCCEEDED(hres)) {
                IWineJSDispatch *jsdisp_iface;
                hres = IWineJSDispatchHost_GetJSDispatch(disp_host, &jsdisp_iface);
                IWineJSDispatchHost_Release(disp_host);
                if(SUCCEEDED(hres)) {
                    jsdisp_t *jsdisp = to_jsdisp((IDispatch *)jsdisp_iface);
                    if(jsdisp->ctx == ctx) {
                        *r = jsval_obj(jsdisp);
                        return S_OK;
                    }else {
                        jsdisp_release(jsdisp);
                    }
                }
            }
        }
        IDispatch_AddRef(V_DISPATCH(var));
        *r = jsval_disp(V_DISPATCH(var));
        return S_OK;
    case VT_I1:
        *r = jsval_number(V_I1(var));
        return S_OK;
    case VT_UI1:
        *r = jsval_number(V_UI1(var));
        return S_OK;
    case VT_I2:
        *r = jsval_number(V_I2(var));
        return S_OK;
    case VT_UI2:
        *r = jsval_number(V_UI2(var));
        return S_OK;
    case VT_INT:
        *r = jsval_number(V_INT(var));
        return S_OK;
    case VT_UI4:
        *r = jsval_number(V_UI4(var));
        return S_OK;
    case VT_UI8:
        /*
         * Native doesn't support VT_UI8 here, but it's needed for IE9+ APIs
         * (native IE9 doesn't use jscript.dll for JavaScript).
         */
        *r = jsval_number(V_UI8(var));
        return S_OK;
    case VT_R4:
        *r = jsval_number(V_R4(var));
        return S_OK;
    case VT_CY:
        /* FIXME: Native converts VT_CY to a special kind number type, which is
         * never converted to VT_I4 when it's converted back to VARIANT. */
        *r = jsval_number((double)V_CY(var).int64 / 10000.0);
        WARN("VT_CY: %lf\n", get_number(*r));
        return S_OK;
    case VT_UNKNOWN:
        if(V_UNKNOWN(var)) {
            IDispatch *disp;
            HRESULT hres;
 
            hres = IUnknown_QueryInterface(V_UNKNOWN(var), &IID_IDispatch, (void**)&disp);
            if(SUCCEEDED(hres)) {
                *r = jsval_disp(disp);
                return S_OK;
            }
        }else {
            *r = ctx->html_mode ? jsval_null() : jsval_null_disp();
            return S_OK;
        }
        /* fall through */
    default:
        return jsval_variant(r, var);
    }
}

Referenced by convert_params(), disp_call(), disp_call_value_with_caller(), disp_propget(), DispatchEx_InvokeEx(), enumvar_get_next_item(), HostConstructor_call(), HostFunction_call(), HostObject_prop_get(), variant_change_type(), VBArray_getItem(), and VBArray_toArray().

WINE_DECLARE_DEBUG_CHANNEL()

WINE_DECLARE_DEBUG_CHANNEL

(

heap

)

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

jscript

)

Variable Documentation

ServiceProviderVtbl

const IServiceProviderVtbl ServiceProviderVtbl

static

Initial value:

= {
    JSCaller_QueryInterface,
    JSCaller_AddRef,
    JSCaller_Release,
    JSCaller_QueryService
}

Definition at line 1102 of file jsutils.c.

Referenced by create_jscaller().