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
->pending_exec
= FALSE
;
82 IActiveScriptSite_OnEnterScript(ctx
->site
);
83 hres
= exec_script(ctx
, &code
->main_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
->pending_exec
)
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 class_desc_t
*class_desc
;
120 collect_objects(ctx
);
122 release_dynamic_vars(ctx
->global_vars
);
123 ctx
->global_vars
= NULL
;
125 while(!list_empty(&ctx
->named_items
)) {
126 named_item_t
*iter
= LIST_ENTRY(list_head(&ctx
->named_items
), named_item_t
, entry
);
128 list_remove(&iter
->entry
);
130 IDispatch_Release(iter
->disp
);
131 heap_free(iter
->name
);
136 class_desc
= ctx
->procs
;
137 ctx
->procs
= class_desc
->next
;
139 heap_free(class_desc
);
142 if(ctx
->host_global
) {
143 IDispatch_Release(ctx
->host_global
);
144 ctx
->host_global
= NULL
;
148 IInternetHostSecurityManager_Release(ctx
->secmgr
);
153 IActiveScriptSite_Release(ctx
->site
);
158 IDispatchEx_Release(&ctx
->err_obj
->IDispatchEx_iface
);
162 if(ctx
->global_obj
) {
163 IDispatchEx_Release(&ctx
->global_obj
->IDispatchEx_iface
);
164 ctx
->global_obj
= NULL
;
167 if(ctx
->script_obj
) {
168 ScriptDisp
*script_obj
= ctx
->script_obj
;
170 ctx
->script_obj
= NULL
;
171 script_obj
->ctx
= NULL
;
172 IDispatchEx_Release(&script_obj
->IDispatchEx_iface
);
175 heap_pool_free(&ctx
->heap
);
176 heap_pool_init(&ctx
->heap
);
179 static void destroy_script(script_ctx_t
*ctx
)
181 while(!list_empty(&ctx
->code_list
))
182 release_vbscode(LIST_ENTRY(list_head(&ctx
->code_list
), vbscode_t
, entry
));
188 static void decrease_state(VBScript
*This
, SCRIPTSTATE state
)
190 switch(This
->state
) {
191 case SCRIPTSTATE_CONNECTED
:
192 change_state(This
, SCRIPTSTATE_DISCONNECTED
);
193 if(state
== SCRIPTSTATE_DISCONNECTED
)
196 case SCRIPTSTATE_STARTED
:
197 case SCRIPTSTATE_DISCONNECTED
:
198 if(This
->state
== SCRIPTSTATE_DISCONNECTED
)
199 change_state(This
, SCRIPTSTATE_INITIALIZED
);
200 if(state
== SCRIPTSTATE_INITIALIZED
)
203 case SCRIPTSTATE_INITIALIZED
:
204 case SCRIPTSTATE_UNINITIALIZED
:
205 change_state(This
, state
);
208 IActiveScriptSite_Release(This
->site
);
213 release_script(This
->ctx
);
217 case SCRIPTSTATE_CLOSED
:
223 static inline VBScript
*impl_from_IActiveScript(IActiveScript
*iface
)
225 return CONTAINING_RECORD(iface
, VBScript
, IActiveScript_iface
);
228 static HRESULT WINAPI
VBScript_QueryInterface(IActiveScript
*iface
, REFIID riid
, void **ppv
)
230 VBScript
*This
= impl_from_IActiveScript(iface
);
232 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
233 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
234 *ppv
= &This
->IActiveScript_iface
;
235 }else if(IsEqualGUID(riid
, &IID_IActiveScript
)) {
236 TRACE("(%p)->(IID_IActiveScript %p)\n", This
, ppv
);
237 *ppv
= &This
->IActiveScript_iface
;
238 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParse
)) {
239 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This
, ppv
);
240 *ppv
= &This
->IActiveScriptParse_iface
;
241 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParseProcedure2
)) {
242 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This
, ppv
);
243 *ppv
= &This
->IActiveScriptParseProcedure2_iface
;
244 }else if(IsEqualGUID(riid
, &IID_IObjectSafety
)) {
245 TRACE("(%p)->(IID_IObjectSafety %p)\n", This
, ppv
);
246 *ppv
= &This
->IObjectSafety_iface
;
248 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
250 return E_NOINTERFACE
;
253 IUnknown_AddRef((IUnknown
*)*ppv
);
257 static ULONG WINAPI
VBScript_AddRef(IActiveScript
*iface
)
259 VBScript
*This
= impl_from_IActiveScript(iface
);
260 LONG ref
= InterlockedIncrement(&This
->ref
);
262 TRACE("(%p) ref=%d\n", This
, ref
);
267 static ULONG WINAPI
VBScript_Release(IActiveScript
*iface
)
269 VBScript
*This
= impl_from_IActiveScript(iface
);
270 LONG ref
= InterlockedDecrement(&This
->ref
);
272 TRACE("(%p) ref=%d\n", iface
, ref
);
276 decrease_state(This
, SCRIPTSTATE_CLOSED
);
277 destroy_script(This
->ctx
);
281 IActiveScriptSite_Release(This
->site
);
288 static HRESULT WINAPI
VBScript_SetScriptSite(IActiveScript
*iface
, IActiveScriptSite
*pass
)
290 VBScript
*This
= impl_from_IActiveScript(iface
);
294 TRACE("(%p)->(%p)\n", This
, pass
);
302 if(InterlockedCompareExchange(&This
->thread_id
, GetCurrentThreadId(), 0))
306 IActiveScriptSite_AddRef(This
->site
);
308 hres
= IActiveScriptSite_GetLCID(This
->site
, &lcid
);
312 return This
->ctx
? set_ctx_site(This
) : S_OK
;
315 static HRESULT WINAPI
VBScript_GetScriptSite(IActiveScript
*iface
, REFIID riid
,
318 VBScript
*This
= impl_from_IActiveScript(iface
);
319 FIXME("(%p)->()\n", This
);
323 static HRESULT WINAPI
VBScript_SetScriptState(IActiveScript
*iface
, SCRIPTSTATE ss
)
325 VBScript
*This
= impl_from_IActiveScript(iface
);
327 TRACE("(%p)->(%d)\n", This
, ss
);
329 if(This
->thread_id
&& GetCurrentThreadId() != This
->thread_id
)
332 if(ss
== SCRIPTSTATE_UNINITIALIZED
) {
333 if(This
->state
== SCRIPTSTATE_CLOSED
)
336 decrease_state(This
, SCRIPTSTATE_UNINITIALIZED
);
344 case SCRIPTSTATE_STARTED
:
345 case SCRIPTSTATE_CONNECTED
: /* FIXME */
346 if(This
->state
== SCRIPTSTATE_CLOSED
)
349 exec_queued_code(This
->ctx
);
351 case SCRIPTSTATE_INITIALIZED
:
352 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
354 case SCRIPTSTATE_DISCONNECTED
:
355 FIXME("unimplemented SCRIPTSTATE_DISCONNECTED\n");
358 FIXME("unimplemented state %d\n", ss
);
362 change_state(This
, ss
);
366 static HRESULT WINAPI
VBScript_GetScriptState(IActiveScript
*iface
, SCRIPTSTATE
*pssState
)
368 VBScript
*This
= impl_from_IActiveScript(iface
);
370 TRACE("(%p)->(%p)\n", This
, pssState
);
375 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
378 *pssState
= This
->state
;
382 static HRESULT WINAPI
VBScript_Close(IActiveScript
*iface
)
384 VBScript
*This
= impl_from_IActiveScript(iface
);
386 TRACE("(%p)->()\n", This
);
388 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
391 decrease_state(This
, SCRIPTSTATE_CLOSED
);
395 static HRESULT WINAPI
VBScript_AddNamedItem(IActiveScript
*iface
, LPCOLESTR pstrName
, DWORD dwFlags
)
397 VBScript
*This
= impl_from_IActiveScript(iface
);
399 IDispatch
*disp
= NULL
;
402 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pstrName
), dwFlags
);
404 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| This
->state
== SCRIPTSTATE_CLOSED
)
407 if(dwFlags
& SCRIPTITEM_GLOBALMEMBERS
) {
410 hres
= IActiveScriptSite_GetItemInfo(This
->site
, pstrName
, SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
412 WARN("GetItemInfo failed: %08x\n", hres
);
416 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&disp
);
417 IUnknown_Release(unk
);
419 WARN("object does not implement IDispatch\n");
423 if(This
->ctx
->host_global
)
424 IDispatch_Release(This
->ctx
->host_global
);
425 IDispatch_AddRef(disp
);
426 This
->ctx
->host_global
= disp
;
429 item
= heap_alloc(sizeof(*item
));
432 IDispatch_Release(disp
);
433 return E_OUTOFMEMORY
;
437 item
->flags
= dwFlags
;
438 item
->name
= heap_strdupW(pstrName
);
441 IDispatch_Release(disp
);
443 return E_OUTOFMEMORY
;
446 list_add_tail(&This
->ctx
->named_items
, &item
->entry
);
450 static HRESULT WINAPI
VBScript_AddTypeLib(IActiveScript
*iface
, REFGUID rguidTypeLib
,
451 DWORD dwMajor
, DWORD dwMinor
, DWORD dwFlags
)
453 VBScript
*This
= impl_from_IActiveScript(iface
);
454 FIXME("(%p)->()\n", This
);
458 static HRESULT WINAPI
VBScript_GetScriptDispatch(IActiveScript
*iface
, LPCOLESTR pstrItemName
, IDispatch
**ppdisp
)
460 VBScript
*This
= impl_from_IActiveScript(iface
);
462 TRACE("(%p)->(%p)\n", This
, ppdisp
);
467 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| !This
->ctx
->script_obj
) {
472 *ppdisp
= (IDispatch
*)&This
->ctx
->script_obj
->IDispatchEx_iface
;
473 IDispatch_AddRef(*ppdisp
);
477 static HRESULT WINAPI
VBScript_GetCurrentScriptThreadID(IActiveScript
*iface
,
478 SCRIPTTHREADID
*pstridThread
)
480 VBScript
*This
= impl_from_IActiveScript(iface
);
481 FIXME("(%p)->()\n", This
);
485 static HRESULT WINAPI
VBScript_GetScriptThreadID(IActiveScript
*iface
,
486 DWORD dwWin32ThreadId
, SCRIPTTHREADID
*pstidThread
)
488 VBScript
*This
= impl_from_IActiveScript(iface
);
489 FIXME("(%p)->()\n", This
);
493 static HRESULT WINAPI
VBScript_GetScriptThreadState(IActiveScript
*iface
,
494 SCRIPTTHREADID stidThread
, SCRIPTTHREADSTATE
*pstsState
)
496 VBScript
*This
= impl_from_IActiveScript(iface
);
497 FIXME("(%p)->()\n", This
);
501 static HRESULT WINAPI
VBScript_InterruptScriptThread(IActiveScript
*iface
,
502 SCRIPTTHREADID stidThread
, const EXCEPINFO
*pexcepinfo
, DWORD dwFlags
)
504 VBScript
*This
= impl_from_IActiveScript(iface
);
505 FIXME("(%p)->()\n", This
);
509 static HRESULT WINAPI
VBScript_Clone(IActiveScript
*iface
, IActiveScript
**ppscript
)
511 VBScript
*This
= impl_from_IActiveScript(iface
);
512 FIXME("(%p)->()\n", This
);
516 static const IActiveScriptVtbl VBScriptVtbl
= {
517 VBScript_QueryInterface
,
520 VBScript_SetScriptSite
,
521 VBScript_GetScriptSite
,
522 VBScript_SetScriptState
,
523 VBScript_GetScriptState
,
525 VBScript_AddNamedItem
,
527 VBScript_GetScriptDispatch
,
528 VBScript_GetCurrentScriptThreadID
,
529 VBScript_GetScriptThreadID
,
530 VBScript_GetScriptThreadState
,
531 VBScript_InterruptScriptThread
,
535 static inline VBScript
*impl_from_IActiveScriptParse(IActiveScriptParse
*iface
)
537 return CONTAINING_RECORD(iface
, VBScript
, IActiveScriptParse_iface
);
540 static HRESULT WINAPI
VBScriptParse_QueryInterface(IActiveScriptParse
*iface
, REFIID riid
, void **ppv
)
542 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
543 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
546 static ULONG WINAPI
VBScriptParse_AddRef(IActiveScriptParse
*iface
)
548 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
549 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
552 static ULONG WINAPI
VBScriptParse_Release(IActiveScriptParse
*iface
)
554 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
555 return IActiveScript_Release(&This
->IActiveScript_iface
);
558 static HRESULT WINAPI
VBScriptParse_InitNew(IActiveScriptParse
*iface
)
560 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
561 script_ctx_t
*ctx
, *old_ctx
;
563 TRACE("(%p)\n", This
);
568 ctx
= heap_alloc_zero(sizeof(script_ctx_t
));
570 return E_OUTOFMEMORY
;
572 ctx
->safeopt
= This
->safeopt
;
573 heap_pool_init(&ctx
->heap
);
574 list_init(&ctx
->objects
);
575 list_init(&ctx
->code_list
);
576 list_init(&ctx
->named_items
);
578 old_ctx
= InterlockedCompareExchangePointer((void**)&This
->ctx
, ctx
, NULL
);
584 return This
->site
? set_ctx_site(This
) : S_OK
;
587 static HRESULT WINAPI
VBScriptParse_AddScriptlet(IActiveScriptParse
*iface
,
588 LPCOLESTR pstrDefaultName
, LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
,
589 LPCOLESTR pstrSubItemName
, LPCOLESTR pstrEventName
, LPCOLESTR pstrDelimiter
,
590 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
,
591 BSTR
*pbstrName
, EXCEPINFO
*pexcepinfo
)
593 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
594 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This
, debugstr_w(pstrDefaultName
),
595 debugstr_w(pstrCode
), debugstr_w(pstrItemName
), debugstr_w(pstrSubItemName
),
596 debugstr_w(pstrEventName
), debugstr_w(pstrDelimiter
), wine_dbgstr_longlong(dwSourceContextCookie
),
597 ulStartingLineNumber
, dwFlags
, pbstrName
, pexcepinfo
);
601 static HRESULT WINAPI
VBScriptParse_ParseScriptText(IActiveScriptParse
*iface
,
602 LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
, IUnknown
*punkContext
,
603 LPCOLESTR pstrDelimiter
, CTXARG_T dwSourceContextCookie
, ULONG ulStartingLine
,
604 DWORD dwFlags
, VARIANT
*pvarResult
, EXCEPINFO
*pexcepinfo
)
606 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
610 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This
, debugstr_w(pstrCode
),
611 debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
612 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLine
, dwFlags
, pvarResult
, pexcepinfo
);
614 if(This
->thread_id
!= GetCurrentThreadId() || This
->state
== SCRIPTSTATE_CLOSED
)
617 hres
= compile_script(This
->ctx
, pstrCode
, pstrDelimiter
, &code
);
621 if(!is_started(This
)) {
622 code
->pending_exec
= TRUE
;
626 return exec_global_code(This
->ctx
, code
);
629 static const IActiveScriptParseVtbl VBScriptParseVtbl
= {
630 VBScriptParse_QueryInterface
,
631 VBScriptParse_AddRef
,
632 VBScriptParse_Release
,
633 VBScriptParse_InitNew
,
634 VBScriptParse_AddScriptlet
,
635 VBScriptParse_ParseScriptText
638 static inline VBScript
*impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2
*iface
)
640 return CONTAINING_RECORD(iface
, VBScript
, IActiveScriptParseProcedure2_iface
);
643 static HRESULT WINAPI
VBScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2
*iface
, REFIID riid
, void **ppv
)
645 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
646 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
649 static ULONG WINAPI
VBScriptParseProcedure_AddRef(IActiveScriptParseProcedure2
*iface
)
651 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
652 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
655 static ULONG WINAPI
VBScriptParseProcedure_Release(IActiveScriptParseProcedure2
*iface
)
657 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
658 return IActiveScript_Release(&This
->IActiveScript_iface
);
661 static HRESULT WINAPI
VBScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2
*iface
,
662 LPCOLESTR pstrCode
, LPCOLESTR pstrFormalParams
, LPCOLESTR pstrProcedureName
,
663 LPCOLESTR pstrItemName
, IUnknown
*punkContext
, LPCOLESTR pstrDelimiter
,
664 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
, IDispatch
**ppdisp
)
666 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
670 TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This
, debugstr_w(pstrCode
), debugstr_w(pstrFormalParams
),
671 debugstr_w(pstrProcedureName
), debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
672 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLineNumber
, dwFlags
, ppdisp
);
674 if(This
->thread_id
!= GetCurrentThreadId() || This
->state
== SCRIPTSTATE_CLOSED
)
677 hres
= compile_script(This
->ctx
, pstrCode
, pstrDelimiter
, &code
);
681 return create_procedure_disp(This
->ctx
, code
, ppdisp
);
684 static const IActiveScriptParseProcedure2Vtbl VBScriptParseProcedureVtbl
= {
685 VBScriptParseProcedure_QueryInterface
,
686 VBScriptParseProcedure_AddRef
,
687 VBScriptParseProcedure_Release
,
688 VBScriptParseProcedure_ParseProcedureText
,
691 static inline VBScript
*impl_from_IObjectSafety(IObjectSafety
*iface
)
693 return CONTAINING_RECORD(iface
, VBScript
, IObjectSafety_iface
);
696 static HRESULT WINAPI
VBScriptSafety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
698 VBScript
*This
= impl_from_IObjectSafety(iface
);
699 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
702 static ULONG WINAPI
VBScriptSafety_AddRef(IObjectSafety
*iface
)
704 VBScript
*This
= impl_from_IObjectSafety(iface
);
705 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
708 static ULONG WINAPI
VBScriptSafety_Release(IObjectSafety
*iface
)
710 VBScript
*This
= impl_from_IObjectSafety(iface
);
711 return IActiveScript_Release(&This
->IActiveScript_iface
);
714 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
716 static HRESULT WINAPI
VBScriptSafety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
717 DWORD
*pdwSupportedOptions
, DWORD
*pdwEnabledOptions
)
719 VBScript
*This
= impl_from_IObjectSafety(iface
);
721 TRACE("(%p)->(%s %p %p)\n", This
, debugstr_guid(riid
), pdwSupportedOptions
, pdwEnabledOptions
);
723 if(!pdwSupportedOptions
|| !pdwEnabledOptions
)
726 *pdwSupportedOptions
= SUPPORTED_OPTIONS
;
727 *pdwEnabledOptions
= This
->safeopt
;
731 static HRESULT WINAPI
VBScriptSafety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
732 DWORD dwOptionSetMask
, DWORD dwEnabledOptions
)
734 VBScript
*This
= impl_from_IObjectSafety(iface
);
736 TRACE("(%p)->(%s %x %x)\n", This
, debugstr_guid(riid
), dwOptionSetMask
, dwEnabledOptions
);
738 if(dwOptionSetMask
& ~SUPPORTED_OPTIONS
)
741 This
->safeopt
= (dwEnabledOptions
& dwOptionSetMask
) | (This
->safeopt
& ~dwOptionSetMask
) | INTERFACE_USES_DISPEX
;
745 static const IObjectSafetyVtbl VBScriptSafetyVtbl
= {
746 VBScriptSafety_QueryInterface
,
747 VBScriptSafety_AddRef
,
748 VBScriptSafety_Release
,
749 VBScriptSafety_GetInterfaceSafetyOptions
,
750 VBScriptSafety_SetInterfaceSafetyOptions
753 HRESULT WINAPI
VBScriptFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
, REFIID riid
, void **ppv
)
758 TRACE("(%p %s %p)\n", pUnkOuter
, debugstr_guid(riid
), ppv
);
760 ret
= heap_alloc_zero(sizeof(*ret
));
762 return E_OUTOFMEMORY
;
764 ret
->IActiveScript_iface
.lpVtbl
= &VBScriptVtbl
;
765 ret
->IActiveScriptParse_iface
.lpVtbl
= &VBScriptParseVtbl
;
766 ret
->IActiveScriptParseProcedure2_iface
.lpVtbl
= &VBScriptParseProcedureVtbl
;
767 ret
->IObjectSafety_iface
.lpVtbl
= &VBScriptSafetyVtbl
;
770 ret
->state
= SCRIPTSTATE_UNINITIALIZED
;
771 ret
->safeopt
= INTERFACE_USES_DISPEX
;
773 hres
= IActiveScript_QueryInterface(&ret
->IActiveScript_iface
, riid
, ppv
);
774 IActiveScript_Release(&ret
->IActiveScript_iface
);
779 IServiceProvider IServiceProvider_iface
;
783 IServiceProvider
*sp
;
786 static inline AXSite
*impl_from_IServiceProvider(IServiceProvider
*iface
)
788 return CONTAINING_RECORD(iface
, AXSite
, IServiceProvider_iface
);
791 static HRESULT WINAPI
AXSite_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
793 AXSite
*This
= impl_from_IServiceProvider(iface
);
795 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
796 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
797 *ppv
= &This
->IServiceProvider_iface
;
798 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
799 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
800 *ppv
= &This
->IServiceProvider_iface
;
802 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
804 return E_NOINTERFACE
;
807 IUnknown_AddRef((IUnknown
*)*ppv
);
811 static ULONG WINAPI
AXSite_AddRef(IServiceProvider
*iface
)
813 AXSite
*This
= impl_from_IServiceProvider(iface
);
814 LONG ref
= InterlockedIncrement(&This
->ref
);
816 TRACE("(%p) ref=%d\n", This
, ref
);
821 static ULONG WINAPI
AXSite_Release(IServiceProvider
*iface
)
823 AXSite
*This
= impl_from_IServiceProvider(iface
);
824 LONG ref
= InterlockedDecrement(&This
->ref
);
826 TRACE("(%p) ref=%d\n", This
, ref
);
834 static HRESULT WINAPI
AXSite_QueryService(IServiceProvider
*iface
,
835 REFGUID guidService
, REFIID riid
, void **ppv
)
837 AXSite
*This
= impl_from_IServiceProvider(iface
);
839 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
841 return IServiceProvider_QueryService(This
->sp
, guidService
, riid
, ppv
);
844 static IServiceProviderVtbl AXSiteVtbl
= {
845 AXSite_QueryInterface
,
851 IUnknown
*create_ax_site(script_ctx_t
*ctx
)
853 IServiceProvider
*sp
;
857 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
859 ERR("Could not get IServiceProvider iface: %08x\n", hres
);
863 ret
= heap_alloc(sizeof(*ret
));
865 IServiceProvider_Release(sp
);
869 ret
->IServiceProvider_iface
.lpVtbl
= &AXSiteVtbl
;
873 return (IUnknown
*)&ret
->IServiceProvider_iface
;