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