2 * Copyright 2011 Hans Leidekker 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
30 #include "scrrun_private.h"
32 #include "wine/debug.h"
34 WINE_DEFAULT_DEBUG_CHANNEL(scrrun
);
36 static HINSTANCE scrrun_instance
;
38 typedef HRESULT (*fnCreateInstance
)(LPVOID
*ppObj
);
40 static HRESULT WINAPI
scrruncf_QueryInterface(IClassFactory
*iface
, REFIID riid
, LPVOID
*ppv
)
44 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
45 TRACE("(%p)->(IID_IUnknown %p)\n", iface
, ppv
);
47 }else if(IsEqualGUID(&IID_IClassFactory
, riid
)) {
48 TRACE("(%p)->(IID_IClassFactory %p)\n", iface
, ppv
);
53 IUnknown_AddRef((IUnknown
*)*ppv
);
57 WARN("(%p)->(%s %p)\n", iface
, debugstr_guid(riid
), ppv
);
61 static ULONG WINAPI
scrruncf_AddRef(IClassFactory
*iface
)
63 TRACE("(%p)\n", iface
);
67 static ULONG WINAPI
scrruncf_Release(IClassFactory
*iface
)
69 TRACE("(%p)\n", iface
);
73 static HRESULT WINAPI
scrruncf_LockServer(IClassFactory
*iface
, BOOL fLock
)
75 TRACE("(%p)->(%x)\n", iface
, fLock
);
79 static const struct IClassFactoryVtbl scrruncf_vtbl
=
81 scrruncf_QueryInterface
,
84 FileSystem_CreateInstance
,
88 static const struct IClassFactoryVtbl dictcf_vtbl
=
90 scrruncf_QueryInterface
,
93 Dictionary_CreateInstance
,
97 static IClassFactory FileSystemFactory
= { &scrruncf_vtbl
};
98 static IClassFactory DictionaryFactory
= { &dictcf_vtbl
};
100 static ITypeLib
*typelib
;
101 static ITypeInfo
*typeinfos
[LAST_tid
];
103 static REFIID tid_ids
[] = {
107 &IID_IDriveCollection
,
109 &IID_IFileCollection
,
112 &IID_IFolderCollection
,
116 static HRESULT
load_typelib(void)
121 hres
= LoadRegTypeLib(&LIBID_Scripting
, 1, 0, LOCALE_SYSTEM_DEFAULT
, &tl
);
123 ERR("LoadRegTypeLib failed: %08x\n", hres
);
127 if(InterlockedCompareExchangePointer((void**)&typelib
, tl
, NULL
))
128 ITypeLib_Release(tl
);
132 HRESULT
get_typeinfo(tid_t tid
, ITypeInfo
**typeinfo
)
137 hres
= load_typelib();
141 if(!typeinfos
[tid
]) {
144 hres
= ITypeLib_GetTypeInfoOfGuid(typelib
, tid_ids
[tid
], &ti
);
146 ERR("GetTypeInfoOfGuid(%s) failed: %08x\n", debugstr_guid(tid_ids
[tid
]), hres
);
150 if(InterlockedCompareExchangePointer((void**)(typeinfos
+tid
), ti
, NULL
))
151 ITypeInfo_Release(ti
);
154 *typeinfo
= typeinfos
[tid
];
155 ITypeInfo_AddRef(typeinfos
[tid
]);
159 static void release_typelib(void)
166 for(i
=0; i
< sizeof(typeinfos
)/sizeof(*typeinfos
); i
++)
168 ITypeInfo_Release(typeinfos
[i
]);
170 ITypeLib_Release(typelib
);
173 BOOL WINAPI
DllMain( HINSTANCE hinst
, DWORD reason
, LPVOID reserved
)
175 TRACE("%p, %u, %p\n", hinst
, reason
, reserved
);
179 case DLL_WINE_PREATTACH
:
180 return FALSE
; /* prefer native version */
181 case DLL_PROCESS_ATTACH
:
182 DisableThreadLibraryCalls( hinst
);
183 scrrun_instance
= hinst
;
185 case DLL_PROCESS_DETACH
:
193 /***********************************************************************
194 * DllRegisterServer (scrrun.@)
196 HRESULT WINAPI
DllRegisterServer(void)
199 return __wine_register_resources(scrrun_instance
);
202 /***********************************************************************
203 * DllUnregisterServer (scrrun.@)
205 HRESULT WINAPI
DllUnregisterServer(void)
208 return __wine_unregister_resources(scrrun_instance
);
211 /***********************************************************************
212 * DllGetClassObject (scrrun.@)
215 HRESULT WINAPI
DllGetClassObject(REFCLSID rclsid
, REFIID riid
, LPVOID
* ppv
)
217 if(IsEqualGUID(&CLSID_FileSystemObject
, rclsid
)) {
218 TRACE("(CLSID_WshShell %s %p)\n", debugstr_guid(riid
), ppv
);
219 return IClassFactory_QueryInterface(&FileSystemFactory
, riid
, ppv
);
221 else if(IsEqualGUID(&CLSID_Dictionary
, rclsid
)) {
222 TRACE("(CLSID_WshShell %s %p)\n", debugstr_guid(riid
), ppv
);
223 return IClassFactory_QueryInterface(&DictionaryFactory
, riid
, ppv
);
226 FIXME("%s %s %p\n", debugstr_guid(rclsid
), debugstr_guid(riid
), ppv
);
227 return CLASS_E_CLASSNOTAVAILABLE
;
230 /***********************************************************************
231 * DllCanUnloadNow (scrrun.@)
233 HRESULT WINAPI
DllCanUnloadNow(void)