git.oblomov.eu Git - wine/blob - programs/winefile/splitpath.c

   1 /*
   2  * Copyright 2000, 2004 Martin Fuchs
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17  */
  18
  19 #define WIN32_LEAN_AND_MEAN
  20 #define WIN32_EXTRA_LEAN
  21
  22 #include <windows.h>
  23 #include "winefile.h"
  24
  25
  26 #ifdef __WINE__
  27 #ifdef UNICODE
  28
  29 void _wsplitpath(const WCHAR* path, WCHAR* drv, WCHAR* dir, WCHAR* name, WCHAR* ext)
  30 {
  31         const WCHAR* end; /* end of processed string */
  32         const WCHAR* p;   /* search pointer */
  33         const WCHAR* s;   /* copy pointer */
  34
  35         /* extract drive name */
  36         if (path[0] && path[1]==':') {
  37                 if (drv) {
  38                         *drv++ = *path++;
  39                         *drv++ = *path++;
  40                         *drv = L'\0';
  41                 }
  42         } else if (drv)
  43                 *drv = L'\0';
  44
  45         /* search for end of string or stream separator */
  46         for(end=path; *end && *end!=L':'; )
  47                 end++;
  48
  49         /* search for begin of file extension */
  50         for(p=end; p>path && *--p!=L'\\' && *p!=L'/'; )
  51                 if (*p == L'.') {
  52                         end = p;
  53                         break;
  54                 }
  55
  56         if (ext)
  57                 for(s=end; (*ext=*s++); )
  58                         ext++;
  59
  60         /* search for end of directory name */
  61         for(p=end; p>path; )
  62                 if (*--p=='\\' || *p=='/') {
  63                         p++;
  64                         break;
  65                 }
  66
  67         if (name) {
  68                 for(s=p; s<end; )
  69                         *name++ = *s++;
  70
  71                 *name = L'\0';
  72         }
  73
  74         if (dir) {
  75                 for(s=path; s<p; )
  76                         *dir++ = *s++;
  77
  78                 *dir = L'\0';
  79         }
  80 }
  81
  82 #else /* UNICODE */
  83
  84 void _splitpath(const CHAR* path, CHAR* drv, CHAR* dir, CHAR* name, CHAR* ext)
  85 {
  86         const CHAR* end; /* end of processed string */
  87         const CHAR* p;   /* search pointer */
  88         const CHAR* s;   /* copy pointer */
  89
  90         /* extract drive name */
  91         if (path[0] && path[1]==':') {
  92                 if (drv) {
  93                         *drv++ = *path++;
  94                         *drv++ = *path++;
  95                         *drv = '\0';
  96                 }
  97         } else if (drv)
  98                 *drv = '\0';
  99
 100         /* search for end of string or stream separator */
 101         for(end=path; *end && *end!=':'; )
 102                 end++;
 103
 104         /* search for begin of file extension */
 105         for(p=end; p>path && *--p!='\\' && *p!='/'; )
 106                 if (*p == '.') {
 107                         end = p;
 108                         break;
 109                 }
 110
 111         if (ext)
 112                 for(s=end; (*ext=*s++); )
 113                         ext++;
 114
 115         /* search for end of directory name */
 116         for(p=end; p>path; )
 117                 if (*--p=='\\' || *p=='/') {
 118                         p++;
 119                         break;
 120                 }
 121
 122         if (name) {
 123                 for(s=p; s<end; )
 124                         *name++ = *s++;
 125
 126                 *name = '\0';
 127         }
 128
 129         if (dir) {
 130                 for(s=path; s<p; )
 131                         *dir++ = *s++;
 132
 133                 *dir = '\0';
 134         }
 135 }
 136
 137 #endif /* UNICODE */
 138 #endif /* __WINE__ */
 139
 140
 141 /*
 142 void main()     // test splipath()
 143 {
 144         TCHAR drv[_MAX_DRIVE+1], dir[_MAX_DIR], name[_MAX_FNAME], ext[_MAX_EXT];
 145
 146         _tsplitpath(L"x\\y", drv, dir, name, ext);
 147         _tsplitpath(L"x\\", drv, dir, name, ext);
 148         _tsplitpath(L"\\x", drv, dir, name, ext);
 149         _tsplitpath(L"x", drv, dir, name, ext);
 150         _tsplitpath(L"", drv, dir, name, ext);
 151         _tsplitpath(L".x", drv, dir, name, ext);
 152         _tsplitpath(L":x", drv, dir, name, ext);
 153         _tsplitpath(L"a:x", drv, dir, name, ext);
 154         _tsplitpath(L"a.b:x", drv, dir, name, ext);
 155         _tsplitpath(L"W:\\/\\abc/Z:~", drv, dir, name, ext);
 156         _tsplitpath(L"abc.EFGH:12345", drv, dir, name, ext);
 157         _tsplitpath(L"C:/dos/command.com", drv, dir, name, ext);
 158 }
 159 */