ole/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 #define INITGUID
  10
  11 #include <ctype.h>
  12 #include <stdlib.h>
  13 #include <string.h>
  14 #include "ole.h"
  15 #include "ole2.h"
  16 #include "stddebug.h"
  17 #include "debug.h"
  18 #include "compobj.h"
  19 #include "interfaces.h"
  20 #include "shlobj.h"
  21
  22 DWORD currentMalloc=0;
  23
  24 /***********************************************************************
  25  *           CoBuildVersion [COMPOBJ.1]
  26  */
  27 DWORD WINAPI CoBuildVersion()
  28 {
  29         dprintf_ole(stddeb,"CoBuildVersion()\n");
  30         return (rmm<<16)+rup;
  31 }
  32
  33 /***********************************************************************
  34  *           CoInitialize       [COMPOBJ.2]
  35  * lpReserved is an IMalloc pointer in 16bit OLE. We just stored it as-is.
  36  */
  37 HRESULT WINAPI CoInitialize(DWORD lpReserved)
  38 {
  39         dprintf_ole(stdnimp,"CoInitialize\n");
  40         /* remember the LPMALLOC, maybe somebody wants to read it later on */
  41         currentMalloc = lpReserved;
  42         return S_OK;
  43 }
  44
  45 /***********************************************************************
  46  *           CoUnitialize   [COMPOBJ.3]
  47  */
  48 void WINAPI CoUnitialize()
  49 {
  50         dprintf_ole(stdnimp,"CoUnitialize()\n");
  51 }
  52
  53 /***********************************************************************
  54  *           CoGetMalloc    [COMPOBJ.4]
  55  */
  56 HRESULT WINAPI CoGetMalloc(DWORD dwMemContext, DWORD * lpMalloc)
  57 {
  58         if(currentMalloc)
  59         {
  60                 *lpMalloc = currentMalloc;
  61                 return S_OK;
  62         }
  63         *lpMalloc = 0;
  64         /* 16-bit E_NOTIMPL */
  65         return 0x80000001L;
  66 }
  67
  68 /***********************************************************************
  69  *           CoDisconnectObject
  70  */
  71 OLESTATUS WINAPI CoDisconnectObject( LPUNKNOWN lpUnk, DWORD reserved )
  72 {
  73     dprintf_ole(stdnimp,"CoDisconnectObject:%p %lx\n",lpUnk,reserved);
  74     return OLE_OK;
  75 }
  76
  77 /***********************************************************************
  78  *           IsEqualGUID [COMPOBJ.18]
  79  */
  80 BOOL16 WINAPI IsEqualGUID(GUID* g1, GUID* g2)
  81 {
  82     return !memcmp( g1, g2, sizeof(GUID) );
  83 }
  84
  85 /***********************************************************************
  86  *           CLSIDFromString [COMPOBJ.20]
  87  */
  88
  89 /* Class id: DWORD-WORD-WORD-BYTES[2]-BYTES[6] */
  90
  91 OLESTATUS WINAPI CLSIDFromString(const LPCSTR idstr, CLSID *id)
  92 {
  93   BYTE *s = (BYTE *) idstr;
  94   BYTE *p;
  95   int   i;
  96   BYTE table[256];
  97
  98   dprintf_ole(stddeb,"ClsIDFromString() %s -> %p\n", idstr, id);
  99
 100   /* quick lookup table */
 101   memset(table, 0, 256);
 102
 103   for (i = 0; i < 10; i++) {
 104     table['0' + i] = i;
 105   }
 106   for (i = 0; i < 6; i++) {
 107     table['A' + i] = i+10;
 108     table['a' + i] = i+10;
 109   }
 110
 111   /* in form {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} */
 112
 113   if (strlen(idstr) != 38)
 114     return OLE_ERROR_OBJECT;
 115
 116   p = (BYTE *) id;
 117
 118   s++;  /* skip leading brace  */
 119   for (i = 0; i < 4; i++) {
 120     p[3 - i] = table[*s]<<4 | table[*(s+1)];
 121     s += 2;
 122   }
 123   p += 4;
 124   s++;  /* skip - */
 125
 126   for (i = 0; i < 2; i++) {
 127     p[1-i] = table[*s]<<4 | table[*(s+1)];
 128     s += 2;
 129   }
 130   p += 2;
 131   s++;  /* skip - */
 132
 133   for (i = 0; i < 2; i++) {
 134     p[1-i] = table[*s]<<4 | table[*(s+1)];
 135     s += 2;
 136   }
 137   p += 2;
 138   s++;  /* skip - */
 139
 140   /* these are just sequential bytes */
 141   for (i = 0; i < 2; i++) {
 142     *p++ = table[*s]<<4 | table[*(s+1)];
 143     s += 2;
 144   }
 145   s++;  /* skip - */
 146
 147   for (i = 0; i < 6; i++) {
 148     *p++ = table[*s]<<4 | table[*(s+1)];
 149     s += 2;
 150   }
 151
 152   return OLE_OK;
 153 }
 154
 155 /***********************************************************************
 156  *           CLSIDFromString [COMPOBJ.19]
 157  */
 158
 159 OLESTATUS WINAPI StringFromCLSID(const CLSID *id, LPSTR idstr)
 160 {
 161   static const char *hex = "0123456789ABCDEF";
 162   char *s;
 163   int   i;
 164
 165   sprintf(idstr, "{%08lx-%04x-%04x-%02x%02x-",
 166           id->Data1, id->Data2, id->Data3,
 167           id->Data4[0], id->Data4[1]);
 168   s = &idstr[25];
 169
 170   /* 6 hex bytes */
 171   for (i = 2; i < 8; i++) {
 172     *s++ = hex[id->Data4[i]>>4];
 173     *s++ = hex[id->Data4[i] & 0xf];
 174   }
 175
 176   *s++ = '}';
 177   *s++ = '\0';
 178
 179   for (i = strlen(idstr)-1; i >= 0; i--) {
 180     idstr[i] = toupper(idstr[i]);
 181   }
 182
 183   dprintf_ole(stddeb,"StringFromClsID: %p->%s\n", id, idstr);
 184
 185   return OLE_OK;
 186 }
 187