1*86d7f5d3SJohn Marino /*
2*86d7f5d3SJohn Marino * Some systems do not have setenv(). This one is modeled after 4.4 BSD, but
3*86d7f5d3SJohn Marino * is implemented in terms of portable primitives only: getenv(), putenv()
4*86d7f5d3SJohn Marino * and malloc(). It should therefore be safe to use on every UNIX system.
5*86d7f5d3SJohn Marino *
6*86d7f5d3SJohn Marino * If clobber == 0, do not overwrite an existing variable.
7*86d7f5d3SJohn Marino *
8*86d7f5d3SJohn Marino * Returns nonzero if memory allocation fails.
9*86d7f5d3SJohn Marino *
10*86d7f5d3SJohn Marino * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
11*86d7f5d3SJohn Marino */
12*86d7f5d3SJohn Marino
13*86d7f5d3SJohn Marino #ifndef lint
14*86d7f5d3SJohn Marino static char sccsid[] = "@(#) setenv.c 1.1 93/03/07 22:47:58";
15*86d7f5d3SJohn Marino #endif
16*86d7f5d3SJohn Marino
17*86d7f5d3SJohn Marino /* setenv - update or insert environment (name,value) pair */
18*86d7f5d3SJohn Marino
setenv(name,value,clobber)19*86d7f5d3SJohn Marino int setenv(name, value, clobber)
20*86d7f5d3SJohn Marino char *name;
21*86d7f5d3SJohn Marino char *value;
22*86d7f5d3SJohn Marino int clobber;
23*86d7f5d3SJohn Marino {
24*86d7f5d3SJohn Marino char *malloc();
25*86d7f5d3SJohn Marino char *getenv();
26*86d7f5d3SJohn Marino char *cp;
27*86d7f5d3SJohn Marino
28*86d7f5d3SJohn Marino if (clobber == 0 && getenv(name) != 0)
29*86d7f5d3SJohn Marino return (0);
30*86d7f5d3SJohn Marino if ((cp = malloc(strlen(name) + strlen(value) + 2)) == 0)
31*86d7f5d3SJohn Marino return (1);
32*86d7f5d3SJohn Marino sprintf(cp, "%s=%s", name, value);
33*86d7f5d3SJohn Marino return (putenv(cp));
34*86d7f5d3SJohn Marino }
35