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