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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 #include "wine/unicode.h"
25 #include "wine/debug.h"
27 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt
);
29 /*********************************************************************
32 char * CDECL
MSVCRT_getenv(const char *name
)
35 unsigned int length
=strlen(name
);
37 for (environ
= MSVCRT__environ
; *environ
; environ
++)
40 char *pos
= strchr(str
,'=');
41 if (pos
&& ((pos
- str
) == length
) && !strncasecmp(str
,name
,length
))
43 TRACE("(%s): got %s\n", debugstr_a(name
), debugstr_a(pos
+ 1));
50 /*********************************************************************
53 MSVCRT_wchar_t
* CDECL
_wgetenv(const MSVCRT_wchar_t
*name
)
55 MSVCRT_wchar_t
**environ
;
56 unsigned int length
=strlenW(name
);
58 /* Initialize the _wenviron array if it's not already created. */
59 if (!MSVCRT__wenviron
)
60 MSVCRT__wenviron
= msvcrt_SnapshotOfEnvironmentW(NULL
);
62 for (environ
= MSVCRT__wenviron
; *environ
; environ
++)
64 MSVCRT_wchar_t
*str
= *environ
;
65 MSVCRT_wchar_t
*pos
= strchrW(str
,'=');
66 if (pos
&& ((pos
- str
) == length
) && !strncmpiW(str
,name
,length
))
68 TRACE("(%s): got %s\n", debugstr_w(name
), debugstr_w(pos
+ 1));
75 /*********************************************************************
78 int CDECL
_putenv(const char *str
)
84 TRACE("%s\n", debugstr_a(str
));
89 name
= HeapAlloc(GetProcessHeap(), 0, strlen(str
) + 1);
93 while (*str
&& *str
!= '=')
106 ret
= SetEnvironmentVariableA(name
, value
[0] ? value
: NULL
) ? 0 : -1;
108 /* _putenv returns success on deletion of nonexistent variable, unlike [Rtl]SetEnvironmentVariable */
109 if ((ret
== -1) && (GetLastError() == ERROR_ENVVAR_NOT_FOUND
)) ret
= 0;
111 MSVCRT__environ
= msvcrt_SnapshotOfEnvironmentA(MSVCRT__environ
);
112 /* Update the __p__wenviron array only when already initialized */
113 if (MSVCRT__wenviron
)
114 MSVCRT__wenviron
= msvcrt_SnapshotOfEnvironmentW(MSVCRT__wenviron
);
117 HeapFree(GetProcessHeap(), 0, name
);
121 /*********************************************************************
122 * _wputenv (MSVCRT.@)
124 int CDECL
_wputenv(const MSVCRT_wchar_t
*str
)
126 MSVCRT_wchar_t
*name
, *value
;
130 TRACE("%s\n", debugstr_w(str
));
134 name
= HeapAlloc(GetProcessHeap(), 0, (strlenW(str
) + 1) * sizeof(MSVCRT_wchar_t
));
138 while (*str
&& *str
!= '=')
151 ret
= SetEnvironmentVariableW(name
, value
[0] ? value
: NULL
) ? 0 : -1;
153 /* _putenv returns success on deletion of nonexistent variable, unlike [Rtl]SetEnvironmentVariable */
154 if ((ret
== -1) && (GetLastError() == ERROR_ENVVAR_NOT_FOUND
)) ret
= 0;
156 MSVCRT__environ
= msvcrt_SnapshotOfEnvironmentA(MSVCRT__environ
);
157 MSVCRT__wenviron
= msvcrt_SnapshotOfEnvironmentW(MSVCRT__wenviron
);
160 HeapFree(GetProcessHeap(), 0, name
);