xref: /freebsd/bin/sh/var.c (revision 3fda45eca83d7ab85f1fcc3234037367b7b3a9b4)
14b88c807SRodney W. Grimes /*-
24b88c807SRodney W. Grimes  * Copyright (c) 1991, 1993
34b88c807SRodney W. Grimes  *	The Regents of the University of California.  All rights reserved.
44b88c807SRodney W. Grimes  *
54b88c807SRodney W. Grimes  * This code is derived from software contributed to Berkeley by
64b88c807SRodney W. Grimes  * Kenneth Almquist.
74b88c807SRodney W. Grimes  *
84b88c807SRodney W. Grimes  * Redistribution and use in source and binary forms, with or without
94b88c807SRodney W. Grimes  * modification, are permitted provided that the following conditions
104b88c807SRodney W. Grimes  * are met:
114b88c807SRodney W. Grimes  * 1. Redistributions of source code must retain the above copyright
124b88c807SRodney W. Grimes  *    notice, this list of conditions and the following disclaimer.
134b88c807SRodney W. Grimes  * 2. Redistributions in binary form must reproduce the above copyright
144b88c807SRodney W. Grimes  *    notice, this list of conditions and the following disclaimer in the
154b88c807SRodney W. Grimes  *    documentation and/or other materials provided with the distribution.
164b88c807SRodney W. Grimes  * 4. Neither the name of the University nor the names of its contributors
174b88c807SRodney W. Grimes  *    may be used to endorse or promote products derived from this software
184b88c807SRodney W. Grimes  *    without specific prior written permission.
194b88c807SRodney W. Grimes  *
204b88c807SRodney W. Grimes  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
214b88c807SRodney W. Grimes  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
224b88c807SRodney W. Grimes  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
234b88c807SRodney W. Grimes  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
244b88c807SRodney W. Grimes  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
254b88c807SRodney W. Grimes  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
264b88c807SRodney W. Grimes  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
274b88c807SRodney W. Grimes  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
284b88c807SRodney W. Grimes  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
294b88c807SRodney W. Grimes  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
304b88c807SRodney W. Grimes  * SUCH DAMAGE.
314b88c807SRodney W. Grimes  */
324b88c807SRodney W. Grimes 
334b88c807SRodney W. Grimes #ifndef lint
343d7b5b93SPhilippe Charnier #if 0
353d7b5b93SPhilippe Charnier static char sccsid[] = "@(#)var.c	8.3 (Berkeley) 5/4/95";
363d7b5b93SPhilippe Charnier #endif
374b88c807SRodney W. Grimes #endif /* not lint */
382749b141SDavid E. O'Brien #include <sys/cdefs.h>
392749b141SDavid E. O'Brien __FBSDID("$FreeBSD$");
404b88c807SRodney W. Grimes 
41aa9caaf6SPeter Wemm #include <unistd.h>
42aa9caaf6SPeter Wemm #include <stdlib.h>
438d5c19ffSDavid E. O'Brien #include <paths.h>
44aa9caaf6SPeter Wemm 
454b88c807SRodney W. Grimes /*
464b88c807SRodney W. Grimes  * Shell variables.
474b88c807SRodney W. Grimes  */
484b88c807SRodney W. Grimes 
49ba726b8aSAndrey A. Chernov #include <locale.h>
50ba726b8aSAndrey A. Chernov 
514b88c807SRodney W. Grimes #include "shell.h"
524b88c807SRodney W. Grimes #include "output.h"
534b88c807SRodney W. Grimes #include "expand.h"
544b88c807SRodney W. Grimes #include "nodes.h"	/* for other headers */
554b88c807SRodney W. Grimes #include "eval.h"	/* defines cmdenviron */
564b88c807SRodney W. Grimes #include "exec.h"
574b88c807SRodney W. Grimes #include "syntax.h"
584b88c807SRodney W. Grimes #include "options.h"
594b88c807SRodney W. Grimes #include "mail.h"
604b88c807SRodney W. Grimes #include "var.h"
614b88c807SRodney W. Grimes #include "memalloc.h"
624b88c807SRodney W. Grimes #include "error.h"
634b88c807SRodney W. Grimes #include "mystring.h"
64ab0a2172SSteve Price #include "parser.h"
65aa9caaf6SPeter Wemm #ifndef NO_HISTORY
66aa9caaf6SPeter Wemm #include "myhistedit.h"
67aa9caaf6SPeter Wemm #endif
684b88c807SRodney W. Grimes 
694b88c807SRodney W. Grimes 
704b88c807SRodney W. Grimes #define VTABSIZE 39
714b88c807SRodney W. Grimes 
724b88c807SRodney W. Grimes 
734b88c807SRodney W. Grimes struct varinit {
744b88c807SRodney W. Grimes 	struct var *var;
754b88c807SRodney W. Grimes 	int flags;
764b88c807SRodney W. Grimes 	char *text;
775134c3f7SWarner Losh 	void (*func)(const char *);
784b88c807SRodney W. Grimes };
794b88c807SRodney W. Grimes 
804b88c807SRodney W. Grimes 
81aa9caaf6SPeter Wemm #ifndef NO_HISTORY
824b88c807SRodney W. Grimes struct var vhistsize;
83aa9caaf6SPeter Wemm #endif
844b88c807SRodney W. Grimes struct var vifs;
854b88c807SRodney W. Grimes struct var vmail;
864b88c807SRodney W. Grimes struct var vmpath;
874b88c807SRodney W. Grimes struct var vpath;
8839dccc6fSTim J. Robbins struct var vppid;
894b88c807SRodney W. Grimes struct var vps1;
904b88c807SRodney W. Grimes struct var vps2;
914b88c807SRodney W. Grimes struct var vvers;
922ba1b30bSDiomidis Spinellis STATIC struct var voptind;
934b88c807SRodney W. Grimes 
942ba1b30bSDiomidis Spinellis STATIC const struct varinit varinit[] = {
95aa9caaf6SPeter Wemm #ifndef NO_HISTORY
96ab0a2172SSteve Price 	{ &vhistsize,	VSTRFIXED|VTEXTFIXED|VUNSET,	"HISTSIZE=",
97ab0a2172SSteve Price 	  sethistsize },
98aa9caaf6SPeter Wemm #endif
99ab0a2172SSteve Price 	{ &vifs,	VSTRFIXED|VTEXTFIXED,		"IFS= \t\n",
100ab0a2172SSteve Price 	  NULL },
101ab0a2172SSteve Price 	{ &vmail,	VSTRFIXED|VTEXTFIXED|VUNSET,	"MAIL=",
102ab0a2172SSteve Price 	  NULL },
103ab0a2172SSteve Price 	{ &vmpath,	VSTRFIXED|VTEXTFIXED|VUNSET,	"MAILPATH=",
104ab0a2172SSteve Price 	  NULL },
1058d5c19ffSDavid E. O'Brien 	{ &vpath,	VSTRFIXED|VTEXTFIXED,		"PATH=" _PATH_DEFPATH,
106ab0a2172SSteve Price 	  changepath },
10739dccc6fSTim J. Robbins 	{ &vppid,	VSTRFIXED|VTEXTFIXED|VUNSET,	"PPID=",
10839dccc6fSTim J. Robbins 	  NULL },
1094b88c807SRodney W. Grimes 	/*
1104b88c807SRodney W. Grimes 	 * vps1 depends on uid
1114b88c807SRodney W. Grimes 	 */
112ab0a2172SSteve Price 	{ &vps2,	VSTRFIXED|VTEXTFIXED,		"PS2=> ",
113ab0a2172SSteve Price 	  NULL },
114ab0a2172SSteve Price 	{ &voptind,	VSTRFIXED|VTEXTFIXED,		"OPTIND=1",
115ab0a2172SSteve Price 	  getoptsreset },
116ab0a2172SSteve Price 	{ NULL,	0,				NULL,
117ab0a2172SSteve Price 	  NULL }
1184b88c807SRodney W. Grimes };
1194b88c807SRodney W. Grimes 
1202ba1b30bSDiomidis Spinellis STATIC struct var *vartab[VTABSIZE];
1214b88c807SRodney W. Grimes 
1225134c3f7SWarner Losh STATIC struct var **hashvar(char *);
1235134c3f7SWarner Losh STATIC int varequal(char *, char *);
1245134c3f7SWarner Losh STATIC int localevar(char *);
1254b88c807SRodney W. Grimes 
1264b88c807SRodney W. Grimes /*
1274b88c807SRodney W. Grimes  * Initialize the varable symbol tables and import the environment
1284b88c807SRodney W. Grimes  */
1294b88c807SRodney W. Grimes 
1304b88c807SRodney W. Grimes #ifdef mkinit
1314b88c807SRodney W. Grimes INCLUDE "var.h"
1324b88c807SRodney W. Grimes INIT {
1334b88c807SRodney W. Grimes 	char **envp;
1344b88c807SRodney W. Grimes 	extern char **environ;
1354b88c807SRodney W. Grimes 
1364b88c807SRodney W. Grimes 	initvar();
1374b88c807SRodney W. Grimes 	for (envp = environ ; *envp ; envp++) {
1384b88c807SRodney W. Grimes 		if (strchr(*envp, '=')) {
1394b88c807SRodney W. Grimes 			setvareq(*envp, VEXPORT|VTEXTFIXED);
1404b88c807SRodney W. Grimes 		}
1414b88c807SRodney W. Grimes 	}
1424b88c807SRodney W. Grimes }
1434b88c807SRodney W. Grimes #endif
1444b88c807SRodney W. Grimes 
1454b88c807SRodney W. Grimes 
1464b88c807SRodney W. Grimes /*
1474b88c807SRodney W. Grimes  * This routine initializes the builtin variables.  It is called when the
1484b88c807SRodney W. Grimes  * shell is initialized and again when a shell procedure is spawned.
1494b88c807SRodney W. Grimes  */
1504b88c807SRodney W. Grimes 
1514b88c807SRodney W. Grimes void
1525134c3f7SWarner Losh initvar(void)
1535134c3f7SWarner Losh {
15439dccc6fSTim J. Robbins 	char ppid[20];
1554b88c807SRodney W. Grimes 	const struct varinit *ip;
1564b88c807SRodney W. Grimes 	struct var *vp;
1574b88c807SRodney W. Grimes 	struct var **vpp;
1584b88c807SRodney W. Grimes 
1594b88c807SRodney W. Grimes 	for (ip = varinit ; (vp = ip->var) != NULL ; ip++) {
1604b88c807SRodney W. Grimes 		if ((vp->flags & VEXPORT) == 0) {
1614b88c807SRodney W. Grimes 			vpp = hashvar(ip->text);
1624b88c807SRodney W. Grimes 			vp->next = *vpp;
1634b88c807SRodney W. Grimes 			*vpp = vp;
1644b88c807SRodney W. Grimes 			vp->text = ip->text;
1654b88c807SRodney W. Grimes 			vp->flags = ip->flags;
166ab0a2172SSteve Price 			vp->func = ip->func;
1674b88c807SRodney W. Grimes 		}
1684b88c807SRodney W. Grimes 	}
1694b88c807SRodney W. Grimes 	/*
1704b88c807SRodney W. Grimes 	 * PS1 depends on uid
1714b88c807SRodney W. Grimes 	 */
1724b88c807SRodney W. Grimes 	if ((vps1.flags & VEXPORT) == 0) {
1734b88c807SRodney W. Grimes 		vpp = hashvar("PS1=");
1744b88c807SRodney W. Grimes 		vps1.next = *vpp;
1754b88c807SRodney W. Grimes 		*vpp = &vps1;
1764b88c807SRodney W. Grimes 		vps1.text = geteuid() ? "PS1=$ " : "PS1=# ";
1774b88c807SRodney W. Grimes 		vps1.flags = VSTRFIXED|VTEXTFIXED;
1784b88c807SRodney W. Grimes 	}
17939dccc6fSTim J. Robbins 	if ((vppid.flags & VEXPORT) == 0) {
18039dccc6fSTim J. Robbins 		fmtstr(ppid, sizeof(ppid), "%d", (int)getppid());
18139dccc6fSTim J. Robbins 		setvarsafe("PPID", ppid, 0);
18239dccc6fSTim J. Robbins 	}
1834b88c807SRodney W. Grimes }
1844b88c807SRodney W. Grimes 
1854b88c807SRodney W. Grimes /*
186ab0a2172SSteve Price  * Safe version of setvar, returns 1 on success 0 on failure.
187ab0a2172SSteve Price  */
188ab0a2172SSteve Price 
189ab0a2172SSteve Price int
1905134c3f7SWarner Losh setvarsafe(char *name, char *val, int flags)
191ab0a2172SSteve Price {
192ab0a2172SSteve Price 	struct jmploc jmploc;
193ab0a2172SSteve Price 	struct jmploc *volatile savehandler = handler;
194ab0a2172SSteve Price 	int err = 0;
195ab0a2172SSteve Price #if __GNUC__
196ab0a2172SSteve Price 	/* Avoid longjmp clobbering */
197ab0a2172SSteve Price 	(void) &err;
198ab0a2172SSteve Price #endif
199ab0a2172SSteve Price 
200ab0a2172SSteve Price 	if (setjmp(jmploc.loc))
201ab0a2172SSteve Price 		err = 1;
202ab0a2172SSteve Price 	else {
203ab0a2172SSteve Price 		handler = &jmploc;
204ab0a2172SSteve Price 		setvar(name, val, flags);
205ab0a2172SSteve Price 	}
206ab0a2172SSteve Price 	handler = savehandler;
207ab0a2172SSteve Price 	return err;
208ab0a2172SSteve Price }
209ab0a2172SSteve Price 
210ab0a2172SSteve Price /*
2114c1b08b3SMartin Cracauer  * Set the value of a variable.  The flags argument is tored with the
2124b88c807SRodney W. Grimes  * flags of the variable.  If val is NULL, the variable is unset.
2134b88c807SRodney W. Grimes  */
2144b88c807SRodney W. Grimes 
2154b88c807SRodney W. Grimes void
2165134c3f7SWarner Losh setvar(char *name, char *val, int flags)
2174b88c807SRodney W. Grimes {
2184b88c807SRodney W. Grimes 	char *p, *q;
2194b88c807SRodney W. Grimes 	int len;
2204b88c807SRodney W. Grimes 	int namelen;
2214b88c807SRodney W. Grimes 	char *nameeq;
2224b88c807SRodney W. Grimes 	int isbad;
2234b88c807SRodney W. Grimes 
2244b88c807SRodney W. Grimes 	isbad = 0;
2254b88c807SRodney W. Grimes 	p = name;
226ba726b8aSAndrey A. Chernov 	if (! is_name(*p))
2274b88c807SRodney W. Grimes 		isbad = 1;
228ba726b8aSAndrey A. Chernov 	p++;
2294b88c807SRodney W. Grimes 	for (;;) {
2304b88c807SRodney W. Grimes 		if (! is_in_name(*p)) {
2314b88c807SRodney W. Grimes 			if (*p == '\0' || *p == '=')
2324b88c807SRodney W. Grimes 				break;
2334b88c807SRodney W. Grimes 			isbad = 1;
2344b88c807SRodney W. Grimes 		}
2354b88c807SRodney W. Grimes 		p++;
2364b88c807SRodney W. Grimes 	}
2374b88c807SRodney W. Grimes 	namelen = p - name;
2384b88c807SRodney W. Grimes 	if (isbad)
2394b88c807SRodney W. Grimes 		error("%.*s: bad variable name", namelen, name);
2404b88c807SRodney W. Grimes 	len = namelen + 2;		/* 2 is space for '=' and '\0' */
2414b88c807SRodney W. Grimes 	if (val == NULL) {
2424b88c807SRodney W. Grimes 		flags |= VUNSET;
2434b88c807SRodney W. Grimes 	} else {
2444b88c807SRodney W. Grimes 		len += strlen(val);
2454b88c807SRodney W. Grimes 	}
2464b88c807SRodney W. Grimes 	p = nameeq = ckmalloc(len);
2474b88c807SRodney W. Grimes 	q = name;
2484b88c807SRodney W. Grimes 	while (--namelen >= 0)
2494b88c807SRodney W. Grimes 		*p++ = *q++;
2504b88c807SRodney W. Grimes 	*p++ = '=';
2514b88c807SRodney W. Grimes 	*p = '\0';
2524b88c807SRodney W. Grimes 	if (val)
2534b88c807SRodney W. Grimes 		scopy(val, p);
2544b88c807SRodney W. Grimes 	setvareq(nameeq, flags);
2554b88c807SRodney W. Grimes }
2564b88c807SRodney W. Grimes 
257ba726b8aSAndrey A. Chernov STATIC int
2585134c3f7SWarner Losh localevar(char *s)
259ba726b8aSAndrey A. Chernov {
260ba726b8aSAndrey A. Chernov 	static char *lnames[7] = {
261ba726b8aSAndrey A. Chernov 		"ALL", "COLLATE", "CTYPE", "MONETARY",
262ba726b8aSAndrey A. Chernov 		"NUMERIC", "TIME", NULL
263ba726b8aSAndrey A. Chernov 	};
264ba726b8aSAndrey A. Chernov 	char **ss;
2654b88c807SRodney W. Grimes 
266ba726b8aSAndrey A. Chernov 	if (*s != 'L')
267ba726b8aSAndrey A. Chernov 		return 0;
268ba726b8aSAndrey A. Chernov 	if (varequal(s + 1, "ANG"))
269ba726b8aSAndrey A. Chernov 		return 1;
270ba726b8aSAndrey A. Chernov 	if (strncmp(s + 1, "C_", 2) != 0)
271ba726b8aSAndrey A. Chernov 		return 0;
272ba726b8aSAndrey A. Chernov 	for (ss = lnames; *ss ; ss++)
273ba726b8aSAndrey A. Chernov 		if (varequal(s + 3, *ss))
274ba726b8aSAndrey A. Chernov 			return 1;
275ba726b8aSAndrey A. Chernov 	return 0;
276ba726b8aSAndrey A. Chernov }
2774b88c807SRodney W. Grimes 
2784b88c807SRodney W. Grimes /*
2794b88c807SRodney W. Grimes  * Same as setvar except that the variable and value are passed in
2804b88c807SRodney W. Grimes  * the first argument as name=value.  Since the first argument will
2814b88c807SRodney W. Grimes  * be actually stored in the table, it should not be a string that
2824b88c807SRodney W. Grimes  * will go away.
2834b88c807SRodney W. Grimes  */
2844b88c807SRodney W. Grimes 
2854b88c807SRodney W. Grimes void
2865134c3f7SWarner Losh setvareq(char *s, int flags)
2874b88c807SRodney W. Grimes {
2884b88c807SRodney W. Grimes 	struct var *vp, **vpp;
28990e41fc4SWarner Losh 	int len;
2904b88c807SRodney W. Grimes 
291b8ec435eSMartin Cracauer 	if (aflag)
292b8ec435eSMartin Cracauer 		flags |= VEXPORT;
2934b88c807SRodney W. Grimes 	vpp = hashvar(s);
2944b88c807SRodney W. Grimes 	for (vp = *vpp ; vp ; vp = vp->next) {
2954b88c807SRodney W. Grimes 		if (varequal(s, vp->text)) {
2964b88c807SRodney W. Grimes 			if (vp->flags & VREADONLY) {
29790e41fc4SWarner Losh 				len = strchr(s, '=') - s;
2984b88c807SRodney W. Grimes 				error("%.*s: is read only", len, s);
2994b88c807SRodney W. Grimes 			}
3004b88c807SRodney W. Grimes 			INTOFF;
301ab0a2172SSteve Price 
302ab0a2172SSteve Price 			if (vp->func && (flags & VNOFUNC) == 0)
303ab0a2172SSteve Price 				(*vp->func)(strchr(s, '=') + 1);
304ab0a2172SSteve Price 
3054b88c807SRodney W. Grimes 			if ((vp->flags & (VTEXTFIXED|VSTACK)) == 0)
3064b88c807SRodney W. Grimes 				ckfree(vp->text);
307ab0a2172SSteve Price 
3084b88c807SRodney W. Grimes 			vp->flags &= ~(VTEXTFIXED|VSTACK|VUNSET);
3094b88c807SRodney W. Grimes 			vp->flags |= flags;
3104b88c807SRodney W. Grimes 			vp->text = s;
311ab0a2172SSteve Price 
312ab0a2172SSteve Price 			/*
313ab0a2172SSteve Price 			 * We could roll this to a function, to handle it as
314ab0a2172SSteve Price 			 * a regular variable function callback, but why bother?
315ab0a2172SSteve Price 			 */
3164b88c807SRodney W. Grimes 			if (vp == &vmpath || (vp == &vmail && ! mpathset()))
3174b88c807SRodney W. Grimes 				chkmail(1);
318ba726b8aSAndrey A. Chernov 			if ((vp->flags & VEXPORT) && localevar(s)) {
319ba726b8aSAndrey A. Chernov 				putenv(s);
320ba726b8aSAndrey A. Chernov 				(void) setlocale(LC_ALL, "");
321ba726b8aSAndrey A. Chernov 			}
3224b88c807SRodney W. Grimes 			INTON;
3234b88c807SRodney W. Grimes 			return;
3244b88c807SRodney W. Grimes 		}
3254b88c807SRodney W. Grimes 	}
3264b88c807SRodney W. Grimes 	/* not found */
3274b88c807SRodney W. Grimes 	vp = ckmalloc(sizeof (*vp));
3284b88c807SRodney W. Grimes 	vp->flags = flags;
3294b88c807SRodney W. Grimes 	vp->text = s;
3304b88c807SRodney W. Grimes 	vp->next = *vpp;
331ab0a2172SSteve Price 	vp->func = NULL;
332ba726b8aSAndrey A. Chernov 	INTOFF;
3334b88c807SRodney W. Grimes 	*vpp = vp;
334ba726b8aSAndrey A. Chernov 	if ((vp->flags & VEXPORT) && localevar(s)) {
335ba726b8aSAndrey A. Chernov 		putenv(s);
336ba726b8aSAndrey A. Chernov 		(void) setlocale(LC_ALL, "");
337ba726b8aSAndrey A. Chernov 	}
338ba726b8aSAndrey A. Chernov 	INTON;
3394b88c807SRodney W. Grimes }
3404b88c807SRodney W. Grimes 
3414b88c807SRodney W. Grimes 
3424b88c807SRodney W. Grimes 
3434b88c807SRodney W. Grimes /*
3444b88c807SRodney W. Grimes  * Process a linked list of variable assignments.
3454b88c807SRodney W. Grimes  */
3464b88c807SRodney W. Grimes 
3474b88c807SRodney W. Grimes void
3485134c3f7SWarner Losh listsetvar(struct strlist *list)
3494b88c807SRodney W. Grimes {
3504b88c807SRodney W. Grimes 	struct strlist *lp;
3514b88c807SRodney W. Grimes 
3524b88c807SRodney W. Grimes 	INTOFF;
3534b88c807SRodney W. Grimes 	for (lp = list ; lp ; lp = lp->next) {
3544b88c807SRodney W. Grimes 		setvareq(savestr(lp->text), 0);
3554b88c807SRodney W. Grimes 	}
3564b88c807SRodney W. Grimes 	INTON;
3574b88c807SRodney W. Grimes }
3584b88c807SRodney W. Grimes 
3594b88c807SRodney W. Grimes 
3604b88c807SRodney W. Grimes 
3614b88c807SRodney W. Grimes /*
3624b88c807SRodney W. Grimes  * Find the value of a variable.  Returns NULL if not set.
3634b88c807SRodney W. Grimes  */
3644b88c807SRodney W. Grimes 
3654b88c807SRodney W. Grimes char *
3665134c3f7SWarner Losh lookupvar(char *name)
3674b88c807SRodney W. Grimes {
3684b88c807SRodney W. Grimes 	struct var *v;
3694b88c807SRodney W. Grimes 
3704b88c807SRodney W. Grimes 	for (v = *hashvar(name) ; v ; v = v->next) {
3714b88c807SRodney W. Grimes 		if (varequal(v->text, name)) {
3724b88c807SRodney W. Grimes 			if (v->flags & VUNSET)
3734b88c807SRodney W. Grimes 				return NULL;
3744b88c807SRodney W. Grimes 			return strchr(v->text, '=') + 1;
3754b88c807SRodney W. Grimes 		}
3764b88c807SRodney W. Grimes 	}
3774b88c807SRodney W. Grimes 	return NULL;
3784b88c807SRodney W. Grimes }
3794b88c807SRodney W. Grimes 
3804b88c807SRodney W. Grimes 
3814b88c807SRodney W. Grimes 
3824b88c807SRodney W. Grimes /*
3834b88c807SRodney W. Grimes  * Search the environment of a builtin command.  If the second argument
3844b88c807SRodney W. Grimes  * is nonzero, return the value of a variable even if it hasn't been
3854b88c807SRodney W. Grimes  * exported.
3864b88c807SRodney W. Grimes  */
3874b88c807SRodney W. Grimes 
3884b88c807SRodney W. Grimes char *
3895134c3f7SWarner Losh bltinlookup(char *name, int doall)
3904b88c807SRodney W. Grimes {
3914b88c807SRodney W. Grimes 	struct strlist *sp;
3924b88c807SRodney W. Grimes 	struct var *v;
3934b88c807SRodney W. Grimes 
3944b88c807SRodney W. Grimes 	for (sp = cmdenviron ; sp ; sp = sp->next) {
3954b88c807SRodney W. Grimes 		if (varequal(sp->text, name))
3964b88c807SRodney W. Grimes 			return strchr(sp->text, '=') + 1;
3974b88c807SRodney W. Grimes 	}
3984b88c807SRodney W. Grimes 	for (v = *hashvar(name) ; v ; v = v->next) {
3994b88c807SRodney W. Grimes 		if (varequal(v->text, name)) {
400aa9caaf6SPeter Wemm 			if ((v->flags & VUNSET)
401aa9caaf6SPeter Wemm 			 || (!doall && (v->flags & VEXPORT) == 0))
4024b88c807SRodney W. Grimes 				return NULL;
4034b88c807SRodney W. Grimes 			return strchr(v->text, '=') + 1;
4044b88c807SRodney W. Grimes 		}
4054b88c807SRodney W. Grimes 	}
4064b88c807SRodney W. Grimes 	return NULL;
4074b88c807SRodney W. Grimes }
4084b88c807SRodney W. Grimes 
4094b88c807SRodney W. Grimes 
4104b88c807SRodney W. Grimes 
4114b88c807SRodney W. Grimes /*
4124b88c807SRodney W. Grimes  * Generate a list of exported variables.  This routine is used to construct
4134b88c807SRodney W. Grimes  * the third argument to execve when executing a program.
4144b88c807SRodney W. Grimes  */
4154b88c807SRodney W. Grimes 
4164b88c807SRodney W. Grimes char **
4175134c3f7SWarner Losh environment(void)
4185134c3f7SWarner Losh {
4194b88c807SRodney W. Grimes 	int nenv;
4204b88c807SRodney W. Grimes 	struct var **vpp;
4214b88c807SRodney W. Grimes 	struct var *vp;
4224b88c807SRodney W. Grimes 	char **env, **ep;
4234b88c807SRodney W. Grimes 
4244b88c807SRodney W. Grimes 	nenv = 0;
4254b88c807SRodney W. Grimes 	for (vpp = vartab ; vpp < vartab + VTABSIZE ; vpp++) {
4264b88c807SRodney W. Grimes 		for (vp = *vpp ; vp ; vp = vp->next)
4274b88c807SRodney W. Grimes 			if (vp->flags & VEXPORT)
4284b88c807SRodney W. Grimes 				nenv++;
4294b88c807SRodney W. Grimes 	}
4304b88c807SRodney W. Grimes 	ep = env = stalloc((nenv + 1) * sizeof *env);
4314b88c807SRodney W. Grimes 	for (vpp = vartab ; vpp < vartab + VTABSIZE ; vpp++) {
4324b88c807SRodney W. Grimes 		for (vp = *vpp ; vp ; vp = vp->next)
4334b88c807SRodney W. Grimes 			if (vp->flags & VEXPORT)
4344b88c807SRodney W. Grimes 				*ep++ = vp->text;
4354b88c807SRodney W. Grimes 	}
4364b88c807SRodney W. Grimes 	*ep = NULL;
4374b88c807SRodney W. Grimes 	return env;
4384b88c807SRodney W. Grimes }
4394b88c807SRodney W. Grimes 
4404b88c807SRodney W. Grimes 
4414b88c807SRodney W. Grimes /*
4424b88c807SRodney W. Grimes  * Called when a shell procedure is invoked to clear out nonexported
4434b88c807SRodney W. Grimes  * variables.  It is also necessary to reallocate variables of with
4444b88c807SRodney W. Grimes  * VSTACK set since these are currently allocated on the stack.
4454b88c807SRodney W. Grimes  */
4464b88c807SRodney W. Grimes 
4474b88c807SRodney W. Grimes #ifdef mkinit
448c7893739SStefan Farfeleder MKINIT void shprocvar(void);
4494b88c807SRodney W. Grimes 
4504b88c807SRodney W. Grimes SHELLPROC {
4514b88c807SRodney W. Grimes 	shprocvar();
4524b88c807SRodney W. Grimes }
4534b88c807SRodney W. Grimes #endif
4544b88c807SRodney W. Grimes 
4554b88c807SRodney W. Grimes void
4565134c3f7SWarner Losh shprocvar(void)
4575134c3f7SWarner Losh {
4584b88c807SRodney W. Grimes 	struct var **vpp;
4594b88c807SRodney W. Grimes 	struct var *vp, **prev;
4604b88c807SRodney W. Grimes 
4614b88c807SRodney W. Grimes 	for (vpp = vartab ; vpp < vartab + VTABSIZE ; vpp++) {
4624b88c807SRodney W. Grimes 		for (prev = vpp ; (vp = *prev) != NULL ; ) {
4634b88c807SRodney W. Grimes 			if ((vp->flags & VEXPORT) == 0) {
4644b88c807SRodney W. Grimes 				*prev = vp->next;
4654b88c807SRodney W. Grimes 				if ((vp->flags & VTEXTFIXED) == 0)
4664b88c807SRodney W. Grimes 					ckfree(vp->text);
4674b88c807SRodney W. Grimes 				if ((vp->flags & VSTRFIXED) == 0)
4684b88c807SRodney W. Grimes 					ckfree(vp);
4694b88c807SRodney W. Grimes 			} else {
4704b88c807SRodney W. Grimes 				if (vp->flags & VSTACK) {
4714b88c807SRodney W. Grimes 					vp->text = savestr(vp->text);
4724b88c807SRodney W. Grimes 					vp->flags &=~ VSTACK;
4734b88c807SRodney W. Grimes 				}
4744b88c807SRodney W. Grimes 				prev = &vp->next;
4754b88c807SRodney W. Grimes 			}
4764b88c807SRodney W. Grimes 		}
4774b88c807SRodney W. Grimes 	}
4784b88c807SRodney W. Grimes 	initvar();
4794b88c807SRodney W. Grimes }
4804b88c807SRodney W. Grimes 
4814b88c807SRodney W. Grimes 
4824b88c807SRodney W. Grimes 
4834b88c807SRodney W. Grimes /*
4844b88c807SRodney W. Grimes  * Command to list all variables which are set.  Currently this command
4854b88c807SRodney W. Grimes  * is invoked from the set command when the set command is called without
4864b88c807SRodney W. Grimes  * any variables.
4874b88c807SRodney W. Grimes  */
4884b88c807SRodney W. Grimes 
4894b88c807SRodney W. Grimes int
4905134c3f7SWarner Losh showvarscmd(int argc __unused, char **argv __unused)
491aa9caaf6SPeter Wemm {
4924b88c807SRodney W. Grimes 	struct var **vpp;
4934b88c807SRodney W. Grimes 	struct var *vp;
49459258844STim J. Robbins 	const char *s;
4954b88c807SRodney W. Grimes 
4964b88c807SRodney W. Grimes 	for (vpp = vartab ; vpp < vartab + VTABSIZE ; vpp++) {
4974b88c807SRodney W. Grimes 		for (vp = *vpp ; vp ; vp = vp->next) {
49859258844STim J. Robbins 			if (vp->flags & VUNSET)
49959258844STim J. Robbins 				continue;
50059258844STim J. Robbins 			for (s = vp->text; *s != '='; s++)
50159258844STim J. Robbins 				out1c(*s);
50259258844STim J. Robbins 			out1c('=');
50359258844STim J. Robbins 			out1qstr(s + 1);
50459258844STim J. Robbins 			out1c('\n');
5054b88c807SRodney W. Grimes 		}
5064b88c807SRodney W. Grimes 	}
5074b88c807SRodney W. Grimes 	return 0;
5084b88c807SRodney W. Grimes }
5094b88c807SRodney W. Grimes 
5104b88c807SRodney W. Grimes 
5114b88c807SRodney W. Grimes 
5124b88c807SRodney W. Grimes /*
5134b88c807SRodney W. Grimes  * The export and readonly commands.
5144b88c807SRodney W. Grimes  */
5154b88c807SRodney W. Grimes 
5164b88c807SRodney W. Grimes int
5175134c3f7SWarner Losh exportcmd(int argc, char **argv)
518aa9caaf6SPeter Wemm {
5194b88c807SRodney W. Grimes 	struct var **vpp;
5204b88c807SRodney W. Grimes 	struct var *vp;
5214b88c807SRodney W. Grimes 	char *name;
5224b88c807SRodney W. Grimes 	char *p;
52345086f8cSTim J. Robbins 	char *cmdname;
52445086f8cSTim J. Robbins 	int ch, values;
5254b88c807SRodney W. Grimes 	int flag = argv[0][0] == 'r'? VREADONLY : VEXPORT;
5264b88c807SRodney W. Grimes 
52745086f8cSTim J. Robbins 	cmdname = argv[0];
52845086f8cSTim J. Robbins 	optreset = optind = 1;
529050f7913STim J. Robbins 	opterr = 0;
53045086f8cSTim J. Robbins 	values = 0;
53145086f8cSTim J. Robbins 	while ((ch = getopt(argc, argv, "p")) != -1) {
53245086f8cSTim J. Robbins 		switch (ch) {
53345086f8cSTim J. Robbins 		case 'p':
53445086f8cSTim J. Robbins 			values = 1;
53545086f8cSTim J. Robbins 			break;
53645086f8cSTim J. Robbins 		case '?':
53745086f8cSTim J. Robbins 		default:
53845086f8cSTim J. Robbins 			error("unknown option: -%c", optopt);
53945086f8cSTim J. Robbins 		}
54045086f8cSTim J. Robbins 	}
54145086f8cSTim J. Robbins 	argc -= optind;
54245086f8cSTim J. Robbins 	argv += optind;
54345086f8cSTim J. Robbins 
5443fda45ecSStefan Farfeleder 	if (values && argc != 0)
5453fda45ecSStefan Farfeleder 		error("-p requires no arguments");
5464b88c807SRodney W. Grimes 	listsetvar(cmdenviron);
54745086f8cSTim J. Robbins 	if (argc != 0) {
5483fda45ecSStefan Farfeleder 		while ((name = *argv++) != NULL) {
5494b88c807SRodney W. Grimes 			if ((p = strchr(name, '=')) != NULL) {
5504b88c807SRodney W. Grimes 				p++;
5514b88c807SRodney W. Grimes 			} else {
5524b88c807SRodney W. Grimes 				vpp = hashvar(name);
5534b88c807SRodney W. Grimes 				for (vp = *vpp ; vp ; vp = vp->next) {
5544b88c807SRodney W. Grimes 					if (varequal(vp->text, name)) {
5555134c3f7SWarner Losh 
5564b88c807SRodney W. Grimes 						vp->flags |= flag;
557ba726b8aSAndrey A. Chernov 						if ((vp->flags & VEXPORT) && localevar(vp->text)) {
558ba726b8aSAndrey A. Chernov 							putenv(vp->text);
559ba726b8aSAndrey A. Chernov 							(void) setlocale(LC_ALL, "");
560ba726b8aSAndrey A. Chernov 						}
5614b88c807SRodney W. Grimes 						goto found;
5624b88c807SRodney W. Grimes 					}
5634b88c807SRodney W. Grimes 				}
5644b88c807SRodney W. Grimes 			}
5654b88c807SRodney W. Grimes 			setvar(name, p, flag);
5664b88c807SRodney W. Grimes found:;
5674b88c807SRodney W. Grimes 		}
5684b88c807SRodney W. Grimes 	} else {
5694b88c807SRodney W. Grimes 		for (vpp = vartab ; vpp < vartab + VTABSIZE ; vpp++) {
5704b88c807SRodney W. Grimes 			for (vp = *vpp ; vp ; vp = vp->next) {
5714b88c807SRodney W. Grimes 				if (vp->flags & flag) {
57245086f8cSTim J. Robbins 					if (values) {
57345086f8cSTim J. Robbins 						out1str(cmdname);
57445086f8cSTim J. Robbins 						out1c(' ');
57545086f8cSTim J. Robbins 					}
5764b88c807SRodney W. Grimes 					for (p = vp->text ; *p != '=' ; p++)
5774b88c807SRodney W. Grimes 						out1c(*p);
57845086f8cSTim J. Robbins 					if (values && !(vp->flags & VUNSET)) {
57945086f8cSTim J. Robbins 						out1c('=');
58045086f8cSTim J. Robbins 						out1qstr(p + 1);
58145086f8cSTim J. Robbins 					}
5824b88c807SRodney W. Grimes 					out1c('\n');
5834b88c807SRodney W. Grimes 				}
5844b88c807SRodney W. Grimes 			}
5854b88c807SRodney W. Grimes 		}
5864b88c807SRodney W. Grimes 	}
5874b88c807SRodney W. Grimes 	return 0;
5884b88c807SRodney W. Grimes }
5894b88c807SRodney W. Grimes 
5904b88c807SRodney W. Grimes 
5914b88c807SRodney W. Grimes /*
5924b88c807SRodney W. Grimes  * The "local" command.
5934b88c807SRodney W. Grimes  */
5944b88c807SRodney W. Grimes 
595aa9caaf6SPeter Wemm int
5965134c3f7SWarner Losh localcmd(int argc __unused, char **argv __unused)
597aa9caaf6SPeter Wemm {
5984b88c807SRodney W. Grimes 	char *name;
5994b88c807SRodney W. Grimes 
6004b88c807SRodney W. Grimes 	if (! in_function())
6014b88c807SRodney W. Grimes 		error("Not in a function");
6024b88c807SRodney W. Grimes 	while ((name = *argptr++) != NULL) {
6034b88c807SRodney W. Grimes 		mklocal(name);
6044b88c807SRodney W. Grimes 	}
6054b88c807SRodney W. Grimes 	return 0;
6064b88c807SRodney W. Grimes }
6074b88c807SRodney W. Grimes 
6084b88c807SRodney W. Grimes 
6094b88c807SRodney W. Grimes /*
6104b88c807SRodney W. Grimes  * Make a variable a local variable.  When a variable is made local, it's
6114b88c807SRodney W. Grimes  * value and flags are saved in a localvar structure.  The saved values
6124b88c807SRodney W. Grimes  * will be restored when the shell function returns.  We handle the name
6134b88c807SRodney W. Grimes  * "-" as a special case.
6144b88c807SRodney W. Grimes  */
6154b88c807SRodney W. Grimes 
6164b88c807SRodney W. Grimes void
6175134c3f7SWarner Losh mklocal(char *name)
6184b88c807SRodney W. Grimes {
6194b88c807SRodney W. Grimes 	struct localvar *lvp;
6204b88c807SRodney W. Grimes 	struct var **vpp;
6214b88c807SRodney W. Grimes 	struct var *vp;
6224b88c807SRodney W. Grimes 
6234b88c807SRodney W. Grimes 	INTOFF;
6244b88c807SRodney W. Grimes 	lvp = ckmalloc(sizeof (struct localvar));
6254b88c807SRodney W. Grimes 	if (name[0] == '-' && name[1] == '\0') {
6264b88c807SRodney W. Grimes 		lvp->text = ckmalloc(sizeof optlist);
627aa9caaf6SPeter Wemm 		memcpy(lvp->text, optlist, sizeof optlist);
6284b88c807SRodney W. Grimes 		vp = NULL;
6294b88c807SRodney W. Grimes 	} else {
6304b88c807SRodney W. Grimes 		vpp = hashvar(name);
6314b88c807SRodney W. Grimes 		for (vp = *vpp ; vp && ! varequal(vp->text, name) ; vp = vp->next);
6324b88c807SRodney W. Grimes 		if (vp == NULL) {
6334b88c807SRodney W. Grimes 			if (strchr(name, '='))
6344b88c807SRodney W. Grimes 				setvareq(savestr(name), VSTRFIXED);
6354b88c807SRodney W. Grimes 			else
6364b88c807SRodney W. Grimes 				setvar(name, NULL, VSTRFIXED);
6374b88c807SRodney W. Grimes 			vp = *vpp;	/* the new variable */
6384b88c807SRodney W. Grimes 			lvp->text = NULL;
6394b88c807SRodney W. Grimes 			lvp->flags = VUNSET;
6404b88c807SRodney W. Grimes 		} else {
6414b88c807SRodney W. Grimes 			lvp->text = vp->text;
6424b88c807SRodney W. Grimes 			lvp->flags = vp->flags;
6434b88c807SRodney W. Grimes 			vp->flags |= VSTRFIXED|VTEXTFIXED;
6444b88c807SRodney W. Grimes 			if (strchr(name, '='))
6454b88c807SRodney W. Grimes 				setvareq(savestr(name), 0);
6464b88c807SRodney W. Grimes 		}
6474b88c807SRodney W. Grimes 	}
6484b88c807SRodney W. Grimes 	lvp->vp = vp;
6494b88c807SRodney W. Grimes 	lvp->next = localvars;
6504b88c807SRodney W. Grimes 	localvars = lvp;
6514b88c807SRodney W. Grimes 	INTON;
6524b88c807SRodney W. Grimes }
6534b88c807SRodney W. Grimes 
6544b88c807SRodney W. Grimes 
6554b88c807SRodney W. Grimes /*
6564b88c807SRodney W. Grimes  * Called after a function returns.
6574b88c807SRodney W. Grimes  */
6584b88c807SRodney W. Grimes 
6594b88c807SRodney W. Grimes void
6605134c3f7SWarner Losh poplocalvars(void)
6615134c3f7SWarner Losh {
6624b88c807SRodney W. Grimes 	struct localvar *lvp;
6634b88c807SRodney W. Grimes 	struct var *vp;
6644b88c807SRodney W. Grimes 
6654b88c807SRodney W. Grimes 	while ((lvp = localvars) != NULL) {
6664b88c807SRodney W. Grimes 		localvars = lvp->next;
6674b88c807SRodney W. Grimes 		vp = lvp->vp;
6684b88c807SRodney W. Grimes 		if (vp == NULL) {	/* $- saved */
669aa9caaf6SPeter Wemm 			memcpy(optlist, lvp->text, sizeof optlist);
6704b88c807SRodney W. Grimes 			ckfree(lvp->text);
6714b88c807SRodney W. Grimes 		} else if ((lvp->flags & (VUNSET|VSTRFIXED)) == VUNSET) {
6724b88c807SRodney W. Grimes 			(void)unsetvar(vp->text);
6734b88c807SRodney W. Grimes 		} else {
6744b88c807SRodney W. Grimes 			if ((vp->flags & VTEXTFIXED) == 0)
6754b88c807SRodney W. Grimes 				ckfree(vp->text);
6764b88c807SRodney W. Grimes 			vp->flags = lvp->flags;
6774b88c807SRodney W. Grimes 			vp->text = lvp->text;
6784b88c807SRodney W. Grimes 		}
6794b88c807SRodney W. Grimes 		ckfree(lvp);
6804b88c807SRodney W. Grimes 	}
6814b88c807SRodney W. Grimes }
6824b88c807SRodney W. Grimes 
6834b88c807SRodney W. Grimes 
684aa9caaf6SPeter Wemm int
6855134c3f7SWarner Losh setvarcmd(int argc, char **argv)
686aa9caaf6SPeter Wemm {
6874b88c807SRodney W. Grimes 	if (argc <= 2)
6884b88c807SRodney W. Grimes 		return unsetcmd(argc, argv);
6894b88c807SRodney W. Grimes 	else if (argc == 3)
6904b88c807SRodney W. Grimes 		setvar(argv[1], argv[2], 0);
6914b88c807SRodney W. Grimes 	else
6924b88c807SRodney W. Grimes 		error("List assignment not implemented");
6934b88c807SRodney W. Grimes 	return 0;
6944b88c807SRodney W. Grimes }
6954b88c807SRodney W. Grimes 
6964b88c807SRodney W. Grimes 
6974b88c807SRodney W. Grimes /*
6984b88c807SRodney W. Grimes  * The unset builtin command.  We unset the function before we unset the
6994b88c807SRodney W. Grimes  * variable to allow a function to be unset when there is a readonly variable
7004b88c807SRodney W. Grimes  * with the same name.
7014b88c807SRodney W. Grimes  */
7024b88c807SRodney W. Grimes 
703aa9caaf6SPeter Wemm int
7045134c3f7SWarner Losh unsetcmd(int argc __unused, char **argv __unused)
705aa9caaf6SPeter Wemm {
7064b88c807SRodney W. Grimes 	char **ap;
7074b88c807SRodney W. Grimes 	int i;
7084b88c807SRodney W. Grimes 	int flg_func = 0;
7094b88c807SRodney W. Grimes 	int flg_var = 0;
7104b88c807SRodney W. Grimes 	int ret = 0;
7114b88c807SRodney W. Grimes 
7124b88c807SRodney W. Grimes 	while ((i = nextopt("vf")) != '\0') {
7134b88c807SRodney W. Grimes 		if (i == 'f')
7144b88c807SRodney W. Grimes 			flg_func = 1;
7154b88c807SRodney W. Grimes 		else
7164b88c807SRodney W. Grimes 			flg_var = 1;
7174b88c807SRodney W. Grimes 	}
7184b88c807SRodney W. Grimes 	if (flg_func == 0 && flg_var == 0)
7194b88c807SRodney W. Grimes 		flg_var = 1;
7204b88c807SRodney W. Grimes 
7214b88c807SRodney W. Grimes 	for (ap = argptr; *ap ; ap++) {
7224b88c807SRodney W. Grimes 		if (flg_func)
7234b88c807SRodney W. Grimes 			ret |= unsetfunc(*ap);
7244b88c807SRodney W. Grimes 		if (flg_var)
7254b88c807SRodney W. Grimes 			ret |= unsetvar(*ap);
7264b88c807SRodney W. Grimes 	}
7274b88c807SRodney W. Grimes 	return ret;
7284b88c807SRodney W. Grimes }
7294b88c807SRodney W. Grimes 
7304b88c807SRodney W. Grimes 
7314b88c807SRodney W. Grimes /*
7324b88c807SRodney W. Grimes  * Unset the specified variable.
7334b88c807SRodney W. Grimes  */
7344b88c807SRodney W. Grimes 
735ab0a2172SSteve Price int
7365134c3f7SWarner Losh unsetvar(char *s)
7374b88c807SRodney W. Grimes {
7384b88c807SRodney W. Grimes 	struct var **vpp;
7394b88c807SRodney W. Grimes 	struct var *vp;
7404b88c807SRodney W. Grimes 
7414b88c807SRodney W. Grimes 	vpp = hashvar(s);
7424b88c807SRodney W. Grimes 	for (vp = *vpp ; vp ; vpp = &vp->next, vp = *vpp) {
7434b88c807SRodney W. Grimes 		if (varequal(vp->text, s)) {
7444b88c807SRodney W. Grimes 			if (vp->flags & VREADONLY)
7454b88c807SRodney W. Grimes 				return (1);
7464b88c807SRodney W. Grimes 			INTOFF;
7474b88c807SRodney W. Grimes 			if (*(strchr(vp->text, '=') + 1) != '\0')
7484b88c807SRodney W. Grimes 				setvar(s, nullstr, 0);
749ba726b8aSAndrey A. Chernov 			if ((vp->flags & VEXPORT) && localevar(vp->text)) {
750ba726b8aSAndrey A. Chernov 				unsetenv(s);
751ba726b8aSAndrey A. Chernov 				setlocale(LC_ALL, "");
752ba726b8aSAndrey A. Chernov 			}
7534b88c807SRodney W. Grimes 			vp->flags &= ~VEXPORT;
7544b88c807SRodney W. Grimes 			vp->flags |= VUNSET;
7554b88c807SRodney W. Grimes 			if ((vp->flags & VSTRFIXED) == 0) {
7564b88c807SRodney W. Grimes 				if ((vp->flags & VTEXTFIXED) == 0)
7574b88c807SRodney W. Grimes 					ckfree(vp->text);
7584b88c807SRodney W. Grimes 				*vpp = vp->next;
7594b88c807SRodney W. Grimes 				ckfree(vp);
7604b88c807SRodney W. Grimes 			}
7614b88c807SRodney W. Grimes 			INTON;
7624b88c807SRodney W. Grimes 			return (0);
7634b88c807SRodney W. Grimes 		}
7644b88c807SRodney W. Grimes 	}
7654b88c807SRodney W. Grimes 
766bd766773SDag-Erling Smørgrav 	return (0);
7674b88c807SRodney W. Grimes }
7684b88c807SRodney W. Grimes 
7694b88c807SRodney W. Grimes 
7704b88c807SRodney W. Grimes 
7714b88c807SRodney W. Grimes /*
7724b88c807SRodney W. Grimes  * Find the appropriate entry in the hash table from the name.
7734b88c807SRodney W. Grimes  */
7744b88c807SRodney W. Grimes 
7754b88c807SRodney W. Grimes STATIC struct var **
7765134c3f7SWarner Losh hashvar(char *p)
7774b88c807SRodney W. Grimes {
7784b88c807SRodney W. Grimes 	unsigned int hashval;
7794b88c807SRodney W. Grimes 
780ba726b8aSAndrey A. Chernov 	hashval = ((unsigned char) *p) << 4;
7814b88c807SRodney W. Grimes 	while (*p && *p != '=')
782ba726b8aSAndrey A. Chernov 		hashval += (unsigned char) *p++;
7834b88c807SRodney W. Grimes 	return &vartab[hashval % VTABSIZE];
7844b88c807SRodney W. Grimes }
7854b88c807SRodney W. Grimes 
7864b88c807SRodney W. Grimes 
7874b88c807SRodney W. Grimes 
7884b88c807SRodney W. Grimes /*
7894b88c807SRodney W. Grimes  * Returns true if the two strings specify the same varable.  The first
7904b88c807SRodney W. Grimes  * variable name is terminated by '='; the second may be terminated by
7914b88c807SRodney W. Grimes  * either '=' or '\0'.
7924b88c807SRodney W. Grimes  */
7934b88c807SRodney W. Grimes 
7944b88c807SRodney W. Grimes STATIC int
7955134c3f7SWarner Losh varequal(char *p, char *q)
7964b88c807SRodney W. Grimes {
7974b88c807SRodney W. Grimes 	while (*p == *q++) {
7984b88c807SRodney W. Grimes 		if (*p++ == '=')
7994b88c807SRodney W. Grimes 			return 1;
8004b88c807SRodney W. Grimes 	}
8014b88c807SRodney W. Grimes 	if (*p == '=' && *(q - 1) == '\0')
8024b88c807SRodney W. Grimes 		return 1;
8034b88c807SRodney W. Grimes 	return 0;
8044b88c807SRodney W. Grimes }
805