winehq.org
Sign In
Sign Up
Sign In
Sign Up
Manage this list
×
Keyboard Shortcuts
Thread View
j
: Next unread message
k
: Previous unread message
j a
: Jump to all threads
j l
: Jump to MailingList overview
2025
February
January
2024
December
November
October
September
August
July
June
May
April
March
February
January
2023
December
November
October
September
August
July
June
May
April
March
February
January
2022
December
November
October
September
August
July
June
May
April
March
February
January
2021
December
November
October
September
August
July
June
May
April
March
February
January
2020
December
November
October
September
August
July
June
May
April
March
February
January
2019
December
November
October
September
August
July
June
May
April
March
February
January
2018
December
November
October
September
August
July
June
May
April
March
February
January
2017
December
November
October
September
August
July
June
May
April
March
February
January
2016
December
November
October
September
August
July
June
May
April
March
February
January
2015
December
November
October
September
August
July
June
May
April
March
February
January
2014
December
November
October
September
August
July
June
May
April
March
February
January
2013
December
November
October
September
August
July
June
May
April
March
February
January
2012
December
November
October
September
August
July
June
May
April
March
February
January
2011
December
November
October
September
August
July
June
May
April
March
February
January
2010
December
November
October
September
August
July
June
May
April
March
February
January
2009
December
November
October
September
August
July
June
May
April
March
February
January
2008
December
November
October
September
August
July
June
May
April
March
February
January
2007
December
November
October
September
August
July
June
May
April
March
February
January
2006
December
November
October
September
August
July
June
May
April
March
February
January
2005
December
November
October
September
August
July
June
May
April
March
February
January
2004
December
November
October
September
August
July
June
May
April
March
February
January
2003
December
November
October
September
August
July
June
May
April
March
February
January
2002
December
November
October
September
August
July
June
May
April
March
February
January
2001
December
November
October
September
August
July
June
May
April
March
February
List overview
wine-commits
March 2012
----- 2025 -----
February 2025
January 2025
----- 2024 -----
December 2024
November 2024
October 2024
September 2024
August 2024
July 2024
June 2024
May 2024
April 2024
March 2024
February 2024
January 2024
----- 2023 -----
December 2023
November 2023
October 2023
September 2023
August 2023
July 2023
June 2023
May 2023
April 2023
March 2023
February 2023
January 2023
----- 2022 -----
December 2022
November 2022
October 2022
September 2022
August 2022
July 2022
June 2022
May 2022
April 2022
March 2022
February 2022
January 2022
----- 2021 -----
December 2021
November 2021
October 2021
September 2021
August 2021
July 2021
June 2021
May 2021
April 2021
March 2021
February 2021
January 2021
----- 2020 -----
December 2020
November 2020
October 2020
September 2020
August 2020
July 2020
June 2020
May 2020
April 2020
March 2020
February 2020
January 2020
----- 2019 -----
December 2019
November 2019
October 2019
September 2019
August 2019
July 2019
June 2019
May 2019
April 2019
March 2019
February 2019
January 2019
----- 2018 -----
December 2018
November 2018
October 2018
September 2018
August 2018
July 2018
June 2018
May 2018
April 2018
March 2018
February 2018
January 2018
----- 2017 -----
December 2017
November 2017
October 2017
September 2017
August 2017
July 2017
June 2017
May 2017
April 2017
March 2017
February 2017
January 2017
----- 2016 -----
December 2016
November 2016
October 2016
September 2016
August 2016
July 2016
June 2016
May 2016
April 2016
March 2016
February 2016
January 2016
----- 2015 -----
December 2015
November 2015
October 2015
September 2015
August 2015
July 2015
June 2015
May 2015
April 2015
March 2015
February 2015
January 2015
----- 2014 -----
December 2014
November 2014
October 2014
September 2014
August 2014
July 2014
June 2014
May 2014
April 2014
March 2014
February 2014
January 2014
----- 2013 -----
December 2013
November 2013
October 2013
September 2013
August 2013
July 2013
June 2013
May 2013
April 2013
March 2013
February 2013
January 2013
----- 2012 -----
December 2012
November 2012
October 2012
September 2012
August 2012
July 2012
June 2012
May 2012
April 2012
March 2012
February 2012
January 2012
----- 2011 -----
December 2011
November 2011
October 2011
September 2011
August 2011
July 2011
June 2011
May 2011
April 2011
March 2011
February 2011
January 2011
----- 2010 -----
December 2010
November 2010
October 2010
September 2010
August 2010
July 2010
June 2010
May 2010
April 2010
March 2010
February 2010
January 2010
----- 2009 -----
December 2009
November 2009
October 2009
September 2009
August 2009
July 2009
June 2009
May 2009
April 2009
March 2009
February 2009
January 2009
----- 2008 -----
December 2008
November 2008
October 2008
September 2008
August 2008
July 2008
June 2008
May 2008
April 2008
March 2008
February 2008
January 2008
----- 2007 -----
December 2007
November 2007
October 2007
September 2007
August 2007
July 2007
June 2007
May 2007
April 2007
March 2007
February 2007
January 2007
----- 2006 -----
December 2006
November 2006
October 2006
September 2006
August 2006
July 2006
June 2006
May 2006
April 2006
March 2006
February 2006
January 2006
----- 2005 -----
December 2005
November 2005
October 2005
September 2005
August 2005
July 2005
June 2005
May 2005
April 2005
March 2005
February 2005
January 2005
----- 2004 -----
December 2004
November 2004
October 2004
September 2004
August 2004
July 2004
June 2004
May 2004
April 2004
March 2004
February 2004
January 2004
----- 2003 -----
December 2003
November 2003
October 2003
September 2003
August 2003
July 2003
June 2003
May 2003
April 2003
March 2003
February 2003
January 2003
----- 2002 -----
December 2002
November 2002
October 2002
September 2002
August 2002
July 2002
June 2002
May 2002
April 2002
March 2002
February 2002
January 2002
----- 2001 -----
December 2001
November 2001
October 2001
September 2001
August 2001
July 2001
June 2001
May 2001
April 2001
March 2001
February 2001
wine-commits@winehq.org
3 participants
710 discussions
Start a n
N
ew thread
Jacek Caban : mshtml: Added property value conversion type tests.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: 68b76ed0282a74a773e92d2a9315f13eabf2c146 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=68b76ed0282a74a773e92d2a9…
Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Mar 13 11:47:24 2012 +0100 mshtml: Added property value conversion type tests. --- dlls/mshtml/tests/script.c | 133 +++++++++++++++++++++++++++++++++++++++++--- 1 files changed, 125 insertions(+), 8 deletions(-) diff --git a/dlls/mshtml/tests/script.c b/dlls/mshtml/tests/script.c index d1a4d4a..43c66c6 100644 --- a/dlls/mshtml/tests/script.c +++ b/dlls/mshtml/tests/script.c @@ -129,6 +129,8 @@ DEFINE_EXPECT(AXSetInterfaceSafetyOptions_IDispatch_data); DEFINE_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller_secmgr); DEFINE_EXPECT(AXSetInterfaceSafetyOptions_IDispatchEx_caller); DEFINE_EXPECT(external_success); +DEFINE_EXPECT(QS_VariantConversion); +DEFINE_EXPECT(ChangeType); #define TESTSCRIPT_CLSID "{178fc163-f585-4e24-9c13-4bb7faf80746}" #define TESTACTIVEX_CLSID "{178fc163-f585-4e24-9c13-4bb7faf80646}" @@ -270,6 +272,88 @@ static IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = { static IPropertyNotifySink PropertyNotifySink = { &PropertyNotifySinkVtbl }; +static HRESULT WINAPI VariantChangeType_QueryInterface(IVariantChangeType *iface, REFIID riid, void **ppv) +{ + ok(0, "unexpected call %s\n", debugstr_guid(riid)); + *ppv = NULL; + return E_NOINTERFACE; +} + +static ULONG WINAPI VariantChangeType_AddRef(IVariantChangeType *iface) +{ + return 2; +} + +static ULONG WINAPI VariantChangeType_Release(IVariantChangeType *iface) +{ + return 1; +} + +static HRESULT WINAPI VariantChangeType_ChangeType(IVariantChangeType *iface, VARIANT *dst, VARIANT *src, LCID lcid, VARTYPE vt) +{ + CHECK_EXPECT(ChangeType); + + ok(dst != NULL, "dst = NULL\n"); + ok(V_VT(dst) == VT_EMPTY, "V_VT(dst) = %d\n", V_VT(dst)); + ok(src != NULL, "src = NULL\n"); + ok(V_VT(src) == VT_I4, "V_VT(src) = %d\n", V_VT(src)); + ok(V_I4(src) == 0xf0f0f0, "V_I4(src) = %x\n", V_I4(src)); + ok(lcid == LOCALE_NEUTRAL, "lcid = %d\n", lcid); + ok(vt == VT_BSTR, "vt = %d\n", vt); + + V_VT(dst) = VT_BSTR; + V_BSTR(dst) = a2bstr("red"); + return S_OK; +} + +static const IVariantChangeTypeVtbl VariantChangeTypeVtbl = { + VariantChangeType_QueryInterface, + VariantChangeType_AddRef, + VariantChangeType_Release, + VariantChangeType_ChangeType +}; + +static IVariantChangeType VChangeType = { &VariantChangeTypeVtbl }; + +static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv) +{ + ok(0, "unexpected call\n"); + return E_NOINTERFACE; +} + +static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface) +{ + return 2; +} + +static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface) +{ + return 1; +} + +static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService, + REFIID riid, void **ppv) +{ + if(IsEqualGUID(guidService, &SID_VariantConversion)) { + CHECK_EXPECT(QS_VariantConversion); + ok(IsEqualGUID(riid, &IID_IVariantChangeType), "uenxpected riid %s\n", debugstr_guid(riid)); + *ppv = &VChangeType; + return S_OK; + } + + ok(0, "unexpected service %s\n", debugstr_guid(guidService)); + return E_NOINTERFACE; +} + +static const IServiceProviderVtbl ServiceProviderVtbl = { + ServiceProvider_QueryInterface, + ServiceProvider_AddRef, + ServiceProvider_Release, + ServiceProvider_QueryService +}; + +static IServiceProvider caller_sp = { &ServiceProviderVtbl }; + static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv) { *ppv = NULL; @@ -1761,13 +1845,13 @@ static HRESULT WINAPI ActiveScriptParse_AddScriptlet(IActiveScriptParse *iface, return E_NOTIMPL; } -static HRESULT dispex_propput(IDispatchEx *obj, DISPID id, DWORD flags, VARIANT *var) +static HRESULT dispex_propput(IDispatchEx *obj, DISPID id, DWORD flags, VARIANT *var, IServiceProvider *caller_sp) { DISPID propput_arg = DISPID_PROPERTYPUT; DISPPARAMS dp = {var, &propput_arg, 1, 1}; EXCEPINFO ei = {0}; - return IDispatchEx_InvokeEx(obj, id, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT|flags, &dp, NULL, &ei, NULL); + return IDispatchEx_InvokeEx(obj, id, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT|flags, &dp, NULL, &ei, caller_sp); } static void test_func(IDispatchEx *obj) @@ -1815,7 +1899,7 @@ static void test_func(IDispatchEx *obj) V_VT(&var) = VT_I4; V_I4(&var) = 100; - hres = dispex_propput(obj, id, 0, &var); + hres = dispex_propput(obj, id, 0, &var, NULL); ok(hres == E_NOTIMPL, "InvokeEx failed: %08x\n", hres); IDispatchEx_Release(dispex); @@ -1834,7 +1918,7 @@ static void test_nextdispid(IDispatchEx *dispex) SysFreeString(name); V_VT(&var) = VT_EMPTY; - hres = dispex_propput(dispex, dyn_id, 0, &var); + hres = dispex_propput(dispex, dyn_id, 0, &var, NULL); ok(hres == S_OK, "dispex_propput failed: %08x\n", hres); while(last_id != dyn_id) { @@ -1887,6 +1971,37 @@ static void test_global_id(void) VariantClear(&var); } +static void test_arg_conv(IHTMLWindow2 *window) +{ + IHTMLDocument2 *doc; + IDispatchEx *dispex; + IHTMLElement *elem; + VARIANT v; + HRESULT hres; + + hres = IHTMLWindow2_get_document(window, &doc); + ok(hres == S_OK, "get_document failed: %08x\n", hres); + + hres = IHTMLDocument2_get_body(doc, &elem); + IHTMLDocument2_Release(doc); + ok(hres == S_OK, "get_body failed: %08x\n", hres); + + hres = IHTMLElement_QueryInterface(elem, &IID_IDispatchEx, (void**)&dispex); + IHTMLElement_Release(elem); + ok(hres == S_OK, "Could not get IDispatchEx iface: %08x\n", hres); + + SET_EXPECT(QS_VariantConversion); + SET_EXPECT(ChangeType); + V_VT(&v) = VT_I4; + V_I4(&v) = 0xf0f0f0; + hres = dispex_propput(dispex, DISPID_IHTMLBODYELEMENT_BACKGROUND, 0, &v, &caller_sp); + ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); + CHECK_CALLED(QS_VariantConversion); + CHECK_CALLED(ChangeType); + + IDispatchEx_Release(dispex); +} + static void test_script_run(void) { IDispatchEx *document, *dispex; @@ -1943,7 +2058,7 @@ static void test_script_run(void) V_VT(&var) = VT_I4; V_I4(&var) = 100; - hres = dispex_propput(document, id, 0, &var); + hres = dispex_propput(document, id, 0, &var, NULL); ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); tmp = SysAllocString(testW); @@ -1964,7 +2079,7 @@ static void test_script_run(void) V_VT(&var) = VT_I4; V_I4(&var) = 200; - hres = dispex_propput(document, id, DISPATCH_PROPERTYPUTREF, &var); + hres = dispex_propput(document, id, DISPATCH_PROPERTYPUTREF, &var, NULL); ok(hres == S_OK, "InvokeEx failed: %08x\n", hres); VariantInit(&var); @@ -1994,7 +2109,7 @@ static void test_script_run(void) V_VT(&var) = VT_BSTR; V_BSTR(&var) = NULL; - dispex_propput(document, id, 0,&var); + dispex_propput(document, id, 0, &var, NULL); VariantInit(&var); memset(&dp, 0, sizeof(dp)); @@ -2047,7 +2162,6 @@ static void test_script_run(void) ok(hres == S_OK, "Could not get IHTMLWindow2 iface: %08x\n", hres); hres = IHTMLWindow2_get_navigator(window, &navigator); - IHTMLWindow2_Release(window); ok(hres == S_OK, "get_navigator failed: %08x\n", hres); hres = IOmNavigator_QueryInterface(navigator, &IID_IDispatchEx, (void**)&dispex); @@ -2057,6 +2171,9 @@ static void test_script_run(void) test_func(dispex); test_nextdispid(dispex); + test_arg_conv(window); + IHTMLWindow2_Release(window); + tmp = a2bstr("test"); hres = IDispatchEx_DeleteMemberByName(dispex, tmp, fdexNameCaseSensitive); ok(hres == E_NOTIMPL, "DeleteMemberByName failed: %08x\n", hres);
1
0
0
0
Jacek Caban : mshtml: Use caller for argument convertion in builtin_propput if available.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: 4ae7d364dda2cc1c403f44e6039816f6f3cb90b8 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=4ae7d364dda2cc1c403f44e60…
Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Mar 13 11:47:10 2012 +0100 mshtml: Use caller for argument convertion in builtin_propput if available. --- dlls/mshtml/dispex.c | 26 ++++++++++++++++++++++---- 1 files changed, 22 insertions(+), 4 deletions(-) diff --git a/dlls/mshtml/dispex.c b/dlls/mshtml/dispex.c index 29628eb..7eff5c6 100644 --- a/dlls/mshtml/dispex.c +++ b/dlls/mshtml/dispex.c @@ -771,6 +771,25 @@ static HRESULT get_builtin_id(DispatchEx *This, BSTR name, DWORD grfdex, DISPID CASE_VT(VT_UNKNOWN, IUnknown*, V_UNKNOWN); \ CASE_VT(VT_DISPATCH, IDispatch*, V_DISPATCH) +static HRESULT change_type(VARIANT *dst, VARIANT *src, VARTYPE vt, IServiceProvider *caller) +{ + V_VT(dst) = VT_EMPTY; + + if(caller) { + IVariantChangeType *change_type = NULL; + HRESULT hres; + + hres = IServiceProvider_QueryService(caller, &SID_VariantConversion, &IID_IVariantChangeType, (void**)&change_type); + if(SUCCEEDED(hres)) { + hres = IVariantChangeType_ChangeType(change_type, dst, src, LOCALE_NEUTRAL, vt); + IVariantChangeType_Release(change_type); + return hres; + } + } + + return VariantChangeType(dst, src, 0, vt); +} + static HRESULT builtin_propget(DispatchEx *This, func_info_t *func, DISPPARAMS *dp, VARIANT *res) { IUnknown *iface; @@ -810,7 +829,7 @@ static HRESULT builtin_propget(DispatchEx *This, func_info_t *func, DISPPARAMS * return S_OK; } -static HRESULT builtin_propput(DispatchEx *This, func_info_t *func, DISPPARAMS *dp) +static HRESULT builtin_propput(DispatchEx *This, func_info_t *func, DISPPARAMS *dp, IServiceProvider *caller) { VARIANT *v, tmpv; IUnknown *iface; @@ -829,8 +848,7 @@ static HRESULT builtin_propput(DispatchEx *This, func_info_t *func, DISPPARAMS * v = dp->rgvarg; if(func->prop_vt != VT_VARIANT && V_VT(v) != func->prop_vt) { - V_VT(&tmpv) = VT_EMPTY; - VariantChangeType(&tmpv, v, 0, func->prop_vt); + hres = change_type(&tmpv, v, func->prop_vt, caller); if(FAILED(hres)) return hres; v = &tmpv; @@ -882,7 +900,7 @@ static HRESULT invoke_builtin_prop(DispatchEx *This, DISPID id, LCID lcid, WORD case DISPATCH_PROPERTYPUT: if(res) V_VT(res) = VT_EMPTY; - hres = builtin_propput(This, func, dp); + hres = builtin_propput(This, func, dp, caller); break; case DISPATCH_PROPERTYGET: hres = builtin_propget(This, func, dp, res);
1
0
0
0
Jacek Caban : mshtml: Don't use ITypeInfo for InvokeEx(DISPATCH_PROPERTYPUT ) implementation.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: ba1d4d71d8d89dd19d9a0d83b676f36036299423 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=ba1d4d71d8d89dd19d9a0d83b…
Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Mar 13 11:46:55 2012 +0100 mshtml: Don't use ITypeInfo for InvokeEx(DISPATCH_PROPERTYPUT) implementation. --- dlls/mshtml/dispex.c | 53 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 53 insertions(+), 0 deletions(-) diff --git a/dlls/mshtml/dispex.c b/dlls/mshtml/dispex.c index 88f10c3..29628eb 100644 --- a/dlls/mshtml/dispex.c +++ b/dlls/mshtml/dispex.c @@ -810,6 +810,54 @@ static HRESULT builtin_propget(DispatchEx *This, func_info_t *func, DISPPARAMS * return S_OK; } +static HRESULT builtin_propput(DispatchEx *This, func_info_t *func, DISPPARAMS *dp) +{ + VARIANT *v, tmpv; + IUnknown *iface; + HRESULT hres; + + if(dp->cArgs != 1 || (dp->cNamedArgs == 1 && *dp->rgdispidNamedArgs != DISPID_PROPERTYPUT) + || dp->cNamedArgs > 1) { + FIXME("invalid args\n"); + return E_INVALIDARG; + } + + if(!func->put_vtbl_off) { + FIXME("No setter\n"); + return E_FAIL; + } + + v = dp->rgvarg; + if(func->prop_vt != VT_VARIANT && V_VT(v) != func->prop_vt) { + V_VT(&tmpv) = VT_EMPTY; + VariantChangeType(&tmpv, v, 0, func->prop_vt); + if(FAILED(hres)) + return hres; + v = &tmpv; + } + + hres = IUnknown_QueryInterface(This->outer, tid_ids[func->tid], (void**)&iface); + if(SUCCEEDED(hres)) { + switch(func->prop_vt) { +#define CASE_VT(vt,type,access) \ + case vt: \ + hres = ((HRESULT (WINAPI*)(IUnknown*,type))((void**)iface->lpVtbl)[func->put_vtbl_off])(iface,access(v)); \ + break + BUILTIN_TYPES_SWITCH; +#undef CASE_VT + default: + FIXME("Unimplemented vt %d\n", func->prop_vt); + hres = E_NOTIMPL; + } + + IUnknown_Release(iface); + } + + if(v == &tmpv) + VariantClear(v); + return hres; +} + static HRESULT invoke_builtin_prop(DispatchEx *This, DISPID id, LCID lcid, WORD flags, DISPPARAMS *dp, VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller) { @@ -831,6 +879,11 @@ static HRESULT invoke_builtin_prop(DispatchEx *This, DISPID id, LCID lcid, WORD return function_invoke(This, func, flags, dp, res, ei); switch(flags) { + case DISPATCH_PROPERTYPUT: + if(res) + V_VT(res) = VT_EMPTY; + hres = builtin_propput(This, func, dp); + break; case DISPATCH_PROPERTYGET: hres = builtin_propget(This, func, dp, res); break;
1
0
0
0
Jacek Caban : mshtml: Don't use ITypeInfo for InvokeEx(DISPATCH_PROPERTYGET ) implementation.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: c9eed8f987ff3fa19bc11ef3baf319d697f7b2e4 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=c9eed8f987ff3fa19bc11ef3b…
Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Mar 13 11:46:42 2012 +0100 mshtml: Don't use ITypeInfo for InvokeEx(DISPATCH_PROPERTYGET) implementation. --- dlls/mshtml/dispex.c | 63 +++++++++++++++++++++++++++++++++++++++++++++++-- 1 files changed, 60 insertions(+), 3 deletions(-) diff --git a/dlls/mshtml/dispex.c b/dlls/mshtml/dispex.c index bdad32e..88f10c3 100644 --- a/dlls/mshtml/dispex.c +++ b/dlls/mshtml/dispex.c @@ -759,6 +759,57 @@ static HRESULT get_builtin_id(DispatchEx *This, BSTR name, DWORD grfdex, DISPID return DISP_E_UNKNOWNNAME; } +/* List all types used by IDispatchEx-based properties */ +#define BUILTIN_TYPES_SWITCH \ + CASE_VT(VT_I2, INT16, V_I2); \ + CASE_VT(VT_I4, INT32, V_I4); \ + CASE_VT(VT_R4, float, V_R4); \ + CASE_VT(VT_BSTR, BSTR, V_BSTR); \ + CASE_VT(VT_BOOL, VARIANT_BOOL, V_BOOL); \ + CASE_VT(VT_VARIANT, VARIANT, *); \ + CASE_VT(VT_PTR, void*, V_BYREF); \ + CASE_VT(VT_UNKNOWN, IUnknown*, V_UNKNOWN); \ + CASE_VT(VT_DISPATCH, IDispatch*, V_DISPATCH) + +static HRESULT builtin_propget(DispatchEx *This, func_info_t *func, DISPPARAMS *dp, VARIANT *res) +{ + IUnknown *iface; + HRESULT hres; + + if(dp->cArgs) { + FIXME("cArgs %d\n", dp->cArgs); + return E_NOTIMPL; + } + + assert(func->get_vtbl_off); + + hres = IUnknown_QueryInterface(This->outer, tid_ids[func->tid], (void**)&iface); + if(SUCCEEDED(hres)) { + switch(func->prop_vt) { +#define CASE_VT(vt,type,access) \ + case vt: { \ + type val; \ + hres = ((HRESULT (WINAPI*)(IUnknown*,type*))((void**)iface->lpVtbl)[func->get_vtbl_off])(iface,&val); \ + if(SUCCEEDED(hres)) \ + access(res) = val; \ + } \ + break + BUILTIN_TYPES_SWITCH; +#undef CASE_VT + default: + FIXME("Unhandled vt %d\n", func->prop_vt); + hres = E_NOTIMPL; + } + IUnknown_Release(iface); + } + + if(FAILED(hres)) + return hres; + + V_VT(res) = func->prop_vt == VT_PTR ? VT_DISPATCH : func->prop_vt; + return S_OK; +} + static HRESULT invoke_builtin_prop(DispatchEx *This, DISPID id, LCID lcid, WORD flags, DISPPARAMS *dp, VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller) { @@ -776,10 +827,16 @@ static HRESULT invoke_builtin_prop(DispatchEx *This, DISPID id, LCID lcid, WORD if(FAILED(hres)) return hres; - if(func->func_disp_idx == -1) + if(func->func_disp_idx != -1) + return function_invoke(This, func, flags, dp, res, ei); + + switch(flags) { + case DISPATCH_PROPERTYGET: + hres = builtin_propget(This, func, dp, res); + break; + default: hres = typeinfo_invoke(This, func, flags, dp, res, ei); - else - hres = function_invoke(This, func, flags, dp, res, ei); + } return hres; }
1
0
0
0
Jacek Caban : mshtml: Store more info about properties in func_info_t.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: dfaa1e9541e5cfc1c82976a60e6fa59ec58dfb83 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=dfaa1e9541e5cfc1c82976a60…
Author: Jacek Caban <jacek(a)codeweavers.com> Date: Tue Mar 13 11:46:32 2012 +0100 mshtml: Store more info about properties in func_info_t. --- dlls/mshtml/dispex.c | 55 ++++++++++++++++++++++++++++++++++++++----------- 1 files changed, 42 insertions(+), 13 deletions(-) diff --git a/dlls/mshtml/dispex.c b/dlls/mshtml/dispex.c index dcbff1c..bdad32e 100644 --- a/dlls/mshtml/dispex.c +++ b/dlls/mshtml/dispex.c @@ -17,6 +17,7 @@ */ #include <stdarg.h> +#include <assert.h> #define COBJMACROS @@ -47,7 +48,10 @@ typedef struct { DISPID id; BSTR name; tid_t tid; - int func_disp_idx; + SHORT put_vtbl_off; + SHORT get_vtbl_off; + SHORT func_disp_idx; + VARTYPE prop_vt; } func_info_t; struct dispex_data_t { @@ -185,23 +189,48 @@ HRESULT get_htmldoc_classinfo(ITypeInfo **typeinfo) static void add_func_info(dispex_data_t *data, DWORD *size, tid_t tid, const FUNCDESC *desc, ITypeInfo *dti) { + func_info_t *info; HRESULT hres; - if(data->func_cnt && data->funcs[data->func_cnt-1].id == desc->memid) - return; + if(data->func_cnt && data->funcs[data->func_cnt-1].id == desc->memid) { + info = data->funcs+data->func_cnt-1; + }else { + if(data->func_cnt == *size) + data->funcs = heap_realloc(data->funcs, (*size <<= 1)*sizeof(func_info_t)); - if(data->func_cnt == *size) - data->funcs = heap_realloc(data->funcs, (*size <<= 1)*sizeof(func_info_t)); + info = data->funcs+data->func_cnt; + hres = ITypeInfo_GetDocumentation(dti, desc->memid, &info->name, NULL, NULL, NULL); + if(FAILED(hres)) + return; - hres = ITypeInfo_GetDocumentation(dti, desc->memid, &data->funcs[data->func_cnt].name, NULL, NULL, NULL); - if(FAILED(hres)) - return; + data->func_cnt++; - data->funcs[data->func_cnt].id = desc->memid; - data->funcs[data->func_cnt].tid = tid; - data->funcs[data->func_cnt].func_disp_idx = (desc->invkind & DISPATCH_METHOD) ? data->func_disp_cnt++ : -1; + info->id = desc->memid; + info->tid = tid; + info->func_disp_idx = -1; + info->prop_vt = VT_EMPTY; + info->put_vtbl_off = 0; + info->get_vtbl_off = 0; + } + + if(desc->invkind & DISPATCH_METHOD) { + info->func_disp_idx = data->func_disp_cnt++; + }else if(desc->invkind & (DISPATCH_PROPERTYPUT|DISPATCH_PROPERTYGET)) { + VARTYPE vt = VT_EMPTY; + + if(desc->invkind & DISPATCH_PROPERTYGET) { + vt = desc->elemdescFunc.tdesc.vt; + info->get_vtbl_off = desc->oVft/sizeof(void*); + } + if(desc->invkind & DISPATCH_PROPERTYPUT) { + assert(desc->cParams == 1); + vt = desc->lprgelemdescParam->tdesc.vt; + info->put_vtbl_off = desc->oVft/sizeof(void*); + } - data->func_cnt++; + assert(info->prop_vt == VT_EMPTY || vt == info->prop_vt); + info->prop_vt = vt; + } } static int dispid_cmp(const void *p1, const void *p2)
1
0
0
0
Alexandre Julliard : winevdm: Try DOSBox first for running DOS applications .
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: afd0590bfe111aa685146514a0bc027bf91d19fa URL:
http://source.winehq.org/git/wine.git/?a=commit;h=afd0590bfe111aa685146514a…
Author: Alexandre Julliard <julliard(a)winehq.org> Date: Tue Mar 13 13:09:40 2012 +0100 winevdm: Try DOSBox first for running DOS applications. --- programs/winevdm/winevdm.c | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/programs/winevdm/winevdm.c b/programs/winevdm/winevdm.c index 0dcc806..b143cb8 100644 --- a/programs/winevdm/winevdm.c +++ b/programs/winevdm/winevdm.c @@ -215,6 +215,8 @@ static void start_dos_exe( LPCSTR filename, LPCSTR cmdline ) MEMORY_BASIC_INFORMATION mem_info; const char *reason; + start_dosbox( filename, cmdline ); + if (VirtualQuery( NULL, &mem_info, sizeof(mem_info) ) && mem_info.State != MEM_FREE) { __wine_load_dos_exe( filename, cmdline ); @@ -225,11 +227,9 @@ static void start_dos_exe( LPCSTR filename, LPCSTR cmdline ) } else reason = "because the DOS memory range is unavailable"; - start_dosbox( filename, cmdline ); - WINE_MESSAGE( "winevdm: Cannot start DOS application %s\n", filename ); WINE_MESSAGE( " %s.\n", reason ); - WINE_MESSAGE( " Try running this application with DOSBox.\n" ); + WINE_MESSAGE( " You should install DOSBox.\n" ); ExitProcess(1); }
1
0
0
0
Nikolay Sivov : msxml3: Implement ISAXAttributes_getQName() for MXAttributes.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: 6ac1cc682bc32946f27159818e3d26224de8e66e URL:
http://source.winehq.org/git/wine.git/?a=commit;h=6ac1cc682bc32946f27159818…
Author: Nikolay Sivov <nsivov(a)codeweavers.com> Date: Tue Mar 13 11:12:16 2012 +0300 msxml3: Implement ISAXAttributes_getQName() for MXAttributes. --- dlls/msxml3/mxwriter.c | 12 ++++++++++-- dlls/msxml3/tests/saxreader.c | 13 +++---------- 2 files changed, 13 insertions(+), 12 deletions(-) diff --git a/dlls/msxml3/mxwriter.c b/dlls/msxml3/mxwriter.c index 6217d45..f749eb5 100644 --- a/dlls/msxml3/mxwriter.c +++ b/dlls/msxml3/mxwriter.c @@ -1756,8 +1756,16 @@ static HRESULT WINAPI SAXAttributes_getLocalName(ISAXAttributes *iface, int nInd static HRESULT WINAPI SAXAttributes_getQName(ISAXAttributes *iface, int index, const WCHAR **qname, int *length) { mxattributes *This = impl_from_ISAXAttributes( iface ); - FIXME("(%p)->(%d %p %p): stub\n", This, index, qname, length); - return E_NOTIMPL; + + TRACE("(%p)->(%d %p %p)\n", This, index, qname, length); + + if (index >= This->length) return E_INVALIDARG; + if (!qname || !length) return E_POINTER; + + *qname = This->attr[index].qname; + *length = SysStringLen(This->attr[index].qname); + + return S_OK; } static HRESULT WINAPI SAXAttributes_getName(ISAXAttributes *iface, int nIndex, const WCHAR **pUri, int *pUriLength, diff --git a/dlls/msxml3/tests/saxreader.c b/dlls/msxml3/tests/saxreader.c index 27200cb..8b0a3c4 100644 --- a/dlls/msxml3/tests/saxreader.c +++ b/dlls/msxml3/tests/saxreader.c @@ -3366,11 +3366,9 @@ static void test_mxattr_clear(void) EXPECT_HR(hr, S_OK); hr = ISAXAttributes_getQName(saxattr, 0, NULL, NULL); -todo_wine EXPECT_HR(hr, E_INVALIDARG); hr = ISAXAttributes_getQName(saxattr, 0, &ptr, &len); -todo_wine EXPECT_HR(hr, E_INVALIDARG); hr = IMXAttributes_addAttribute(mxattr, _bstr_("uri"), _bstr_("local"), @@ -3384,24 +3382,19 @@ todo_wine len = -1; hr = ISAXAttributes_getQName(saxattr, 0, NULL, &len); -todo_wine EXPECT_HR(hr, E_POINTER); ok(len == -1, "got %d\n", len); ptr = (void*)0xdeadbeef; hr = ISAXAttributes_getQName(saxattr, 0, &ptr, NULL); -todo_wine EXPECT_HR(hr, E_POINTER); ok(ptr == (void*)0xdeadbeef, "got %p\n", ptr); len = 0; hr = ISAXAttributes_getQName(saxattr, 0, &ptr, &len); -todo_wine { EXPECT_HR(hr, S_OK); ok(len == 5, "got %d\n", len); - if (hr == S_OK) - ok(!lstrcmpW(ptr, _bstr_("qname")), "got %s\n", wine_dbgstr_w(ptr)); -} + ok(!lstrcmpW(ptr, _bstr_("qname")), "got %s\n", wine_dbgstr_w(ptr)); hr = IMXAttributes_clear(mxattr); todo_wine @@ -3416,11 +3409,11 @@ todo_wine len = -1; ptr = (void*)0xdeadbeef; hr = ISAXAttributes_getQName(saxattr, 0, &ptr, &len); -todo_wine +todo_wine { EXPECT_HR(hr, E_INVALIDARG); ok(len == -1, "got %d\n", len); ok(ptr == (void*)0xdeadbeef, "got %p\n", ptr); - +} IMXAttributes_Release(mxattr); ISAXAttributes_Release(saxattr); free_bstrs();
1
0
0
0
Nikolay Sivov : msxml3: Implement ISAXAttributes::getLength() for MXAttributes.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: 3eaa0df7286fce0ede5c15e00f45ef0381ebd537 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=3eaa0df7286fce0ede5c15e00…
Author: Nikolay Sivov <nsivov(a)codeweavers.com> Date: Tue Mar 13 11:05:45 2012 +0300 msxml3: Implement ISAXAttributes::getLength() for MXAttributes. --- dlls/msxml3/mxwriter.c | 10 ++++++++-- dlls/msxml3/tests/saxreader.c | 13 +++---------- 2 files changed, 11 insertions(+), 12 deletions(-) diff --git a/dlls/msxml3/mxwriter.c b/dlls/msxml3/mxwriter.c index d0ce946..6217d45 100644 --- a/dlls/msxml3/mxwriter.c +++ b/dlls/msxml3/mxwriter.c @@ -1727,8 +1727,14 @@ static ULONG WINAPI SAXAttributes_Release(ISAXAttributes *iface) static HRESULT WINAPI SAXAttributes_getLength(ISAXAttributes *iface, int *length) { mxattributes *This = impl_from_ISAXAttributes( iface ); - FIXME("(%p)->(%p): stub\n", This, length); - return E_NOTIMPL; + TRACE("(%p)->(%p)\n", This, length); + + if (!length && (This->class_version == MSXML_DEFAULT || This->class_version == MSXML3)) + return E_POINTER; + + *length = This->length; + + return S_OK; } static HRESULT WINAPI SAXAttributes_getURI(ISAXAttributes *iface, int nIndex, const WCHAR **pUrl, diff --git a/dlls/msxml3/tests/saxreader.c b/dlls/msxml3/tests/saxreader.c index 4aca3af..27200cb 100644 --- a/dlls/msxml3/tests/saxreader.c +++ b/dlls/msxml3/tests/saxreader.c @@ -3315,34 +3315,30 @@ static void test_mxattr_addAttribute(void) hr = IMXAttributes_QueryInterface(mxattr, &IID_ISAXAttributes, (void**)&saxattr); EXPECT_HR(hr, S_OK); - /* SAXAttributes30 and SAXAttributes60 both crash on this test */ + /* SAXAttributes40 and SAXAttributes60 both crash on this test */ if (IsEqualGUID(table->clsid, &CLSID_SAXAttributes) || IsEqualGUID(table->clsid, &CLSID_SAXAttributes30)) { hr = ISAXAttributes_getLength(saxattr, NULL); - todo_wine EXPECT_HR(hr, E_POINTER); } len = -1; hr = ISAXAttributes_getLength(saxattr, &len); -todo_wine { EXPECT_HR(hr, S_OK); ok(len == 0, "got %d\n", len); -} + hr = IMXAttributes_addAttribute(mxattr, _bstr_(table->uri), _bstr_(table->local), _bstr_(table->qname), _bstr_(table->type), _bstr_(table->value)); ok(hr == table->hr, "%d: got 0x%08x, expected 0x%08x\n", i, hr, table->hr); len = -1; hr = ISAXAttributes_getLength(saxattr, &len); -todo_wine { EXPECT_HR(hr, S_OK); if (table->hr == S_OK) ok(len == 1, "%d: got %d length, expected 0\n", i, len); else ok(len == 0, "%d: got %d length, expected 1\n", i, len); -} ISAXAttributes_Release(saxattr); IMXAttributes_Release(mxattr); @@ -3383,10 +3379,8 @@ todo_wine len = -1; hr = ISAXAttributes_getLength(saxattr, &len); -todo_wine { EXPECT_HR(hr, S_OK); ok(len == 1, "got %d\n", len); -} len = -1; hr = ISAXAttributes_getQName(saxattr, 0, NULL, &len); @@ -3415,10 +3409,9 @@ todo_wine len = -1; hr = ISAXAttributes_getLength(saxattr, &len); -todo_wine { EXPECT_HR(hr, S_OK); +todo_wine ok(len == 0, "got %d\n", len); -} len = -1; ptr = (void*)0xdeadbeef;
1
0
0
0
Nikolay Sivov : msxml3: Implement IMXAttributes::addAttribute().
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: 70aa4f1a43b80d65330f857ad01fbd3fa62419a6 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=70aa4f1a43b80d65330f857ad…
Author: Nikolay Sivov <nsivov(a)codeweavers.com> Date: Tue Mar 13 10:59:53 2012 +0300 msxml3: Implement IMXAttributes::addAttribute(). --- dlls/msxml3/mxwriter.c | 68 +++++++++++++++++++++++++++++++++++++++- dlls/msxml3/tests/saxreader.c | 2 - 2 files changed, 66 insertions(+), 4 deletions(-) diff --git a/dlls/msxml3/mxwriter.c b/dlls/msxml3/mxwriter.c index 2188557..d0ce946 100644 --- a/dlls/msxml3/mxwriter.c +++ b/dlls/msxml3/mxwriter.c @@ -120,10 +120,25 @@ typedef struct typedef struct { + BSTR qname; + BSTR local; + BSTR uri; + BSTR type; + BSTR value; +} mxattribute; + +typedef struct +{ DispatchEx dispex; IMXAttributes IMXAttributes_iface; ISAXAttributes ISAXAttributes_iface; LONG ref; + + MSXML_VERSION class_version; + + mxattribute *attr; + int length; + int allocated; } mxattributes; static inline mxattributes *impl_from_IMXAttributes( IMXAttributes *iface ) @@ -136,6 +151,16 @@ static inline mxattributes *impl_from_ISAXAttributes( ISAXAttributes *iface ) return CONTAINING_RECORD(iface, mxattributes, ISAXAttributes_iface); } +static HRESULT mxattributes_grow(mxattributes *This) +{ + if (This->length < This->allocated) return S_OK; + + This->allocated *= 2; + This->attr = heap_realloc(This->attr, This->allocated*sizeof(mxattribute)); + + return This->attr ? S_OK : E_OUTOFMEMORY; +} + static xml_encoding parse_encoding_name(const WCHAR *encoding) { static const WCHAR utf8W[] = {'U','T','F','-','8',0}; @@ -1505,7 +1530,19 @@ static ULONG WINAPI MXAttributes_Release(IMXAttributes *iface) if (ref == 0) { + int i; + + for (i = 0; i < This->length; i++) + { + SysFreeString(This->attr[i].qname); + SysFreeString(This->attr[i].local); + SysFreeString(This->attr[i].uri); + SysFreeString(This->attr[i].type); + SysFreeString(This->attr[i].value); + } + release_dispex(&This->dispex); + heap_free(This->attr); heap_free(This); } @@ -1557,9 +1594,29 @@ static HRESULT WINAPI MXAttributes_addAttribute(IMXAttributes *iface, BSTR uri, BSTR localName, BSTR QName, BSTR type, BSTR value) { mxattributes *This = impl_from_IMXAttributes( iface ); - FIXME("(%p)->(%s %s %s %s %s): stub\n", This, debugstr_w(uri), debugstr_w(localName), + mxattribute *attr; + HRESULT hr; + + TRACE("(%p)->(%s %s %s %s %s)\n", This, debugstr_w(uri), debugstr_w(localName), debugstr_w(QName), debugstr_w(type), debugstr_w(value)); - return E_NOTIMPL; + + if ((!uri || !localName || !QName || !type || !value) && This->class_version != MSXML6) + return E_INVALIDARG; + + /* ensure array is large enough */ + hr = mxattributes_grow(This); + if (hr != S_OK) return hr; + + attr = &This->attr[This->length]; + + attr->qname = SysAllocString(QName); + attr->local = SysAllocString(localName); + attr->uri = SysAllocString(uri); + attr->type = SysAllocString(type); + attr->value = SysAllocString(value); + This->length++; + + return S_OK; } static HRESULT WINAPI MXAttributes_addAttributeFromIndex(IMXAttributes *iface, @@ -1806,6 +1863,7 @@ static dispex_static_data_t mxattrs_dispex = { HRESULT SAXAttributes_create(MSXML_VERSION version, IUnknown *outer, void **ppObj) { + static const int default_count = 10; mxattributes *This; TRACE("(%p, %p)\n", outer, ppObj); @@ -1818,6 +1876,12 @@ HRESULT SAXAttributes_create(MSXML_VERSION version, IUnknown *outer, void **ppOb This->ISAXAttributes_iface.lpVtbl = &SAXAttributesVtbl; This->ref = 1; + This->class_version = version; + + This->attr = heap_alloc(default_count*sizeof(mxattribute)); + This->length = 0; + This->allocated = default_count; + *ppObj = &This->IMXAttributes_iface; init_dispex(&This->dispex, (IUnknown*)&This->IMXAttributes_iface, &mxattrs_dispex); diff --git a/dlls/msxml3/tests/saxreader.c b/dlls/msxml3/tests/saxreader.c index 505acaf..4aca3af 100644 --- a/dlls/msxml3/tests/saxreader.c +++ b/dlls/msxml3/tests/saxreader.c @@ -3332,7 +3332,6 @@ todo_wine { } hr = IMXAttributes_addAttribute(mxattr, _bstr_(table->uri), _bstr_(table->local), _bstr_(table->qname), _bstr_(table->type), _bstr_(table->value)); -todo_wine ok(hr == table->hr, "%d: got 0x%08x, expected 0x%08x\n", i, hr, table->hr); len = -1; @@ -3380,7 +3379,6 @@ todo_wine hr = IMXAttributes_addAttribute(mxattr, _bstr_("uri"), _bstr_("local"), _bstr_("qname"), _bstr_("type"), _bstr_("value")); -todo_wine EXPECT_HR(hr, S_OK); len = -1;
1
0
0
0
Piotr Caban : msxml3: Added XMLView IPersistMoniker_Load test.
by Alexandre Julliard
13 Mar '12
13 Mar '12
Module: wine Branch: master Commit: 7a6494e2272ec2c7f522413ed896e4bddfcbf0b8 URL:
http://source.winehq.org/git/wine.git/?a=commit;h=7a6494e2272ec2c7f522413ed…
Author: Piotr Caban <piotr(a)codeweavers.com> Date: Mon Mar 12 20:42:06 2012 +0100 msxml3: Added XMLView IPersistMoniker_Load test. --- dlls/msxml3/tests/Makefile.in | 2 + dlls/msxml3/tests/rsrc.rc | 23 +++++ dlls/msxml3/tests/xmlview.c | 190 +++++++++++++++++++++++++++++++++++++++++ dlls/msxml3/tests/xmlview.xml | 12 +++ dlls/msxml3/tests/xmlview.xsl | 26 ++++++ 5 files changed, 253 insertions(+), 0 deletions(-) diff --git a/dlls/msxml3/tests/Makefile.in b/dlls/msxml3/tests/Makefile.in index 22103cd..05c4f50 100644 --- a/dlls/msxml3/tests/Makefile.in +++ b/dlls/msxml3/tests/Makefile.in @@ -9,4 +9,6 @@ C_SRCS = \ xmlparser.c \ xmlview.c +RC_SRCS = rsrc.rc + @MAKE_TEST_RULES@ diff --git a/dlls/msxml3/tests/rsrc.rc b/dlls/msxml3/tests/rsrc.rc new file mode 100644 index 0000000..94d8bc8 --- /dev/null +++ b/dlls/msxml3/tests/rsrc.rc @@ -0,0 +1,23 @@ +/* + * Copyright 2012 Piotr Caban for CodeWeavers + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA + */ + +/* @makedep: xmlview.xml */ +xmlview.xml XML "xmlview.xml" + +/* @makedep: xmlview.xsl */ +xmlview.xsl XML "xmlview.xsl" diff --git a/dlls/msxml3/tests/xmlview.c b/dlls/msxml3/tests/xmlview.c index 65c991e..b238d69 100644 --- a/dlls/msxml3/tests/xmlview.c +++ b/dlls/msxml3/tests/xmlview.c @@ -24,14 +24,128 @@ #include "windows.h" #include "ole2.h" #include "mshtml.h" +#include "mshtmdid.h" #include "initguid.h" #include "perhist.h" #include "docobj.h" +#include "urlmon.h" #include "wine/test.h" DEFINE_GUID(CLSID_XMLView, 0x48123bc4, 0x99d9, 0x11d1, 0xa6,0xb3, 0x00,0xc0,0x4f,0xd9,0x15,0x55); +HRESULT (WINAPI *pCreateURLMoniker)(IMoniker*, LPCWSTR, IMoniker**); + +static const char xmlview_html[] = +"\r\n" +"<BODY><H2>Generated HTML</H2>\r\n" +"<TABLE>\r\n" +"<TBODY>\r\n" +"<TR bgColor=green>\r\n" +"<TH>Title</TH>\r\n" +"<TH>Value</TH></TR>\r\n" +"<TR>\r\n" +"<TD>title1</TD>\r\n" +"<TD>value1</TD></TR>\r\n" +"<TR>\r\n" +"<TD>title2</TD>\r\n" +"<TD>value2</TD></TR></TBODY></TABLE></BODY>"; + +IHTMLDocument2 *html_doc; +BOOL loaded; + +static int html_src_compare(LPCWSTR strw, const char *stra) +{ + char buf[2048], *p1; + const char *p2; + + WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL); + + p1 = buf; + p2 = stra; + while(1) { + while(*p1=='\r' || *p1=='\n' || *p1=='\"') p1++; + while(*p2=='\r' || *p2=='\n') p2++; + + if(!*p1 || !*p2 || tolower(*p1)!=tolower(*p2)) + break; + + p1++; + p2++; + } + + return *p1 != *p2; +} + +static HRESULT WINAPI HTMLEvents_QueryInterface(IDispatch *iface, REFIID riid, void **ppv) +{ + if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IDispatch, riid)) { + *ppv = iface; + return S_OK; + } + + ok(0, "Unexpected call\n"); + return E_NOINTERFACE; +} + +static ULONG WINAPI HTMLEvents_AddRef(IDispatch *iface) +{ + return 2; +} + +static ULONG WINAPI HTMLEvents_Release(IDispatch *iface) +{ + return 1; +} + +static HRESULT WINAPI HTMLEvents_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo) +{ + ok(0, "unexpected call\n"); + return E_NOTIMPL; +} + +static HRESULT WINAPI HTMLEvents_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid, + ITypeInfo **ppTInfo) +{ + ok(0, "unexpected call\n"); + return E_NOTIMPL; +} + +static HRESULT WINAPI HTMLEvents_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames, + UINT cNames, LCID lcid, DISPID *rgDispId) +{ + ok(0, "unexpected call\n"); + return E_NOTIMPL; +} + +static HRESULT WINAPI HTMLEvents_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid, + LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, + EXCEPINFO *pExcepInfo, UINT *puArgErr) +{ + if(dispIdMember == DISPID_HTMLDOCUMENTEVENTS2_ONREADYSTATECHANGE) { + static const WCHAR completeW[] = {'c','o','m','p','l','e','t','e',0}; + BSTR state; + + IHTMLDocument2_get_readyState(html_doc, &state); + if(!memcmp(state, completeW, sizeof(completeW))) + loaded = TRUE; + } + + return S_OK; +} + +static const IDispatchVtbl HTMLEventsVtbl = { + HTMLEvents_QueryInterface, + HTMLEvents_AddRef, + HTMLEvents_Release, + HTMLEvents_GetTypeInfoCount, + HTMLEvents_GetTypeInfo, + HTMLEvents_GetIDsOfNames, + HTMLEvents_Invoke +}; + +static IDispatch HTMLEvents = { &HTMLEventsVtbl }; + static void test_QueryInterface(void) { IUnknown *xmlview, *unk; @@ -73,9 +187,85 @@ static void test_QueryInterface(void) IUnknown_Release(xmlview); } +static void test_Load(void) +{ + static const WCHAR xmlview_xmlW[] = {'/','x','m','l','/','x','m','l','v','i','e','w','.','x','m','l',0}; + static const WCHAR res[] = {'r','e','s',':','/','/',0}; + + WCHAR buf[1024]; + IPersistMoniker *pers_mon; + IConnectionPointContainer *cpc; + IConnectionPoint *cp; + IMoniker *mon; + IBindCtx *bctx; + IHTMLElement *elem; + HRESULT hres; + MSG msg; + BSTR source; + + lstrcpyW(buf, res); + GetModuleFileNameW(NULL, buf+lstrlenW(buf), (sizeof(buf)-sizeof(res))/sizeof(WCHAR)); + lstrcatW(buf, xmlview_xmlW); + + if(!pCreateURLMoniker) { + win_skip("CreateURLMoniker not available\n"); + return; + } + + hres = CoCreateInstance(&CLSID_XMLView, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER, + &IID_IPersistMoniker, (void**)&pers_mon); + if(FAILED(hres)) { + win_skip("Failed to create XMLView instance\n"); + return; + } + ok(hres == S_OK, "CoCreateInstance returned %x, expected S_OK\n", hres); + + hres = IPersistMoniker_QueryInterface(pers_mon, &IID_IHTMLDocument2, (void**)&html_doc); + ok(hres == S_OK, "QueryInterface(HTMLDocument2) returned %x, expected S_OK\n", hres); + hres = IPersistMoniker_QueryInterface(pers_mon, &IID_IConnectionPointContainer, (void**)&cpc); + ok(hres == S_OK, "QueryInterface(IConnectionPointContainer) returned %x, expected S_OK\n", hres); + hres = IConnectionPointContainer_FindConnectionPoint(cpc, &IID_IDispatch, &cp); + ok(hres == S_OK, "FindConnectionPoint returned %x, expected S_OK\n", hres); + hres = IConnectionPoint_Advise(cp, (IUnknown*)&HTMLEvents, NULL); + ok(hres == S_OK, "Advise returned %x, expected S_OK\n", hres); + IConnectionPoint_Release(cp); + IConnectionPointContainer_Release(cpc); + + hres = CreateBindCtx(0, &bctx); + ok(hres == S_OK, "CreateBindCtx returned %x, expected S_OK\n", hres); + hres = pCreateURLMoniker(NULL, buf, &mon); + ok(hres == S_OK, "CreateUrlMoniker returned %x, expected S_OK\n", hres); + loaded = FALSE; + hres = IPersistMoniker_Load(pers_mon, TRUE, mon, bctx, 0); + ok(hres == S_OK, "Load returned %x, expected S_OK\n", hres); + IBindCtx_Release(bctx); + IMoniker_Release(mon); + + while(!loaded && GetMessage(&msg, NULL, 0, 0)) { + TranslateMessage(&msg); + DispatchMessage(&msg); + } + + hres = IHTMLDocument2_get_body(html_doc, &elem); + ok(hres == S_OK, "get_body returned %x, expected S_OK\n", hres); + hres = IHTMLElement_get_outerHTML(elem, &source); + ok(hres == S_OK, "get_outerHTML returned %x, expected S_OK\n", hres); + ok(!html_src_compare(source, xmlview_html), "Incorrect HTML source: %s\n", wine_dbgstr_w(source)); + IHTMLElement_Release(elem); + SysFreeString(source); + + IHTMLDocument2_Release(html_doc); + html_doc = NULL; + IPersistMoniker_Release(pers_mon); +} + START_TEST(xmlview) { + HMODULE urlmon = LoadLibraryA("urlmon.dll"); + pCreateURLMoniker = (void*)GetProcAddress(urlmon, "CreateURLMoniker"); + CoInitialize(NULL); test_QueryInterface(); + test_Load(); CoUninitialize(); } diff --git a/dlls/msxml3/tests/xmlview.xml b/dlls/msxml3/tests/xmlview.xml new file mode 100644 index 0000000..a3c4bf4 --- /dev/null +++ b/dlls/msxml3/tests/xmlview.xml @@ -0,0 +1,12 @@ +<?xml version="1.0" encoding="ISO-8859-1"?> +<?xml-stylesheet type="text/xsl" href="xmlview.xsl"?> +<test> + <field> + <title>title1</title> + <value>value1</value> + </field> + <field> + <title>title2</title> + <value>value2</value> + </field> +</test> diff --git a/dlls/msxml3/tests/xmlview.xsl b/dlls/msxml3/tests/xmlview.xsl new file mode 100644 index 0000000..1b20f35 --- /dev/null +++ b/dlls/msxml3/tests/xmlview.xsl @@ -0,0 +1,26 @@ +<?xml version="1.0" encoding="ISO-8859-1"?> + +<xsl:stylesheet version="1.0" + xmlns:xsl="
http://www.w3.org/1999/XSL/Transform
"> + +<xsl:template match="/"> + <html> + <body> + <h2>Generated HTML</h2> + <table> + <tr bgcolor="green"> + <th>Title</th> + <th>Value</th> + </tr> + <xsl:for-each select="test/field"> + <tr> + <td><xsl:value-of select="title"/></td> + <td><xsl:value-of select="value"/></td> + </tr> + </xsl:for-each> + </table> + </body> + </html> +</xsl:template> + +</xsl:stylesheet>
1
0
0
0
← Newer
1
...
41
42
43
44
45
46
47
...
71
Older →
Jump to page:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Results per page:
10
25
50
100
200