Kristian Monsen | 5ab5018 | 2010-05-14 18:53:44 +0100 | [diff] [blame] | 1 | /*************************************************************************** |
| 2 | * _ _ ____ _ |
| 3 | * Project ___| | | | _ \| | |
| 4 | * / __| | | | |_) | | |
| 5 | * | (__| |_| | _ <| |___ |
| 6 | * \___|\___/|_| \_\_____| |
| 7 | * |
Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame^] | 8 | * Copyright (C) 1998 - 2012, Daniel Stenberg, <daniel@haxx.se>, et al. |
Kristian Monsen | 5ab5018 | 2010-05-14 18:53:44 +0100 | [diff] [blame] | 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 | |
Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame^] | 23 | #include "curl_setup.h" |
Kristian Monsen | 5ab5018 | 2010-05-14 18:53:44 +0100 | [diff] [blame] | 24 | |
| 25 | #include <curl/curl.h> |
| 26 | #include "curl_memory.h" |
| 27 | |
| 28 | #include "memdebug.h" |
| 29 | |
| 30 | static |
| 31 | char *GetEnv(const char *variable) |
| 32 | { |
| 33 | #ifdef _WIN32_WCE |
| 34 | return NULL; |
| 35 | #else |
| 36 | #ifdef WIN32 |
| 37 | char env[MAX_PATH]; /* MAX_PATH is from windef.h */ |
| 38 | char *temp = getenv(variable); |
| 39 | env[0] = '\0'; |
| 40 | if(temp != NULL) |
Bertrand SIMONNET | e6cd738 | 2015-07-01 15:39:44 -0700 | [diff] [blame^] | 41 | ExpandEnvironmentStringsA(temp, env, sizeof(env)); |
Kristian Monsen | 5ab5018 | 2010-05-14 18:53:44 +0100 | [diff] [blame] | 42 | return (env[0] != '\0')?strdup(env):NULL; |
| 43 | #else |
| 44 | char *env = getenv(variable); |
Kristian Monsen | 5ab5018 | 2010-05-14 18:53:44 +0100 | [diff] [blame] | 45 | return (env && env[0])?strdup(env):NULL; |
| 46 | #endif |
| 47 | #endif |
| 48 | } |
| 49 | |
| 50 | char *curl_getenv(const char *v) |
| 51 | { |
| 52 | return GetEnv(v); |
| 53 | } |