usr/klibc/unsetenv.c

/*
 * unsetenv.c
 */

#include <errno.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include "env.h"

int unsetenv(const char *name)
{
	size_t len;
	char **p, *q;
	const char *z;

	if (!name || !name[0]) {
		errno = EINVAL;
		return -1;
	}

	len = 0;
	for (z = name; *z; z++) {
		len++;
		if (*z == '=') {
			errno = EINVAL;
			return -1;
		}
	}

	if (!environ)
		return 0;

	for (p = environ; (q = *p); p++) {
		if (!strncmp(name, q, len) && q[len] == '=')
			break;
	}

	for (; (q = *p); p++) {
		p[0] = p[1];
	}

	return 0;
}
1	niro	532	/*
2			* unsetenv.c
3			*/
4
5			#include <errno.h>
6			#include <stdlib.h>
7			#include <string.h>
8			#include <unistd.h>
9			#include "env.h"
10
11			int unsetenv(const char *name)
12			{
13			size_t len;
14			char *p, q;
15			const char *z;
16
17			if (!name \|\| !name[0]) {
18			errno = EINVAL;
19			return -1;
20			}
21
22			len = 0;
23			for (z = name; *z; z++) {
24			len++;
25			if (*z == '=') {
26			errno = EINVAL;
27			return -1;
28			}
29			}
30
31			if (!environ)
32			return 0;
33
34			for (p = environ; (q = *p); p++) {
35			if (!strncmp(name, q, len) && q[len] == '=')
36			break;
37			}
38
39			for (; (q = *p); p++) {
40			p[0] = p[1];
41			}
42
43			return 0;
44			}