Mercurial > hg > octave-nkf > gnulib-hg
diff lib/xsetenv.c @ 4215:12551f0a3830
New module xsetenv.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Mon, 27 Jan 2003 13:37:35 +0000 |
parents | |
children | a48fb0e98c8c |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/lib/xsetenv.c @@ -0,0 +1,41 @@ +/* Setting environment variables, with out-of-memory checking. + Copyright (C) 2001-2002 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +#if HAVE_CONFIG_H +# include <config.h> +#endif + +/* Specification. */ +#include "xsetenv.h" + +#include "setenv.h" +#include "error.h" +#include "exit.h" +#include "gettext.h" + +#define _(str) gettext (str) + + +/* Set NAME to VALUE in the environment. + If REPLACE is nonzero, overwrite an existing value. + With error checking. */ +void +xsetenv (const char *name, const char *value, int replace) +{ + if (setenv (name, value, replace) < 0) + error (EXIT_FAILURE, 0, _("memory exhausted")); +}