dlls/jscript/jscript.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 #include "engine.h"
  23 #include "objsafe.h"
  24
  25 #include "wine/debug.h"
  26
  27 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  28
  29 #ifdef _WIN64
  30
  31 #define CTXARG_T DWORDLONG
  32 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
  33 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
  34
  35 #else
  36
  37 #define CTXARG_T DWORD
  38 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
  39 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
  40
  41 #endif
  42
  43 typedef struct {
  44     IActiveScript                IActiveScript_iface;
  45     IActiveScriptParse           IActiveScriptParse_iface;
  46     IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface;
  47     IActiveScriptProperty        IActiveScriptProperty_iface;
  48     IObjectSafety                IObjectSafety_iface;
  49     IVariantChangeType           IVariantChangeType_iface;
  50
  51     LONG ref;
  52
  53     DWORD safeopt;
  54     script_ctx_t *ctx;
  55     LONG thread_id;
  56     LCID lcid;
  57     DWORD version;
  58     BOOL html_mode;
  59     BOOL is_encode;
  60     BOOL is_initialized;
  61
  62     IActiveScriptSite *site;
  63
  64     struct list persistent_code;
  65     struct list queued_code;
  66 } JScript;
  67
  68 typedef struct {
  69     IActiveScriptError IActiveScriptError_iface;
  70     LONG ref;
  71     jsexcept_t ei;
  72 } JScriptError;
  73
  74 void script_release(script_ctx_t *ctx)
  75 {
  76     if(--ctx->ref)
  77         return;
  78
  79     jsval_release(ctx->acc);
  80     if(ctx->cc)
  81         release_cc(ctx->cc);
  82     heap_pool_free(&ctx->tmp_heap);
  83     if(ctx->last_match)
  84         jsstr_release(ctx->last_match);
  85     assert(!ctx->stack_top);
  86     free(ctx->stack);
  87
  88     ctx->jscaller->ctx = NULL;
  89     IServiceProvider_Release(&ctx->jscaller->IServiceProvider_iface);
  90
  91     free(ctx);
  92 }
  93
  94 static void script_globals_release(script_ctx_t *ctx)
  95 {
  96     unsigned i;
  97     for(i = 0; i < ARRAY_SIZE(ctx->global_objects); i++) {
  98         if(ctx->global_objects[i]) {
  99             jsdisp_release(ctx->global_objects[i]);
 100             ctx->global_objects[i] = NULL;
 101         }
 102     }
 103 }
 104
 105 static void change_state(JScript *This, SCRIPTSTATE state)
 106 {
 107     if(This->ctx->state == state)
 108         return;
 109
 110     This->ctx->state = state;
 111     if(This->site)
 112         IActiveScriptSite_OnStateChange(This->site, state);
 113 }
 114
 115 static inline BOOL is_started(script_ctx_t *ctx)
 116 {
 117     return ctx->state == SCRIPTSTATE_STARTED
 118         || ctx->state == SCRIPTSTATE_CONNECTED
 119         || ctx->state == SCRIPTSTATE_DISCONNECTED;
 120 }
 121
 122 HRESULT create_named_item_script_obj(script_ctx_t *ctx, named_item_t *item)
 123 {
 124     static const builtin_info_t disp_info = {
 125         JSCLASS_GLOBAL,
 126         NULL,
 127         0, NULL,
 128         NULL,
 129         NULL
 130     };
 131
 132     return create_dispex(ctx, &disp_info, NULL, &item->script_obj);
 133 }
 134
 135 static void release_named_item_script_obj(named_item_t *item)
 136 {
 137     if(!item->script_obj) return;
 138
 139     jsdisp_release(item->script_obj);
 140     item->script_obj = NULL;
 141 }
 142
 143 static HRESULT retrieve_named_item_disp(IActiveScriptSite *site, named_item_t *item)
 144 {
 145     IUnknown *unk;
 146     HRESULT hr;
 147
 148     if(!site)
 149         return E_UNEXPECTED;
 150
 151     hr = IActiveScriptSite_GetItemInfo(site, item->name, SCRIPTINFO_IUNKNOWN, &unk, NULL);
 152     if(FAILED(hr)) {
 153         WARN("GetItemInfo failed: %08lx\n", hr);
 154         return hr;
 155     }
 156
 157     hr = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&item->disp);
 158     IUnknown_Release(unk);
 159     if(FAILED(hr)) {
 160         WARN("object does not implement IDispatch\n");
 161         return hr;
 162     }
 163
 164     return S_OK;
 165 }
 166
 167 named_item_t *lookup_named_item(script_ctx_t *ctx, const WCHAR *item_name, unsigned flags)
 168 {
 169     named_item_t *item;
 170     HRESULT hr;
 171
 172     LIST_FOR_EACH_ENTRY(item, &ctx->named_items, named_item_t, entry) {
 173         if((item->flags & flags) == flags && !wcscmp(item->name, item_name)) {
 174             if(!item->script_obj && !(item->flags & SCRIPTITEM_GLOBALMEMBERS)) {
 175                 hr = create_named_item_script_obj(ctx, item);
 176                 if(FAILED(hr)) return NULL;
 177             }
 178
 179             if(!item->disp && (flags || !(item->flags & SCRIPTITEM_CODEONLY))) {
 180                 hr = retrieve_named_item_disp(ctx->site, item);
 181                 if(FAILED(hr)) continue;
 182             }
 183
 184             return item;
 185         }
 186     }
 187
 188     return NULL;
 189 }
 190
 191 void release_named_item(named_item_t *item)
 192 {
 193     if(--item->ref) return;
 194
 195     free(item->name);
 196     free(item);
 197 }
 198
 199 static inline JScriptError *impl_from_IActiveScriptError(IActiveScriptError *iface)
 200 {
 201     return CONTAINING_RECORD(iface, JScriptError, IActiveScriptError_iface);
 202 }
 203
 204 static HRESULT WINAPI JScriptError_QueryInterface(IActiveScriptError *iface, REFIID riid, void **ppv)
 205 {
 206     JScriptError *This = impl_from_IActiveScriptError(iface);
 207
 208     if(IsEqualGUID(riid, &IID_IUnknown)) {
 209         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 210         *ppv = &This->IActiveScriptError_iface;
 211     }else if(IsEqualGUID(riid, &IID_IActiveScriptError)) {
 212         TRACE("(%p)->(IID_IActiveScriptError %p)\n", This, ppv);
 213         *ppv = &This->IActiveScriptError_iface;
 214     }else {
 215         FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 216         *ppv = NULL;
 217         return E_NOINTERFACE;
 218     }
 219
 220     IUnknown_AddRef((IUnknown*)*ppv);
 221     return S_OK;
 222 }
 223
 224 static ULONG WINAPI JScriptError_AddRef(IActiveScriptError *iface)
 225 {
 226     JScriptError *This = impl_from_IActiveScriptError(iface);
 227     LONG ref = InterlockedIncrement(&This->ref);
 228
 229     TRACE("(%p) ref=%ld\n", This, ref);
 230
 231     return ref;
 232 }
 233
 234 static ULONG WINAPI JScriptError_Release(IActiveScriptError *iface)
 235 {
 236     JScriptError *This = impl_from_IActiveScriptError(iface);
 237     LONG ref = InterlockedDecrement(&This->ref);
 238
 239     TRACE("(%p) ref=%ld\n", This, ref);
 240
 241     if(!ref) {
 242         reset_ei(&This->ei);
 243         free(This);
 244     }
 245
 246     return ref;
 247 }
 248
 249 static HRESULT WINAPI JScriptError_GetExceptionInfo(IActiveScriptError *iface, EXCEPINFO *excepinfo)
 250 {
 251     JScriptError *This = impl_from_IActiveScriptError(iface);
 252
 253     TRACE("(%p)->(%p)\n", This, excepinfo);
 254
 255     if(!excepinfo)
 256         return E_POINTER;
 257
 258     memset(excepinfo, 0, sizeof(*excepinfo));
 259     excepinfo->scode = This->ei.error;
 260     if(This->ei.source)
 261         jsstr_to_bstr(This->ei.source, &excepinfo->bstrSource);
 262     if(This->ei.message)
 263         jsstr_to_bstr(This->ei.message, &excepinfo->bstrDescription);
 264     return S_OK;
 265 }
 266
 267 static HRESULT WINAPI JScriptError_GetSourcePosition(IActiveScriptError *iface, DWORD *source_context, ULONG *line, LONG *character)
 268 {
 269     JScriptError *This = impl_from_IActiveScriptError(iface);
 270     bytecode_t *code = This->ei.code;
 271     unsigned line_pos, char_pos;
 272
 273     TRACE("(%p)->(%p %p %p)\n", This, source_context, line, character);
 274
 275     if(!This->ei.code) {
 276         FIXME("unknown position\n");
 277         return E_FAIL;
 278     }
 279
 280     if(source_context)
 281         *source_context = This->ei.code->source_context;
 282     if(!line && !character)
 283         return S_OK;
 284
 285     line_pos = get_location_line(code, This->ei.loc, &char_pos);
 286     if(line)
 287         *line = line_pos;
 288     if(character)
 289         *character = char_pos;
 290     return S_OK;
 291 }
 292
 293 static HRESULT WINAPI JScriptError_GetSourceLineText(IActiveScriptError *iface, BSTR *source)
 294 {
 295     JScriptError *This = impl_from_IActiveScriptError(iface);
 296
 297     TRACE("(%p)->(%p)\n", This, source);
 298
 299     if(!source)
 300         return E_POINTER;
 301
 302     if(!This->ei.line) {
 303         *source = NULL;
 304         return E_FAIL;
 305     }
 306
 307     return jsstr_to_bstr(This->ei.line, source);
 308 }
 309
 310 static const IActiveScriptErrorVtbl JScriptErrorVtbl = {
 311     JScriptError_QueryInterface,
 312     JScriptError_AddRef,
 313     JScriptError_Release,
 314     JScriptError_GetExceptionInfo,
 315     JScriptError_GetSourcePosition,
 316     JScriptError_GetSourceLineText
 317 };
 318
 319 void reset_ei(jsexcept_t *ei)
 320 {
 321     ei->error = S_OK;
 322     if(ei->valid_value) {
 323         jsval_release(ei->value);
 324         ei->valid_value = FALSE;
 325     }
 326     if(ei->code) {
 327         release_bytecode(ei->code);
 328         ei->code = NULL;
 329         ei->loc = 0;
 330     }
 331     if(ei->source) {
 332         jsstr_release(ei->source);
 333         ei->source = NULL;
 334     }
 335     if(ei->message) {
 336         jsstr_release(ei->message);
 337         ei->message = NULL;
 338     }
 339     if(ei->line) {
 340         jsstr_release(ei->line);
 341         ei->line = NULL;
 342     }
 343 }
 344
 345 void enter_script(script_ctx_t *ctx, jsexcept_t *ei)
 346 {
 347     memset(ei, 0, sizeof(*ei));
 348     ei->prev = ctx->ei;
 349     ctx->ei = ei;
 350     TRACE("ctx %p ei %p prev %p\n", ctx, ei, ei->prev);
 351 }
 352
 353 HRESULT leave_script(script_ctx_t *ctx, HRESULT result)
 354 {
 355     jsexcept_t *ei = ctx->ei;
 356     BOOL enter_notified = ei->enter_notified;
 357     JScriptError *error;
 358
 359     TRACE("ctx %p ei %p prev %p\n", ctx, ei, ei->prev);
 360
 361     ctx->ei = ei->prev;
 362     if(result == DISP_E_EXCEPTION) {
 363         result = ei->error;
 364     }else {
 365         reset_ei(ei);
 366         ei->error = result;
 367     }
 368     if(FAILED(result)) {
 369         WARN("%08lx\n", result);
 370         if(ctx->site && (error = malloc(sizeof(*error)))) {
 371             HRESULT hres;
 372
 373             error->IActiveScriptError_iface.lpVtbl = &JScriptErrorVtbl;
 374             error->ref = 1;
 375             error->ei = *ei;
 376             memset(ei, 0, sizeof(*ei));
 377
 378             hres = IActiveScriptSite_OnScriptError(ctx->site, &error->IActiveScriptError_iface);
 379             IActiveScriptError_Release(&error->IActiveScriptError_iface);
 380             if(hres == S_OK)
 381                 result = SCRIPT_E_REPORTED;
 382         }
 383     }
 384     if(enter_notified && ctx->site)
 385         IActiveScriptSite_OnLeaveScript(ctx->site);
 386     reset_ei(ei);
 387     return result;
 388 }
 389
 390 static void clear_script_queue(JScript *This)
 391 {
 392     while(!list_empty(&This->queued_code))
 393     {
 394         bytecode_t *iter = LIST_ENTRY(list_head(&This->queued_code), bytecode_t, entry);
 395         list_remove(&iter->entry);
 396         if (iter->is_persistent)
 397             list_add_tail(&This->persistent_code, &iter->entry);
 398         else
 399             release_bytecode(iter);
 400     }
 401 }
 402
 403 static void clear_persistent_code_list(JScript *This)
 404 {
 405     while(!list_empty(&This->persistent_code))
 406     {
 407         bytecode_t *iter = LIST_ENTRY(list_head(&This->persistent_code), bytecode_t, entry);
 408         list_remove(&iter->entry);
 409         release_bytecode(iter);
 410     }
 411 }
 412
 413 static void release_persistent_script_objs(JScript *This)
 414 {
 415     bytecode_t *iter;
 416
 417     LIST_FOR_EACH_ENTRY(iter, &This->persistent_code, bytecode_t, entry)
 418         if(iter->named_item)
 419             release_named_item_script_obj(iter->named_item);
 420 }
 421
 422 static void release_named_item_list(JScript *This)
 423 {
 424     while(!list_empty(&This->ctx->named_items)) {
 425         named_item_t *iter = LIST_ENTRY(list_head(&This->ctx->named_items), named_item_t, entry);
 426         list_remove(&iter->entry);
 427         release_named_item(iter);
 428     }
 429 }
 430
 431 static HRESULT exec_global_code(script_ctx_t *ctx, bytecode_t *code, jsval_t *r)
 432 {
 433     IServiceProvider *prev_caller = ctx->jscaller->caller;
 434     HRESULT hres;
 435
 436     ctx->jscaller->caller = SP_CALLER_UNINITIALIZED;
 437     hres = exec_source(ctx, EXEC_GLOBAL, code, &code->global_code, NULL, NULL, NULL, 0, NULL, r);
 438     ctx->jscaller->caller = prev_caller;
 439     return hres;
 440 }
 441
 442 static void exec_queued_code(JScript *This)
 443 {
 444     bytecode_t *iter;
 445     jsexcept_t ei;
 446     HRESULT hres = S_OK;
 447
 448     LIST_FOR_EACH_ENTRY(iter, &This->queued_code, bytecode_t, entry) {
 449         enter_script(This->ctx, &ei);
 450         hres = exec_global_code(This->ctx, iter, NULL);
 451         leave_script(This->ctx, hres);
 452         if(FAILED(hres))
 453             break;
 454     }
 455
 456     clear_script_queue(This);
 457 }
 458
 459 static void decrease_state(JScript *This, SCRIPTSTATE state)
 460 {
 461     named_item_t *item, *item_next;
 462
 463     if(This->ctx) {
 464         switch(This->ctx->state) {
 465         case SCRIPTSTATE_CONNECTED:
 466             change_state(This, SCRIPTSTATE_DISCONNECTED);
 467             if(state == SCRIPTSTATE_DISCONNECTED)
 468                 return;
 469             /* FALLTHROUGH */
 470         case SCRIPTSTATE_STARTED:
 471         case SCRIPTSTATE_DISCONNECTED:
 472             clear_script_queue(This);
 473
 474             if(This->ctx->state == SCRIPTSTATE_DISCONNECTED)
 475                 change_state(This, SCRIPTSTATE_INITIALIZED);
 476             if(state == SCRIPTSTATE_INITIALIZED)
 477                 return;
 478             /* FALLTHROUGH */
 479         case SCRIPTSTATE_INITIALIZED:
 480             clear_script_queue(This);
 481             release_persistent_script_objs(This);
 482
 483             LIST_FOR_EACH_ENTRY_SAFE(item, item_next, &This->ctx->named_items, named_item_t, entry)
 484             {
 485                 if(item->disp)
 486                 {
 487                     IDispatch_Release(item->disp);
 488                     item->disp = NULL;
 489                 }
 490                 release_named_item_script_obj(item);
 491                 if(!(item->flags & SCRIPTITEM_ISPERSISTENT))
 492                 {
 493                     list_remove(&item->entry);
 494                     release_named_item(item);
 495                 }
 496             }
 497
 498             if(This->ctx->secmgr) {
 499                 IInternetHostSecurityManager_Release(This->ctx->secmgr);
 500                 This->ctx->secmgr = NULL;
 501             }
 502
 503             if(This->ctx->site) {
 504                 IActiveScriptSite_Release(This->ctx->site);
 505                 This->ctx->site = NULL;
 506             }
 507
 508             script_globals_release(This->ctx);
 509             gc_run(This->ctx);
 510
 511             /* FALLTHROUGH */
 512         case SCRIPTSTATE_UNINITIALIZED:
 513             change_state(This, state);
 514             break;
 515         default:
 516             assert(0);
 517         }
 518
 519         change_state(This, state);
 520     }else if(state == SCRIPTSTATE_UNINITIALIZED) {
 521         if(This->site)
 522             IActiveScriptSite_OnStateChange(This->site, state);
 523     }else {
 524         FIXME("NULL ctx\n");
 525     }
 526
 527     if(state == SCRIPTSTATE_UNINITIALIZED || state == SCRIPTSTATE_CLOSED)
 528         This->thread_id = 0;
 529
 530     if(This->site) {
 531         IActiveScriptSite_Release(This->site);
 532         This->site = NULL;
 533     }
 534 }
 535
 536 typedef struct {
 537     IServiceProvider IServiceProvider_iface;
 538
 539     LONG ref;
 540
 541     IServiceProvider *sp;
 542 } AXSite;
 543
 544 static inline AXSite *impl_from_IServiceProvider(IServiceProvider *iface)
 545 {
 546     return CONTAINING_RECORD(iface, AXSite, IServiceProvider_iface);
 547 }
 548
 549 static HRESULT WINAPI AXSite_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
 550 {
 551     AXSite *This = impl_from_IServiceProvider(iface);
 552
 553     if(IsEqualGUID(&IID_IUnknown, riid)) {
 554         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 555         *ppv = &This->IServiceProvider_iface;
 556     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 557         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 558         *ppv = &This->IServiceProvider_iface;
 559     }else {
 560         TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 561         *ppv = NULL;
 562         return E_NOINTERFACE;
 563     }
 564
 565     IUnknown_AddRef((IUnknown*)*ppv);
 566     return S_OK;
 567 }
 568
 569 static ULONG WINAPI AXSite_AddRef(IServiceProvider *iface)
 570 {
 571     AXSite *This = impl_from_IServiceProvider(iface);
 572     LONG ref = InterlockedIncrement(&This->ref);
 573
 574     TRACE("(%p) ref=%ld\n", This, ref);
 575
 576     return ref;
 577 }
 578
 579 static ULONG WINAPI AXSite_Release(IServiceProvider *iface)
 580 {
 581     AXSite *This = impl_from_IServiceProvider(iface);
 582     LONG ref = InterlockedDecrement(&This->ref);
 583
 584     TRACE("(%p) ref=%ld\n", This, ref);
 585
 586     if(!ref)
 587     {
 588         if(This->sp)
 589             IServiceProvider_Release(This->sp);
 590
 591         free(This);
 592     }
 593
 594     return ref;
 595 }
 596
 597 static HRESULT WINAPI AXSite_QueryService(IServiceProvider *iface,
 598         REFGUID guidService, REFIID riid, void **ppv)
 599 {
 600     AXSite *This = impl_from_IServiceProvider(iface);
 601
 602     TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 603
 604     if(!This->sp)
 605         return E_NOINTERFACE;
 606
 607     return IServiceProvider_QueryService(This->sp, guidService, riid, ppv);
 608 }
 609
 610 static IServiceProviderVtbl AXSiteVtbl = {
 611     AXSite_QueryInterface,
 612     AXSite_AddRef,
 613     AXSite_Release,
 614     AXSite_QueryService
 615 };
 616
 617 IUnknown *create_ax_site(script_ctx_t *ctx)
 618 {
 619     IServiceProvider *sp = NULL;
 620     AXSite *ret;
 621     HRESULT hres;
 622
 623     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
 624     if(FAILED(hres)) {
 625         TRACE("Could not get IServiceProvider iface: %08lx\n", hres);
 626     }
 627
 628     ret = malloc(sizeof(AXSite));
 629     if(!ret) {
 630         IServiceProvider_Release(sp);
 631         return NULL;
 632     }
 633
 634     ret->IServiceProvider_iface.lpVtbl = &AXSiteVtbl;
 635     ret->ref = 1;
 636     ret->sp = sp;
 637
 638     return (IUnknown*)&ret->IServiceProvider_iface;
 639 }
 640
 641 static inline JScript *impl_from_IActiveScript(IActiveScript *iface)
 642 {
 643     return CONTAINING_RECORD(iface, JScript, IActiveScript_iface);
 644 }
 645
 646 static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
 647 {
 648     JScript *This = impl_from_IActiveScript(iface);
 649
 650     *ppv = NULL;
 651
 652     if(IsEqualGUID(riid, &IID_IUnknown)) {
 653         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 654         *ppv = &This->IActiveScript_iface;
 655     }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
 656         TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
 657         *ppv = &This->IActiveScript_iface;
 658     }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
 659         TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
 660         *ppv = &This->IActiveScriptParse_iface;
 661     }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
 662         TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
 663         *ppv = &This->IActiveScriptParseProcedure2_iface;
 664     }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
 665         TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
 666         *ppv = &This->IActiveScriptParseProcedure2_iface;
 667     }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
 668         TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
 669         *ppv = &This->IActiveScriptProperty_iface;
 670     }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
 671         TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
 672         *ppv = &This->IObjectSafety_iface;
 673     }else if(IsEqualGUID(riid, &IID_IVariantChangeType)) {
 674         TRACE("(%p)->(IID_IVariantChangeType %p)\n", This, ppv);
 675         *ppv = &This->IVariantChangeType_iface;
 676     }
 677
 678     if(*ppv) {
 679         IUnknown_AddRef((IUnknown*)*ppv);
 680         return S_OK;
 681     }
 682
 683     FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 684     return E_NOINTERFACE;
 685 }
 686
 687 static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
 688 {
 689     JScript *This = impl_from_IActiveScript(iface);
 690     LONG ref = InterlockedIncrement(&This->ref);
 691
 692     TRACE("(%p) ref=%ld\n", This, ref);
 693
 694     return ref;
 695 }
 696
 697 static ULONG WINAPI JScript_Release(IActiveScript *iface)
 698 {
 699     JScript *This = impl_from_IActiveScript(iface);
 700     LONG ref = InterlockedDecrement(&This->ref);
 701
 702     TRACE("(%p) ref=%ld\n", iface, ref);
 703
 704     if(!ref) {
 705         if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
 706             IActiveScript_Close(&This->IActiveScript_iface);
 707         if(This->ctx) {
 708             This->ctx->active_script = NULL;
 709             script_release(This->ctx);
 710         }
 711         free(This);
 712         unlock_module();
 713     }
 714
 715     return ref;
 716 }
 717
 718 static int weak_refs_compare(const void *key, const struct rb_entry *entry)
 719 {
 720     const struct weak_refs_entry *weak_refs_entry = RB_ENTRY_VALUE(entry, const struct weak_refs_entry, entry);
 721     ULONG_PTR a = (ULONG_PTR)key, b = (ULONG_PTR)LIST_ENTRY(weak_refs_entry->list.next, struct weakmap_entry, weak_refs_entry)->key;
 722     return (a > b) - (a < b);
 723 }
 724
 725 static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
 726                                             IActiveScriptSite *pass)
 727 {
 728     JScript *This = impl_from_IActiveScript(iface);
 729     named_item_t *item;
 730     LCID lcid;
 731     HRESULT hres;
 732
 733     TRACE("(%p)->(%p)\n", This, pass);
 734
 735     if(!pass)
 736         return E_POINTER;
 737
 738     if(This->site)
 739         return E_UNEXPECTED;
 740
 741     if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
 742         return E_UNEXPECTED;
 743
 744     if(!This->ctx) {
 745         script_ctx_t *ctx = calloc(1, sizeof(script_ctx_t));
 746         if(!ctx)
 747             return E_OUTOFMEMORY;
 748
 749         ctx->ref = 1;
 750         ctx->state = SCRIPTSTATE_UNINITIALIZED;
 751         ctx->active_script = &This->IActiveScript_iface;
 752         ctx->safeopt = This->safeopt;
 753         ctx->version = This->version;
 754         ctx->html_mode = This->html_mode;
 755         ctx->acc = jsval_undefined();
 756         list_init(&ctx->named_items);
 757         list_init(&ctx->objects);
 758         rb_init(&ctx->weak_refs, weak_refs_compare);
 759         heap_pool_init(&ctx->tmp_heap);
 760
 761         hres = create_jscaller(ctx);
 762         if(FAILED(hres)) {
 763             free(ctx);
 764             return hres;
 765         }
 766
 767         ctx->last_match = jsstr_empty();
 768
 769         ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
 770         if(ctx) {
 771             script_release(ctx);
 772             return E_UNEXPECTED;
 773         }
 774     }
 775
 776     /* Retrieve new dispatches for persistent named items */
 777     LIST_FOR_EACH_ENTRY(item, &This->ctx->named_items, named_item_t, entry)
 778     {
 779         if(!item->disp)
 780         {
 781             hres = retrieve_named_item_disp(pass, item);
 782             if(FAILED(hres)) return hres;
 783         }
 784
 785         /* For some reason, CODEONLY flag is lost in re-initialized scripts */
 786         item->flags &= ~SCRIPTITEM_CODEONLY;
 787     }
 788
 789     This->site = pass;
 790     IActiveScriptSite_AddRef(This->site);
 791
 792     hres = IActiveScriptSite_GetLCID(This->site, &lcid);
 793     if(hres == S_OK)
 794         This->lcid = lcid;
 795
 796     This->ctx->lcid = This->lcid;
 797
 798     hres = init_global(This->ctx);
 799     if(FAILED(hres))
 800         return hres;
 801
 802     IActiveScriptSite_AddRef(This->site);
 803     This->ctx->site = This->site;
 804
 805     if(This->is_initialized)
 806         change_state(This, SCRIPTSTATE_INITIALIZED);
 807     return S_OK;
 808 }
 809
 810 static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
 811                                             void **ppvObject)
 812 {
 813     JScript *This = impl_from_IActiveScript(iface);
 814     FIXME("(%p)->()\n", This);
 815     return E_NOTIMPL;
 816 }
 817
 818 static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
 819 {
 820     JScript *This = impl_from_IActiveScript(iface);
 821
 822     TRACE("(%p)->(%d)\n", This, ss);
 823
 824     if(This->thread_id && GetCurrentThreadId() != This->thread_id)
 825         return E_UNEXPECTED;
 826
 827     if(ss == SCRIPTSTATE_UNINITIALIZED) {
 828         if(This->ctx && This->ctx->state == SCRIPTSTATE_CLOSED)
 829             return E_UNEXPECTED;
 830
 831         decrease_state(This, SCRIPTSTATE_UNINITIALIZED);
 832         list_move_tail(&This->queued_code, &This->persistent_code);
 833         return S_OK;
 834     }
 835
 836     if(!This->is_initialized || !This->ctx)
 837         return E_UNEXPECTED;
 838
 839     switch(ss) {
 840     case SCRIPTSTATE_STARTED:
 841     case SCRIPTSTATE_CONNECTED: /* FIXME */
 842         if(This->ctx->state == SCRIPTSTATE_UNINITIALIZED || This->ctx->state == SCRIPTSTATE_CLOSED)
 843             return E_UNEXPECTED;
 844
 845         exec_queued_code(This);
 846         break;
 847     case SCRIPTSTATE_INITIALIZED:
 848         FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
 849         return S_OK;
 850     default:
 851         FIXME("unimplemented state %d\n", ss);
 852         return E_NOTIMPL;
 853     }
 854
 855     change_state(This, ss);
 856     return S_OK;
 857 }
 858
 859 static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
 860 {
 861     JScript *This = impl_from_IActiveScript(iface);
 862
 863     TRACE("(%p)->(%p)\n", This, pssState);
 864
 865     if(!pssState)
 866         return E_POINTER;
 867
 868     if(This->thread_id && This->thread_id != GetCurrentThreadId())
 869         return E_UNEXPECTED;
 870
 871     *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
 872     return S_OK;
 873 }
 874
 875 static HRESULT WINAPI JScript_Close(IActiveScript *iface)
 876 {
 877     JScript *This = impl_from_IActiveScript(iface);
 878
 879     TRACE("(%p)->()\n", This);
 880
 881     if(This->thread_id && This->thread_id != GetCurrentThreadId())
 882         return E_UNEXPECTED;
 883
 884     decrease_state(This, SCRIPTSTATE_CLOSED);
 885     clear_persistent_code_list(This);
 886     release_named_item_list(This);
 887     return S_OK;
 888 }
 889
 890 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
 891                                            LPCOLESTR pstrName, DWORD dwFlags)
 892 {
 893     JScript *This = impl_from_IActiveScript(iface);
 894     named_item_t *item;
 895     IDispatch *disp = NULL;
 896     HRESULT hres;
 897
 898     TRACE("(%p)->(%s %lx)\n", This, debugstr_w(pstrName), dwFlags);
 899
 900     if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
 901         return E_UNEXPECTED;
 902
 903     if(dwFlags & SCRIPTITEM_GLOBALMEMBERS) {
 904         IUnknown *unk;
 905
 906         hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
 907         if(FAILED(hres)) {
 908             WARN("GetItemInfo failed: %08lx\n", hres);
 909             return hres;
 910         }
 911
 912         hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
 913         IUnknown_Release(unk);
 914         if(FAILED(hres)) {
 915             WARN("object does not implement IDispatch\n");
 916             return hres;
 917         }
 918     }
 919
 920     item = malloc(sizeof(*item));
 921     if(!item) {
 922         if(disp)
 923             IDispatch_Release(disp);
 924         return E_OUTOFMEMORY;
 925     }
 926
 927     item->ref = 1;
 928     item->disp = disp;
 929     item->flags = dwFlags;
 930     item->script_obj = NULL;
 931     item->name = wcsdup(pstrName);
 932     if(!item->name) {
 933         if(disp)
 934             IDispatch_Release(disp);
 935         free(item);
 936         return E_OUTOFMEMORY;
 937     }
 938
 939     list_add_tail(&This->ctx->named_items, &item->entry);
 940     return S_OK;
 941 }
 942
 943 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
 944                                          DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
 945 {
 946     JScript *This = impl_from_IActiveScript(iface);
 947     FIXME("(%p)->()\n", This);
 948     return E_NOTIMPL;
 949 }
 950
 951 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
 952                                                 IDispatch **ppdisp)
 953 {
 954     JScript *This = impl_from_IActiveScript(iface);
 955     jsdisp_t *script_obj;
 956
 957     TRACE("(%p)->(%s %p)\n", This, debugstr_w(pstrItemName), ppdisp);
 958
 959     if(!ppdisp)
 960         return E_POINTER;
 961
 962     if(This->thread_id != GetCurrentThreadId() || !This->ctx->global) {
 963         *ppdisp = NULL;
 964         return E_UNEXPECTED;
 965     }
 966
 967     script_obj = This->ctx->global;
 968     if(pstrItemName) {
 969         named_item_t *item = lookup_named_item(This->ctx, pstrItemName, 0);
 970         if(!item) return E_INVALIDARG;
 971         if(item->script_obj) script_obj = item->script_obj;
 972     }
 973
 974     *ppdisp = to_disp(script_obj);
 975     IDispatch_AddRef(*ppdisp);
 976     return S_OK;
 977 }
 978
 979 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
 980                                                        SCRIPTTHREADID *pstridThread)
 981 {
 982     JScript *This = impl_from_IActiveScript(iface);
 983     FIXME("(%p)->()\n", This);
 984     return E_NOTIMPL;
 985 }
 986
 987 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
 988                                                 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
 989 {
 990     JScript *This = impl_from_IActiveScript(iface);
 991     FIXME("(%p)->()\n", This);
 992     return E_NOTIMPL;
 993 }
 994
 995 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
 996         SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
 997 {
 998     JScript *This = impl_from_IActiveScript(iface);
 999     FIXME("(%p)->()\n", This);
1000     return E_NOTIMPL;
1001 }
1002
1003 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
1004         SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
1005 {
1006     JScript *This = impl_from_IActiveScript(iface);
1007     FIXME("(%p)->()\n", This);
1008     return E_NOTIMPL;
1009 }
1010
1011 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
1012 {
1013     JScript *This = impl_from_IActiveScript(iface);
1014     FIXME("(%p)->()\n", This);
1015     return E_NOTIMPL;
1016 }
1017
1018 static const IActiveScriptVtbl JScriptVtbl = {
1019     JScript_QueryInterface,
1020     JScript_AddRef,
1021     JScript_Release,
1022     JScript_SetScriptSite,
1023     JScript_GetScriptSite,
1024     JScript_SetScriptState,
1025     JScript_GetScriptState,
1026     JScript_Close,
1027     JScript_AddNamedItem,
1028     JScript_AddTypeLib,
1029     JScript_GetScriptDispatch,
1030     JScript_GetCurrentScriptThreadID,
1031     JScript_GetScriptThreadID,
1032     JScript_GetScriptThreadState,
1033     JScript_InterruptScriptThread,
1034     JScript_Clone
1035 };
1036
1037 static inline JScript *impl_from_IActiveScriptParse(IActiveScriptParse *iface)
1038 {
1039     return CONTAINING_RECORD(iface, JScript, IActiveScriptParse_iface);
1040 }
1041
1042 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
1043 {
1044     JScript *This = impl_from_IActiveScriptParse(iface);
1045     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
1046 }
1047
1048 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
1049 {
1050     JScript *This = impl_from_IActiveScriptParse(iface);
1051     return IActiveScript_AddRef(&This->IActiveScript_iface);
1052 }
1053
1054 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
1055 {
1056     JScript *This = impl_from_IActiveScriptParse(iface);
1057     return IActiveScript_Release(&This->IActiveScript_iface);
1058 }
1059
1060 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
1061 {
1062     JScript *This = impl_from_IActiveScriptParse(iface);
1063
1064     TRACE("(%p)\n", This);
1065
1066     if(This->is_initialized)
1067         return E_UNEXPECTED;
1068     This->is_initialized = TRUE;
1069
1070     if(This->site)
1071         change_state(This, SCRIPTSTATE_INITIALIZED);
1072     return S_OK;
1073 }
1074
1075 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
1076         LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
1077         LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
1078         CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
1079         BSTR *pbstrName, EXCEPINFO *pexcepinfo)
1080 {
1081     JScript *This = impl_from_IActiveScriptParse(iface);
1082     FIXME("(%p)->(%s %s %s %s %s %s %s %lu %lx %p %p)\n", This, debugstr_w(pstrDefaultName),
1083           debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
1084           debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), wine_dbgstr_longlong(dwSourceContextCookie),
1085           ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
1086     return E_NOTIMPL;
1087 }
1088
1089 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
1090         LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
1091         LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine,
1092         DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
1093 {
1094     JScript *This = impl_from_IActiveScriptParse(iface);
1095     named_item_t *item = NULL;
1096     bytecode_t *code;
1097     jsexcept_t ei;
1098     HRESULT hres;
1099
1100     TRACE("(%p)->(%s %s %p %s %s %lu %lx %p %p)\n", This, debugstr_w(pstrCode),
1101           debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
1102           wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
1103
1104     if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
1105         return E_UNEXPECTED;
1106
1107     if(pstrItemName) {
1108         item = lookup_named_item(This->ctx, pstrItemName, 0);
1109         if(!item) {
1110             WARN("Unknown context %s\n", debugstr_w(pstrItemName));
1111             return E_INVALIDARG;
1112         }
1113         if(!item->script_obj) item = NULL;
1114     }
1115
1116     enter_script(This->ctx, &ei);
1117     hres = compile_script(This->ctx, pstrCode, dwSourceContextCookie, ulStartingLine, NULL, pstrDelimiter,
1118             (dwFlags & SCRIPTTEXT_ISEXPRESSION) != 0, This->is_encode, item, &code);
1119     if(FAILED(hres))
1120         return leave_script(This->ctx, hres);
1121
1122     if(dwFlags & SCRIPTTEXT_ISEXPRESSION) {
1123         jsval_t r;
1124
1125         hres = exec_global_code(This->ctx, code, &r);
1126         if(SUCCEEDED(hres)) {
1127             if(pvarResult)
1128                 hres = jsval_to_variant(r, pvarResult);
1129             jsval_release(r);
1130         }
1131
1132         return leave_script(This->ctx, hres);
1133     }
1134
1135     code->is_persistent = (dwFlags & SCRIPTTEXT_ISPERSISTENT) != 0;
1136
1137     /*
1138      * Although pvarResult is not really used without SCRIPTTEXT_ISEXPRESSION flag, if it's not NULL,
1139      * script is executed immediately, even if it's not in started state yet.
1140      */
1141     if(!pvarResult && !is_started(This->ctx)) {
1142         list_add_tail(&This->queued_code, &code->entry);
1143     }else {
1144         hres = exec_global_code(This->ctx, code, NULL);
1145         if(code->is_persistent)
1146             list_add_tail(&This->persistent_code, &code->entry);
1147         else
1148             release_bytecode(code);
1149     }
1150
1151     if(FAILED(hres = leave_script(This->ctx, hres)))
1152         return hres;
1153
1154     if(pvarResult)
1155         V_VT(pvarResult) = VT_EMPTY;
1156     return S_OK;
1157 }
1158
1159 static const IActiveScriptParseVtbl JScriptParseVtbl = {
1160     JScriptParse_QueryInterface,
1161     JScriptParse_AddRef,
1162     JScriptParse_Release,
1163     JScriptParse_InitNew,
1164     JScriptParse_AddScriptlet,
1165     JScriptParse_ParseScriptText
1166 };
1167
1168 static inline JScript *impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2 *iface)
1169 {
1170     return CONTAINING_RECORD(iface, JScript, IActiveScriptParseProcedure2_iface);
1171 }
1172
1173 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
1174 {
1175     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
1176     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
1177 }
1178
1179 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
1180 {
1181     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
1182     return IActiveScript_AddRef(&This->IActiveScript_iface);
1183 }
1184
1185 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
1186 {
1187     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
1188     return IActiveScript_Release(&This->IActiveScript_iface);
1189 }
1190
1191 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
1192         LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
1193         LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
1194         CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
1195 {
1196     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
1197     named_item_t *item = NULL;
1198     bytecode_t *code;
1199     jsdisp_t *dispex;
1200     jsexcept_t ei;
1201     HRESULT hres;
1202
1203     TRACE("(%p)->(%s %s %s %s %p %s %s %lu %lx %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
1204           debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
1205           wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLineNumber, dwFlags, ppdisp);
1206
1207     if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
1208         return E_UNEXPECTED;
1209
1210     if(pstrItemName) {
1211         item = lookup_named_item(This->ctx, pstrItemName, 0);
1212         if(!item) {
1213             WARN("Unknown context %s\n", debugstr_w(pstrItemName));
1214             return E_INVALIDARG;
1215         }
1216         if(!item->script_obj) item = NULL;
1217     }
1218
1219     enter_script(This->ctx, &ei);
1220     hres = compile_script(This->ctx, pstrCode, dwSourceContextCookie, ulStartingLineNumber, pstrFormalParams,
1221                           pstrDelimiter, FALSE, This->is_encode, item, &code);
1222     if(FAILED(hres))
1223         return leave_script(This->ctx, hres);
1224
1225     hres = create_source_function(This->ctx, code, &code->global_code, NULL, &dispex);
1226     release_bytecode(code);
1227
1228     hres = leave_script(This->ctx, hres);
1229     if(FAILED(hres))
1230         return hres;
1231
1232     *ppdisp = to_disp(dispex);
1233     return S_OK;
1234 }
1235
1236 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
1237     JScriptParseProcedure_QueryInterface,
1238     JScriptParseProcedure_AddRef,
1239     JScriptParseProcedure_Release,
1240     JScriptParseProcedure_ParseProcedureText,
1241 };
1242
1243 static inline JScript *impl_from_IActiveScriptProperty(IActiveScriptProperty *iface)
1244 {
1245     return CONTAINING_RECORD(iface, JScript, IActiveScriptProperty_iface);
1246 }
1247
1248 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
1249 {
1250     JScript *This = impl_from_IActiveScriptProperty(iface);
1251     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
1252 }
1253
1254 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
1255 {
1256     JScript *This = impl_from_IActiveScriptProperty(iface);
1257     return IActiveScript_AddRef(&This->IActiveScript_iface);
1258 }
1259
1260 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
1261 {
1262     JScript *This = impl_from_IActiveScriptProperty(iface);
1263     return IActiveScript_Release(&This->IActiveScript_iface);
1264 }
1265
1266 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
1267         VARIANT *pvarIndex, VARIANT *pvarValue)
1268 {
1269     JScript *This = impl_from_IActiveScriptProperty(iface);
1270     FIXME("(%p)->(%lx %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
1271     return E_NOTIMPL;
1272 }
1273
1274 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
1275         VARIANT *pvarIndex, VARIANT *pvarValue)
1276 {
1277     JScript *This = impl_from_IActiveScriptProperty(iface);
1278
1279     TRACE("(%p)->(%lx %s %s)\n", This, dwProperty, debugstr_variant(pvarIndex), debugstr_variant(pvarValue));
1280
1281     if(pvarIndex)
1282         FIXME("unsupported pvarIndex\n");
1283
1284     switch(dwProperty) {
1285     case SCRIPTPROP_INVOKEVERSIONING:
1286         if(V_VT(pvarValue) != VT_I4 || V_I4(pvarValue) < 0
1287            || (V_I4(pvarValue) > 15 && !(V_I4(pvarValue) & SCRIPTLANGUAGEVERSION_HTML))) {
1288             WARN("invalid value %s\n", debugstr_variant(pvarValue));
1289             return E_INVALIDARG;
1290         }
1291
1292         This->version = V_I4(pvarValue) & 0x1ff;
1293         This->html_mode = (V_I4(pvarValue) & SCRIPTLANGUAGEVERSION_HTML) != 0;
1294         break;
1295     default:
1296         FIXME("Unimplemented property %lx\n", dwProperty);
1297         return E_NOTIMPL;
1298     }
1299
1300     return S_OK;
1301 }
1302
1303 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
1304     JScriptProperty_QueryInterface,
1305     JScriptProperty_AddRef,
1306     JScriptProperty_Release,
1307     JScriptProperty_GetProperty,
1308     JScriptProperty_SetProperty
1309 };
1310
1311 static inline JScript *impl_from_IObjectSafety(IObjectSafety *iface)
1312 {
1313     return CONTAINING_RECORD(iface, JScript, IObjectSafety_iface);
1314 }
1315
1316 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
1317 {
1318     JScript *This = impl_from_IObjectSafety(iface);
1319     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
1320 }
1321
1322 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
1323 {
1324     JScript *This = impl_from_IObjectSafety(iface);
1325     return IActiveScript_AddRef(&This->IActiveScript_iface);
1326 }
1327
1328 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
1329 {
1330     JScript *This = impl_from_IObjectSafety(iface);
1331     return IActiveScript_Release(&This->IActiveScript_iface);
1332 }
1333
1334 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
1335
1336 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
1337         DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
1338 {
1339     JScript *This = impl_from_IObjectSafety(iface);
1340
1341     TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
1342
1343     if(!pdwSupportedOptions || !pdwEnabledOptions)
1344         return E_POINTER;
1345
1346     *pdwSupportedOptions = SUPPORTED_OPTIONS;
1347     *pdwEnabledOptions = This->safeopt;
1348
1349     return S_OK;
1350 }
1351
1352 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
1353         DWORD dwOptionSetMask, DWORD dwEnabledOptions)
1354 {
1355     JScript *This = impl_from_IObjectSafety(iface);
1356
1357     TRACE("(%p)->(%s %lx %lx)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
1358
1359     if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
1360         return E_FAIL;
1361
1362     This->safeopt = (dwEnabledOptions & dwOptionSetMask) | (This->safeopt & ~dwOptionSetMask) | INTERFACE_USES_DISPEX;
1363     return S_OK;
1364 }
1365
1366 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
1367     JScriptSafety_QueryInterface,
1368     JScriptSafety_AddRef,
1369     JScriptSafety_Release,
1370     JScriptSafety_GetInterfaceSafetyOptions,
1371     JScriptSafety_SetInterfaceSafetyOptions
1372 };
1373
1374 static inline JScript *impl_from_IVariantChangeType(IVariantChangeType *iface)
1375 {
1376     return CONTAINING_RECORD(iface, JScript, IVariantChangeType_iface);
1377 }
1378
1379 static HRESULT WINAPI VariantChangeType_QueryInterface(IVariantChangeType *iface, REFIID riid, void **ppv)
1380 {
1381     JScript *This = impl_from_IVariantChangeType(iface);
1382     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
1383 }
1384
1385 static ULONG WINAPI VariantChangeType_AddRef(IVariantChangeType *iface)
1386 {
1387     JScript *This = impl_from_IVariantChangeType(iface);
1388     return IActiveScript_AddRef(&This->IActiveScript_iface);
1389 }
1390
1391 static ULONG WINAPI VariantChangeType_Release(IVariantChangeType *iface)
1392 {
1393     JScript *This = impl_from_IVariantChangeType(iface);
1394     return IActiveScript_Release(&This->IActiveScript_iface);
1395 }
1396
1397 static HRESULT WINAPI VariantChangeType_ChangeType(IVariantChangeType *iface, VARIANT *dst, VARIANT *src, LCID lcid, VARTYPE vt)
1398 {
1399     JScript *This = impl_from_IVariantChangeType(iface);
1400     jsexcept_t ei;
1401     VARIANT res;
1402     HRESULT hres;
1403
1404     TRACE("(%p)->(%p %s %lx %s)\n", This, dst, debugstr_variant(src), lcid, debugstr_vt(vt));
1405
1406     if(!This->ctx) {
1407         FIXME("Object uninitialized\n");
1408         return E_UNEXPECTED;
1409     }
1410
1411     enter_script(This->ctx, &ei);
1412     hres = variant_change_type(This->ctx, &res, src, vt);
1413     hres = leave_script(This->ctx, hres);
1414     if(FAILED(hres))
1415         return hres;
1416
1417     hres = VariantClear(dst);
1418     if(FAILED(hres)) {
1419         VariantClear(&res);
1420         return hres;
1421     }
1422
1423     *dst = res;
1424     return S_OK;
1425 }
1426
1427 static const IVariantChangeTypeVtbl VariantChangeTypeVtbl = {
1428     VariantChangeType_QueryInterface,
1429     VariantChangeType_AddRef,
1430     VariantChangeType_Release,
1431     VariantChangeType_ChangeType
1432 };
1433
1434 HRESULT create_jscript_object(BOOL is_encode, REFIID riid, void **ppv)
1435 {
1436     JScript *ret;
1437     HRESULT hres;
1438
1439     ret = calloc(1, sizeof(*ret));
1440     if(!ret)
1441         return E_OUTOFMEMORY;
1442
1443     lock_module();
1444
1445     ret->IActiveScript_iface.lpVtbl = &JScriptVtbl;
1446     ret->IActiveScriptParse_iface.lpVtbl = &JScriptParseVtbl;
1447     ret->IActiveScriptParseProcedure2_iface.lpVtbl = &JScriptParseProcedureVtbl;
1448     ret->IActiveScriptProperty_iface.lpVtbl = &JScriptPropertyVtbl;
1449     ret->IObjectSafety_iface.lpVtbl = &JScriptSafetyVtbl;
1450     ret->IVariantChangeType_iface.lpVtbl = &VariantChangeTypeVtbl;
1451     ret->ref = 1;
1452     ret->safeopt = INTERFACE_USES_DISPEX;
1453     ret->is_encode = is_encode;
1454     list_init(&ret->persistent_code);
1455     list_init(&ret->queued_code);
1456
1457     hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
1458     IActiveScript_Release(&ret->IActiveScript_iface);
1459     return hres;
1460 }