dlls/shell32/shellpath.c

   1 /*
   2  * Path Functions
   3  *
   4  * Many of this functions are in SHLWAPI.DLL also
   5  *
   6  */
   7 #include <stdlib.h>
   8 #include <string.h>
   9 #include <ctype.h>
  10 #include "windows.h"
  11 #include "winerror.h"
  12 #include "file.h"
  13 #include "shell.h"
  14 #include "shlobj.h"
  15 #include "debug.h"
  16 #include "winnls.h"
  17 #include "winversion.h"
  18 #include "shell32_main.h"
  19
  20 /*************************************************************************
  21  * PathIsRoot [SHELL32.29]
  22  */
  23 BOOL32 WINAPI PathIsRoot32A(LPCSTR x)
  24 {       TRACE(shell,"%s\n",x);
  25         if (*(x+1)==':' && *(x+2)=='\\')                /* "X:\" */
  26           return 1;
  27         if (*x=='\\')           /* "\" */
  28           return 0;
  29         if (x[0]=='\\' && x[1]=='\\')           /* UNC "\\<xx>\" */
  30         { int   foundbackslash = 0;
  31           x=x+2;
  32           while (*x)
  33           { if (*x++=='\\')
  34               foundbackslash++;
  35           }
  36           if (foundbackslash<=1)        /* max 1 \ more ... */
  37             return 1;
  38         }
  39         return 0;
  40 }
  41 BOOL32 WINAPI PathIsRoot32W(LPCWSTR x)
  42 {       TRACE(shell,"%s\n",debugstr_w(x));
  43         if (*(x+1)==':' && *(x+2)=='\\')                /* "X:\" */
  44           return 1;
  45         if (*x == (WCHAR) '\\')         /* "\" */
  46           return 0;
  47         if (x[0]==(WCHAR)'\\' && x[1]==(WCHAR)'\\')     /* UNC "\\<xx>\" */
  48         { int   foundbackslash = 0;
  49           x=x+2;
  50           while (*x)
  51           { if (*x++==(WCHAR)'\\')
  52               foundbackslash++;
  53           }
  54           if (foundbackslash<=1)        /* max 1 \ more ... */
  55             return 1;
  56         }
  57         return 0;
  58 }
  59 BOOL32 WINAPI PathIsRoot32AW(LPCVOID x)
  60 {       if (VERSION_OsIsUnicode())
  61           return PathIsRoot32W(x);
  62         return PathIsRoot32A(x);
  63
  64 }
  65 /*************************************************************************
  66  * PathBuildRoot [SHELL32.30]
  67  */
  68 LPSTR WINAPI PathBuildRoot(LPSTR root,BYTE drive) {
  69   TRACE(shell,"%p %i\n",root, drive);
  70         strcpy(root,"A:\\");
  71         root[0]+=drive;
  72         return root;
  73 }
  74
  75 /*************************************************************************
  76  * PathFindExtension [SHELL32.31]
  77  *
  78  * NOTES
  79  *     returns pointer to last . in last pathcomponent or at \0.
  80  */
  81 LPCSTR WINAPI PathFindExtension32A(LPCSTR path)
  82 {       LPCSTR   lastpoint = NULL;
  83         TRACE(shell,"%p %s\n",path,path);
  84         while (*path)
  85         { if (*path=='\\'||*path==' ')
  86             lastpoint=NULL;
  87           if (*path=='.')
  88             lastpoint=path;
  89           path++;
  90         }
  91         return lastpoint?lastpoint:path;
  92 }
  93 LPCWSTR WINAPI PathFindExtension32W(LPCWSTR path)
  94 {       LPCWSTR   lastpoint = NULL;
  95         TRACE(shell,"%p L%s\n",path,debugstr_w(path));
  96         while (*path)
  97         { if (*path==(WCHAR)'\\'||*path==(WCHAR)' ')
  98             lastpoint=NULL;
  99           if (*path==(WCHAR)'.')
 100             lastpoint=path;
 101           path++;
 102         }
 103         return lastpoint?lastpoint:path;
 104 }
 105 LPCVOID WINAPI PathFindExtension32AW(LPCVOID path)
 106 {       if (VERSION_OsIsUnicode())
 107           return PathFindExtension32W(path);
 108         return PathFindExtension32A(path);
 109
 110 }
 111
 112 /*************************************************************************
 113  * PathAddBackslash [SHELL32.32]
 114  *
 115  * NOTES
 116  *     append \ if there is none
 117  */
 118 LPSTR WINAPI PathAddBackslash32A(LPSTR path)
 119 {       int len;
 120         TRACE(shell,"%p->%s\n",path,path);
 121
 122         len = strlen(path);
 123         if (len && path[len-1]!='\\')
 124         { path[len]  = '\\';
 125           path[len+1]= 0x00;
 126           return path+len+1;
 127         }
 128         return path+len;
 129 }
 130 LPWSTR WINAPI PathAddBackslash32W(LPWSTR path)
 131 {       int len;
 132         TRACE(shell,"%p->%s\n",path,debugstr_w(path));
 133
 134         len = lstrlen32W(path);
 135         if (len && path[len-1]!=(WCHAR)'\\')
 136         { path[len]  = (WCHAR)'\\';
 137           path[len+1]= 0x00;
 138           return path+len+1;
 139         }
 140         return path+len;
 141 }
 142 LPVOID WINAPI PathAddBackslash32AW(LPVOID path)
 143 {       if(VERSION_OsIsUnicode())
 144           return PathAddBackslash32W(path);
 145         return PathAddBackslash32A(path);
 146 }
 147
 148 /*************************************************************************
 149  * PathRemoveBlanks [SHELL32.33]
 150  *
 151  * NOTES
 152  *     remove spaces from beginning and end of passed string
 153  */
 154 LPSTR WINAPI PathRemoveBlanks32A(LPSTR str)
 155 {       LPSTR x = str;
 156         TRACE(shell,"%s\n",str);
 157         while (*x==' ') x++;
 158         if (x!=str)
 159           strcpy(str,x);
 160         if (!*str)
 161           return str;
 162         x=str+strlen(str)-1;
 163         while (*x==' ')
 164           x--;
 165         if (*x==' ')
 166           *x='\0';
 167         return x;
 168 }
 169 LPWSTR WINAPI PathRemoveBlanks32W(LPWSTR str)
 170 {       LPWSTR x = str;
 171         TRACE(shell,"%s\n",debugstr_w(str));
 172         while (*x==' ') x++;
 173         if (x!=str)
 174           lstrcpy32W(str,x);
 175         if (!*str)
 176           return str;
 177         x=str+lstrlen32W(str)-1;
 178         while (*x==' ')
 179           x--;
 180         if (*x==' ')
 181           *x='\0';
 182         return x;
 183 }
 184 LPVOID WINAPI PathRemoveBlanks32AW(LPVOID str)
 185 {       if(VERSION_OsIsUnicode())
 186           return PathRemoveBlanks32W(str);
 187         return PathRemoveBlanks32A(str);
 188 }
 189
 190
 191
 192 /*************************************************************************
 193  * PathFindFilename [SHELL32.34]
 194  *
 195  * NOTES
 196  *     basename(char *fn);
 197  */
 198 LPCSTR WINAPI PathFindFilename32A(LPCSTR aptr)
 199 {       LPCSTR aslash;
 200         aslash = aptr;
 201
 202         TRACE(shell,"%s\n",aslash);
 203         while (aptr[0])
 204         { if (((aptr[0]=='\\') || (aptr[0]==':')) && aptr[1] && aptr[1]!='\\')
 205               aslash = aptr+1;
 206           aptr++;
 207         }
 208         return aslash;
 209
 210 }
 211 LPCWSTR WINAPI PathFindFilename32W(LPCWSTR wptr)
 212 {       LPCWSTR wslash;
 213         wslash = wptr;
 214
 215         TRACE(shell,"L%s\n",debugstr_w(wslash));
 216         while (wptr[0])
 217         { if (((wptr[0]=='\\') || (wptr[0]==':')) && wptr[1] && wptr[1]!='\\')
 218             wslash = wptr+1;
 219           wptr++;
 220         }
 221         return wslash;
 222 }
 223 LPCVOID WINAPI PathFindFilename32AW(LPCVOID fn)
 224 {
 225         if(VERSION_OsIsUnicode())
 226           return PathFindFilename32W(fn);
 227         return PathFindFilename32A(fn);
 228 }
 229
 230 /*************************************************************************
 231  * PathRemoveFileSpec [SHELL32.35]
 232  *
 233  * NOTES
 234  *     bool getpath(char *pathname); truncates passed argument to a valid path
 235  *     returns if the string was modified or not.
 236  *     "\foo\xx\foo"-> "\foo\xx"
 237  *     "\" -> "\"
 238  *     "a:\foo" -> "a:\"
 239  */
 240 DWORD WINAPI PathRemoveFileSpec(LPSTR fn) {
 241         LPSTR   x,cutplace;
 242   TRACE(shell,"%s\n",fn);
 243         if (!fn[0])
 244                 return 0;
 245         x=fn;
 246         cutplace = fn;
 247         while (*x) {
 248                 if (*x=='\\') {
 249                         cutplace=x++;
 250                         continue;
 251                 }
 252                 if (*x==':') {
 253                         x++;
 254                         if (*x=='\\')
 255                                 cutplace=++x;
 256                         continue; /* already x++ed */
 257                 }
 258                 x++;
 259         }
 260         if (!*cutplace)
 261                 return 0;
 262         if (cutplace==fn) {
 263                 if (fn[0]=='\\') {
 264                         if (!fn[1])
 265                                 return 0;
 266                         fn[0]='\0';
 267                         return 1;
 268                 }
 269         }
 270         *cutplace='\0';
 271         return 1;
 272 }
 273
 274 /*************************************************************************
 275  * PathAppend [SHELL32.36]
 276  *
 277  * NOTES
 278  *     concat_paths(char*target,const char*add);
 279  *     concats "target\\add" and writes them to target
 280  */
 281 LPSTR WINAPI PathAppend(LPSTR x1,LPSTR x2) {
 282   TRACE(shell,"%s %s\n",x1,x2);
 283   while (x2[0]=='\\') x2++;
 284   return PathCombine32A(x1,x1,x2);
 285 }
 286
 287 /*************************************************************************
 288  * PathCombine [SHELL32.37]
 289  *
 290  * NOTES
 291  *  if lpszFile='.' skip it
 292  *  szDest can be equal to lpszFile. Thats why we use sTemp
 293  */
 294 LPSTR WINAPI PathCombine32A(LPSTR szDest, LPCSTR lpszDir, LPCSTR lpszFile)
 295 {       char sTemp[MAX_PATH];
 296         TRACE(shell,"%p %p->%s %p->%s\n",szDest, lpszDir, lpszDir, lpszFile, lpszFile);
 297
 298
 299         if (!lpszFile || !lpszFile[0] || (lpszFile[0]=='.' && !lpszFile[1]) )
 300         { strcpy(szDest,lpszDir);
 301           return szDest;
 302         }
 303
 304         /*  if lpszFile is a complete path don't care about lpszDir */
 305         if (PathIsRoot32A(lpszFile))
 306         { strcpy(szDest,lpszFile);
 307         }
 308         strcpy(sTemp,lpszDir);
 309         PathAddBackslash32A(sTemp);
 310         strcat(sTemp,lpszFile);
 311         strcpy(szDest,sTemp);
 312         return szDest;
 313 }
 314 LPWSTR WINAPI PathCombine32W(LPWSTR szDest, LPCWSTR lpszDir, LPCWSTR lpszFile)
 315 {       WCHAR sTemp[MAX_PATH];
 316         TRACE(shell,"%p %p->%s %p->%s\n",szDest, lpszDir, debugstr_w(lpszDir),
 317                          lpszFile, debugstr_w(lpszFile));
 318
 319
 320         if (!lpszFile || !lpszFile[0] || (lpszFile[0]==(WCHAR)'.' && !lpszFile[1]) )
 321         { lstrcpy32W(szDest,lpszDir);
 322           return szDest;
 323         }
 324
 325         /*  if lpszFile is a complete path don't care about lpszDir */
 326         if (PathIsRoot32W(lpszFile))
 327         { lstrcpy32W(szDest,lpszFile);
 328         }
 329         lstrcpy32W(sTemp,lpszDir);
 330         PathAddBackslash32W(sTemp);
 331         lstrcat32W(sTemp,lpszFile);
 332         lstrcpy32W(szDest,sTemp);
 333         return szDest;
 334 }
 335 LPVOID WINAPI PathCombine32AW(LPVOID szDest, LPCVOID lpszDir, LPCVOID lpszFile)
 336 {       if (VERSION_OsIsUnicode())
 337           return PathCombine32W( szDest, lpszDir, lpszFile );
 338         return PathCombine32A( szDest, lpszDir, lpszFile );
 339 }
 340
 341 /*************************************************************************
 342  * PathIsUNC [SHELL32.39]
 343  *
 344  * NOTES
 345  *     PathIsUNC(char*path);
 346  */
 347 BOOL32 WINAPI PathIsUNC(LPCSTR path) {
 348   TRACE(shell,"%s\n",path);
 349         if ((path[0]=='\\') && (path[1]=='\\'))
 350                 return TRUE;
 351         return FALSE;
 352 }
 353 /*************************************************************************
 354  *  PathIsExe [SHELL32.43]
 355  *
 356  */
 357 BOOL32 WINAPI PathIsExe (LPCSTR path)
 358 {  TRACE(shell,"path=%s\n",path);
 359     return FALSE;
 360 }
 361
 362 /*************************************************************************
 363  * PathFileExists [SHELL32.45]
 364  *
 365  * NOTES
 366  *     file_exists(char *fn);
 367  */
 368 BOOL32 WINAPI PathFileExists(LPSTR fn) {
 369   TRACE(shell,"%s\n",fn);
 370    if (GetFileAttributes32A(fn)==-1)
 371         return FALSE;
 372     else
 373         return TRUE;
 374 }
 375 /*************************************************************************
 376  * PathMatchSpec [SHELL32.46]
 377  *
 378  * NOTES
 379  *     used from COMDLG32
 380  */
 381
 382 BOOL32 WINAPI PathMatchSpec32A(LPCSTR name, LPCSTR mask)
 383 {       LPCSTR _name;
 384
 385         TRACE(shell,"%s %s stub\n",name,mask);
 386
 387         _name = name;
 388         while (*_name && *mask)
 389         { if (*mask ==';')
 390           { mask++;
 391             _name = name;
 392           }
 393           else if (*mask == '*')
 394           { mask++;
 395             while (*mask == '*') mask++;                /* Skip consecutive '*' */
 396             if (!*mask || *mask==';') return TRUE;      /* '*' matches everything */
 397             while (*_name && (toupper(*_name) != toupper(*mask))) _name++;
 398             if (!*_name)
 399             { while ( *mask && *mask != ';') mask++;
 400               _name = name;
 401             }
 402           }
 403           else if ( (*mask == '?') || (toupper(*mask) == toupper(*_name)) )
 404           { mask++;
 405             _name++;
 406           }
 407           else
 408           { while ( *mask && *mask != ';') mask++;
 409           }
 410         }
 411         return (!*_name && (!*mask || *mask==';'));
 412 }
 413 BOOL32 WINAPI PathMatchSpec32W(LPCWSTR name, LPCWSTR mask)
 414 {       WCHAR stemp[4];
 415         LPCWSTR _name;
 416
 417         TRACE(shell,"%s %s stub\n",debugstr_w(name),debugstr_w(mask));
 418
 419         lstrcpyAtoW(stemp,"*.*");
 420         if (!lstrcmp32W( mask, stemp )) return 1;
 421
 422         _name = name;
 423         while (*_name && *mask)
 424         { if (*mask ==';')
 425           { mask++;
 426             _name = name;
 427           }
 428           else if (*mask == '*')
 429           { mask++;
 430             while (*mask == '*') mask++;                /* Skip consecutive '*' */
 431             if (!*mask || *mask==';') return TRUE;      /* '*' matches everything */
 432             while (*_name && (towupper(*_name) != towupper(*mask))) _name++;
 433             if (!*_name)
 434             { while ( *mask && *mask != ';') mask++;
 435               _name = name;
 436             }
 437           }
 438           else if ( (*mask == '?') || (towupper(*mask) == towupper(*_name)) )
 439           { mask++;
 440             _name++;
 441           }
 442           else
 443           { while ( *mask && *mask != ';') mask++;
 444           }
 445         }
 446         return (!*_name && (!*mask || *mask==';'));
 447 }
 448 BOOL32 WINAPI PathMatchSpec32AW(LPVOID name, LPVOID mask)
 449 {       if (VERSION_OsIsUnicode())
 450           return PathMatchSpec32W( name, mask );
 451         return PathMatchSpec32A( name, mask );
 452 }
 453 /*************************************************************************
 454  * PathSetDlgItemPath32AW [SHELL32.48]
 455  * NOTES
 456  *  use PathCompactPath to make sure, the path fits into the control
 457  */
 458
 459 BOOL32 WINAPI PathSetDlgItemPath32A(HWND32 hDlg, int id, LPCSTR pszPath)
 460 {       TRACE(shell,"%x %x %s\n",hDlg, id, pszPath);
 461         return SetDlgItemText32A(hDlg, id, pszPath);
 462 }
 463 BOOL32 WINAPI PathSetDlgItemPath32W(HWND32 hDlg, int id, LPCWSTR pszPath)
 464 {       TRACE(shell,"%x %x %s\n",hDlg, id, debugstr_w(pszPath));
 465         return SetDlgItemText32W(hDlg, id, pszPath);
 466 }
 467 BOOL32 WINAPI PathSetDlgItemPath32AW(HWND32 hDlg, int id, LPCVOID pszPath)
 468 {       if (VERSION_OsIsUnicode())
 469           return PathSetDlgItemPath32W(hDlg, id, pszPath);
 470         return PathSetDlgItemPath32A(hDlg, id, pszPath);
 471 }
 472
 473 /*************************************************************************
 474  * PathResolve [SHELL32.51]
 475  */
 476 DWORD WINAPI PathResolve(LPCSTR s,DWORD x2,DWORD x3) {
 477         FIXME(shell,"(%s,0x%08lx,0x%08lx),stub!\n",s,x2,x3);
 478         return 0;
 479 }
 480
 481 /*************************************************************************
 482  * PathGetArgs [SHELL32.52]
 483  *
 484  * NOTES
 485  *     look for next arg in string. handle "quoted" strings
 486  *     returns pointer to argument *AFTER* the space. Or to the \0.
 487  */
 488 LPVOID WINAPI PathGetArgs(LPVOID cmdline)
 489 {       BOOL32  qflag = FALSE;
 490         LPWSTR wptr;
 491         LPSTR aptr;
 492
 493         if (VERSION_OsIsUnicode())
 494         { TRACE(shell,"%sL\n",debugstr_w((LPWSTR)cmdline));
 495           wptr=(LPWSTR) cmdline;
 496           while (*wptr)
 497           { if ((*wptr==' ') && !qflag)
 498                 return wptr+1;
 499             if (*wptr=='"')
 500                 qflag=!qflag;
 501             wptr++;
 502           }
 503           return (LPVOID) wptr;
 504         }
 505         TRACE(shell,"%s\n",(LPSTR)cmdline);
 506         aptr=(LPSTR) cmdline;
 507         while (*aptr)
 508         { if ((*aptr==' ') && !qflag)
 509             return aptr+1;
 510           if (*aptr=='"')
 511             qflag=!qflag;
 512           aptr++;
 513         }
 514         return (LPVOID) aptr;
 515 }
 516 /*************************************************************************
 517  * PathQuoteSpaces [SHELL32.55]
 518  *
 519  * NOTES
 520  *     basename(char *fn);
 521  */
 522 LPSTR WINAPI PathQuoteSpaces32A(LPCSTR aptr)
 523 {       FIXME(shell,"%s\n",aptr);
 524         return 0;
 525
 526 }
 527 LPWSTR WINAPI PathQuoteSpaces32W(LPCWSTR wptr)
 528 {       FIXME(shell,"L%s\n",debugstr_w(wptr));
 529         return 0;
 530 }
 531 LPVOID WINAPI PathQuoteSpaces32AW (LPCVOID fn)
 532 {       if(VERSION_OsIsUnicode())
 533           return PathQuoteSpaces32W(fn);
 534         return PathQuoteSpaces32A(fn);
 535 }
 536
 537
 538 /*************************************************************************
 539  * PathUnquoteSpaces [SHELL32.56]
 540  *
 541  * NOTES
 542  *     unquote string (remove ")
 543  */
 544 VOID WINAPI PathUnquoteSpaces(LPSTR str) {
 545     DWORD      len = lstrlen32A(str);
 546     TRACE(shell,"%s\n",str);
 547     if (*str!='"') return;
 548     if (str[len-1]!='"') return;
 549     str[len-1]='\0';
 550     lstrcpy32A(str,str+1);
 551     return;
 552 }
 553
 554 /*************************************************************************
 555  * PathGetDriveNumber32 [SHELL32.57]
 556  *
 557  */
 558 HRESULT WINAPI PathGetDriveNumber32(LPSTR u)
 559 {       FIXME(shell,"%s stub\n",debugstr_a(u));
 560         return 0;
 561 }
 562
 563 /*************************************************************************
 564  * PathYetAnotherMakeUniqueName [SHELL32.75]
 565  *
 566  * NOTES
 567  *     exported by ordinal
 568  */
 569 BOOL32 WINAPI PathYetAnotherMakeUniqueName(LPDWORD x,LPDWORD y) {
 570     FIXME(shell,"(%p,%p):stub.\n",x,y);
 571     return TRUE;
 572 }
 573
 574 /*************************************************************************
 575  * IsLFNDrive [SHELL32.119]
 576  *
 577  * NOTES
 578  *     exported by ordinal Name
 579  */
 580 BOOL32 WINAPI IsLFNDrive(LPCSTR path) {
 581     DWORD       fnlen;
 582
 583     if (!GetVolumeInformation32A(path,NULL,0,NULL,&fnlen,NULL,NULL,0))
 584         return FALSE;
 585     return fnlen>12;
 586 }
 587 /*************************************************************************
 588  * PathGetExtension [SHELL32.158]
 589  *
 590  * NOTES
 591  *     exported by ordinal
 592  */
 593 LPCSTR WINAPI PathGetExtension32A(LPCSTR path,DWORD y,DWORD z)
 594 {       TRACE(shell,"(%s,%08lx,%08lx)\n",path,y,z);
 595         path = PathFindExtension32A(path);
 596         return *path?(path+1):path;
 597 }
 598 LPCWSTR WINAPI PathGetExtension32W(LPCWSTR path,DWORD y,DWORD z)
 599 {       TRACE(shell,"(L%s,%08lx,%08lx)\n",debugstr_w(path),y,z);
 600         path = PathFindExtension32W(path);
 601         return *path?(path+1):path;
 602 }
 603 LPCVOID WINAPI PathGetExtension32AW(LPCVOID path,DWORD y,DWORD z)
 604 {       if (VERSION_OsIsUnicode())
 605           return PathGetExtension32W(path,y,z);
 606         return PathGetExtension32A(path,y,z);
 607 }
 608
 609 /*************************************************************************
 610  * SheGetDirW [SHELL32.281]
 611  *
 612  */
 613 HRESULT WINAPI SheGetDir32W(LPWSTR u, LPWSTR v)
 614 {       FIXME(shell,"%s %s stub\n",debugstr_w(u),debugstr_w(v) );
 615         return 0;
 616 }
 617
 618 /*************************************************************************
 619  * SheChangeDirW [SHELL32.274]
 620  *
 621  */
 622 HRESULT WINAPI SheChangeDir32W(LPWSTR u)
 623 {       FIXME(shell,"(%s),stub\n",debugstr_w(u));
 624         return 0;
 625 }
 626
 627 /*************************************************************************
 628 *       PathProcessCommand      [SHELL32.653]
 629 */
 630 HRESULT WINAPI PathProcessCommand (DWORD u, DWORD v, DWORD w, DWORD x)
 631 {       FIXME(shell,"0x%04lx 0x%04lx 0x%04lx 0x%04lx stub\n",u,v,w,x);
 632         return 0;
 633 }