localename: Fix gettext test failures on mingw.
[gnulib.git] / lib / xsetenv.c
blobe91c0b42f55926337832f80118e28a41a1bb50d9
1 /* Setting environment variables, with out-of-memory checking.
2 Copyright (C) 2001-2002, 2005-2007, 2009-2018 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <https://www.gnu.org/licenses/>. */
17 #include <config.h>
19 /* Specification. */
20 #include "xsetenv.h"
22 #include <stdlib.h>
24 #include "error.h"
25 #include "gettext.h"
27 #define _(str) gettext (str)
30 /* Set NAME to VALUE in the environment.
31 If REPLACE is nonzero, overwrite an existing value.
32 With error checking. */
33 void
34 xsetenv (const char *name, const char *value, int replace)
36 if (setenv (name, value, replace) < 0)
37 error (EXIT_FAILURE, 0, _("memory exhausted"));