1/**
 2 * This file has no copyright assigned and is placed in the Public Domain.
 3 * This file is part of the mingw-w64 runtime package.
 4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 5 */
 6
 7#include <sys/stat.h>
 8#include <stdlib.h>
 9
10/**
11 * Returns _path without trailing slash if any
12 *
13 * - if _path has no trailing slash, the function returns it
14 * - if _path has a trailing slash, but is of the form C:/, then it returns it
15 * - otherwise, the function creates a new string, which is a copy of _path
16 *   without the trailing slash. It is then the responsibility of the caller
17 *   to free it.
18 */
19
20wchar_t* __mingw_fix_wstat_path (const wchar_t* _path);
21wchar_t* __mingw_fix_wstat_path (const wchar_t* _path)
22{
23  int len;
24  wchar_t *p;
25
26  p = (wchar_t*)_path;
27
28  if (_path && *_path) {
29    len = wcslen (_path);
30
31    /* Ignore X:\ */
32
33    if (len <= 1 || ((len == 2 || len == 3) && _path[1] == L':'))
34      return p;
35
36    /* Check UNC \\abc\<name>\ */
37    if ((_path[0] == L'\\' || _path[0] == L'/')
38	&& (_path[1] == L'\\' || _path[1] == L'/'))
39      {
40	const wchar_t *r = &_path[2];
41	while (*r != 0 && *r != L'\\' && *r != L'/')
42	  ++r;
43	if (*r != 0)
44	  ++r;
45	if (*r == 0)
46	  return p;
47	while (*r != 0 && *r != L'\\' && *r != L'/')
48	  ++r;
49	if (*r != 0)
50	  ++r;
51	if (*r == 0)
52	  return p;
53      }
54
55    if (_path[len - 1] == L'/' || _path[len - 1] == L'\\')
56      {
57	p = (wchar_t*)malloc (len * sizeof(wchar_t));
58	memcpy (p, _path, (len - 1) * sizeof(wchar_t));
59	p[len - 1] = L'\0';
60      }
61  }
62
63  return p;
64}