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