* NEWS (New native configurations): Mention NetBSD/vax.
[deliverable/binutils-gdb.git] / gdb / environ.c
CommitLineData
c906108c 1/* environ.c -- library for manipulating environments for GNU.
69517000
AC
2
3 Copyright 1986, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 2000,
4 2003 Free Software Foundation, Inc.
c906108c 5
c5aa993b
JM
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
c906108c 10
c5aa993b
JM
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
c906108c 15
c5aa993b
JM
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
c906108c
SS
20
21#define min(a, b) ((a) < (b) ? (a) : (b))
22#define max(a, b) ((a) > (b) ? (a) : (b))
23
24#include "defs.h"
25#include "environ.h"
26#include "gdb_string.h"
c906108c 27\f
c5aa993b 28
c906108c
SS
29/* Return a new environment object. */
30
31struct environ *
fba45db2 32make_environ (void)
c906108c 33{
52f0bd74 34 struct environ *e;
c906108c
SS
35
36 e = (struct environ *) xmalloc (sizeof (struct environ));
37
38 e->allocated = 10;
39 e->vector = (char **) xmalloc ((e->allocated + 1) * sizeof (char *));
40 e->vector[0] = 0;
41 return e;
42}
43
44/* Free an environment and all the strings in it. */
45
46void
aa1ee363 47free_environ (struct environ *e)
c906108c 48{
52f0bd74 49 char **vector = e->vector;
c906108c
SS
50
51 while (*vector)
b8c9b27d 52 xfree (*vector++);
c906108c 53
b8c9b27d 54 xfree (e);
c906108c
SS
55}
56
57/* Copy the environment given to this process into E.
58 Also copies all the strings in it, so we can be sure
59 that all strings in these environments are safe to free. */
60
61void
aa1ee363 62init_environ (struct environ *e)
c906108c
SS
63{
64 extern char **environ;
52f0bd74 65 int i;
c906108c
SS
66
67 if (environ == NULL)
68 return;
69
c5aa993b 70 for (i = 0; environ[i]; i++) /*EMPTY */ ;
c906108c
SS
71
72 if (e->allocated < i)
73 {
74 e->allocated = max (i, e->allocated + 10);
c5aa993b 75 e->vector = (char **) xrealloc ((char *) e->vector,
c906108c
SS
76 (e->allocated + 1) * sizeof (char *));
77 }
78
79 memcpy (e->vector, environ, (i + 1) * sizeof (char *));
80
81 while (--i >= 0)
82 {
aa1ee363
AC
83 int len = strlen (e->vector[i]);
84 char *new = (char *) xmalloc (len + 1);
c906108c
SS
85 memcpy (new, e->vector[i], len + 1);
86 e->vector[i] = new;
87 }
88}
89
90/* Return the vector of environment E.
91 This is used to get something to pass to execve. */
92
93char **
fba45db2 94environ_vector (struct environ *e)
c906108c
SS
95{
96 return e->vector;
97}
98\f
99/* Return the value in environment E of variable VAR. */
100
101char *
fba45db2 102get_in_environ (const struct environ *e, const char *var)
c906108c 103{
52f0bd74
AC
104 int len = strlen (var);
105 char **vector = e->vector;
106 char *s;
c906108c
SS
107
108 for (; (s = *vector) != NULL; vector++)
bf896cb0 109 if (strncmp (s, var, len) == 0 && s[len] == '=')
c906108c
SS
110 return &s[len + 1];
111
112 return 0;
113}
114
115/* Store the value in E of VAR as VALUE. */
116
117void
fba45db2 118set_in_environ (struct environ *e, const char *var, const char *value)
c906108c 119{
52f0bd74
AC
120 int i;
121 int len = strlen (var);
122 char **vector = e->vector;
123 char *s;
c906108c
SS
124
125 for (i = 0; (s = vector[i]) != NULL; i++)
bf896cb0 126 if (strncmp (s, var, len) == 0 && s[len] == '=')
c906108c
SS
127 break;
128
129 if (s == 0)
130 {
131 if (i == e->allocated)
132 {
133 e->allocated += 10;
c5aa993b 134 vector = (char **) xrealloc ((char *) vector,
c906108c
SS
135 (e->allocated + 1) * sizeof (char *));
136 e->vector = vector;
137 }
138 vector[i + 1] = 0;
139 }
140 else
b8c9b27d 141 xfree (s);
c906108c
SS
142
143 s = (char *) xmalloc (len + strlen (value) + 2);
144 strcpy (s, var);
145 strcat (s, "=");
146 strcat (s, value);
147 vector[i] = s;
148
149 /* This used to handle setting the PATH and GNUTARGET variables
150 specially. The latter has been replaced by "set gnutarget"
151 (which has worked since GDB 4.11). The former affects searching
152 the PATH to find SHELL, and searching the PATH to find the
153 argument of "symbol-file" or "exec-file". Maybe we should have
154 some kind of "set exec-path" for that. But in any event, having
155 "set env" affect anything besides the inferior is a bad idea.
156 What if we want to change the environment we pass to the program
157 without afecting GDB's behavior? */
158
159 return;
160}
161
162/* Remove the setting for variable VAR from environment E. */
163
164void
fba45db2 165unset_in_environ (struct environ *e, char *var)
c906108c 166{
52f0bd74
AC
167 int len = strlen (var);
168 char **vector = e->vector;
169 char *s;
c906108c
SS
170
171 for (; (s = *vector) != NULL; vector++)
172 {
cb137aa5 173 if (DEPRECATED_STREQN (s, var, len) && s[len] == '=')
c906108c 174 {
b8c9b27d 175 xfree (s);
c906108c
SS
176 /* Walk through the vector, shuffling args down by one, including
177 the NULL terminator. Can't use memcpy() here since the regions
178 overlap, and memmove() might not be available. */
179 while ((vector[0] = vector[1]) != NULL)
180 {
181 vector++;
182 }
183 break;
184 }
185 }
186}
This page took 0.315505 seconds and 4 git commands to generate.