dlls/jscript/jscript.c

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