* mkdtemp.c: New (moved from g10/), setenv.c: New, unsetenv.c: New.
[gnupg.git] / util / unsetenv.c
1 /* unsetenv.c - libc replacement function
2  * Copyright (C) 2004 Free Software Foundation, Inc.
3  *
4  * This file is part of GnuPG.
5  *
6  * GnuPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * GnuPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <string.h>
23 #include <errno.h>
24
25 extern char **environ;
26
27 /* Basically borrowed from glibc */
28 int
29 unsetenv2 (const char *name)
30 {
31   size_t len;
32   char **ep;
33
34   if (name == NULL || *name == '\0' || strchr (name, '=') != NULL)
35     {
36       errno=EINVAL;
37       return -1;
38     }
39
40   len = strlen (name);
41
42   ep = environ;
43   while (*ep != NULL)
44     if (!strncmp (*ep, name, len) && (*ep)[len] == '=')
45       {
46         /* Found it.  Remove this pointer by moving later ones back.  */
47         char **dp = ep;
48
49         do
50           dp[0] = dp[1];
51         while (*dp++);
52         /* Continue the loop in case NAME appears again.  */
53       }
54     else
55       ++ep;
56
57   return 0;
58 }