2 * Copyright 2011 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 #include "vbscript_classes.h"
26 #include "wine/debug.h"
28 WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
30 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
32 static HINSTANCE vbscript_hinstance;
34 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
38 if(IsEqualGUID(&IID_IUnknown, riid)) {
39 TRACE("(%p)->(IID_IUnknown %p)\n", iface, ppv);
41 }else if(IsEqualGUID(&IID_IClassFactory, riid)) {
42 TRACE("(%p)->(IID_IClassFactory %p)\n", iface, ppv);
47 IUnknown_AddRef((IUnknown*)*ppv);
51 FIXME("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppv);
55 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
57 TRACE("(%p)\n", iface);
61 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
63 TRACE("(%p)\n", iface);
67 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL fLock)
69 TRACE("(%p)->(%x)\n", iface, fLock);
73 static const IClassFactoryVtbl VBScriptFactoryVtbl = {
74 ClassFactory_QueryInterface,
77 VBScriptFactory_CreateInstance,
78 ClassFactory_LockServer
81 static IClassFactory VBScriptFactory = { &VBScriptFactoryVtbl };
83 /******************************************************************
84 * DllMain (vbscript.@)
86 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
88 TRACE("(%p %d %p)\n", hInstDLL, fdwReason, lpv);
92 case DLL_WINE_PREATTACH:
93 return FALSE; /* prefer native version */
94 case DLL_PROCESS_ATTACH:
95 DisableThreadLibraryCalls(hInstDLL);
96 vbscript_hinstance = hInstDLL;
103 /***********************************************************************
104 * DllGetClassObject (vbscript.@)
106 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
108 if(IsEqualGUID(&CLSID_VBScript, rclsid)) {
109 TRACE("(CLSID_VBScript %s %p)\n", debugstr_guid(riid), ppv);
110 return IClassFactory_QueryInterface(&VBScriptFactory, riid, ppv);
113 FIXME("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
114 return CLASS_E_CLASSNOTAVAILABLE;
117 /***********************************************************************
118 * DllCanUnloadNow (vbscript.@)
120 HRESULT WINAPI DllCanUnloadNow(void)
125 /***********************************************************************
126 * DllRegisterServer (vbscript.@)
128 HRESULT WINAPI DllRegisterServer(void)
131 return __wine_register_resources(vbscript_hinstance);
134 /***********************************************************************
135 * DllUnregisterServer (vbscript.@)
137 HRESULT WINAPI DllUnregisterServer(void)
140 return __wine_unregister_resources(vbscript_hinstance);