2 * msvcrt.dll environment functions
4 * Copyright 1996,1998 Marcus Meissner
5 * Copyright 1996 Jukka Iivonen
6 * Copyright 1997,2000 Uwe Bonnes
7 * Copyright 2000 Jon Griffiths
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 #include "wine/unicode.h"
26 #include "msvcrt/stdlib.h"
29 #include "wine/debug.h"
31 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
33 /*********************************************************************
36 char *MSVCRT_getenv(const char *name)
38 char *environ = GetEnvironmentStringsA();
40 unsigned int length=strlen(name);
42 for (pp = environ; (*pp); pp = pp + strlen(pp) +1)
45 if ((pos) && ((pos - pp) == length))
47 if (!strncasecmp(pp,name,length)) break;
57 FreeEnvironmentStringsA( environ );
61 /*********************************************************************
64 MSVCRT_wchar_t *_wgetenv(const MSVCRT_wchar_t *name)
66 MSVCRT_wchar_t* environ = GetEnvironmentStringsW();
67 MSVCRT_wchar_t* pp,*pos = NULL;
68 unsigned int length=strlenW(name);
70 for (pp = environ; (*pp); pp = pp + strlenW(pp) + 1)
72 pos = strchrW(pp,'=');
73 if ((pos) && ((pos - pp) == length))
75 if (!strncmpiW(pp,name,length))
78 TRACE("got %s\n",debugstr_w(pp));
79 /* can't free pointer since we are returning it */
80 /* should probably use MSVCRT_wenviron instead */
81 FIXME( "memory leak\n" );
86 FreeEnvironmentStringsW( environ );
90 /*********************************************************************
93 int _putenv(const char *str)
95 char name[256], value[512];
103 while (*str && *str != '=')
113 ret = !SetEnvironmentVariableA(name, value[0] ? value : NULL);
114 /* Update the __p__environ array only when already initialized */
116 MSVCRT__environ = msvcrt_SnapshotOfEnvironmentA(MSVCRT__environ);
117 if (MSVCRT__wenviron)
118 MSVCRT__wenviron = msvcrt_SnapshotOfEnvironmentW(MSVCRT__wenviron);
122 /*********************************************************************
123 * _wputenv (MSVCRT.@)
125 int _wputenv(const MSVCRT_wchar_t *str)
127 MSVCRT_wchar_t name[256], value[512];
128 MSVCRT_wchar_t *dst = name;
131 TRACE("%s\n", debugstr_w(str));
135 while (*str && *str != '=')
145 ret = !SetEnvironmentVariableW(name, value[0] ? value : NULL);
146 /* Update the __p__environ array only when already initialized */
148 MSVCRT__environ = msvcrt_SnapshotOfEnvironmentA(MSVCRT__environ);
149 if (MSVCRT__wenviron)
150 MSVCRT__wenviron = msvcrt_SnapshotOfEnvironmentW(MSVCRT__wenviron);