git.oblomov.eu Git - wine/blob - 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 "jscript.h"
  20 #include "engine.h"
  21 #include "objsafe.h"
  22
  23 #include "wine/debug.h"
  24
  25 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  26
  27 #ifdef _WIN64
  28
  29 #define CTXARG_T DWORDLONG
  30 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
  31 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
  32
  33 #else
  34
  35 #define CTXARG_T DWORD
  36 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
  37 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
  38
  39 #endif
  40
  41 typedef struct {
  42     IActiveScript                IActiveScript_iface;
  43     IActiveScriptParse           IActiveScriptParse_iface;
  44     IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface;
  45     IActiveScriptProperty        IActiveScriptProperty_iface;
  46     IObjectSafety                IObjectSafety_iface;
  47
  48     LONG ref;
  49
  50     DWORD safeopt;
  51     script_ctx_t *ctx;
  52     LONG thread_id;
  53     LCID lcid;
  54     DWORD version;
  55
  56     IActiveScriptSite *site;
  57
  58     parser_ctx_t *queue_head;
  59     parser_ctx_t *queue_tail;
  60 } JScript;
  61
  62 void script_release(script_ctx_t *ctx)
  63 {
  64     if(--ctx->ref)
  65         return;
  66
  67     if(ctx->cc)
  68         release_cc(ctx->cc);
  69     jsheap_free(&ctx->tmp_heap);
  70     SysFreeString(ctx->last_match);
  71     heap_free(ctx);
  72 }
  73
  74 static void change_state(JScript *This, SCRIPTSTATE state)
  75 {
  76     if(This->ctx->state == state)
  77         return;
  78
  79     This->ctx->state = state;
  80     IActiveScriptSite_OnStateChange(This->site, state);
  81 }
  82
  83 static inline BOOL is_started(script_ctx_t *ctx)
  84 {
  85     return ctx->state == SCRIPTSTATE_STARTED
  86         || ctx->state == SCRIPTSTATE_CONNECTED
  87         || ctx->state == SCRIPTSTATE_DISCONNECTED;
  88 }
  89
  90 static HRESULT exec_global_code(JScript *This, parser_ctx_t *parser_ctx)
  91 {
  92     exec_ctx_t *exec_ctx;
  93     jsexcept_t jsexcept;
  94     HRESULT hres;
  95
  96     hres = create_exec_ctx(This->ctx, NULL, This->ctx->global, NULL, TRUE, &exec_ctx);
  97     if(FAILED(hres))
  98         return hres;
  99
 100     IActiveScriptSite_OnEnterScript(This->site);
 101
 102     memset(&jsexcept, 0, sizeof(jsexcept));
 103     hres = exec_source(exec_ctx, parser_ctx, parser_ctx->source, FALSE, &jsexcept, NULL);
 104     VariantClear(&jsexcept.var);
 105     exec_release(exec_ctx);
 106
 107     IActiveScriptSite_OnLeaveScript(This->site);
 108     return hres;
 109 }
 110
 111 static void clear_script_queue(JScript *This)
 112 {
 113     parser_ctx_t *iter, *iter2;
 114
 115     if(!This->queue_head)
 116         return;
 117
 118     iter = This->queue_head;
 119     while(iter) {
 120         iter2 = iter->next;
 121         iter->next = NULL;
 122         parser_release(iter);
 123         iter = iter2;
 124     }
 125
 126     This->queue_head = This->queue_tail = NULL;
 127 }
 128
 129 static void exec_queued_code(JScript *This)
 130 {
 131     parser_ctx_t *iter;
 132
 133     for(iter = This->queue_head; iter; iter = iter->next)
 134         exec_global_code(This, iter);
 135
 136     clear_script_queue(This);
 137 }
 138
 139 static HRESULT set_ctx_site(JScript *This)
 140 {
 141     HRESULT hres;
 142
 143     This->ctx->lcid = This->lcid;
 144
 145     hres = init_global(This->ctx);
 146     if(FAILED(hres))
 147         return hres;
 148
 149     IActiveScriptSite_AddRef(This->site);
 150     This->ctx->site = This->site;
 151
 152     change_state(This, SCRIPTSTATE_INITIALIZED);
 153     return S_OK;
 154 }
 155
 156 typedef struct {
 157     IServiceProvider IServiceProvider_iface;
 158
 159     LONG ref;
 160
 161     IServiceProvider *sp;
 162 } AXSite;
 163
 164 static inline AXSite *impl_from_IServiceProvider(IServiceProvider *iface)
 165 {
 166     return CONTAINING_RECORD(iface, AXSite, IServiceProvider_iface);
 167 }
 168
 169 static HRESULT WINAPI AXSite_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
 170 {
 171     AXSite *This = impl_from_IServiceProvider(iface);
 172
 173     if(IsEqualGUID(&IID_IUnknown, riid)) {
 174         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 175         *ppv = &This->IServiceProvider_iface;
 176     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 177         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 178         *ppv = &This->IServiceProvider_iface;
 179     }else {
 180         TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 181         *ppv = NULL;
 182         return E_NOINTERFACE;
 183     }
 184
 185     IUnknown_AddRef((IUnknown*)*ppv);
 186     return S_OK;
 187 }
 188
 189 static ULONG WINAPI AXSite_AddRef(IServiceProvider *iface)
 190 {
 191     AXSite *This = impl_from_IServiceProvider(iface);
 192     LONG ref = InterlockedIncrement(&This->ref);
 193
 194     TRACE("(%p) ref=%d\n", This, ref);
 195
 196     return ref;
 197 }
 198
 199 static ULONG WINAPI AXSite_Release(IServiceProvider *iface)
 200 {
 201     AXSite *This = impl_from_IServiceProvider(iface);
 202     LONG ref = InterlockedDecrement(&This->ref);
 203
 204     TRACE("(%p) ref=%d\n", This, ref);
 205
 206     if(!ref)
 207         heap_free(This);
 208
 209     return ref;
 210 }
 211
 212 static HRESULT WINAPI AXSite_QueryService(IServiceProvider *iface,
 213         REFGUID guidService, REFIID riid, void **ppv)
 214 {
 215     AXSite *This = impl_from_IServiceProvider(iface);
 216
 217     TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 218
 219     return IServiceProvider_QueryService(This->sp, guidService, riid, ppv);
 220 }
 221
 222 static IServiceProviderVtbl AXSiteVtbl = {
 223     AXSite_QueryInterface,
 224     AXSite_AddRef,
 225     AXSite_Release,
 226     AXSite_QueryService
 227 };
 228
 229 IUnknown *create_ax_site(script_ctx_t *ctx)
 230 {
 231     IServiceProvider *sp;
 232     AXSite *ret;
 233     HRESULT hres;
 234
 235     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
 236     if(FAILED(hres)) {
 237         ERR("Could not get IServiceProvider iface: %08x\n", hres);
 238         return NULL;
 239     }
 240
 241     ret = heap_alloc(sizeof(AXSite));
 242     if(!ret) {
 243         IServiceProvider_Release(sp);
 244         return NULL;
 245     }
 246
 247     ret->IServiceProvider_iface.lpVtbl = &AXSiteVtbl;
 248     ret->ref = 1;
 249     ret->sp = sp;
 250
 251     return (IUnknown*)&ret->IServiceProvider_iface;
 252 }
 253
 254 static inline JScript *impl_from_IActiveScript(IActiveScript *iface)
 255 {
 256     return CONTAINING_RECORD(iface, JScript, IActiveScript_iface);
 257 }
 258
 259 static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
 260 {
 261     JScript *This = impl_from_IActiveScript(iface);
 262
 263     *ppv = NULL;
 264
 265     if(IsEqualGUID(riid, &IID_IUnknown)) {
 266         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 267         *ppv = &This->IActiveScript_iface;
 268     }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
 269         TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
 270         *ppv = &This->IActiveScript_iface;
 271     }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
 272         TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
 273         *ppv = &This->IActiveScriptParse_iface;
 274     }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
 275         TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
 276         *ppv = &This->IActiveScriptParseProcedure2_iface;
 277     }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
 278         TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
 279         *ppv = &This->IActiveScriptParseProcedure2_iface;
 280     }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
 281         TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
 282         *ppv = &This->IActiveScriptProperty_iface;
 283     }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
 284         TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
 285         *ppv = &This->IObjectSafety_iface;
 286     }
 287
 288     if(*ppv) {
 289         IUnknown_AddRef((IUnknown*)*ppv);
 290         return S_OK;
 291     }
 292
 293     FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 294     return E_NOINTERFACE;
 295 }
 296
 297 static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
 298 {
 299     JScript *This = impl_from_IActiveScript(iface);
 300     LONG ref = InterlockedIncrement(&This->ref);
 301
 302     TRACE("(%p) ref=%d\n", This, ref);
 303
 304     return ref;
 305 }
 306
 307 static ULONG WINAPI JScript_Release(IActiveScript *iface)
 308 {
 309     JScript *This = impl_from_IActiveScript(iface);
 310     LONG ref = InterlockedDecrement(&This->ref);
 311
 312     TRACE("(%p) ref=%d\n", iface, ref);
 313
 314     if(!ref) {
 315         if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
 316             IActiveScript_Close(&This->IActiveScript_iface);
 317         if(This->ctx)
 318             script_release(This->ctx);
 319         heap_free(This);
 320         unlock_module();
 321     }
 322
 323     return ref;
 324 }
 325
 326 static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
 327                                             IActiveScriptSite *pass)
 328 {
 329     JScript *This = impl_from_IActiveScript(iface);
 330     LCID lcid;
 331     HRESULT hres;
 332
 333     TRACE("(%p)->(%p)\n", This, pass);
 334
 335     if(!pass)
 336         return E_POINTER;
 337
 338     if(This->site)
 339         return E_UNEXPECTED;
 340
 341     if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
 342         return E_UNEXPECTED;
 343
 344     This->site = pass;
 345     IActiveScriptSite_AddRef(This->site);
 346
 347     hres = IActiveScriptSite_GetLCID(This->site, &lcid);
 348     if(hres == S_OK)
 349         This->lcid = lcid;
 350
 351     return This->ctx ? set_ctx_site(This) : S_OK;
 352 }
 353
 354 static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
 355                                             void **ppvObject)
 356 {
 357     JScript *This = impl_from_IActiveScript(iface);
 358     FIXME("(%p)->()\n", This);
 359     return E_NOTIMPL;
 360 }
 361
 362 static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
 363 {
 364     JScript *This = impl_from_IActiveScript(iface);
 365
 366     TRACE("(%p)->(%d)\n", This, ss);
 367
 368     if(!This->ctx || GetCurrentThreadId() != This->thread_id)
 369         return E_UNEXPECTED;
 370
 371     switch(ss) {
 372     case SCRIPTSTATE_STARTED:
 373     case SCRIPTSTATE_CONNECTED: /* FIXME */
 374         if(This->ctx->state == SCRIPTSTATE_CLOSED)
 375             return E_UNEXPECTED;
 376
 377         exec_queued_code(This);
 378         break;
 379     case SCRIPTSTATE_INITIALIZED:
 380         FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
 381         return S_OK;
 382     default:
 383         FIXME("unimplemented state %d\n", ss);
 384         return E_NOTIMPL;
 385     }
 386
 387     change_state(This, ss);
 388     return S_OK;
 389 }
 390
 391 static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
 392 {
 393     JScript *This = impl_from_IActiveScript(iface);
 394
 395     TRACE("(%p)->(%p)\n", This, pssState);
 396
 397     if(!pssState)
 398         return E_POINTER;
 399
 400     if(!This->thread_id) {
 401         *pssState = SCRIPTSTATE_UNINITIALIZED;
 402         return S_OK;
 403     }
 404
 405     if(This->thread_id != GetCurrentThreadId())
 406         return E_UNEXPECTED;
 407
 408     *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
 409     return S_OK;
 410 }
 411
 412 static HRESULT WINAPI JScript_Close(IActiveScript *iface)
 413 {
 414     JScript *This = impl_from_IActiveScript(iface);
 415
 416     TRACE("(%p)->()\n", This);
 417
 418     if(This->thread_id != GetCurrentThreadId())
 419         return E_UNEXPECTED;
 420
 421     if(This->ctx) {
 422         if(This->ctx->state == SCRIPTSTATE_CONNECTED)
 423             change_state(This, SCRIPTSTATE_DISCONNECTED);
 424
 425         clear_script_queue(This);
 426
 427         if(This->ctx->state == SCRIPTSTATE_DISCONNECTED)
 428             change_state(This, SCRIPTSTATE_INITIALIZED);
 429
 430         if(This->ctx->host_global) {
 431             IDispatch_Release(This->ctx->host_global);
 432             This->ctx->host_global = NULL;
 433         }
 434
 435         if(This->ctx->named_items) {
 436             named_item_t *iter, *iter2;
 437
 438             iter = This->ctx->named_items;
 439             while(iter) {
 440                 iter2 = iter->next;
 441
 442                 if(iter->disp)
 443                     IDispatch_Release(iter->disp);
 444                 heap_free(iter->name);
 445                 heap_free(iter);
 446                 iter = iter2;
 447             }
 448
 449             This->ctx->named_items = NULL;
 450         }
 451
 452         if(This->ctx->secmgr) {
 453             IInternetHostSecurityManager_Release(This->ctx->secmgr);
 454             This->ctx->secmgr = NULL;
 455         }
 456
 457         if(This->ctx->site) {
 458             IActiveScriptSite_Release(This->ctx->site);
 459             This->ctx->site = NULL;
 460         }
 461
 462         if (This->site)
 463             change_state(This, SCRIPTSTATE_CLOSED);
 464
 465         if(This->ctx->global) {
 466             jsdisp_release(This->ctx->global);
 467             This->ctx->global = NULL;
 468         }
 469     }
 470
 471     if(This->site) {
 472         IActiveScriptSite_Release(This->site);
 473         This->site = NULL;
 474     }
 475
 476     return S_OK;
 477 }
 478
 479 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
 480                                            LPCOLESTR pstrName, DWORD dwFlags)
 481 {
 482     JScript *This = impl_from_IActiveScript(iface);
 483     named_item_t *item;
 484     IDispatch *disp = NULL;
 485     HRESULT hres;
 486
 487     TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
 488
 489     if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
 490         return E_UNEXPECTED;
 491
 492     if(dwFlags & SCRIPTITEM_GLOBALMEMBERS) {
 493         IUnknown *unk;
 494
 495         hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
 496         if(FAILED(hres)) {
 497             WARN("GetItemInfo failed: %08x\n", hres);
 498             return hres;
 499         }
 500
 501         hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
 502         IUnknown_Release(unk);
 503         if(FAILED(hres)) {
 504             WARN("object does not implement IDispatch\n");
 505             return hres;
 506         }
 507
 508         if(This->ctx->host_global)
 509             IDispatch_Release(This->ctx->host_global);
 510         IDispatch_AddRef(disp);
 511         This->ctx->host_global = disp;
 512     }
 513
 514     item = heap_alloc(sizeof(*item));
 515     if(!item) {
 516         if(disp)
 517             IDispatch_Release(disp);
 518         return E_OUTOFMEMORY;
 519     }
 520
 521     item->disp = disp;
 522     item->flags = dwFlags;
 523     item->name = heap_strdupW(pstrName);
 524     if(!item->name) {
 525         if(disp)
 526             IDispatch_Release(disp);
 527         heap_free(item);
 528         return E_OUTOFMEMORY;
 529     }
 530
 531     item->next = This->ctx->named_items;
 532     This->ctx->named_items = item;
 533
 534     return S_OK;
 535 }
 536
 537 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
 538                                          DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
 539 {
 540     JScript *This = impl_from_IActiveScript(iface);
 541     FIXME("(%p)->()\n", This);
 542     return E_NOTIMPL;
 543 }
 544
 545 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
 546                                                 IDispatch **ppdisp)
 547 {
 548     JScript *This = impl_from_IActiveScript(iface);
 549
 550     TRACE("(%p)->(%p)\n", This, ppdisp);
 551
 552     if(!ppdisp)
 553         return E_POINTER;
 554
 555     if(This->thread_id != GetCurrentThreadId() || !This->ctx->global) {
 556         *ppdisp = NULL;
 557         return E_UNEXPECTED;
 558     }
 559
 560     *ppdisp = to_disp(This->ctx->global);
 561     IDispatch_AddRef(*ppdisp);
 562     return S_OK;
 563 }
 564
 565 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
 566                                                        SCRIPTTHREADID *pstridThread)
 567 {
 568     JScript *This = impl_from_IActiveScript(iface);
 569     FIXME("(%p)->()\n", This);
 570     return E_NOTIMPL;
 571 }
 572
 573 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
 574                                                 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
 575 {
 576     JScript *This = impl_from_IActiveScript(iface);
 577     FIXME("(%p)->()\n", This);
 578     return E_NOTIMPL;
 579 }
 580
 581 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
 582         SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
 583 {
 584     JScript *This = impl_from_IActiveScript(iface);
 585     FIXME("(%p)->()\n", This);
 586     return E_NOTIMPL;
 587 }
 588
 589 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
 590         SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
 591 {
 592     JScript *This = impl_from_IActiveScript(iface);
 593     FIXME("(%p)->()\n", This);
 594     return E_NOTIMPL;
 595 }
 596
 597 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
 598 {
 599     JScript *This = impl_from_IActiveScript(iface);
 600     FIXME("(%p)->()\n", This);
 601     return E_NOTIMPL;
 602 }
 603
 604 static const IActiveScriptVtbl JScriptVtbl = {
 605     JScript_QueryInterface,
 606     JScript_AddRef,
 607     JScript_Release,
 608     JScript_SetScriptSite,
 609     JScript_GetScriptSite,
 610     JScript_SetScriptState,
 611     JScript_GetScriptState,
 612     JScript_Close,
 613     JScript_AddNamedItem,
 614     JScript_AddTypeLib,
 615     JScript_GetScriptDispatch,
 616     JScript_GetCurrentScriptThreadID,
 617     JScript_GetScriptThreadID,
 618     JScript_GetScriptThreadState,
 619     JScript_InterruptScriptThread,
 620     JScript_Clone
 621 };
 622
 623 static inline JScript *impl_from_IActiveScriptParse(IActiveScriptParse *iface)
 624 {
 625     return CONTAINING_RECORD(iface, JScript, IActiveScriptParse_iface);
 626 }
 627
 628 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
 629 {
 630     JScript *This = impl_from_IActiveScriptParse(iface);
 631     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
 632 }
 633
 634 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
 635 {
 636     JScript *This = impl_from_IActiveScriptParse(iface);
 637     return IActiveScript_AddRef(&This->IActiveScript_iface);
 638 }
 639
 640 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
 641 {
 642     JScript *This = impl_from_IActiveScriptParse(iface);
 643     return IActiveScript_Release(&This->IActiveScript_iface);
 644 }
 645
 646 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
 647 {
 648     JScript *This = impl_from_IActiveScriptParse(iface);
 649     script_ctx_t *ctx;
 650
 651     TRACE("(%p)\n", This);
 652
 653     if(This->ctx)
 654         return E_UNEXPECTED;
 655
 656     ctx = heap_alloc_zero(sizeof(script_ctx_t));
 657     if(!ctx)
 658         return E_OUTOFMEMORY;
 659
 660     ctx->ref = 1;
 661     ctx->state = SCRIPTSTATE_UNINITIALIZED;
 662     ctx->safeopt = This->safeopt;
 663     ctx->version = This->version;
 664     jsheap_init(&ctx->tmp_heap);
 665
 666     ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
 667     if(ctx) {
 668         script_release(ctx);
 669         return E_UNEXPECTED;
 670     }
 671
 672     return This->site ? set_ctx_site(This) : S_OK;
 673 }
 674
 675 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
 676         LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
 677         LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
 678         CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
 679         BSTR *pbstrName, EXCEPINFO *pexcepinfo)
 680 {
 681     JScript *This = impl_from_IActiveScriptParse(iface);
 682     FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
 683           debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
 684           debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), wine_dbgstr_longlong(dwSourceContextCookie),
 685           ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
 686     return E_NOTIMPL;
 687 }
 688
 689 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
 690         LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
 691         LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine,
 692         DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
 693 {
 694     JScript *This = impl_from_IActiveScriptParse(iface);
 695     parser_ctx_t *parser_ctx;
 696     HRESULT hres;
 697
 698     TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
 699           debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
 700           wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
 701
 702     if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
 703         return E_UNEXPECTED;
 704
 705     hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
 706     if(FAILED(hres))
 707         return hres;
 708
 709     if(!is_started(This->ctx)) {
 710         if(This->queue_tail)
 711             This->queue_tail = This->queue_tail->next = parser_ctx;
 712         else
 713             This->queue_head = This->queue_tail = parser_ctx;
 714         return S_OK;
 715     }
 716
 717     hres = exec_global_code(This, parser_ctx);
 718     parser_release(parser_ctx);
 719
 720     return hres;
 721 }
 722
 723 static const IActiveScriptParseVtbl JScriptParseVtbl = {
 724     JScriptParse_QueryInterface,
 725     JScriptParse_AddRef,
 726     JScriptParse_Release,
 727     JScriptParse_InitNew,
 728     JScriptParse_AddScriptlet,
 729     JScriptParse_ParseScriptText
 730 };
 731
 732 static inline JScript *impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2 *iface)
 733 {
 734     return CONTAINING_RECORD(iface, JScript, IActiveScriptParseProcedure2_iface);
 735 }
 736
 737 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
 738 {
 739     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
 740     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
 741 }
 742
 743 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
 744 {
 745     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
 746     return IActiveScript_AddRef(&This->IActiveScript_iface);
 747 }
 748
 749 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
 750 {
 751     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
 752     return IActiveScript_Release(&This->IActiveScript_iface);
 753 }
 754
 755 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
 756         LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
 757         LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
 758         CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
 759 {
 760     JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
 761     parser_ctx_t *parser_ctx;
 762     jsdisp_t *dispex;
 763     HRESULT hres;
 764
 765     TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
 766           debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
 767           wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLineNumber, dwFlags, ppdisp);
 768
 769     if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
 770         return E_UNEXPECTED;
 771
 772     hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
 773     if(FAILED(hres)) {
 774         WARN("Parse failed %08x\n", hres);
 775         return hres;
 776     }
 777
 778     hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
 779     parser_release(parser_ctx);
 780     if(FAILED(hres))
 781         return hres;
 782
 783     *ppdisp = to_disp(dispex);
 784     return S_OK;
 785 }
 786
 787 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
 788     JScriptParseProcedure_QueryInterface,
 789     JScriptParseProcedure_AddRef,
 790     JScriptParseProcedure_Release,
 791     JScriptParseProcedure_ParseProcedureText,
 792 };
 793
 794 static inline JScript *impl_from_IActiveScriptProperty(IActiveScriptProperty *iface)
 795 {
 796     return CONTAINING_RECORD(iface, JScript, IActiveScriptProperty_iface);
 797 }
 798
 799 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
 800 {
 801     JScript *This = impl_from_IActiveScriptProperty(iface);
 802     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
 803 }
 804
 805 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
 806 {
 807     JScript *This = impl_from_IActiveScriptProperty(iface);
 808     return IActiveScript_AddRef(&This->IActiveScript_iface);
 809 }
 810
 811 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
 812 {
 813     JScript *This = impl_from_IActiveScriptProperty(iface);
 814     return IActiveScript_Release(&This->IActiveScript_iface);
 815 }
 816
 817 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
 818         VARIANT *pvarIndex, VARIANT *pvarValue)
 819 {
 820     JScript *This = impl_from_IActiveScriptProperty(iface);
 821     FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
 822     return E_NOTIMPL;
 823 }
 824
 825 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
 826         VARIANT *pvarIndex, VARIANT *pvarValue)
 827 {
 828     JScript *This = impl_from_IActiveScriptProperty(iface);
 829
 830     TRACE("(%p)->(%x %s %s)\n", This, dwProperty, debugstr_variant(pvarIndex), debugstr_variant(pvarValue));
 831
 832     if(pvarIndex)
 833         FIXME("unsupported pvarIndex\n");
 834
 835     switch(dwProperty) {
 836     case SCRIPTPROP_INVOKEVERSIONING:
 837         if(V_VT(pvarValue) != VT_I4 || V_I4(pvarValue) < 0 || V_I4(pvarValue) > 15) {
 838             WARN("invalid value %s\n", debugstr_variant(pvarValue));
 839             return E_INVALIDARG;
 840         }
 841
 842         This->version = V_I4(pvarValue);
 843         break;
 844     default:
 845         FIXME("Unimplemented property %x\n", dwProperty);
 846         return E_NOTIMPL;
 847     }
 848
 849     return S_OK;
 850 }
 851
 852 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
 853     JScriptProperty_QueryInterface,
 854     JScriptProperty_AddRef,
 855     JScriptProperty_Release,
 856     JScriptProperty_GetProperty,
 857     JScriptProperty_SetProperty
 858 };
 859
 860 static inline JScript *impl_from_IObjectSafety(IObjectSafety *iface)
 861 {
 862     return CONTAINING_RECORD(iface, JScript, IObjectSafety_iface);
 863 }
 864
 865 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
 866 {
 867     JScript *This = impl_from_IObjectSafety(iface);
 868     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
 869 }
 870
 871 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
 872 {
 873     JScript *This = impl_from_IObjectSafety(iface);
 874     return IActiveScript_AddRef(&This->IActiveScript_iface);
 875 }
 876
 877 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
 878 {
 879     JScript *This = impl_from_IObjectSafety(iface);
 880     return IActiveScript_Release(&This->IActiveScript_iface);
 881 }
 882
 883 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
 884
 885 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
 886         DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
 887 {
 888     JScript *This = impl_from_IObjectSafety(iface);
 889
 890     TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
 891
 892     if(!pdwSupportedOptions || !pdwEnabledOptions)
 893         return E_POINTER;
 894
 895     *pdwSupportedOptions = SUPPORTED_OPTIONS;
 896     *pdwEnabledOptions = This->safeopt;
 897
 898     return S_OK;
 899 }
 900
 901 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
 902         DWORD dwOptionSetMask, DWORD dwEnabledOptions)
 903 {
 904     JScript *This = impl_from_IObjectSafety(iface);
 905
 906     TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
 907
 908     if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
 909         return E_FAIL;
 910
 911     This->safeopt = dwEnabledOptions & dwEnabledOptions;
 912     return S_OK;
 913 }
 914
 915 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
 916     JScriptSafety_QueryInterface,
 917     JScriptSafety_AddRef,
 918     JScriptSafety_Release,
 919     JScriptSafety_GetInterfaceSafetyOptions,
 920     JScriptSafety_SetInterfaceSafetyOptions
 921 };
 922
 923 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
 924                                              REFIID riid, void **ppv)
 925 {
 926     JScript *ret;
 927     HRESULT hres;
 928
 929     TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
 930
 931     lock_module();
 932
 933     ret = heap_alloc_zero(sizeof(*ret));
 934     if(!ret)
 935         return E_OUTOFMEMORY;
 936
 937     ret->IActiveScript_iface.lpVtbl = &JScriptVtbl;
 938     ret->IActiveScriptParse_iface.lpVtbl = &JScriptParseVtbl;
 939     ret->IActiveScriptParseProcedure2_iface.lpVtbl = &JScriptParseProcedureVtbl;
 940     ret->IActiveScriptProperty_iface.lpVtbl = &JScriptPropertyVtbl;
 941     ret->IObjectSafety_iface.lpVtbl = &JScriptSafetyVtbl;
 942     ret->ref = 1;
 943     ret->safeopt = INTERFACE_USES_DISPEX;
 944
 945     hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
 946     IActiveScript_Release(&ret->IActiveScript_iface);
 947     return hres;
 948 }