2 * Copyright (c) 1998 Michael Smith.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 #include <sys/cdefs.h>
28 __FBSDID("$FreeBSD$");
31 * Manage an environment-like space in which string variables may be stored.
32 * Provide support for some method-like operations for setting/retrieving
33 * variables in order to allow some type strength.
40 struct env_var *environ = NULL;
43 * Look up (name) and return it's env_var structure.
46 env_getenv(const char *name)
50 for (ev = environ; ev != NULL; ev = ev->ev_next)
51 if (!strcmp(ev->ev_name, name))
59 * If the EV_VOLATILE flag is set, a copy of the variable is made.
60 * If EV_DYNAMIC is set, the variable has been allocated with
61 * malloc and ownership transferred to the environment.
62 * If (value) is NULL, the variable is set but has no value.
65 env_setenv(const char *name, int flags, const void *value,
66 ev_sethook_t sethook, ev_unsethook_t unsethook)
68 struct env_var *ev, *curr, *last;
70 if ((ev = env_getenv(name)) != NULL) {
72 * If there's a set hook, let it do the work
73 * (unless we are working for one already).
75 if ((ev->ev_sethook != NULL) && !(flags & EV_NOHOOK))
76 return (ev->ev_sethook(ev, flags, value));
78 /* If there is data in the variable, discard it. */
79 if (ev->ev_value != NULL && (ev->ev_flags & EV_DYNAMIC) != 0)
82 ev->ev_flags &= ~EV_DYNAMIC;
87 * New variable; create and sort into list
89 ev = malloc(sizeof(struct env_var));
90 ev->ev_name = strdup(name);
93 /* hooks can only be set when the variable is instantiated */
94 ev->ev_sethook = sethook;
95 ev->ev_unsethook = unsethook;
100 /* Search for the record to insert before */
101 for (last = NULL, curr = environ; curr != NULL;
102 last = curr, curr = curr->ev_next) {
104 if (strcmp(ev->ev_name, curr->ev_name) < 0) {
106 curr->ev_prev->ev_next = ev;
111 ev->ev_prev = curr->ev_prev;
126 /* If we have a new value, use it */
127 if (flags & EV_VOLATILE) {
128 ev->ev_value = strdup(value);
129 ev->ev_flags |= EV_DYNAMIC;
131 ev->ev_value = (char *)value;
132 ev->ev_flags |= flags & EV_DYNAMIC;
138 /* coverity[ -tainted_string_return_content ] */
140 getenv(const char *name)
144 /* Set but no value gives empty string */
145 if ((ev = env_getenv(name)) != NULL) {
146 if (ev->ev_value != NULL)
147 return (ev->ev_value);
154 setenv(const char *name, const char *value, int overwrite)
156 /* No guarantees about state, always assume volatile */
157 if (overwrite || (env_getenv(name) == NULL))
158 return (env_setenv(name, EV_VOLATILE, value, NULL, NULL));
168 copy = strdup(string);
169 if ((value = strchr(copy, '=')) != NULL)
171 result = setenv(copy, value, 1);
177 unsetenv(const char *name)
183 if ((ev = env_getenv(name)) == NULL) {
186 if (ev->ev_unsethook != NULL)
187 err = ev->ev_unsethook(ev);
196 env_discard(struct env_var *ev)
199 ev->ev_prev->ev_next = ev->ev_next;
201 ev->ev_next->ev_prev = ev->ev_prev;
203 environ = ev->ev_next;
205 if (ev->ev_value != NULL && (ev->ev_flags & EV_DYNAMIC) != 0)
211 env_noset(struct env_var *ev __unused, int flags __unused,
212 const void *value __unused)
218 env_nounset(struct env_var *ev __unused)