File: unsetenv.c

package info (click to toggle)
bglibs 2.04%2Bdfsg-9
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,500 kB
  • sloc: ansic: 15,824; perl: 674; sh: 63; makefile: 29
file content (24 lines) | stat: -rw-r--r-- 358 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#include <string.h>
#include "sysdeps.h"

#ifndef HASUNSETENV
void unsetenv(const char *name)
{
  extern char** environ;

  if (name) {
    unsigned long len = strlen(name);
    char** p = environ;

    while (*p) {
      if (strncmp(*p, name, len) == 0 && (*p)[len] == '=') {
	do
	  *p = *(p + 1);
	while (*++p);
      }
      else
	++p;
    }
  }
}
#endif