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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "winefile.h"
  20
  21
  22 #ifdef __WINE__
  23 #ifdef UNICODE
  24
  25 void _wsplitpath(const WCHAR* path, WCHAR* drv, WCHAR* dir, WCHAR* name, WCHAR* ext)
  26 {
  27         const WCHAR* end; /* end of processed string */
  28         const WCHAR* p;   /* search pointer */
  29         const WCHAR* s;   /* copy pointer */
  30
  31         /* extract drive name */
  32         if (path[0] && path[1]==':') {
  33                 if (drv) {
  34                         *drv++ = *path++;
  35                         *drv++ = *path++;
  36                         *drv = '\0';
  37                 }
  38         } else if (drv)
  39                 *drv = '\0';
  40
  41         /* search for end of string or stream separator */
  42         for(end=path; *end && *end!=':'; )
  43                 end++;
  44
  45         /* search for begin of file extension */
  46         for(p=end; p>path && *--p!='\\' && *p!='/'; )
  47                 if (*p == '.') {
  48                         end = p;
  49                         break;
  50                 }
  51
  52         if (ext)
  53                 for(s=end; (*ext=*s++); )
  54                         ext++;
  55
  56         /* search for end of directory name */
  57         for(p=end; p>path; )
  58                 if (*--p=='\\' || *p=='/') {
  59                         p++;
  60                         break;
  61                 }
  62
  63         if (name) {
  64                 for(s=p; s<end; )
  65                         *name++ = *s++;
  66
  67                 *name = '\0';
  68         }
  69
  70         if (dir) {
  71                 for(s=path; s<p; )
  72                         *dir++ = *s++;
  73
  74                 *dir = '\0';
  75         }
  76 }
  77
  78 #else /* UNICODE */
  79
  80 void _splitpath(const CHAR* path, CHAR* drv, CHAR* dir, CHAR* name, CHAR* ext)
  81 {
  82         const CHAR* end; /* end of processed string */
  83         const CHAR* p;   /* search pointer */
  84         const CHAR* s;   /* copy pointer */
  85
  86         /* extract drive name */
  87         if (path[0] && path[1]==':') {
  88                 if (drv) {
  89                         *drv++ = *path++;
  90                         *drv++ = *path++;
  91                         *drv = '\0';
  92                 }
  93         } else if (drv)
  94                 *drv = '\0';
  95
  96         /* search for end of string or stream separator */
  97         for(end=path; *end && *end!=':'; )
  98                 end++;
  99
 100         /* search for begin of file extension */
 101         for(p=end; p>path && *--p!='\\' && *p!='/'; )
 102                 if (*p == '.') {
 103                         end = p;
 104                         break;
 105                 }
 106
 107         if (ext)
 108                 for(s=end; (*ext=*s++); )
 109                         ext++;
 110
 111         /* search for end of directory name */
 112         for(p=end; p>path; )
 113                 if (*--p=='\\' || *p=='/') {
 114                         p++;
 115                         break;
 116                 }
 117
 118         if (name) {
 119                 for(s=p; s<end; )
 120                         *name++ = *s++;
 121
 122                 *name = '\0';
 123         }
 124
 125         if (dir) {
 126                 for(s=path; s<p; )
 127                         *dir++ = *s++;
 128
 129                 *dir = '\0';
 130         }
 131 }
 132
 133 #endif /* UNICODE */
 134 #endif /* __WINE__ */
 135
 136
 137 /*
 138 void main()     // test splipath()
 139 {
 140         TCHAR drv[_MAX_DRIVE+1], dir[_MAX_DIR], name[_MAX_FNAME], ext[_MAX_EXT];
 141
 142         _tsplitpath(L"x\\y", drv, dir, name, ext);
 143         _tsplitpath(L"x\\", drv, dir, name, ext);
 144         _tsplitpath(L"\\x", drv, dir, name, ext);
 145         _tsplitpath(L"x", drv, dir, name, ext);
 146         _tsplitpath(L"", drv, dir, name, ext);
 147         _tsplitpath(L".x", drv, dir, name, ext);
 148         _tsplitpath(L":x", drv, dir, name, ext);
 149         _tsplitpath(L"a:x", drv, dir, name, ext);
 150         _tsplitpath(L"a.b:x", drv, dir, name, ext);
 151         _tsplitpath(L"W:\\/\\abc/Z:~", drv, dir, name, ext);
 152         _tsplitpath(L"abc.EFGH:12345", drv, dir, name, ext);
 153         _tsplitpath(L"C:/dos/command.com", drv, dir, name, ext);
 154 }
 155 */