misc/compobj.c

   1 /*
   2  *      COMPOBJ library
   3  *
   4  *      Copyright 1995  Martin von Loewis
   5  */
   6
   7 /*      At the moment, these are only empty stubs.
   8  */
   9
  10 #include "windows.h"
  11 #include "compobj.h"
  12 #include "ole.h"
  13 #include "ole2.h"
  14 #include "stddebug.h"
  15 #include "debug.h"
  16
  17 DWORD currentMalloc=0;
  18
  19 /***********************************************************************
  20  *           CoBuildVersion [COMPOBJ.1]
  21  */
  22 DWORD CoBuildVersion()
  23 {
  24         dprintf_ole(stddeb,"CoBuildVersion()\n");
  25         return (rmm<<16)+rup;
  26 }
  27
  28 /***********************************************************************
  29  *           CoInitialize       [COMPOBJ.2]
  30  * lpReserved is an IMalloc pointer in 16bit OLE. We just stored it as-is.
  31  */
  32 HRESULT CoInitialize(DWORD lpReserved)
  33 {
  34         dprintf_ole(stdnimp,"CoInitialize\n");
  35         /* remember the LPMALLOC, maybe somebody wants to read it later on */
  36         currentMalloc = lpReserved;
  37         return S_OK;
  38 }
  39
  40 /***********************************************************************
  41  *           CoUnitialize   [COMPOBJ.3]
  42  */
  43 void CoUnitialize()
  44 {
  45         dprintf_ole(stdnimp,"CoUnitialize()\n");
  46 }
  47
  48 /***********************************************************************
  49  *           CoGetMalloc    [COMPOBJ.4]
  50  */
  51 HRESULT CoGetMalloc(DWORD dwMemContext, DWORD * lpMalloc)
  52 {
  53         if(currentMalloc)
  54         {
  55                 *lpMalloc = currentMalloc;
  56                 return S_OK;
  57         }
  58         *lpMalloc = 0;
  59         /* 16-bit E_NOTIMPL */
  60         return 0x80000001L;
  61 }
  62
  63 /***********************************************************************
  64  *           CoDisconnectObject
  65  */
  66 OLESTATUS CoDisconnectObject( LPUNKNOWN lpUnk, DWORD reserved )
  67 {
  68     dprintf_ole(stdnimp,"CoDisconnectObject:%p %lx\n",lpUnk,reserved);
  69     return OLE_OK;
  70 }