xref: /csrg-svn/lib/libc/stdlib/putenv.c (revision 36771)
1*36771Sbostic /*
2*36771Sbostic  * Copyright (c) 1988 The Regents of the University of California.
3*36771Sbostic  * All rights reserved.
4*36771Sbostic  *
5*36771Sbostic  * Redistribution and use in source and binary forms are permitted
6*36771Sbostic  * provided that the above copyright notice and this paragraph are
7*36771Sbostic  * duplicated in all such forms and that any documentation,
8*36771Sbostic  * advertising materials, and other materials related to such
9*36771Sbostic  * distribution and use acknowledge that the software was developed
10*36771Sbostic  * by the University of California, Berkeley.  The name of the
11*36771Sbostic  * University may not be used to endorse or promote products derived
12*36771Sbostic  * from this software without specific prior written permission.
13*36771Sbostic  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14*36771Sbostic  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15*36771Sbostic  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16*36771Sbostic  */
17*36771Sbostic 
18*36771Sbostic #if defined(LIBC_SCCS) && !defined(lint)
19*36771Sbostic static char sccsid[] = "@(#)putenv.c	5.1 (Berkeley) 02/14/89";
20*36771Sbostic #endif /* LIBC_SCCS and not lint */
21*36771Sbostic 
22*36771Sbostic putenv(str)
23*36771Sbostic 	char *str;
24*36771Sbostic {
25*36771Sbostic 	register char *equal;
26*36771Sbostic 	int rval;
27*36771Sbostic 	char *index();
28*36771Sbostic 
29*36771Sbostic 	if (!(equal = index(str, '=')))
30*36771Sbostic 		return(1);
31*36771Sbostic 	*equal = '\0';
32*36771Sbostic 	rval = setenv(str, equal + 1, 1);
33*36771Sbostic 	*equal = '=';
34*36771Sbostic 	return(rval);
35*36771Sbostic }
36