Added sprintfW and vsprintfW.
[wine] / dlls / shell32 / shellstring.c
1 /*
2  * Copyright 2000 Juergen Schmied
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
17  */
18
19 #include <string.h>
20 #include <stdio.h>
21 #include <ctype.h>
22 #include <stdlib.h>
23
24 #define NONAMELESSUNION
25 #define NONAMELESSSTRUCT
26 #include "winnls.h"
27 #include "winerror.h"
28 #include "winreg.h"
29
30 #include "shlobj.h"
31 #include "shellapi.h"
32 #include "shell32_main.h"
33 #include "undocshell.h"
34 #include "wine/unicode.h"
35 #include "wine/debug.h"
36
37 WINE_DEFAULT_DEBUG_CHANNEL(shell);
38
39 /************************* STRRET functions ****************************/
40
41 /*
42  * ***** NOTE *****
43  *  These routines are identical to StrRetToBuf[AW] in dlls/shlwapi/string.c.
44  *  They were duplicated here because not every version of Shlwapi.dll exports
45  *  StrRetToBuf[AW]. If you change one routine, change them both. YOU HAVE BEEN
46  *  WARNED.
47  * ***** NOTE *****
48  */
49
50 HRESULT WINAPI StrRetToStrNA (LPVOID dest, DWORD len, LPSTRRET src, const ITEMIDLIST *pidl)
51 {
52         TRACE("dest=%p len=0x%lx strret=%p(%s) pidl=%p\n",
53             dest,len,src,
54             (src->uType == STRRET_WSTR) ? "STRRET_WSTR" :
55             (src->uType == STRRET_CSTR) ? "STRRET_CSTR" :
56             (src->uType == STRRET_OFFSET) ? "STRRET_OFFSET" : "STRRET_???",
57             pidl);
58
59         switch (src->uType)
60         {
61           case STRRET_WSTR:
62             WideCharToMultiByte(CP_ACP, 0, src->u.pOleStr, -1, (LPSTR)dest, len, NULL, NULL);
63             CoTaskMemFree(src->u.pOleStr);
64             break;
65
66           case STRRET_CSTR:
67             lstrcpynA((LPSTR)dest, src->u.cStr, len);
68             break;
69
70           case STRRET_OFFSET:
71             lstrcpynA((LPSTR)dest, ((LPCSTR)&pidl->mkid)+src->u.uOffset, len);
72             break;
73
74           default:
75             FIXME("unknown type!\n");
76             if (len) *(LPSTR)dest = '\0';
77             return(FALSE);
78         }
79         TRACE("-- %s\n", debugstr_a(dest) );
80         return S_OK;
81 }
82
83 /************************************************************************/
84
85 HRESULT WINAPI StrRetToStrNW (LPVOID dest, DWORD len, LPSTRRET src, const ITEMIDLIST *pidl)
86 {
87         TRACE("dest=%p len=0x%lx strret=%p(%s) pidl=%p\n",
88             dest,len,src,
89             (src->uType == STRRET_WSTR) ? "STRRET_WSTR" :
90             (src->uType == STRRET_CSTR) ? "STRRET_CSTR" :
91             (src->uType == STRRET_OFFSET) ? "STRRET_OFFSET" : "STRRET_???",
92             pidl);
93
94         switch (src->uType)
95         {
96           case STRRET_WSTR:
97             lstrcpynW((LPWSTR)dest, src->u.pOleStr, len);
98             CoTaskMemFree(src->u.pOleStr);
99             break;
100
101           case STRRET_CSTR:
102             if (!MultiByteToWideChar( CP_ACP, 0, src->u.cStr, -1, dest, len ) && len)
103                   ((LPWSTR)dest)[len-1] = 0;
104             break;
105
106           case STRRET_OFFSET:
107             if (!MultiByteToWideChar( CP_ACP, 0, ((LPCSTR)&pidl->mkid)+src->u.uOffset, -1, dest, len ) && len)
108                   ((LPWSTR)dest)[len-1] = 0;
109             break;
110
111           default:
112             FIXME("unknown type!\n");
113             if (len) *(LPWSTR)dest = '\0';
114             return(FALSE);
115         }
116         return S_OK;
117 }
118
119
120 /*************************************************************************
121  * StrRetToStrN                         [SHELL32.96]
122  *
123  * converts a STRRET to a normal string
124  *
125  * NOTES
126  *  the pidl is for STRRET OFFSET
127  */
128 HRESULT WINAPI StrRetToStrNAW (LPVOID dest, DWORD len, LPSTRRET src, const ITEMIDLIST *pidl)
129 {
130         if(SHELL_OsIsUnicode())
131           return StrRetToStrNW (dest, len, src, pidl);
132         return StrRetToStrNA (dest, len, src, pidl);
133 }
134
135 /************************* OLESTR functions ****************************/
136
137 /************************************************************************
138  *      StrToOleStr                     [SHELL32.163]
139  *
140  */
141 int WINAPI StrToOleStrA (LPWSTR lpWideCharStr, LPCSTR lpMultiByteString)
142 {
143         TRACE("(%p, %p %s)\n",
144         lpWideCharStr, lpMultiByteString, debugstr_a(lpMultiByteString));
145
146         return MultiByteToWideChar(0, 0, lpMultiByteString, -1, lpWideCharStr, MAX_PATH);
147
148 }
149 int WINAPI StrToOleStrW (LPWSTR lpWideCharStr, LPCWSTR lpWString)
150 {
151         TRACE("(%p, %p %s)\n",
152         lpWideCharStr, lpWString, debugstr_w(lpWString));
153
154         strcpyW (lpWideCharStr, lpWString );
155         return strlenW(lpWideCharStr);
156 }
157
158 BOOL WINAPI StrToOleStrAW (LPWSTR lpWideCharStr, LPCVOID lpString)
159 {
160         if (SHELL_OsIsUnicode())
161           return StrToOleStrW (lpWideCharStr, lpString);
162         return StrToOleStrA (lpWideCharStr, lpString);
163 }
164
165 /*************************************************************************
166  * StrToOleStrN                                 [SHELL32.79]
167  *  lpMulti, nMulti, nWide [IN]
168  *  lpWide [OUT]
169  */
170 BOOL WINAPI StrToOleStrNA (LPWSTR lpWide, INT nWide, LPCSTR lpStrA, INT nStr)
171 {
172         TRACE("(%p, %x, %s, %x)\n", lpWide, nWide, debugstr_an(lpStrA,nStr), nStr);
173         return MultiByteToWideChar (0, 0, lpStrA, nStr, lpWide, nWide);
174 }
175 BOOL WINAPI StrToOleStrNW (LPWSTR lpWide, INT nWide, LPCWSTR lpStrW, INT nStr)
176 {
177         TRACE("(%p, %x, %s, %x)\n", lpWide, nWide, debugstr_wn(lpStrW, nStr), nStr);
178
179         if (lstrcpynW (lpWide, lpStrW, nWide))
180         { return lstrlenW (lpWide);
181         }
182         return 0;
183 }
184
185 BOOL WINAPI StrToOleStrNAW (LPWSTR lpWide, INT nWide, LPCVOID lpStr, INT nStr)
186 {
187         if (SHELL_OsIsUnicode())
188           return StrToOleStrNW (lpWide, nWide, lpStr, nStr);
189         return StrToOleStrNA (lpWide, nWide, lpStr, nStr);
190 }
191
192 /*************************************************************************
193  * OleStrToStrN                                 [SHELL32.78]
194  */
195 BOOL WINAPI OleStrToStrNA (LPSTR lpStr, INT nStr, LPCWSTR lpOle, INT nOle)
196 {
197         TRACE("(%p, %x, %s, %x)\n", lpStr, nStr, debugstr_wn(lpOle,nOle), nOle);
198         return WideCharToMultiByte (0, 0, lpOle, nOle, lpStr, nStr, NULL, NULL);
199 }
200
201 BOOL WINAPI OleStrToStrNW (LPWSTR lpwStr, INT nwStr, LPCWSTR lpOle, INT nOle)
202 {
203         TRACE("(%p, %x, %s, %x)\n", lpwStr, nwStr, debugstr_wn(lpOle,nOle), nOle);
204
205         if (lstrcpynW ( lpwStr, lpOle, nwStr))
206         { return lstrlenW (lpwStr);
207         }
208         return 0;
209 }
210
211 BOOL WINAPI OleStrToStrNAW (LPVOID lpOut, INT nOut, LPCVOID lpIn, INT nIn)
212 {
213         if (SHELL_OsIsUnicode())
214           return OleStrToStrNW (lpOut, nOut, lpIn, nIn);
215         return OleStrToStrNA (lpOut, nOut, lpIn, nIn);
216 }
217
218
219 /*************************************************************************
220  * CheckEscapes [SHELL32]
221  */
222 DWORD WINAPI CheckEscapesA(
223     LPSTR    string,         /* [in]    string to check ??*/
224            DWORD    b,              /* [???]   is 0 */
225            DWORD    c,              /* [???]   is 0 */
226            LPDWORD  d,              /* [???]   is address */
227            LPDWORD  e,              /* [???]   is address */
228            DWORD    handle )        /* [in]    looks like handle but not */
229 {
230     FIXME("(%p<%s> %ld %ld %p<%ld> %p<%ld> 0x%08lx) stub\n",
231    string, debugstr_a(string),
232    b,
233    c,
234    d, (d) ? *d : 0xabbacddc,
235    e, (e) ? *e : 0xabbacddd,
236    handle);
237     return 0;
238 }
239
240 DWORD WINAPI CheckEscapesW(
241     LPWSTR   string,         /* [in]    string to check ??*/
242            DWORD    b,              /* [???]   is 0 */
243            DWORD    c,              /* [???]   is 0 */
244            LPDWORD  d,              /* [???]   is address */
245            LPDWORD  e,              /* [???]   is address */
246            DWORD    handle )        /* [in]    looks like handle but not */
247 {
248     FIXME("(%p<%s> %ld %ld %p<%ld> %p<%ld> 0x%08lx) stub\n",
249    string, debugstr_w(string),
250    b,
251    c,
252    d, (d) ? *d : 0xabbacddc,
253    e, (e) ? *e : 0xabbacddd,
254    handle);
255     return 0;
256 }