ole/ole2disp.c

   1 /*
   2  *      OLE2DISP library
   3  *
   4  *      Copyright 1995  Martin von Loewis
   5  */
   6
   7 #include "windows.h"
   8 #include "ole.h"
   9 #include "ole2.h"
  10 #include "oleauto.h"
  11 #include "interfaces.h"
  12 #include "heap.h"
  13 #include "ldt.h"
  14 #include "debug.h"
  15
  16 /* This implementation of the BSTR API is 16-bit only. It
  17    represents BSTR as a 16:16 far pointer, and the strings
  18    as ISO-8859 */
  19
  20 static BSTR16 BSTR_AllocBytes(int n)
  21 {
  22     void *ptr = SEGPTR_ALLOC(n);
  23     return (BSTR16)SEGPTR_GET(ptr);
  24 }
  25
  26 static void BSTR_Free(BSTR16 in)
  27 {
  28     SEGPTR_FREE( PTR_SEG_TO_LIN(in) );
  29 }
  30
  31 static void* BSTR_GetAddr(BSTR16 in)
  32 {
  33     return in ? PTR_SEG_TO_LIN(in) : 0;
  34 }
  35
  36 /***********************************************************************
  37  *           SysAllocString         [OLE2DISP.2]
  38  */
  39 BSTR16 WINAPI SysAllocString16(LPOLESTR16 in)
  40 {
  41         BSTR16 out=BSTR_AllocBytes(strlen(in)+1);
  42         if(!out)return 0;
  43         strcpy(BSTR_GetAddr(out),in);
  44         return out;
  45 }
  46
  47 /***********************************************************************
  48  *           SysAllocString         [OLEAUT32.2]
  49  */
  50 BSTR32 WINAPI SysAllocString32(LPOLESTR32 in)
  51 {
  52         return HEAP_strdupW(GetProcessHeap(),0,in);
  53 }
  54
  55 /***********************************************************************
  56  *           SysReAllocString       [OLE2DISP.3]
  57  */
  58 INT16 WINAPI SysReAllocString16(LPBSTR16 old,LPOLESTR16 in)
  59 {
  60         BSTR16 new=SysAllocString16(in);
  61         BSTR_Free(*old);
  62         *old=new;
  63         return 1;
  64 }
  65
  66 /***********************************************************************
  67  *           SysReAllocString       [OLEAUT32.3]
  68  */
  69 INT32 WINAPI SysReAllocString32(LPBSTR32 old,LPOLESTR32 in)
  70 {
  71         BSTR32 new=SysAllocString32(in);
  72         HeapFree(GetProcessHeap(),0,*old);
  73         *old=new;
  74         return 1;
  75 }
  76
  77 /***********************************************************************
  78  *           SysAllocStringLen      [OLE2DISP.4]
  79  */
  80 BSTR16 WINAPI SysAllocStringLen16(char *in, int len)
  81 {
  82         BSTR16 out=BSTR_AllocBytes(len+1);
  83         if(!out)return 0;
  84         strcpy(BSTR_GetAddr(out),in);
  85         return out;
  86 }
  87
  88 /***********************************************************************
  89  *           SysReAllocStringLen    [OLE2DISP.5]
  90  */
  91 int WINAPI SysReAllocStringLen16(BSTR16 *old,char *in,int len)
  92 {
  93         BSTR16 new=SysAllocStringLen16(in,len);
  94         BSTR_Free(*old);
  95         *old=new;
  96         return 1;
  97 }
  98
  99 /***********************************************************************
 100  *           SysFreeString          [OLE2DISP.6]
 101  */
 102 void WINAPI SysFreeString16(BSTR16 in)
 103 {
 104         BSTR_Free(in);
 105 }
 106
 107 /***********************************************************************
 108  *           SysFreeString          [OLEAUT32.6]
 109  */
 110 void WINAPI SysFreeString32(BSTR32 in)
 111 {
 112         HeapFree(GetProcessHeap(),0,in);
 113 }
 114
 115 /***********************************************************************
 116  *           SysStringLen           [OLE2DISP.7]
 117  */
 118 int WINAPI SysStringLen16(BSTR16 str)
 119 {
 120         return strlen(BSTR_GetAddr(str));
 121 }
 122
 123 OLESTATUS WINAPI CreateDispTypeInfo(INTERFACEDATA * pidata,LCID lcid,LPVOID/*ITypeInfo*/ * * pptinfo) {
 124         FIXME(ole,"(%p,%ld,%p),stub\n",pidata,lcid,pptinfo);
 125         return 0;
 126 }
 127
 128 OLESTATUS WINAPI RegisterActiveObject(
 129         IUnknown * punk,REFCLSID rclsid,DWORD dwFlags, DWORD * pdwRegister
 130 ) {
 131         char    buf[80];
 132         WINE_StringFromCLSID(rclsid,buf);
 133         FIXME(ole,"RegisterActiveObject(%p,%s,0x%08lx,%p),stub\n",punk,buf,dwFlags,pdwRegister);
 134         return 0;
 135 }