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