1/***************************************************************************
2 *                                  _   _ ____  _
3 *  Project                     ___| | | |  _ \| |
4 *                             / __| | | | |_) | |
5 *                            | (__| |_| |  _ <| |___
6 *                             \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) 1998 - 2014, Daniel Stenberg, <daniel@haxx.se>, et al.
9 *
10 * This software is licensed as described in the file COPYING, which
11 * you should have received as part of this distribution. The terms
12 * are also available at http://curl.haxx.se/docs/copyright.html.
13 *
14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15 * copies of the Software, and permit persons to whom the Software is
16 * furnished to do so, under the terms of the COPYING file.
17 *
18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 * KIND, either express or implied.
20 *
21 ***************************************************************************/
22#include "tool_setup.h"
23
24#if defined(MSDOS) || defined(WIN32)
25
26#if defined(HAVE_LIBGEN_H) && defined(HAVE_BASENAME)
27#  include <libgen.h>
28#endif
29
30#ifdef WIN32
31#  include "tool_cfgable.h"
32#  include "tool_libinfo.h"
33#endif
34
35#include "tool_bname.h"
36#include "tool_doswin.h"
37
38#include "memdebug.h" /* keep this as LAST include */
39
40/*
41 * Macros ALWAYS_TRUE and ALWAYS_FALSE are used to avoid compiler warnings.
42 */
43
44#define ALWAYS_TRUE   (1)
45#define ALWAYS_FALSE  (0)
46
47#if defined(_MSC_VER) && !defined(__POCC__)
48#  undef ALWAYS_TRUE
49#  undef ALWAYS_FALSE
50#  if (_MSC_VER < 1500)
51#    define ALWAYS_TRUE   (0, 1)
52#    define ALWAYS_FALSE  (1, 0)
53#  else
54#    define ALWAYS_TRUE \
55__pragma(warning(push)) \
56__pragma(warning(disable:4127)) \
57(1) \
58__pragma(warning(pop))
59#    define ALWAYS_FALSE \
60__pragma(warning(push)) \
61__pragma(warning(disable:4127)) \
62(0) \
63__pragma(warning(pop))
64#  endif
65#endif
66
67#ifdef WIN32
68#  undef  PATH_MAX
69#  define PATH_MAX MAX_PATH
70#endif
71
72#ifndef S_ISCHR
73#  ifdef S_IFCHR
74#    define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
75#  else
76#    define S_ISCHR(m) (0) /* cannot tell if file is a device */
77#  endif
78#endif
79
80#ifdef WIN32
81#  define _use_lfn(f) ALWAYS_TRUE   /* long file names always available */
82#elif !defined(__DJGPP__) || (__DJGPP__ < 2)  /* DJGPP 2.0 has _use_lfn() */
83#  define _use_lfn(f) ALWAYS_FALSE  /* long file names never available */
84#elif defined(__DJGPP__)
85#  include <fcntl.h>                /* _use_lfn(f) prototype */
86#endif
87
88static const char *msdosify (const char *file_name);
89static char *rename_if_dos_device_name (char *file_name);
90
91/*
92 * sanitize_dos_name: returns a newly allocated string holding a
93 * valid file name which will be a transformation of given argument
94 * in case this wasn't already a valid file name.
95 *
96 * This function takes ownership of given argument, free'ing it before
97 * returning. Caller is responsible of free'ing returned string. Upon
98 * out of memory condition function returns NULL.
99 */
100
101char *sanitize_dos_name(char *file_name)
102{
103  char new_name[PATH_MAX];
104
105  if(!file_name)
106    return NULL;
107
108  if(strlen(file_name) >= PATH_MAX)
109    file_name[PATH_MAX-1] = '\0'; /* truncate it */
110
111  strcpy(new_name, msdosify(file_name));
112
113  Curl_safefree(file_name);
114
115  return strdup(rename_if_dos_device_name(new_name));
116}
117
118/* The following functions are taken with modification from the DJGPP
119 * port of tar 1.12. They use algorithms originally from DJTAR. */
120
121static const char *msdosify (const char *file_name)
122{
123  static char dos_name[PATH_MAX];
124  static const char illegal_chars_dos[] = ".+, ;=[]" /* illegal in DOS */
125    "|<>\\\":?*"; /* illegal in DOS & W95 */
126  static const char *illegal_chars_w95 = &illegal_chars_dos[8];
127  int idx, dot_idx;
128  const char *s = file_name;
129  char *d = dos_name;
130  const char *const dlimit = dos_name + sizeof(dos_name) - 1;
131  const char *illegal_aliens = illegal_chars_dos;
132  size_t len = sizeof(illegal_chars_dos) - 1;
133
134  /* Support for Windows 9X VFAT systems, when available. */
135  if(_use_lfn(file_name)) {
136    illegal_aliens = illegal_chars_w95;
137    len -= (illegal_chars_w95 - illegal_chars_dos);
138  }
139
140  /* Get past the drive letter, if any. */
141  if(s[0] >= 'A' && s[0] <= 'z' && s[1] == ':') {
142    *d++ = *s++;
143    *d++ = *s++;
144  }
145
146  for(idx = 0, dot_idx = -1; *s && d < dlimit; s++, d++) {
147    if(memchr(illegal_aliens, *s, len)) {
148      /* Dots are special: DOS doesn't allow them as the leading character,
149         and a file name cannot have more than a single dot.  We leave the
150         first non-leading dot alone, unless it comes too close to the
151         beginning of the name: we want sh.lex.c to become sh_lex.c, not
152         sh.lex-c.  */
153      if(*s == '.') {
154        if(idx == 0 && (s[1] == '/' || (s[1] == '.' && s[2] == '/'))) {
155          /* Copy "./" and "../" verbatim.  */
156          *d++ = *s++;
157          if(*s == '.')
158            *d++ = *s++;
159          *d = *s;
160        }
161        else if(idx == 0)
162          *d = '_';
163        else if(dot_idx >= 0) {
164          if(dot_idx < 5) { /* 5 is a heuristic ad-hoc'ery */
165            d[dot_idx - idx] = '_'; /* replace previous dot */
166            *d = '.';
167          }
168          else
169            *d = '-';
170        }
171        else
172          *d = '.';
173
174        if(*s == '.')
175          dot_idx = idx;
176      }
177      else if(*s == '+' && s[1] == '+') {
178        if(idx - 2 == dot_idx) { /* .c++, .h++ etc. */
179          *d++ = 'x';
180          *d   = 'x';
181        }
182        else {
183          /* libg++ etc.  */
184          memcpy (d, "plus", 4);
185          d += 3;
186        }
187        s++;
188        idx++;
189      }
190      else
191        *d = '_';
192    }
193    else
194      *d = *s;
195    if(*s == '/') {
196      idx = 0;
197      dot_idx = -1;
198    }
199    else
200      idx++;
201  }
202
203  *d = '\0';
204  return dos_name;
205}
206
207static char *rename_if_dos_device_name (char *file_name)
208{
209  /* We could have a file whose name is a device on MS-DOS.  Trying to
210   * retrieve such a file would fail at best and wedge us at worst.  We need
211   * to rename such files. */
212  char *base;
213  struct_stat st_buf;
214  char fname[PATH_MAX];
215
216  strncpy(fname, file_name, PATH_MAX-1);
217  fname[PATH_MAX-1] = '\0';
218  base = basename(fname);
219  if(((stat(base, &st_buf)) == 0) && (S_ISCHR(st_buf.st_mode))) {
220    size_t blen = strlen(base);
221
222    if(strlen(fname) >= PATH_MAX-1) {
223      /* Make room for the '_' */
224      blen--;
225      base[blen] = '\0';
226    }
227    /* Prepend a '_'.  */
228    memmove(base + 1, base, blen + 1);
229    base[0] = '_';
230    strcpy(file_name, fname);
231  }
232  return file_name;
233}
234
235#if defined(MSDOS) && (defined(__DJGPP__) || defined(__GO32__))
236
237/*
238 * Disable program default argument globbing. We do it on our own.
239 */
240char **__crt0_glob_function(char *arg)
241{
242  (void)arg;
243  return (char**)0;
244}
245
246#endif /* MSDOS && (__DJGPP__ || __GO32__) */
247
248#ifdef WIN32
249
250/*
251 * Function to find CACert bundle on a Win32 platform using SearchPath.
252 * (SearchPath is already declared via inclusions done in setup header file)
253 * (Use the ASCII version instead of the unicode one!)
254 * The order of the directories it searches is:
255 *  1. application's directory
256 *  2. current working directory
257 *  3. Windows System directory (e.g. C:\windows\system32)
258 *  4. Windows Directory (e.g. C:\windows)
259 *  5. all directories along %PATH%
260 *
261 * For WinXP and later search order actually depends on registry value:
262 * HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\SafeProcessSearchMode
263 */
264
265CURLcode FindWin32CACert(struct OperationConfig *config,
266                         const char *bundle_file)
267{
268  CURLcode result = CURLE_OK;
269
270  /* search and set cert file only if libcurl supports SSL */
271  if(curlinfo->features & CURL_VERSION_SSL) {
272
273    DWORD res_len;
274    DWORD buf_tchar_size = PATH_MAX + 1;
275    DWORD buf_bytes_size = sizeof(TCHAR) * buf_tchar_size;
276    char *ptr = NULL;
277
278    char *buf = malloc(buf_bytes_size);
279    if(!buf)
280      return CURLE_OUT_OF_MEMORY;
281    buf[0] = '\0';
282
283    res_len = SearchPathA(NULL, bundle_file, NULL, buf_tchar_size, buf, &ptr);
284    if(res_len > 0) {
285      Curl_safefree(config->cacert);
286      config->cacert = strdup(buf);
287      if(!config->cacert)
288        result = CURLE_OUT_OF_MEMORY;
289    }
290
291    Curl_safefree(buf);
292  }
293
294  return result;
295}
296
297#endif /* WIN32 */
298
299#endif /* MSDOS || WIN32 */
300