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