Added VBScript class factory.
Robert Wilhelm
robert.wilhelm at gmx.net
Sat Mar 7 12:51:03 CST 2009
---
dlls/vbscript/vbscript.h | 13 ++++++++
dlls/vbscript/vbscript_main.c | 67 +++++++++++++++++++++++++++++++++++++++++
2 files changed, 80 insertions(+), 0 deletions(-)
diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h
index e60c1fa..dd1d4da 100644
--- a/dlls/vbscript/vbscript.h
+++ b/dlls/vbscript/vbscript.h
@@ -30,4 +30,17 @@
#include "activscp.h"
+HRESULT WINAPI VBScriptFactory_CreateInstance(IClassFactory*,IUnknown*,REFIID,void**);
+
+extern LONG module_ref;
+
+static inline void lock_module(void)
+{
+ InterlockedIncrement(&module_ref);
+}
+
+static inline void unlock_module(void)
+{
+ InterlockedDecrement(&module_ref);
+}
diff --git a/dlls/vbscript/vbscript_main.c b/dlls/vbscript/vbscript_main.c
index 540d9dc..b22530a 100644
--- a/dlls/vbscript/vbscript_main.c
+++ b/dlls/vbscript/vbscript_main.c
@@ -41,6 +41,68 @@ static const CLSID CLSID_VBScriptEncode =
static HINSTANCE vbscript_hinstance;
+HRESULT WINAPI VBScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
+ REFIID riid, void **ppv)
+{
+ FIXME("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
+ return E_NOTIMPL;
+}
+
+static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
+{
+ *ppv = NULL;
+
+ if(IsEqualGUID(&IID_IUnknown, riid)) {
+ TRACE("(%p)->(IID_IUnknown %p)\n", iface, ppv);
+ *ppv = iface;
+ }else if(IsEqualGUID(&IID_IClassFactory, riid)) {
+ TRACE("(%p)->(IID_IClassFactory %p)\n", iface, ppv);
+ *ppv = iface;
+ }
+
+ if(*ppv) {
+ IUnknown_AddRef((IUnknown*)*ppv);
+ return S_OK;
+ }
+
+ FIXME("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppv);
+ return E_NOINTERFACE;
+}
+
+static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
+{
+ TRACE("(%p)\n", iface);
+ return 2;
+}
+
+static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
+{
+ TRACE("(%p)\n", iface);
+ return 1;
+}
+
+static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL fLock)
+{
+ TRACE("(%p)->(%x)\n", iface, fLock);
+
+ if(fLock)
+ lock_module();
+ else
+ unlock_module();
+
+ return S_OK;
+}
+
+static const IClassFactoryVtbl VBScriptFactoryVtbl = {
+ ClassFactory_QueryInterface,
+ ClassFactory_AddRef,
+ ClassFactory_Release,
+ VBScriptFactory_CreateInstance,
+ ClassFactory_LockServer
+};
+
+static IClassFactory VBScriptFactory = { &VBScriptFactoryVtbl };
+
/******************************************************************
* DllMain (vbscript.@)
*/
@@ -67,6 +129,11 @@ BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
{
+ if(IsEqualGUID(&CLSID_VBScript, rclsid)) {
+ TRACE("(CLSID_VBScript %s %p)\n", debugstr_guid(riid), ppv);
+ return IClassFactory_QueryInterface(&VBScriptFactory, riid, ppv);
+ }
+
FIXME("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
return CLASS_E_CLASSNOTAVAILABLE;
}
--
1.6.0.6
--=-BZdDDajpb7E+LpVpvdbf--
More information about the wine-patches
mailing list