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