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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <string.h>
  20 #include <stdarg.h>
  21 #include <stdio.h>
  22 #include <ctype.h>
  23 #include <stdlib.h>
  24
  25 #define NONAMELESSUNION
  26 #define NONAMELESSSTRUCT
  27 #include "windef.h"
  28 #include "winbase.h"
  29 #include "winnls.h"
  30 #include "wingdi.h"
  31 #include "winuser.h"
  32 #include "winreg.h"
  33
  34 #include "shlobj.h"
  35 #include "shlwapi.h"
  36 #include "shell32_main.h"
  37 #include "undocshell.h"
  38 #include "wine/unicode.h"
  39 #include "wine/debug.h"
  40
  41 WINE_DEFAULT_DEBUG_CHANNEL(shell);
  42
  43 /************************* STRRET functions ****************************/
  44
  45 BOOL WINAPI StrRetToStrNA(LPSTR dest, DWORD len, LPSTRRET src, const ITEMIDLIST *pidl)
  46 {
  47         TRACE("dest=%p len=0x%x strret=%p(%s) pidl=%p\n",
  48             dest,len,src,
  49             (src->uType == STRRET_WSTR) ? "STRRET_WSTR" :
  50             (src->uType == STRRET_CSTR) ? "STRRET_CSTR" :
  51             (src->uType == STRRET_OFFSET) ? "STRRET_OFFSET" : "STRRET_???",
  52             pidl);
  53
  54     if (!dest)
  55         return FALSE;
  56
  57         switch (src->uType)
  58         {
  59           case STRRET_WSTR:
  60             WideCharToMultiByte(CP_ACP, 0, src->u.pOleStr, -1, dest, len, NULL, NULL);
  61             CoTaskMemFree(src->u.pOleStr);
  62             break;
  63
  64           case STRRET_CSTR:
  65             lstrcpynA(dest, src->u.cStr, len);
  66             break;
  67
  68           case STRRET_OFFSET:
  69             lstrcpynA(dest, ((LPCSTR)&pidl->mkid)+src->u.uOffset, len);
  70             break;
  71
  72           default:
  73             FIXME("unknown type!\n");
  74             if (len) *dest = '\0';
  75             return FALSE;
  76         }
  77         TRACE("-- %s\n", debugstr_a(dest) );
  78         return TRUE;
  79 }
  80
  81 /************************************************************************/
  82
  83 BOOL WINAPI StrRetToStrNW(LPWSTR dest, DWORD len, LPSTRRET src, const ITEMIDLIST *pidl)
  84 {
  85         TRACE("dest=%p len=0x%x strret=%p(%s) pidl=%p\n",
  86             dest,len,src,
  87             (src->uType == STRRET_WSTR) ? "STRRET_WSTR" :
  88             (src->uType == STRRET_CSTR) ? "STRRET_CSTR" :
  89             (src->uType == STRRET_OFFSET) ? "STRRET_OFFSET" : "STRRET_???",
  90             pidl);
  91
  92     if (!dest)
  93         return FALSE;
  94
  95         switch (src->uType)
  96         {
  97           case STRRET_WSTR:
  98             lstrcpynW(dest, src->u.pOleStr, len);
  99             CoTaskMemFree(src->u.pOleStr);
 100             break;
 101
 102           case STRRET_CSTR:
 103             if (!MultiByteToWideChar( CP_ACP, 0, src->u.cStr, -1, dest, len ) && len)
 104                   dest[len-1] = 0;
 105             break;
 106
 107           case STRRET_OFFSET:
 108             if (!MultiByteToWideChar( CP_ACP, 0, ((LPCSTR)&pidl->mkid)+src->u.uOffset, -1, dest, len ) && len)
 109                   dest[len-1] = 0;
 110             break;
 111
 112           default:
 113             FIXME("unknown type!\n");
 114             if (len) *dest = '\0';
 115             return FALSE;
 116         }
 117         return TRUE;
 118 }
 119
 120
 121 /*************************************************************************
 122  * StrRetToStrN                         [SHELL32.96]
 123  *
 124  * converts a STRRET to a normal string
 125  *
 126  * NOTES
 127  *  the pidl is for STRRET OFFSET
 128  */
 129 BOOL WINAPI StrRetToStrNAW(LPVOID dest, DWORD len, LPSTRRET src, const ITEMIDLIST *pidl)
 130 {
 131         if(SHELL_OsIsUnicode())
 132         return StrRetToStrNW(dest, len, src, pidl);
 133     else
 134         return StrRetToStrNA(dest, len, src, pidl);
 135 }
 136
 137 /************************* OLESTR functions ****************************/
 138
 139 /************************************************************************
 140  *      StrToOleStr                     [SHELL32.163]
 141  *
 142  */
 143 static int StrToOleStrA (LPWSTR lpWideCharStr, LPCSTR lpMultiByteString)
 144 {
 145         TRACE("(%p, %p %s)\n",
 146         lpWideCharStr, lpMultiByteString, debugstr_a(lpMultiByteString));
 147
 148         return MultiByteToWideChar(0, 0, lpMultiByteString, -1, lpWideCharStr, MAX_PATH);
 149
 150 }
 151 static int StrToOleStrW (LPWSTR lpWideCharStr, LPCWSTR lpWString)
 152 {
 153         TRACE("(%p, %p %s)\n",
 154         lpWideCharStr, lpWString, debugstr_w(lpWString));
 155
 156         strcpyW (lpWideCharStr, lpWString );
 157         return strlenW(lpWideCharStr);
 158 }
 159
 160 BOOL WINAPI StrToOleStrAW (LPWSTR lpWideCharStr, LPCVOID lpString)
 161 {
 162         if (SHELL_OsIsUnicode())
 163           return StrToOleStrW (lpWideCharStr, lpString);
 164         return StrToOleStrA (lpWideCharStr, lpString);
 165 }
 166
 167 /*************************************************************************
 168  * StrToOleStrN                                 [SHELL32.79]
 169  *  lpMulti, nMulti, nWide [IN]
 170  *  lpWide [OUT]
 171  */
 172 static BOOL StrToOleStrNA (LPWSTR lpWide, INT nWide, LPCSTR lpStrA, INT nStr)
 173 {
 174         TRACE("(%p, %x, %s, %x)\n", lpWide, nWide, debugstr_an(lpStrA,nStr), nStr);
 175         return MultiByteToWideChar (0, 0, lpStrA, nStr, lpWide, nWide);
 176 }
 177 static BOOL StrToOleStrNW (LPWSTR lpWide, INT nWide, LPCWSTR lpStrW, INT nStr)
 178 {
 179         TRACE("(%p, %x, %s, %x)\n", lpWide, nWide, debugstr_wn(lpStrW, nStr), nStr);
 180
 181         if (lstrcpynW (lpWide, lpStrW, nWide))
 182         { return lstrlenW (lpWide);
 183         }
 184         return 0;
 185 }
 186
 187 BOOL WINAPI StrToOleStrNAW (LPWSTR lpWide, INT nWide, LPCVOID lpStr, INT nStr)
 188 {
 189         if (SHELL_OsIsUnicode())
 190           return StrToOleStrNW (lpWide, nWide, lpStr, nStr);
 191         return StrToOleStrNA (lpWide, nWide, lpStr, nStr);
 192 }
 193
 194 /*************************************************************************
 195  * OleStrToStrN                                 [SHELL32.78]
 196  */
 197 static BOOL OleStrToStrNA (LPSTR lpStr, INT nStr, LPCWSTR lpOle, INT nOle)
 198 {
 199         TRACE("(%p, %x, %s, %x)\n", lpStr, nStr, debugstr_wn(lpOle,nOle), nOle);
 200         return WideCharToMultiByte (0, 0, lpOle, nOle, lpStr, nStr, NULL, NULL);
 201 }
 202
 203 static BOOL OleStrToStrNW (LPWSTR lpwStr, INT nwStr, LPCWSTR lpOle, INT nOle)
 204 {
 205         TRACE("(%p, %x, %s, %x)\n", lpwStr, nwStr, debugstr_wn(lpOle,nOle), nOle);
 206
 207         if (lstrcpynW ( lpwStr, lpOle, nwStr))
 208         { return lstrlenW (lpwStr);
 209         }
 210         return 0;
 211 }
 212
 213 BOOL WINAPI OleStrToStrNAW (LPVOID lpOut, INT nOut, LPCVOID lpIn, INT nIn)
 214 {
 215         if (SHELL_OsIsUnicode())
 216           return OleStrToStrNW (lpOut, nOut, lpIn, nIn);
 217         return OleStrToStrNA (lpOut, nOut, lpIn, nIn);
 218 }
 219
 220
 221 /*************************************************************************
 222  * CheckEscapesA             [SHELL32.@]
 223  *
 224  * Checks a string for special characters which are not allowed in a path
 225  * and encloses it in quotes if that is the case.
 226  *
 227  * PARAMS
 228  *  string     [I/O] string to check and on return eventually quoted
 229  *  len        [I]   length of string
 230  *
 231  * RETURNS
 232  *  length of actual string
 233  *
 234  * NOTES
 235  *  Not really sure if this function returns actually a value at all.
 236  */
 237 DWORD WINAPI CheckEscapesA(
 238         LPSTR   string,         /* [I/O]   string to check ??*/
 239         DWORD   len)            /* [I]      is 0 */
 240 {
 241         LPWSTR wString;
 242         DWORD ret = 0;
 243
 244         TRACE("(%s %d)\n", debugstr_a(string), len);
 245         wString = LocalAlloc(LPTR, len * sizeof(WCHAR));
 246         if (wString)
 247         {
 248           MultiByteToWideChar(CP_ACP, 0, string, len, wString, len);
 249           ret = CheckEscapesW(wString, len);
 250           WideCharToMultiByte(CP_ACP, 0, wString, len, string, len, NULL, NULL);
 251           LocalFree(wString);
 252         }
 253         return ret;
 254 }
 255
 256 static const WCHAR strEscapedChars[] = {' ','"',',',';','^',0};
 257
 258 /*************************************************************************
 259  * CheckEscapesW             [SHELL32.@]
 260  *
 261  * See CheckEscapesA.
 262  */
 263 DWORD WINAPI CheckEscapesW(
 264         LPWSTR  string,
 265         DWORD   len)
 266 {
 267         DWORD size = lstrlenW(string);
 268         LPWSTR s, d;
 269
 270         TRACE("(%s %d) stub\n", debugstr_w(string), len);
 271
 272         if (StrPBrkW(string, strEscapedChars) && size + 2 <= len)
 273         {
 274           s = &string[size - 1];
 275           d = &string[size + 2];
 276           *d-- = 0;
 277           *d-- = '"';
 278           for (;d > string;)
 279             *d-- = *s--;
 280           *d = '"';
 281           return size + 2;
 282         }
 283         return size;
 284 }