1/***************************************************************************
2 *                                  _   _ ____  _
3 *  Project                     ___| | | |  _ \| |
4 *                             / __| | | | |_) | |
5 *                            | (__| |_| |  _ <| |___
6 *                             \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) 1998 - 2009, 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
23#include "setup.h"
24
25#include <stdio.h>
26#include <stdlib.h>
27#include <string.h>
28
29#ifdef __VMS
30#include <unixlib.h>
31#endif
32
33#include <curl/curl.h>
34#include "curl_memory.h"
35
36#include "memdebug.h"
37
38static
39char *GetEnv(const char *variable)
40{
41#ifdef _WIN32_WCE
42  return NULL;
43#else
44#ifdef WIN32
45  char env[MAX_PATH]; /* MAX_PATH is from windef.h */
46  char *temp = getenv(variable);
47  env[0] = '\0';
48  if(temp != NULL)
49    ExpandEnvironmentStrings(temp, env, sizeof(env));
50  return (env[0] != '\0')?strdup(env):NULL;
51#else
52  char *env = getenv(variable);
53#ifdef __VMS
54  if(env && strcmp("HOME",variable) == 0)
55    env = decc_translate_vms(env);
56#endif
57  return (env && env[0])?strdup(env):NULL;
58#endif
59#endif
60}
61
62char *curl_getenv(const char *v)
63{
64  return GetEnv(v);
65}
66