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