2 * Copyright 2011 Jacek Caban for CodeWeavers
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.
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.
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
25 #include "wine/debug.h"
27 WINE_DEFAULT_DEBUG_CHANNEL(vbscript
);
31 #define CTXARG_T DWORDLONG
32 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
33 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
37 #define CTXARG_T DWORD
38 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
39 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
44 IActiveScript IActiveScript_iface
;
45 IActiveScriptParse IActiveScriptParse_iface
;
46 IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface
;
47 IObjectSafety IObjectSafety_iface
;
53 IActiveScriptSite
*site
;
59 static void change_state(VBScript
*This
, SCRIPTSTATE state
)
61 if(This
->state
== state
)
66 IActiveScriptSite_OnStateChange(This
->site
, state
);
69 static inline BOOL
is_started(VBScript
*This
)
71 return This
->state
== SCRIPTSTATE_STARTED
72 || This
->state
== SCRIPTSTATE_CONNECTED
73 || This
->state
== SCRIPTSTATE_DISCONNECTED
;
76 static HRESULT
exec_global_code(script_ctx_t
*ctx
, vbscode_t
*code
)
80 code
->global_executed
= TRUE
;
82 IActiveScriptSite_OnEnterScript(ctx
->site
);
83 hres
= exec_script(ctx
, &code
->global_code
, NULL
, NULL
, NULL
);
84 IActiveScriptSite_OnLeaveScript(ctx
->site
);
89 static void exec_queued_code(script_ctx_t
*ctx
)
93 LIST_FOR_EACH_ENTRY(iter
, &ctx
->code_list
, vbscode_t
, entry
) {
94 if(!iter
->global_executed
)
95 exec_global_code(ctx
, iter
);
99 static HRESULT
set_ctx_site(VBScript
*This
)
103 This
->ctx
->lcid
= This
->lcid
;
105 hres
= init_global(This
->ctx
);
109 IActiveScriptSite_AddRef(This
->site
);
110 This
->ctx
->site
= This
->site
;
112 change_state(This
, SCRIPTSTATE_INITIALIZED
);
116 static void release_script(script_ctx_t
*ctx
)
118 collect_objects(ctx
);
120 release_dynamic_vars(ctx
->global_vars
);
121 ctx
->global_vars
= NULL
;
123 while(!list_empty(&ctx
->named_items
)) {
124 named_item_t
*iter
= LIST_ENTRY(list_head(&ctx
->named_items
), named_item_t
, entry
);
126 list_remove(&iter
->entry
);
128 IDispatch_Release(iter
->disp
);
129 heap_free(iter
->name
);
133 if(ctx
->host_global
) {
134 IDispatch_Release(ctx
->host_global
);
135 ctx
->host_global
= NULL
;
139 IInternetHostSecurityManager_Release(ctx
->secmgr
);
144 IActiveScriptSite_Release(ctx
->site
);
149 IDispatchEx_Release(&ctx
->err_obj
->IDispatchEx_iface
);
153 if(ctx
->global_obj
) {
154 IDispatchEx_Release(&ctx
->global_obj
->IDispatchEx_iface
);
155 ctx
->global_obj
= NULL
;
158 if(ctx
->script_obj
) {
159 IDispatchEx_Release(&ctx
->script_obj
->IDispatchEx_iface
);
160 ctx
->script_obj
= NULL
;
163 vbsheap_free(&ctx
->heap
);
164 vbsheap_init(&ctx
->heap
);
167 static void destroy_script(script_ctx_t
*ctx
)
169 while(!list_empty(&ctx
->code_list
))
170 release_vbscode(LIST_ENTRY(list_head(&ctx
->code_list
), vbscode_t
, entry
));
176 static void decrease_state(VBScript
*This
, SCRIPTSTATE state
)
178 switch(This
->state
) {
179 case SCRIPTSTATE_CONNECTED
:
180 change_state(This
, SCRIPTSTATE_DISCONNECTED
);
181 if(state
== SCRIPTSTATE_DISCONNECTED
)
184 case SCRIPTSTATE_STARTED
:
185 case SCRIPTSTATE_DISCONNECTED
:
186 if(This
->state
== SCRIPTSTATE_DISCONNECTED
)
187 change_state(This
, SCRIPTSTATE_INITIALIZED
);
188 if(state
== SCRIPTSTATE_INITIALIZED
)
191 case SCRIPTSTATE_INITIALIZED
:
192 case SCRIPTSTATE_UNINITIALIZED
:
193 change_state(This
, state
);
196 IActiveScriptSite_Release(This
->site
);
201 release_script(This
->ctx
);
205 case SCRIPTSTATE_CLOSED
:
212 static inline VBScript
*impl_from_IActiveScript(IActiveScript
*iface
)
214 return CONTAINING_RECORD(iface
, VBScript
, IActiveScript_iface
);
217 static HRESULT WINAPI
VBScript_QueryInterface(IActiveScript
*iface
, REFIID riid
, void **ppv
)
219 VBScript
*This
= impl_from_IActiveScript(iface
);
221 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
222 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
223 *ppv
= &This
->IActiveScript_iface
;
224 }else if(IsEqualGUID(riid
, &IID_IActiveScript
)) {
225 TRACE("(%p)->(IID_IActiveScript %p)\n", This
, ppv
);
226 *ppv
= &This
->IActiveScript_iface
;
227 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParse
)) {
228 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This
, ppv
);
229 *ppv
= &This
->IActiveScriptParse_iface
;
230 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParseProcedure2
)) {
231 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This
, ppv
);
232 *ppv
= &This
->IActiveScriptParseProcedure2_iface
;
233 }else if(IsEqualGUID(riid
, &IID_IObjectSafety
)) {
234 TRACE("(%p)->(IID_IObjectSafety %p)\n", This
, ppv
);
235 *ppv
= &This
->IObjectSafety_iface
;
237 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
239 return E_NOINTERFACE
;
242 IUnknown_AddRef((IUnknown
*)*ppv
);
246 static ULONG WINAPI
VBScript_AddRef(IActiveScript
*iface
)
248 VBScript
*This
= impl_from_IActiveScript(iface
);
249 LONG ref
= InterlockedIncrement(&This
->ref
);
251 TRACE("(%p) ref=%d\n", This
, ref
);
256 static ULONG WINAPI
VBScript_Release(IActiveScript
*iface
)
258 VBScript
*This
= impl_from_IActiveScript(iface
);
259 LONG ref
= InterlockedDecrement(&This
->ref
);
261 TRACE("(%p) ref=%d\n", iface
, ref
);
265 decrease_state(This
, SCRIPTSTATE_CLOSED
);
266 destroy_script(This
->ctx
);
270 IActiveScriptSite_Release(This
->site
);
277 static HRESULT WINAPI
VBScript_SetScriptSite(IActiveScript
*iface
, IActiveScriptSite
*pass
)
279 VBScript
*This
= impl_from_IActiveScript(iface
);
283 TRACE("(%p)->(%p)\n", This
, pass
);
291 if(InterlockedCompareExchange(&This
->thread_id
, GetCurrentThreadId(), 0))
295 IActiveScriptSite_AddRef(This
->site
);
297 hres
= IActiveScriptSite_GetLCID(This
->site
, &lcid
);
301 return This
->ctx
? set_ctx_site(This
) : S_OK
;
304 static HRESULT WINAPI
VBScript_GetScriptSite(IActiveScript
*iface
, REFIID riid
,
307 VBScript
*This
= impl_from_IActiveScript(iface
);
308 FIXME("(%p)->()\n", This
);
312 static HRESULT WINAPI
VBScript_SetScriptState(IActiveScript
*iface
, SCRIPTSTATE ss
)
314 VBScript
*This
= impl_from_IActiveScript(iface
);
316 TRACE("(%p)->(%d)\n", This
, ss
);
318 if(This
->thread_id
&& GetCurrentThreadId() != This
->thread_id
)
321 if(ss
== SCRIPTSTATE_UNINITIALIZED
) {
322 if(This
->state
== SCRIPTSTATE_CLOSED
)
325 decrease_state(This
, SCRIPTSTATE_UNINITIALIZED
);
333 case SCRIPTSTATE_STARTED
:
334 case SCRIPTSTATE_CONNECTED
: /* FIXME */
335 if(This
->state
== SCRIPTSTATE_CLOSED
)
338 exec_queued_code(This
->ctx
);
340 case SCRIPTSTATE_INITIALIZED
:
341 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
344 FIXME("unimplemented state %d\n", ss
);
348 change_state(This
, ss
);
352 static HRESULT WINAPI
VBScript_GetScriptState(IActiveScript
*iface
, SCRIPTSTATE
*pssState
)
354 VBScript
*This
= impl_from_IActiveScript(iface
);
356 TRACE("(%p)->(%p)\n", This
, pssState
);
361 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
364 *pssState
= This
->state
;
368 static HRESULT WINAPI
VBScript_Close(IActiveScript
*iface
)
370 VBScript
*This
= impl_from_IActiveScript(iface
);
372 TRACE("(%p)->()\n", This
);
374 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
377 decrease_state(This
, SCRIPTSTATE_CLOSED
);
381 static HRESULT WINAPI
VBScript_AddNamedItem(IActiveScript
*iface
, LPCOLESTR pstrName
, DWORD dwFlags
)
383 VBScript
*This
= impl_from_IActiveScript(iface
);
385 IDispatch
*disp
= NULL
;
388 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pstrName
), dwFlags
);
390 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| This
->state
== SCRIPTSTATE_CLOSED
)
393 if(dwFlags
& SCRIPTITEM_GLOBALMEMBERS
) {
396 hres
= IActiveScriptSite_GetItemInfo(This
->site
, pstrName
, SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
398 WARN("GetItemInfo failed: %08x\n", hres
);
402 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&disp
);
403 IUnknown_Release(unk
);
405 WARN("object does not implement IDispatch\n");
409 if(This
->ctx
->host_global
)
410 IDispatch_Release(This
->ctx
->host_global
);
411 IDispatch_AddRef(disp
);
412 This
->ctx
->host_global
= disp
;
415 item
= heap_alloc(sizeof(*item
));
418 IDispatch_Release(disp
);
419 return E_OUTOFMEMORY
;
423 item
->flags
= dwFlags
;
424 item
->name
= heap_strdupW(pstrName
);
427 IDispatch_Release(disp
);
429 return E_OUTOFMEMORY
;
432 list_add_tail(&This
->ctx
->named_items
, &item
->entry
);
436 static HRESULT WINAPI
VBScript_AddTypeLib(IActiveScript
*iface
, REFGUID rguidTypeLib
,
437 DWORD dwMajor
, DWORD dwMinor
, DWORD dwFlags
)
439 VBScript
*This
= impl_from_IActiveScript(iface
);
440 FIXME("(%p)->()\n", This
);
444 static HRESULT WINAPI
VBScript_GetScriptDispatch(IActiveScript
*iface
, LPCOLESTR pstrItemName
, IDispatch
**ppdisp
)
446 VBScript
*This
= impl_from_IActiveScript(iface
);
448 TRACE("(%p)->(%p)\n", This
, ppdisp
);
453 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| !This
->ctx
->script_obj
) {
458 *ppdisp
= (IDispatch
*)&This
->ctx
->script_obj
->IDispatchEx_iface
;
459 IDispatch_AddRef(*ppdisp
);
463 static HRESULT WINAPI
VBScript_GetCurrentScriptThreadID(IActiveScript
*iface
,
464 SCRIPTTHREADID
*pstridThread
)
466 VBScript
*This
= impl_from_IActiveScript(iface
);
467 FIXME("(%p)->()\n", This
);
471 static HRESULT WINAPI
VBScript_GetScriptThreadID(IActiveScript
*iface
,
472 DWORD dwWin32ThreadId
, SCRIPTTHREADID
*pstidThread
)
474 VBScript
*This
= impl_from_IActiveScript(iface
);
475 FIXME("(%p)->()\n", This
);
479 static HRESULT WINAPI
VBScript_GetScriptThreadState(IActiveScript
*iface
,
480 SCRIPTTHREADID stidThread
, SCRIPTTHREADSTATE
*pstsState
)
482 VBScript
*This
= impl_from_IActiveScript(iface
);
483 FIXME("(%p)->()\n", This
);
487 static HRESULT WINAPI
VBScript_InterruptScriptThread(IActiveScript
*iface
,
488 SCRIPTTHREADID stidThread
, const EXCEPINFO
*pexcepinfo
, DWORD dwFlags
)
490 VBScript
*This
= impl_from_IActiveScript(iface
);
491 FIXME("(%p)->()\n", This
);
495 static HRESULT WINAPI
VBScript_Clone(IActiveScript
*iface
, IActiveScript
**ppscript
)
497 VBScript
*This
= impl_from_IActiveScript(iface
);
498 FIXME("(%p)->()\n", This
);
502 static const IActiveScriptVtbl VBScriptVtbl
= {
503 VBScript_QueryInterface
,
506 VBScript_SetScriptSite
,
507 VBScript_GetScriptSite
,
508 VBScript_SetScriptState
,
509 VBScript_GetScriptState
,
511 VBScript_AddNamedItem
,
513 VBScript_GetScriptDispatch
,
514 VBScript_GetCurrentScriptThreadID
,
515 VBScript_GetScriptThreadID
,
516 VBScript_GetScriptThreadState
,
517 VBScript_InterruptScriptThread
,
521 static inline VBScript
*impl_from_IActiveScriptParse(IActiveScriptParse
*iface
)
523 return CONTAINING_RECORD(iface
, VBScript
, IActiveScriptParse_iface
);
526 static HRESULT WINAPI
VBScriptParse_QueryInterface(IActiveScriptParse
*iface
, REFIID riid
, void **ppv
)
528 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
529 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
532 static ULONG WINAPI
VBScriptParse_AddRef(IActiveScriptParse
*iface
)
534 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
535 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
538 static ULONG WINAPI
VBScriptParse_Release(IActiveScriptParse
*iface
)
540 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
541 return IActiveScript_Release(&This
->IActiveScript_iface
);
544 static HRESULT WINAPI
VBScriptParse_InitNew(IActiveScriptParse
*iface
)
546 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
547 script_ctx_t
*ctx
, *old_ctx
;
549 TRACE("(%p)\n", This
);
554 ctx
= heap_alloc_zero(sizeof(script_ctx_t
));
556 return E_OUTOFMEMORY
;
558 ctx
->safeopt
= This
->safeopt
;
559 vbsheap_init(&ctx
->heap
);
560 list_init(&ctx
->objects
);
561 list_init(&ctx
->code_list
);
562 list_init(&ctx
->named_items
);
564 old_ctx
= InterlockedCompareExchangePointer((void**)&This
->ctx
, ctx
, NULL
);
570 return This
->site
? set_ctx_site(This
) : S_OK
;
573 static HRESULT WINAPI
VBScriptParse_AddScriptlet(IActiveScriptParse
*iface
,
574 LPCOLESTR pstrDefaultName
, LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
,
575 LPCOLESTR pstrSubItemName
, LPCOLESTR pstrEventName
, LPCOLESTR pstrDelimiter
,
576 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
,
577 BSTR
*pbstrName
, EXCEPINFO
*pexcepinfo
)
579 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
580 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This
, debugstr_w(pstrDefaultName
),
581 debugstr_w(pstrCode
), debugstr_w(pstrItemName
), debugstr_w(pstrSubItemName
),
582 debugstr_w(pstrEventName
), debugstr_w(pstrDelimiter
), wine_dbgstr_longlong(dwSourceContextCookie
),
583 ulStartingLineNumber
, dwFlags
, pbstrName
, pexcepinfo
);
587 static HRESULT WINAPI
VBScriptParse_ParseScriptText(IActiveScriptParse
*iface
,
588 LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
, IUnknown
*punkContext
,
589 LPCOLESTR pstrDelimiter
, CTXARG_T dwSourceContextCookie
, ULONG ulStartingLine
,
590 DWORD dwFlags
, VARIANT
*pvarResult
, EXCEPINFO
*pexcepinfo
)
592 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
596 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This
, debugstr_w(pstrCode
),
597 debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
598 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLine
, dwFlags
, pvarResult
, pexcepinfo
);
600 if(This
->thread_id
!= GetCurrentThreadId() || This
->state
== SCRIPTSTATE_CLOSED
)
603 hres
= compile_script(This
->ctx
, pstrCode
, &code
);
607 return is_started(This
) ? exec_global_code(This
->ctx
, code
) : S_OK
;
610 static const IActiveScriptParseVtbl VBScriptParseVtbl
= {
611 VBScriptParse_QueryInterface
,
612 VBScriptParse_AddRef
,
613 VBScriptParse_Release
,
614 VBScriptParse_InitNew
,
615 VBScriptParse_AddScriptlet
,
616 VBScriptParse_ParseScriptText
619 static inline VBScript
*impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2
*iface
)
621 return CONTAINING_RECORD(iface
, VBScript
, IActiveScriptParseProcedure2_iface
);
624 static HRESULT WINAPI
VBScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2
*iface
, REFIID riid
, void **ppv
)
626 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
627 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
630 static ULONG WINAPI
VBScriptParseProcedure_AddRef(IActiveScriptParseProcedure2
*iface
)
632 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
633 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
636 static ULONG WINAPI
VBScriptParseProcedure_Release(IActiveScriptParseProcedure2
*iface
)
638 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
639 return IActiveScript_Release(&This
->IActiveScript_iface
);
642 static HRESULT WINAPI
VBScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2
*iface
,
643 LPCOLESTR pstrCode
, LPCOLESTR pstrFormalParams
, LPCOLESTR pstrProcedureName
,
644 LPCOLESTR pstrItemName
, IUnknown
*punkContext
, LPCOLESTR pstrDelimiter
,
645 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
, IDispatch
**ppdisp
)
647 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
648 FIXME("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This
, debugstr_w(pstrCode
), debugstr_w(pstrFormalParams
),
649 debugstr_w(pstrProcedureName
), debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
650 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLineNumber
, dwFlags
, ppdisp
);
654 static const IActiveScriptParseProcedure2Vtbl VBScriptParseProcedureVtbl
= {
655 VBScriptParseProcedure_QueryInterface
,
656 VBScriptParseProcedure_AddRef
,
657 VBScriptParseProcedure_Release
,
658 VBScriptParseProcedure_ParseProcedureText
,
661 static inline VBScript
*impl_from_IObjectSafety(IObjectSafety
*iface
)
663 return CONTAINING_RECORD(iface
, VBScript
, IObjectSafety_iface
);
666 static HRESULT WINAPI
VBScriptSafety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
668 VBScript
*This
= impl_from_IObjectSafety(iface
);
669 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
672 static ULONG WINAPI
VBScriptSafety_AddRef(IObjectSafety
*iface
)
674 VBScript
*This
= impl_from_IObjectSafety(iface
);
675 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
678 static ULONG WINAPI
VBScriptSafety_Release(IObjectSafety
*iface
)
680 VBScript
*This
= impl_from_IObjectSafety(iface
);
681 return IActiveScript_Release(&This
->IActiveScript_iface
);
684 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
686 static HRESULT WINAPI
VBScriptSafety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
687 DWORD
*pdwSupportedOptions
, DWORD
*pdwEnabledOptions
)
689 VBScript
*This
= impl_from_IObjectSafety(iface
);
691 TRACE("(%p)->(%s %p %p)\n", This
, debugstr_guid(riid
), pdwSupportedOptions
, pdwEnabledOptions
);
693 if(!pdwSupportedOptions
|| !pdwEnabledOptions
)
696 *pdwSupportedOptions
= SUPPORTED_OPTIONS
;
697 *pdwEnabledOptions
= This
->safeopt
;
701 static HRESULT WINAPI
VBScriptSafety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
702 DWORD dwOptionSetMask
, DWORD dwEnabledOptions
)
704 VBScript
*This
= impl_from_IObjectSafety(iface
);
706 TRACE("(%p)->(%s %x %x)\n", This
, debugstr_guid(riid
), dwOptionSetMask
, dwEnabledOptions
);
708 if(dwOptionSetMask
& ~SUPPORTED_OPTIONS
)
711 This
->safeopt
= (dwEnabledOptions
& dwOptionSetMask
) | (This
->safeopt
& ~dwOptionSetMask
) | INTERFACE_USES_DISPEX
;
715 static const IObjectSafetyVtbl VBScriptSafetyVtbl
= {
716 VBScriptSafety_QueryInterface
,
717 VBScriptSafety_AddRef
,
718 VBScriptSafety_Release
,
719 VBScriptSafety_GetInterfaceSafetyOptions
,
720 VBScriptSafety_SetInterfaceSafetyOptions
723 HRESULT WINAPI
VBScriptFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
, REFIID riid
, void **ppv
)
728 TRACE("(%p %s %p)\n", pUnkOuter
, debugstr_guid(riid
), ppv
);
730 ret
= heap_alloc_zero(sizeof(*ret
));
732 return E_OUTOFMEMORY
;
734 ret
->IActiveScript_iface
.lpVtbl
= &VBScriptVtbl
;
735 ret
->IActiveScriptParse_iface
.lpVtbl
= &VBScriptParseVtbl
;
736 ret
->IActiveScriptParseProcedure2_iface
.lpVtbl
= &VBScriptParseProcedureVtbl
;
737 ret
->IObjectSafety_iface
.lpVtbl
= &VBScriptSafetyVtbl
;
740 ret
->state
= SCRIPTSTATE_UNINITIALIZED
;
741 ret
->safeopt
= INTERFACE_USES_DISPEX
;
743 hres
= IActiveScript_QueryInterface(&ret
->IActiveScript_iface
, riid
, ppv
);
744 IActiveScript_Release(&ret
->IActiveScript_iface
);
749 IServiceProvider IServiceProvider_iface
;
753 IServiceProvider
*sp
;
756 static inline AXSite
*impl_from_IServiceProvider(IServiceProvider
*iface
)
758 return CONTAINING_RECORD(iface
, AXSite
, IServiceProvider_iface
);
761 static HRESULT WINAPI
AXSite_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
763 AXSite
*This
= impl_from_IServiceProvider(iface
);
765 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
766 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
767 *ppv
= &This
->IServiceProvider_iface
;
768 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
769 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
770 *ppv
= &This
->IServiceProvider_iface
;
772 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
774 return E_NOINTERFACE
;
777 IUnknown_AddRef((IUnknown
*)*ppv
);
781 static ULONG WINAPI
AXSite_AddRef(IServiceProvider
*iface
)
783 AXSite
*This
= impl_from_IServiceProvider(iface
);
784 LONG ref
= InterlockedIncrement(&This
->ref
);
786 TRACE("(%p) ref=%d\n", This
, ref
);
791 static ULONG WINAPI
AXSite_Release(IServiceProvider
*iface
)
793 AXSite
*This
= impl_from_IServiceProvider(iface
);
794 LONG ref
= InterlockedDecrement(&This
->ref
);
796 TRACE("(%p) ref=%d\n", This
, ref
);
804 static HRESULT WINAPI
AXSite_QueryService(IServiceProvider
*iface
,
805 REFGUID guidService
, REFIID riid
, void **ppv
)
807 AXSite
*This
= impl_from_IServiceProvider(iface
);
809 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
811 return IServiceProvider_QueryService(This
->sp
, guidService
, riid
, ppv
);
814 static IServiceProviderVtbl AXSiteVtbl
= {
815 AXSite_QueryInterface
,
821 IUnknown
*create_ax_site(script_ctx_t
*ctx
)
823 IServiceProvider
*sp
;
827 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
829 ERR("Could not get IServiceProvider iface: %08x\n", hres
);
833 ret
= heap_alloc(sizeof(*ret
));
835 IServiceProvider_Release(sp
);
839 ret
->IServiceProvider_iface
.lpVtbl
= &AXSiteVtbl
;
843 return (IUnknown
*)&ret
->IServiceProvider_iface
;