11.21Schristos/*	$NetBSD: putenv.c,v 1.21 2015/01/20 18:31:25 christos Exp $	*/
21.5Sthorpej
31.1Scgd/*-
41.8Sperry * Copyright (c) 1988, 1993
51.8Sperry *	The Regents of the University of California.  All rights reserved.
61.1Scgd *
71.1Scgd * Redistribution and use in source and binary forms, with or without
81.1Scgd * modification, are permitted provided that the following conditions
91.1Scgd * are met:
101.1Scgd * 1. Redistributions of source code must retain the above copyright
111.1Scgd *    notice, this list of conditions and the following disclaimer.
121.1Scgd * 2. Redistributions in binary form must reproduce the above copyright
131.1Scgd *    notice, this list of conditions and the following disclaimer in the
141.1Scgd *    documentation and/or other materials provided with the distribution.
151.12Sagc * 3. Neither the name of the University nor the names of its contributors
161.1Scgd *    may be used to endorse or promote products derived from this software
171.1Scgd *    without specific prior written permission.
181.1Scgd *
191.1Scgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
201.1Scgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
211.1Scgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
221.1Scgd * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
231.1Scgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
241.1Scgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
251.1Scgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
261.1Scgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
271.1Scgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
281.1Scgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
291.1Scgd * SUCH DAMAGE.
301.1Scgd */
311.1Scgd
321.6Schristos#include <sys/cdefs.h>
331.1Scgd#if defined(LIBC_SCCS) && !defined(lint)
341.5Sthorpej#if 0
351.8Sperrystatic char sccsid[] = "@(#)putenv.c	8.2 (Berkeley) 3/27/94";
361.5Sthorpej#else
371.21Schristos__RCSID("$NetBSD: putenv.c,v 1.21 2015/01/20 18:31:25 christos Exp $");
381.5Sthorpej#endif
391.1Scgd#endif /* LIBC_SCCS and not lint */
401.1Scgd
411.7Sjtc#include "namespace.h"
421.9Slukem
431.9Slukem#include <assert.h>
441.9Slukem#include <errno.h>
451.1Scgd#include <stdlib.h>
461.1Scgd#include <string.h>
471.19Stron
481.19Stron#include "env.h"
491.13Schristos#include "local.h"
501.7Sjtc
511.1Scgdint
521.13Schristosputenv(char *str)
531.1Scgd{
541.19Stron	size_t l_name;
551.19Stron	int rv;
561.9Slukem
571.9Slukem	_DIAGASSERT(str != NULL);
581.1Scgd
591.19Stron	l_name = __envvarnamelen(str, true);
601.19Stron	if (l_name == 0) {
611.17Snjoly		errno = EINVAL;
621.13Schristos		return -1;
631.17Snjoly	}
641.13Schristos
651.19Stron	rv = -1;
661.19Stron	if (__writelockenv()) {
671.19Stron		ssize_t offset;
681.19Stron
691.19Stron		offset = __getenvslot(str, l_name, true);
701.19Stron		if (offset != -1) {
711.19Stron			if (environ[offset] != NULL)
721.19Stron				__freeenvvar(environ[offset]);
731.19Stron			environ[offset] = str;
741.13Schristos
751.19Stron			rv = 0;
761.19Stron		}
771.13Schristos
781.19Stron		(void)__unlockenv();
791.14Stron	}
801.13Schristos
811.19Stron	return rv;
821.1Scgd}
83