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