git.oblomov.eu Git - wine/blob - 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) {
 310         if(This->ctx->named_items) {
 311             named_item_t *iter, *iter2;
 312
 313             iter = This->ctx->named_items;
 314             while(iter) {
 315                 iter2 = iter->next;
 316
 317                 IDispatch_Release(iter->disp);
 318                 heap_free(iter);
 319                 iter = iter2;
 320             }
 321
 322             This->ctx->named_items = NULL;
 323         }
 324
 325         if (This->site)
 326             change_state(This, SCRIPTSTATE_CLOSED);
 327
 328         if(This->ctx->script_disp) {
 329             IDispatchEx_Release(_IDispatchEx_(This->ctx->script_disp));
 330             This->ctx->script_disp = NULL;
 331         }
 332
 333         if(This->ctx->global) {
 334             IDispatchEx_Release(_IDispatchEx_(This->ctx->global));
 335             This->ctx->global = NULL;
 336         }
 337     }
 338
 339     if(This->site) {
 340         IActiveScriptSite_Release(This->site);
 341         This->site = NULL;
 342     }
 343
 344     return S_OK;
 345 }
 346
 347 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
 348                                            LPCOLESTR pstrName, DWORD dwFlags)
 349 {
 350     JScript *This = ACTSCRIPT_THIS(iface);
 351     named_item_t *item;
 352     IDispatch *disp;
 353     IUnknown *unk;
 354     HRESULT hres;
 355
 356     TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
 357
 358     if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
 359         return E_UNEXPECTED;
 360
 361     hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
 362     if(FAILED(hres)) {
 363         WARN("GetItemInfo failed: %08x\n", hres);
 364         return hres;
 365     }
 366
 367     hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
 368     IUnknown_Release(unk);
 369     if(FAILED(hres)) {
 370         WARN("object does not implement IDispatch\n");
 371         return hres;
 372     }
 373
 374     item = heap_alloc(sizeof(*item));
 375     if(!item) {
 376         IDispatch_Release(disp);
 377         return E_OUTOFMEMORY;
 378     }
 379
 380     item->disp = disp;
 381     item->flags = dwFlags;
 382     item->next = This->ctx->named_items;
 383     This->ctx->named_items = item;
 384
 385     return S_OK;
 386 }
 387
 388 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
 389                                          DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
 390 {
 391     JScript *This = ACTSCRIPT_THIS(iface);
 392     FIXME("(%p)->()\n", This);
 393     return E_NOTIMPL;
 394 }
 395
 396 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
 397                                                 IDispatch **ppdisp)
 398 {
 399     JScript *This = ACTSCRIPT_THIS(iface);
 400
 401     TRACE("(%p)->(%p)\n", This, ppdisp);
 402
 403     if(!ppdisp)
 404         return E_POINTER;
 405
 406     if(This->thread_id != GetCurrentThreadId() || !This->ctx->script_disp) {
 407         *ppdisp = NULL;
 408         return E_UNEXPECTED;
 409     }
 410
 411     *ppdisp = (IDispatch*)_IDispatchEx_(This->ctx->script_disp);
 412     IDispatch_AddRef(*ppdisp);
 413     return S_OK;
 414 }
 415
 416 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
 417                                                        SCRIPTTHREADID *pstridThread)
 418 {
 419     JScript *This = ACTSCRIPT_THIS(iface);
 420     FIXME("(%p)->()\n", This);
 421     return E_NOTIMPL;
 422 }
 423
 424 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
 425                                                 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
 426 {
 427     JScript *This = ACTSCRIPT_THIS(iface);
 428     FIXME("(%p)->()\n", This);
 429     return E_NOTIMPL;
 430 }
 431
 432 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
 433         SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
 434 {
 435     JScript *This = ACTSCRIPT_THIS(iface);
 436     FIXME("(%p)->()\n", This);
 437     return E_NOTIMPL;
 438 }
 439
 440 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
 441         SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
 442 {
 443     JScript *This = ACTSCRIPT_THIS(iface);
 444     FIXME("(%p)->()\n", This);
 445     return E_NOTIMPL;
 446 }
 447
 448 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
 449 {
 450     JScript *This = ACTSCRIPT_THIS(iface);
 451     FIXME("(%p)->()\n", This);
 452     return E_NOTIMPL;
 453 }
 454
 455 #undef ACTSCRIPT_THIS
 456
 457 static const IActiveScriptVtbl JScriptVtbl = {
 458     JScript_QueryInterface,
 459     JScript_AddRef,
 460     JScript_Release,
 461     JScript_SetScriptSite,
 462     JScript_GetScriptSite,
 463     JScript_SetScriptState,
 464     JScript_GetScriptState,
 465     JScript_Close,
 466     JScript_AddNamedItem,
 467     JScript_AddTypeLib,
 468     JScript_GetScriptDispatch,
 469     JScript_GetCurrentScriptThreadID,
 470     JScript_GetScriptThreadID,
 471     JScript_GetScriptThreadState,
 472     JScript_InterruptScriptThread,
 473     JScript_Clone
 474 };
 475
 476 #define ASPARSE_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParse, iface)
 477
 478 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
 479 {
 480     JScript *This = ASPARSE_THIS(iface);
 481     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 482 }
 483
 484 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
 485 {
 486     JScript *This = ASPARSE_THIS(iface);
 487     return IActiveScript_AddRef(ACTSCRIPT(This));
 488 }
 489
 490 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
 491 {
 492     JScript *This = ASPARSE_THIS(iface);
 493     return IActiveScript_Release(ACTSCRIPT(This));
 494 }
 495
 496 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
 497 {
 498     JScript *This = ASPARSE_THIS(iface);
 499     script_ctx_t *ctx;
 500
 501     TRACE("(%p)\n", This);
 502
 503     if(This->ctx)
 504         return E_UNEXPECTED;
 505
 506     ctx = heap_alloc_zero(sizeof(script_ctx_t));
 507     if(!ctx)
 508         return E_OUTOFMEMORY;
 509
 510     ctx->ref = 1;
 511     ctx->state = SCRIPTSTATE_UNINITIALIZED;
 512     jsheap_init(&ctx->tmp_heap);
 513
 514     ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
 515     if(ctx) {
 516         script_release(ctx);
 517         return E_UNEXPECTED;
 518     }
 519
 520     return S_OK;
 521 }
 522
 523 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
 524         LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
 525         LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
 526         DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
 527         BSTR *pbstrName, EXCEPINFO *pexcepinfo)
 528 {
 529     JScript *This = ASPARSE_THIS(iface);
 530     FIXME("(%p)->(%s %s %s %s %s %s %x %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
 531           debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
 532           debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), dwSourceContextCookie,
 533           ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
 534     return E_NOTIMPL;
 535 }
 536
 537 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
 538         LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
 539         LPCOLESTR pstrDelimiter, DWORD dwSourceContextCookie, ULONG ulStartingLine,
 540         DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
 541 {
 542     JScript *This = ASPARSE_THIS(iface);
 543     parser_ctx_t *parser_ctx;
 544     HRESULT hres;
 545
 546     TRACE("(%p)->(%s %s %p %s %x %u %x %p %p)\n", This, debugstr_w(pstrCode),
 547           debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
 548           dwSourceContextCookie, ulStartingLine, dwFlags, pvarResult, pexcepinfo);
 549
 550     if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
 551         return E_UNEXPECTED;
 552
 553     hres = script_parse(This->ctx, pstrCode, &parser_ctx);
 554     if(FAILED(hres))
 555         return hres;
 556
 557     if(!is_started(This->ctx)) {
 558         if(This->queue_tail)
 559             This->queue_tail = This->queue_tail->next = parser_ctx;
 560         else
 561             This->queue_head = This->queue_tail = parser_ctx;
 562         return S_OK;
 563     }
 564
 565     hres = exec_global_code(This, parser_ctx);
 566     parser_release(parser_ctx);
 567
 568     return hres;
 569 }
 570
 571 #undef ASPARSE_THIS
 572
 573 static const IActiveScriptParseVtbl JScriptParseVtbl = {
 574     JScriptParse_QueryInterface,
 575     JScriptParse_AddRef,
 576     JScriptParse_Release,
 577     JScriptParse_InitNew,
 578     JScriptParse_AddScriptlet,
 579     JScriptParse_ParseScriptText
 580 };
 581
 582 #define ASPARSEPROC_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParseProcedure2, iface)
 583
 584 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
 585 {
 586     JScript *This = ASPARSEPROC_THIS(iface);
 587     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 588 }
 589
 590 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
 591 {
 592     JScript *This = ASPARSEPROC_THIS(iface);
 593     return IActiveScript_AddRef(ACTSCRIPT(This));
 594 }
 595
 596 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
 597 {
 598     JScript *This = ASPARSEPROC_THIS(iface);
 599     return IActiveScript_Release(ACTSCRIPT(This));
 600 }
 601
 602 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
 603         LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
 604         LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
 605         DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
 606 {
 607     JScript *This = ASPARSEPROC_THIS(iface);
 608     parser_ctx_t *parser_ctx;
 609     DispatchEx *dispex;
 610     HRESULT hres;
 611
 612     TRACE("(%p)->(%s %s %s %s %p %s %x %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
 613           debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
 614           dwSourceContextCookie, ulStartingLineNumber, dwFlags, ppdisp);
 615
 616     if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
 617         return E_UNEXPECTED;
 618
 619     hres = script_parse(This->ctx, pstrCode, &parser_ctx);
 620     if(FAILED(hres)) {
 621         WARN("Parse failed %08x\n", hres);
 622         return hres;
 623     }
 624
 625     hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
 626     parser_release(parser_ctx);
 627     if(FAILED(hres))
 628         return hres;
 629
 630     *ppdisp = (IDispatch*)_IDispatchEx_(dispex);
 631     return S_OK;
 632 }
 633
 634 #undef ASPARSEPROC_THIS
 635
 636 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
 637     JScriptParseProcedure_QueryInterface,
 638     JScriptParseProcedure_AddRef,
 639     JScriptParseProcedure_Release,
 640     JScriptParseProcedure_ParseProcedureText,
 641 };
 642
 643 #define ACTSCPPROP_THIS(iface) DEFINE_THIS(JScript, IActiveScriptProperty, iface)
 644
 645 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
 646 {
 647     JScript *This = ACTSCPPROP_THIS(iface);
 648     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 649 }
 650
 651 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
 652 {
 653     JScript *This = ACTSCPPROP_THIS(iface);
 654     return IActiveScript_AddRef(ACTSCRIPT(This));
 655 }
 656
 657 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
 658 {
 659     JScript *This = ACTSCPPROP_THIS(iface);
 660     return IActiveScript_Release(ACTSCRIPT(This));
 661 }
 662
 663 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
 664         VARIANT *pvarIndex, VARIANT *pvarValue)
 665 {
 666     JScript *This = ACTSCPPROP_THIS(iface);
 667     FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
 668     return E_NOTIMPL;
 669 }
 670
 671 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
 672         VARIANT *pvarIndex, VARIANT *pvarValue)
 673 {
 674     JScript *This = ACTSCPPROP_THIS(iface);
 675     FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
 676     return E_NOTIMPL;
 677 }
 678
 679 #undef ACTSCPPROP_THIS
 680
 681 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
 682     JScriptProperty_QueryInterface,
 683     JScriptProperty_AddRef,
 684     JScriptProperty_Release,
 685     JScriptProperty_GetProperty,
 686     JScriptProperty_SetProperty
 687 };
 688
 689 #define OBJSAFETY_THIS(iface) DEFINE_THIS(JScript, IObjectSafety, iface)
 690
 691 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
 692 {
 693     JScript *This = OBJSAFETY_THIS(iface);
 694     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 695 }
 696
 697 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
 698 {
 699     JScript *This = OBJSAFETY_THIS(iface);
 700     return IActiveScript_AddRef(ACTSCRIPT(This));
 701 }
 702
 703 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
 704 {
 705     JScript *This = OBJSAFETY_THIS(iface);
 706     return IActiveScript_Release(ACTSCRIPT(This));
 707 }
 708
 709 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
 710
 711 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
 712         DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
 713 {
 714     JScript *This = OBJSAFETY_THIS(iface);
 715
 716     TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
 717
 718     if(!pdwSupportedOptions || !pdwEnabledOptions)
 719         return E_POINTER;
 720
 721     *pdwSupportedOptions = SUPPORTED_OPTIONS;
 722     *pdwEnabledOptions = This->safeopt;
 723
 724     return S_OK;
 725 }
 726
 727 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
 728         DWORD dwOptionSetMask, DWORD dwEnabledOptions)
 729 {
 730     JScript *This = OBJSAFETY_THIS(iface);
 731
 732     TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
 733
 734     if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
 735         return E_FAIL;
 736
 737     This->safeopt = dwEnabledOptions & dwEnabledOptions;
 738     return S_OK;
 739 }
 740
 741 #undef OBJSAFETY_THIS
 742
 743 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
 744     JScriptSafety_QueryInterface,
 745     JScriptSafety_AddRef,
 746     JScriptSafety_Release,
 747     JScriptSafety_GetInterfaceSafetyOptions,
 748     JScriptSafety_SetInterfaceSafetyOptions
 749 };
 750
 751 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
 752                                              REFIID riid, void **ppv)
 753 {
 754     JScript *ret;
 755     HRESULT hres;
 756
 757     TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
 758
 759     lock_module();
 760
 761     ret = heap_alloc_zero(sizeof(*ret));
 762     if(!ret)
 763         return E_OUTOFMEMORY;
 764
 765     ret->lpIActiveScriptVtbl                 = &JScriptVtbl;
 766     ret->lpIActiveScriptParseVtbl            = &JScriptParseVtbl;
 767     ret->lpIActiveScriptParseProcedure2Vtbl  = &JScriptParseProcedureVtbl;
 768     ret->lpIActiveScriptPropertyVtbl         = &JScriptPropertyVtbl;
 769     ret->lpIObjectSafetyVtbl                 = &JScriptSafetyVtbl;
 770     ret->ref = 1;
 771     ret->safeopt = INTERFACE_USES_DISPEX;
 772
 773     hres = IActiveScript_QueryInterface(ACTSCRIPT(ret), riid, ppv);
 774     IActiveScript_Release(ACTSCRIPT(ret));
 775     return hres;
 776 }