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
)
39 unsigned int length
=strlen(name
);
41 for (environ
= *__p__environ(); *environ
; environ
++)
44 char *pos
= strchr(str
,'=');
45 if (pos
&& ((pos
- str
) == length
) && !strncasecmp(str
,name
,length
))
47 TRACE("(%s): got %s\n", debugstr_a(name
), debugstr_a(pos
+ 1));
54 /*********************************************************************
57 MSVCRT_wchar_t
*_wgetenv(const MSVCRT_wchar_t
*name
)
59 MSVCRT_wchar_t
**environ
;
60 unsigned int length
=strlenW(name
);
62 for (environ
= *__p__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 _putenv(const char *str
)
80 char name
[256], value
[512];
88 while (*str
&& *str
!= '=')
98 ret
= !SetEnvironmentVariableA(name
, value
[0] ? value
: NULL
);
99 /* Update the __p__environ array only when already initialized */
101 MSVCRT__environ
= msvcrt_SnapshotOfEnvironmentA(MSVCRT__environ
);
102 if (MSVCRT__wenviron
)
103 MSVCRT__wenviron
= msvcrt_SnapshotOfEnvironmentW(MSVCRT__wenviron
);
107 /*********************************************************************
108 * _wputenv (MSVCRT.@)
110 int _wputenv(const MSVCRT_wchar_t
*str
)
112 MSVCRT_wchar_t name
[256], value
[512];
113 MSVCRT_wchar_t
*dst
= name
;
116 TRACE("%s\n", debugstr_w(str
));
120 while (*str
&& *str
!= '=')
130 ret
= !SetEnvironmentVariableW(name
, value
[0] ? value
: NULL
);
131 /* Update the __p__environ array only when already initialized */
133 MSVCRT__environ
= msvcrt_SnapshotOfEnvironmentA(MSVCRT__environ
);
134 if (MSVCRT__wenviron
)
135 MSVCRT__wenviron
= msvcrt_SnapshotOfEnvironmentW(MSVCRT__wenviron
);