/* * Path Functions * * Copyright 1999, 2000 Juergen Schmied * Copyright 2001, 2002 Jon Griffiths * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include "config.h" #include "wine/port.h" #include #include #include #include "wine/unicode.h" #include "windef.h" #include "winbase.h" #include "wingdi.h" #include "winuser.h" #include "winreg.h" #include "winternl.h" #define NO_SHLWAPI_STREAM #include "shlwapi.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(shell); /* Get a function pointer from a DLL handle */ #define GET_FUNC(func, module, name, fail) \ do { \ if (!func) { \ if (!SHLWAPI_h##module && !(SHLWAPI_h##module = LoadLibraryA(#module ".dll"))) return fail; \ func = (fn##func)GetProcAddress(SHLWAPI_h##module, name); \ if (!func) return fail; \ } \ } while (0) /* DLL handles for late bound calls */ static HMODULE SHLWAPI_hshell32; /* Function pointers for GET_FUNC macro; these need to be global because of gcc bug */ typedef BOOL (WINAPI *fnpIsNetDrive)(int); static fnpIsNetDrive pIsNetDrive; HRESULT WINAPI SHGetWebFolderFilePathW(LPCWSTR,LPWSTR,DWORD); /************************************************************************* * PathAppendA [SHLWAPI.@] * * Append one path to another. * * PARAMS * lpszPath [I/O] Initial part of path, and destination for output * lpszAppend [I] Path to append * * RETURNS * Success: TRUE. lpszPath contains the newly created path. * Failure: FALSE, if either path is NULL, or PathCombineA() fails. * * NOTES * lpszAppend must contain at least one backslash ('\') if not NULL. * Because PathCombineA() is used to join the paths, the resulting * path is also canonicalized. */ BOOL WINAPI PathAppendA (LPSTR lpszPath, LPCSTR lpszAppend) { TRACE("(%s,%s)\n",debugstr_a(lpszPath), debugstr_a(lpszAppend)); if (lpszPath && lpszAppend) { if (!PathIsUNCA(lpszAppend)) while (*lpszAppend == '\\') lpszAppend++; if (PathCombineA(lpszPath, lpszPath, lpszAppend)) return TRUE; } return FALSE; } /************************************************************************* * PathAppendW [SHLWAPI.@] * * See PathAppendA. */ BOOL WINAPI PathAppendW(LPWSTR lpszPath, LPCWSTR lpszAppend) { TRACE("(%s,%s)\n",debugstr_w(lpszPath), debugstr_w(lpszAppend)); if (lpszPath && lpszAppend) { if (!PathIsUNCW(lpszAppend)) while (*lpszAppend == '\\') lpszAppend++; if (PathCombineW(lpszPath, lpszPath, lpszAppend)) return TRUE; } return FALSE; } /************************************************************************* * PathCombineA [SHLWAPI.@] * * Combine two paths together. * * PARAMS * lpszDest [O] Destination for combined path * lpszDir [I] Directory path * lpszFile [I] File path * * RETURNS * Success: The output path * Failure: NULL, if inputs are invalid. * * NOTES * lpszDest should be at least MAX_PATH in size, and may point to the same * memory location as lpszDir. The combined path is canonicalised. */ LPSTR WINAPI PathCombineA(LPSTR lpszDest, LPCSTR lpszDir, LPCSTR lpszFile) { WCHAR szDest[MAX_PATH]; WCHAR szDir[MAX_PATH]; WCHAR szFile[MAX_PATH]; TRACE("(%p,%s,%s)\n", lpszDest, debugstr_a(lpszDir), debugstr_a(lpszFile)); /* Invalid parameters */ if (!lpszDest) return NULL; if (!lpszDir && !lpszFile) { lpszDest[0] = 0; return NULL; } if (lpszDir) MultiByteToWideChar(CP_ACP,0,lpszDir,-1,szDir,MAX_PATH); if (lpszFile) MultiByteToWideChar(CP_ACP,0,lpszFile,-1,szFile,MAX_PATH); if (PathCombineW(szDest, lpszDir ? szDir : NULL, lpszFile ? szFile : NULL)) if (WideCharToMultiByte(CP_ACP,0,szDest,-1,lpszDest,MAX_PATH,0,0)) return lpszDest; lpszDest[0] = 0; return NULL; } /************************************************************************* * PathCombineW [SHLWAPI.@] * * See PathCombineA. */ LPWSTR WINAPI PathCombineW(LPWSTR lpszDest, LPCWSTR lpszDir, LPCWSTR lpszFile) { WCHAR szTemp[MAX_PATH]; BOOL bUseBoth = FALSE, bStrip = FALSE; TRACE("(%p,%s,%s)\n", lpszDest, debugstr_w(lpszDir), debugstr_w(lpszFile)); /* Invalid parameters */ if (!lpszDest) return NULL; if (!lpszDir && !lpszFile) { lpszDest[0] = 0; return NULL; } if ((!lpszFile || !*lpszFile) && lpszDir) { /* Use dir only */ lstrcpynW(szTemp, lpszDir, MAX_PATH); } else if (!lpszDir || !*lpszDir || !PathIsRelativeW(lpszFile)) { if (!lpszDir || !*lpszDir || *lpszFile != '\\' || PathIsUNCW(lpszFile)) { /* Use file only */ lstrcpynW(szTemp, lpszFile, MAX_PATH); } else { bUseBoth = TRUE; bStrip = TRUE; } } else bUseBoth = TRUE; if (bUseBoth) { lstrcpynW(szTemp, lpszDir, MAX_PATH); if (bStrip) { PathStripToRootW(szTemp); lpszFile++; /* Skip '\' */ } if (!PathAddBackslashW(szTemp) || strlenW(szTemp) + strlenW(lpszFile) >= MAX_PATH) { lpszDest[0] = 0; return NULL; } strcatW(szTemp, lpszFile); } PathCanonicalizeW(lpszDest, szTemp); return lpszDest; } /************************************************************************* * PathAddBackslashA [SHLWAPI.@] * * Append a backslash ('\') to a path if one doesn't exist. * * PARAMS * lpszPath [I/O] The path to append a backslash to. * * RETURNS * Success: The position of the last backslash in the path. * Failure: NULL, if lpszPath is NULL or the path is too large. */ LPSTR WINAPI PathAddBackslashA(LPSTR lpszPath) { size_t iLen; LPSTR prev = lpszPath; TRACE("(%s)\n",debugstr_a(lpszPath)); if (!lpszPath || (iLen = strlen(lpszPath)) >= MAX_PATH) return NULL; if (iLen) { do { lpszPath = CharNextA(prev); if (*lpszPath) prev = lpszPath; } while (*lpszPath); if (*prev != '\\') { *lpszPath++ = '\\'; *lpszPath = '\0'; } } return lpszPath; } /************************************************************************* * PathAddBackslashW [SHLWAPI.@] * * See PathAddBackslashA. */ LPWSTR WINAPI PathAddBackslashW( LPWSTR lpszPath ) { size_t iLen; TRACE("(%s)\n",debugstr_w(lpszPath)); if (!lpszPath || (iLen = strlenW(lpszPath)) >= MAX_PATH) return NULL; if (iLen) { lpszPath += iLen; if (lpszPath[-1] != '\\') { *lpszPath++ = '\\'; *lpszPath = '\0'; } } return lpszPath; } /************************************************************************* * PathBuildRootA [SHLWAPI.@] * * Create a root drive string (e.g. "A:\") from a drive number. * * PARAMS * lpszPath [O] Destination for the drive string * * RETURNS * lpszPath * * NOTES * If lpszPath is NULL or drive is invalid, nothing is written to lpszPath. */ LPSTR WINAPI PathBuildRootA(LPSTR lpszPath, int drive) { TRACE("(%p,%d)\n", lpszPath, drive); if (lpszPath && drive >= 0 && drive < 26) { lpszPath[0] = 'A' + drive; lpszPath[1] = ':'; lpszPath[2] = '\\'; lpszPath[3] = '\0'; } return lpszPath; } /************************************************************************* * PathBuildRootW [SHLWAPI.@] * * See PathBuildRootA. */ LPWSTR WINAPI PathBuildRootW(LPWSTR lpszPath, int drive) { TRACE("(%p,%d)\n", lpszPath, drive); if (lpszPath && drive >= 0 && drive < 26) { lpszPath[0] = 'A' + drive; lpszPath[1] = ':'; lpszPath[2] = '\\'; lpszPath[3] = '\0'; } return lpszPath; } /************************************************************************* * PathFindFileNameA [SHLWAPI.@] * * Locate the start of the file name in a path * * PARAMS * lpszPath [I] Path to search * * RETURNS * A pointer to the first character of the file name */ LPSTR WINAPI PathFindFileNameA(LPCSTR lpszPath) { LPCSTR lastSlash = lpszPath; TRACE("(%s)\n",debugstr_a(lpszPath)); while (lpszPath && *lpszPath) { if ((*lpszPath == '\\' || *lpszPath == '/' || *lpszPath == ':') && lpszPath[1] && lpszPath[1] != '\\' && lpszPath[1] != '/') lastSlash = lpszPath + 1; lpszPath = CharNextA(lpszPath); } return (LPSTR)lastSlash; } /************************************************************************* * PathFindFileNameW [SHLWAPI.@] * * See PathFindFileNameA. */ LPWSTR WINAPI PathFindFileNameW(LPCWSTR lpszPath) { LPCWSTR lastSlash = lpszPath; TRACE("(%s)\n",debugstr_w(lpszPath)); while (lpszPath && *lpszPath) { if ((*lpszPath == '\\' || *lpszPath == '/' || *lpszPath == ':') && lpszPath[1] && lpszPath[1] != '\\' && lpszPath[1] != '/') lastSlash = lpszPath + 1; lpszPath++; } return (LPWSTR)lastSlash; } /************************************************************************* * PathFindExtensionA [SHLWAPI.@] * * Locate the start of the file extension in a path * * PARAMS * lpszPath [I] The path to search * * RETURNS * A pointer to the first character of the extension, the end of * the string if the path has no extension, or NULL If lpszPath is NULL */ LPSTR WINAPI PathFindExtensionA( LPCSTR lpszPath ) { LPCSTR lastpoint = NULL; TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath) { while (*lpszPath) { if (*lpszPath == '\\' || *lpszPath==' ') lastpoint = NULL; else if (*lpszPath == '.') lastpoint = lpszPath; lpszPath = CharNextA(lpszPath); } } return (LPSTR)(lastpoint ? lastpoint : lpszPath); } /************************************************************************* * PathFindExtensionW [SHLWAPI.@] * * See PathFindExtensionA. */ LPWSTR WINAPI PathFindExtensionW( LPCWSTR lpszPath ) { LPCWSTR lastpoint = NULL; TRACE("(%s)\n", debugstr_w(lpszPath)); if (lpszPath) { while (*lpszPath) { if (*lpszPath == '\\' || *lpszPath==' ') lastpoint = NULL; else if (*lpszPath == '.') lastpoint = lpszPath; lpszPath++; } } return (LPWSTR)(lastpoint ? lastpoint : lpszPath); } /************************************************************************* * PathGetArgsA [SHLWAPI.@] * * Find the next argument in a string delimited by spaces. * * PARAMS * lpszPath [I] The string to search for arguments in * * RETURNS * The start of the next argument in lpszPath, or NULL if lpszPath is NULL * * NOTES * Spaces in quoted strings are ignored as delimiters. */ LPSTR WINAPI PathGetArgsA(LPCSTR lpszPath) { BOOL bSeenQuote = FALSE; TRACE("(%s)\n",debugstr_a(lpszPath)); if (lpszPath) { while (*lpszPath) { if ((*lpszPath==' ') && !bSeenQuote) return (LPSTR)lpszPath + 1; if (*lpszPath == '"') bSeenQuote = !bSeenQuote; lpszPath = CharNextA(lpszPath); } } return (LPSTR)lpszPath; } /************************************************************************* * PathGetArgsW [SHLWAPI.@] * * See PathGetArgsA. */ LPWSTR WINAPI PathGetArgsW(LPCWSTR lpszPath) { BOOL bSeenQuote = FALSE; TRACE("(%s)\n",debugstr_w(lpszPath)); if (lpszPath) { while (*lpszPath) { if ((*lpszPath==' ') && !bSeenQuote) return (LPWSTR)lpszPath + 1; if (*lpszPath == '"') bSeenQuote = !bSeenQuote; lpszPath++; } } return (LPWSTR)lpszPath; } /************************************************************************* * PathGetDriveNumberA [SHLWAPI.@] * * Return the drive number from a path * * PARAMS * lpszPath [I] Path to get the drive number from * * RETURNS * Success: The drive number corresponding to the drive in the path * Failure: -1, if lpszPath contains no valid drive */ int WINAPI PathGetDriveNumberA(LPCSTR lpszPath) { TRACE ("(%s)\n",debugstr_a(lpszPath)); if (lpszPath && !IsDBCSLeadByte(*lpszPath) && lpszPath[1] == ':' && tolower(*lpszPath) >= 'a' && tolower(*lpszPath) <= 'z') return tolower(*lpszPath) - 'a'; return -1; } /************************************************************************* * PathGetDriveNumberW [SHLWAPI.@] * * See PathGetDriveNumberA. */ int WINAPI PathGetDriveNumberW(LPCWSTR lpszPath) { TRACE ("(%s)\n",debugstr_w(lpszPath)); if (lpszPath) { WCHAR tl = tolowerW(lpszPath[0]); if (tl >= 'a' && tl <= 'z' && lpszPath[1] == ':') return tl - 'a'; } return -1; } /************************************************************************* * PathRemoveFileSpecA [SHLWAPI.@] * * Remove the file specification from a path. * * PARAMS * lpszPath [I/O] Path to remove the file spec from * * RETURNS * TRUE If the path was valid and modified * FALSE Otherwise */ BOOL WINAPI PathRemoveFileSpecA(LPSTR lpszPath) { LPSTR lpszFileSpec = lpszPath; BOOL bModified = FALSE; TRACE("(%s)\n",debugstr_a(lpszPath)); if(lpszPath) { /* Skip directory or UNC path */ if (*lpszPath == '\\') lpszFileSpec = ++lpszPath; if (*lpszPath == '\\') lpszFileSpec = ++lpszPath; while (*lpszPath) { if(*lpszPath == '\\') lpszFileSpec = lpszPath; /* Skip dir */ else if(*lpszPath == ':') { lpszFileSpec = ++lpszPath; /* Skip drive */ if (*lpszPath == '\\') lpszFileSpec++; } if (!(lpszPath = CharNextA(lpszPath))) break; } if (*lpszFileSpec) { *lpszFileSpec = '\0'; bModified = TRUE; } } return bModified; } /************************************************************************* * PathRemoveFileSpecW [SHLWAPI.@] * * See PathRemoveFileSpecA. */ BOOL WINAPI PathRemoveFileSpecW(LPWSTR lpszPath) { LPWSTR lpszFileSpec = lpszPath; BOOL bModified = FALSE; TRACE("(%s)\n",debugstr_w(lpszPath)); if(lpszPath) { /* Skip directory or UNC path */ if (*lpszPath == '\\') lpszFileSpec = ++lpszPath; if (*lpszPath == '\\') lpszFileSpec = ++lpszPath; while (*lpszPath) { if(*lpszPath == '\\') lpszFileSpec = lpszPath; /* Skip dir */ else if(*lpszPath == ':') { lpszFileSpec = ++lpszPath; /* Skip drive */ if (*lpszPath == '\\') lpszFileSpec++; } lpszPath++; } if (*lpszFileSpec) { *lpszFileSpec = '\0'; bModified = TRUE; } } return bModified; } /************************************************************************* * PathStripPathA [SHLWAPI.@] * * Remove the initial path from the beginning of a filename * * PARAMS * lpszPath [I/O] Path to remove the initial path from * * RETURNS * Nothing. */ void WINAPI PathStripPathA(LPSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath) { LPSTR lpszFileName = PathFindFileNameA(lpszPath); if(lpszFileName) RtlMoveMemory(lpszPath, lpszFileName, strlen(lpszFileName)+1); } } /************************************************************************* * PathStripPathW [SHLWAPI.@] * * See PathStripPathA. */ void WINAPI PathStripPathW(LPWSTR lpszPath) { LPWSTR lpszFileName; TRACE("(%s)\n", debugstr_w(lpszPath)); lpszFileName = PathFindFileNameW(lpszPath); if(lpszFileName) RtlMoveMemory(lpszPath, lpszFileName, (strlenW(lpszFileName)+1)*sizeof(WCHAR)); } /************************************************************************* * PathStripToRootA [SHLWAPI.@] * * Reduce a path to its root. * * PARAMS * lpszPath [I/O] the path to reduce * * RETURNS * Success: TRUE if the stripped path is a root path * Failure: FALSE if the path cannot be stripped or is NULL */ BOOL WINAPI PathStripToRootA(LPSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (!lpszPath) return FALSE; while(!PathIsRootA(lpszPath)) if (!PathRemoveFileSpecA(lpszPath)) return FALSE; return TRUE; } /************************************************************************* * PathStripToRootW [SHLWAPI.@] * * See PathStripToRootA. */ BOOL WINAPI PathStripToRootW(LPWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (!lpszPath) return FALSE; while(!PathIsRootW(lpszPath)) if (!PathRemoveFileSpecW(lpszPath)) return FALSE; return TRUE; } /************************************************************************* * PathRemoveArgsA [SHLWAPI.@] * * Strip space separated arguments from a path. * * PARAMS * lpszPath [I/O] Path to remove arguments from * * RETURNS * Nothing. */ void WINAPI PathRemoveArgsA(LPSTR lpszPath) { TRACE("(%s)\n",debugstr_a(lpszPath)); if(lpszPath) { LPSTR lpszArgs = PathGetArgsA(lpszPath); if (*lpszArgs) lpszArgs[-1] = '\0'; else { LPSTR lpszLastChar = CharPrevA(lpszPath, lpszArgs); if(*lpszLastChar == ' ') *lpszLastChar = '\0'; } } } /************************************************************************* * PathRemoveArgsW [SHLWAPI.@] * * See PathRemoveArgsA. */ void WINAPI PathRemoveArgsW(LPWSTR lpszPath) { TRACE("(%s)\n",debugstr_w(lpszPath)); if(lpszPath) { LPWSTR lpszArgs = PathGetArgsW(lpszPath); if (*lpszArgs || (lpszArgs > lpszPath && lpszArgs[-1] == ' ')) lpszArgs[-1] = '\0'; } } /************************************************************************* * PathRemoveExtensionA [SHLWAPI.@] * * Remove the file extension from a path * * PARAMS * lpszPath [I/O] Path to remove the extension from * * RETURNS * Nothing. */ void WINAPI PathRemoveExtensionA(LPSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath) { lpszPath = PathFindExtensionA(lpszPath); *lpszPath = '\0'; } } /************************************************************************* * PathRemoveExtensionW [SHLWAPI.@] * * See PathRemoveExtensionA. */ void WINAPI PathRemoveExtensionW(LPWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (lpszPath) { lpszPath = PathFindExtensionW(lpszPath); *lpszPath = '\0'; } } /************************************************************************* * PathRemoveBackslashA [SHLWAPI.@] * * Remove a trailing backslash from a path. * * PARAMS * lpszPath [I/O] Path to remove backslash from * * RETURNS * Success: A pointer to the end of the path * Failure: NULL, if lpszPath is NULL */ LPSTR WINAPI PathRemoveBackslashA( LPSTR lpszPath ) { LPSTR szTemp = NULL; TRACE("(%s)\n", debugstr_a(lpszPath)); if(lpszPath) { szTemp = CharPrevA(lpszPath, lpszPath + strlen(lpszPath)); if (!PathIsRootA(lpszPath) && *szTemp == '\\') *szTemp = '\0'; } return szTemp; } /************************************************************************* * PathRemoveBackslashW [SHLWAPI.@] * * See PathRemoveBackslashA. */ LPWSTR WINAPI PathRemoveBackslashW( LPWSTR lpszPath ) { LPWSTR szTemp = NULL; TRACE("(%s)\n", debugstr_w(lpszPath)); if(lpszPath) { szTemp = lpszPath + strlenW(lpszPath); if (szTemp > lpszPath) szTemp--; if (!PathIsRootW(lpszPath) && *szTemp == '\\') *szTemp = '\0'; } return szTemp; } /************************************************************************* * PathRemoveBlanksA [SHLWAPI.@] * * Remove Spaces from the start and end of a path. * * PARAMS * lpszPath [I/O] Path to strip blanks from * * RETURNS * Nothing. */ VOID WINAPI PathRemoveBlanksA(LPSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if(lpszPath && *lpszPath) { LPSTR start = lpszPath; while (*lpszPath == ' ') lpszPath = CharNextA(lpszPath); while(*lpszPath) *start++ = *lpszPath++; if (start != lpszPath) while (start[-1] == ' ') start--; *start = '\0'; } } /************************************************************************* * PathRemoveBlanksW [SHLWAPI.@] * * See PathRemoveBlanksA. */ VOID WINAPI PathRemoveBlanksW(LPWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if(lpszPath && *lpszPath) { LPWSTR start = lpszPath; while (*lpszPath == ' ') lpszPath++; while(*lpszPath) *start++ = *lpszPath++; if (start != lpszPath) while (start[-1] == ' ') start--; *start = '\0'; } } /************************************************************************* * PathQuoteSpacesA [SHLWAPI.@] * * Surround a path containing spaces in quotes. * * PARAMS * lpszPath [I/O] Path to quote * * RETURNS * Nothing. * * NOTES * The path is not changed if it is invalid or has no spaces. */ VOID WINAPI PathQuoteSpacesA(LPSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if(lpszPath && StrChrA(lpszPath,' ')) { size_t iLen = strlen(lpszPath) + 1; if (iLen + 2 < MAX_PATH) { memmove(lpszPath + 1, lpszPath, iLen); lpszPath[0] = '"'; lpszPath[iLen] = '"'; lpszPath[iLen + 1] = '\0'; } } } /************************************************************************* * PathQuoteSpacesW [SHLWAPI.@] * * See PathQuoteSpacesA. */ VOID WINAPI PathQuoteSpacesW(LPWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if(lpszPath && StrChrW(lpszPath,' ')) { int iLen = strlenW(lpszPath) + 1; if (iLen + 2 < MAX_PATH) { memmove(lpszPath + 1, lpszPath, iLen * sizeof(WCHAR)); lpszPath[0] = '"'; lpszPath[iLen] = '"'; lpszPath[iLen + 1] = '\0'; } } } /************************************************************************* * PathUnquoteSpacesA [SHLWAPI.@] * * Remove quotes ("") from around a path, if present. * * PARAMS * lpszPath [I/O] Path to strip quotes from * * RETURNS * Nothing * * NOTES * If the path contains a single quote only, an empty string will result. * Otherwise quotes are only removed if they appear at the start and end * of the path. */ VOID WINAPI PathUnquoteSpacesA(LPSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath && *lpszPath == '"') { DWORD dwLen = strlen(lpszPath) - 1; if (lpszPath[dwLen] == '"') { lpszPath[dwLen] = '\0'; for (; *lpszPath; lpszPath++) *lpszPath = lpszPath[1]; } } } /************************************************************************* * PathUnquoteSpacesW [SHLWAPI.@] * * See PathUnquoteSpacesA. */ VOID WINAPI PathUnquoteSpacesW(LPWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (lpszPath && *lpszPath == '"') { DWORD dwLen = strlenW(lpszPath) - 1; if (lpszPath[dwLen] == '"') { lpszPath[dwLen] = '\0'; for (; *lpszPath; lpszPath++) *lpszPath = lpszPath[1]; } } } /************************************************************************* * PathParseIconLocationA [SHLWAPI.@] * * Parse the location of an icon from a path. * * PARAMS * lpszPath [I/O] The path to parse the icon location from. * * RETURNS * Success: The number of the icon * Failure: 0 if the path does not contain an icon location or is NULL * * NOTES * The path has surrounding quotes and spaces removed regardless * of whether the call succeeds or not. */ int WINAPI PathParseIconLocationA(LPSTR lpszPath) { int iRet = 0; LPSTR lpszComma; TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath) { if ((lpszComma = strchr(lpszPath, ','))) { *lpszComma++ = '\0'; iRet = StrToIntA(lpszComma); } PathUnquoteSpacesA(lpszPath); PathRemoveBlanksA(lpszPath); } return iRet; } /************************************************************************* * PathParseIconLocationW [SHLWAPI.@] * * See PathParseIconLocationA. */ int WINAPI PathParseIconLocationW(LPWSTR lpszPath) { int iRet = 0; LPWSTR lpszComma; TRACE("(%s)\n", debugstr_w(lpszPath)); if (lpszPath) { if ((lpszComma = StrChrW(lpszPath, ','))) { *lpszComma++ = '\0'; iRet = StrToIntW(lpszComma); } PathUnquoteSpacesW(lpszPath); PathRemoveBlanksW(lpszPath); } return iRet; } /************************************************************************* * @ [SHLWAPI.4] * * Unicode version of PathFileExistsDefExtA. */ BOOL WINAPI PathFileExistsDefExtW(LPWSTR lpszPath,DWORD dwWhich) { static const WCHAR pszExts[7][5] = { { '.', 'p', 'i', 'f', 0}, { '.', 'c', 'o', 'm', 0}, { '.', 'e', 'x', 'e', 0}, { '.', 'b', 'a', 't', 0}, { '.', 'l', 'n', 'k', 0}, { '.', 'c', 'm', 'd', 0}, { 0, 0, 0, 0, 0} }; TRACE("(%s,%d)\n", debugstr_w(lpszPath), dwWhich); if (!lpszPath || PathIsUNCServerW(lpszPath) || PathIsUNCServerShareW(lpszPath)) return FALSE; if (dwWhich) { LPCWSTR szExt = PathFindExtensionW(lpszPath); if (!*szExt || dwWhich & 0x40) { size_t iChoose = 0; int iLen = lstrlenW(lpszPath); if (iLen > (MAX_PATH - 5)) return FALSE; while ( (dwWhich & 0x1) && pszExts[iChoose][0] ) { lstrcpyW(lpszPath + iLen, pszExts[iChoose]); if (PathFileExistsW(lpszPath)) return TRUE; iChoose++; dwWhich >>= 1; } *(lpszPath + iLen) = (WCHAR)'\0'; return FALSE; } } return PathFileExistsW(lpszPath); } /************************************************************************* * @ [SHLWAPI.3] * * Determine if a file exists locally and is of an executable type. * * PARAMS * lpszPath [I/O] File to search for * dwWhich [I] Type of executable to search for * * RETURNS * TRUE If the file was found. lpszPath contains the file name. * FALSE Otherwise. * * NOTES * lpszPath is modified in place and must be at least MAX_PATH in length. * If the function returns FALSE, the path is modified to its original state. * If the given path contains an extension or dwWhich is 0, executable * extensions are not checked. * * Ordinals 3-6 are a classic case of MS exposing limited functionality to * users (here through PathFindOnPathA()) and keeping advanced functionality for * their own developers exclusive use. Monopoly, anyone? */ BOOL WINAPI PathFileExistsDefExtA(LPSTR lpszPath,DWORD dwWhich) { BOOL bRet = FALSE; TRACE("(%s,%d)\n", debugstr_a(lpszPath), dwWhich); if (lpszPath) { WCHAR szPath[MAX_PATH]; MultiByteToWideChar(CP_ACP,0,lpszPath,-1,szPath,MAX_PATH); bRet = PathFileExistsDefExtW(szPath, dwWhich); if (bRet) WideCharToMultiByte(CP_ACP,0,szPath,-1,lpszPath,MAX_PATH,0,0); } return bRet; } /************************************************************************* * SHLWAPI_PathFindInOtherDirs * * Internal helper for SHLWAPI_PathFindOnPathExA/W. */ static BOOL SHLWAPI_PathFindInOtherDirs(LPWSTR lpszFile, DWORD dwWhich) { static const WCHAR szSystem[] = { 'S','y','s','t','e','m','\0'}; static const WCHAR szPath[] = { 'P','A','T','H','\0'}; DWORD dwLenPATH; LPCWSTR lpszCurr; WCHAR *lpszPATH; WCHAR buff[MAX_PATH]; TRACE("(%s,%08x)\n", debugstr_w(lpszFile), dwWhich); /* Try system directories */ GetSystemDirectoryW(buff, MAX_PATH); if (!PathAppendW(buff, lpszFile)) return FALSE; if (PathFileExistsDefExtW(buff, dwWhich)) { strcpyW(lpszFile, buff); return TRUE; } GetWindowsDirectoryW(buff, MAX_PATH); if (!PathAppendW(buff, szSystem ) || !PathAppendW(buff, lpszFile)) return FALSE; if (PathFileExistsDefExtW(buff, dwWhich)) { strcpyW(lpszFile, buff); return TRUE; } GetWindowsDirectoryW(buff, MAX_PATH); if (!PathAppendW(buff, lpszFile)) return FALSE; if (PathFileExistsDefExtW(buff, dwWhich)) { strcpyW(lpszFile, buff); return TRUE; } /* Try dirs listed in %PATH% */ dwLenPATH = GetEnvironmentVariableW(szPath, buff, MAX_PATH); if (!dwLenPATH || !(lpszPATH = HeapAlloc(GetProcessHeap(), 0, (dwLenPATH + 1) * sizeof (WCHAR)))) return FALSE; GetEnvironmentVariableW(szPath, lpszPATH, dwLenPATH + 1); lpszCurr = lpszPATH; while (lpszCurr) { LPCWSTR lpszEnd = lpszCurr; LPWSTR pBuff = buff; while (*lpszEnd == ' ') lpszEnd++; while (*lpszEnd && *lpszEnd != ';') *pBuff++ = *lpszEnd++; *pBuff = '\0'; if (*lpszEnd) lpszCurr = lpszEnd + 1; else lpszCurr = NULL; /* Last Path, terminate after this */ if (!PathAppendW(buff, lpszFile)) { HeapFree(GetProcessHeap(), 0, lpszPATH); return FALSE; } if (PathFileExistsDefExtW(buff, dwWhich)) { strcpyW(lpszFile, buff); HeapFree(GetProcessHeap(), 0, lpszPATH); return TRUE; } } HeapFree(GetProcessHeap(), 0, lpszPATH); return FALSE; } /************************************************************************* * @ [SHLWAPI.5] * * Search a range of paths for a specific type of executable. * * PARAMS * lpszFile [I/O] File to search for * lppszOtherDirs [I] Other directories to look in * dwWhich [I] Type of executable to search for * * RETURNS * Success: TRUE. The path to the executable is stored in lpszFile. * Failure: FALSE. The path to the executable is unchanged. */ BOOL WINAPI PathFindOnPathExA(LPSTR lpszFile,LPCSTR *lppszOtherDirs,DWORD dwWhich) { WCHAR szFile[MAX_PATH]; WCHAR buff[MAX_PATH]; TRACE("(%s,%p,%08x)\n", debugstr_a(lpszFile), lppszOtherDirs, dwWhich); if (!lpszFile || !PathIsFileSpecA(lpszFile)) return FALSE; MultiByteToWideChar(CP_ACP,0,lpszFile,-1,szFile,MAX_PATH); /* Search provided directories first */ if (lppszOtherDirs && *lppszOtherDirs) { WCHAR szOther[MAX_PATH]; LPCSTR *lpszOtherPath = lppszOtherDirs; while (lpszOtherPath && *lpszOtherPath && (*lpszOtherPath)[0]) { MultiByteToWideChar(CP_ACP,0,*lpszOtherPath,-1,szOther,MAX_PATH); PathCombineW(buff, szOther, szFile); if (PathFileExistsDefExtW(buff, dwWhich)) { WideCharToMultiByte(CP_ACP,0,buff,-1,lpszFile,MAX_PATH,0,0); return TRUE; } lpszOtherPath++; } } /* Not found, try system and path dirs */ if (SHLWAPI_PathFindInOtherDirs(szFile, dwWhich)) { WideCharToMultiByte(CP_ACP,0,szFile,-1,lpszFile,MAX_PATH,0,0); return TRUE; } return FALSE; } /************************************************************************* * @ [SHLWAPI.6] * * Unicode version of PathFindOnPathExA. */ BOOL WINAPI PathFindOnPathExW(LPWSTR lpszFile,LPCWSTR *lppszOtherDirs,DWORD dwWhich) { WCHAR buff[MAX_PATH]; TRACE("(%s,%p,%08x)\n", debugstr_w(lpszFile), lppszOtherDirs, dwWhich); if (!lpszFile || !PathIsFileSpecW(lpszFile)) return FALSE; /* Search provided directories first */ if (lppszOtherDirs && *lppszOtherDirs) { LPCWSTR *lpszOtherPath = lppszOtherDirs; while (lpszOtherPath && *lpszOtherPath && (*lpszOtherPath)[0]) { PathCombineW(buff, *lpszOtherPath, lpszFile); if (PathFileExistsDefExtW(buff, dwWhich)) { strcpyW(lpszFile, buff); return TRUE; } lpszOtherPath++; } } /* Not found, try system and path dirs */ return SHLWAPI_PathFindInOtherDirs(lpszFile, dwWhich); } /************************************************************************* * PathFindOnPathA [SHLWAPI.@] * * Search a range of paths for an executable. * * PARAMS * lpszFile [I/O] File to search for * lppszOtherDirs [I] Other directories to look in * * RETURNS * Success: TRUE. The path to the executable is stored in lpszFile. * Failure: FALSE. The path to the executable is unchanged. */ BOOL WINAPI PathFindOnPathA(LPSTR lpszFile, LPCSTR *lppszOtherDirs) { TRACE("(%s,%p)\n", debugstr_a(lpszFile), lppszOtherDirs); return PathFindOnPathExA(lpszFile, lppszOtherDirs, 0); } /************************************************************************* * PathFindOnPathW [SHLWAPI.@] * * See PathFindOnPathA. */ BOOL WINAPI PathFindOnPathW(LPWSTR lpszFile, LPCWSTR *lppszOtherDirs) { TRACE("(%s,%p)\n", debugstr_w(lpszFile), lppszOtherDirs); return PathFindOnPathExW(lpszFile,lppszOtherDirs, 0); } /************************************************************************* * PathCompactPathExA [SHLWAPI.@] * * Compact a path into a given number of characters. * * PARAMS * lpszDest [O] Destination for compacted path * lpszPath [I] Source path * cchMax [I] Maximum size of compacted path * dwFlags [I] Reserved * * RETURNS * Success: TRUE. The compacted path is written to lpszDest. * Failure: FALSE. lpszPath is undefined. * * NOTES * If cchMax is given as 0, lpszDest will still be NUL terminated. * * The Win32 version of this function contains a bug: When cchMax == 7, * 8 bytes will be written to lpszDest. This bug is fixed in the Wine * implementation. * * Some relative paths will be different when cchMax == 5 or 6. This occurs * because Win32 will insert a "\" in lpszDest, even if one is * not present in the original path. */ BOOL WINAPI PathCompactPathExA(LPSTR lpszDest, LPCSTR lpszPath, UINT cchMax, DWORD dwFlags) { BOOL bRet = FALSE; TRACE("(%p,%s,%d,0x%08x)\n", lpszDest, debugstr_a(lpszPath), cchMax, dwFlags); if (lpszPath && lpszDest) { WCHAR szPath[MAX_PATH]; WCHAR szDest[MAX_PATH]; MultiByteToWideChar(CP_ACP,0,lpszPath,-1,szPath,MAX_PATH); szDest[0] = '\0'; bRet = PathCompactPathExW(szDest, szPath, cchMax, dwFlags); WideCharToMultiByte(CP_ACP,0,szDest,-1,lpszDest,MAX_PATH,0,0); } return bRet; } /************************************************************************* * PathCompactPathExW [SHLWAPI.@] * * See PathCompactPathExA. */ BOOL WINAPI PathCompactPathExW(LPWSTR lpszDest, LPCWSTR lpszPath, UINT cchMax, DWORD dwFlags) { static const WCHAR szEllipses[] = { '.', '.', '.', '\0' }; LPCWSTR lpszFile; DWORD dwLen, dwFileLen = 0; TRACE("(%p,%s,%d,0x%08x)\n", lpszDest, debugstr_w(lpszPath), cchMax, dwFlags); if (!lpszPath) return FALSE; if (!lpszDest) { WARN("Invalid lpszDest would crash under Win32!\n"); return FALSE; } *lpszDest = '\0'; if (cchMax < 2) return TRUE; dwLen = strlenW(lpszPath) + 1; if (dwLen < cchMax) { /* Don't need to compact */ memcpy(lpszDest, lpszPath, dwLen * sizeof(WCHAR)); return TRUE; } /* Path must be compacted to fit into lpszDest */ lpszFile = PathFindFileNameW(lpszPath); dwFileLen = lpszPath + dwLen - lpszFile; if (dwFileLen == dwLen) { /* No root in psth */ if (cchMax <= 4) { while (--cchMax > 0) /* No room left for anything but ellipses */ *lpszDest++ = '.'; *lpszDest = '\0'; return TRUE; } /* Compact the file name with ellipses at the end */ cchMax -= 4; memcpy(lpszDest, lpszFile, cchMax * sizeof(WCHAR)); strcpyW(lpszDest + cchMax, szEllipses); return TRUE; } /* We have a root in the path */ lpszFile--; /* Start compacted filename with the path separator */ dwFileLen++; if (dwFileLen + 3 > cchMax) { /* Compact the file name */ if (cchMax <= 4) { while (--cchMax > 0) /* No room left for anything but ellipses */ *lpszDest++ = '.'; *lpszDest = '\0'; return TRUE; } strcpyW(lpszDest, szEllipses); lpszDest += 3; cchMax -= 4; *lpszDest++ = *lpszFile++; if (cchMax <= 4) { while (--cchMax > 0) /* No room left for anything but ellipses */ *lpszDest++ = '.'; *lpszDest = '\0'; return TRUE; } cchMax -= 4; memcpy(lpszDest, lpszFile, cchMax * sizeof(WCHAR)); strcpyW(lpszDest + cchMax, szEllipses); return TRUE; } /* Only the root needs to be Compacted */ dwLen = cchMax - dwFileLen - 3; memcpy(lpszDest, lpszPath, dwLen * sizeof(WCHAR)); strcpyW(lpszDest + dwLen, szEllipses); strcpyW(lpszDest + dwLen + 3, lpszFile); return TRUE; } /************************************************************************* * PathIsRelativeA [SHLWAPI.@] * * Determine if a path is a relative path. * * PARAMS * lpszPath [I] Path to check * * RETURNS * TRUE: The path is relative, or is invalid. * FALSE: The path is not relative. */ BOOL WINAPI PathIsRelativeA (LPCSTR lpszPath) { TRACE("(%s)\n",debugstr_a(lpszPath)); if (!lpszPath || !*lpszPath || IsDBCSLeadByte(*lpszPath)) return TRUE; if (*lpszPath == '\\' || (*lpszPath && lpszPath[1] == ':')) return FALSE; return TRUE; } /************************************************************************* * PathIsRelativeW [SHLWAPI.@] * * See PathIsRelativeA. */ BOOL WINAPI PathIsRelativeW (LPCWSTR lpszPath) { TRACE("(%s)\n",debugstr_w(lpszPath)); if (!lpszPath || !*lpszPath) return TRUE; if (*lpszPath == '\\' || (*lpszPath && lpszPath[1] == ':')) return FALSE; return TRUE; } /************************************************************************* * PathIsRootA [SHLWAPI.@] * * Determine if a path is a root path. * * PARAMS * lpszPath [I] Path to check * * RETURNS * TRUE If lpszPath is valid and a root path, * FALSE Otherwise */ BOOL WINAPI PathIsRootA(LPCSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath && *lpszPath) { if (*lpszPath == '\\') { if (!lpszPath[1]) return TRUE; /* \ */ else if (lpszPath[1]=='\\') { BOOL bSeenSlash = FALSE; lpszPath += 2; /* Check for UNC root path */ while (*lpszPath) { if (*lpszPath == '\\') { if (bSeenSlash) return FALSE; bSeenSlash = TRUE; } lpszPath = CharNextA(lpszPath); } return TRUE; } } else if (lpszPath[1] == ':' && lpszPath[2] == '\\' && lpszPath[3] == '\0') return TRUE; /* X:\ */ } return FALSE; } /************************************************************************* * PathIsRootW [SHLWAPI.@] * * See PathIsRootA. */ BOOL WINAPI PathIsRootW(LPCWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (lpszPath && *lpszPath) { if (*lpszPath == '\\') { if (!lpszPath[1]) return TRUE; /* \ */ else if (lpszPath[1]=='\\') { BOOL bSeenSlash = FALSE; lpszPath += 2; /* Check for UNC root path */ while (*lpszPath) { if (*lpszPath == '\\') { if (bSeenSlash) return FALSE; bSeenSlash = TRUE; } lpszPath++; } return TRUE; } } else if (lpszPath[1] == ':' && lpszPath[2] == '\\' && lpszPath[3] == '\0') return TRUE; /* X:\ */ } return FALSE; } /************************************************************************* * PathIsDirectoryA [SHLWAPI.@] * * Determine if a path is a valid directory * * PARAMS * lpszPath [I] Path to check. * * RETURNS * FILE_ATTRIBUTE_DIRECTORY if lpszPath exists and can be read (See Notes) * FALSE if lpszPath is invalid or not a directory. * * NOTES * Although this function is prototyped as returning a BOOL, it returns * FILE_ATTRIBUTE_DIRECTORY for success. This means that code such as: * *| if (PathIsDirectoryA("c:\\windows\\") == TRUE) *| ... * * will always fail. */ BOOL WINAPI PathIsDirectoryA(LPCSTR lpszPath) { DWORD dwAttr; TRACE("(%s)\n", debugstr_a(lpszPath)); if (!lpszPath || PathIsUNCServerA(lpszPath)) return FALSE; if (PathIsUNCServerShareA(lpszPath)) { FIXME("UNC Server Share not yet supported - FAILING\n"); return FALSE; } if ((dwAttr = GetFileAttributesA(lpszPath)) == INVALID_FILE_ATTRIBUTES) return FALSE; return dwAttr & FILE_ATTRIBUTE_DIRECTORY; } /************************************************************************* * PathIsDirectoryW [SHLWAPI.@] * * See PathIsDirectoryA. */ BOOL WINAPI PathIsDirectoryW(LPCWSTR lpszPath) { DWORD dwAttr; TRACE("(%s)\n", debugstr_w(lpszPath)); if (!lpszPath || PathIsUNCServerW(lpszPath)) return FALSE; if (PathIsUNCServerShareW(lpszPath)) { FIXME("UNC Server Share not yet supported - FAILING\n"); return FALSE; } if ((dwAttr = GetFileAttributesW(lpszPath)) == INVALID_FILE_ATTRIBUTES) return FALSE; return dwAttr & FILE_ATTRIBUTE_DIRECTORY; } /************************************************************************* * PathFileExistsA [SHLWAPI.@] * * Determine if a file exists. * * PARAMS * lpszPath [I] Path to check * * RETURNS * TRUE If the file exists and is readable * FALSE Otherwise */ BOOL WINAPI PathFileExistsA(LPCSTR lpszPath) { UINT iPrevErrMode; DWORD dwAttr; TRACE("(%s)\n",debugstr_a(lpszPath)); if (!lpszPath) return FALSE; /* Prevent a dialog box if path is on a disk that has been ejected. */ iPrevErrMode = SetErrorMode(SEM_FAILCRITICALERRORS); dwAttr = GetFileAttributesA(lpszPath); SetErrorMode(iPrevErrMode); return dwAttr == INVALID_FILE_ATTRIBUTES ? FALSE : TRUE; } /************************************************************************* * PathFileExistsW [SHLWAPI.@] * * See PathFileExistsA. */ BOOL WINAPI PathFileExistsW(LPCWSTR lpszPath) { UINT iPrevErrMode; DWORD dwAttr; TRACE("(%s)\n",debugstr_w(lpszPath)); if (!lpszPath) return FALSE; iPrevErrMode = SetErrorMode(SEM_FAILCRITICALERRORS); dwAttr = GetFileAttributesW(lpszPath); SetErrorMode(iPrevErrMode); return dwAttr == INVALID_FILE_ATTRIBUTES ? FALSE : TRUE; } /************************************************************************* * PathFileExistsAndAttributesA [SHLWAPI.445] * * Determine if a file exists. * * PARAMS * lpszPath [I] Path to check * dwAttr [O] attributes of file * * RETURNS * TRUE If the file exists and is readable * FALSE Otherwise */ BOOL WINAPI PathFileExistsAndAttributesA(LPCSTR lpszPath, DWORD *dwAttr) { UINT iPrevErrMode; DWORD dwVal = 0; TRACE("(%s %p)\n", debugstr_a(lpszPath), dwAttr); if (dwAttr) *dwAttr = INVALID_FILE_ATTRIBUTES; if (!lpszPath) return FALSE; iPrevErrMode = SetErrorMode(SEM_FAILCRITICALERRORS); dwVal = GetFileAttributesA(lpszPath); SetErrorMode(iPrevErrMode); if (dwAttr) *dwAttr = dwVal; return (dwVal != INVALID_FILE_ATTRIBUTES); } /************************************************************************* * PathFileExistsAndAttributesW [SHLWAPI.446] * * See PathFileExistsA. */ BOOL WINAPI PathFileExistsAndAttributesW(LPCWSTR lpszPath, DWORD *dwAttr) { UINT iPrevErrMode; DWORD dwVal; TRACE("(%s %p)\n", debugstr_w(lpszPath), dwAttr); if (!lpszPath) return FALSE; iPrevErrMode = SetErrorMode(SEM_FAILCRITICALERRORS); dwVal = GetFileAttributesW(lpszPath); SetErrorMode(iPrevErrMode); if (dwAttr) *dwAttr = dwVal; return (dwVal != INVALID_FILE_ATTRIBUTES); } /************************************************************************* * PathMatchSingleMaskA [internal] */ static BOOL PathMatchSingleMaskA(LPCSTR name, LPCSTR mask) { while (*name && *mask && *mask!=';') { if (*mask == '*') { do { if (PathMatchSingleMaskA(name,mask+1)) return TRUE; /* try substrings */ } while (*name++); return FALSE; } if (toupper(*mask) != toupper(*name) && *mask != '?') return FALSE; name = CharNextA(name); mask = CharNextA(mask); } if (!*name) { while (*mask == '*') mask++; if (!*mask || *mask == ';') return TRUE; } return FALSE; } /************************************************************************* * PathMatchSingleMaskW [internal] */ static BOOL PathMatchSingleMaskW(LPCWSTR name, LPCWSTR mask) { while (*name && *mask && *mask != ';') { if (*mask == '*') { do { if (PathMatchSingleMaskW(name,mask+1)) return TRUE; /* try substrings */ } while (*name++); return FALSE; } if (toupperW(*mask) != toupperW(*name) && *mask != '?') return FALSE; name++; mask++; } if (!*name) { while (*mask == '*') mask++; if (!*mask || *mask == ';') return TRUE; } return FALSE; } /************************************************************************* * PathMatchSpecA [SHLWAPI.@] * * Determine if a path matches one or more search masks. * * PARAMS * lpszPath [I] Path to check * lpszMask [I] Search mask(s) * * RETURNS * TRUE If lpszPath is valid and is matched * FALSE Otherwise * * NOTES * Multiple search masks may be given if they are separated by ";". The * pattern "*.*" is treated specially in that it matches all paths (for * backwards compatibility with DOS). */ BOOL WINAPI PathMatchSpecA(LPCSTR lpszPath, LPCSTR lpszMask) { TRACE("(%s,%s)\n", lpszPath, lpszMask); if (!lstrcmpA(lpszMask, "*.*")) return TRUE; /* Matches every path */ while (*lpszMask) { while (*lpszMask == ' ') lpszMask++; /* Eat leading spaces */ if (PathMatchSingleMaskA(lpszPath, lpszMask)) return TRUE; /* Matches the current mask */ while (*lpszMask && *lpszMask != ';') lpszMask = CharNextA(lpszMask); /* masks separated by ';' */ if (*lpszMask == ';') lpszMask++; } return FALSE; } /************************************************************************* * PathMatchSpecW [SHLWAPI.@] * * See PathMatchSpecA. */ BOOL WINAPI PathMatchSpecW(LPCWSTR lpszPath, LPCWSTR lpszMask) { static const WCHAR szStarDotStar[] = { '*', '.', '*', '\0' }; TRACE("(%s,%s)\n", debugstr_w(lpszPath), debugstr_w(lpszMask)); if (!lstrcmpW(lpszMask, szStarDotStar)) return TRUE; /* Matches every path */ while (*lpszMask) { while (*lpszMask == ' ') lpszMask++; /* Eat leading spaces */ if (PathMatchSingleMaskW(lpszPath, lpszMask)) return TRUE; /* Matches the current path */ while (*lpszMask && *lpszMask != ';') lpszMask++; /* masks separated by ';' */ if (*lpszMask == ';') lpszMask++; } return FALSE; } /************************************************************************* * PathIsSameRootA [SHLWAPI.@] * * Determine if two paths share the same root. * * PARAMS * lpszPath1 [I] Source path * lpszPath2 [I] Path to compare with * * RETURNS * TRUE If both paths are valid and share the same root. * FALSE If either path is invalid or the paths do not share the same root. */ BOOL WINAPI PathIsSameRootA(LPCSTR lpszPath1, LPCSTR lpszPath2) { LPCSTR lpszStart; int dwLen; TRACE("(%s,%s)\n", debugstr_a(lpszPath1), debugstr_a(lpszPath2)); if (!lpszPath1 || !lpszPath2 || !(lpszStart = PathSkipRootA(lpszPath1))) return FALSE; dwLen = PathCommonPrefixA(lpszPath1, lpszPath2, NULL) + 1; if (lpszStart - lpszPath1 > dwLen) return FALSE; /* Paths not common up to length of the root */ return TRUE; } /************************************************************************* * PathIsSameRootW [SHLWAPI.@] * * See PathIsSameRootA. */ BOOL WINAPI PathIsSameRootW(LPCWSTR lpszPath1, LPCWSTR lpszPath2) { LPCWSTR lpszStart; int dwLen; TRACE("(%s,%s)\n", debugstr_w(lpszPath1), debugstr_w(lpszPath2)); if (!lpszPath1 || !lpszPath2 || !(lpszStart = PathSkipRootW(lpszPath1))) return FALSE; dwLen = PathCommonPrefixW(lpszPath1, lpszPath2, NULL) + 1; if (lpszStart - lpszPath1 > dwLen) return FALSE; /* Paths not common up to length of the root */ return TRUE; } /************************************************************************* * PathIsContentTypeA [SHLWAPI.@] * * Determine if a file is of a given registered content type. * * PARAMS * lpszPath [I] File to check * lpszContentType [I] Content type to check for * * RETURNS * TRUE If lpszPath is a given registered content type, * FALSE Otherwise. * * NOTES * This function looks up the registered content type for lpszPath. If * a content type is registered, it is compared (case insensitively) to * lpszContentType. Only if this matches does the function succeed. */ BOOL WINAPI PathIsContentTypeA(LPCSTR lpszPath, LPCSTR lpszContentType) { LPCSTR szExt; DWORD dwDummy; char szBuff[MAX_PATH]; TRACE("(%s,%s)\n", debugstr_a(lpszPath), debugstr_a(lpszContentType)); if (lpszPath && (szExt = PathFindExtensionA(lpszPath)) && *szExt && !SHGetValueA(HKEY_CLASSES_ROOT, szExt, "Content Type", REG_NONE, szBuff, &dwDummy) && !strcasecmp(lpszContentType, szBuff)) { return TRUE; } return FALSE; } /************************************************************************* * PathIsContentTypeW [SHLWAPI.@] * * See PathIsContentTypeA. */ BOOL WINAPI PathIsContentTypeW(LPCWSTR lpszPath, LPCWSTR lpszContentType) { static const WCHAR szContentType[] = { 'C','o','n','t','e','n','t',' ','T','y','p','e','\0' }; LPCWSTR szExt; DWORD dwDummy; WCHAR szBuff[MAX_PATH]; TRACE("(%s,%s)\n", debugstr_w(lpszPath), debugstr_w(lpszContentType)); if (lpszPath && (szExt = PathFindExtensionW(lpszPath)) && *szExt && !SHGetValueW(HKEY_CLASSES_ROOT, szExt, szContentType, REG_NONE, szBuff, &dwDummy) && !strcmpiW(lpszContentType, szBuff)) { return TRUE; } return FALSE; } /************************************************************************* * PathIsFileSpecA [SHLWAPI.@] * * Determine if a path is a file specification. * * PARAMS * lpszPath [I] Path to check * * RETURNS * TRUE If lpszPath is a file specification (i.e. Contains no directories). * FALSE Otherwise. */ BOOL WINAPI PathIsFileSpecA(LPCSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (!lpszPath) return FALSE; while (*lpszPath) { if (*lpszPath == '\\' || *lpszPath == ':') return FALSE; lpszPath = CharNextA(lpszPath); } return TRUE; } /************************************************************************* * PathIsFileSpecW [SHLWAPI.@] * * See PathIsFileSpecA. */ BOOL WINAPI PathIsFileSpecW(LPCWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (!lpszPath) return FALSE; while (*lpszPath) { if (*lpszPath == '\\' || *lpszPath == ':') return FALSE; lpszPath++; } return TRUE; } /************************************************************************* * PathIsPrefixA [SHLWAPI.@] * * Determine if a path is a prefix of another. * * PARAMS * lpszPrefix [I] Prefix * lpszPath [I] Path to check * * RETURNS * TRUE If lpszPath has lpszPrefix as its prefix, * FALSE If either path is NULL or lpszPrefix is not a prefix */ BOOL WINAPI PathIsPrefixA (LPCSTR lpszPrefix, LPCSTR lpszPath) { TRACE("(%s,%s)\n", debugstr_a(lpszPrefix), debugstr_a(lpszPath)); if (lpszPrefix && lpszPath && PathCommonPrefixA(lpszPath, lpszPrefix, NULL) == (int)strlen(lpszPrefix)) return TRUE; return FALSE; } /************************************************************************* * PathIsPrefixW [SHLWAPI.@] * * See PathIsPrefixA. */ BOOL WINAPI PathIsPrefixW(LPCWSTR lpszPrefix, LPCWSTR lpszPath) { TRACE("(%s,%s)\n", debugstr_w(lpszPrefix), debugstr_w(lpszPath)); if (lpszPrefix && lpszPath && PathCommonPrefixW(lpszPath, lpszPrefix, NULL) == (int)strlenW(lpszPrefix)) return TRUE; return FALSE; } /************************************************************************* * PathIsSystemFolderA [SHLWAPI.@] * * Determine if a path or file attributes are a system folder. * * PARAMS * lpszPath [I] Path to check. * dwAttrib [I] Attributes to check, if lpszPath is NULL. * * RETURNS * TRUE If lpszPath or dwAttrib are a system folder. * FALSE If GetFileAttributesA() fails or neither parameter is a system folder. */ BOOL WINAPI PathIsSystemFolderA(LPCSTR lpszPath, DWORD dwAttrib) { TRACE("(%s,0x%08x)\n", debugstr_a(lpszPath), dwAttrib); if (lpszPath && *lpszPath) dwAttrib = GetFileAttributesA(lpszPath); if (dwAttrib == INVALID_FILE_ATTRIBUTES || !(dwAttrib & FILE_ATTRIBUTE_DIRECTORY) || !(dwAttrib & (FILE_ATTRIBUTE_SYSTEM | FILE_ATTRIBUTE_READONLY))) return FALSE; return TRUE; } /************************************************************************* * PathIsSystemFolderW [SHLWAPI.@] * * See PathIsSystemFolderA. */ BOOL WINAPI PathIsSystemFolderW(LPCWSTR lpszPath, DWORD dwAttrib) { TRACE("(%s,0x%08x)\n", debugstr_w(lpszPath), dwAttrib); if (lpszPath && *lpszPath) dwAttrib = GetFileAttributesW(lpszPath); if (dwAttrib == INVALID_FILE_ATTRIBUTES || !(dwAttrib & FILE_ATTRIBUTE_DIRECTORY) || !(dwAttrib & (FILE_ATTRIBUTE_SYSTEM | FILE_ATTRIBUTE_READONLY))) return FALSE; return TRUE; } /************************************************************************* * PathIsUNCA [SHLWAPI.@] * * Determine if a path is in UNC format. * * PARAMS * lpszPath [I] Path to check * * RETURNS * TRUE: The path is UNC. * FALSE: The path is not UNC or is NULL. */ BOOL WINAPI PathIsUNCA(LPCSTR lpszPath) { TRACE("(%s)\n",debugstr_a(lpszPath)); if (lpszPath && (lpszPath[0]=='\\') && (lpszPath[1]=='\\')) return TRUE; return FALSE; } /************************************************************************* * PathIsUNCW [SHLWAPI.@] * * See PathIsUNCA. */ BOOL WINAPI PathIsUNCW(LPCWSTR lpszPath) { TRACE("(%s)\n",debugstr_w(lpszPath)); if (lpszPath && (lpszPath[0]=='\\') && (lpszPath[1]=='\\')) return TRUE; return FALSE; } /************************************************************************* * PathIsUNCServerA [SHLWAPI.@] * * Determine if a path is a UNC server name ("\\SHARENAME"). * * PARAMS * lpszPath [I] Path to check. * * RETURNS * TRUE If lpszPath is a valid UNC server name. * FALSE Otherwise. * * NOTES * This routine is bug compatible with Win32: Server names with a * trailing backslash (e.g. "\\FOO\"), return FALSE incorrectly. * Fixing this bug may break other shlwapi functions! */ BOOL WINAPI PathIsUNCServerA(LPCSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath && *lpszPath++ == '\\' && *lpszPath++ == '\\') { while (*lpszPath) { if (*lpszPath == '\\') return FALSE; lpszPath = CharNextA(lpszPath); } return TRUE; } return FALSE; } /************************************************************************* * PathIsUNCServerW [SHLWAPI.@] * * See PathIsUNCServerA. */ BOOL WINAPI PathIsUNCServerW(LPCWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (lpszPath && lpszPath[0] == '\\' && lpszPath[1] == '\\') { return !strchrW( lpszPath + 2, '\\' ); } return FALSE; } /************************************************************************* * PathIsUNCServerShareA [SHLWAPI.@] * * Determine if a path is a UNC server share ("\\SHARENAME\SHARE"). * * PARAMS * lpszPath [I] Path to check. * * RETURNS * TRUE If lpszPath is a valid UNC server share. * FALSE Otherwise. * * NOTES * This routine is bug compatible with Win32: Server shares with a * trailing backslash (e.g. "\\FOO\BAR\"), return FALSE incorrectly. * Fixing this bug may break other shlwapi functions! */ BOOL WINAPI PathIsUNCServerShareA(LPCSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath && *lpszPath++ == '\\' && *lpszPath++ == '\\') { BOOL bSeenSlash = FALSE; while (*lpszPath) { if (*lpszPath == '\\') { if (bSeenSlash) return FALSE; bSeenSlash = TRUE; } lpszPath = CharNextA(lpszPath); } return bSeenSlash; } return FALSE; } /************************************************************************* * PathIsUNCServerShareW [SHLWAPI.@] * * See PathIsUNCServerShareA. */ BOOL WINAPI PathIsUNCServerShareW(LPCWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (lpszPath && *lpszPath++ == '\\' && *lpszPath++ == '\\') { BOOL bSeenSlash = FALSE; while (*lpszPath) { if (*lpszPath == '\\') { if (bSeenSlash) return FALSE; bSeenSlash = TRUE; } lpszPath++; } return bSeenSlash; } return FALSE; } /************************************************************************* * PathCanonicalizeA [SHLWAPI.@] * * Convert a path to its canonical form. * * PARAMS * lpszBuf [O] Output path * lpszPath [I] Path to canonicalize * * RETURNS * Success: TRUE. lpszBuf contains the output path, * Failure: FALSE, If input path is invalid. lpszBuf is undefined */ BOOL WINAPI PathCanonicalizeA(LPSTR lpszBuf, LPCSTR lpszPath) { BOOL bRet = FALSE; TRACE("(%p,%s)\n", lpszBuf, debugstr_a(lpszPath)); if (lpszBuf) *lpszBuf = '\0'; if (!lpszBuf || !lpszPath) SetLastError(ERROR_INVALID_PARAMETER); else { WCHAR szPath[MAX_PATH]; WCHAR szBuff[MAX_PATH]; int ret = MultiByteToWideChar(CP_ACP,0,lpszPath,-1,szPath,MAX_PATH); if (!ret) { WARN("Failed to convert string to widechar (too long?), LE %d.\n", GetLastError()); return FALSE; } bRet = PathCanonicalizeW(szBuff, szPath); WideCharToMultiByte(CP_ACP,0,szBuff,-1,lpszBuf,MAX_PATH,0,0); } return bRet; } /************************************************************************* * PathCanonicalizeW [SHLWAPI.@] * * See PathCanonicalizeA. */ BOOL WINAPI PathCanonicalizeW(LPWSTR lpszBuf, LPCWSTR lpszPath) { LPWSTR lpszDst = lpszBuf; LPCWSTR lpszSrc = lpszPath; TRACE("(%p,%s)\n", lpszBuf, debugstr_w(lpszPath)); if (lpszBuf) *lpszDst = '\0'; if (!lpszBuf || !lpszPath) { SetLastError(ERROR_INVALID_PARAMETER); return FALSE; } if (!*lpszPath) { *lpszBuf++ = '\\'; *lpszBuf = '\0'; return TRUE; } /* Copy path root */ if (*lpszSrc == '\\') { *lpszDst++ = *lpszSrc++; } else if (*lpszSrc && lpszSrc[1] == ':') { /* X:\ */ *lpszDst++ = *lpszSrc++; *lpszDst++ = *lpszSrc++; if (*lpszSrc == '\\') *lpszDst++ = *lpszSrc++; } /* Canonicalize the rest of the path */ while (*lpszSrc) { if (*lpszSrc == '.') { if (lpszSrc[1] == '\\' && (lpszSrc == lpszPath || lpszSrc[-1] == '\\' || lpszSrc[-1] == ':')) { lpszSrc += 2; /* Skip .\ */ } else if (lpszSrc[1] == '.' && (lpszDst == lpszBuf || lpszDst[-1] == '\\')) { /* \.. backs up a directory, over the root if it has no \ following X:. * .. is ignored if it would remove a UNC server name or initial \\ */ if (lpszDst != lpszBuf) { *lpszDst = '\0'; /* Allow PathIsUNCServerShareA test on lpszBuf */ if (lpszDst > lpszBuf+1 && lpszDst[-1] == '\\' && (lpszDst[-2] != '\\' || lpszDst > lpszBuf+2)) { if (lpszDst[-2] == ':' && (lpszDst > lpszBuf+3 || lpszDst[-3] == ':')) { lpszDst -= 2; while (lpszDst > lpszBuf && *lpszDst != '\\') lpszDst--; if (*lpszDst == '\\') lpszDst++; /* Reset to last '\' */ else lpszDst = lpszBuf; /* Start path again from new root */ } else if (lpszDst[-2] != ':' && !PathIsUNCServerShareW(lpszBuf)) lpszDst -= 2; } while (lpszDst > lpszBuf && *lpszDst != '\\') lpszDst--; if (lpszDst == lpszBuf) { *lpszDst++ = '\\'; lpszSrc++; } } lpszSrc += 2; /* Skip .. in src path */ } else *lpszDst++ = *lpszSrc++; } else *lpszDst++ = *lpszSrc++; } /* Append \ to naked drive specs */ if (lpszDst - lpszBuf == 2 && lpszDst[-1] == ':') *lpszDst++ = '\\'; *lpszDst++ = '\0'; return TRUE; } /************************************************************************* * PathFindNextComponentA [SHLWAPI.@] * * Find the next component in a path. * * PARAMS * lpszPath [I] Path to find next component in * * RETURNS * Success: A pointer to the next component, or the end of the string. * Failure: NULL, If lpszPath is invalid * * NOTES * A 'component' is either a backslash character (\) or UNC marker (\\). * Because of this, relative paths (e.g "c:foo") are regarded as having * only one component. */ LPSTR WINAPI PathFindNextComponentA(LPCSTR lpszPath) { LPSTR lpszSlash; TRACE("(%s)\n", debugstr_a(lpszPath)); if(!lpszPath || !*lpszPath) return NULL; if ((lpszSlash = StrChrA(lpszPath, '\\'))) { if (lpszSlash[1] == '\\') lpszSlash++; return lpszSlash + 1; } return (LPSTR)lpszPath + strlen(lpszPath); } /************************************************************************* * PathFindNextComponentW [SHLWAPI.@] * * See PathFindNextComponentA. */ LPWSTR WINAPI PathFindNextComponentW(LPCWSTR lpszPath) { LPWSTR lpszSlash; TRACE("(%s)\n", debugstr_w(lpszPath)); if(!lpszPath || !*lpszPath) return NULL; if ((lpszSlash = StrChrW(lpszPath, '\\'))) { if (lpszSlash[1] == '\\') lpszSlash++; return lpszSlash + 1; } return (LPWSTR)lpszPath + strlenW(lpszPath); } /************************************************************************* * PathAddExtensionA [SHLWAPI.@] * * Add a file extension to a path * * PARAMS * lpszPath [I/O] Path to add extension to * lpszExtension [I] Extension to add to lpszPath * * RETURNS * TRUE If the path was modified, * FALSE If lpszPath or lpszExtension are invalid, lpszPath has an * extension already, or the new path length is too big. * * FIXME * What version of shlwapi.dll adds "exe" if lpszExtension is NULL? Win2k * does not do this, so the behaviour was removed. */ BOOL WINAPI PathAddExtensionA(LPSTR lpszPath, LPCSTR lpszExtension) { size_t dwLen; TRACE("(%s,%s)\n", debugstr_a(lpszPath), debugstr_a(lpszExtension)); if (!lpszPath || !lpszExtension || *(PathFindExtensionA(lpszPath))) return FALSE; dwLen = strlen(lpszPath); if (dwLen + strlen(lpszExtension) >= MAX_PATH) return FALSE; strcpy(lpszPath + dwLen, lpszExtension); return TRUE; } /************************************************************************* * PathAddExtensionW [SHLWAPI.@] * * See PathAddExtensionA. */ BOOL WINAPI PathAddExtensionW(LPWSTR lpszPath, LPCWSTR lpszExtension) { size_t dwLen; TRACE("(%s,%s)\n", debugstr_w(lpszPath), debugstr_w(lpszExtension)); if (!lpszPath || !lpszExtension || *(PathFindExtensionW(lpszPath))) return FALSE; dwLen = strlenW(lpszPath); if (dwLen + strlenW(lpszExtension) >= MAX_PATH) return FALSE; strcpyW(lpszPath + dwLen, lpszExtension); return TRUE; } /************************************************************************* * PathMakePrettyA [SHLWAPI.@] * * Convert an uppercase DOS filename into lowercase. * * PARAMS * lpszPath [I/O] Path to convert. * * RETURNS * TRUE If the path was an uppercase DOS path and was converted, * FALSE Otherwise. */ BOOL WINAPI PathMakePrettyA(LPSTR lpszPath) { LPSTR pszIter = lpszPath; TRACE("(%s)\n", debugstr_a(lpszPath)); if (!pszIter) return FALSE; if (*pszIter) { do { if (islower(*pszIter) || IsDBCSLeadByte(*pszIter)) return FALSE; /* Not DOS path */ pszIter++; } while (*pszIter); pszIter = lpszPath + 1; while (*pszIter) { *pszIter = tolower(*pszIter); pszIter++; } } return TRUE; } /************************************************************************* * PathMakePrettyW [SHLWAPI.@] * * See PathMakePrettyA. */ BOOL WINAPI PathMakePrettyW(LPWSTR lpszPath) { LPWSTR pszIter = lpszPath; TRACE("(%s)\n", debugstr_w(lpszPath)); if (!pszIter) return FALSE; if (*pszIter) { do { if (islowerW(*pszIter)) return FALSE; /* Not DOS path */ pszIter++; } while (*pszIter); pszIter = lpszPath + 1; while (*pszIter) { *pszIter = tolowerW(*pszIter); pszIter++; } } return TRUE; } /************************************************************************* * PathCommonPrefixA [SHLWAPI.@] * * Determine the length of the common prefix between two paths. * * PARAMS * lpszFile1 [I] First path for comparison * lpszFile2 [I] Second path for comparison * achPath [O] Destination for common prefix string * * RETURNS * The length of the common prefix. This is 0 if there is no common * prefix between the paths or if any parameters are invalid. If the prefix * is non-zero and achPath is not NULL, achPath is filled with the common * part of the prefix and NUL terminated. * * NOTES * A common prefix of 2 is always returned as 3. It is thus possible for * the length returned to be invalid (i.e. Longer than one or both of the * strings given as parameters). This Win32 behaviour has been implemented * here, and cannot be changed (fixed?) without breaking other SHLWAPI calls. * To work around this when using this function, always check that the byte * at [common_prefix_len-1] is not a NUL. If it is, deduct 1 from the prefix. */ int WINAPI PathCommonPrefixA(LPCSTR lpszFile1, LPCSTR lpszFile2, LPSTR achPath) { size_t iLen = 0; LPCSTR lpszIter1 = lpszFile1; LPCSTR lpszIter2 = lpszFile2; TRACE("(%s,%s,%p)\n", debugstr_a(lpszFile1), debugstr_a(lpszFile2), achPath); if (achPath) *achPath = '\0'; if (!lpszFile1 || !lpszFile2) return 0; /* Handle roots first */ if (PathIsUNCA(lpszFile1)) { if (!PathIsUNCA(lpszFile2)) return 0; lpszIter1 += 2; lpszIter2 += 2; } else if (PathIsUNCA(lpszFile2)) return 0; /* Know already lpszFile1 is not UNC */ do { /* Update len */ if ((!*lpszIter1 || *lpszIter1 == '\\') && (!*lpszIter2 || *lpszIter2 == '\\')) iLen = lpszIter1 - lpszFile1; /* Common to this point */ if (!*lpszIter1 || (tolower(*lpszIter1) != tolower(*lpszIter2))) break; /* Strings differ at this point */ lpszIter1++; lpszIter2++; } while (1); if (iLen == 2) iLen++; /* Feature/Bug compatible with Win32 */ if (iLen && achPath) { memcpy(achPath,lpszFile1,iLen); achPath[iLen] = '\0'; } return iLen; } /************************************************************************* * PathCommonPrefixW [SHLWAPI.@] * * See PathCommonPrefixA. */ int WINAPI PathCommonPrefixW(LPCWSTR lpszFile1, LPCWSTR lpszFile2, LPWSTR achPath) { size_t iLen = 0; LPCWSTR lpszIter1 = lpszFile1; LPCWSTR lpszIter2 = lpszFile2; TRACE("(%s,%s,%p)\n", debugstr_w(lpszFile1), debugstr_w(lpszFile2), achPath); if (achPath) *achPath = '\0'; if (!lpszFile1 || !lpszFile2) return 0; /* Handle roots first */ if (PathIsUNCW(lpszFile1)) { if (!PathIsUNCW(lpszFile2)) return 0; lpszIter1 += 2; lpszIter2 += 2; } else if (PathIsUNCW(lpszFile2)) return 0; /* Know already lpszFile1 is not UNC */ do { /* Update len */ if ((!*lpszIter1 || *lpszIter1 == '\\') && (!*lpszIter2 || *lpszIter2 == '\\')) iLen = lpszIter1 - lpszFile1; /* Common to this point */ if (!*lpszIter1 || (tolowerW(*lpszIter1) != tolowerW(*lpszIter2))) break; /* Strings differ at this point */ lpszIter1++; lpszIter2++; } while (1); if (iLen == 2) iLen++; /* Feature/Bug compatible with Win32 */ if (iLen && achPath) { memcpy(achPath,lpszFile1,iLen * sizeof(WCHAR)); achPath[iLen] = '\0'; } return iLen; } /************************************************************************* * PathCompactPathA [SHLWAPI.@] * * Make a path fit into a given width when printed to a DC. * * PARAMS * hDc [I] Destination DC * lpszPath [I/O] Path to be printed to hDc * dx [I] Desired width * * RETURNS * TRUE If the path was modified/went well. * FALSE Otherwise. */ BOOL WINAPI PathCompactPathA(HDC hDC, LPSTR lpszPath, UINT dx) { BOOL bRet = FALSE; TRACE("(%p,%s,%d)\n", hDC, debugstr_a(lpszPath), dx); if (lpszPath) { WCHAR szPath[MAX_PATH]; MultiByteToWideChar(CP_ACP,0,lpszPath,-1,szPath,MAX_PATH); bRet = PathCompactPathW(hDC, szPath, dx); WideCharToMultiByte(CP_ACP,0,szPath,-1,lpszPath,MAX_PATH,0,0); } return bRet; } /************************************************************************* * PathCompactPathW [SHLWAPI.@] * * See PathCompactPathA. */ BOOL WINAPI PathCompactPathW(HDC hDC, LPWSTR lpszPath, UINT dx) { static const WCHAR szEllipses[] = { '.', '.', '.', '\0' }; BOOL bRet = TRUE; HDC hdc = 0; WCHAR buff[MAX_PATH]; SIZE size; DWORD dwLen; TRACE("(%p,%s,%d)\n", hDC, debugstr_w(lpszPath), dx); if (!lpszPath) return FALSE; if (!hDC) hdc = hDC = GetDC(0); /* Get the length of the whole path */ dwLen = strlenW(lpszPath); GetTextExtentPointW(hDC, lpszPath, dwLen, &size); if ((UINT)size.cx > dx) { /* Path too big, must reduce it */ LPWSTR sFile; DWORD dwEllipsesLen = 0, dwPathLen = 0; sFile = PathFindFileNameW(lpszPath); if (sFile != lpszPath) sFile--; /* Get the size of ellipses */ GetTextExtentPointW(hDC, szEllipses, 3, &size); dwEllipsesLen = size.cx; /* Get the size of the file name */ GetTextExtentPointW(hDC, sFile, strlenW(sFile), &size); dwPathLen = size.cx; if (sFile != lpszPath) { LPWSTR sPath = sFile; BOOL bEllipses = FALSE; /* The path includes a file name. Include as much of the path prior to * the file name as possible, allowing for the ellipses, e.g: * c:\some very long path\filename ==> c:\some v...\filename */ lstrcpynW(buff, sFile, MAX_PATH); do { DWORD dwTotalLen = bEllipses? dwPathLen + dwEllipsesLen : dwPathLen; GetTextExtentPointW(hDC, lpszPath, sPath - lpszPath, &size); dwTotalLen += size.cx; if (dwTotalLen <= dx) break; sPath--; if (!bEllipses) { bEllipses = TRUE; sPath -= 2; } } while (sPath > lpszPath); if (sPath > lpszPath) { if (bEllipses) { strcpyW(sPath, szEllipses); strcpyW(sPath+3, buff); } bRet = TRUE; goto end; } strcpyW(lpszPath, szEllipses); strcpyW(lpszPath+3, buff); bRet = FALSE; goto end; } /* Trim the path by adding ellipses to the end, e.g: * A very long file name.txt ==> A very... */ dwLen = strlenW(lpszPath); if (dwLen > MAX_PATH - 3) dwLen = MAX_PATH - 3; lstrcpynW(buff, sFile, dwLen); do { dwLen--; GetTextExtentPointW(hDC, buff, dwLen, &size); } while (dwLen && size.cx + dwEllipsesLen > dx); if (!dwLen) { DWORD dwWritten = 0; dwEllipsesLen /= 3; /* Size of a single '.' */ /* Write as much of the Ellipses string as possible */ while (dwWritten + dwEllipsesLen < dx && dwLen < 3) { *lpszPath++ = '.'; dwWritten += dwEllipsesLen; dwLen++; } *lpszPath = '\0'; bRet = FALSE; } else { strcpyW(buff + dwLen, szEllipses); strcpyW(lpszPath, buff); } } end: if (hdc) ReleaseDC(0, hdc); return bRet; } /************************************************************************* * PathGetCharTypeA [SHLWAPI.@] * * Categorise a character from a file path. * * PARAMS * ch [I] Character to get the type of * * RETURNS * A set of GCT_ bit flags (from "shlwapi.h") indicating the character type. */ UINT WINAPI PathGetCharTypeA(UCHAR ch) { return PathGetCharTypeW(ch); } /************************************************************************* * PathGetCharTypeW [SHLWAPI.@] * * See PathGetCharTypeA. */ UINT WINAPI PathGetCharTypeW(WCHAR ch) { UINT flags = 0; TRACE("(%d)\n", ch); if (!ch || ch < ' ' || ch == '<' || ch == '>' || ch == '"' || ch == '|' || ch == '/') flags = GCT_INVALID; /* Invalid */ else if (ch == '*' || ch=='?') flags = GCT_WILD; /* Wildchars */ else if ((ch == '\\') || (ch == ':')) return GCT_SEPARATOR; /* Path separators */ else { if (ch < 126) { if ((ch & 0x1 && ch != ';') || !ch || isalnum(ch) || ch == '$' || ch == '&' || ch == '(' || ch == '.' || ch == '@' || ch == '^' || ch == '\'' || ch == 130 || ch == '`') flags |= GCT_SHORTCHAR; /* All these are valid for DOS */ } else flags |= GCT_SHORTCHAR; /* Bug compatible with win32 */ flags |= GCT_LFNCHAR; /* Valid for long file names */ } return flags; } /************************************************************************* * SHLWAPI_UseSystemForSystemFolders * * Internal helper for PathMakeSystemFolderW. */ static BOOL SHLWAPI_UseSystemForSystemFolders(void) { static BOOL bCheckedReg = FALSE; static BOOL bUseSystemForSystemFolders = FALSE; if (!bCheckedReg) { bCheckedReg = TRUE; /* Key tells Win what file attributes to use on system folders */ if (SHGetValueA(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Explorer", "UseSystemForSystemFolders", 0, 0, 0)) bUseSystemForSystemFolders = TRUE; } return bUseSystemForSystemFolders; } /************************************************************************* * PathMakeSystemFolderA [SHLWAPI.@] * * Set system folder attribute for a path. * * PARAMS * lpszPath [I] The path to turn into a system folder * * RETURNS * TRUE If the path was changed to/already was a system folder * FALSE If the path is invalid or SetFileAttributesA() fails */ BOOL WINAPI PathMakeSystemFolderA(LPCSTR lpszPath) { BOOL bRet = FALSE; TRACE("(%s)\n", debugstr_a(lpszPath)); if (lpszPath && *lpszPath) { WCHAR szPath[MAX_PATH]; MultiByteToWideChar(CP_ACP,0,lpszPath,-1,szPath,MAX_PATH); bRet = PathMakeSystemFolderW(szPath); } return bRet; } /************************************************************************* * PathMakeSystemFolderW [SHLWAPI.@] * * See PathMakeSystemFolderA. */ BOOL WINAPI PathMakeSystemFolderW(LPCWSTR lpszPath) { DWORD dwDefaultAttr = FILE_ATTRIBUTE_READONLY, dwAttr; WCHAR buff[MAX_PATH]; TRACE("(%s)\n", debugstr_w(lpszPath)); if (!lpszPath || !*lpszPath) return FALSE; /* If the directory is already a system directory, don't do anything */ GetSystemDirectoryW(buff, MAX_PATH); if (!strcmpW(buff, lpszPath)) return TRUE; GetWindowsDirectoryW(buff, MAX_PATH); if (!strcmpW(buff, lpszPath)) return TRUE; /* "UseSystemForSystemFolders" Tells Win what attributes to use */ if (SHLWAPI_UseSystemForSystemFolders()) dwDefaultAttr = FILE_ATTRIBUTE_SYSTEM; if ((dwAttr = GetFileAttributesW(lpszPath)) == INVALID_FILE_ATTRIBUTES) return FALSE; /* Change file attributes to system attributes */ dwAttr &= ~(FILE_ATTRIBUTE_SYSTEM|FILE_ATTRIBUTE_HIDDEN|FILE_ATTRIBUTE_READONLY); return SetFileAttributesW(lpszPath, dwAttr | dwDefaultAttr); } /************************************************************************* * PathRenameExtensionA [SHLWAPI.@] * * Swap the file extension in a path with another extension. * * PARAMS * lpszPath [I/O] Path to swap the extension in * lpszExt [I] The new extension * * RETURNS * TRUE if lpszPath was modified, * FALSE if lpszPath or lpszExt is NULL, or the new path is too long */ BOOL WINAPI PathRenameExtensionA(LPSTR lpszPath, LPCSTR lpszExt) { LPSTR lpszExtension; TRACE("(%s,%s)\n", debugstr_a(lpszPath), debugstr_a(lpszExt)); lpszExtension = PathFindExtensionA(lpszPath); if (!lpszExtension || (lpszExtension - lpszPath + strlen(lpszExt) >= MAX_PATH)) return FALSE; strcpy(lpszExtension, lpszExt); return TRUE; } /************************************************************************* * PathRenameExtensionW [SHLWAPI.@] * * See PathRenameExtensionA. */ BOOL WINAPI PathRenameExtensionW(LPWSTR lpszPath, LPCWSTR lpszExt) { LPWSTR lpszExtension; TRACE("(%s,%s)\n", debugstr_w(lpszPath), debugstr_w(lpszExt)); lpszExtension = PathFindExtensionW(lpszPath); if (!lpszExtension || (lpszExtension - lpszPath + strlenW(lpszExt) >= MAX_PATH)) return FALSE; strcpyW(lpszExtension, lpszExt); return TRUE; } /************************************************************************* * PathSearchAndQualifyA [SHLWAPI.@] * * Determine if a given path is correct and fully qualified. * * PARAMS * lpszPath [I] Path to check * lpszBuf [O] Output for correct path * cchBuf [I] Size of lpszBuf * * RETURNS * Unknown. */ BOOL WINAPI PathSearchAndQualifyA(LPCSTR lpszPath, LPSTR lpszBuf, UINT cchBuf) { TRACE("(%s,%p,0x%08x)\n", debugstr_a(lpszPath), lpszBuf, cchBuf); if(SearchPathA(NULL, lpszPath, NULL, cchBuf, lpszBuf, NULL)) return TRUE; return !!GetFullPathNameA(lpszPath, cchBuf, lpszBuf, NULL); } /************************************************************************* * PathSearchAndQualifyW [SHLWAPI.@] * * See PathSearchAndQualifyA. */ BOOL WINAPI PathSearchAndQualifyW(LPCWSTR lpszPath, LPWSTR lpszBuf, UINT cchBuf) { TRACE("(%s,%p,0x%08x)\n", debugstr_w(lpszPath), lpszBuf, cchBuf); if(SearchPathW(NULL, lpszPath, NULL, cchBuf, lpszBuf, NULL)) return TRUE; return !!GetFullPathNameW(lpszPath, cchBuf, lpszBuf, NULL); } /************************************************************************* * PathSkipRootA [SHLWAPI.@] * * Return the portion of a path following the drive letter or mount point. * * PARAMS * lpszPath [I] The path to skip on * * RETURNS * Success: A pointer to the next character after the root. * Failure: NULL, if lpszPath is invalid, has no root or is a multibyte string. */ LPSTR WINAPI PathSkipRootA(LPCSTR lpszPath) { TRACE("(%s)\n", debugstr_a(lpszPath)); if (!lpszPath || !*lpszPath) return NULL; if (*lpszPath == '\\' && lpszPath[1] == '\\') { /* Network share: skip share server and mount point */ lpszPath += 2; if ((lpszPath = StrChrA(lpszPath, '\\')) && (lpszPath = StrChrA(lpszPath + 1, '\\'))) lpszPath++; return (LPSTR)lpszPath; } if (IsDBCSLeadByte(*lpszPath)) return NULL; /* Check x:\ */ if (lpszPath[0] && lpszPath[1] == ':' && lpszPath[2] == '\\') return (LPSTR)lpszPath + 3; return NULL; } /************************************************************************* * PathSkipRootW [SHLWAPI.@] * * See PathSkipRootA. */ LPWSTR WINAPI PathSkipRootW(LPCWSTR lpszPath) { TRACE("(%s)\n", debugstr_w(lpszPath)); if (!lpszPath || !*lpszPath) return NULL; if (*lpszPath == '\\' && lpszPath[1] == '\\') { /* Network share: skip share server and mount point */ lpszPath += 2; if ((lpszPath = StrChrW(lpszPath, '\\')) && (lpszPath = StrChrW(lpszPath + 1, '\\'))) lpszPath++; return (LPWSTR)lpszPath; } /* Check x:\ */ if (lpszPath[0] && lpszPath[1] == ':' && lpszPath[2] == '\\') return (LPWSTR)lpszPath + 3; return NULL; } /************************************************************************* * PathCreateFromUrlA [SHLWAPI.@] * * See PathCreateFromUrlW */ HRESULT WINAPI PathCreateFromUrlA(LPCSTR pszUrl, LPSTR pszPath, LPDWORD pcchPath, DWORD dwReserved) { WCHAR bufW[MAX_PATH]; WCHAR *pathW = bufW; UNICODE_STRING urlW; HRESULT ret; DWORD lenW = sizeof(bufW)/sizeof(WCHAR), lenA; if(!RtlCreateUnicodeStringFromAsciiz(&urlW, pszUrl)) return E_INVALIDARG; if((ret = PathCreateFromUrlW(urlW.Buffer, pathW, &lenW, dwReserved)) == E_POINTER) { pathW = HeapAlloc(GetProcessHeap(), 0, lenW * sizeof(WCHAR)); ret = PathCreateFromUrlW(urlW.Buffer, pathW, &lenW, dwReserved); } if(ret == S_OK) { RtlUnicodeToMultiByteSize(&lenA, pathW, lenW * sizeof(WCHAR)); if(*pcchPath > lenA) { RtlUnicodeToMultiByteN(pszPath, *pcchPath - 1, &lenA, pathW, lenW * sizeof(WCHAR)); pszPath[lenA] = 0; *pcchPath = lenA; } else { *pcchPath = lenA + 1; ret = E_POINTER; } } if(pathW != bufW) HeapFree(GetProcessHeap(), 0, pathW); RtlFreeUnicodeString(&urlW); return ret; } /************************************************************************* * PathCreateFromUrlW [SHLWAPI.@] * * Create a path from a URL * * PARAMS * lpszUrl [I] URL to convert into a path * lpszPath [O] Output buffer for the resulting Path * pcchPath [I] Length of lpszPath * dwFlags [I] Flags controlling the conversion * * RETURNS * Success: S_OK. lpszPath contains the URL in path format, * Failure: An HRESULT error code such as E_INVALIDARG. */ HRESULT WINAPI PathCreateFromUrlW(LPCWSTR pszUrl, LPWSTR pszPath, LPDWORD pcchPath, DWORD dwReserved) { static const WCHAR file_colon[] = { 'f','i','l','e',':',0 }; HRESULT hr; DWORD nslashes = 0; WCHAR *ptr; TRACE("(%s,%p,%p,0x%08x)\n", debugstr_w(pszUrl), pszPath, pcchPath, dwReserved); if (!pszUrl || !pszPath || !pcchPath || !*pcchPath) return E_INVALIDARG; if (strncmpW(pszUrl, file_colon, 5)) return E_INVALIDARG; pszUrl += 5; while(*pszUrl == '/' || *pszUrl == '\\') { nslashes++; pszUrl++; } if(isalphaW(*pszUrl) && (pszUrl[1] == ':' || pszUrl[1] == '|') && (pszUrl[2] == '/' || pszUrl[2] == '\\')) nslashes = 0; switch(nslashes) { case 2: pszUrl -= 2; break; case 0: break; default: pszUrl -= 1; break; } hr = UrlUnescapeW((LPWSTR)pszUrl, pszPath, pcchPath, 0); if(hr != S_OK) return hr; for(ptr = pszPath; *ptr; ptr++) if(*ptr == '/') *ptr = '\\'; while(*pszPath == '\\') pszPath++; if(isalphaW(*pszPath) && pszPath[1] == '|' && pszPath[2] == '\\') /* c|\ -> c:\ */ pszPath[1] = ':'; if(nslashes == 2 && (ptr = strchrW(pszPath, '\\'))) { /* \\host\c:\ -> \\hostc:\ */ ptr++; if(isalphaW(*ptr) && (ptr[1] == ':' || ptr[1] == '|') && ptr[2] == '\\') { memmove(ptr - 1, ptr, (strlenW(ptr) + 1) * sizeof(WCHAR)); (*pcchPath)--; } } TRACE("Returning %s\n",debugstr_w(pszPath)); return hr; } /************************************************************************* * PathRelativePathToA [SHLWAPI.@] * * Create a relative path from one path to another. * * PARAMS * lpszPath [O] Destination for relative path * lpszFrom [I] Source path * dwAttrFrom [I] File attribute of source path * lpszTo [I] Destination path * dwAttrTo [I] File attributes of destination path * * RETURNS * TRUE If a relative path can be formed. lpszPath contains the new path * FALSE If the paths are not relative or any parameters are invalid * * NOTES * lpszTo should be at least MAX_PATH in length. * * Calling this function with relative paths for lpszFrom or lpszTo may * give erroneous results. * * The Win32 version of this function contains a bug where the lpszTo string * may be referenced 1 byte beyond the end of the string. As a result random * garbage may be written to the output path, depending on what lies beyond * the last byte of the string. This bug occurs because of the behaviour of * PathCommonPrefix() (see notes for that function), and no workaround seems * possible with Win32. * * This bug has been fixed here, so for example the relative path from "\\" * to "\\" is correctly determined as "." in this implementation. */ BOOL WINAPI PathRelativePathToA(LPSTR lpszPath, LPCSTR lpszFrom, DWORD dwAttrFrom, LPCSTR lpszTo, DWORD dwAttrTo) { BOOL bRet = FALSE; TRACE("(%p,%s,0x%08x,%s,0x%08x)\n", lpszPath, debugstr_a(lpszFrom), dwAttrFrom, debugstr_a(lpszTo), dwAttrTo); if(lpszPath && lpszFrom && lpszTo) { WCHAR szPath[MAX_PATH]; WCHAR szFrom[MAX_PATH]; WCHAR szTo[MAX_PATH]; MultiByteToWideChar(CP_ACP,0,lpszFrom,-1,szFrom,MAX_PATH); MultiByteToWideChar(CP_ACP,0,lpszTo,-1,szTo,MAX_PATH); bRet = PathRelativePathToW(szPath,szFrom,dwAttrFrom,szTo,dwAttrTo); WideCharToMultiByte(CP_ACP,0,szPath,-1,lpszPath,MAX_PATH,0,0); } return bRet; } /************************************************************************* * PathRelativePathToW [SHLWAPI.@] * * See PathRelativePathToA. */ BOOL WINAPI PathRelativePathToW(LPWSTR lpszPath, LPCWSTR lpszFrom, DWORD dwAttrFrom, LPCWSTR lpszTo, DWORD dwAttrTo) { static const WCHAR szPrevDirSlash[] = { '.', '.', '\\', '\0' }; static const WCHAR szPrevDir[] = { '.', '.', '\0' }; WCHAR szFrom[MAX_PATH]; WCHAR szTo[MAX_PATH]; DWORD dwLen; TRACE("(%p,%s,0x%08x,%s,0x%08x)\n", lpszPath, debugstr_w(lpszFrom), dwAttrFrom, debugstr_w(lpszTo), dwAttrTo); if(!lpszPath || !lpszFrom || !lpszTo) return FALSE; *lpszPath = '\0'; lstrcpynW(szFrom, lpszFrom, MAX_PATH); lstrcpynW(szTo, lpszTo, MAX_PATH); if(!(dwAttrFrom & FILE_ATTRIBUTE_DIRECTORY)) PathRemoveFileSpecW(szFrom); if(!(dwAttrFrom & FILE_ATTRIBUTE_DIRECTORY)) PathRemoveFileSpecW(szTo); /* Paths can only be relative if they have a common root */ if(!(dwLen = PathCommonPrefixW(szFrom, szTo, 0))) return FALSE; /* Strip off lpszFrom components to the root, by adding "..\" */ lpszFrom = szFrom + dwLen; if (!*lpszFrom) { lpszPath[0] = '.'; lpszPath[1] = '\0'; } if (*lpszFrom == '\\') lpszFrom++; while (*lpszFrom) { lpszFrom = PathFindNextComponentW(lpszFrom); strcatW(lpszPath, *lpszFrom ? szPrevDirSlash : szPrevDir); } /* From the root add the components of lpszTo */ lpszTo += dwLen; /* We check lpszTo[-1] to avoid skipping end of string. See the notes for * this function. */ if (*lpszTo && lpszTo[-1]) { if (*lpszTo != '\\') lpszTo--; dwLen = strlenW(lpszPath); if (dwLen + strlenW(lpszTo) >= MAX_PATH) { *lpszPath = '\0'; return FALSE; } strcpyW(lpszPath + dwLen, lpszTo); } return TRUE; } /************************************************************************* * PathUnmakeSystemFolderA [SHLWAPI.@] * * Remove the system folder attributes from a path. * * PARAMS * lpszPath [I] The path to remove attributes from * * RETURNS * Success: TRUE. * Failure: FALSE, if lpszPath is NULL, empty, not a directory, or calling * SetFileAttributesA() fails. */ BOOL WINAPI PathUnmakeSystemFolderA(LPCSTR lpszPath) { DWORD dwAttr; TRACE("(%s)\n", debugstr_a(lpszPath)); if (!lpszPath || !*lpszPath || (dwAttr = GetFileAttributesA(lpszPath)) == INVALID_FILE_ATTRIBUTES || !(dwAttr & FILE_ATTRIBUTE_DIRECTORY)) return FALSE; dwAttr &= ~(FILE_ATTRIBUTE_HIDDEN | FILE_ATTRIBUTE_SYSTEM); return SetFileAttributesA(lpszPath, dwAttr); } /************************************************************************* * PathUnmakeSystemFolderW [SHLWAPI.@] * * See PathUnmakeSystemFolderA. */ BOOL WINAPI PathUnmakeSystemFolderW(LPCWSTR lpszPath) { DWORD dwAttr; TRACE("(%s)\n", debugstr_w(lpszPath)); if (!lpszPath || !*lpszPath || (dwAttr = GetFileAttributesW(lpszPath)) == INVALID_FILE_ATTRIBUTES || !(dwAttr & FILE_ATTRIBUTE_DIRECTORY)) return FALSE; dwAttr &= ~(FILE_ATTRIBUTE_HIDDEN | FILE_ATTRIBUTE_SYSTEM); return SetFileAttributesW(lpszPath, dwAttr); } /************************************************************************* * PathSetDlgItemPathA [SHLWAPI.@] * * Set the text of a dialog item to a path, shrinking the path to fit * if it is too big for the item. * * PARAMS * hDlg [I] Dialog handle * id [I] ID of item in the dialog * lpszPath [I] Path to set as the items text * * RETURNS * Nothing. * * NOTES * If lpszPath is NULL, a blank string ("") is set (i.e. The previous * window text is erased). */ VOID WINAPI PathSetDlgItemPathA(HWND hDlg, int id, LPCSTR lpszPath) { WCHAR szPath[MAX_PATH]; TRACE("(%p,%8x,%s)\n",hDlg, id, debugstr_a(lpszPath)); if (lpszPath) MultiByteToWideChar(CP_ACP,0,lpszPath,-1,szPath,MAX_PATH); else szPath[0] = '\0'; PathSetDlgItemPathW(hDlg, id, szPath); } /************************************************************************* * PathSetDlgItemPathW [SHLWAPI.@] * * See PathSetDlgItemPathA. */ VOID WINAPI PathSetDlgItemPathW(HWND hDlg, int id, LPCWSTR lpszPath) { WCHAR path[MAX_PATH + 1]; HWND hwItem; RECT rect; HDC hdc; HGDIOBJ hPrevObj; TRACE("(%p,%8x,%s)\n",hDlg, id, debugstr_w(lpszPath)); if (!(hwItem = GetDlgItem(hDlg, id))) return; if (lpszPath) lstrcpynW(path, lpszPath, sizeof(path) / sizeof(WCHAR)); else path[0] = '\0'; GetClientRect(hwItem, &rect); hdc = GetDC(hDlg); hPrevObj = SelectObject(hdc, (HGDIOBJ)SendMessageW(hwItem,WM_GETFONT,0,0)); if (hPrevObj) { PathCompactPathW(hdc, path, rect.right); SelectObject(hdc, hPrevObj); } ReleaseDC(hDlg, hdc); SetWindowTextW(hwItem, path); } /************************************************************************* * PathIsNetworkPathA [SHLWAPI.@] * * Determine if the given path is a network path. * * PARAMS * lpszPath [I] Path to check * * RETURNS * TRUE If lpszPath is a UNC share or mapped network drive, or * FALSE If lpszPath is a local drive or cannot be determined */ BOOL WINAPI PathIsNetworkPathA(LPCSTR lpszPath) { int dwDriveNum; TRACE("(%s)\n",debugstr_a(lpszPath)); if (!lpszPath) return FALSE; if (*lpszPath == '\\' && lpszPath[1] == '\\') return TRUE; dwDriveNum = PathGetDriveNumberA(lpszPath); if (dwDriveNum == -1) return FALSE; GET_FUNC(pIsNetDrive, shell32, (LPCSTR)66, FALSE); /* ord 66 = shell32.IsNetDrive */ return pIsNetDrive(dwDriveNum); } /************************************************************************* * PathIsNetworkPathW [SHLWAPI.@] * * See PathIsNetworkPathA. */ BOOL WINAPI PathIsNetworkPathW(LPCWSTR lpszPath) { int dwDriveNum; TRACE("(%s)\n", debugstr_w(lpszPath)); if (!lpszPath) return FALSE; if (*lpszPath == '\\' && lpszPath[1] == '\\') return TRUE; dwDriveNum = PathGetDriveNumberW(lpszPath); if (dwDriveNum == -1) return FALSE; GET_FUNC(pIsNetDrive, shell32, (LPCSTR)66, FALSE); /* ord 66 = shell32.IsNetDrive */ return pIsNetDrive(dwDriveNum); } /************************************************************************* * PathIsLFNFileSpecA [SHLWAPI.@] * * Determine if the given path is a long file name * * PARAMS * lpszPath [I] Path to check * * RETURNS * TRUE If path is a long file name, * FALSE If path is a valid DOS short file name */ BOOL WINAPI PathIsLFNFileSpecA(LPCSTR lpszPath) { DWORD dwNameLen = 0, dwExtLen = 0; TRACE("(%s)\n",debugstr_a(lpszPath)); if (!lpszPath) return FALSE; while (*lpszPath) { if (*lpszPath == ' ') return TRUE; /* DOS names cannot have spaces */ if (*lpszPath == '.') { if (dwExtLen) return TRUE; /* DOS names have only one dot */ dwExtLen = 1; } else if (dwExtLen) { dwExtLen++; if (dwExtLen > 4) return TRUE; /* DOS extensions are <= 3 chars*/ } else { dwNameLen++; if (dwNameLen > 8) return TRUE; /* DOS names are <= 8 chars */ } lpszPath += IsDBCSLeadByte(*lpszPath) ? 2 : 1; } return FALSE; /* Valid DOS path */ } /************************************************************************* * PathIsLFNFileSpecW [SHLWAPI.@] * * See PathIsLFNFileSpecA. */ BOOL WINAPI PathIsLFNFileSpecW(LPCWSTR lpszPath) { DWORD dwNameLen = 0, dwExtLen = 0; TRACE("(%s)\n",debugstr_w(lpszPath)); if (!lpszPath) return FALSE; while (*lpszPath) { if (*lpszPath == ' ') return TRUE; /* DOS names cannot have spaces */ if (*lpszPath == '.') { if (dwExtLen) return TRUE; /* DOS names have only one dot */ dwExtLen = 1; } else if (dwExtLen) { dwExtLen++; if (dwExtLen > 4) return TRUE; /* DOS extensions are <= 3 chars*/ } else { dwNameLen++; if (dwNameLen > 8) return TRUE; /* DOS names are <= 8 chars */ } lpszPath++; } return FALSE; /* Valid DOS path */ } /************************************************************************* * PathIsDirectoryEmptyA [SHLWAPI.@] * * Determine if a given directory is empty. * * PARAMS * lpszPath [I] Directory to check * * RETURNS * TRUE If the directory exists and contains no files, * FALSE Otherwise */ BOOL WINAPI PathIsDirectoryEmptyA(LPCSTR lpszPath) { BOOL bRet = FALSE; TRACE("(%s)\n",debugstr_a(lpszPath)); if (lpszPath) { WCHAR szPath[MAX_PATH]; MultiByteToWideChar(CP_ACP,0,lpszPath,-1,szPath,MAX_PATH); bRet = PathIsDirectoryEmptyW(szPath); } return bRet; } /************************************************************************* * PathIsDirectoryEmptyW [SHLWAPI.@] * * See PathIsDirectoryEmptyA. */ BOOL WINAPI PathIsDirectoryEmptyW(LPCWSTR lpszPath) { static const WCHAR szAllFiles[] = { '*', '.', '*', '\0' }; WCHAR szSearch[MAX_PATH]; DWORD dwLen; HANDLE hfind; BOOL retVal = FALSE; WIN32_FIND_DATAW find_data; TRACE("(%s)\n",debugstr_w(lpszPath)); if (!lpszPath || !PathIsDirectoryW(lpszPath)) return FALSE; lstrcpynW(szSearch, lpszPath, MAX_PATH); PathAddBackslashW(szSearch); dwLen = strlenW(szSearch); if (dwLen > MAX_PATH - 4) return FALSE; strcpyW(szSearch + dwLen, szAllFiles); hfind = FindFirstFileW(szSearch, &find_data); if (hfind != INVALID_HANDLE_VALUE && find_data.cFileName[0] == '.' && find_data.cFileName[1] == '.') { /* The only directory entry should be the parent */ if (!FindNextFileW(hfind, &find_data)) retVal = TRUE; FindClose(hfind); } return retVal; } /************************************************************************* * PathFindSuffixArrayA [SHLWAPI.@] * * Find a suffix string in an array of suffix strings * * PARAMS * lpszSuffix [I] Suffix string to search for * lppszArray [I] Array of suffix strings to search * dwCount [I] Number of elements in lppszArray * * RETURNS * Success: The index of the position of lpszSuffix in lppszArray * Failure: 0, if any parameters are invalid or lpszSuffix is not found * * NOTES * The search is case sensitive. * The match is made against the end of the suffix string, so for example: * lpszSuffix="fooBAR" matches "BAR", but lpszSuffix="fooBARfoo" does not. */ LPCSTR WINAPI PathFindSuffixArrayA(LPCSTR lpszSuffix, LPCSTR *lppszArray, int dwCount) { size_t dwLen; int dwRet = 0; TRACE("(%s,%p,%d)\n",debugstr_a(lpszSuffix), lppszArray, dwCount); if (lpszSuffix && lppszArray && dwCount > 0) { dwLen = strlen(lpszSuffix); while (dwRet < dwCount) { size_t dwCompareLen = strlen(*lppszArray); if (dwCompareLen < dwLen) { if (!strcmp(lpszSuffix + dwLen - dwCompareLen, *lppszArray)) return *lppszArray; /* Found */ } dwRet++; lppszArray++; } } return NULL; } /************************************************************************* * PathFindSuffixArrayW [SHLWAPI.@] * * See PathFindSuffixArrayA. */ LPCWSTR WINAPI PathFindSuffixArrayW(LPCWSTR lpszSuffix, LPCWSTR *lppszArray, int dwCount) { size_t dwLen; int dwRet = 0; TRACE("(%s,%p,%d)\n",debugstr_w(lpszSuffix), lppszArray, dwCount); if (lpszSuffix && lppszArray && dwCount > 0) { dwLen = strlenW(lpszSuffix); while (dwRet < dwCount) { size_t dwCompareLen = strlenW(*lppszArray); if (dwCompareLen < dwLen) { if (!strcmpW(lpszSuffix + dwLen - dwCompareLen, *lppszArray)) return *lppszArray; /* Found */ } dwRet++; lppszArray++; } } return NULL; } /************************************************************************* * PathUndecorateA [SHLWAPI.@] * * Undecorate a file path * * PARAMS * lpszPath [I/O] Path to remove any decoration from * * RETURNS * Nothing * * NOTES * A decorations form is "path[n].ext" where "n" is an optional decimal number. */ VOID WINAPI PathUndecorateA(LPSTR lpszPath) { TRACE("(%s)\n",debugstr_a(lpszPath)); if (lpszPath) { LPSTR lpszExt = PathFindExtensionA(lpszPath); if (lpszExt > lpszPath && lpszExt[-1] == ']') { LPSTR lpszSkip = lpszExt - 2; if (*lpszSkip == '[') lpszSkip++; /* [] (no number) */ else while (lpszSkip > lpszPath && isdigit(lpszSkip[-1])) lpszSkip--; if (lpszSkip > lpszPath && lpszSkip[-1] == '[' && lpszSkip[-2] != '\\') { /* remove the [n] */ lpszSkip--; while (*lpszExt) *lpszSkip++ = *lpszExt++; *lpszSkip = '\0'; } } } } /************************************************************************* * PathUndecorateW [SHLWAPI.@] * * See PathUndecorateA. */ VOID WINAPI PathUndecorateW(LPWSTR lpszPath) { TRACE("(%s)\n",debugstr_w(lpszPath)); if (lpszPath) { LPWSTR lpszExt = PathFindExtensionW(lpszPath); if (lpszExt > lpszPath && lpszExt[-1] == ']') { LPWSTR lpszSkip = lpszExt - 2; if (*lpszSkip == '[') lpszSkip++; /* [] (no number) */ else while (lpszSkip > lpszPath && isdigitW(lpszSkip[-1])) lpszSkip--; if (lpszSkip > lpszPath && lpszSkip[-1] == '[' && lpszSkip[-2] != '\\') { /* remove the [n] */ lpszSkip--; while (*lpszExt) *lpszSkip++ = *lpszExt++; *lpszSkip = '\0'; } } } } /************************************************************************* * PathUnExpandEnvStringsA [SHLWAPI.@] * * Substitute folder names in a path with their corresponding environment * strings. * * PARAMS * pszPath [I] Buffer containing the path to unexpand. * pszBuf [O] Buffer to receive the unexpanded path. * cchBuf [I] Size of pszBuf in characters. * * RETURNS * Success: TRUE * Failure: FALSE */ BOOL WINAPI PathUnExpandEnvStringsA(LPCSTR pszPath, LPSTR pszBuf, UINT cchBuf) { FIXME("(%s,%s,0x%08x)\n", debugstr_a(pszPath), debugstr_a(pszBuf), cchBuf); return FALSE; } /************************************************************************* * PathUnExpandEnvStringsW [SHLWAPI.@] * * Unicode version of PathUnExpandEnvStringsA. */ BOOL WINAPI PathUnExpandEnvStringsW(LPCWSTR pszPath, LPWSTR pszBuf, UINT cchBuf) { FIXME("(%s,%s,0x%08x)\n", debugstr_w(pszPath), debugstr_w(pszBuf), cchBuf); return FALSE; } /************************************************************************* * @ [SHLWAPI.440] * * Find localised or default web content in "%WINDOWS%\web\". * * PARAMS * lpszFile [I] File name containing content to look for * lpszPath [O] Buffer to contain the full path to the file * dwPathLen [I] Length of lpszPath * * RETURNS * Success: S_OK. lpszPath contains the full path to the content. * Failure: E_FAIL. The content does not exist or lpszPath is too short. */ HRESULT WINAPI SHGetWebFolderFilePathA(LPCSTR lpszFile, LPSTR lpszPath, DWORD dwPathLen) { WCHAR szFile[MAX_PATH], szPath[MAX_PATH]; HRESULT hRet; TRACE("(%s,%p,%d)\n", lpszFile, lpszPath, dwPathLen); MultiByteToWideChar(CP_ACP, 0, lpszFile, -1, szFile, MAX_PATH); szPath[0] = '\0'; hRet = SHGetWebFolderFilePathW(szFile, szPath, dwPathLen); WideCharToMultiByte(CP_ACP, 0, szPath, -1, lpszPath, dwPathLen, 0, 0); return hRet; } /************************************************************************* * @ [SHLWAPI.441] * * Unicode version of SHGetWebFolderFilePathA. */ HRESULT WINAPI SHGetWebFolderFilePathW(LPCWSTR lpszFile, LPWSTR lpszPath, DWORD dwPathLen) { static const WCHAR szWeb[] = {'\\','W','e','b','\\','\0'}; static const WCHAR szWebMui[] = {'m','u','i','\\','%','0','4','x','\\','\0'}; #define szWebLen (sizeof(szWeb)/sizeof(WCHAR)) #define szWebMuiLen ((sizeof(szWebMui)+1)/sizeof(WCHAR)) DWORD dwLen, dwFileLen; LANGID lidSystem, lidUser; TRACE("(%s,%p,%d)\n", debugstr_w(lpszFile), lpszPath, dwPathLen); /* Get base directory for web content */ dwLen = GetSystemWindowsDirectoryW(lpszPath, dwPathLen); if (dwLen > 0 && lpszPath[dwLen-1] == '\\') dwLen--; dwFileLen = strlenW(lpszFile); if (dwLen + dwFileLen + szWebLen >= dwPathLen) return E_FAIL; /* lpszPath too short */ strcpyW(lpszPath+dwLen, szWeb); dwLen += szWebLen; dwPathLen = dwPathLen - dwLen; /* Remaining space */ lidSystem = GetSystemDefaultUILanguage(); lidUser = GetUserDefaultUILanguage(); if (lidSystem != lidUser) { if (dwFileLen + szWebMuiLen < dwPathLen) { /* Use localised content in the users UI language if present */ wsprintfW(lpszPath + dwLen, szWebMui, lidUser); strcpyW(lpszPath + dwLen + szWebMuiLen, lpszFile); if (PathFileExistsW(lpszPath)) return S_OK; } } /* Fall back to OS default installed content */ strcpyW(lpszPath + dwLen, lpszFile); if (PathFileExistsW(lpszPath)) return S_OK; return E_FAIL; } #define PATH_CHAR_CLASS_LETTER 0x00000001 #define PATH_CHAR_CLASS_ASTERIX 0x00000002 #define PATH_CHAR_CLASS_DOT 0x00000004 #define PATH_CHAR_CLASS_BACKSLASH 0x00000008 #define PATH_CHAR_CLASS_COLON 0x00000010 #define PATH_CHAR_CLASS_SEMICOLON 0x00000020 #define PATH_CHAR_CLASS_COMMA 0x00000040 #define PATH_CHAR_CLASS_SPACE 0x00000080 #define PATH_CHAR_CLASS_OTHER_VALID 0x00000100 #define PATH_CHAR_CLASS_DOUBLEQUOTE 0x00000200 #define PATH_CHAR_CLASS_INVALID 0x00000000 #define PATH_CHAR_CLASS_ANY 0xffffffff static const DWORD SHELL_charclass[] = { /* 0x00 */ PATH_CHAR_CLASS_INVALID, /* 0x01 */ PATH_CHAR_CLASS_INVALID, /* 0x02 */ PATH_CHAR_CLASS_INVALID, /* 0x03 */ PATH_CHAR_CLASS_INVALID, /* 0x04 */ PATH_CHAR_CLASS_INVALID, /* 0x05 */ PATH_CHAR_CLASS_INVALID, /* 0x06 */ PATH_CHAR_CLASS_INVALID, /* 0x07 */ PATH_CHAR_CLASS_INVALID, /* 0x08 */ PATH_CHAR_CLASS_INVALID, /* 0x09 */ PATH_CHAR_CLASS_INVALID, /* 0x0a */ PATH_CHAR_CLASS_INVALID, /* 0x0b */ PATH_CHAR_CLASS_INVALID, /* 0x0c */ PATH_CHAR_CLASS_INVALID, /* 0x0d */ PATH_CHAR_CLASS_INVALID, /* 0x0e */ PATH_CHAR_CLASS_INVALID, /* 0x0f */ PATH_CHAR_CLASS_INVALID, /* 0x10 */ PATH_CHAR_CLASS_INVALID, /* 0x11 */ PATH_CHAR_CLASS_INVALID, /* 0x12 */ PATH_CHAR_CLASS_INVALID, /* 0x13 */ PATH_CHAR_CLASS_INVALID, /* 0x14 */ PATH_CHAR_CLASS_INVALID, /* 0x15 */ PATH_CHAR_CLASS_INVALID, /* 0x16 */ PATH_CHAR_CLASS_INVALID, /* 0x17 */ PATH_CHAR_CLASS_INVALID, /* 0x18 */ PATH_CHAR_CLASS_INVALID, /* 0x19 */ PATH_CHAR_CLASS_INVALID, /* 0x1a */ PATH_CHAR_CLASS_INVALID, /* 0x1b */ PATH_CHAR_CLASS_INVALID, /* 0x1c */ PATH_CHAR_CLASS_INVALID, /* 0x1d */ PATH_CHAR_CLASS_INVALID, /* 0x1e */ PATH_CHAR_CLASS_INVALID, /* 0x1f */ PATH_CHAR_CLASS_INVALID, /* ' ' */ PATH_CHAR_CLASS_SPACE, /* '!' */ PATH_CHAR_CLASS_OTHER_VALID, /* '"' */ PATH_CHAR_CLASS_DOUBLEQUOTE, /* '#' */ PATH_CHAR_CLASS_OTHER_VALID, /* '$' */ PATH_CHAR_CLASS_OTHER_VALID, /* '%' */ PATH_CHAR_CLASS_OTHER_VALID, /* '&' */ PATH_CHAR_CLASS_OTHER_VALID, /* '\'' */ PATH_CHAR_CLASS_OTHER_VALID, /* '(' */ PATH_CHAR_CLASS_OTHER_VALID, /* ')' */ PATH_CHAR_CLASS_OTHER_VALID, /* '*' */ PATH_CHAR_CLASS_ASTERIX, /* '+' */ PATH_CHAR_CLASS_OTHER_VALID, /* ',' */ PATH_CHAR_CLASS_COMMA, /* '-' */ PATH_CHAR_CLASS_OTHER_VALID, /* '.' */ PATH_CHAR_CLASS_DOT, /* '/' */ PATH_CHAR_CLASS_INVALID, /* '0' */ PATH_CHAR_CLASS_OTHER_VALID, /* '1' */ PATH_CHAR_CLASS_OTHER_VALID, /* '2' */ PATH_CHAR_CLASS_OTHER_VALID, /* '3' */ PATH_CHAR_CLASS_OTHER_VALID, /* '4' */ PATH_CHAR_CLASS_OTHER_VALID, /* '5' */ PATH_CHAR_CLASS_OTHER_VALID, /* '6' */ PATH_CHAR_CLASS_OTHER_VALID, /* '7' */ PATH_CHAR_CLASS_OTHER_VALID, /* '8' */ PATH_CHAR_CLASS_OTHER_VALID, /* '9' */ PATH_CHAR_CLASS_OTHER_VALID, /* ':' */ PATH_CHAR_CLASS_COLON, /* ';' */ PATH_CHAR_CLASS_SEMICOLON, /* '<' */ PATH_CHAR_CLASS_INVALID, /* '=' */ PATH_CHAR_CLASS_OTHER_VALID, /* '>' */ PATH_CHAR_CLASS_INVALID, /* '?' */ PATH_CHAR_CLASS_LETTER, /* '@' */ PATH_CHAR_CLASS_OTHER_VALID, /* 'A' */ PATH_CHAR_CLASS_ANY, /* 'B' */ PATH_CHAR_CLASS_ANY, /* 'C' */ PATH_CHAR_CLASS_ANY, /* 'D' */ PATH_CHAR_CLASS_ANY, /* 'E' */ PATH_CHAR_CLASS_ANY, /* 'F' */ PATH_CHAR_CLASS_ANY, /* 'G' */ PATH_CHAR_CLASS_ANY, /* 'H' */ PATH_CHAR_CLASS_ANY, /* 'I' */ PATH_CHAR_CLASS_ANY, /* 'J' */ PATH_CHAR_CLASS_ANY, /* 'K' */ PATH_CHAR_CLASS_ANY, /* 'L' */ PATH_CHAR_CLASS_ANY, /* 'M' */ PATH_CHAR_CLASS_ANY, /* 'N' */ PATH_CHAR_CLASS_ANY, /* 'O' */ PATH_CHAR_CLASS_ANY, /* 'P' */ PATH_CHAR_CLASS_ANY, /* 'Q' */ PATH_CHAR_CLASS_ANY, /* 'R' */ PATH_CHAR_CLASS_ANY, /* 'S' */ PATH_CHAR_CLASS_ANY, /* 'T' */ PATH_CHAR_CLASS_ANY, /* 'U' */ PATH_CHAR_CLASS_ANY, /* 'V' */ PATH_CHAR_CLASS_ANY, /* 'W' */ PATH_CHAR_CLASS_ANY, /* 'X' */ PATH_CHAR_CLASS_ANY, /* 'Y' */ PATH_CHAR_CLASS_ANY, /* 'Z' */ PATH_CHAR_CLASS_ANY, /* '[' */ PATH_CHAR_CLASS_OTHER_VALID, /* '\\' */ PATH_CHAR_CLASS_BACKSLASH, /* ']' */ PATH_CHAR_CLASS_OTHER_VALID, /* '^' */ PATH_CHAR_CLASS_OTHER_VALID, /* '_' */ PATH_CHAR_CLASS_OTHER_VALID, /* '`' */ PATH_CHAR_CLASS_OTHER_VALID, /* 'a' */ PATH_CHAR_CLASS_ANY, /* 'b' */ PATH_CHAR_CLASS_ANY, /* 'c' */ PATH_CHAR_CLASS_ANY, /* 'd' */ PATH_CHAR_CLASS_ANY, /* 'e' */ PATH_CHAR_CLASS_ANY, /* 'f' */ PATH_CHAR_CLASS_ANY, /* 'g' */ PATH_CHAR_CLASS_ANY, /* 'h' */ PATH_CHAR_CLASS_ANY, /* 'i' */ PATH_CHAR_CLASS_ANY, /* 'j' */ PATH_CHAR_CLASS_ANY, /* 'k' */ PATH_CHAR_CLASS_ANY, /* 'l' */ PATH_CHAR_CLASS_ANY, /* 'm' */ PATH_CHAR_CLASS_ANY, /* 'n' */ PATH_CHAR_CLASS_ANY, /* 'o' */ PATH_CHAR_CLASS_ANY, /* 'p' */ PATH_CHAR_CLASS_ANY, /* 'q' */ PATH_CHAR_CLASS_ANY, /* 'r' */ PATH_CHAR_CLASS_ANY, /* 's' */ PATH_CHAR_CLASS_ANY, /* 't' */ PATH_CHAR_CLASS_ANY, /* 'u' */ PATH_CHAR_CLASS_ANY, /* 'v' */ PATH_CHAR_CLASS_ANY, /* 'w' */ PATH_CHAR_CLASS_ANY, /* 'x' */ PATH_CHAR_CLASS_ANY, /* 'y' */ PATH_CHAR_CLASS_ANY, /* 'z' */ PATH_CHAR_CLASS_ANY, /* '{' */ PATH_CHAR_CLASS_OTHER_VALID, /* '|' */ PATH_CHAR_CLASS_INVALID, /* '}' */ PATH_CHAR_CLASS_OTHER_VALID, /* '~' */ PATH_CHAR_CLASS_OTHER_VALID }; /************************************************************************* * @ [SHLWAPI.455] * * Check if an ASCII char is of a certain class */ BOOL WINAPI PathIsValidCharA( char c, DWORD class ) { if ((unsigned)c > 0x7e) return class & PATH_CHAR_CLASS_OTHER_VALID; return class & SHELL_charclass[(unsigned)c]; } /************************************************************************* * @ [SHLWAPI.456] * * Check if a Unicode char is of a certain class */ BOOL WINAPI PathIsValidCharW( WCHAR c, DWORD class ) { if (c > 0x7e) return class & PATH_CHAR_CLASS_OTHER_VALID; return class & SHELL_charclass[c]; }