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