Setenv (var, value) register char *var, *value;
Setenv (register char *var, register char *value)
Setenv (var, value)register char *var, *value;{	register int envindex = 0;	register size_t len = strlen(var);	TRACE(("Setenv(var=%s, value=%s)\n", var, value))	while (environ [envindex] != NULL) {	    if (strncmp (environ [envindex], var, len) == 0) {		/* found it */		environ[envindex] = (char *)malloc ((unsigned)len + strlen (value) + 1);		strcpy (environ [envindex], var);		strcat (environ [envindex], value);		return;	    }	    envindex ++;	}	TRACE(("...expanding env to %d\n", envindex+1))	environ [envindex] = (char *) malloc ((unsigned)len + strlen (value) + 1);	(void) strcpy (environ [envindex], var);	strcat (environ [envindex], value);	environ [++envindex] = NULL;}