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