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 }
250
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.