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