dlls/jscript/object.c

   1 /*
   2  * Copyright 2008 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <assert.h>
  20
  21 #include "jscript.h"
  22
  23 #include "wine/debug.h"
  24
  25 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  26
  27 static HRESULT Object_toString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
  28         jsval_t *r)
  29 {
  30     jsdisp_t *jsdisp;
  31     const WCHAR *str;
  32
  33     /* Keep in sync with jsclass_t enum */
  34     static const WCHAR *names[] = {
  35         NULL,
  36         L"[object Array]",
  37         L"[object Boolean]",
  38         L"[object Date]",
  39         L"[object Object]",
  40         L"[object Error]",
  41         L"[object Function]",
  42         NULL,
  43         L"[object Math]",
  44         L"[object Number]",
  45         L"[object Object]",
  46         L"[object RegExp]",
  47         L"[object String]",
  48         L"[object Object]",
  49         L"[object Object]",
  50         L"[object Object]",
  51         L"[object Object]",
  52         L"[object Object]"
  53     };
  54
  55     TRACE("\n");
  56
  57     jsdisp = get_jsdisp(jsthis);
  58     if(!jsdisp) {
  59         str = L"[object Object]";
  60     }else if(names[jsdisp->builtin_info->class]) {
  61         str = names[jsdisp->builtin_info->class];
  62     }else {
  63         assert(jsdisp->builtin_info->class != JSCLASS_NONE);
  64         FIXME("jsdisp->builtin_info->class = %d\n", jsdisp->builtin_info->class);
  65         return E_FAIL;
  66     }
  67
  68     if(r) {
  69         jsstr_t *ret;
  70         ret = jsstr_alloc(str);
  71         if(!ret)
  72             return E_OUTOFMEMORY;
  73         *r = jsval_string(ret);
  74     }
  75
  76     return S_OK;
  77 }
  78
  79 static HRESULT Object_toLocaleString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
  80         jsval_t *r)
  81 {
  82     TRACE("\n");
  83
  84     if(!is_jsdisp(jsthis)) {
  85         FIXME("Host object this\n");
  86         return E_FAIL;
  87     }
  88
  89     return jsdisp_call_name(jsthis->u.jsdisp, L"toString", DISPATCH_METHOD, 0, NULL, r);
  90 }
  91
  92 static HRESULT Object_valueOf(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
  93         jsval_t *r)
  94 {
  95     TRACE("\n");
  96
  97     if(r) {
  98         IDispatch_AddRef(jsthis->u.disp);
  99         *r = jsval_disp(jsthis->u.disp);
 100     }
 101     return S_OK;
 102 }
 103
 104 static HRESULT Object_hasOwnProperty(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 105         jsval_t *r)
 106 {
 107     jsstr_t *name;
 108     DISPID id;
 109     BSTR bstr;
 110     HRESULT hres;
 111
 112     TRACE("\n");
 113
 114     if(!argc) {
 115         if(r)
 116             *r = jsval_bool(FALSE);
 117         return S_OK;
 118     }
 119
 120     hres = to_string(ctx, argv[0], &name);
 121     if(FAILED(hres))
 122         return hres;
 123
 124     if(is_jsdisp(jsthis)) {
 125         property_desc_t prop_desc;
 126         const WCHAR *name_str;
 127
 128         name_str = jsstr_flatten(name);
 129         if(!name_str) {
 130             jsstr_release(name);
 131             return E_OUTOFMEMORY;
 132         }
 133
 134         hres = jsdisp_get_own_property(jsthis->u.jsdisp, name_str, TRUE, &prop_desc);
 135         jsstr_release(name);
 136         if(FAILED(hres) && hres != DISP_E_UNKNOWNNAME)
 137             return hres;
 138
 139         if(r) *r = jsval_bool(hres == S_OK);
 140         return S_OK;
 141     }
 142
 143
 144     bstr = SysAllocStringLen(NULL, jsstr_length(name));
 145     if(bstr)
 146         jsstr_flush(name, bstr);
 147     jsstr_release(name);
 148     if(!bstr)
 149         return E_OUTOFMEMORY;
 150
 151     if(is_dispex(jsthis))
 152         hres = IDispatchEx_GetDispID(jsthis->u.dispex, bstr, make_grfdex(ctx, fdexNameCaseSensitive), &id);
 153     else
 154         hres = IDispatch_GetIDsOfNames(jsthis->u.disp, &IID_NULL, &bstr, 1, ctx->lcid, &id);
 155
 156     SysFreeString(bstr);
 157     if(r)
 158         *r = jsval_bool(SUCCEEDED(hres));
 159     return S_OK;
 160 }
 161
 162 static HRESULT Object_propertyIsEnumerable(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 163         jsval_t *r)
 164 {
 165     property_desc_t prop_desc;
 166     const WCHAR *name;
 167     jsstr_t *name_str;
 168     HRESULT hres;
 169
 170     TRACE("\n");
 171
 172     if(argc != 1) {
 173         FIXME("argc %d not supported\n", argc);
 174         return E_NOTIMPL;
 175     }
 176
 177     if(!is_jsdisp(jsthis)) {
 178         FIXME("Host object this\n");
 179         return E_FAIL;
 180     }
 181
 182     hres = to_flat_string(ctx, argv[0], &name_str, &name);
 183     if(FAILED(hres))
 184         return hres;
 185
 186     hres = jsdisp_get_own_property(jsthis->u.jsdisp, name, TRUE, &prop_desc);
 187     jsstr_release(name_str);
 188     if(FAILED(hres) && hres != DISP_E_UNKNOWNNAME)
 189         return hres;
 190
 191     if(r)
 192         *r = jsval_bool(hres == S_OK && (prop_desc.flags & PROPF_ENUMERABLE) != 0);
 193     return S_OK;
 194 }
 195
 196 static HRESULT Object_isPrototypeOf(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 197         jsval_t *r)
 198 {
 199     FIXME("\n");
 200     return E_NOTIMPL;
 201 }
 202
 203 static HRESULT Object_get_value(script_ctx_t *ctx, jsdisp_t *jsthis, jsval_t *r)
 204 {
 205     jsstr_t *ret;
 206
 207     TRACE("\n");
 208
 209     ret = jsstr_alloc(L"[object Object]");
 210     if(!ret)
 211         return E_OUTOFMEMORY;
 212
 213     *r = jsval_string(ret);
 214     return S_OK;
 215 }
 216
 217 static void Object_destructor(jsdisp_t *dispex)
 218 {
 219     heap_free(dispex);
 220 }
 221
 222 static const builtin_prop_t Object_props[] = {
 223     {L"hasOwnProperty",        Object_hasOwnProperty,        PROPF_METHOD|1},
 224     {L"isPrototypeOf",         Object_isPrototypeOf,         PROPF_METHOD|1},
 225     {L"propertyIsEnumerable",  Object_propertyIsEnumerable,  PROPF_METHOD|1},
 226     {L"toLocaleString",        Object_toLocaleString,        PROPF_METHOD},
 227     {L"toString",              Object_toString,              PROPF_METHOD},
 228     {L"valueOf",               Object_valueOf,               PROPF_METHOD}
 229 };
 230
 231 static const builtin_info_t Object_info = {
 232     JSCLASS_OBJECT,
 233     {NULL, NULL,0, Object_get_value},
 234     ARRAY_SIZE(Object_props),
 235     Object_props,
 236     Object_destructor,
 237     NULL
 238 };
 239
 240 static const builtin_info_t ObjectInst_info = {
 241     JSCLASS_OBJECT,
 242     {NULL, NULL,0, Object_get_value},
 243     0, NULL,
 244     Object_destructor,
 245     NULL
 246 };
 247
 248 static void release_property_descriptor(property_desc_t *desc)
 249 {
 250     if(desc->explicit_value)
 251         jsval_release(desc->value);
 252     if(desc->getter)
 253         jsdisp_release(desc->getter);
 254     if(desc->setter)
 255         jsdisp_release(desc->setter);
 256 }
 257
 258 static HRESULT to_property_descriptor(script_ctx_t *ctx, jsdisp_t *attr_obj, property_desc_t *desc)
 259 {
 260     DISPID id;
 261     jsval_t v;
 262     BOOL b;
 263     HRESULT hres;
 264
 265     memset(desc, 0, sizeof(*desc));
 266     desc->value = jsval_undefined();
 267
 268     hres = jsdisp_get_id(attr_obj, L"enumerable", 0, &id);
 269     if(SUCCEEDED(hres)) {
 270         desc->mask |= PROPF_ENUMERABLE;
 271         hres = jsdisp_propget(attr_obj, id, &v);
 272         if(FAILED(hres))
 273             return hres;
 274         hres = to_boolean(v, &b);
 275         jsval_release(v);
 276         if(FAILED(hres))
 277             return hres;
 278         if(b)
 279             desc->flags |= PROPF_ENUMERABLE;
 280     }else if(hres != DISP_E_UNKNOWNNAME) {
 281         return hres;
 282     }
 283
 284     hres = jsdisp_get_id(attr_obj, L"configurable", 0, &id);
 285     if(SUCCEEDED(hres)) {
 286         desc->mask |= PROPF_CONFIGURABLE;
 287         hres = jsdisp_propget(attr_obj, id, &v);
 288         if(FAILED(hres))
 289             return hres;
 290         hres = to_boolean(v, &b);
 291         jsval_release(v);
 292         if(FAILED(hres))
 293             return hres;
 294         if(b)
 295             desc->flags |= PROPF_CONFIGURABLE;
 296     }else if(hres != DISP_E_UNKNOWNNAME) {
 297         return hres;
 298     }
 299
 300     hres = jsdisp_get_id(attr_obj, L"value", 0, &id);
 301     if(SUCCEEDED(hres)) {
 302         hres = jsdisp_propget(attr_obj, id, &desc->value);
 303         if(FAILED(hres))
 304             return hres;
 305         desc->explicit_value = TRUE;
 306     }else if(hres != DISP_E_UNKNOWNNAME) {
 307         return hres;
 308     }
 309
 310     hres = jsdisp_get_id(attr_obj, L"writable", 0, &id);
 311     if(SUCCEEDED(hres)) {
 312         desc->mask |= PROPF_WRITABLE;
 313         hres = jsdisp_propget(attr_obj, id, &v);
 314         if(SUCCEEDED(hres)) {
 315             hres = to_boolean(v, &b);
 316             jsval_release(v);
 317             if(SUCCEEDED(hres) && b)
 318                 desc->flags |= PROPF_WRITABLE;
 319         }
 320     }else if(hres == DISP_E_UNKNOWNNAME) {
 321         hres = S_OK;
 322     }
 323     if(FAILED(hres)) {
 324         release_property_descriptor(desc);
 325         return hres;
 326     }
 327
 328     hres = jsdisp_get_id(attr_obj, L"get", 0, &id);
 329     if(SUCCEEDED(hres)) {
 330         desc->explicit_getter = TRUE;
 331         hres = jsdisp_propget(attr_obj, id, &v);
 332         if(SUCCEEDED(hres) && !is_undefined(v)) {
 333             if(!is_object_instance(v)) {
 334                 FIXME("getter is not an object\n");
 335                 jsval_release(v);
 336                 hres = E_FAIL;
 337             }else {
 338                 /* FIXME: Check IsCallable */
 339                 desc->getter = to_jsdisp(get_object(v));
 340                 if(!desc->getter)
 341                     FIXME("getter is not JS object\n");
 342             }
 343         }
 344     }else if(hres == DISP_E_UNKNOWNNAME) {
 345         hres = S_OK;
 346     }
 347     if(FAILED(hres)) {
 348         release_property_descriptor(desc);
 349         return hres;
 350     }
 351
 352     hres = jsdisp_get_id(attr_obj, L"set", 0, &id);
 353     if(SUCCEEDED(hres)) {
 354         desc->explicit_setter = TRUE;
 355         hres = jsdisp_propget(attr_obj, id, &v);
 356         if(SUCCEEDED(hres) && !is_undefined(v)) {
 357             if(!is_object_instance(v)) {
 358                 FIXME("setter is not an object\n");
 359                 jsval_release(v);
 360                 hres = E_FAIL;
 361             }else {
 362                 /* FIXME: Check IsCallable */
 363                 desc->setter = to_jsdisp(get_object(v));
 364                 if(!desc->setter)
 365                     FIXME("setter is not JS object\n");
 366             }
 367         }
 368     }else if(hres == DISP_E_UNKNOWNNAME) {
 369         hres = S_OK;
 370     }
 371     if(FAILED(hres)) {
 372         release_property_descriptor(desc);
 373         return hres;
 374     }
 375
 376     if(desc->explicit_getter || desc->explicit_setter) {
 377         if(desc->explicit_value)
 378             hres = JS_E_PROP_DESC_MISMATCH;
 379         else if(desc->mask & PROPF_WRITABLE)
 380             hres = JS_E_INVALID_WRITABLE_PROP_DESC;
 381     }
 382
 383     if(FAILED(hres))
 384         release_property_descriptor(desc);
 385     return hres;
 386 }
 387
 388 static HRESULT jsdisp_define_properties(script_ctx_t *ctx, jsdisp_t *obj, jsval_t list_val)
 389 {
 390     DISPID id = DISPID_STARTENUM;
 391     property_desc_t prop_desc;
 392     IDispatch *list_disp;
 393     jsdisp_t *list_obj, *desc_obj;
 394     jsval_t desc_val;
 395     BSTR name;
 396     HRESULT hres;
 397
 398     hres = to_object(ctx, list_val, &list_disp);
 399     if(FAILED(hres))
 400         return hres;
 401
 402     if(!(list_obj = to_jsdisp(list_disp))) {
 403         FIXME("non-JS list obj\n");
 404         IDispatch_Release(list_disp);
 405         return E_NOTIMPL;
 406     }
 407
 408     while(1) {
 409         hres = jsdisp_next_prop(list_obj, id, JSDISP_ENUM_OWN_ENUMERABLE, &id);
 410         if(hres != S_OK)
 411             break;
 412
 413         hres = jsdisp_propget(list_obj, id, &desc_val);
 414         if(FAILED(hres))
 415             break;
 416
 417         if(!is_object_instance(desc_val) || !get_object(desc_val) || !(desc_obj = to_jsdisp(get_object(desc_val)))) {
 418             jsval_release(desc_val);
 419             break;
 420         }
 421
 422         hres = to_property_descriptor(ctx, desc_obj, &prop_desc);
 423         jsdisp_release(desc_obj);
 424         if(FAILED(hres))
 425             break;
 426
 427         hres = IDispatchEx_GetMemberName(&list_obj->IDispatchEx_iface, id, &name);
 428         if(SUCCEEDED(hres))
 429             hres = jsdisp_define_property(obj, name, &prop_desc);
 430         release_property_descriptor(&prop_desc);
 431         if(FAILED(hres))
 432             break;
 433     }
 434
 435     jsdisp_release(list_obj);
 436     return FAILED(hres) ? hres : S_OK;
 437 }
 438
 439 static HRESULT Object_defineProperty(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
 440                                      unsigned argc, jsval_t *argv, jsval_t *r)
 441 {
 442     property_desc_t prop_desc;
 443     jsdisp_t *obj, *attr_obj;
 444     const WCHAR *name;
 445     jsstr_t *name_str;
 446     HRESULT hres;
 447
 448     TRACE("\n");
 449
 450     if(argc < 1 || !is_object_instance(argv[0]))
 451         return JS_E_OBJECT_EXPECTED;
 452     obj = to_jsdisp(get_object(argv[0]));
 453     if(!obj) {
 454         FIXME("not implemented non-JS object\n");
 455         return E_NOTIMPL;
 456     }
 457
 458     hres = to_flat_string(ctx, argc >= 2 ? argv[1] : jsval_undefined(), &name_str, &name);
 459     if(FAILED(hres))
 460         return hres;
 461
 462     if(argc >= 3 && is_object_instance(argv[2])) {
 463         attr_obj = to_jsdisp(get_object(argv[2]));
 464         if(attr_obj) {
 465             hres = to_property_descriptor(ctx, attr_obj, &prop_desc);
 466         }else {
 467             FIXME("not implemented non-JS object\n");
 468             hres = E_NOTIMPL;
 469         }
 470     }else {
 471         hres = JS_E_OBJECT_EXPECTED;
 472     }
 473
 474     if(FAILED(hres))
 475     {
 476         jsstr_release(name_str);
 477         return hres;
 478     }
 479
 480     hres = jsdisp_define_property(obj, name, &prop_desc);
 481     jsstr_release(name_str);
 482     release_property_descriptor(&prop_desc);
 483     if(SUCCEEDED(hres) && r)
 484         *r = jsval_obj(jsdisp_addref(obj));
 485     return hres;
 486 }
 487
 488 static HRESULT Object_defineProperties(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
 489                                      unsigned argc, jsval_t *argv, jsval_t *r)
 490 {
 491     jsdisp_t *obj;
 492     HRESULT hres;
 493
 494     if(argc < 1 || !is_object_instance(argv[0]) || !get_object(argv[0]) || !(obj = to_jsdisp(get_object(argv[0])))) {
 495         FIXME("not an object\n");
 496         return E_NOTIMPL;
 497     }
 498
 499     TRACE("%p\n", obj);
 500
 501     hres = jsdisp_define_properties(ctx, obj, argc >= 2 ? argv[1] : jsval_undefined());
 502     if(SUCCEEDED(hres) && r)
 503         *r = jsval_obj(jsdisp_addref(obj));
 504     return hres;
 505 }
 506
 507 static HRESULT Object_getOwnPropertyDescriptor(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
 508                                                unsigned argc, jsval_t *argv, jsval_t *r)
 509 {
 510     property_desc_t prop_desc;
 511     jsdisp_t *obj, *desc_obj;
 512     const WCHAR *name;
 513     jsstr_t *name_str;
 514     HRESULT hres;
 515
 516     TRACE("\n");
 517
 518     if(argc < 1 || !is_object_instance(argv[0]))
 519         return JS_E_OBJECT_EXPECTED;
 520     obj = to_jsdisp(get_object(argv[0]));
 521     if(!obj) {
 522         FIXME("not implemented non-JS object\n");
 523         return E_NOTIMPL;
 524     }
 525
 526     hres = to_flat_string(ctx, argc >= 2 ? argv[1] : jsval_undefined(), &name_str, &name);
 527     if(FAILED(hres))
 528         return hres;
 529
 530     hres = jsdisp_get_own_property(obj, name, FALSE, &prop_desc);
 531     jsstr_release(name_str);
 532     if(hres == DISP_E_UNKNOWNNAME) {
 533         if(r) *r = jsval_undefined();
 534         return S_OK;
 535     }
 536     if(FAILED(hres))
 537         return hres;
 538
 539     hres = create_object(ctx, NULL, &desc_obj);
 540     if(FAILED(hres))
 541         return hres;
 542
 543     if(prop_desc.explicit_getter || prop_desc.explicit_setter) {
 544         hres = jsdisp_define_data_property(desc_obj, L"get", PROPF_ALL,
 545                 prop_desc.getter ? jsval_obj(prop_desc.getter) : jsval_undefined());
 546         if(SUCCEEDED(hres))
 547             hres = jsdisp_define_data_property(desc_obj, L"set", PROPF_ALL,
 548                     prop_desc.setter ? jsval_obj(prop_desc.setter) : jsval_undefined());
 549     }else {
 550         hres = jsdisp_propput_name(desc_obj, L"value", prop_desc.value);
 551         if(SUCCEEDED(hres))
 552             hres = jsdisp_define_data_property(desc_obj, L"writable", PROPF_ALL,
 553                     jsval_bool(!!(prop_desc.flags & PROPF_WRITABLE)));
 554     }
 555     if(SUCCEEDED(hres))
 556         hres = jsdisp_define_data_property(desc_obj, L"enumerable", PROPF_ALL,
 557                 jsval_bool(!!(prop_desc.flags & PROPF_ENUMERABLE)));
 558     if(SUCCEEDED(hres))
 559         hres = jsdisp_define_data_property(desc_obj, L"configurable", PROPF_ALL,
 560                 jsval_bool(!!(prop_desc.flags & PROPF_CONFIGURABLE)));
 561
 562     release_property_descriptor(&prop_desc);
 563     if(SUCCEEDED(hres) && r)
 564         *r = jsval_obj(desc_obj);
 565     else
 566         jsdisp_release(desc_obj);
 567     return hres;
 568 }
 569
 570 static HRESULT Object_create(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
 571                              unsigned argc, jsval_t *argv, jsval_t *r)
 572 {
 573     jsdisp_t *proto = NULL, *obj;
 574     HRESULT hres;
 575
 576     if(!argc || (!is_object_instance(argv[0]) && !is_null(argv[0]))) {
 577         FIXME("Invalid arg\n");
 578         return E_INVALIDARG;
 579     }
 580
 581     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 582
 583     if(argc && is_object_instance(argv[0])) {
 584         if(get_object(argv[0]))
 585             proto = to_jsdisp(get_object(argv[0]));
 586         if(!proto) {
 587             FIXME("Non-JS prototype\n");
 588             return E_NOTIMPL;
 589         }
 590     }else if(!is_null(argv[0])) {
 591         FIXME("Invalid arg %s\n", debugstr_jsval(argc ? argv[0] : jsval_undefined()));
 592         return E_INVALIDARG;
 593     }
 594
 595     hres = create_dispex(ctx, &ObjectInst_info, proto, &obj);
 596     if(FAILED(hres))
 597         return hres;
 598
 599     if(argc >= 2 && !is_undefined(argv[1]))
 600         hres = jsdisp_define_properties(ctx, obj, argv[1]);
 601
 602     if(SUCCEEDED(hres) && r)
 603         *r = jsval_obj(obj);
 604     else
 605         jsdisp_release(obj);
 606     return hres;
 607 }
 608
 609 static HRESULT Object_getPrototypeOf(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
 610                                      unsigned argc, jsval_t *argv, jsval_t *r)
 611 {
 612     jsdisp_t *obj;
 613
 614     if(!argc || !is_object_instance(argv[0])) {
 615         FIXME("invalid arguments\n");
 616         return E_NOTIMPL;
 617     }
 618
 619     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 620
 621     obj = to_jsdisp(get_object(argv[0]));
 622     if(!obj) {
 623         FIXME("Non-JS object\n");
 624         return E_NOTIMPL;
 625     }
 626
 627     if(r)
 628         *r = obj->prototype
 629             ? jsval_obj(jsdisp_addref(obj->prototype))
 630             : jsval_null();
 631     return S_OK;
 632 }
 633
 634 static HRESULT object_keys(script_ctx_t *ctx, jsval_t arg, enum jsdisp_enum_type enum_type, jsval_t *r)
 635 {
 636     DISPID id = DISPID_STARTENUM;
 637     jsdisp_t *obj, *array;
 638     unsigned i = 0;
 639     jsstr_t *key;
 640     HRESULT hres;
 641
 642     if(!is_object_instance(arg) || !get_object(arg)) {
 643         FIXME("invalid arguments %s\n", debugstr_jsval(arg));
 644         return E_NOTIMPL;
 645     }
 646
 647     obj = to_jsdisp(get_object(arg));
 648     if(!obj) {
 649         FIXME("Non-JS object\n");
 650         return E_NOTIMPL;
 651     }
 652
 653     hres = create_array(ctx, 0, &array);
 654     if(FAILED(hres))
 655         return hres;
 656
 657     do {
 658         hres = jsdisp_next_prop(obj, id, enum_type, &id);
 659         if(hres != S_OK)
 660             break;
 661
 662         hres = jsdisp_get_prop_name(obj, id, &key);
 663         if(FAILED(hres))
 664             break;
 665
 666         hres = jsdisp_propput_idx(array, i++, jsval_string(key));
 667         jsstr_release(key);
 668     } while(hres == S_OK);
 669
 670     if(SUCCEEDED(hres) && r)
 671         *r = jsval_obj(array);
 672     else
 673         jsdisp_release(array);
 674     return hres;
 675 }
 676
 677 static HRESULT Object_keys(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
 678                            unsigned argc, jsval_t *argv, jsval_t *r)
 679 {
 680     jsval_t arg = argc ? argv[0] : jsval_undefined();
 681
 682     TRACE("(%s)\n", debugstr_jsval(arg));
 683
 684     return object_keys(ctx, arg, JSDISP_ENUM_OWN_ENUMERABLE, r);
 685 }
 686
 687 static HRESULT Object_getOwnPropertyNames(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags,
 688                                           unsigned argc, jsval_t *argv, jsval_t *r)
 689 {
 690     jsval_t arg = argc ? argv[0] : jsval_undefined();
 691
 692     TRACE("(%s)\n", debugstr_jsval(arg));
 693
 694     return object_keys(ctx, arg, JSDISP_ENUM_OWN, r);
 695 }
 696
 697 static HRESULT Object_preventExtensions(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
 698 {
 699     jsdisp_t *obj;
 700
 701     if(!argc || !is_object_instance(argv[0]) || !get_object(argv[0])) {
 702         FIXME("invalid arguments\n");
 703         return E_NOTIMPL;
 704     }
 705
 706     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 707
 708     obj = to_jsdisp(get_object(argv[0]));
 709     if(!obj) {
 710         FIXME("Non-JS object\n");
 711         return E_NOTIMPL;
 712     }
 713
 714     obj->extensible = FALSE;
 715     if(r) *r = jsval_obj(jsdisp_addref(obj));
 716     return S_OK;
 717 }
 718
 719 static HRESULT Object_freeze(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc,
 720                              jsval_t *argv, jsval_t *r)
 721 {
 722     jsdisp_t *obj;
 723
 724     if(!argc || !is_object_instance(argv[0]) || !get_object(argv[0])) {
 725         WARN("argument is not an object\n");
 726         return JS_E_OBJECT_EXPECTED;
 727     }
 728
 729     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 730
 731     obj = to_jsdisp(get_object(argv[0]));
 732     if(!obj) {
 733         FIXME("Non-JS object\n");
 734         return E_NOTIMPL;
 735     }
 736
 737     jsdisp_freeze(obj, FALSE);
 738     if(r) *r = jsval_obj(jsdisp_addref(obj));
 739     return S_OK;
 740 }
 741
 742 static HRESULT Object_seal(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc,
 743                            jsval_t *argv, jsval_t *r)
 744 {
 745     jsdisp_t *obj;
 746
 747     if(!argc || !is_object_instance(argv[0]) || !get_object(argv[0])) {
 748         WARN("argument is not an object\n");
 749         return JS_E_OBJECT_EXPECTED;
 750     }
 751
 752     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 753
 754     obj = to_jsdisp(get_object(argv[0]));
 755     if(!obj) {
 756         FIXME("Non-JS object\n");
 757         return E_NOTIMPL;
 758     }
 759
 760     jsdisp_freeze(obj, TRUE);
 761     if(r) *r = jsval_obj(jsdisp_addref(obj));
 762     return S_OK;
 763 }
 764
 765 static HRESULT Object_isExtensible(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
 766 {
 767     jsdisp_t *obj;
 768
 769     if(!argc || !is_object_instance(argv[0]) || !get_object(argv[0])) {
 770         WARN("argument is not an object\n");
 771         return JS_E_OBJECT_EXPECTED;
 772     }
 773
 774     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 775
 776     obj = to_jsdisp(get_object(argv[0]));
 777     if(!obj) {
 778         FIXME("Non-JS object\n");
 779         return E_NOTIMPL;
 780     }
 781
 782     if(r) *r = jsval_bool(obj->extensible);
 783     return S_OK;
 784 }
 785
 786 static HRESULT Object_isFrozen(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc,
 787                                jsval_t *argv, jsval_t *r)
 788 {
 789     jsdisp_t *obj;
 790
 791     if(!argc || !is_object_instance(argv[0]) || !get_object(argv[0])) {
 792         WARN("argument is not an object\n");
 793         return JS_E_OBJECT_EXPECTED;
 794     }
 795
 796     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 797
 798     obj = to_jsdisp(get_object(argv[0]));
 799     if(!obj) {
 800         FIXME("Non-JS object\n");
 801         return E_NOTIMPL;
 802     }
 803
 804     if(r) *r = jsval_bool(jsdisp_is_frozen(obj, FALSE));
 805     return S_OK;
 806 }
 807
 808 static HRESULT Object_isSealed(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc,
 809                                jsval_t *argv, jsval_t *r)
 810 {
 811     jsdisp_t *obj;
 812
 813     if(!argc || !is_object_instance(argv[0]) || !get_object(argv[0])) {
 814         WARN("argument is not an object\n");
 815         return JS_E_OBJECT_EXPECTED;
 816     }
 817
 818     TRACE("(%s)\n", debugstr_jsval(argv[0]));
 819
 820     obj = to_jsdisp(get_object(argv[0]));
 821     if(!obj) {
 822         FIXME("Non-JS object\n");
 823         return E_NOTIMPL;
 824     }
 825
 826     if(r) *r = jsval_bool(jsdisp_is_frozen(obj, TRUE));
 827     return S_OK;
 828 }
 829
 830 static const builtin_prop_t ObjectConstr_props[] = {
 831     {L"create",                   Object_create,                      PROPF_ES5|PROPF_METHOD|2},
 832     {L"defineProperties",         Object_defineProperties,            PROPF_ES5|PROPF_METHOD|2},
 833     {L"defineProperty",           Object_defineProperty,              PROPF_ES5|PROPF_METHOD|2},
 834     {L"freeze",                   Object_freeze,                      PROPF_ES5|PROPF_METHOD|1},
 835     {L"getOwnPropertyDescriptor", Object_getOwnPropertyDescriptor,    PROPF_ES5|PROPF_METHOD|2},
 836     {L"getOwnPropertyNames",      Object_getOwnPropertyNames,         PROPF_ES5|PROPF_METHOD|1},
 837     {L"getPrototypeOf",           Object_getPrototypeOf,              PROPF_ES5|PROPF_METHOD|1},
 838     {L"isExtensible",             Object_isExtensible,                PROPF_ES5|PROPF_METHOD|1},
 839     {L"isFrozen",                 Object_isFrozen,                    PROPF_ES5|PROPF_METHOD|1},
 840     {L"isSealed",                 Object_isSealed,                    PROPF_ES5|PROPF_METHOD|1},
 841     {L"keys",                     Object_keys,                        PROPF_ES5|PROPF_METHOD|1},
 842     {L"preventExtensions",        Object_preventExtensions,           PROPF_ES5|PROPF_METHOD|1},
 843     {L"seal",                     Object_seal,                        PROPF_ES5|PROPF_METHOD|1},
 844 };
 845
 846 static const builtin_info_t ObjectConstr_info = {
 847     JSCLASS_FUNCTION,
 848     DEFAULT_FUNCTION_VALUE,
 849     ARRAY_SIZE(ObjectConstr_props),
 850     ObjectConstr_props,
 851     NULL,
 852     NULL
 853 };
 854
 855 static HRESULT ObjectConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 856         jsval_t *r)
 857 {
 858     HRESULT hres;
 859
 860     TRACE("\n");
 861
 862     switch(flags) {
 863     case DISPATCH_METHOD:
 864     case DISPATCH_CONSTRUCT: {
 865         jsdisp_t *obj;
 866
 867         if(argc) {
 868             if(!is_undefined(argv[0]) && !is_null(argv[0]) && (!is_object_instance(argv[0]) || get_object(argv[0]))) {
 869                 IDispatch *disp;
 870
 871                 hres = to_object(ctx, argv[0], &disp);
 872                 if(FAILED(hres))
 873                     return hres;
 874
 875                 if(r)
 876                     *r = jsval_disp(disp);
 877                 else
 878                     IDispatch_Release(disp);
 879                 return S_OK;
 880             }
 881         }
 882
 883         hres = create_object(ctx, NULL, &obj);
 884         if(FAILED(hres))
 885             return hres;
 886
 887         if(r)
 888             *r = jsval_obj(obj);
 889         else
 890             jsdisp_release(obj);
 891         break;
 892     }
 893
 894     default:
 895         FIXME("unimplemented flags: %x\n", flags);
 896         return E_NOTIMPL;
 897     }
 898
 899     return S_OK;
 900 }
 901
 902 HRESULT create_object_constr(script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret)
 903 {
 904     return create_builtin_constructor(ctx, ObjectConstr_value, L"Object", &ObjectConstr_info, PROPF_CONSTR,
 905             object_prototype, ret);
 906 }
 907
 908 HRESULT create_object_prototype(script_ctx_t *ctx, jsdisp_t **ret)
 909 {
 910     return create_dispex(ctx, &Object_info, NULL, ret);
 911 }
 912
 913 HRESULT create_object(script_ctx_t *ctx, jsdisp_t *constr, jsdisp_t **ret)
 914 {
 915     jsdisp_t *object;
 916     HRESULT hres;
 917
 918     object = heap_alloc_zero(sizeof(jsdisp_t));
 919     if(!object)
 920         return E_OUTOFMEMORY;
 921
 922     hres = init_dispex_from_constr(object, ctx, &ObjectInst_info, constr ? constr : ctx->object_constr);
 923     if(FAILED(hres)) {
 924         heap_free(object);
 925         return hres;
 926     }
 927
 928     *ret = object;
 929     return S_OK;
 930 }