unsetenv.c

   1 /*
   2  * Copyright (c) 1987 Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms are permitted
   6  * provided that the above copyright notice and this paragraph are
   7  * duplicated in all such forms and that any documentation,
   8  * advertising materials, and other materials related to such
   9  * distribution and use acknowledge that the software was developed
  10  * by the University of California, Berkeley.  The name of the
  11  * University may not be used to endorse or promote products derived
  12  * from this software without specific prior written permission.
  13  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  14  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  15  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16  */
  17
  18 #if defined(LIBC_SCCS) && !defined(lint)
  19 static char sccsid[] = "@(#)setenv.c    5.2 (Berkeley) 6/27/88";
  20 #endif /* LIBC_SCCS and not lint */
  21
  22 #include <sys/types.h>
  23 #include <stdio.h>
  24 #include <string.h>
  25 /*
  26  * _findenv --
  27  *      Returns pointer to value associated with name, if any, else NULL.
  28  *      Sets offset to be the offset of the name/value combination in the
  29  *      environmental array, for use by setenv(3) and unsetenv(3).
  30  *      Explicitly removes '=' in argument name.
  31  *
  32  */
  33
  34 static
  35 char *
  36 _findenv(name, offset)
  37         register char *name;
  38         int *offset;
  39 {
  40         extern char **environ;
  41         register int len;
  42         register char **P, *C;
  43
  44         for (C = name, len = 0; *C && *C != '='; ++C, ++len);
  45         for (P = environ; *P; ++P)
  46                 if (!strncmp(*P, name, len))
  47                         if (*(C = *P + len) == '=') {
  48                                 *offset = P - environ;
  49                                 return(++C);
  50                         }
  51         return(NULL);
  52 }
  53
  54 /*
  55  * unsetenv(name) --
  56  *      Delete environmental variable "name".
  57  */
  58 void
  59 unsetenv(name)
  60         char    *name;
  61 {
  62         extern  char    **environ;
  63         register char   **P;
  64         int     offset;
  65
  66         while (_findenv(name, &offset))         /* if set multiple times */
  67                 for (P = &environ[offset];; ++P)
  68                         if (!(*P = *(P + 1)))
  69                                 break;
  70
  71 }