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