Rob Shearman : ole32: Add a stub implementation of CreatePointerMoniker.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: a7234c07c43ad7b160567950aebf7b0336f00f2e
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=a7234c07c43ad7b160567950ae...

Author: Rob Shearman 
Date:   Thu Jan 31 14:44:36 2008 +0000

ole32: Add a stub implementation of CreatePointerMoniker.

---

dlls/ole32/moniker.c  |   24 ++++++++++++++++++++++++
 dlls/ole32/ole32.spec |    2 +-
 2 files changed, 25 insertions(+), 1 deletions(-)

diff --git a/dlls/ole32/moniker.c b/dlls/ole32/moniker.c
index cc83d95..33ad36c 100644
--- a/dlls/ole32/moniker.c
+++ b/dlls/ole32/moniker.c
@@ -1677,3 +1677,27 @@ void __RPC_USER MIDL_user_free(void *p)
 {
     HeapFree(GetProcessHeap(), 0, p);
 }
+
+/***********************************************************************
+ *           CreatePointerMoniker (OLE32.@)
+ *
+ * Creates a moniker which represents a pointer.
+ *
+ * PARAMS
+ *  punk [I] Pointer to the object to represent.
+ *  ppmk [O] Address that receives the pointer to the created moniker.
+ *
+ * RETURNS
+ *  Success: S_OK.
+ *  Failure: Any HRESULT code.
+ */
+HRESULT WINAPI CreatePointerMoniker(LPUNKNOWN punk, LPMONIKER *ppmk)
+{
+    FIXME("(%p, %p): stub\n", punk, ppmk);
+
+    if (!ppmk)
+        return E_INVALIDARG;
+
+    *ppmk = NULL;
+    return E_NOTIMPL;
+}
diff --git a/dlls/ole32/ole32.spec b/dlls/ole32/ole32.spec
index 25a1955..e1b2250 100644
--- a/dlls/ole32/ole32.spec
+++ b/dlls/ole32/ole32.spec
@@ -92,7 +92,7 @@
 @ stdcall CreateItemMoniker(wstr wstr ptr)
 @ stub CreateObjrefMoniker
 @ stdcall CreateOleAdviseHolder(ptr)
-@ stub CreatePointerMoniker       #@ stdcall (ptr ptr) return 0,ERR_NOTIMPLEMENTED
+@ stdcall CreatePointerMoniker(ptr ptr)
 @ stdcall CreateStreamOnHGlobal(ptr long ptr)
 @ stdcall DllDebugObjectRPCHook(long ptr)
 @ stdcall -private DllGetClassObject (ptr ptr ptr)