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