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