atl100: Added AtlLoadTypeLib implementation (based on AtlModuleLoadTypeLib).

dlls/atl100/atl.c

@@ -264,6 +264,29 @@ void WINAPI AtlCallTermFunc(_ATL_MODULE *pM)
     pM->m_pTermFuncs = NULL;
 }
 
+/***********************************************************************
+ *           AtlLoadTypeLib             [atl100.@]
+ */
+HRESULT WINAPI AtlLoadTypeLib(HINSTANCE inst, LPCOLESTR lpszIndex,
+        BSTR *pbstrPath, ITypeLib **ppTypeLib)
+{
+    OLECHAR path[MAX_PATH+8]; /* leave some space for index */
+    HRESULT hres;
+
+    TRACE("(%p %s %p %p)\n", inst, debugstr_w(lpszIndex), pbstrPath, ppTypeLib);
+
+    GetModuleFileNameW(inst, path, MAX_PATH);
+    if(lpszIndex)
+        lstrcatW(path, lpszIndex);
+
+    hres = LoadTypeLib(path, ppTypeLib);
+    if(FAILED(hres))
+        return hres;
+
+    *pbstrPath = SysAllocString(path);
+    return S_OK;
+}
+
 /***********************************************************************
  *           AtlGetVersion              [atl100.@]
  */

dlls/atl100/atl100.spec

@@ -38,7 +38,7 @@
 52 stub AtlIPersistPropertyBag_Load
 53 stub AtlIPersistPropertyBag_Save
 54 stub AtlGetObjectSourceInterface
-56 stub AtlLoadTypeLib
+56 stdcall AtlLoadTypeLib(long wstr ptr ptr)
 58 stdcall AtlModuleAddTermFunc(ptr ptr long)
 59 stub AtlAxCreateControlLic
 60 stub AtlAxCreateControlLicEx

include/atlbase.h

@@ -211,5 +211,6 @@ HRESULT WINAPI AtlUnadvise(IUnknown *pUnkCP, const IID * iid, DWORD dw);
 HRESULT WINAPI AtlUnmarshalPtr(IStream *pStream, const IID *iid, IUnknown **ppUnk);
 HRESULT WINAPI AtlCreateRegistrar(IRegistrar**);
 HRESULT WINAPI AtlUpdateRegistryFromResourceD(HINSTANCE,LPCOLESTR,BOOL,struct _ATL_REGMAP_ENTRY*,IRegistrar*);
+HRESULT WINAPI AtlLoadTypeLib(HINSTANCE,LPCOLESTR,BSTR*,ITypeLib**);
 
 #endif /* __WINE_ATLBASE_H__ */