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	/*
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	}