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