Jacek Caban : jscript: Added IVariantChangeType stub implementation.
Alexandre Julliard
julliard at winehq.org
Fri Mar 9 12:34:19 CST 2012
Module: wine
Branch: master
Commit: 1cadd7cc32201357149430f385008606f112cec6
URL: http://source.winehq.org/git/wine.git/?a=commit;h=1cadd7cc32201357149430f385008606f112cec6
Author: Jacek Caban <jacek at codeweavers.com>
Date: Thu Mar 8 14:27:47 2012 +0100
jscript: Added IVariantChangeType stub implementation.
---
dlls/jscript/jscript.c | 43 +++++++++++++++++++++++++++++++++++++++++++
1 files changed, 43 insertions(+), 0 deletions(-)
diff --git a/dlls/jscript/jscript.c b/dlls/jscript/jscript.c
index 68ace36..750104c 100644
--- a/dlls/jscript/jscript.c
+++ b/dlls/jscript/jscript.c
@@ -46,6 +46,7 @@ typedef struct {
IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface;
IActiveScriptProperty IActiveScriptProperty_iface;
IObjectSafety IObjectSafety_iface;
+ IVariantChangeType IVariantChangeType_iface;
LONG ref;
@@ -70,6 +71,7 @@ void script_release(script_ctx_t *ctx)
release_cc(ctx->cc);
jsheap_free(&ctx->tmp_heap);
SysFreeString(ctx->last_match);
+
heap_free(ctx);
}
@@ -373,6 +375,9 @@ static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid,
}else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
*ppv = &This->IObjectSafety_iface;
+ }else if(IsEqualGUID(riid, &IID_IVariantChangeType)) {
+ TRACE("(%p)->(IID_IVariantChangeType %p)\n", This, ppv);
+ *ppv = &This->IVariantChangeType_iface;
}
if(*ppv) {
@@ -962,6 +967,43 @@ static const IObjectSafetyVtbl JScriptSafetyVtbl = {
JScriptSafety_SetInterfaceSafetyOptions
};
+static inline JScript *impl_from_IVariantChangeType(IVariantChangeType *iface)
+{
+ return CONTAINING_RECORD(iface, JScript, IVariantChangeType_iface);
+}
+
+static HRESULT WINAPI VariantChangeType_QueryInterface(IVariantChangeType *iface, REFIID riid, void **ppv)
+{
+ JScript *This = impl_from_IVariantChangeType(iface);
+ return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
+}
+
+static ULONG WINAPI VariantChangeType_AddRef(IVariantChangeType *iface)
+{
+ JScript *This = impl_from_IVariantChangeType(iface);
+ return IActiveScript_AddRef(&This->IActiveScript_iface);
+}
+
+static ULONG WINAPI VariantChangeType_Release(IVariantChangeType *iface)
+{
+ JScript *This = impl_from_IVariantChangeType(iface);
+ return IActiveScript_Release(&This->IActiveScript_iface);
+}
+
+static HRESULT WINAPI VariantChangeType_ChangeType(IVariantChangeType *iface, VARIANT *dst, VARIANT *src, LCID lcid, VARTYPE vt)
+{
+ JScript *This = impl_from_IVariantChangeType(iface);
+ FIXME("(%p)->(%p %s %x %d)\n", This, dst, debugstr_variant(src), lcid, vt);
+ return E_NOTIMPL;
+}
+
+static const IVariantChangeTypeVtbl VariantChangeTypeVtbl = {
+ VariantChangeType_QueryInterface,
+ VariantChangeType_AddRef,
+ VariantChangeType_Release,
+ VariantChangeType_ChangeType
+};
+
HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
REFIID riid, void **ppv)
{
@@ -986,6 +1028,7 @@ HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUn
ret->IActiveScriptParseProcedure2_iface.lpVtbl = &JScriptParseProcedureVtbl;
ret->IActiveScriptProperty_iface.lpVtbl = &JScriptPropertyVtbl;
ret->IObjectSafety_iface.lpVtbl = &JScriptSafetyVtbl;
+ ret->IVariantChangeType_iface.lpVtbl = &VariantChangeTypeVtbl;
ret->ref = 1;
ret->safeopt = INTERFACE_USES_DISPEX;
More information about the wine-cvs
mailing list