object.c File Reference

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

Include dependency graph for object.c:

Go to the source code of this file.

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (jscript)
static HRESULT	Object_toString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_toLocaleString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_valueOf (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_hasOwnProperty (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_propertyIsEnumerable (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_isPrototypeOf (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_defineGetter (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_defineSetter (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
HRESULT	Object_get_proto_ (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
HRESULT	Object_set_proto_ (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static void	release_property_descriptor (property_desc_t *desc)
static HRESULT	to_property_descriptor (script_ctx_t *ctx, jsdisp_t *attr_obj, property_desc_t *desc)
static HRESULT	jsdisp_define_properties (script_ctx_t *ctx, jsdisp_t *obj, jsval_t list_val)
static HRESULT	Object_defineProperty (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_defineProperties (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_getOwnPropertyDescriptor (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_create (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_getPrototypeOf (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	object_keys (script_ctx_t *ctx, jsval_t arg, enum jsdisp_enum_type enum_type, jsval_t *r)
static HRESULT	Object_keys (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_getOwnPropertyNames (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_preventExtensions (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_freeze (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_seal (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_isExtensible (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_isFrozen (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Object_isSealed (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	ObjectConstr_value (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
HRESULT	create_object_constr (script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret)
HRESULT	create_object_prototype (script_ctx_t *ctx, jsdisp_t **ret)
HRESULT	create_object (script_ctx_t *ctx, jsdisp_t *constr, jsdisp_t **ret)

Variables
static const builtin_prop_t	Object_props []
static const builtin_info_t	Object_info
static const builtin_info_t	ObjectInst_info
static const builtin_prop_t	ObjectConstr_props []
static const builtin_info_t	ObjectConstr_info

Function Documentation

create_object()

HRESULT create_object	(	script_ctx_t *	ctx,
		jsdisp_t *	constr,
		jsdisp_t **	ret
	)

Definition at line 1131 of file object.c.

{
    jsdisp_t *object;
    HRESULT hres;
 
    object = calloc(1, sizeof(jsdisp_t));
    if(!object)
        return E_OUTOFMEMORY;
 
    hres = init_dispex_from_constr(object, ctx, &ObjectInst_info, constr ? constr : ctx->object_constr);
    if(FAILED(hres)) {
        free(object);
        return hres;
    }
 
    *ret = object;
    return S_OK;
}

Referenced by create_activex_constr(), d3drm3_CreateObject(), interp_new_obj(), InterpretedFunction_call(), InterpretedFunction_get_prototype(), JSON_parse(), JSON_stringify(), Object_getOwnPropertyDescriptor(), ObjectConstr_value(), and parse_json_value().

create_object_constr()

HRESULT create_object_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 1120 of file object.c.

{
    return create_builtin_constructor(ctx, ObjectConstr_value, L"Object", &ObjectConstr_info, PROPF_CONSTR,
            object_prototype, ret);
}

Referenced by init_constructors().

create_object_prototype()

HRESULT create_object_prototype	(	script_ctx_t *	ctx,
		jsdisp_t **	ret
	)

Definition at line 1126 of file object.c.

{
    return create_dispex(ctx, &Object_info, NULL, ret);
}

Referenced by init_global().

jsdisp_define_properties()

static HRESULT jsdisp_define_properties ( script_ctx_t *  ctx, jsdisp_t *  obj, jsval_t  list_val  )

static

Definition at line 619 of file object.c.

{
    DISPID id = DISPID_STARTENUM;
    property_desc_t prop_desc;
    IDispatch *list_disp;
    jsdisp_t *list_obj, *desc_obj;
    jsval_t desc_val;
    BSTR name;
    HRESULT hres;
 
    hres = to_object(ctx, list_val, &list_disp);
    if(FAILED(hres))
        return hres;
 
    if(!(list_obj = to_jsdisp(list_disp))) {
        FIXME("non-JS list obj\n");
        IDispatch_Release(list_disp);
        return E_NOTIMPL;
    }
 
    while(1) {
        hres = jsdisp_next_prop(list_obj, id, JSDISP_ENUM_OWN_ENUMERABLE, &id);
        if(hres != S_OK)
            break;
 
        hres = jsdisp_propget(list_obj, id, &desc_val);
        if(FAILED(hres))
            break;
 
        if(!is_object_instance(desc_val) || !(desc_obj = to_jsdisp(get_object(desc_val)))) {
            jsval_release(desc_val);
            break;
        }
 
        hres = to_property_descriptor(ctx, desc_obj, &prop_desc);
        jsdisp_release(desc_obj);
        if(FAILED(hres))
            break;
 
        hres = IDispatchEx_GetMemberName(to_dispex(list_obj), id, &name);
        if(SUCCEEDED(hres))
            hres = jsdisp_define_property(obj, name, &prop_desc);
        release_property_descriptor(&prop_desc);
        if(FAILED(hres))
            break;
    }
 
    jsdisp_release(list_obj);
    return FAILED(hres) ? hres : S_OK;
}

Referenced by Object_create(), and Object_defineProperties().

Object_create()

static HRESULT Object_create ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 801 of file object.c.

{
    jsdisp_t *proto = NULL, *obj;
    HRESULT hres;
 
    if(!argc || (!is_object_instance(argv[0]) && !is_null(argv[0]))) {
        FIXME("Invalid arg\n");
        return E_INVALIDARG;
    }
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    if(argc && is_object_instance(argv[0])) {
        if(get_object(argv[0]))
            proto = to_jsdisp(get_object(argv[0]));
        if(!proto) {
            FIXME("Non-JS prototype\n");
            return E_NOTIMPL;
        }
    }else if(!is_null(argv[0])) {
        FIXME("Invalid arg %s\n", debugstr_jsval(argc ? argv[0] : jsval_undefined()));
        return E_INVALIDARG;
    }
 
    hres = create_dispex(ctx, &ObjectInst_info, proto, &obj);
    if(FAILED(hres))
        return hres;
 
    if(argc >= 2 && !is_undefined(argv[1]))
        hres = jsdisp_define_properties(ctx, obj, argv[1]);
 
    if(SUCCEEDED(hres) && r)
        *r = jsval_obj(obj);
    else
        jsdisp_release(obj);
    return hres;
}

Object_defineGetter()

static HRESULT Object_defineGetter ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 307 of file object.c.

{
    property_desc_t desc;
    const WCHAR *name;
    jsstr_t *name_str;
    jsdisp_t *jsthis;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!is_object_instance(vthis) || !(jsthis = to_jsdisp(get_object(vthis))))
        goto done;
 
    if(argc < 2 || !is_object_instance(argv[1]))
        return JS_E_FUNCTION_EXPECTED;
 
    desc.getter = to_jsdisp(get_object(argv[1]));
    if(!desc.getter) {
        FIXME("getter is not JS object\n");
        return E_NOTIMPL;
    }
    /* FIXME: Check IsCallable */
 
    hres = to_flat_string(ctx, argv[0], &name_str, &name);
    if(FAILED(hres))
        return hres;
 
    desc.flags = desc.mask = PROPF_CONFIGURABLE | PROPF_ENUMERABLE;
    desc.explicit_getter = TRUE;
    desc.explicit_setter = FALSE;
    desc.explicit_value  = FALSE;
    desc.setter = NULL;
    hres = jsdisp_define_property(jsthis, name, &desc);
 
    jsstr_release(name_str);
    if(FAILED(hres))
        return hres;
done:
    if(r)
        *r = jsval_undefined();
    return S_OK;
}

Object_defineProperties()

static HRESULT Object_defineProperties ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 719 of file object.c.

{
    jsdisp_t *obj;
    HRESULT hres;
 
    if(argc < 1 || !is_object_instance(argv[0]) || !(obj = to_jsdisp(get_object(argv[0])))) {
        FIXME("not an object\n");
        return E_NOTIMPL;
    }
 
    TRACE("%p\n", obj);
 
    hres = jsdisp_define_properties(ctx, obj, argc >= 2 ? argv[1] : jsval_undefined());
    if(SUCCEEDED(hres) && r)
        *r = jsval_obj(jsdisp_addref(obj));
    return hres;
}

Object_defineProperty()

static HRESULT Object_defineProperty ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 670 of file object.c.

{
    property_desc_t prop_desc;
    jsdisp_t *obj, *attr_obj;
    const WCHAR *name;
    jsstr_t *name_str;
    HRESULT hres;
 
    TRACE("\n");
 
    if(argc < 1 || !is_object_instance(argv[0]))
        return JS_E_OBJECT_EXPECTED;
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("not implemented non-JS object\n");
        return E_NOTIMPL;
    }
 
    hres = to_flat_string(ctx, argc >= 2 ? argv[1] : jsval_undefined(), &name_str, &name);
    if(FAILED(hres))
        return hres;
 
    if(argc >= 3 && is_object_instance(argv[2])) {
        attr_obj = to_jsdisp(get_object(argv[2]));
        if(attr_obj) {
            hres = to_property_descriptor(ctx, attr_obj, &prop_desc);
        }else {
            FIXME("not implemented non-JS object\n");
            hres = E_NOTIMPL;
        }
    }else {
        hres = JS_E_OBJECT_EXPECTED;
    }
 
    if(FAILED(hres))
    {
        jsstr_release(name_str);
        return hres;
    }
 
    hres = jsdisp_define_property(obj, name, &prop_desc);
    jsstr_release(name_str);
    release_property_descriptor(&prop_desc);
    if(SUCCEEDED(hres) && r)
        *r = jsval_obj(jsdisp_addref(obj));
    return hres;
}

Object_defineSetter()

static HRESULT Object_defineSetter ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 350 of file object.c.

{
    property_desc_t desc;
    const WCHAR *name;
    jsstr_t *name_str;
    jsdisp_t *jsthis;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!is_object_instance(vthis) || !(jsthis = to_jsdisp(get_object(vthis))))
        goto done;
 
    if(argc < 2 || !is_object_instance(argv[1]))
        return JS_E_FUNCTION_EXPECTED;
 
    desc.setter = to_jsdisp(get_object(argv[1]));
    if(!desc.setter) {
        FIXME("setter is not JS object\n");
        return E_NOTIMPL;
    }
    /* FIXME: Check IsCallable */
 
    hres = to_flat_string(ctx, argv[0], &name_str, &name);
    if(FAILED(hres))
        return hres;
 
    desc.flags = desc.mask = PROPF_CONFIGURABLE | PROPF_ENUMERABLE;
    desc.explicit_getter = FALSE;
    desc.explicit_setter = TRUE;
    desc.explicit_value  = FALSE;
    desc.getter = NULL;
    hres = jsdisp_define_property(jsthis, name, &desc);
 
    jsstr_release(name_str);
    if(FAILED(hres))
        return hres;
done:
    if(r)
        *r = jsval_undefined();
    return S_OK;
}

Object_freeze()

static HRESULT Object_freeze ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 939 of file object.c.

{
    jsdisp_t *obj;
 
    if(!argc || !is_object_instance(argv[0])) {
        WARN("argument is not an object\n");
        return JS_E_OBJECT_EXPECTED;
    }
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("Non-JS object\n");
        return E_NOTIMPL;
    }
 
    jsdisp_freeze(obj, FALSE);
    if(r) *r = jsval_obj(jsdisp_addref(obj));
    return S_OK;
}

Object_get_proto_()

HRESULT Object_get_proto_	(	script_ctx_t *	ctx,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 393 of file object.c.

{
    jsdisp_t *jsthis;
    IDispatch *disp;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_jsval(vthis));
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    if(!r)
        goto done;
 
    if(!(jsthis = to_jsdisp(disp))) {
        FIXME("Host object this\n");
        hres = E_FAIL;
        goto done;
    }
 
    *r = jsthis->prototype
        ? jsval_obj(jsdisp_addref(jsthis->prototype))
        : jsval_null();
done:
    IDispatch_Release(disp);
    return hres;
}

Referenced by init_object_prototype_accessors().

Object_getOwnPropertyDescriptor()

static HRESULT Object_getOwnPropertyDescriptor ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 738 of file object.c.

{
    property_desc_t prop_desc;
    jsdisp_t *obj, *desc_obj;
    const WCHAR *name;
    jsstr_t *name_str;
    HRESULT hres;
 
    TRACE("\n");
 
    if(argc < 1 || !is_object_instance(argv[0]))
        return JS_E_OBJECT_EXPECTED;
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("not implemented non-JS object\n");
        return E_NOTIMPL;
    }
 
    hres = to_flat_string(ctx, argc >= 2 ? argv[1] : jsval_undefined(), &name_str, &name);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_get_own_property(obj, name, FALSE, &prop_desc);
    jsstr_release(name_str);
    if(hres == DISP_E_UNKNOWNNAME) {
        if(r) *r = jsval_undefined();
        return S_OK;
    }
    if(FAILED(hres))
        return hres;
 
    hres = create_object(ctx, NULL, &desc_obj);
    if(FAILED(hres))
        return hres;
 
    if(prop_desc.explicit_getter || prop_desc.explicit_setter) {
        hres = jsdisp_define_data_property(desc_obj, L"get", PROPF_ALL,
                prop_desc.getter ? jsval_obj(prop_desc.getter) : jsval_undefined());
        if(SUCCEEDED(hres))
            hres = jsdisp_define_data_property(desc_obj, L"set", PROPF_ALL,
                    prop_desc.setter ? jsval_obj(prop_desc.setter) : jsval_undefined());
    }else {
        hres = jsdisp_propput_name(desc_obj, L"value", prop_desc.value);
        if(SUCCEEDED(hres))
            hres = jsdisp_define_data_property(desc_obj, L"writable", PROPF_ALL,
                    jsval_bool(!!(prop_desc.flags & PROPF_WRITABLE)));
    }
    if(SUCCEEDED(hres))
        hres = jsdisp_define_data_property(desc_obj, L"enumerable", PROPF_ALL,
                jsval_bool(!!(prop_desc.flags & PROPF_ENUMERABLE)));
    if(SUCCEEDED(hres))
        hres = jsdisp_define_data_property(desc_obj, L"configurable", PROPF_ALL,
                jsval_bool(!!(prop_desc.flags & PROPF_CONFIGURABLE)));
 
    release_property_descriptor(&prop_desc);
    if(SUCCEEDED(hres) && r)
        *r = jsval_obj(desc_obj);
    else
        jsdisp_release(desc_obj);
    return hres;
}

Object_getOwnPropertyNames()

static HRESULT Object_getOwnPropertyNames ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 909 of file object.c.

{
    jsval_t arg = argc ? argv[0] : jsval_undefined();
 
    TRACE("(%s)\n", debugstr_jsval(arg));
 
    return object_keys(ctx, arg, JSDISP_ENUM_OWN, r);
}

Object_getPrototypeOf()

static HRESULT Object_getPrototypeOf ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 840 of file object.c.

{
    jsdisp_t *obj;
 
    if(!argc || !is_object_instance(argv[0]))
        return JS_E_OBJECT_EXPECTED;
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    obj = to_jsdisp(get_object(argv[0]));
    if(r)
        *r = obj && obj->prototype
            ? jsval_obj(jsdisp_addref(obj->prototype))
            : jsval_null();
    return S_OK;
}

Object_hasOwnProperty()

static HRESULT Object_hasOwnProperty ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 156 of file object.c.

{
    IDispatchEx *dispex;
    jsdisp_t *jsdisp;
    IDispatch *disp;
    jsstr_t *name;
    DISPID id;
    BSTR bstr;
    HRESULT hres;
 
    TRACE("\n");
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    if(!argc) {
        if(r)
            *r = jsval_bool(FALSE);
        goto done;
    }
 
    hres = to_string(ctx, argv[0], &name);
    if(FAILED(hres))
        goto done;
 
    if((jsdisp = to_jsdisp(disp))) {
        property_desc_t prop_desc;
        const WCHAR *name_str;
 
        name_str = jsstr_flatten(name);
        if(!name_str) {
            jsstr_release(name);
            hres = E_OUTOFMEMORY;
            goto done;
        }
 
        hres = jsdisp_get_own_property(jsdisp, name_str, TRUE, &prop_desc);
        jsstr_release(name);
        if(FAILED(hres) && hres != DISP_E_UNKNOWNNAME)
            goto done;
 
        if(r) *r = jsval_bool(hres == S_OK);
        hres = S_OK;
        goto done;
    }
 
 
    bstr = SysAllocStringLen(NULL, jsstr_length(name));
    if(bstr)
        jsstr_flush(name, bstr);
    jsstr_release(name);
    if(!bstr) {
        hres = E_OUTOFMEMORY;
        goto done;
    }
 
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(SUCCEEDED(hres)) {
        hres = IDispatchEx_GetDispID(dispex, bstr, make_grfdex(ctx, fdexNameCaseSensitive), &id);
        IDispatchEx_Release(dispex);
    }else {
        hres = IDispatch_GetIDsOfNames(disp, &IID_NULL, &bstr, 1, ctx->lcid, &id);
    }
    SysFreeString(bstr);
    if(r)
        *r = jsval_bool(SUCCEEDED(hres));
    hres = S_OK;
done:
    IDispatch_Release(disp);
    return hres;
}

Object_isExtensible()

static HRESULT Object_isExtensible ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 985 of file object.c.

{
    jsdisp_t *obj;
 
    if(!argc || !is_object_instance(argv[0])) {
        WARN("argument is not an object\n");
        return JS_E_OBJECT_EXPECTED;
    }
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("Non-JS object\n");
        return E_NOTIMPL;
    }
 
    if(r) *r = jsval_bool(obj->extensible);
    return S_OK;
}

Object_isFrozen()

static HRESULT Object_isFrozen ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1006 of file object.c.

{
    jsdisp_t *obj;
 
    if(!argc || !is_object_instance(argv[0])) {
        WARN("argument is not an object\n");
        return JS_E_OBJECT_EXPECTED;
    }
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("Non-JS object\n");
        return E_NOTIMPL;
    }
 
    if(r) *r = jsval_bool(jsdisp_is_frozen(obj, FALSE));
    return S_OK;
}

Object_isPrototypeOf()

static HRESULT Object_isPrototypeOf ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 275 of file object.c.

{
    jsdisp_t *jsthis, *jsdisp;
    IDispatch *disp;
    BOOL ret = FALSE;
    HRESULT hres;
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    if(!r)
        goto done;
 
    if(argc && (jsthis = to_jsdisp(disp)) && is_object_instance(argv[0]) &&
       (jsdisp = to_jsdisp(get_object(argv[0])))) {
        while(jsdisp->prototype) {
            if(jsdisp->prototype == jsthis) {
                ret = TRUE;
                break;
            }
            jsdisp = jsdisp->prototype;
        }
    }
 
    *r = jsval_bool(ret);
done:
    IDispatch_Release(disp);
    return hres;
}

Object_isSealed()

static HRESULT Object_isSealed ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1028 of file object.c.

{
    jsdisp_t *obj;
 
    if(!argc || !is_object_instance(argv[0])) {
        WARN("argument is not an object\n");
        return JS_E_OBJECT_EXPECTED;
    }
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("Non-JS object\n");
        return E_NOTIMPL;
    }
 
    if(r) *r = jsval_bool(jsdisp_is_frozen(obj, TRUE));
    return S_OK;
}

object_keys()

static HRESULT object_keys ( script_ctx_t *  ctx, jsval_t  arg, enum jsdisp_enum_type  enum_type, jsval_t *  r  )

static

Definition at line 858 of file object.c.

{
    DISPID id = DISPID_STARTENUM;
    jsdisp_t *obj, *array;
    unsigned i = 0;
    jsstr_t *key;
    HRESULT hres;
 
    if(!is_object_instance(arg))
        return JS_E_OBJECT_EXPECTED;
 
    obj = to_jsdisp(get_object(arg));
    if(!obj) {
        FIXME("Non-JS object\n");
        return E_NOTIMPL;
    }
 
    hres = create_array(ctx, 0, &array);
    if(FAILED(hres))
        return hres;
 
    do {
        hres = jsdisp_next_prop(obj, id, enum_type, &id);
        if(hres != S_OK)
            break;
 
        hres = jsdisp_get_prop_name(obj, id, &key);
        if(FAILED(hres))
            break;
 
        hres = jsdisp_propput_idx(array, i++, jsval_string(key));
        jsstr_release(key);
    } while(hres == S_OK);
 
    if(SUCCEEDED(hres) && r)
        *r = jsval_obj(array);
    else
        jsdisp_release(array);
    return hres;
}

Referenced by Object_getOwnPropertyNames(), and Object_keys().

Object_keys()

static HRESULT Object_keys ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 899 of file object.c.

{
    jsval_t arg = argc ? argv[0] : jsval_undefined();
 
    TRACE("(%s)\n", debugstr_jsval(arg));
 
    return object_keys(ctx, arg, JSDISP_ENUM_OWN_ENUMERABLE, r);
}

Object_preventExtensions()

static HRESULT Object_preventExtensions ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 919 of file object.c.

{
    jsdisp_t *obj;
 
    if(!argc || !is_object_instance(argv[0]))
        return JS_E_OBJECT_EXPECTED;
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("Non-JS object\n");
        return E_NOTIMPL;
    }
 
    obj->extensible = FALSE;
    if(r) *r = jsval_obj(jsdisp_addref(obj));
    return S_OK;
}

Object_propertyIsEnumerable()

static HRESULT Object_propertyIsEnumerable ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 230 of file object.c.

{
    property_desc_t prop_desc;
    const WCHAR *name;
    jsstr_t *name_str;
    jsdisp_t *jsdisp;
    IDispatch *disp;
    HRESULT hres;
 
    TRACE("\n");
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    if(argc != 1) {
        FIXME("argc %d not supported\n", argc);
        hres = E_NOTIMPL;
        goto done;
    }
 
    if(!(jsdisp = to_jsdisp(disp))) {
        FIXME("Host object this\n");
        hres = E_FAIL;
        goto done;
    }
 
    hres = to_flat_string(ctx, argv[0], &name_str, &name);
    if(FAILED(hres))
        goto done;
 
    hres = jsdisp_get_own_property(jsdisp, name, TRUE, &prop_desc);
    jsstr_release(name_str);
    if(FAILED(hres) && hres != DISP_E_UNKNOWNNAME)
        goto done;
 
    if(r)
        *r = jsval_bool(hres == S_OK && (prop_desc.flags & PROPF_ENUMERABLE) != 0);
    hres = S_OK;
done:
    IDispatch_Release(disp);
    return hres;
}

Object_seal()

static HRESULT Object_seal ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 962 of file object.c.

{
    jsdisp_t *obj;
 
    if(!argc || !is_object_instance(argv[0])) {
        WARN("argument is not an object\n");
        return JS_E_OBJECT_EXPECTED;
    }
 
    TRACE("(%s)\n", debugstr_jsval(argv[0]));
 
    obj = to_jsdisp(get_object(argv[0]));
    if(!obj) {
        FIXME("Non-JS object\n");
        return E_NOTIMPL;
    }
 
    jsdisp_freeze(obj, TRUE);
    if(r) *r = jsval_obj(jsdisp_addref(obj));
    return S_OK;
}

Object_set_proto_()

HRESULT Object_set_proto_	(	script_ctx_t *	ctx,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 422 of file object.c.

{
    jsdisp_t *jsthis, *proto;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_jsval(vthis));
 
    if(is_undefined(vthis) || is_null(vthis))
        return JS_E_OBJECT_EXPECTED;
    if(!argc) {
        if(r)
            *r = jsval_undefined();
        return S_OK;
    }
    if(!is_object_instance(vthis) || !(jsthis = to_jsdisp(get_object(vthis))))
        goto done;
 
    if(is_null(argv[0])) {
        proto = NULL;
    }else if(is_object_instance(argv[0])) {
        proto = to_jsdisp(get_object(argv[0]));
        if(!proto) {
            FIXME("Host object value\n");
            return E_FAIL;
        }
    }else
        goto done;
 
    hres = jsdisp_change_prototype(jsthis, proto);
    if(FAILED(hres))
        return hres;
 
done:
    return r ? jsval_copy(argv[0], r) : S_OK;
}

Referenced by init_object_prototype_accessors().

Object_toLocaleString()

static HRESULT Object_toLocaleString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 107 of file object.c.

{
    jsdisp_t *jsdisp;
    IDispatch *disp;
    HRESULT hres;
 
    TRACE("\n");
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    if(!(jsdisp = to_jsdisp(disp))) {
        FIXME("Host object this\n");
        hres = E_FAIL;
        goto done;
    }
 
    hres = jsdisp_call_name(jsdisp, L"toString", DISPATCH_METHOD, 0, NULL, r);
done:
    IDispatch_Release(disp);
    return hres;
}

Object_toString()

static HRESULT Object_toString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 27 of file object.c.

{
    const WCHAR *str = NULL;
    jsstr_t *ret = NULL;
    jsdisp_t *jsdisp;
    IDispatch *disp;
    HRESULT hres;
 
    /* Keep in sync with jsclass_t enum */
    static const WCHAR *names[] = {
        NULL,
        L"[object Array]",
        L"[object Boolean]",
        L"[object Date]",
        L"[object Object]",
        L"[object Error]",
        L"[object Function]",
        NULL,
        L"[object Math]",
        L"[object Number]",
        L"[object Object]",
        L"[object RegExp]",
        L"[object String]",
        L"[object Object]",
        L"[object Object]",
        L"[object Object]",
        L"[object ArrayBuffer]",
        L"[object Object]",
        L"[object Object]",
        L"[object Object]",
        L"[object Object]",
        NULL
    };
 
    TRACE("\n");
 
    if(is_undefined(vthis) || is_null(vthis)) {
        if(ctx->version < SCRIPTLANGUAGEVERSION_ES5)
            str = L"[object Object]";
        else
            str = is_null(vthis) ? L"[object Null]" : L"[object Undefined]";
        goto set_output;
    }
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    jsdisp = to_jsdisp(disp);
    if(!jsdisp) {
        str = L"[object Object]";
    }else if(jsdisp->builtin_info->to_string) {
        hres = jsdisp->builtin_info->to_string(jsdisp, &ret);
    }else if(names[jsdisp->builtin_info->class]) {
        str = names[jsdisp->builtin_info->class];
    }else {
        assert(jsdisp->builtin_info->class != JSCLASS_NONE);
        FIXME("jsdisp->builtin_info->class = %d\n", jsdisp->builtin_info->class);
        hres = E_FAIL;
    }
    IDispatch_Release(disp);
    if(FAILED(hres))
        return hres;
 
set_output:
    if(r) {
        if(!ret) {
            ret = jsstr_alloc(str);
            if(!ret)
                return E_OUTOFMEMORY;
        }
        *r = jsval_string(ret);
    }else if(ret) {
        jsstr_release(ret);
    }
 
    return S_OK;
}

Object_valueOf()

static HRESULT Object_valueOf ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 132 of file object.c.

{
    IDispatch *disp;
    HRESULT hres;
 
    TRACE("\n");
 
    if(is_null_disp(vthis)) {
        if(r) *r = jsval_null_disp();
        return S_OK;
    }
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_disp(disp);
    else
        IDispatch_Release(disp);
    return S_OK;
}

ObjectConstr_value()

static HRESULT ObjectConstr_value ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1073 of file object.c.

{
    HRESULT hres;
 
    TRACE("\n");
 
    switch(flags) {
    case DISPATCH_METHOD:
    case DISPATCH_CONSTRUCT: {
        jsdisp_t *obj;
 
        if(argc) {
            if(!is_undefined(argv[0]) && !is_null(argv[0])) {
                IDispatch *disp;
 
                hres = to_object(ctx, argv[0], &disp);
                if(FAILED(hres))
                    return hres;
 
                if(r)
                    *r = jsval_disp(disp);
                else
                    IDispatch_Release(disp);
                return S_OK;
            }
        }
 
        hres = create_object(ctx, NULL, &obj);
        if(FAILED(hres))
            return hres;
 
        if(r)
            *r = jsval_obj(obj);
        else
            jsdisp_release(obj);
        break;
    }
 
    default:
        FIXME("unimplemented flags: %x\n", flags);
        return E_NOTIMPL;
    }
 
    return S_OK;
}

Referenced by create_object_constr().

release_property_descriptor()

static void release_property_descriptor ( property_desc_t *  desc )

static

Definition at line 479 of file object.c.

{
    if(desc->explicit_value)
        jsval_release(desc->value);
    if(desc->getter)
        jsdisp_release(desc->getter);
    if(desc->setter)
        jsdisp_release(desc->setter);
}

Referenced by jsdisp_define_properties(), Object_defineProperty(), Object_getOwnPropertyDescriptor(), and to_property_descriptor().

to_property_descriptor()

static HRESULT to_property_descriptor ( script_ctx_t *  ctx, jsdisp_t *  attr_obj, property_desc_t *  desc  )

static

Definition at line 489 of file object.c.

{
    DISPID id;
    jsval_t v;
    BOOL b;
    HRESULT hres;
 
    memset(desc, 0, sizeof(*desc));
    desc->value = jsval_undefined();
 
    hres = jsdisp_get_id(attr_obj, L"enumerable", 0, &id);
    if(SUCCEEDED(hres)) {
        desc->mask |= PROPF_ENUMERABLE;
        hres = jsdisp_propget(attr_obj, id, &v);
        if(FAILED(hres))
            return hres;
        hres = to_boolean(v, &b);
        jsval_release(v);
        if(FAILED(hres))
            return hres;
        if(b)
            desc->flags |= PROPF_ENUMERABLE;
    }else if(hres != DISP_E_UNKNOWNNAME) {
        return hres;
    }
 
    hres = jsdisp_get_id(attr_obj, L"configurable", 0, &id);
    if(SUCCEEDED(hres)) {
        desc->mask |= PROPF_CONFIGURABLE;
        hres = jsdisp_propget(attr_obj, id, &v);
        if(FAILED(hres))
            return hres;
        hres = to_boolean(v, &b);
        jsval_release(v);
        if(FAILED(hres))
            return hres;
        if(b)
            desc->flags |= PROPF_CONFIGURABLE;
    }else if(hres != DISP_E_UNKNOWNNAME) {
        return hres;
    }
 
    hres = jsdisp_get_id(attr_obj, L"value", 0, &id);
    if(SUCCEEDED(hres)) {
        hres = jsdisp_propget(attr_obj, id, &desc->value);
        if(FAILED(hres))
            return hres;
        desc->explicit_value = TRUE;
    }else if(hres != DISP_E_UNKNOWNNAME) {
        return hres;
    }
 
    hres = jsdisp_get_id(attr_obj, L"writable", 0, &id);
    if(SUCCEEDED(hres)) {
        desc->mask |= PROPF_WRITABLE;
        hres = jsdisp_propget(attr_obj, id, &v);
        if(SUCCEEDED(hres)) {
            hres = to_boolean(v, &b);
            jsval_release(v);
            if(SUCCEEDED(hres) && b)
                desc->flags |= PROPF_WRITABLE;
        }
    }else if(hres == DISP_E_UNKNOWNNAME) {
        hres = S_OK;
    }
    if(FAILED(hres)) {
        release_property_descriptor(desc);
        return hres;
    }
 
    hres = jsdisp_get_id(attr_obj, L"get", 0, &id);
    if(SUCCEEDED(hres)) {
        desc->explicit_getter = TRUE;
        hres = jsdisp_propget(attr_obj, id, &v);
        if(SUCCEEDED(hres) && !is_undefined(v)) {
            if(!is_object_instance(v)) {
                FIXME("getter is not an object\n");
                jsval_release(v);
                hres = E_FAIL;
            }else {
                /* FIXME: Check IsCallable */
                desc->getter = to_jsdisp(get_object(v));
                if(!desc->getter)
                    FIXME("getter is not JS object\n");
            }
        }
    }else if(hres == DISP_E_UNKNOWNNAME) {
        hres = S_OK;
    }
    if(FAILED(hres)) {
        release_property_descriptor(desc);
        return hres;
    }
 
    hres = jsdisp_get_id(attr_obj, L"set", 0, &id);
    if(SUCCEEDED(hres)) {
        desc->explicit_setter = TRUE;
        hres = jsdisp_propget(attr_obj, id, &v);
        if(SUCCEEDED(hres) && !is_undefined(v)) {
            if(!is_object_instance(v)) {
                FIXME("setter is not an object\n");
                jsval_release(v);
                hres = E_FAIL;
            }else {
                /* FIXME: Check IsCallable */
                desc->setter = to_jsdisp(get_object(v));
                if(!desc->setter)
                    FIXME("setter is not JS object\n");
            }
        }
    }else if(hres == DISP_E_UNKNOWNNAME) {
        hres = S_OK;
    }
    if(FAILED(hres)) {
        release_property_descriptor(desc);
        return hres;
    }
 
    if(desc->explicit_getter || desc->explicit_setter) {
        if(desc->explicit_value)
            hres = JS_E_PROP_DESC_MISMATCH;
        else if(desc->mask & PROPF_WRITABLE)
            hres = JS_E_INVALID_WRITABLE_PROP_DESC;
    }
 
    if(FAILED(hres))
        release_property_descriptor(desc);
    return hres;
}

Referenced by jsdisp_define_properties(), and Object_defineProperty().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

jscript

)

Variable Documentation

Object_info

const builtin_info_t Object_info

static

Initial value:

= {
    .class      = JSCLASS_OBJECT,
    .props_cnt  = ARRAY_SIZE(Object_props),
    .props      = Object_props,
}

Definition at line 469 of file object.c.

Referenced by create_object_prototype().

Object_props

const builtin_prop_t Object_props[]

static

Initial value:

= {
    {L"__defineGetter__",      Object_defineGetter,          PROPF_METHOD|PROPF_ES6|2},
    {L"__defineSetter__",      Object_defineSetter,          PROPF_METHOD|PROPF_ES6|2},
    {L"hasOwnProperty",        Object_hasOwnProperty,        PROPF_METHOD|1},
    {L"isPrototypeOf",         Object_isPrototypeOf,         PROPF_METHOD|1},
    {L"propertyIsEnumerable",  Object_propertyIsEnumerable,  PROPF_METHOD|1},
    {L"toLocaleString",        Object_toLocaleString,        PROPF_METHOD},
    {L"toString",              Object_toString,              PROPF_METHOD},
    {L"valueOf",               Object_valueOf,               PROPF_METHOD}
}

Definition at line 458 of file object.c.

ObjectConstr_info

const builtin_info_t ObjectConstr_info

static

Initial value:

= {
    .class     = JSCLASS_FUNCTION,
    .call      = Function_value,
    .props_cnt = ARRAY_SIZE(ObjectConstr_props),
    .props     = ObjectConstr_props,
}

Definition at line 1066 of file object.c.

Referenced by create_object_constr().

ObjectConstr_props

const builtin_prop_t ObjectConstr_props[]

static

Initial value:

= {
    {L"create",                   Object_create,                      PROPF_ES5|PROPF_METHOD|2},
    {L"defineProperties",         Object_defineProperties,            PROPF_ES5|PROPF_METHOD|2},
    {L"defineProperty",           Object_defineProperty,              PROPF_ES5|PROPF_METHOD|2},
    {L"freeze",                   Object_freeze,                      PROPF_ES5|PROPF_METHOD|1},
    {L"getOwnPropertyDescriptor", Object_getOwnPropertyDescriptor,    PROPF_ES5|PROPF_METHOD|2},
    {L"getOwnPropertyNames",      Object_getOwnPropertyNames,         PROPF_ES5|PROPF_METHOD|1},
    {L"getPrototypeOf",           Object_getPrototypeOf,              PROPF_ES5|PROPF_METHOD|1},
    {L"isExtensible",             Object_isExtensible,                PROPF_ES5|PROPF_METHOD|1},
    {L"isFrozen",                 Object_isFrozen,                    PROPF_ES5|PROPF_METHOD|1},
    {L"isSealed",                 Object_isSealed,                    PROPF_ES5|PROPF_METHOD|1},
    {L"keys",                     Object_keys,                        PROPF_ES5|PROPF_METHOD|1},
    {L"preventExtensions",        Object_preventExtensions,           PROPF_ES5|PROPF_METHOD|1},
    {L"seal",                     Object_seal,                        PROPF_ES5|PROPF_METHOD|1},
}

Definition at line 1050 of file object.c.

ObjectInst_info

const builtin_info_t ObjectInst_info

static

Initial value:

= {
    .class = JSCLASS_OBJECT,
}

Definition at line 475 of file object.c.

Referenced by create_object(), and Object_create().