programs/winefile/splitpath.c

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