typelib: Implement GetContainingTypeLib_{Proxy,Stub}

[Huw D M Davies]

        Huw Davies <huw at codeweavers.com>
        Implement GetContainingTypelib_{Proxy,Stub}
-- 
Huw Davies
huw at codeweavers.com
Index: dlls/oleaut32/usrmarshal.c
===================================================================
RCS file: /home/wine/wine/dlls/oleaut32/usrmarshal.c,v
retrieving revision 1.9
diff -u -p -r1.9 usrmarshal.c
--- dlls/oleaut32/usrmarshal.c	2 Sep 2005 11:18:57 -0000	1.9
+++ dlls/oleaut32/usrmarshal.c	17 Oct 2005 15:51:59 -0000
@@ -967,8 +967,24 @@ HRESULT CALLBACK ITypeInfo_GetContaining
     ITypeLib** ppTLib,
     UINT* pIndex)
 {
-  FIXME("not implemented\n");
-  return E_FAIL;
+    ITypeLib *pTL;
+    UINT index;
+    HRESULT hr;
+
+    TRACE("(%p, %p, %p)\n", This, ppTLib, pIndex );
+    
+    hr = ITypeInfo_RemoteGetContainingTypeLib_Proxy(This, &pTL, &index);
+    if(SUCCEEDED(hr))
+    {
+        if(pIndex)
+            *pIndex = index;
+
+        if(ppTLib)
+            *ppTLib = pTL;
+        else
+            ITypeLib_Release(pTL);
+    }
+    return hr;
 }
 
 HRESULT __RPC_STUB ITypeInfo_GetContainingTypeLib_Stub(
@@ -976,8 +992,8 @@ HRESULT __RPC_STUB ITypeInfo_GetContaini
     ITypeLib** ppTLib,
     UINT* pIndex)
 {
-  FIXME("not implemented\n");
-  return E_FAIL;
+    TRACE("(%p, %p, %p)\n", This, ppTLib, pIndex );
+    return ITypeInfo_GetContainingTypeLib(This, ppTLib, pIndex);
 }
 
 void CALLBACK ITypeInfo_ReleaseTypeAttr_Proxy(