12aef6930SMark Murray /*
22aef6930SMark Murray * Some systems do not have setenv(). This one is modeled after 4.4 BSD, but
32aef6930SMark Murray * is implemented in terms of portable primitives only: getenv(), putenv()
42aef6930SMark Murray * and malloc(). It should therefore be safe to use on every UNIX system.
52aef6930SMark Murray *
62aef6930SMark Murray * If clobber == 0, do not overwrite an existing variable.
72aef6930SMark Murray *
82aef6930SMark Murray * Returns nonzero if memory allocation fails.
92aef6930SMark Murray *
102aef6930SMark Murray * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
112aef6930SMark Murray */
122aef6930SMark Murray
132aef6930SMark Murray #ifndef lint
142aef6930SMark Murray static char sccsid[] = "@(#) setenv.c 1.1 93/03/07 22:47:58";
152aef6930SMark Murray #endif
162aef6930SMark Murray
172aef6930SMark Murray /* setenv - update or insert environment (name,value) pair */
182aef6930SMark Murray
setenv(char * name,char * value,int clobber)19*14f102eaSEd Maste int setenv(char *name, char *value, int clobber)
202aef6930SMark Murray {
212aef6930SMark Murray char *malloc();
222aef6930SMark Murray char *getenv();
232aef6930SMark Murray char *cp;
242aef6930SMark Murray
252aef6930SMark Murray if (clobber == 0 && getenv(name) != 0)
262aef6930SMark Murray return (0);
272aef6930SMark Murray if ((cp = malloc(strlen(name) + strlen(value) + 2)) == 0)
282aef6930SMark Murray return (1);
292aef6930SMark Murray sprintf(cp, "%s=%s", name, value);
302aef6930SMark Murray return (putenv(cp));
312aef6930SMark Murray }
32