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