caller.c File Reference

#include <stdio.h>
#include <ole2.h>
#include <dispex.h>
#include <activscp.h>
#include <objsafe.h>
#include "wine/test.h"

Include dependency graph for caller.c:

Go to the source code of this file.

Macros
#define	COBJMACROS
#define	CONST_VTABLE
#define	IActiveScriptParse_QueryInterface   IActiveScriptParse32_QueryInterface
#define	IActiveScriptParse_Release   IActiveScriptParse32_Release
#define	IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew
#define	IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText
#define	DEFINE_EXPECT(func)    static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
#define	SET_EXPECT(func)    expect_ ## func = TRUE
#define	CHECK_EXPECT2(func)
#define	CHECK_EXPECT(func)
#define	CHECK_CALLED(func)
#define	CLEAR_CALLED(func)    expect_ ## func = called_ ## func = FALSE
#define	DISPID_TEST_TESTGETCALLER   0x1000
#define	DISPID_TEST_TESTGETCALLERVBS   0x1001
#define	DISPID_TEST_TESTGETCALLERNESTED   0x1002
#define	parse_script(a, s)   _parse_script(__LINE__,a,s)

Functions
	DEFINE_EXPECT (sp_caller_QI_NULL)
	DEFINE_EXPECT (site_QI_NULL)
	DEFINE_EXPECT (testGetCaller)
	DEFINE_EXPECT (testGetCallerVBS)
	DEFINE_EXPECT (testGetCallerNested)
	DEFINE_EXPECT (OnEnterScript)
	DEFINE_EXPECT (OnLeaveScript)
static void	_parse_script (unsigned line, IActiveScript *active_script, const WCHAR *script)
static HRESULT WINAPI	sp_caller_QueryInterface (IServiceProvider *iface, REFIID riid, void **ppv)
static ULONG WINAPI	sp_caller_AddRef (IServiceProvider *iface)
static ULONG WINAPI	sp_caller_Release (IServiceProvider *iface)
static HRESULT WINAPI	sp_caller_QueryService (IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
static HRESULT WINAPI	DispatchEx_QueryInterface (IDispatchEx *iface, REFIID riid, void **ppv)
static ULONG WINAPI	DispatchEx_AddRef (IDispatchEx *iface)
static ULONG WINAPI	DispatchEx_Release (IDispatchEx *iface)
static HRESULT WINAPI	DispatchEx_GetTypeInfoCount (IDispatchEx *iface, UINT *pctinfo)
static HRESULT WINAPI	DispatchEx_GetTypeInfo (IDispatchEx *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
static HRESULT WINAPI	DispatchEx_GetIDsOfNames (IDispatchEx *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
static HRESULT WINAPI	DispatchEx_Invoke (IDispatchEx *iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
static HRESULT WINAPI	DispatchEx_DeleteMemberByName (IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
static HRESULT WINAPI	DispatchEx_DeleteMemberByDispID (IDispatchEx *iface, DISPID id)
static HRESULT WINAPI	DispatchEx_GetMemberProperties (IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
static HRESULT WINAPI	DispatchEx_GetMemberName (IDispatchEx *iface, DISPID id, BSTR *pbstrName)
static HRESULT WINAPI	DispatchEx_GetNextDispID (IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
static HRESULT WINAPI	DispatchEx_GetNameSpaceParent (IDispatchEx *iface, IUnknown **ppunk)
static HRESULT WINAPI	Test_GetDispID (IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
static HRESULT WINAPI	Test_InvokeEx (IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
static HRESULT WINAPI	ActiveScriptSite_QueryInterface (IActiveScriptSite *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScriptSite_AddRef (IActiveScriptSite *iface)
static ULONG WINAPI	ActiveScriptSite_Release (IActiveScriptSite *iface)
static HRESULT WINAPI	ActiveScriptSite_GetLCID (IActiveScriptSite *iface, LCID *plcid)
static HRESULT WINAPI	ActiveScriptSite_GetItemInfo (IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
static HRESULT WINAPI	ActiveScriptSite_GetDocVersionString (IActiveScriptSite *iface, BSTR *pbstrVersion)
static HRESULT WINAPI	ActiveScriptSite_OnScriptTerminate (IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
static HRESULT WINAPI	ActiveScriptSite_OnStateChange (IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
static HRESULT WINAPI	ActiveScriptSite_OnScriptError (IActiveScriptSite *iface, IActiveScriptError *pscripterror)
static HRESULT WINAPI	ActiveScriptSite_OnEnterScript (IActiveScriptSite *iface)
static HRESULT WINAPI	ActiveScriptSite_OnLeaveScript (IActiveScriptSite *iface)
static IActiveScript *	create_script (void)
static void	run_scripts (void)
	START_TEST (caller)

Variables
const CLSID	CLSID_VBScript
static IActiveScript *	active_script
static IServiceProvider *	test_get_caller_sp
static IServiceProvider	sp_caller_obj = { &sp_caller_vtbl }
static const IServiceProviderVtbl	sp_caller_vtbl
static IDispatchExVtbl	testObjVtbl
static IDispatchEx	testObj = { &testObjVtbl }
static const IActiveScriptSiteVtbl	ActiveScriptSiteVtbl
static IActiveScriptSite	ActiveScriptSite = { &ActiveScriptSiteVtbl }

Macro Definition Documentation

CHECK_CALLED

#define CHECK_CALLED

(

func

)

Value:

    do { \
        ok(called_ ## func, "expected " #func "\n"); \
        expect_ ## func = called_ ## func = FALSE; \
    }while(0)

Definition at line 67 of file caller.c.

CHECK_EXPECT

#define CHECK_EXPECT

(

func

)

Value:

    do { \
        CHECK_EXPECT2(func); \
        expect_ ## func = FALSE; \
    }while(0)

Definition at line 61 of file caller.c.

CHECK_EXPECT2

#define CHECK_EXPECT2

(

func

)

Value:

    do { \
        ok(expect_ ##func, "unexpected call " #func "\n"); \
        called_ ## func = TRUE; \
    }while(0)

Definition at line 55 of file caller.c.

CLEAR_CALLED

#define CLEAR_CALLED

(

func

)

expect_ ## func = called_ ## func = FALSE

Definition at line 73 of file caller.c.

COBJMACROS

#define COBJMACROS

Definition at line 21 of file caller.c.

CONST_VTABLE

#define CONST_VTABLE

Definition at line 22 of file caller.c.

DEFINE_EXPECT

#define DEFINE_EXPECT

(

func

)

static BOOL expect_ ## func = FALSE, called_ ## func = FALSE

Definition at line 49 of file caller.c.

DISPID_TEST_TESTGETCALLER

#define DISPID_TEST_TESTGETCALLER   0x1000

Definition at line 87 of file caller.c.

DISPID_TEST_TESTGETCALLERNESTED

#define DISPID_TEST_TESTGETCALLERNESTED   0x1002

Definition at line 89 of file caller.c.

DISPID_TEST_TESTGETCALLERVBS

#define DISPID_TEST_TESTGETCALLERVBS   0x1001

Definition at line 88 of file caller.c.

IActiveScriptParse_InitNew

#define IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew

Definition at line 42 of file caller.c.

IActiveScriptParse_ParseScriptText

#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Definition at line 43 of file caller.c.

IActiveScriptParse_QueryInterface

#define IActiveScriptParse_QueryInterface   IActiveScriptParse32_QueryInterface

Definition at line 40 of file caller.c.

IActiveScriptParse_Release

#define IActiveScriptParse_Release   IActiveScriptParse32_Release

Definition at line 41 of file caller.c.

parse_script

#define parse_script	(		a,
			s
	)		_parse_script(__LINE__,a,s)

Definition at line 91 of file caller.c.

SET_EXPECT

#define SET_EXPECT

(

func

)

expect_ ## func = TRUE

Definition at line 52 of file caller.c.

Function Documentation

_parse_script()

static void _parse_script ( unsigned  line, IActiveScript *  active_script, const WCHAR *  script  )

static

Definition at line 92 of file caller.c.

{
    IActiveScriptParse *parser;
    HRESULT hres;
 
    hres = IActiveScript_QueryInterface(active_script, &IID_IActiveScriptParse, (void**)&parser);
    ok_(__FILE__,line)(hres == S_OK, "Could not get IActiveScriptParse: %08lx\n", hres);
 
    hres = IActiveScriptParse_ParseScriptText(parser, script, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
    ok_(__FILE__,line)(hres == S_OK, "ParseScriptText failed: %08lx\n", hres);
    IActiveScriptParse_Release(parser);
}

ActiveScriptSite_AddRef()

static ULONG WINAPI ActiveScriptSite_AddRef ( IActiveScriptSite *  iface )

static

Definition at line 397 of file caller.c.

{
    return 2;
}

ActiveScriptSite_GetDocVersionString()

static HRESULT WINAPI ActiveScriptSite_GetDocVersionString ( IActiveScriptSite *  iface, BSTR *  pbstrVersion  )

static

Definition at line 424 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_GetItemInfo()

static HRESULT WINAPI ActiveScriptSite_GetItemInfo ( IActiveScriptSite *  iface, LPCOLESTR  pstrName, DWORD  dwReturnMask, IUnknown **  ppiunkItem, ITypeInfo **  ppti  )

static

Definition at line 413 of file caller.c.

{
    ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %lx\n", dwReturnMask);
    ok(!ppti, "ppti != NULL\n");
    ok(!lstrcmpW(pstrName, L"test"), "pstrName = %s\n", wine_dbgstr_w(pstrName));
 
    *ppiunkItem = (IUnknown*)&testObj;
    return S_OK;
}

ActiveScriptSite_GetLCID()

static HRESULT WINAPI ActiveScriptSite_GetLCID ( IActiveScriptSite *  iface, LCID *  plcid  )

static

Definition at line 407 of file caller.c.

{
    *plcid = GetUserDefaultLCID();
    return S_OK;
}

ActiveScriptSite_OnEnterScript()

static HRESULT WINAPI ActiveScriptSite_OnEnterScript ( IActiveScriptSite *  iface )

static

Definition at line 445 of file caller.c.

{
    CHECK_EXPECT(OnEnterScript);
    return E_NOTIMPL;
}

ActiveScriptSite_OnLeaveScript()

static HRESULT WINAPI ActiveScriptSite_OnLeaveScript ( IActiveScriptSite *  iface )

static

Definition at line 451 of file caller.c.

{
    CHECK_EXPECT(OnLeaveScript);
    return E_NOTIMPL;
}

ActiveScriptSite_OnScriptError()

static HRESULT WINAPI ActiveScriptSite_OnScriptError ( IActiveScriptSite *  iface, IActiveScriptError *  pscripterror  )

static

Definition at line 440 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnScriptTerminate()

static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate ( IActiveScriptSite *  iface, const VARIANT *  pvarResult, const EXCEPINFO *  pexcepinfo  )

static

Definition at line 429 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnStateChange()

static HRESULT WINAPI ActiveScriptSite_OnStateChange ( IActiveScriptSite *  iface, SCRIPTSTATE  ssScriptState  )

static

Definition at line 435 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_QueryInterface()

static HRESULT WINAPI ActiveScriptSite_QueryInterface ( IActiveScriptSite *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 380 of file caller.c.

{
    if(IsEqualGUID(&IID_IUnknown, riid)) {
        *ppv = iface;
    }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) {
        *ppv = iface;
    }else {
        if(IsEqualGUID(&IID_NULL, riid))
            CHECK_EXPECT(site_QI_NULL);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

ActiveScriptSite_Release()

static ULONG WINAPI ActiveScriptSite_Release ( IActiveScriptSite *  iface )

static

Definition at line 402 of file caller.c.

{
    return 1;
}

create_script()

static IActiveScript * create_script ( void  )

static

Definition at line 473 of file caller.c.

{
    IActiveScriptParse *parser;
    IActiveScript *script;
    HRESULT hres;
 
    hres = CoCreateInstance(&CLSID_VBScript, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
            &IID_IActiveScript, (void**)&script);
    if(FAILED(hres))
        return NULL;
 
    hres = IActiveScript_QueryInterface(script, &IID_IActiveScriptParse, (void**)&parser);
    ok(hres == S_OK, "Could not get IActiveScriptParse: %08lx\n", hres);
 
    hres = IActiveScriptParse_InitNew(parser);
    ok(hres == S_OK, "InitNew failed: %08lx\n", hres);
    IActiveScriptParse_Release(parser);
 
    hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
    ok(hres == S_OK, "SetScriptSite failed: %08lx\n", hres);
 
    hres = IActiveScript_AddNamedItem(script, L"test",
            SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
    ok(hres == S_OK, "AddNamedItem failed: %08lx\n", hres);
 
    hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED);
    ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08lx\n", hres);
 
    return script;
}

DEFINE_EXPECT() [1/7]

DEFINE_EXPECT

(

OnEnterScript

)

DEFINE_EXPECT() [2/7]

DEFINE_EXPECT

(

OnLeaveScript

)

DEFINE_EXPECT() [3/7]

DEFINE_EXPECT

(

site_QI_NULL

)

DEFINE_EXPECT() [4/7]

DEFINE_EXPECT

(

sp_caller_QI_NULL

)

DEFINE_EXPECT() [5/7]

DEFINE_EXPECT

(

testGetCaller

)

DEFINE_EXPECT() [6/7]

DEFINE_EXPECT

(

testGetCallerNested

)

DEFINE_EXPECT() [7/7]

DEFINE_EXPECT

(

testGetCallerVBS

)

DispatchEx_AddRef()

static ULONG WINAPI DispatchEx_AddRef ( IDispatchEx *  iface )

static

Definition at line 170 of file caller.c.

{
    return 2;
}

DispatchEx_DeleteMemberByDispID()

static HRESULT WINAPI DispatchEx_DeleteMemberByDispID ( IDispatchEx *  iface, DISPID  id  )

static

Definition at line 211 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_DeleteMemberByName()

static HRESULT WINAPI DispatchEx_DeleteMemberByName ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex  )

static

Definition at line 205 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetIDsOfNames()

static HRESULT WINAPI DispatchEx_GetIDsOfNames ( IDispatchEx *  iface, REFIID  riid, LPOLESTR *  rgszNames, UINT  cNames, LCID  lcid, DISPID *  rgDispId  )

static

Definition at line 191 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetMemberName()

static HRESULT WINAPI DispatchEx_GetMemberName ( IDispatchEx *  iface, DISPID  id, BSTR *  pbstrName  )

static

Definition at line 223 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetMemberProperties()

static HRESULT WINAPI DispatchEx_GetMemberProperties ( IDispatchEx *  iface, DISPID  id, DWORD  grfdexFetch, DWORD *  pgrfdex  )

static

Definition at line 217 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetNameSpaceParent()

static HRESULT WINAPI DispatchEx_GetNameSpaceParent ( IDispatchEx *  iface, IUnknown **  ppunk  )

static

Definition at line 235 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetNextDispID()

static HRESULT WINAPI DispatchEx_GetNextDispID ( IDispatchEx *  iface, DWORD  grfdex, DISPID  id, DISPID *  pid  )

static

Definition at line 229 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_GetTypeInfo()

static HRESULT WINAPI DispatchEx_GetTypeInfo ( IDispatchEx *  iface, UINT  iTInfo, LCID  lcid, ITypeInfo **  ppTInfo  )

static

Definition at line 186 of file caller.c.

{
    return E_NOTIMPL;
}

DispatchEx_GetTypeInfoCount()

static HRESULT WINAPI DispatchEx_GetTypeInfoCount ( IDispatchEx *  iface, UINT *  pctinfo  )

static

Definition at line 180 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_Invoke()

static HRESULT WINAPI DispatchEx_Invoke ( IDispatchEx *  iface, DISPID  dispIdMember, REFIID  riid, LCID  lcid, WORD  wFlags, DISPPARAMS *  pDispParams, VARIANT *  pVarResult, EXCEPINFO *  pExcepInfo, UINT *  puArgErr  )

static

Definition at line 198 of file caller.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

DispatchEx_QueryInterface()

static HRESULT WINAPI DispatchEx_QueryInterface ( IDispatchEx *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 154 of file caller.c.

{
    if(IsEqualGUID(riid, &IID_IUnknown)) {
        *ppv = iface;
    }else if(IsEqualGUID(riid, &IID_IDispatch) || IsEqualGUID(riid, &IID_IDispatchEx)) {
        *ppv = iface;
    }else if(IsEqualGUID(&IID_IObjectSafety, riid)) {
        ok(0, "Unexpected IID_IObjectSafety query\n");
    }else {
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    return S_OK;
}

DispatchEx_Release()

static ULONG WINAPI DispatchEx_Release ( IDispatchEx *  iface )

static

Definition at line 175 of file caller.c.

{
    return 1;
}

run_scripts()

static void run_scripts ( void  )

static

Definition at line 504 of file caller.c.

{
    DISPPARAMS dp = { 0 };
    IDispatchEx *dispex;
    IDispatch *disp;
    DISPID dispid;
    HRESULT hres;
    BSTR bstr;
 
    active_script = create_script();
 
    SET_EXPECT(OnEnterScript);
    SET_EXPECT(OnLeaveScript);
    SET_EXPECT(testGetCallerVBS);
    parse_script(active_script,
                 L"Sub testGetCallerFunc\nCall testGetCaller\nEnd Sub\n"
                 L"Call testGetCallerVBS(42)");
    CHECK_CALLED(testGetCallerVBS);
    CHECK_CALLED(OnLeaveScript);
    CHECK_CALLED(OnEnterScript);
 
    hres = IActiveScript_GetScriptDispatch(active_script, NULL, &disp);
    ok(hres == S_OK, "GetScriptDispatch failed: %08lx\n", hres);
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    ok(hres == S_OK, "Could not get IDispatchEx: %08lx\n", hres);
    IDispatch_Release(disp);
    bstr = SysAllocString(L"testGetCallerFunc");
    hres = IDispatchEx_GetDispID(dispex, bstr, 0, &dispid);
    ok(hres == S_OK, "GetDispID failed: %08lx\n", hres);
    SysFreeString(bstr);
 
    SET_EXPECT(OnEnterScript);
    SET_EXPECT(OnLeaveScript);
    SET_EXPECT(testGetCaller);
    hres = IDispatchEx_InvokeEx(dispex, dispid, 0, DISPATCH_METHOD, &dp, NULL, NULL, NULL);
    ok(hres == S_OK, "InvokeEx failed: %08lx\n", hres);
    CHECK_CALLED(testGetCaller);
    CHECK_CALLED(OnLeaveScript);
    test_get_caller_sp = &sp_caller_obj;
    SET_EXPECT(OnEnterScript);
    SET_EXPECT(OnLeaveScript);
    SET_EXPECT(testGetCaller);
    hres = IDispatchEx_InvokeEx(dispex, dispid, 0, DISPATCH_METHOD, &dp, NULL, NULL, test_get_caller_sp);
    ok(hres == S_OK, "InvokeEx failed: %08lx\n", hres);
    CHECK_CALLED(testGetCaller);
    CHECK_CALLED(OnLeaveScript);
    IDispatchEx_Release(dispex);
 
    IActiveScript_Release(active_script);
    active_script = NULL;
}

sp_caller_AddRef()

static ULONG WINAPI sp_caller_AddRef ( IServiceProvider *  iface )

static

Definition at line 121 of file caller.c.

{
    return 2;
}

sp_caller_QueryInterface()

static HRESULT WINAPI sp_caller_QueryInterface ( IServiceProvider *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 107 of file caller.c.

{
    if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IServiceProvider, riid))
        *ppv = &sp_caller_obj;
    else {
        ok(IsEqualGUID(&IID_NULL, riid), "unexpected riid %s\n", wine_dbgstr_guid(riid));
        CHECK_EXPECT(sp_caller_QI_NULL);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    return S_OK;
}

sp_caller_QueryService()

static HRESULT WINAPI sp_caller_QueryService ( IServiceProvider *  iface, REFGUID  guidService, REFIID  riid, void **  ppv  )

static

Definition at line 131 of file caller.c.

{
    if(IsEqualGUID(guidService, &SID_GetCaller)) {
        ok(IsEqualGUID(riid, &IID_IServiceProvider), "unexpected riid %s\n", wine_dbgstr_guid(riid));
        *ppv = NULL;
        return S_OK;
    }
 
    ok(0, "unexpected guidService %s with riid %s\n", wine_dbgstr_guid(guidService), wine_dbgstr_guid(riid));
    *ppv = NULL;
    return E_NOINTERFACE;
}

sp_caller_Release()

static ULONG WINAPI sp_caller_Release ( IServiceProvider *  iface )

static

Definition at line 126 of file caller.c.

{
    return 1;
}

START_TEST()

START_TEST

(

caller

)

Definition at line 556 of file caller.c.

{
    CoInitialize(NULL);
 
    run_scripts();
 
    CoUninitialize();
}

Test_GetDispID()

static HRESULT WINAPI Test_GetDispID ( IDispatchEx *  iface, BSTR  bstrName, DWORD  grfdex, DISPID *  pid  )

static

Definition at line 241 of file caller.c.

{
    if(!lstrcmpW(bstrName, L"testGetCaller")) {
        ok(grfdex == fdexNameCaseInsensitive, "grfdex = %lx\n", grfdex);
        *pid = DISPID_TEST_TESTGETCALLER;
        return S_OK;
    }
    if(!lstrcmpW(bstrName, L"testGetCallerVBS")) {
        ok(grfdex == fdexNameCaseInsensitive, "grfdex = %lx\n", grfdex);
        *pid = DISPID_TEST_TESTGETCALLERVBS;
        return S_OK;
    }
    if(!lstrcmpW(bstrName, L"testGetCallerNested")) {
        ok(grfdex == fdexNameCaseInsensitive, "grfdex = %lx\n", grfdex);
        *pid = DISPID_TEST_TESTGETCALLERNESTED;
        return S_OK;
    }
 
    return E_NOTIMPL;
}

Test_InvokeEx()

static HRESULT WINAPI Test_InvokeEx ( IDispatchEx *  iface, DISPID  id, LCID  lcid, WORD  wFlags, DISPPARAMS *  pdp, VARIANT *  pvarRes, EXCEPINFO *  pei, IServiceProvider *  pspCaller  )

static

Definition at line 262 of file caller.c.

{
    IServiceProvider *caller = (void*)0xdeadbeef;
    HRESULT hres;
 
    ok(pspCaller != NULL, "pspCaller == NULL\n");
 
    switch(id) {
    case DISPID_TEST_TESTGETCALLER: {
        void *iface = (void*)0xdeadbeef;
 
        CHECK_EXPECT(testGetCaller);
        CHECK_CALLED(OnEnterScript);
 
        ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(!pvarRes, "pvarRes != NULL\n");
        ok(pei != NULL, "pei == NULL\n");
 
        SET_EXPECT(OnEnterScript);
        SET_EXPECT(OnLeaveScript);
        SET_EXPECT(testGetCallerNested);
        parse_script(active_script, L"Call testGetCallerNested(1,2)");
        CHECK_CALLED(testGetCallerNested);
        CHECK_CALLED(OnLeaveScript);
        CHECK_CALLED(OnEnterScript);
        SET_EXPECT(OnLeaveScript);
 
        hres = IServiceProvider_QueryService(pspCaller, &SID_GetCaller, &IID_IServiceProvider, (void**)&caller);
        ok(hres == S_OK, "Could not get SID_GetCaller service: %08lx\n", hres);
        ok(caller == test_get_caller_sp, "caller != test_get_caller_sp\n");
        if(caller) IServiceProvider_Release(caller);
 
        if(test_get_caller_sp)
            SET_EXPECT(sp_caller_QI_NULL);
        hres = IServiceProvider_QueryService(pspCaller, &SID_GetCaller, &IID_NULL, &iface);
        ok(hres == (test_get_caller_sp ? E_NOINTERFACE : S_OK), "Could not query SID_GetCaller with IID_NULL: %08lx\n", hres);
        ok(iface == NULL, "iface != NULL\n");
        if(test_get_caller_sp)
            CHECK_CALLED(sp_caller_QI_NULL);
        break;
    }
 
    case DISPID_TEST_TESTGETCALLERVBS: {
        IUnknown *unk;
 
        CHECK_EXPECT(testGetCallerVBS);
 
        ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(!pvarRes, "pvarRes != NULL\n");
        ok(pei != NULL, "pei == NULL\n");
        ok(V_VT(pdp->rgvarg) == VT_I2, "V_VT(rgvarg) = %d\n", V_VT(pdp->rgvarg));
        ok(V_I2(pdp->rgvarg) == 42, "V_I2(rgvarg) = %d\n", V_I2(pdp->rgvarg));
 
        hres = IServiceProvider_QueryService(pspCaller, &SID_GetCaller, &IID_IServiceProvider, (void**)&caller);
        ok(hres == E_NOINTERFACE, "QueryService(SID_GetCaller) returned: %08lx\n", hres);
        ok(caller == NULL, "caller != NULL\n");
 
        SET_EXPECT(site_QI_NULL);
        hres = IServiceProvider_QueryService(pspCaller, &IID_IActiveScriptSite, &IID_NULL, (void**)&unk);
        ok(hres == E_NOINTERFACE, "QueryService(IActiveScriptSite->NULL) returned: %08lx\n", hres);
        ok(!unk, "unk != NULL\n");
        CHECK_CALLED(site_QI_NULL);
        break;
    }
 
    case DISPID_TEST_TESTGETCALLERNESTED:
        CHECK_EXPECT(testGetCallerNested);
 
        ok(wFlags == DISPATCH_METHOD, "wFlags = %x\n", wFlags);
        ok(pdp != NULL, "pdp == NULL\n");
        ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
        ok(!pvarRes, "pvarRes != NULL\n");
        ok(pei != NULL, "pei == NULL\n");
        ok(V_VT(&pdp->rgvarg[0]) == VT_I2, "V_VT(rgvarg[0]) = %d\n", V_VT(&pdp->rgvarg[0]));
        ok(V_VT(&pdp->rgvarg[1]) == VT_I2, "V_VT(rgvarg[1]) = %d\n", V_VT(&pdp->rgvarg[1]));
        ok(V_I2(&pdp->rgvarg[0]) == 2, "V_I2(rgvarg[0]) = %d\n", V_I2(&pdp->rgvarg[0]));
        ok(V_I2(&pdp->rgvarg[1]) == 1, "V_I2(rgvarg[1]) = %d\n", V_I2(&pdp->rgvarg[1]));
 
        hres = IServiceProvider_QueryService(pspCaller, &SID_GetCaller, &IID_IServiceProvider, (void**)&caller);
        ok(hres == E_NOINTERFACE, "QueryService(SID_GetCaller) returned: %08lx\n", hres);
        ok(caller == NULL, "caller != NULL\n");
        break;
 
    default:
        ok(0, "unexpected call\n");
        return E_NOTIMPL;
    }
 
    return S_OK;
}

Variable Documentation

active_script

IActiveScript* active_script

static

Definition at line 84 of file caller.c.

Referenced by _parse_script(), InternetHostSecurityManager_QueryCustomPolicy(), run_scripts(), and Test_InvokeEx().

ActiveScriptSite

IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl }

static

Definition at line 471 of file caller.c.

ActiveScriptSiteVtbl

const IActiveScriptSiteVtbl ActiveScriptSiteVtbl

static

Initial value:

= {
    ActiveScriptSite_QueryInterface,
    ActiveScriptSite_AddRef,
    ActiveScriptSite_Release,
    ActiveScriptSite_GetLCID,
    ActiveScriptSite_GetItemInfo,
    ActiveScriptSite_GetDocVersionString,
    ActiveScriptSite_OnScriptTerminate,
    ActiveScriptSite_OnStateChange,
    ActiveScriptSite_OnScriptError,
    ActiveScriptSite_OnEnterScript,
    ActiveScriptSite_OnLeaveScript
}

Definition at line 457 of file caller.c.

CLSID_VBScript

const CLSID CLSID_VBScript

extern

Referenced by check_vbscript(), create_script(), create_vbscript(), DllGetClassObject(), and get_guid_from_type().

sp_caller_obj

static IServiceProvider sp_caller_obj = { &sp_caller_vtbl }

static

Definition at line 105 of file caller.c.

sp_caller_vtbl

const IServiceProviderVtbl sp_caller_vtbl

static

Initial value:

= {
    sp_caller_QueryInterface,
    sp_caller_AddRef,
    sp_caller_Release,
    sp_caller_QueryService
}

Definition at line 145 of file caller.c.

test_get_caller_sp

IServiceProvider* test_get_caller_sp

static

Definition at line 85 of file caller.c.

testObj

IDispatchEx testObj = { &testObjVtbl }

static

Definition at line 378 of file caller.c.

testObjVtbl

IDispatchExVtbl testObjVtbl

static

Initial value:

= {
    DispatchEx_QueryInterface,
    DispatchEx_AddRef,
    DispatchEx_Release,
    DispatchEx_GetTypeInfoCount,
    DispatchEx_GetTypeInfo,
    DispatchEx_GetIDsOfNames,
    DispatchEx_Invoke,
    Test_GetDispID,
    Test_InvokeEx,
    DispatchEx_DeleteMemberByName,
    DispatchEx_DeleteMemberByDispID,
    DispatchEx_GetMemberProperties,
    DispatchEx_GetMemberName,
    DispatchEx_GetNextDispID,
    DispatchEx_GetNameSpaceParent
}

Definition at line 360 of file caller.c.