git.oblomov.eu Git - wine/blob - dlls/ole2disp.dll16/ole2disp.c

   1 /*
   2  *      OLE2DISP library
   3  *
   4  *      Copyright 1995  Martin von Loewis
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include <stdarg.h>
  24 #include <string.h>
  25
  26 #include "wine/windef16.h"
  27 #include "windef.h"
  28 #include "winbase.h"
  29 #include "wingdi.h"
  30 #include "winuser.h"
  31 #include "ole2.h"
  32 #include "oleauto.h"
  33 #include "winerror.h"
  34
  35 #include "ole2disp.h"
  36
  37 #include "wine/debug.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  40
  41 /* This implementation of the BSTR API is 16-bit only. It
  42    represents BSTR as a 16:16 far pointer, and the strings
  43    as ISO-8859 */
  44
  45 /******************************************************************************
  46  *              BSTR_AllocBytes [Internal]
  47  */
  48 static BSTR16 BSTR_AllocBytes(int n)
  49 {
  50     void *ptr = HeapAlloc( GetProcessHeap(), 0, n );
  51     return (BSTR16)MapLS(ptr);
  52 }
  53
  54 /******************************************************************************
  55  * BSTR_Free [INTERNAL]
  56  */
  57 static void BSTR_Free(BSTR16 in)
  58 {
  59     void *ptr = MapSL( (SEGPTR)in );
  60     UnMapLS( (SEGPTR)in );
  61     HeapFree( GetProcessHeap(), 0, ptr );
  62 }
  63
  64 /******************************************************************************
  65  * BSTR_GetAddr [INTERNAL]
  66  */
  67 static void* BSTR_GetAddr(BSTR16 in)
  68 {
  69     return in ? MapSL((SEGPTR)in) : 0;
  70 }
  71
  72 /******************************************************************************
  73  *              SysAllocString  [OLE2DISP.2]
  74  *
  75  * Create a BSTR16 from an OLESTR16 (16 Bit).
  76  *
  77  * PARAMS
  78  *  oleStr [I] Source to create BSTR16 from
  79  *
  80  * RETURNS
  81  *  Success: A BSTR16 allocated with SysAllocStringLen16().
  82  *  Failure: NULL, if oleStr is NULL.
  83  */
  84 BSTR16 WINAPI SysAllocString16(LPCOLESTR16 oleStr)
  85 {
  86         BSTR16 out;
  87
  88         if (!oleStr) return 0;
  89
  90         out = BSTR_AllocBytes(strlen(oleStr)+1);
  91         if (!out) return 0;
  92         strcpy(BSTR_GetAddr(out),oleStr);
  93         return out;
  94 }
  95
  96 /******************************************************************************
  97  *              SysReallocString        [OLE2DISP.3]
  98  *
  99  * Change the length of a previously created BSTR16 (16 Bit).
 100  *
 101  * PARAMS
 102  *  pbstr  [I] BSTR16 to change the length of
 103  *  oleStr [I] New source for pbstr
 104  *
 105  * RETURNS
 106  *  Success: 1
 107  *  Failure: 0.
 108  *
 109  * NOTES
 110  *  SysAllocStringStringLen16().
 111  */
 112 INT16 WINAPI SysReAllocString16(LPBSTR16 pbstr,LPCOLESTR16 oleStr)
 113 {
 114         BSTR16 new=SysAllocString16(oleStr);
 115         BSTR_Free(*pbstr);
 116         *pbstr=new;
 117         return 1;
 118 }
 119
 120 /******************************************************************************
 121  *              SysAllocStringLen       [OLE2DISP.4]
 122  *
 123  * Create a BSTR16 from an OLESTR16 of a given character length (16 Bit).
 124  *
 125  * PARAMS
 126  *  oleStr [I] Source to create BSTR16 from
 127  *  len    [I] Length of oleStr in wide characters
 128  *
 129  * RETURNS
 130  *  Success: A newly allocated BSTR16 from SysAllocStringByteLen16()
 131  *  Failure: NULL, if len is >= 0x80000000, or memory allocation fails.
 132  *
 133  * NOTES
 134  *  See SysAllocStringByteLen16().
 135  */
 136 BSTR16 WINAPI SysAllocStringLen16(const char *oleStr, int len)
 137 {
 138         BSTR16 out=BSTR_AllocBytes(len+1);
 139
 140         if (!out)
 141                 return 0;
 142
 143     /*
 144      * Copy the information in the buffer.
 145      * Since it is valid to pass a NULL pointer here, we'll initialize the
 146      * buffer to nul if it is the case.
 147      */
 148     if (oleStr != 0)
 149         strcpy(BSTR_GetAddr(out),oleStr);
 150     else
 151       memset(BSTR_GetAddr(out), 0, len+1);
 152
 153         return out;
 154 }
 155
 156 /******************************************************************************
 157  *              SysReAllocStringLen     [OLE2DISP.5]
 158  *
 159  * Change the length of a previously created BSTR16 (16 Bit).
 160  *
 161  * PARAMS
 162  *  pbstr  [I] BSTR16 to change the length of
 163  *  oleStr [I] New source for pbstr
 164  *  len    [I] Length of oleStr in characters
 165  *
 166  * RETURNS
 167  *  Success: 1. The size of pbstr is updated.
 168  *  Failure: 0, if len >= 0x8000 or memory allocation fails.
 169  *
 170  * NOTES
 171  *  See SysAllocStringByteLen16().
 172  *  *pbstr may be changed by this function.
 173  */
 174 int WINAPI SysReAllocStringLen16(BSTR16 *old,const char *in,int len)
 175 {
 176         /* FIXME: Check input length */
 177         BSTR16 new=SysAllocStringLen16(in,len);
 178         BSTR_Free(*old);
 179         *old=new;
 180         return 1;
 181 }
 182
 183 /******************************************************************************
 184  *              SysFreeString   [OLE2DISP.6]
 185  *
 186  * Free a BSTR16 (16 Bit).
 187  *
 188  * PARAMS
 189  *  str [I] String to free.
 190  *
 191  * RETURNS
 192  *  Nothing.
 193  */
 194 void WINAPI SysFreeString16(BSTR16 str)
 195 {
 196         BSTR_Free(str);
 197 }
 198
 199 /******************************************************************************
 200  *              SysStringLen    [OLE2DISP.7]
 201  *
 202  * Get the allocated length of a BSTR16 in characters (16 Bit).
 203  *
 204  * PARAMS
 205  *  str [I] BSTR16 to find the length of
 206  *
 207  * RETURNS
 208  *  The allocated length of str, or 0 if str is NULL.
 209  */
 210 int WINAPI SysStringLen16(BSTR16 str)
 211 {
 212         return strlen(BSTR_GetAddr(str));
 213 }
 214
 215 /******************************************************************************
 216  * CreateDispTypeInfo [OLE2DISP.31]
 217  */
 218 HRESULT WINAPI CreateDispTypeInfo16(
 219         INTERFACEDATA *pidata,
 220         LCID lcid,
 221         ITypeInfo **pptinfo)
 222 {
 223         FIXME("(%p,%d,%p),stub\n",pidata,lcid,pptinfo);
 224         return E_NOTIMPL;
 225 }
 226
 227 /******************************************************************************
 228  * CreateStdDispatch [OLE2DISP.32]
 229  */
 230 HRESULT WINAPI CreateStdDispatch16(
 231         IUnknown* punkOuter,
 232         void* pvThis,
 233         ITypeInfo* ptinfo,
 234         IUnknown** ppunkStdDisp)
 235 {
 236         FIXME("(%p,%p,%p,%p),stub\n",punkOuter, pvThis, ptinfo,
 237                ppunkStdDisp);
 238         return 0;
 239 }
 240
 241 /******************************************************************************
 242  * RegisterActiveObject [OLE2DISP.35]
 243  */
 244 HRESULT WINAPI RegisterActiveObject16(
 245         IUnknown *punk, REFCLSID rclsid, DWORD dwFlags, unsigned long *pdwRegister
 246 ) {
 247         FIXME("(%p,%s,0x%08x,%p):stub\n",punk,debugstr_guid(rclsid),dwFlags,pdwRegister);
 248         return E_NOTIMPL;
 249 }