src/login/getenv.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 #include <afsconfig.h>
  19 #include <afs/param.h>
  20
  21 RCSID
  22     ("$Header$");
  23
  24 #include <stdio.h>
  25
  26 /*
  27  * getenv --
  28  *      Returns ptr to value associated with name, if any, else NULL.
  29  */
  30 char *
  31 getenv(name)
  32      char *name;
  33 {
  34     int offset;
  35     char *_findenv();
  36
  37     return (_findenv(name, &offset));
  38 }
  39
  40 /*
  41  * _findenv --
  42  *      Returns pointer to value associated with name, if any, else NULL.
  43  *      Sets offset to be the offset of the name/value combination in the
  44  *      environmental array, for use by setenv(3) and unsetenv(3).
  45  *      Explicitly removes '=' in argument name.
  46  *
  47  *      This routine *should* be a static; don't use it.
  48  */
  49 char *
  50 _findenv(name, offset)
  51      register char *name;
  52      int *offset;
  53 {
  54     extern char **environ;
  55     register int len;
  56     register char **P, *C;
  57
  58     for (C = name, len = 0; *C && *C != '='; ++C, ++len);
  59     for (P = environ; *P; ++P)
  60         if (!strncmp(*P, name, len))
  61             if (*(C = *P + len) == '=') {
  62                 *offset = P - environ;
  63                 return (++C);
  64             }
  65     return (NULL);
  66 }