external/bsd/atf/dist/atf-c/env.c

   1 /*
   2  * Automated Testing Framework (atf)
   3  *
   4  * Copyright (c) 2007, 2008 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND
  17  * CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
  18  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  19  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  20  * IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS BE LIABLE FOR ANY
  21  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
  23  * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  24  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
  25  * IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  26  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
  27  * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28  */
  29
  30 #if defined(HAVE_CONFIG_H)
  31 #include "bconfig.h"
  32 #endif
  33
  34 #include <errno.h>
  35 #include <stdlib.h>
  36
  37 #include "atf-c/env.h"
  38 #include "atf-c/error.h"
  39 #include "atf-c/sanity.h"
  40 #include "atf-c/text.h"
  41
  42 const char *
  43 atf_env_get(const char *name)
  44 {
  45     const char* val = getenv(name);
  46     PRE(val != NULL);
  47     return val;
  48 }
  49
  50 bool
  51 atf_env_has(const char *name)
  52 {
  53     return getenv(name) != NULL;
  54 }
  55
  56 atf_error_t
  57 atf_env_set(const char *name, const char *val)
  58 {
  59     atf_error_t err;
  60
  61 #if defined(HAVE_SETENV)
  62     if (setenv(name, val, 1) == -1)
  63         err = atf_libc_error(errno, "Cannot set environment variable "
  64                              "'%s' to '%s'", name, val);
  65     else
  66         err = atf_no_error();
  67 #elif defined(HAVE_PUTENV)
  68     char *buf;
  69
  70     err = atf_text_format(&buf, "%s=%s", name, val);
  71     if (!atf_is_error(err)) {
  72         if (putenv(buf) == -1)
  73             err = atf_libc_error(errno, "Cannot set environment variable "
  74                                  "'%s' to '%s'", name, val);
  75         free(buf);
  76     }
  77 #else
  78 #   error "Don't know how to set an environment variable."
  79 #endif
  80
  81     return err;
  82 }
  83
  84 atf_error_t
  85 atf_env_unset(const char *name)
  86 {
  87     atf_error_t err;
  88
  89 #if defined(HAVE_UNSETENV)
  90     unsetenv(name);
  91     err = atf_no_error();
  92 #elif defined(HAVE_PUTENV)
  93     char *buf;
  94
  95     err = atf_text_format(&buf, "%s=", name);
  96     if (!atf_is_error(err)) {
  97         if (putenv(buf) == -1)
  98             err = atf_libc_error(errno, "Cannot unset environment variable"
  99                                  " '%s'", name);
 100         free(buf);
 101     }
 102 #else
 103 #   error "Don't know how to unset an environment variable."
 104 #endif
 105
 106     return err;
 107 }