209 lines
7 KiB
C
209 lines
7 KiB
C
|
/***
|
||
|
|
*splitpath.c - break down path name into components
|
||
|
|
*
|
||
|
|
* Copyright (c) 1987-2001, Microsoft Corporation. All rights reserved.
|
||
|
|
*
|
||
|
|
*Purpose:
|
||
|
|
* To provide support for accessing the individual components of an
|
||
|
|
* arbitrary path name
|
||
|
|
*
|
||
|
|
*Revision History:
|
||
|
|
* 06-14-87 DFW initial implementation
|
||
|
|
* 09-23-87 JCR Removed 'const' from declarations (fixed cl warnings)
|
||
|
|
* 12-11-87 JCR Added "_LOAD_DS" to declaration
|
||
|
|
* 11-20-89 GJF Fixed indents, copyright. Added const attribute to
|
||
|
|
* type of path.
|
||
|
|
* 03-15-90 GJF Replaced _LOAD_DS with _CALLTYPE1 and added #include
|
||
|
|
* <cruntime.h>.
|
||
|
|
* 07-25-90 SBM Removed redundant include (stdio.h), replaced local
|
||
|
|
* MIN macro with standard min macro
|
||
|
|
* 10-04-90 GJF New-style function declarator.
|
||
|
|
* 01-22-91 GJF ANSI naming.
|
||
|
|
* 11-20-92 KRS Port _MBCS support from 16-bit tree.
|
||
|
|
* 05-12-93 KRS Add fix for MBCS max path handling.
|
||
|
|
* 12-07-93 CFW Wide char enable.
|
||
|
|
* 10-15-95 BWT _NTSUBSET_ doesn't do MBCS here.
|
||
|
|
* 09-09-96 JWM Test length of input string before accessing (Orion 7985).
|
||
|
|
* 04-28-98 GJF No more _ISLEADBYTE macro.
|
||
|
|
*
|
||
|
|
*******************************************************************************/
|
||
|
|
|
||
|
|
#ifdef _NTSUBSET_
|
||
|
|
#undef _MBCS
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <cruntime.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
#ifdef _MBCS
|
||
|
|
#include <mbstring.h>
|
||
|
|
#include <mbctype.h>
|
||
|
|
#include <mbdata.h>
|
||
|
|
#endif
|
||
|
|
#include <tchar.h>
|
||
|
|
|
||
|
|
/***
|
||
|
|
*_splitpath() - split a path name into its individual components
|
||
|
|
*
|
||
|
|
*Purpose:
|
||
|
|
* to split a path name into its individual components
|
||
|
|
*
|
||
|
|
*Entry:
|
||
|
|
* path - pointer to path name to be parsed
|
||
|
|
* drive - pointer to buffer for drive component, if any
|
||
|
|
* dir - pointer to buffer for subdirectory component, if any
|
||
|
|
* fname - pointer to buffer for file base name component, if any
|
||
|
|
* ext - pointer to buffer for file name extension component, if any
|
||
|
|
*
|
||
|
|
*Exit:
|
||
|
|
* drive - pointer to drive string. Includes ':' if a drive was given.
|
||
|
|
* dir - pointer to subdirectory string. Includes leading and trailing
|
||
|
|
* '/' or '\', if any.
|
||
|
|
* fname - pointer to file base name
|
||
|
|
* ext - pointer to file extension, if any. Includes leading '.'.
|
||
|
|
*
|
||
|
|
*Exceptions:
|
||
|
|
*
|
||
|
|
*******************************************************************************/
|
||
|
|
|
||
|
|
void __cdecl _tsplitpath (
|
||
|
|
register const _TSCHAR *path,
|
||
|
|
_TSCHAR *drive,
|
||
|
|
_TSCHAR *dir,
|
||
|
|
_TSCHAR *fname,
|
||
|
|
_TSCHAR *ext
|
||
|
|
)
|
||
|
|
{
|
||
|
|
register _TSCHAR *p;
|
||
|
|
_TSCHAR *last_slash = NULL, *dot = NULL;
|
||
|
|
unsigned len;
|
||
|
|
|
||
|
|
/* we assume that the path argument has the following form, where any
|
||
|
|
* or all of the components may be missing.
|
||
|
|
*
|
||
|
|
* <drive><dir><fname><ext>
|
||
|
|
*
|
||
|
|
* and each of the components has the following expected form(s)
|
||
|
|
*
|
||
|
|
* drive:
|
||
|
|
* 0 to _MAX_DRIVE-1 characters, the last of which, if any, is a
|
||
|
|
* ':'
|
||
|
|
* dir:
|
||
|
|
* 0 to _MAX_DIR-1 characters in the form of an absolute path
|
||
|
|
* (leading '/' or '\') or relative path, the last of which, if
|
||
|
|
* any, must be a '/' or '\'. E.g -
|
||
|
|
* absolute path:
|
||
|
|
* \top\next\last\ ; or
|
||
|
|
* /top/next/last/
|
||
|
|
* relative path:
|
||
|
|
* top\next\last\ ; or
|
||
|
|
* top/next/last/
|
||
|
|
* Mixed use of '/' and '\' within a path is also tolerated
|
||
|
|
* fname:
|
||
|
|
* 0 to _MAX_FNAME-1 characters not including the '.' character
|
||
|
|
* ext:
|
||
|
|
* 0 to _MAX_EXT-1 characters where, if any, the first must be a
|
||
|
|
* '.'
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* extract drive letter and :, if any */
|
||
|
|
|
||
|
|
if ((_tcslen(path) >= (_MAX_DRIVE - 2)) && (*(path + _MAX_DRIVE - 2) == _T(':'))) {
|
||
|
|
if (drive) {
|
||
|
|
_tcsncpy(drive, path, _MAX_DRIVE - 1);
|
||
|
|
*(drive + _MAX_DRIVE-1) = _T('\0');
|
||
|
|
}
|
||
|
|
path += _MAX_DRIVE - 1;
|
||
|
|
}
|
||
|
|
else if (drive) {
|
||
|
|
*drive = _T('\0');
|
||
|
|
}
|
||
|
|
|
||
|
|
/* extract path string, if any. Path now points to the first character
|
||
|
|
* of the path, if any, or the filename or extension, if no path was
|
||
|
|
* specified. Scan ahead for the last occurence, if any, of a '/' or
|
||
|
|
* '\' path separator character. If none is found, there is no path.
|
||
|
|
* We will also note the last '.' character found, if any, to aid in
|
||
|
|
* handling the extension.
|
||
|
|
*/
|
||
|
|
|
||
|
|
for (last_slash = NULL, p = (_TSCHAR *)path; *p; p++) {
|
||
|
|
#ifdef _MBCS
|
||
|
|
if (_ismbblead(*p))
|
||
|
|
p++;
|
||
|
|
else {
|
||
|
|
#endif
|
||
|
|
if (*p == _T('/') || *p == _T('\\'))
|
||
|
|
/* point to one beyond for later copy */
|
||
|
|
last_slash = p + 1;
|
||
|
|
else if (*p == _T('.'))
|
||
|
|
dot = p;
|
||
|
|
#ifdef _MBCS
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
if (last_slash) {
|
||
|
|
|
||
|
|
/* found a path - copy up through last_slash or max. characters
|
||
|
|
* allowed, whichever is smaller
|
||
|
|
*/
|
||
|
|
|
||
|
|
if (dir) {
|
||
|
|
len = __min((unsigned)(((char *)last_slash - (char *)path) / sizeof(_TSCHAR)),
|
||
|
|
(_MAX_DIR - 1));
|
||
|
|
_tcsncpy(dir, path, len);
|
||
|
|
*(dir + len) = _T('\0');
|
||
|
|
}
|
||
|
|
path = last_slash;
|
||
|
|
}
|
||
|
|
else if (dir) {
|
||
|
|
|
||
|
|
/* no path found */
|
||
|
|
|
||
|
|
*dir = _T('\0');
|
||
|
|
}
|
||
|
|
|
||
|
|
/* extract file name and extension, if any. Path now points to the
|
||
|
|
* first character of the file name, if any, or the extension if no
|
||
|
|
* file name was given. Dot points to the '.' beginning the extension,
|
||
|
|
* if any.
|
||
|
|
*/
|
||
|
|
|
||
|
|
if (dot && (dot >= path)) {
|
||
|
|
/* found the marker for an extension - copy the file name up to
|
||
|
|
* the '.'.
|
||
|
|
*/
|
||
|
|
if (fname) {
|
||
|
|
len = __min((unsigned)(((char *)dot - (char *)path) / sizeof(_TSCHAR)),
|
||
|
|
(_MAX_FNAME - 1));
|
||
|
|
_tcsncpy(fname, path, len);
|
||
|
|
*(fname + len) = _T('\0');
|
||
|
|
}
|
||
|
|
/* now we can get the extension - remember that p still points
|
||
|
|
* to the terminating nul character of path.
|
||
|
|
*/
|
||
|
|
if (ext) {
|
||
|
|
len = __min((unsigned)(((char *)p - (char *)dot) / sizeof(_TSCHAR)),
|
||
|
|
(_MAX_EXT - 1));
|
||
|
|
_tcsncpy(ext, dot, len);
|
||
|
|
*(ext + len) = _T('\0');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
/* found no extension, give empty extension and copy rest of
|
||
|
|
* string into fname.
|
||
|
|
*/
|
||
|
|
if (fname) {
|
||
|
|
len = __min((unsigned)(((char *)p - (char *)path) / sizeof(_TSCHAR)),
|
||
|
|
(_MAX_FNAME - 1));
|
||
|
|
_tcsncpy(fname, path, len);
|
||
|
|
*(fname + len) = _T('\0');
|
||
|
|
}
|
||
|
|
if (ext) {
|
||
|
|
*ext = _T('\0');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|