1*0a6a1f1dSLionel Sambuc /* $NetBSD: compat_unsetenv.c,v 1.4 2015/01/20 18:31:24 christos Exp $ */
22fe8fb19SBen Gras
32fe8fb19SBen Gras /*
42fe8fb19SBen Gras * Copyright (c) 1987, 1993
52fe8fb19SBen Gras * The Regents of the University of California. All rights reserved.
62fe8fb19SBen Gras *
72fe8fb19SBen Gras * Redistribution and use in source and binary forms, with or without
82fe8fb19SBen Gras * modification, are permitted provided that the following conditions
92fe8fb19SBen Gras * are met:
102fe8fb19SBen Gras * 1. Redistributions of source code must retain the above copyright
112fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer.
122fe8fb19SBen Gras * 2. Redistributions in binary form must reproduce the above copyright
132fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer in the
142fe8fb19SBen Gras * documentation and/or other materials provided with the distribution.
152fe8fb19SBen Gras * 3. Neither the name of the University nor the names of its contributors
162fe8fb19SBen Gras * may be used to endorse or promote products derived from this software
172fe8fb19SBen Gras * without specific prior written permission.
182fe8fb19SBen Gras *
192fe8fb19SBen Gras * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
202fe8fb19SBen Gras * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
212fe8fb19SBen Gras * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
222fe8fb19SBen Gras * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
232fe8fb19SBen Gras * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
242fe8fb19SBen Gras * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
252fe8fb19SBen Gras * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
262fe8fb19SBen Gras * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
272fe8fb19SBen Gras * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
282fe8fb19SBen Gras * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
292fe8fb19SBen Gras * SUCH DAMAGE.
302fe8fb19SBen Gras */
312fe8fb19SBen Gras
322fe8fb19SBen Gras #include <sys/cdefs.h>
332fe8fb19SBen Gras #if defined(LIBC_SCCS) && !defined(lint)
342fe8fb19SBen Gras #if 0
352fe8fb19SBen Gras static char sccsid[] = "from: @(#)setenv.c 8.1 (Berkeley) 6/4/93";
362fe8fb19SBen Gras #else
37*0a6a1f1dSLionel Sambuc __RCSID("$NetBSD: compat_unsetenv.c,v 1.4 2015/01/20 18:31:24 christos Exp $");
382fe8fb19SBen Gras #endif
392fe8fb19SBen Gras #endif /* LIBC_SCCS and not lint */
402fe8fb19SBen Gras
412fe8fb19SBen Gras #define __LIBC12_SOURCE__
422fe8fb19SBen Gras #include "namespace.h"
432fe8fb19SBen Gras
442fe8fb19SBen Gras #include <assert.h>
452fe8fb19SBen Gras #include <errno.h>
462fe8fb19SBen Gras #include <stdlib.h>
472fe8fb19SBen Gras #include <compat/include/stdlib.h>
482fe8fb19SBen Gras #include <string.h>
492fe8fb19SBen Gras #include <bitstring.h>
502fe8fb19SBen Gras #include "local.h"
512fe8fb19SBen Gras
522fe8fb19SBen Gras #ifdef __weak_alias
__weak_alias(unsetenv,_unsetenv)532fe8fb19SBen Gras __weak_alias(unsetenv,_unsetenv)
542fe8fb19SBen Gras #endif
552fe8fb19SBen Gras
562fe8fb19SBen Gras #include "env.h"
572fe8fb19SBen Gras
582fe8fb19SBen Gras __warn_references(unsetenv,
592fe8fb19SBen Gras "warning: reference to compatibility unsetenv();"
602fe8fb19SBen Gras " include <stdlib.h> for correct reference")
612fe8fb19SBen Gras
622fe8fb19SBen Gras /*
632fe8fb19SBen Gras * unsetenv(name) --
642fe8fb19SBen Gras * Delete environmental variable "name".
652fe8fb19SBen Gras */
662fe8fb19SBen Gras void
672fe8fb19SBen Gras unsetenv(const char *name)
682fe8fb19SBen Gras {
692fe8fb19SBen Gras size_t l_name;
702fe8fb19SBen Gras
712fe8fb19SBen Gras _DIAGASSERT(name != NULL);
722fe8fb19SBen Gras
732fe8fb19SBen Gras l_name = strlen(name);
742fe8fb19SBen Gras if (__writelockenv()) {
752fe8fb19SBen Gras ssize_t offset;
762fe8fb19SBen Gras
772fe8fb19SBen Gras while ((offset = __getenvslot(name, l_name, false)) != -1) {
782fe8fb19SBen Gras char **p;
792fe8fb19SBen Gras for (p = &environ[offset]; ; ++p) {
802fe8fb19SBen Gras if ((*p = *(p + 1)) == NULL)
812fe8fb19SBen Gras break;
822fe8fb19SBen Gras }
832fe8fb19SBen Gras }
842fe8fb19SBen Gras (void)__unlockenv();
852fe8fb19SBen Gras }
862fe8fb19SBen Gras }
87