nsz Git - musl/blob - src/env/unsetenv.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <errno.h>
   5
   6 extern char **__environ;
   7 extern char **__env_map;
   8
   9 int unsetenv(const char *name)
  10 {
  11         int i, j;
  12         size_t l = strlen(name);
  13
  14         if (!*name || strchr(name, '=')) {
  15                 errno = EINVAL;
  16                 return -1;
  17         }
  18 again:
  19         for (i=0; __environ[i] && (memcmp(name, __environ[i], l) || __environ[i][l] != '='); i++);
  20         if (__environ[i]) {
  21                 if (__env_map) {
  22                         for (j=0; __env_map[j] && __env_map[j] != __environ[i]; j++);
  23                         free (__env_map[j]);
  24                         for (; __env_map[j]; j++)
  25                                 __env_map[j] = __env_map[j+1];
  26                 }
  27                 for (; __environ[i]; i++)
  28                         __environ[i] = __environ[i+1];
  29                 goto again;
  30         }
  31         return 0;
  32 }