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.

Classes
struct	conv_results_t

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	DISPID_TEST_TESTARGCONV   0x1000
#define	call_change_type(a, b, c, d)   _call_change_type(__LINE__,a,b,c,d)
#define	change_type_fail(a, b, c, d)   _change_type_fail(__LINE__,a,b,c,d)
#define	parse_script_a(p, s)   _parse_script_a(__LINE__,p,s)

Functions
	DEFINE_EXPECT (testArgConv)
static BSTR	a2bstr (const char *str)
static int	strcmp_wa (LPCWSTR strw, const char *stra)
static void	_call_change_type (unsigned line, IVariantChangeType *change_type, VARIANT *dst, VARIANT *src, VARTYPE vt)
static void	_change_type_fail (unsigned line, IVariantChangeType *change_type, VARIANT *src, VARTYPE vt, HRESULT exhres)
static void	test_change_type (IVariantChangeType *change_type, VARIANT *src, const conv_results_t *ex)
static void	test_change_types (IVariantChangeType *change_type, IDispatch *obj_disp)
static void	test_caller (IServiceProvider *caller, IDispatch *arg_obj)
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 void	_parse_script_a (unsigned line, IActiveScriptParse *parser, const char *script)
static IActiveScriptParse *	create_script (void)
static void	run_scripts (void)
static BOOL	check_jscript (void)
	START_TEST (caller)

Variables
static const CLSID	CLSID_JScript
static const WCHAR	testW [] = {'t','e','s','t',0}
static IVariantChangeType *	script_change_type
static IDispatch *	stored_obj
static IDispatchExVtbl	testObjVtbl
static IDispatchEx	testObj = { &testObjVtbl }
static const IActiveScriptSiteVtbl	ActiveScriptSiteVtbl
static IActiveScriptSite	ActiveScriptSite = { &ActiveScriptSiteVtbl }

Macro Definition Documentation

call_change_type

#define call_change_type	(		a,
			b,
			c,
			d
	)		_call_change_type(__LINE__,a,b,c,d)

Definition at line 110 of file caller.c.

change_type_fail

#define change_type_fail	(		a,
			b,
			c,
			d
	)		_change_type_fail(__LINE__,a,b,c,d)

Definition at line 121 of file caller.c.

CHECK_CALLED

#define CHECK_CALLED

(

func

)

Value:

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

Definition at line 68 of file caller.c.

CHECK_EXPECT

#define CHECK_EXPECT

(

func

)

Value:

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

Definition at line 62 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 56 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 50 of file caller.c.

DISPID_TEST_TESTARGCONV

#define DISPID_TEST_TESTARGCONV   0x1000

Definition at line 81 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_a

#define parse_script_a	(		p,
			s
	)		_parse_script_a(__LINE__,p,s)

Definition at line 489 of file caller.c.

SET_EXPECT

#define SET_EXPECT

(

func

)

expect_ ## func = TRUE

Definition at line 53 of file caller.c.

Function Documentation

_call_change_type()

static void _call_change_type ( unsigned  line, IVariantChangeType *  change_type, VARIANT *  dst, VARIANT *  src, VARTYPE  vt  )

static

Definition at line 111 of file caller.c.

{
    HRESULT hres;
 
    VariantInit(dst);
    hres = IVariantChangeType_ChangeType(change_type, dst, src, 0, vt);
    ok_(__FILE__,line)(hres == S_OK, "ChangeType(%d) failed: %08x\n", vt, hres);
    ok_(__FILE__,line)(V_VT(dst) == vt, "V_VT(dst) = %d\n", V_VT(dst));
}

_change_type_fail()

static void _change_type_fail ( unsigned  line, IVariantChangeType *  change_type, VARIANT *  src, VARTYPE  vt, HRESULT  exhres  )

static

Definition at line 122 of file caller.c.

{
    VARIANT v;
    HRESULT hres;
 
    V_VT(&v) = VT_EMPTY;
    hres = IVariantChangeType_ChangeType(change_type, &v, src, 0, vt);
    ok_(__FILE__,line)(hres == exhres, "ChangeType failed: %08x, expected %08x\n", hres, exhres);
}

_parse_script_a()

static void _parse_script_a ( unsigned  line, IActiveScriptParse *  parser, const char *  script  )

static

Definition at line 490 of file caller.c.

{
    BSTR str;
    HRESULT hres;
 
    str = a2bstr(script);
    hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
    SysFreeString(str);
    ok_(__FILE__,line)(hres == S_OK, "ParseScriptText failed: %08x\n", hres);
}

a2bstr()

static BSTR a2bstr ( const char *  str )

static

Definition at line 83 of file caller.c.

{
    BSTR ret;
    int len;
 
    len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
    ret = SysAllocStringLen(NULL, len-1);
    MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 
    return ret;
}

Referenced by _parse_script_a(), check_jscript(), and test_change_types().

ActiveScriptSite_AddRef()

static ULONG WINAPI ActiveScriptSite_AddRef ( IActiveScriptSite *  iface )

static

Definition at line 415 of file caller.c.

{
    return 2;
}

ActiveScriptSite_GetDocVersionString()

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

static

Definition at line 442 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 431 of file caller.c.

{
    ok(dwReturnMask == SCRIPTINFO_IUNKNOWN, "unexpected dwReturnMask %x\n", dwReturnMask);
    ok(!ppti, "ppti != NULL\n");
    ok(!strcmp_wa(pstrName, "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 425 of file caller.c.

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

ActiveScriptSite_OnEnterScript()

static HRESULT WINAPI ActiveScriptSite_OnEnterScript ( IActiveScriptSite *  iface )

static

Definition at line 463 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnLeaveScript()

static HRESULT WINAPI ActiveScriptSite_OnLeaveScript ( IActiveScriptSite *  iface )

static

Definition at line 468 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnScriptError()

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

static

Definition at line 458 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 447 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_OnStateChange()

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

static

Definition at line 453 of file caller.c.

{
    return E_NOTIMPL;
}

ActiveScriptSite_QueryInterface()

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

static

Definition at line 400 of file caller.c.

{
    if(IsEqualGUID(&IID_IUnknown, riid)) {
        *ppv = iface;
    }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) {
        *ppv = iface;
    }else {
        *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 420 of file caller.c.

{
    return 1;
}

check_jscript()

static BOOL check_jscript ( void  )

static

Definition at line 559 of file caller.c.

{
    IActiveScriptProperty *script_prop;
    IActiveScriptParse *parser;
    BSTR str;
    HRESULT hres;
 
    parser = create_script();
    if(!parser)
        return FALSE;
 
    str = a2bstr("if(!('localeCompare' in String.prototype)) throw 1;");
    hres = IActiveScriptParse_ParseScriptText(parser, str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
    SysFreeString(str);
 
    if(hres == S_OK)
        hres = IActiveScriptParse_QueryInterface(parser, &IID_IActiveScriptProperty, (void**)&script_prop);
    IActiveScriptParse_Release(parser);
    if(hres == S_OK)
        IActiveScriptProperty_Release(script_prop);
 
    return hres == S_OK;
}

Referenced by START_TEST().

create_script()

static IActiveScriptParse * create_script ( void  )

static

Definition at line 501 of file caller.c.

{
    IActiveScriptParse *parser;
    IActiveScript *script;
    HRESULT hres;
 
    hres = CoCreateInstance(&CLSID_JScript, 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: %08x\n", hres);
 
    hres = IActiveScriptParse_InitNew(parser);
    ok(hres == S_OK, "InitNew failed: %08x\n", hres);
 
    hres = IActiveScript_SetScriptSite(script, &ActiveScriptSite);
    ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
 
    hres = IActiveScript_AddNamedItem(script, testW,
            SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
    ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
 
    hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED);
    ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
 
    IActiveScript_Release(script);
 
    return parser;
}

Referenced by check_jscript(), run_scripts(), test_ActiveXObject(), test_CreateObject(), and test_GetObject().

DEFINE_EXPECT()

DEFINE_EXPECT

(

testArgConv

)

DispatchEx_AddRef()

static ULONG WINAPI DispatchEx_AddRef ( IDispatchEx *  iface )

static

Definition at line 262 of file caller.c.

{
    return 2;
}

DispatchEx_DeleteMemberByDispID()

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

static

Definition at line 307 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 301 of file caller.c.

{
    ok(0, "unexpected call %s %x\n", wine_dbgstr_w(bstrName), grfdex);
    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 285 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 319 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 313 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 331 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 325 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 278 of file caller.c.

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

DispatchEx_GetTypeInfoCount()

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

static

Definition at line 272 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 293 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 246 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 267 of file caller.c.

{
    return 1;
}

run_scripts()

static void run_scripts ( void  )

static

Definition at line 533 of file caller.c.

{
    IActiveScriptParse *parser;
    HRESULT hres;
 
    parser = create_script();
 
    hres = IActiveScriptParse_QueryInterface(parser, &IID_IVariantChangeType, (void**)&script_change_type);
    ok(hres == S_OK, "Could not get IVariantChangeType iface: %08x\n", hres);
 
    SET_EXPECT(testArgConv);
    parse_script_a(parser,
                   "var obj = {"
                   "    toString: function() { return 'strval'; },"
                   "    valueOf: function()  { return 10; }"
                   "};"
                   "testArgConv(obj);");
    CHECK_CALLED(testArgConv);
 
    test_change_types(script_change_type, stored_obj);
    IDispatch_Release(stored_obj);
    IVariantChangeType_Release(script_change_type);
 
    IActiveScriptParse_Release(parser);
}

Referenced by START_TEST().

START_TEST()

START_TEST

(

caller

)

Definition at line 583 of file caller.c.

{
    CoInitialize(NULL);
 
    if(check_jscript())
        run_scripts();
    else
        win_skip("Broken (too old) jscript\n");
 
    CoUninitialize();
}

strcmp_wa()

static int strcmp_wa ( LPCWSTR  strw, const char *  stra  )

static

Definition at line 95 of file caller.c.

{
    CHAR buf[512];
    WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), 0, 0);
    return lstrcmpA(buf, stra);
}

Referenced by ActiveScriptSite_GetItemInfo(), test_change_type(), test_change_types(), and Test_GetDispID().

test_caller()

static void test_caller ( IServiceProvider *  caller, IDispatch *  arg_obj  )

static

Definition at line 232 of file caller.c.

{
    IVariantChangeType *change_type;
    HRESULT hres;
 
    hres = IServiceProvider_QueryService(caller, &SID_VariantConversion, &IID_IVariantChangeType, (void**)&change_type);
    ok(hres == S_OK, "Could not get SID_VariantConversion service: %08x\n", hres);
 
    ok(change_type == script_change_type, "change_type != script_change_type\n");
    test_change_types(change_type, arg_obj);
 
    IVariantChangeType_Release(change_type);
}

Referenced by Test_InvokeEx().

test_change_type()

static void test_change_type ( IVariantChangeType *  change_type, VARIANT *  src, const conv_results_t *  ex  )

static

Definition at line 132 of file caller.c.

{
    VARIANT v;
 
    call_change_type(change_type, &v, src, VT_I4);
    ok(V_I4(&v) == ex->int_result, "V_I4(v) = %d, expected %d\n", V_I4(&v), ex->int_result);
 
    call_change_type(change_type, &v, src, VT_UI2);
    ok(V_UI2(&v) == (UINT16)ex->int_result, "V_UI2(v) = %u, expected %u\n", V_UI2(&v), (UINT16)ex->int_result);
 
    call_change_type(change_type, &v, src, VT_BSTR);
    ok(!strcmp_wa(V_BSTR(&v), ex->str_result), "V_BSTR(v) = %s, expected %s\n", wine_dbgstr_w(V_BSTR(&v)), ex->str_result);
    VariantClear(&v);
 
    call_change_type(change_type, &v, src, VT_BOOL);
    ok(V_BOOL(&v) == ex->bool_result, "V_BOOL(v) = %x, expected %x\n", V_BOOL(&v), ex->bool_result);
 
    if(ex->test_double) {
        call_change_type(change_type, &v, src, VT_R8);
        ok(V_R8(&v) == ex->double_result, "V_R8(v) = %lf, expected %lf\n", V_R8(&v), ex->double_result);
 
        call_change_type(change_type, &v, src, VT_R4);
        ok(V_R4(&v) == (float)ex->double_result, "V_R4(v) = %f, expected %f\n", V_R4(&v), (float)ex->double_result);
    }
 
    if(V_VT(src) == VT_NULL)
        call_change_type(change_type, &v, src, VT_NULL);
    else
        change_type_fail(change_type, src, VT_NULL, E_NOTIMPL);
 
    if(V_VT(src) == VT_EMPTY)
        call_change_type(change_type, &v, src, VT_EMPTY);
    else
        change_type_fail(change_type, src, VT_EMPTY, E_NOTIMPL);
 
    call_change_type(change_type, &v, src, VT_I2);
    ok(V_I2(&v) == (INT16)ex->int_result, "V_I2(v) = %d, expected %d\n", V_I2(&v), ex->int_result);
}

Referenced by test_change_types().

test_change_types()

static void test_change_types ( IVariantChangeType *  change_type, IDispatch *  obj_disp  )

static

Definition at line 171 of file caller.c.

{
    VARIANT v, dst;
    BSTR str;
    HRESULT hres;
 
    static const conv_results_t bool_results[] = {
        {0, "false", VARIANT_FALSE, 1,0.0},
        {1, "true", VARIANT_TRUE, 1,1.0}};
    static const conv_results_t int_results[] = {
        {0, "0", VARIANT_FALSE, 1,0.0},
        {-100, "-100", VARIANT_TRUE, 1,-100.0},
        {0x10010, "65552", VARIANT_TRUE, 1,65552.0}};
    static const conv_results_t empty_results =
        {0, "undefined", VARIANT_FALSE, 0,0};
    static const conv_results_t null_results =
        {0, "null", VARIANT_FALSE, 0,0};
    static const conv_results_t obj_results =
        {10, "strval", VARIANT_TRUE, 1,10.0};
 
    V_VT(&v) = VT_BOOL;
    V_BOOL(&v) = VARIANT_FALSE;
    test_change_type(change_type, &v, bool_results);
    V_BOOL(&v) = VARIANT_TRUE;
    test_change_type(change_type, &v, bool_results+1);
 
    V_VT(&v) = VT_I4;
    V_I4(&v) = 0;
    test_change_type(change_type, &v, int_results);
    V_I4(&v) = -100;
    test_change_type(change_type, &v, int_results+1);
    V_I4(&v) = 0x10010;
    test_change_type(change_type, &v, int_results+2);
 
    V_VT(&v) = VT_EMPTY;
    test_change_type(change_type, &v, &empty_results);
 
    V_VT(&v) = VT_NULL;
    test_change_type(change_type, &v, &null_results);
 
    V_VT(&v) = VT_DISPATCH;
    V_DISPATCH(&v) = obj_disp;
    test_change_type(change_type, &v, &obj_results);
 
    V_VT(&v) = VT_BOOL;
    V_BOOL(&v) = VARIANT_FALSE;
    V_VT(&dst) = 0xdead;
    hres = IVariantChangeType_ChangeType(change_type, &dst, &v, 0, VT_I4);
    ok(hres == DISP_E_BADVARTYPE, "ChangeType failed: %08x, expected DISP_E_BADVARTYPE\n", hres);
    ok(V_VT(&dst) == 0xdead, "V_VT(dst) = %d\n", V_VT(&dst));
 
    /* Test conversion in place */
    V_VT(&v) = VT_BSTR;
    V_BSTR(&v) = str = a2bstr("test");
    hres = IVariantChangeType_ChangeType(change_type, &v, &v, 0, VT_BSTR);
    ok(hres == S_OK, "ChangeType failed: %08x\n", hres);
    ok(V_VT(&v) == VT_BSTR, "V_VT(v) = %d\n", V_VT(&v));
    ok(V_BSTR(&v) != str, "V_BSTR(v) == str\n");
    ok(!strcmp_wa(V_BSTR(&v), "test"), "V_BSTR(v) = %s\n", wine_dbgstr_w(V_BSTR(&v)));
}

Referenced by run_scripts(), and test_caller().

Test_GetDispID()

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

static

Definition at line 337 of file caller.c.

{
    if(!strcmp_wa(bstrName, "testArgConv")) {
        ok(grfdex == fdexNameCaseSensitive, "grfdex = %x\n", grfdex);
        *pid = DISPID_TEST_TESTARGCONV;
        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 348 of file caller.c.

{
    ok(pspCaller != NULL, "pspCaller == NULL\n");
 
    switch(id) {
    case DISPID_TEST_TESTARGCONV:
        CHECK_EXPECT(testArgConv);
 
        ok(wFlags == INVOKE_FUNC, "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");
 
        ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
        ok(V_VT(pdp->rgvarg) == VT_DISPATCH, "V_VT(rgvarg) = %d\n", V_VT(pdp->rgvarg));
 
        test_caller(pspCaller, V_DISPATCH(pdp->rgvarg));
 
        stored_obj = V_DISPATCH(pdp->rgvarg);
        IDispatch_AddRef(stored_obj);
        break;
 
    default:
        ok(0, "unexpected call\n");
        return E_NOTIMPL;
    }
 
    return S_OK;
}

Variable Documentation

ActiveScriptSite

IActiveScriptSite ActiveScriptSite = { &ActiveScriptSiteVtbl }

static

Definition at line 487 of file caller.c.

Referenced by create_script().

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 473 of file caller.c.

CLSID_JScript

const CLSID CLSID_JScript

static

Initial value:

=
    {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}}

Definition at line 47 of file caller.c.

Referenced by create_script().

script_change_type

IVariantChangeType* script_change_type

static

Definition at line 78 of file caller.c.

Referenced by run_scripts(), and test_caller().

stored_obj

IDispatch* stored_obj

static

Definition at line 79 of file caller.c.

Referenced by run_scripts(), and Test_InvokeEx().

testObj

IDispatchEx testObj = { &testObjVtbl }

static

Definition at line 398 of file caller.c.

Referenced by ActiveScriptSite_GetItemInfo().

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 380 of file caller.c.

testW

const WCHAR testW[] = {'t','e','s','t',0}

static

Definition at line 76 of file caller.c.

Referenced by create_script().