git.oblomov.eu Git - wine/blob - dlls/jscript/jscript.c

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