145e5710bSMark Peek /*
2c80476e4SDavid E. O'Brien * sh.set.c: Setting and Clearing of variables
3c80476e4SDavid E. O'Brien */
4c80476e4SDavid E. O'Brien /*-
5c80476e4SDavid E. O'Brien * Copyright (c) 1980, 1991 The Regents of the University of California.
6c80476e4SDavid E. O'Brien * All rights reserved.
7c80476e4SDavid E. O'Brien *
8c80476e4SDavid E. O'Brien * Redistribution and use in source and binary forms, with or without
9c80476e4SDavid E. O'Brien * modification, are permitted provided that the following conditions
10c80476e4SDavid E. O'Brien * are met:
11c80476e4SDavid E. O'Brien * 1. Redistributions of source code must retain the above copyright
12c80476e4SDavid E. O'Brien * notice, this list of conditions and the following disclaimer.
13c80476e4SDavid E. O'Brien * 2. Redistributions in binary form must reproduce the above copyright
14c80476e4SDavid E. O'Brien * notice, this list of conditions and the following disclaimer in the
15c80476e4SDavid E. O'Brien * documentation and/or other materials provided with the distribution.
16c80476e4SDavid E. O'Brien * 3. Neither the name of the University nor the names of its contributors
1729301572SMark Peek * may be used to endorse or promote products derived from this software
18c80476e4SDavid E. O'Brien * without specific prior written permission.
19c80476e4SDavid E. O'Brien *
20c80476e4SDavid E. O'Brien * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21c80476e4SDavid E. O'Brien * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22c80476e4SDavid E. O'Brien * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23c80476e4SDavid E. O'Brien * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24c80476e4SDavid E. O'Brien * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25c80476e4SDavid E. O'Brien * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26c80476e4SDavid E. O'Brien * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27c80476e4SDavid E. O'Brien * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28c80476e4SDavid E. O'Brien * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29c80476e4SDavid E. O'Brien * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30c80476e4SDavid E. O'Brien * SUCH DAMAGE.
31c80476e4SDavid E. O'Brien */
32c80476e4SDavid E. O'Brien #include "sh.h"
33c80476e4SDavid E. O'Brien #include "ed.h"
34c80476e4SDavid E. O'Brien #include "tw.h"
3545e5710bSMark Peek
36c80476e4SDavid E. O'Brien #ifdef HAVE_NL_LANGINFO
37c80476e4SDavid E. O'Brien #include <langinfo.h>
38c80476e4SDavid E. O'Brien #endif
39c80476e4SDavid E. O'Brien
4023338178SMark Peek extern int GotTermCaps;
4123338178SMark Peek int numeof = 0;
4223338178SMark Peek
4323338178SMark Peek static void update_vars (Char *);
4423338178SMark Peek static Char *getinx (Char *, int *);
45b2d5d167SMark Peek static void asx (Char *, int, Char *);
46c80476e4SDavid E. O'Brien static struct varent *getvx (Char *, int);
4745e5710bSMark Peek static Char *xset (Char *, Char ***);
4845e5710bSMark Peek static Char *operate (int, Char *, Char *);
4945e5710bSMark Peek static void putn1 (tcsh_number_t);
5045e5710bSMark Peek static struct varent *madrof (Char *, struct varent *);
5145e5710bSMark Peek static void unsetv1 (struct varent *);
5245e5710bSMark Peek static void exportpath (Char **);
5345e5710bSMark Peek static void balance (struct varent *, int, int);
5445e5710bSMark Peek static int set_noclobber (Char **);
5545e5710bSMark Peek
5645e5710bSMark Peek /*
5745e5710bSMark Peek * C Shell
58c80476e4SDavid E. O'Brien */
59c80476e4SDavid E. O'Brien
60c80476e4SDavid E. O'Brien static void
update_vars(Char * vp)61c80476e4SDavid E. O'Brien update_vars(Char *vp)
62c80476e4SDavid E. O'Brien {
63c80476e4SDavid E. O'Brien if (eq(vp, STRpath)) {
6445e5710bSMark Peek struct varent *p = adrof(STRpath);
65c80476e4SDavid E. O'Brien if (p == NULL)
66c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_UNDVAR);
6745e5710bSMark Peek else {
6845e5710bSMark Peek exportpath(p->vec);
6945e5710bSMark Peek dohash(NULL, NULL);
7045e5710bSMark Peek }
7145e5710bSMark Peek }
72c80476e4SDavid E. O'Brien else if (eq(vp, STRnoclobber)) {
73c80476e4SDavid E. O'Brien struct varent *p = adrof(STRnoclobber);
7445e5710bSMark Peek if (p == NULL)
75c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_UNDVAR);
7623338178SMark Peek else
77c80476e4SDavid E. O'Brien no_clobber = set_noclobber(p->vec);
78c80476e4SDavid E. O'Brien }
79c80476e4SDavid E. O'Brien else if (eq(vp, STRhistchars)) {
80c80476e4SDavid E. O'Brien Char *pn = varval(vp);
81c80476e4SDavid E. O'Brien
8223338178SMark Peek HIST = *pn++;
83c80476e4SDavid E. O'Brien if (HIST)
84c80476e4SDavid E. O'Brien HISTSUB = *pn;
85c80476e4SDavid E. O'Brien else
86c80476e4SDavid E. O'Brien HISTSUB = HIST;
87c80476e4SDavid E. O'Brien }
88c80476e4SDavid E. O'Brien else if (eq(vp, STRpromptchars)) {
89c80476e4SDavid E. O'Brien Char *pn = varval(vp);
90c80476e4SDavid E. O'Brien
91c80476e4SDavid E. O'Brien PRCH = *pn++;
92c80476e4SDavid E. O'Brien if (PRCH)
93c80476e4SDavid E. O'Brien PRCHROOT = *pn;
94c80476e4SDavid E. O'Brien else
95c80476e4SDavid E. O'Brien PRCHROOT = PRCH;
96c80476e4SDavid E. O'Brien }
97c80476e4SDavid E. O'Brien else if (eq(vp, STRhistlit)) {
98c80476e4SDavid E. O'Brien HistLit = 1;
99c80476e4SDavid E. O'Brien }
100c80476e4SDavid E. O'Brien else if (eq(vp, STRuser)) {
101c80476e4SDavid E. O'Brien tsetenv(STRKUSER, varval(vp));
102c80476e4SDavid E. O'Brien tsetenv(STRLOGNAME, varval(vp));
103c80476e4SDavid E. O'Brien }
10423338178SMark Peek else if (eq(vp, STRgroup)) {
105c80476e4SDavid E. O'Brien tsetenv(STRKGROUP, varval(vp));
106c80476e4SDavid E. O'Brien }
107c80476e4SDavid E. O'Brien else if (eq(vp, STRwordchars)) {
108c80476e4SDavid E. O'Brien word_chars = varval(vp);
109c80476e4SDavid E. O'Brien }
110c80476e4SDavid E. O'Brien else if (eq(vp, STRloginsh)) {
111c80476e4SDavid E. O'Brien loginsh = 1;
112c80476e4SDavid E. O'Brien }
113c80476e4SDavid E. O'Brien else if (eq(vp, STRanyerror)) {
114c80476e4SDavid E. O'Brien anyerror = 1;
115c80476e4SDavid E. O'Brien }
116c80476e4SDavid E. O'Brien else if (eq(vp, STRsymlinks)) {
117c80476e4SDavid E. O'Brien Char *pn = varval(vp);
118c80476e4SDavid E. O'Brien
119c80476e4SDavid E. O'Brien if (eq(pn, STRignore))
120c80476e4SDavid E. O'Brien symlinks = SYM_IGNORE;
121c80476e4SDavid E. O'Brien else if (eq(pn, STRexpand))
122c80476e4SDavid E. O'Brien symlinks = SYM_EXPAND;
123c80476e4SDavid E. O'Brien else if (eq(pn, STRchase))
124c80476e4SDavid E. O'Brien symlinks = SYM_CHASE;
125c80476e4SDavid E. O'Brien else
126c80476e4SDavid E. O'Brien symlinks = 0;
127c80476e4SDavid E. O'Brien }
12845e5710bSMark Peek else if (eq(vp, STRterm)) {
129c80476e4SDavid E. O'Brien Char *cp = varval(vp);
130c80476e4SDavid E. O'Brien tsetenv(STRKTERM, cp);
131c80476e4SDavid E. O'Brien #ifdef DOESNT_WORK_RIGHT
132c80476e4SDavid E. O'Brien cp = getenv("TERMCAP");
13345e5710bSMark Peek if (cp && (*cp != '/')) /* if TERMCAP and not a path */
134c80476e4SDavid E. O'Brien Unsetenv(STRTERMCAP);
135c80476e4SDavid E. O'Brien #endif /* DOESNT_WORK_RIGHT */
13645e5710bSMark Peek GotTermCaps = 0;
137c80476e4SDavid E. O'Brien if (noediting && Strcmp(cp, STRnetwork) != 0 &&
138c80476e4SDavid E. O'Brien Strcmp(cp, STRunknown) != 0 && Strcmp(cp, STRdumb) != 0) {
139c80476e4SDavid E. O'Brien editing = 1;
140c80476e4SDavid E. O'Brien noediting = 0;
14145e5710bSMark Peek setNS(STRedit);
14245e5710bSMark Peek }
14345e5710bSMark Peek ed_Init(); /* reset the editor */
14445e5710bSMark Peek }
145c80476e4SDavid E. O'Brien else if (eq(vp, STRhome)) {
14645e5710bSMark Peek Char *cp, *canon;
147c80476e4SDavid E. O'Brien
148c80476e4SDavid E. O'Brien cp = Strsave(varval(vp)); /* get the old value back */
14945e5710bSMark Peek /*
150c80476e4SDavid E. O'Brien * convert to cononical pathname (possibly resolving symlinks)
151c80476e4SDavid E. O'Brien */
15245e5710bSMark Peek canon = dcanon(cp, cp);
153c80476e4SDavid E. O'Brien cleanup_push(canon, xfree);
154c80476e4SDavid E. O'Brien
155c80476e4SDavid E. O'Brien setcopy(vp, canon, VAR_READWRITE); /* have to save the new val */
156c80476e4SDavid E. O'Brien
157c80476e4SDavid E. O'Brien /* and now mirror home with HOME */
158c80476e4SDavid E. O'Brien tsetenv(STRKHOME, canon);
159c80476e4SDavid E. O'Brien /* fix directory stack for new tilde home */
160c80476e4SDavid E. O'Brien dtilde();
161c80476e4SDavid E. O'Brien cleanup_until(canon);
162b2d5d167SMark Peek }
163b2d5d167SMark Peek else if (eq(vp, STRedit)) {
164b2d5d167SMark Peek editing = 1;
165b2d5d167SMark Peek noediting = 0;
166b2d5d167SMark Peek /* PWP: add more stuff in here later */
167b2d5d167SMark Peek }
168b2d5d167SMark Peek else if (eq(vp, STRvimode)) {
169b2d5d167SMark Peek VImode = 1;
170b2d5d167SMark Peek update_wordchars();
171b2d5d167SMark Peek }
172b2d5d167SMark Peek else if (eq(vp, STRshlvl)) {
173b2d5d167SMark Peek tsetenv(STRKSHLVL, varval(vp));
174c80476e4SDavid E. O'Brien }
175c80476e4SDavid E. O'Brien else if (eq(vp, STRignoreeof)) {
176c80476e4SDavid E. O'Brien Char *cp;
177c80476e4SDavid E. O'Brien numeof = 0;
178c80476e4SDavid E. O'Brien for ((cp = varval(STRignoreeof)); cp && *cp; cp++) {
179c80476e4SDavid E. O'Brien if (!Isdigit(*cp)) {
180c80476e4SDavid E. O'Brien numeof = 0;
181c80476e4SDavid E. O'Brien break;
182c80476e4SDavid E. O'Brien }
1836767bd61SMark Peek numeof = numeof * 10 + *cp - '0';
1846767bd61SMark Peek }
1856767bd61SMark Peek if (numeof <= 0) numeof = 26; /* Sanity check */
186c80476e4SDavid E. O'Brien }
187c80476e4SDavid E. O'Brien else if (eq(vp, STRbackslash_quote)) {
188c80476e4SDavid E. O'Brien bslash_quote = 1;
189c80476e4SDavid E. O'Brien }
190c80476e4SDavid E. O'Brien else if (eq(vp, STRcompat_expr)) {
191c80476e4SDavid E. O'Brien compat_expr = 1;
192c80476e4SDavid E. O'Brien }
193c80476e4SDavid E. O'Brien else if (eq(vp, STRdirstack)) {
194c80476e4SDavid E. O'Brien dsetstack();
195c80476e4SDavid E. O'Brien }
196c80476e4SDavid E. O'Brien else if (eq(vp, STRrecognize_only_executables)) {
197c80476e4SDavid E. O'Brien tw_cmd_free();
198c80476e4SDavid E. O'Brien }
199c80476e4SDavid E. O'Brien else if (eq(vp, STRkillring)) {
200c80476e4SDavid E. O'Brien SetKillRing((int)getn(varval(vp)));
201c80476e4SDavid E. O'Brien }
202c80476e4SDavid E. O'Brien else if (eq(vp, STRhistory)) {
203c80476e4SDavid E. O'Brien sethistory((int)getn(varval(vp)));
2043b6eaa7bSAndrey A. Chernov }
2053b6eaa7bSAndrey A. Chernov #ifndef HAVENOUTMP
20623338178SMark Peek else if (eq(vp, STRwatch)) {
2073b6eaa7bSAndrey A. Chernov resetwatch();
2083b6eaa7bSAndrey A. Chernov }
20929301572SMark Peek #endif /* HAVENOUTMP */
21029301572SMark Peek else if (eq(vp, STRimplicitcd)) {
21129301572SMark Peek implicit_cd = ((eq(varval(vp), STRverbose)) ? 2 : 1);
21229301572SMark Peek }
2133b6eaa7bSAndrey A. Chernov else if (eq(vp, STRcdtohome)) {
214c80476e4SDavid E. O'Brien cdtohome = 1;
215c80476e4SDavid E. O'Brien }
216c80476e4SDavid E. O'Brien #ifdef COLOR_LS_F
217c80476e4SDavid E. O'Brien else if (eq(vp, STRcolor)) {
218c80476e4SDavid E. O'Brien set_color_context();
21945e5710bSMark Peek }
220c80476e4SDavid E. O'Brien #endif /* COLOR_LS_F */
22123338178SMark Peek #if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE)
222c80476e4SDavid E. O'Brien else if (eq(vp, CHECK_MBYTEVAR) || eq(vp, STRnokanji)) {
223c80476e4SDavid E. O'Brien update_dspmbyte_vars();
22423338178SMark Peek }
225c80476e4SDavid E. O'Brien #endif
226c80476e4SDavid E. O'Brien #ifdef NLS_CATALOGS
22723338178SMark Peek else if (eq(vp, STRcatalog)) {
22823338178SMark Peek nlsclose();
22923338178SMark Peek nlsinit();
230c80476e4SDavid E. O'Brien }
231c80476e4SDavid E. O'Brien #if defined(FILEC) && defined(TIOCSTI)
232c80476e4SDavid E. O'Brien else if (eq(vp, STRfilec))
233c80476e4SDavid E. O'Brien filec = 1;
234c80476e4SDavid E. O'Brien #endif
235c80476e4SDavid E. O'Brien #endif /* NLS_CATALOGS */
236c80476e4SDavid E. O'Brien }
237c80476e4SDavid E. O'Brien
238c80476e4SDavid E. O'Brien
239c80476e4SDavid E. O'Brien /*ARGSUSED*/
240c80476e4SDavid E. O'Brien void
doset(Char ** v,struct command * c)241c80476e4SDavid E. O'Brien doset(Char **v, struct command *c)
242c80476e4SDavid E. O'Brien {
243c80476e4SDavid E. O'Brien Char *p;
244c80476e4SDavid E. O'Brien Char *vp;
245c80476e4SDavid E. O'Brien Char **vecp;
246c80476e4SDavid E. O'Brien int hadsub;
247c80476e4SDavid E. O'Brien int subscr;
248c80476e4SDavid E. O'Brien int flags = VAR_READWRITE;
249c80476e4SDavid E. O'Brien int first_match = 0;
250c80476e4SDavid E. O'Brien int last_match = 0;
251c80476e4SDavid E. O'Brien int changed = 0;
252c80476e4SDavid E. O'Brien
253c80476e4SDavid E. O'Brien USE(c);
254c80476e4SDavid E. O'Brien v++;
255c80476e4SDavid E. O'Brien do {
256c80476e4SDavid E. O'Brien changed = 0;
257c80476e4SDavid E. O'Brien /*
258c80476e4SDavid E. O'Brien * Readonly addition From: Tim P. Starrin <noid@cyborg.larc.nasa.gov>
259c80476e4SDavid E. O'Brien */
260c80476e4SDavid E. O'Brien if (*v && eq(*v, STRmr)) {
261c80476e4SDavid E. O'Brien flags = VAR_READONLY;
262c80476e4SDavid E. O'Brien v++;
263c80476e4SDavid E. O'Brien changed = 1;
264c80476e4SDavid E. O'Brien }
265c80476e4SDavid E. O'Brien if (*v && eq(*v, STRmf) && !last_match) {
266c80476e4SDavid E. O'Brien first_match = 1;
267c80476e4SDavid E. O'Brien v++;
268c80476e4SDavid E. O'Brien changed = 1;
269c80476e4SDavid E. O'Brien }
270c80476e4SDavid E. O'Brien if (*v && eq(*v, STRml) && !first_match) {
271c80476e4SDavid E. O'Brien last_match = 1;
272c80476e4SDavid E. O'Brien v++;
273c80476e4SDavid E. O'Brien changed = 1;
274c80476e4SDavid E. O'Brien }
275c80476e4SDavid E. O'Brien } while (changed);
276c80476e4SDavid E. O'Brien p = *v++;
277c80476e4SDavid E. O'Brien if (p == 0) {
278c80476e4SDavid E. O'Brien plist(&shvhed, flags);
279c80476e4SDavid E. O'Brien return;
280c80476e4SDavid E. O'Brien }
281c80476e4SDavid E. O'Brien do {
282c80476e4SDavid E. O'Brien hadsub = 0;
283c80476e4SDavid E. O'Brien vp = p;
28423338178SMark Peek if (!letter(*p))
285c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_VARBEGIN);
286c80476e4SDavid E. O'Brien do {
287c80476e4SDavid E. O'Brien p++;
288c80476e4SDavid E. O'Brien } while (alnum(*p));
289c80476e4SDavid E. O'Brien if (*p == '[') {
290c80476e4SDavid E. O'Brien hadsub++;
291c80476e4SDavid E. O'Brien p = getinx(p, &subscr);
292c80476e4SDavid E. O'Brien }
293c80476e4SDavid E. O'Brien if (*p != '\0' && *p != '=')
294c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_VARALNUM);
295c80476e4SDavid E. O'Brien if (*p == '=') {
296c80476e4SDavid E. O'Brien *p++ = '\0';
297c80476e4SDavid E. O'Brien if (*p == '\0' && *v != NULL && **v == '(')
298c80476e4SDavid E. O'Brien p = *v++;
299c80476e4SDavid E. O'Brien }
300c80476e4SDavid E. O'Brien else if (*v && eq(*v, STRequal)) {
301c80476e4SDavid E. O'Brien if (*++v != NULL)
302c80476e4SDavid E. O'Brien p = *v++;
303c80476e4SDavid E. O'Brien }
304c80476e4SDavid E. O'Brien if (eq(p, STRLparen)) {
305c80476e4SDavid E. O'Brien Char **e = v;
306c80476e4SDavid E. O'Brien
30745e5710bSMark Peek if (hadsub)
30845e5710bSMark Peek stderror(ERR_NAME | ERR_SYNTAX);
30945e5710bSMark Peek for (;;) {
31045e5710bSMark Peek if (!*e)
31145e5710bSMark Peek stderror(ERR_NAME | ERR_MISSING, ')');
31245e5710bSMark Peek if (**e == ')')
31345e5710bSMark Peek break;
31445e5710bSMark Peek e++;
31545e5710bSMark Peek }
316c80476e4SDavid E. O'Brien p = *e;
31745e5710bSMark Peek *e = 0;
318c80476e4SDavid E. O'Brien vecp = saveblk(v);
319c80476e4SDavid E. O'Brien if (first_match)
320c80476e4SDavid E. O'Brien flags |= VAR_FIRST;
321c80476e4SDavid E. O'Brien else if (last_match)
322c80476e4SDavid E. O'Brien flags |= VAR_LAST;
32345e5710bSMark Peek
324c80476e4SDavid E. O'Brien set1(vp, vecp, &shvhed, flags);
325c80476e4SDavid E. O'Brien *e = p;
326c80476e4SDavid E. O'Brien v = e + 1;
327c80476e4SDavid E. O'Brien }
328c80476e4SDavid E. O'Brien else if (hadsub) {
329c80476e4SDavid E. O'Brien Char *copy;
330c80476e4SDavid E. O'Brien
331c80476e4SDavid E. O'Brien copy = Strsave(p);
332c80476e4SDavid E. O'Brien cleanup_push(copy, xfree);
333c80476e4SDavid E. O'Brien asx(vp, subscr, copy);
334c80476e4SDavid E. O'Brien cleanup_ignore(copy);
33545e5710bSMark Peek cleanup_until(copy);
336c80476e4SDavid E. O'Brien }
33723338178SMark Peek else
33845e5710bSMark Peek setv(vp, Strsave(p), flags);
339c80476e4SDavid E. O'Brien update_vars(vp);
340c80476e4SDavid E. O'Brien } while ((p = *v++) != NULL);
341c80476e4SDavid E. O'Brien }
34245e5710bSMark Peek
34345e5710bSMark Peek static Char *
getinx(Char * cp,int * ip)344c80476e4SDavid E. O'Brien getinx(Char *cp, int *ip)
34545e5710bSMark Peek {
346c80476e4SDavid E. O'Brien *ip = 0;
347c80476e4SDavid E. O'Brien *cp++ = 0;
348c80476e4SDavid E. O'Brien while (*cp && Isdigit(*cp))
34945e5710bSMark Peek *ip = *ip * 10 + *cp++ - '0';
350c80476e4SDavid E. O'Brien if (*cp++ != ']')
35123338178SMark Peek stderror(ERR_NAME | ERR_SUBSCRIPT);
352c80476e4SDavid E. O'Brien return (cp);
353c80476e4SDavid E. O'Brien }
354c80476e4SDavid E. O'Brien
355c80476e4SDavid E. O'Brien static void
asx(Char * vp,int subscr,Char * p)356c80476e4SDavid E. O'Brien asx(Char *vp, int subscr, Char *p)
357c80476e4SDavid E. O'Brien {
358c80476e4SDavid E. O'Brien struct varent *v = getvx(vp, subscr);
359c80476e4SDavid E. O'Brien Char *prev;
360c80476e4SDavid E. O'Brien
361c80476e4SDavid E. O'Brien if (v->v_flags & VAR_READONLY)
36245e5710bSMark Peek stderror(ERR_READONLY|ERR_NAME, v->v_name);
363c80476e4SDavid E. O'Brien prev = v->vec[subscr - 1];
36423338178SMark Peek cleanup_push(prev, xfree);
365c80476e4SDavid E. O'Brien v->vec[subscr - 1] = globone(p, G_APPEND);
36623338178SMark Peek cleanup_until(prev);
367c80476e4SDavid E. O'Brien }
368c80476e4SDavid E. O'Brien
369c80476e4SDavid E. O'Brien static struct varent *
getvx(Char * vp,int subscr)370c80476e4SDavid E. O'Brien getvx(Char *vp, int subscr)
371c80476e4SDavid E. O'Brien {
372c80476e4SDavid E. O'Brien struct varent *v = adrof(vp);
373c80476e4SDavid E. O'Brien
374c80476e4SDavid E. O'Brien if (v == 0)
375c80476e4SDavid E. O'Brien udvar(vp);
376c80476e4SDavid E. O'Brien if (subscr < 1 || subscr > blklen(v->vec))
377c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_RANGE);
378c80476e4SDavid E. O'Brien return (v);
379c80476e4SDavid E. O'Brien }
380c80476e4SDavid E. O'Brien
381c80476e4SDavid E. O'Brien /*ARGSUSED*/
382c80476e4SDavid E. O'Brien void
dolet(Char ** v,struct command * dummy)383c80476e4SDavid E. O'Brien dolet(Char **v, struct command *dummy)
384c80476e4SDavid E. O'Brien {
385c80476e4SDavid E. O'Brien Char *p;
386c80476e4SDavid E. O'Brien Char *vp, c, op;
387c80476e4SDavid E. O'Brien int hadsub;
388c80476e4SDavid E. O'Brien int subscr;
389c80476e4SDavid E. O'Brien
390c80476e4SDavid E. O'Brien USE(dummy);
391c80476e4SDavid E. O'Brien v++;
392c80476e4SDavid E. O'Brien p = *v++;
393c80476e4SDavid E. O'Brien if (p == 0) {
394c80476e4SDavid E. O'Brien prvars();
395c80476e4SDavid E. O'Brien return;
396c80476e4SDavid E. O'Brien }
397c80476e4SDavid E. O'Brien do {
398c80476e4SDavid E. O'Brien hadsub = 0;
399c80476e4SDavid E. O'Brien vp = p;
400c80476e4SDavid E. O'Brien if (letter(*p))
401c80476e4SDavid E. O'Brien for (; alnum(*p); p++)
402c80476e4SDavid E. O'Brien continue;
40345e5710bSMark Peek if (vp == p || !letter(*vp))
404c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_VARBEGIN);
405c80476e4SDavid E. O'Brien if (*p == '[') {
406c80476e4SDavid E. O'Brien hadsub++;
407c80476e4SDavid E. O'Brien p = getinx(p, &subscr);
408c80476e4SDavid E. O'Brien }
409c80476e4SDavid E. O'Brien if (*p == 0 && *v)
410c80476e4SDavid E. O'Brien p = *v++;
411c80476e4SDavid E. O'Brien if ((op = *p) != 0)
412c80476e4SDavid E. O'Brien *p++ = 0;
413c80476e4SDavid E. O'Brien else
414c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_ASSIGN);
415c80476e4SDavid E. O'Brien
416c80476e4SDavid E. O'Brien /*
417c80476e4SDavid E. O'Brien * if there is no expression after the '=' then print a "Syntax Error"
418c80476e4SDavid E. O'Brien * message - strike
419c80476e4SDavid E. O'Brien */
420c80476e4SDavid E. O'Brien if (*p == '\0' && *v == NULL)
421c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_ASSIGN);
422c80476e4SDavid E. O'Brien
423c80476e4SDavid E. O'Brien vp = Strsave(vp);
424c80476e4SDavid E. O'Brien cleanup_push(vp, xfree);
425c80476e4SDavid E. O'Brien if (op == '=') {
42645e5710bSMark Peek c = '=';
427c80476e4SDavid E. O'Brien p = xset(p, &v);
428c80476e4SDavid E. O'Brien }
429c80476e4SDavid E. O'Brien else {
430c80476e4SDavid E. O'Brien c = *p++;
43145e5710bSMark Peek if (any("+-", c)) {
43245e5710bSMark Peek if (c != op || *p)
433c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_UNKNOWNOP);
434c80476e4SDavid E. O'Brien p = Strsave(STR1);
435c80476e4SDavid E. O'Brien }
43645e5710bSMark Peek else {
437c80476e4SDavid E. O'Brien if (any("<>", op)) {
43845e5710bSMark Peek if (c != op)
43945e5710bSMark Peek stderror(ERR_NAME | ERR_UNKNOWNOP);
44045e5710bSMark Peek stderror(ERR_NAME | ERR_SYNTAX);
44145e5710bSMark Peek }
44245e5710bSMark Peek if (c != '=')
443c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_UNKNOWNOP);
44445e5710bSMark Peek p = xset(p, &v);
44545e5710bSMark Peek }
44645e5710bSMark Peek }
44745e5710bSMark Peek cleanup_push(p, xfree);
44845e5710bSMark Peek if (op == '=') {
44945e5710bSMark Peek if (hadsub)
45045e5710bSMark Peek asx(vp, subscr, p);
45145e5710bSMark Peek else
45245e5710bSMark Peek setv(vp, p, VAR_READWRITE);
453c80476e4SDavid E. O'Brien cleanup_ignore(p);
45445e5710bSMark Peek }
455c80476e4SDavid E. O'Brien else if (hadsub) {
456c80476e4SDavid E. O'Brien struct varent *gv = getvx(vp, subscr);
457c80476e4SDavid E. O'Brien Char *val;
458c80476e4SDavid E. O'Brien
45945e5710bSMark Peek val = operate(op, gv->vec[subscr - 1], p);
460c80476e4SDavid E. O'Brien cleanup_push(val, xfree);
46123338178SMark Peek asx(vp, subscr, val);
462c80476e4SDavid E. O'Brien cleanup_ignore(val);
463c80476e4SDavid E. O'Brien cleanup_until(val);
464c80476e4SDavid E. O'Brien }
465c80476e4SDavid E. O'Brien else {
46645e5710bSMark Peek Char *val;
467c80476e4SDavid E. O'Brien
468c80476e4SDavid E. O'Brien val = operate(op, varval(vp), p);
469c80476e4SDavid E. O'Brien cleanup_push(val, xfree);
470c80476e4SDavid E. O'Brien setv(vp, val, VAR_READWRITE);
471c80476e4SDavid E. O'Brien cleanup_ignore(val);
472c80476e4SDavid E. O'Brien cleanup_until(val);
47345e5710bSMark Peek }
474c80476e4SDavid E. O'Brien update_vars(vp);
475c80476e4SDavid E. O'Brien cleanup_until(vp);
476c80476e4SDavid E. O'Brien } while ((p = *v++) != NULL);
47723338178SMark Peek }
478c80476e4SDavid E. O'Brien
47923338178SMark Peek static Char *
xset(Char * cp,Char *** vp)480c80476e4SDavid E. O'Brien xset(Char *cp, Char ***vp)
481c80476e4SDavid E. O'Brien {
482c80476e4SDavid E. O'Brien Char *dp;
483c80476e4SDavid E. O'Brien
48445e5710bSMark Peek if (*cp) {
485c80476e4SDavid E. O'Brien dp = Strsave(cp);
486c80476e4SDavid E. O'Brien --(*vp);
487c80476e4SDavid E. O'Brien xfree(** vp);
488c80476e4SDavid E. O'Brien **vp = dp;
489c80476e4SDavid E. O'Brien }
490c80476e4SDavid E. O'Brien return (putn(expr(vp)));
491c80476e4SDavid E. O'Brien }
492c80476e4SDavid E. O'Brien
493c80476e4SDavid E. O'Brien static Char *
operate(int op,Char * vp,Char * p)494c80476e4SDavid E. O'Brien operate(int op, Char *vp, Char *p)
495c80476e4SDavid E. O'Brien {
496c80476e4SDavid E. O'Brien Char opr[2];
497c80476e4SDavid E. O'Brien Char *vec[5];
49845e5710bSMark Peek Char **v = vec;
499c80476e4SDavid E. O'Brien Char **vecp = v;
500c80476e4SDavid E. O'Brien tcsh_number_t i;
50145e5710bSMark Peek
502c80476e4SDavid E. O'Brien if (op != '=') {
50345e5710bSMark Peek if (*vp)
504c80476e4SDavid E. O'Brien *v++ = vp;
505c80476e4SDavid E. O'Brien opr[0] = op;
506c80476e4SDavid E. O'Brien opr[1] = 0;
507c80476e4SDavid E. O'Brien *v++ = opr;
508c80476e4SDavid E. O'Brien if (op == '<' || op == '>')
509c80476e4SDavid E. O'Brien *v++ = opr;
510c80476e4SDavid E. O'Brien }
511c80476e4SDavid E. O'Brien *v++ = p;
512c80476e4SDavid E. O'Brien *v++ = 0;
513c80476e4SDavid E. O'Brien i = expr(&vecp);
514c80476e4SDavid E. O'Brien if (*vecp)
515c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_EXPRESSION);
51645e5710bSMark Peek return (putn(i));
517c80476e4SDavid E. O'Brien }
518c80476e4SDavid E. O'Brien
519c80476e4SDavid E. O'Brien static Char *putp;
520c80476e4SDavid E. O'Brien
521c80476e4SDavid E. O'Brien Char *
putn(tcsh_number_t n)522c80476e4SDavid E. O'Brien putn(tcsh_number_t n)
523c80476e4SDavid E. O'Brien {
52445e5710bSMark Peek Char nbuf[1024]; /* Enough even for octal */
525c80476e4SDavid E. O'Brien
52623338178SMark Peek putp = nbuf;
527c80476e4SDavid E. O'Brien if (n < 0) {
528c80476e4SDavid E. O'Brien n = -n;
529c80476e4SDavid E. O'Brien *putp++ = '-';
530c80476e4SDavid E. O'Brien }
531c80476e4SDavid E. O'Brien putn1(n);
532c80476e4SDavid E. O'Brien *putp = 0;
533c80476e4SDavid E. O'Brien return (Strsave(nbuf));
534c80476e4SDavid E. O'Brien }
535c80476e4SDavid E. O'Brien
536c80476e4SDavid E. O'Brien static void
putn1(tcsh_number_t n)537c80476e4SDavid E. O'Brien putn1(tcsh_number_t n)
538c80476e4SDavid E. O'Brien {
539c80476e4SDavid E. O'Brien if (n > 9)
540c80476e4SDavid E. O'Brien putn1(n / 10);
541c80476e4SDavid E. O'Brien *putp++ = (Char)(n % 10 + '0');
542c80476e4SDavid E. O'Brien }
543c80476e4SDavid E. O'Brien
544c80476e4SDavid E. O'Brien tcsh_number_t
getn(const Char * cp)545c80476e4SDavid E. O'Brien getn(const Char *cp)
546c80476e4SDavid E. O'Brien {
547c80476e4SDavid E. O'Brien tcsh_number_t n;
548c80476e4SDavid E. O'Brien int sign;
549c80476e4SDavid E. O'Brien int base;
55045e5710bSMark Peek
551c80476e4SDavid E. O'Brien if (!cp) /* PWP: extra error checking */
55223338178SMark Peek stderror(ERR_NAME | ERR_BADNUM);
553c80476e4SDavid E. O'Brien
554c80476e4SDavid E. O'Brien sign = 0;
555c80476e4SDavid E. O'Brien if (cp[0] == '+' && cp[1])
556c80476e4SDavid E. O'Brien cp++;
557c80476e4SDavid E. O'Brien if (*cp == '-') {
55829301572SMark Peek sign++;
55929301572SMark Peek cp++;
560c80476e4SDavid E. O'Brien if (!Isdigit(*cp))
561c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_BADNUM);
562c80476e4SDavid E. O'Brien }
56345e5710bSMark Peek
564c80476e4SDavid E. O'Brien if (cp[0] == '0' && cp[1] && is_set(STRparseoctal))
56523338178SMark Peek base = 8;
566c80476e4SDavid E. O'Brien else
567c80476e4SDavid E. O'Brien base = 10;
568c80476e4SDavid E. O'Brien
569c80476e4SDavid E. O'Brien n = 0;
570c80476e4SDavid E. O'Brien while (Isdigit(*cp))
571c80476e4SDavid E. O'Brien {
572c80476e4SDavid E. O'Brien if (base == 8 && *cp >= '8')
573c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_BADNUM);
574c80476e4SDavid E. O'Brien n = n * base + *cp++ - '0';
575c80476e4SDavid E. O'Brien }
576c80476e4SDavid E. O'Brien if (*cp)
57745e5710bSMark Peek stderror(ERR_NAME | ERR_BADNUM);
578c80476e4SDavid E. O'Brien return (sign ? -n : n);
579c80476e4SDavid E. O'Brien }
580c80476e4SDavid E. O'Brien
581c80476e4SDavid E. O'Brien Char *
value1(Char * var,struct varent * head)582c80476e4SDavid E. O'Brien value1(Char *var, struct varent *head)
583c80476e4SDavid E. O'Brien {
584c80476e4SDavid E. O'Brien struct varent *vp;
585c80476e4SDavid E. O'Brien
586c80476e4SDavid E. O'Brien if (!var || !head) /* PWP: extra error checking */
587c80476e4SDavid E. O'Brien return (STRNULL);
588c80476e4SDavid E. O'Brien
589c80476e4SDavid E. O'Brien vp = adrof1(var, head);
590c80476e4SDavid E. O'Brien return ((vp == NULL || vp->vec == NULL || vp->vec[0] == NULL) ?
59145e5710bSMark Peek STRNULL : vp->vec[0]);
59245e5710bSMark Peek }
59345e5710bSMark Peek
59445e5710bSMark Peek static struct varent *
madrof(Char * pat,struct varent * vp)59545e5710bSMark Peek madrof(Char *pat, struct varent *vp)
59645e5710bSMark Peek {
59745e5710bSMark Peek struct varent *vp1;
59845e5710bSMark Peek
59945e5710bSMark Peek for (vp = vp->v_left; vp; vp = vp->v_right) {
60045e5710bSMark Peek if (vp->v_left && (vp1 = madrof(pat, vp)) != NULL)
60145e5710bSMark Peek return vp1;
60245e5710bSMark Peek if (Gmatch(vp->v_name, pat))
603c80476e4SDavid E. O'Brien return vp;
604c80476e4SDavid E. O'Brien }
605c80476e4SDavid E. O'Brien return vp;
606c80476e4SDavid E. O'Brien }
60745e5710bSMark Peek
608c80476e4SDavid E. O'Brien struct varent *
adrof1(const Char * name,struct varent * v)60945e5710bSMark Peek adrof1(const Char *name, struct varent *v)
610c80476e4SDavid E. O'Brien {
611c80476e4SDavid E. O'Brien int cmp;
612c80476e4SDavid E. O'Brien
613c80476e4SDavid E. O'Brien v = v->v_left;
614c80476e4SDavid E. O'Brien while (v && ((cmp = *name - *v->v_name) != 0 ||
615c80476e4SDavid E. O'Brien (cmp = Strcmp(name, v->v_name)) != 0))
616c80476e4SDavid E. O'Brien if (cmp < 0)
61745e5710bSMark Peek v = v->v_left;
618c80476e4SDavid E. O'Brien else
61923338178SMark Peek v = v->v_right;
620c80476e4SDavid E. O'Brien return v;
621c80476e4SDavid E. O'Brien }
62245e5710bSMark Peek
62345e5710bSMark Peek void
setcopy(const Char * var,const Char * val,int flags)62445e5710bSMark Peek setcopy(const Char *var, const Char *val, int flags)
625c80476e4SDavid E. O'Brien {
62645e5710bSMark Peek Char *copy;
627c80476e4SDavid E. O'Brien
628c80476e4SDavid E. O'Brien copy = Strsave(val);
629c80476e4SDavid E. O'Brien cleanup_push(copy, xfree);
630c80476e4SDavid E. O'Brien setv(var, copy, flags);
631c80476e4SDavid E. O'Brien cleanup_ignore(copy);
632c80476e4SDavid E. O'Brien cleanup_until(copy);
633c80476e4SDavid E. O'Brien }
634c80476e4SDavid E. O'Brien
635c80476e4SDavid E. O'Brien /*
636c80476e4SDavid E. O'Brien * The caller is responsible for putting value in a safe place
637c80476e4SDavid E. O'Brien */
638c80476e4SDavid E. O'Brien void
setv(const Char * var,Char * val,int flags)639c80476e4SDavid E. O'Brien setv(const Char *var, Char *val, int flags)
640c80476e4SDavid E. O'Brien {
641c80476e4SDavid E. O'Brien Char **vec = xmalloc(2 * sizeof(Char **));
642c80476e4SDavid E. O'Brien
643c80476e4SDavid E. O'Brien vec[0] = val;
644c80476e4SDavid E. O'Brien vec[1] = 0;
645c80476e4SDavid E. O'Brien set1(var, vec, &shvhed, flags);
646c80476e4SDavid E. O'Brien }
647c80476e4SDavid E. O'Brien
648c80476e4SDavid E. O'Brien void
set1(const Char * var,Char ** vec,struct varent * head,int flags)649c80476e4SDavid E. O'Brien set1(const Char *var, Char **vec, struct varent *head, int flags)
650c80476e4SDavid E. O'Brien {
651c80476e4SDavid E. O'Brien Char **oldv = vec;
652c80476e4SDavid E. O'Brien
653c80476e4SDavid E. O'Brien if ((flags & VAR_NOGLOB) == 0) {
654c80476e4SDavid E. O'Brien int gflag;
655c80476e4SDavid E. O'Brien
65645e5710bSMark Peek gflag = tglob(oldv);
657c80476e4SDavid E. O'Brien if (gflag) {
658c80476e4SDavid E. O'Brien vec = globall(oldv, gflag);
659c80476e4SDavid E. O'Brien if (vec == NULL) {
660c80476e4SDavid E. O'Brien blkfree(oldv);
661c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_NOMATCH);
662c80476e4SDavid E. O'Brien }
663c80476e4SDavid E. O'Brien blkfree(oldv);
664c80476e4SDavid E. O'Brien }
665c80476e4SDavid E. O'Brien }
666c80476e4SDavid E. O'Brien /*
66745e5710bSMark Peek * Uniqueness addition from: Michael Veksler <mveksler@vnet.ibm.com>
668c80476e4SDavid E. O'Brien */
669c80476e4SDavid E. O'Brien if ( flags & (VAR_FIRST | VAR_LAST) ) {
670c80476e4SDavid E. O'Brien /*
671c80476e4SDavid E. O'Brien * Code for -f (VAR_FIRST) and -l (VAR_LAST) options.
672c80476e4SDavid E. O'Brien * Method:
673c80476e4SDavid E. O'Brien * Delete all duplicate words leaving "holes" in the word array (vec).
674c80476e4SDavid E. O'Brien * Then remove the "holes", keeping the order of the words unchanged.
675c80476e4SDavid E. O'Brien */
676c80476e4SDavid E. O'Brien if (vec[0] && vec[1]) { /* more than one word ? */
677c80476e4SDavid E. O'Brien int i, j;
678c80476e4SDavid E. O'Brien int num_items;
679c80476e4SDavid E. O'Brien
680c80476e4SDavid E. O'Brien for (num_items = 0; vec[num_items]; num_items++)
681c80476e4SDavid E. O'Brien continue;
682c80476e4SDavid E. O'Brien if (flags & VAR_FIRST) {
683c80476e4SDavid E. O'Brien /* delete duplications, keeping first occurance */
684c80476e4SDavid E. O'Brien for (i = 1; i < num_items; i++)
685c80476e4SDavid E. O'Brien for (j = 0; j < i; j++)
686c80476e4SDavid E. O'Brien /* If have earlier identical item, remove i'th item */
687c80476e4SDavid E. O'Brien if (vec[i] && vec[j] && Strcmp(vec[j], vec[i]) == 0) {
68845e5710bSMark Peek xfree(vec[i]);
689c80476e4SDavid E. O'Brien vec[i] = NULL;
69023338178SMark Peek break;
69123338178SMark Peek }
692c80476e4SDavid E. O'Brien } else if (flags & VAR_LAST) {
693c80476e4SDavid E. O'Brien /* delete duplications, keeping last occurance */
694c80476e4SDavid E. O'Brien for (i = 0; i < num_items - 1; i++)
695c80476e4SDavid E. O'Brien for (j = i + 1; j < num_items; j++)
696c80476e4SDavid E. O'Brien /* If have later identical item, remove i'th item */
697c80476e4SDavid E. O'Brien if (vec[i] && vec[j] && Strcmp(vec[j], vec[i]) == 0) {
698c80476e4SDavid E. O'Brien /* remove identical item (the first) */
699c80476e4SDavid E. O'Brien xfree(vec[i]);
700c80476e4SDavid E. O'Brien vec[i] = NULL;
701c80476e4SDavid E. O'Brien }
702c80476e4SDavid E. O'Brien }
703c80476e4SDavid E. O'Brien /* Compress items - remove empty items */
704c80476e4SDavid E. O'Brien for (j = i = 0; i < num_items; i++)
705c80476e4SDavid E. O'Brien if (vec[i])
706c80476e4SDavid E. O'Brien vec[j++] = vec[i];
70745e5710bSMark Peek
708c80476e4SDavid E. O'Brien /* NULL-fy remaining items */
709c80476e4SDavid E. O'Brien for (; j < num_items; j++)
710c80476e4SDavid E. O'Brien vec[j] = NULL;
711c80476e4SDavid E. O'Brien }
712c80476e4SDavid E. O'Brien /* don't let the attribute propagate */
713c80476e4SDavid E. O'Brien flags &= ~(VAR_FIRST|VAR_LAST);
714c80476e4SDavid E. O'Brien }
715c80476e4SDavid E. O'Brien setq(var, vec, head, flags);
716c80476e4SDavid E. O'Brien }
717c80476e4SDavid E. O'Brien
718c80476e4SDavid E. O'Brien
71945e5710bSMark Peek void
setq(const Char * name,Char ** vec,struct varent * p,int flags)720c80476e4SDavid E. O'Brien setq(const Char *name, Char **vec, struct varent *p, int flags)
72123338178SMark Peek {
722c80476e4SDavid E. O'Brien struct varent *c;
723c80476e4SDavid E. O'Brien int f;
724c80476e4SDavid E. O'Brien
725c80476e4SDavid E. O'Brien f = 0; /* tree hangs off the header's left link */
726c80476e4SDavid E. O'Brien while ((c = p->v_link[f]) != 0) {
72729301572SMark Peek if ((f = *name - *c->v_name) == 0 &&
72829301572SMark Peek (f = Strcmp(name, c->v_name)) == 0) {
72929301572SMark Peek if (c->v_flags & VAR_READONLY)
73029301572SMark Peek stderror(ERR_READONLY|ERR_NAME, c->v_name);
73129301572SMark Peek blkfree(c->vec);
73229301572SMark Peek c->v_flags = flags;
733c80476e4SDavid E. O'Brien trim(c->vec = vec);
734c80476e4SDavid E. O'Brien return;
735c80476e4SDavid E. O'Brien }
736c80476e4SDavid E. O'Brien p = c;
737b2d5d167SMark Peek f = f > 0;
738b2d5d167SMark Peek }
739c80476e4SDavid E. O'Brien p->v_link[f] = c = xmalloc(sizeof(struct varent));
740c80476e4SDavid E. O'Brien c->v_name = Strsave(name);
741c80476e4SDavid E. O'Brien c->v_flags = flags;
742c80476e4SDavid E. O'Brien c->v_bal = 0;
743c80476e4SDavid E. O'Brien c->v_left = c->v_right = 0;
744c80476e4SDavid E. O'Brien c->v_parent = p;
745c80476e4SDavid E. O'Brien balance(p, f, 0);
746c80476e4SDavid E. O'Brien trim(c->vec = vec);
747c80476e4SDavid E. O'Brien }
748c80476e4SDavid E. O'Brien
749c80476e4SDavid E. O'Brien /*ARGSUSED*/
750c80476e4SDavid E. O'Brien void
unset(Char ** v,struct command * c)751c80476e4SDavid E. O'Brien unset(Char **v, struct command *c)
752c80476e4SDavid E. O'Brien {
753c80476e4SDavid E. O'Brien int did_roe, did_edit;
754c80476e4SDavid E. O'Brien
755c80476e4SDavid E. O'Brien USE(c);
756c80476e4SDavid E. O'Brien did_roe = adrof(STRrecognize_only_executables) != NULL;
7576767bd61SMark Peek did_edit = adrof(STRedit) != NULL;
7586767bd61SMark Peek unset1(v, &shvhed);
759c80476e4SDavid E. O'Brien
760c80476e4SDavid E. O'Brien #if defined(FILEC) && defined(TIOCSTI)
761c80476e4SDavid E. O'Brien if (adrof(STRfilec) == 0)
762c80476e4SDavid E. O'Brien filec = 0;
763c80476e4SDavid E. O'Brien #endif /* FILEC && TIOCSTI */
764c80476e4SDavid E. O'Brien
765c80476e4SDavid E. O'Brien if (adrof(STRhistchars) == 0) {
766c80476e4SDavid E. O'Brien HIST = '!';
767c80476e4SDavid E. O'Brien HISTSUB = '^';
768c80476e4SDavid E. O'Brien }
769c80476e4SDavid E. O'Brien if (adrof(STRignoreeof) == 0)
7703b6eaa7bSAndrey A. Chernov numeof = 0;
77123338178SMark Peek if (adrof(STRpromptchars) == 0) {
7723b6eaa7bSAndrey A. Chernov PRCH = tcsh ? '>' : '%';
7733b6eaa7bSAndrey A. Chernov PRCHROOT = '#';
774c80476e4SDavid E. O'Brien }
775c80476e4SDavid E. O'Brien if (adrof(STRnoclobber) == 0)
776c80476e4SDavid E. O'Brien no_clobber = 0;
77745e5710bSMark Peek if (adrof(STRhistlit) == 0)
778c80476e4SDavid E. O'Brien HistLit = 0;
77923338178SMark Peek if (adrof(STRloginsh) == 0)
78023338178SMark Peek loginsh = 0;
781c80476e4SDavid E. O'Brien if (adrof(STRanyerror) == 0)
782c80476e4SDavid E. O'Brien anyerror = 0;
783c80476e4SDavid E. O'Brien if (adrof(STRwordchars) == 0)
784c80476e4SDavid E. O'Brien word_chars = STR_WORD_CHARS;
785c80476e4SDavid E. O'Brien if (adrof(STRedit) == 0)
786c80476e4SDavid E. O'Brien editing = 0;
787c80476e4SDavid E. O'Brien if (adrof(STRbackslash_quote) == 0)
788c80476e4SDavid E. O'Brien bslash_quote = 0;
789c80476e4SDavid E. O'Brien if (adrof(STRcompat_expr) == 0)
790c80476e4SDavid E. O'Brien compat_expr = 0;
791c80476e4SDavid E. O'Brien if (adrof(STRsymlinks) == 0)
792c80476e4SDavid E. O'Brien symlinks = 0;
793c80476e4SDavid E. O'Brien if (adrof(STRimplicitcd) == 0)
794c80476e4SDavid E. O'Brien implicit_cd = 0;
79545e5710bSMark Peek if (adrof(STRcdtohome) == 0)
796c80476e4SDavid E. O'Brien cdtohome = 0;
79723338178SMark Peek if (adrof(STRkillring) == 0)
798c80476e4SDavid E. O'Brien SetKillRing(0);
799c80476e4SDavid E. O'Brien if (did_edit && noediting && adrof(STRedit) == 0)
800c80476e4SDavid E. O'Brien noediting = 0;
801c80476e4SDavid E. O'Brien if (adrof(STRvimode) == 0)
802c80476e4SDavid E. O'Brien VImode = 0;
803c80476e4SDavid E. O'Brien if (did_roe && adrof(STRrecognize_only_executables) == 0)
804c80476e4SDavid E. O'Brien tw_cmd_free();
80545e5710bSMark Peek if (adrof(STRhistory) == 0)
806c80476e4SDavid E. O'Brien sethistory(0);
80723338178SMark Peek #ifdef COLOR_LS_F
80823338178SMark Peek if (adrof(STRcolor) == 0)
809c80476e4SDavid E. O'Brien set_color_context();
810c80476e4SDavid E. O'Brien #endif /* COLOR_LS_F */
811c80476e4SDavid E. O'Brien #if defined(KANJI) && defined(SHORT_STRINGS) && defined(DSPMBYTE)
812c80476e4SDavid E. O'Brien update_dspmbyte_vars();
813c80476e4SDavid E. O'Brien #endif
81445e5710bSMark Peek update_wordchars();
815c80476e4SDavid E. O'Brien #ifdef NLS_CATALOGS
816c80476e4SDavid E. O'Brien nlsclose();
817c80476e4SDavid E. O'Brien nlsinit();
818c80476e4SDavid E. O'Brien #endif /* NLS_CATALOGS */
819c80476e4SDavid E. O'Brien }
820c80476e4SDavid E. O'Brien
821c80476e4SDavid E. O'Brien void
unset1(Char * v[],struct varent * head)822c80476e4SDavid E. O'Brien unset1(Char *v[], struct varent *head)
823c80476e4SDavid E. O'Brien {
824c80476e4SDavid E. O'Brien struct varent *vp;
825c80476e4SDavid E. O'Brien int cnt;
826c80476e4SDavid E. O'Brien
827c80476e4SDavid E. O'Brien while (*++v) {
828c80476e4SDavid E. O'Brien cnt = 0;
829c80476e4SDavid E. O'Brien while ((vp = madrof(*v, head)) != NULL)
830c80476e4SDavid E. O'Brien if (vp->v_flags & VAR_READONLY)
831c80476e4SDavid E. O'Brien stderror(ERR_READONLY|ERR_NAME, vp->v_name);
832c80476e4SDavid E. O'Brien else
833c80476e4SDavid E. O'Brien unsetv1(vp), cnt++;
834c80476e4SDavid E. O'Brien if (cnt == 0)
835c80476e4SDavid E. O'Brien setname(short2str(*v));
836c80476e4SDavid E. O'Brien }
837c80476e4SDavid E. O'Brien }
838c80476e4SDavid E. O'Brien
839c80476e4SDavid E. O'Brien void
unsetv(Char * var)840c80476e4SDavid E. O'Brien unsetv(Char *var)
841c80476e4SDavid E. O'Brien {
842c80476e4SDavid E. O'Brien struct varent *vp;
843c80476e4SDavid E. O'Brien
84445e5710bSMark Peek if ((vp = adrof1(var, &shvhed)) == 0)
845c80476e4SDavid E. O'Brien udvar(var);
846c80476e4SDavid E. O'Brien unsetv1(vp);
847c80476e4SDavid E. O'Brien }
848c80476e4SDavid E. O'Brien
84945e5710bSMark Peek static void
unsetv1(struct varent * p)850c80476e4SDavid E. O'Brien unsetv1(struct varent *p)
85145e5710bSMark Peek {
852c80476e4SDavid E. O'Brien struct varent *c, *pp;
853c80476e4SDavid E. O'Brien int f;
854c80476e4SDavid E. O'Brien
855c80476e4SDavid E. O'Brien /*
85645e5710bSMark Peek * Free associated memory first to avoid complications.
857c80476e4SDavid E. O'Brien */
85823338178SMark Peek blkfree(p->vec);
85923338178SMark Peek xfree(p->v_name);
860c80476e4SDavid E. O'Brien /*
861c80476e4SDavid E. O'Brien * If p is missing one child, then we can move the other into where p is.
862c80476e4SDavid E. O'Brien * Otherwise, we find the predecessor of p, which is guaranteed to have no
863c80476e4SDavid E. O'Brien * right child, copy it into p, and move it's left child into it.
864c80476e4SDavid E. O'Brien */
865c80476e4SDavid E. O'Brien if (p->v_right == 0)
866c80476e4SDavid E. O'Brien c = p->v_left;
867c80476e4SDavid E. O'Brien else if (p->v_left == 0)
868c80476e4SDavid E. O'Brien c = p->v_right;
86929301572SMark Peek else {
870c80476e4SDavid E. O'Brien for (c = p->v_left; c->v_right; c = c->v_right)
871c80476e4SDavid E. O'Brien continue;
872c80476e4SDavid E. O'Brien p->v_name = c->v_name;
873c80476e4SDavid E. O'Brien p->v_flags = c->v_flags;
874c80476e4SDavid E. O'Brien p->vec = c->vec;
875c80476e4SDavid E. O'Brien p = c;
876c80476e4SDavid E. O'Brien c = p->v_left;
877c80476e4SDavid E. O'Brien }
87845e5710bSMark Peek
879c80476e4SDavid E. O'Brien /*
88045e5710bSMark Peek * Move c into where p is.
881c80476e4SDavid E. O'Brien */
882c80476e4SDavid E. O'Brien pp = p->v_parent;
883c80476e4SDavid E. O'Brien f = pp->v_right == p;
884c80476e4SDavid E. O'Brien if ((pp->v_link[f] = c) != 0)
88545e5710bSMark Peek c->v_parent = pp;
886c80476e4SDavid E. O'Brien /*
887c80476e4SDavid E. O'Brien * Free the deleted node, and rebalance.
88845e5710bSMark Peek */
889c80476e4SDavid E. O'Brien xfree(p);
89045e5710bSMark Peek balance(pp, f, 1);
89145e5710bSMark Peek }
892c80476e4SDavid E. O'Brien
89345e5710bSMark Peek /* Set variable name to NULL. */
894c80476e4SDavid E. O'Brien void
setNS(const Char * varName)895c80476e4SDavid E. O'Brien setNS(const Char *varName)
896c80476e4SDavid E. O'Brien {
897c80476e4SDavid E. O'Brien setcopy(varName, STRNULL, VAR_READWRITE);
898c80476e4SDavid E. O'Brien }
899c80476e4SDavid E. O'Brien
900c80476e4SDavid E. O'Brien /*ARGSUSED*/
901c80476e4SDavid E. O'Brien void
shift(Char ** v,struct command * c)902c80476e4SDavid E. O'Brien shift(Char **v, struct command *c)
903c80476e4SDavid E. O'Brien {
904c80476e4SDavid E. O'Brien struct varent *argv;
905c80476e4SDavid E. O'Brien Char *name;
906c80476e4SDavid E. O'Brien
907c80476e4SDavid E. O'Brien USE(c);
908c80476e4SDavid E. O'Brien v++;
909c80476e4SDavid E. O'Brien name = *v;
910c80476e4SDavid E. O'Brien if (name == 0)
911c80476e4SDavid E. O'Brien name = STRargv;
912c80476e4SDavid E. O'Brien else
913c80476e4SDavid E. O'Brien (void) strip(name);
914c80476e4SDavid E. O'Brien argv = adrof(name);
915c80476e4SDavid E. O'Brien if (argv == NULL || argv->vec == NULL)
916c80476e4SDavid E. O'Brien udvar(name);
91745e5710bSMark Peek if (argv->vec[0] == 0)
918c80476e4SDavid E. O'Brien stderror(ERR_NAME | ERR_NOMORE);
919c80476e4SDavid E. O'Brien lshift(argv->vec, 1);
920c80476e4SDavid E. O'Brien update_vars(name);
921c80476e4SDavid E. O'Brien }
92245e5710bSMark Peek
923c80476e4SDavid E. O'Brien static void
exportpath(Char ** val)924c80476e4SDavid E. O'Brien exportpath(Char **val)
925c80476e4SDavid E. O'Brien {
926c80476e4SDavid E. O'Brien struct Strbuf buf = Strbuf_INIT;
927c80476e4SDavid E. O'Brien Char *exppath;
928c80476e4SDavid E. O'Brien
929c80476e4SDavid E. O'Brien if (val)
930c80476e4SDavid E. O'Brien while (*val) {
931c80476e4SDavid E. O'Brien Strbuf_append(&buf, *val++);
932c80476e4SDavid E. O'Brien if (*val == 0 || eq(*val, STRRparen))
933c80476e4SDavid E. O'Brien break;
934c80476e4SDavid E. O'Brien Strbuf_append1(&buf, PATHSEP);
935c80476e4SDavid E. O'Brien }
93645e5710bSMark Peek exppath = Strbuf_finish(&buf);
937c80476e4SDavid E. O'Brien cleanup_push(exppath, xfree);
93823338178SMark Peek tsetenv(STRKPATH, exppath);
939c80476e4SDavid E. O'Brien cleanup_until(exppath);
940c80476e4SDavid E. O'Brien }
94123338178SMark Peek
942c80476e4SDavid E. O'Brien static int
set_noclobber(Char ** val)94323338178SMark Peek set_noclobber(Char **val)
944c80476e4SDavid E. O'Brien {
945c80476e4SDavid E. O'Brien Char *option;
946c80476e4SDavid E. O'Brien int nc = NOCLOBBER_DEFAULT;
947c80476e4SDavid E. O'Brien
948c80476e4SDavid E. O'Brien if (val == NULL)
949c80476e4SDavid E. O'Brien return nc;
950c80476e4SDavid E. O'Brien while (*val) {
951c80476e4SDavid E. O'Brien if (*val == 0 || eq(*val, STRRparen))
952c80476e4SDavid E. O'Brien return nc;
953c80476e4SDavid E. O'Brien
954c80476e4SDavid E. O'Brien option = *val++;
955c80476e4SDavid E. O'Brien
956c80476e4SDavid E. O'Brien if (eq(option, STRnotempty))
957c80476e4SDavid E. O'Brien nc |= NOCLOBBER_NOTEMPTY;
958c80476e4SDavid E. O'Brien else if (eq(option, STRask))
959c80476e4SDavid E. O'Brien nc |= NOCLOBBER_ASK;
960c80476e4SDavid E. O'Brien }
961c80476e4SDavid E. O'Brien return nc;
962c80476e4SDavid E. O'Brien }
963c80476e4SDavid E. O'Brien
964c80476e4SDavid E. O'Brien #ifndef lint
96545e5710bSMark Peek /*
966c80476e4SDavid E. O'Brien * Lint thinks these have null effect
967c80476e4SDavid E. O'Brien */
968c80476e4SDavid E. O'Brien /* macros to do single rotations on node p */
969c80476e4SDavid E. O'Brien # define rright(p) (\
970c80476e4SDavid E. O'Brien t = (p)->v_left,\
971c80476e4SDavid E. O'Brien (t)->v_parent = (p)->v_parent,\
972c80476e4SDavid E. O'Brien (((p)->v_left = t->v_right) != NULL) ?\
973c80476e4SDavid E. O'Brien (t->v_right->v_parent = (p)) : 0,\
974c80476e4SDavid E. O'Brien (t->v_right = (p))->v_parent = t,\
975c80476e4SDavid E. O'Brien (p) = t)
976c80476e4SDavid E. O'Brien # define rleft(p) (\
977c80476e4SDavid E. O'Brien t = (p)->v_right,\
978c80476e4SDavid E. O'Brien ((t)->v_parent = (p)->v_parent,\
979c80476e4SDavid E. O'Brien ((p)->v_right = t->v_left) != NULL) ? \
980c80476e4SDavid E. O'Brien (t->v_left->v_parent = (p)) : 0,\
981c80476e4SDavid E. O'Brien (t->v_left = (p))->v_parent = t,\
982c80476e4SDavid E. O'Brien (p) = t)
983c80476e4SDavid E. O'Brien #else
984c80476e4SDavid E. O'Brien static struct varent *
rleft(struct varent * p)985c80476e4SDavid E. O'Brien rleft(struct varent *p)
986c80476e4SDavid E. O'Brien {
987c80476e4SDavid E. O'Brien return (p);
988c80476e4SDavid E. O'Brien }
989c80476e4SDavid E. O'Brien static struct varent *
rright(struct varent * p)990c80476e4SDavid E. O'Brien rright(struct varent *p)
991c80476e4SDavid E. O'Brien {
992c80476e4SDavid E. O'Brien return (p);
993c80476e4SDavid E. O'Brien }
994c80476e4SDavid E. O'Brien
995c80476e4SDavid E. O'Brien #endif /* ! lint */
996c80476e4SDavid E. O'Brien
997c80476e4SDavid E. O'Brien
998c80476e4SDavid E. O'Brien /*
999c80476e4SDavid E. O'Brien * Rebalance a tree, starting at p and up.
1000c80476e4SDavid E. O'Brien * F == 0 means we've come from p's left child.
1001c80476e4SDavid E. O'Brien * D == 1 means we've just done a delete, otherwise an insert.
1002c80476e4SDavid E. O'Brien */
1003c80476e4SDavid E. O'Brien static void
balance(struct varent * p,int f,int d)1004c80476e4SDavid E. O'Brien balance(struct varent *p, int f, int d)
1005c80476e4SDavid E. O'Brien {
1006c80476e4SDavid E. O'Brien struct varent *pp;
100745e5710bSMark Peek
1008c80476e4SDavid E. O'Brien #ifndef lint
1009c80476e4SDavid E. O'Brien struct varent *t; /* used by the rotate macros */
1010c80476e4SDavid E. O'Brien #endif /* !lint */
1011c80476e4SDavid E. O'Brien int ff;
1012c80476e4SDavid E. O'Brien #ifdef lint
1013c80476e4SDavid E. O'Brien ff = 0; /* Sun's lint is dumb! */
1014c80476e4SDavid E. O'Brien #endif
1015c80476e4SDavid E. O'Brien
1016c80476e4SDavid E. O'Brien /*
1017c80476e4SDavid E. O'Brien * Ok, from here on, p is the node we're operating on; pp is it's parent; f
1018c80476e4SDavid E. O'Brien * is the branch of p from which we have come; ff is the branch of pp which
1019c80476e4SDavid E. O'Brien * is p.
1020c80476e4SDavid E. O'Brien */
1021c80476e4SDavid E. O'Brien for (; (pp = p->v_parent) != 0; p = pp, f = ff) {
1022c80476e4SDavid E. O'Brien ff = pp->v_right == p;
1023c80476e4SDavid E. O'Brien if (f ^ d) { /* right heavy */
1024c80476e4SDavid E. O'Brien switch (p->v_bal) {
1025c80476e4SDavid E. O'Brien case -1: /* was left heavy */
1026c80476e4SDavid E. O'Brien p->v_bal = 0;
1027c80476e4SDavid E. O'Brien break;
1028c80476e4SDavid E. O'Brien case 0: /* was balanced */
1029c80476e4SDavid E. O'Brien p->v_bal = 1;
1030c80476e4SDavid E. O'Brien break;
1031c80476e4SDavid E. O'Brien case 1: /* was already right heavy */
1032c80476e4SDavid E. O'Brien switch (p->v_right->v_bal) {
1033c80476e4SDavid E. O'Brien case 1: /* single rotate */
1034c80476e4SDavid E. O'Brien pp->v_link[ff] = rleft(p);
1035c80476e4SDavid E. O'Brien p->v_left->v_bal = 0;
1036c80476e4SDavid E. O'Brien p->v_bal = 0;
1037c80476e4SDavid E. O'Brien break;
1038c80476e4SDavid E. O'Brien case 0: /* single rotate */
103945e5710bSMark Peek pp->v_link[ff] = rleft(p);
1040c80476e4SDavid E. O'Brien p->v_left->v_bal = 1;
104123338178SMark Peek p->v_bal = -1;
104223338178SMark Peek break;
1043c80476e4SDavid E. O'Brien case -1: /* double rotate */
1044c80476e4SDavid E. O'Brien (void) rright(p->v_right);
1045c80476e4SDavid E. O'Brien pp->v_link[ff] = rleft(p);
1046c80476e4SDavid E. O'Brien p->v_left->v_bal =
1047c80476e4SDavid E. O'Brien p->v_bal < 1 ? 0 : -1;
1048c80476e4SDavid E. O'Brien p->v_right->v_bal =
104945e5710bSMark Peek p->v_bal > -1 ? 0 : 1;
1050c80476e4SDavid E. O'Brien p->v_bal = 0;
105145e5710bSMark Peek break;
105245e5710bSMark Peek default:
105345e5710bSMark Peek break;
105445e5710bSMark Peek }
105545e5710bSMark Peek break;
105645e5710bSMark Peek default:
1057c80476e4SDavid E. O'Brien break;
1058c80476e4SDavid E. O'Brien }
1059c80476e4SDavid E. O'Brien }
1060c80476e4SDavid E. O'Brien else { /* left heavy */
1061c80476e4SDavid E. O'Brien switch (p->v_bal) {
1062c80476e4SDavid E. O'Brien case 1: /* was right heavy */
1063c80476e4SDavid E. O'Brien p->v_bal = 0;
1064c80476e4SDavid E. O'Brien break;
1065c80476e4SDavid E. O'Brien case 0: /* was balanced */
1066c80476e4SDavid E. O'Brien p->v_bal = -1;
1067c80476e4SDavid E. O'Brien break;
1068c80476e4SDavid E. O'Brien case -1: /* was already left heavy */
1069c80476e4SDavid E. O'Brien switch (p->v_left->v_bal) {
1070c80476e4SDavid E. O'Brien case -1: /* single rotate */
1071c80476e4SDavid E. O'Brien pp->v_link[ff] = rright(p);
1072c80476e4SDavid E. O'Brien p->v_right->v_bal = 0;
1073c80476e4SDavid E. O'Brien p->v_bal = 0;
1074c80476e4SDavid E. O'Brien break;
1075c80476e4SDavid E. O'Brien case 0: /* single rotate */
1076c80476e4SDavid E. O'Brien pp->v_link[ff] = rright(p);
1077c80476e4SDavid E. O'Brien p->v_right->v_bal = -1;
1078c80476e4SDavid E. O'Brien p->v_bal = 1;
107923338178SMark Peek break;
1080c80476e4SDavid E. O'Brien case 1: /* double rotate */
1081c80476e4SDavid E. O'Brien (void) rleft(p->v_left);
108245e5710bSMark Peek pp->v_link[ff] = rright(p);
1083c80476e4SDavid E. O'Brien p->v_left->v_bal =
1084c80476e4SDavid E. O'Brien p->v_bal < 1 ? 0 : -1;
1085c80476e4SDavid E. O'Brien p->v_right->v_bal =
1086c80476e4SDavid E. O'Brien p->v_bal > -1 ? 0 : 1;
1087c80476e4SDavid E. O'Brien p->v_bal = 0;
1088c80476e4SDavid E. O'Brien break;
1089c80476e4SDavid E. O'Brien default:
1090c80476e4SDavid E. O'Brien break;
1091c80476e4SDavid E. O'Brien }
109223338178SMark Peek break;
1093c80476e4SDavid E. O'Brien default:
109423338178SMark Peek break;
1095c80476e4SDavid E. O'Brien }
109623338178SMark Peek }
10976767bd61SMark Peek /*
109823338178SMark Peek * If from insert, then we terminate when p is balanced. If from
109929301572SMark Peek * delete, then we terminate when p is unbalanced.
1100c80476e4SDavid E. O'Brien */
1101c80476e4SDavid E. O'Brien if ((p->v_bal == 0) ^ d)
1102c80476e4SDavid E. O'Brien break;
1103c80476e4SDavid E. O'Brien }
1104c80476e4SDavid E. O'Brien }
1105c80476e4SDavid E. O'Brien
1106c80476e4SDavid E. O'Brien void
plist(struct varent * p,int what)1107c80476e4SDavid E. O'Brien plist(struct varent *p, int what)
1108c80476e4SDavid E. O'Brien {
1109c80476e4SDavid E. O'Brien struct varent *c;
1110c80476e4SDavid E. O'Brien int len;
1111c80476e4SDavid E. O'Brien
1112c80476e4SDavid E. O'Brien for (;;) {
1113c80476e4SDavid E. O'Brien while (p->v_left)
1114c80476e4SDavid E. O'Brien p = p->v_left;
1115c80476e4SDavid E. O'Brien x:
1116c80476e4SDavid E. O'Brien if (p->v_parent == 0) /* is it the header? */
1117c80476e4SDavid E. O'Brien break;
1118c80476e4SDavid E. O'Brien if ((p->v_flags & what) != 0) {
1119c80476e4SDavid E. O'Brien if (setintr) {
1120c80476e4SDavid E. O'Brien int old_pintr_disabled;
1121c80476e4SDavid E. O'Brien
1122c80476e4SDavid E. O'Brien pintr_push_enable(&old_pintr_disabled);
1123c80476e4SDavid E. O'Brien cleanup_until(&old_pintr_disabled);
11246767bd61SMark Peek }
11256767bd61SMark Peek len = blklen(p->vec);
11266767bd61SMark Peek xprintf("%S\t", p->v_name);
11276767bd61SMark Peek if (len != 1)
11286767bd61SMark Peek xputchar('(');
112929301572SMark Peek blkpr(p->vec);
113029301572SMark Peek if (len != 1)
113129301572SMark Peek xputchar(')');
113229301572SMark Peek xputchar('\n');
113329301572SMark Peek }
1134c80476e4SDavid E. O'Brien if (p->v_right) {
1135c80476e4SDavid E. O'Brien p = p->v_right;
1136c80476e4SDavid E. O'Brien continue;
1137c80476e4SDavid E. O'Brien }
1138c80476e4SDavid E. O'Brien do {
1139c80476e4SDavid E. O'Brien c = p;
1140c80476e4SDavid E. O'Brien p = p->v_parent;
1141c80476e4SDavid E. O'Brien } while (p->v_right == c);
1142c80476e4SDavid E. O'Brien goto x;
1143c80476e4SDavid E. O'Brien }
1144c80476e4SDavid E. O'Brien }
1145c80476e4SDavid E. O'Brien
1146c80476e4SDavid E. O'Brien #if defined(KANJI)
1147c80476e4SDavid E. O'Brien # if defined(SHORT_STRINGS) && defined(DSPMBYTE)
1148c80476e4SDavid E. O'Brien extern int dspmbyte_ls;
1149c80476e4SDavid E. O'Brien
1150c80476e4SDavid E. O'Brien void
update_dspmbyte_vars(void)1151c80476e4SDavid E. O'Brien update_dspmbyte_vars(void)
1152c80476e4SDavid E. O'Brien {
1153c80476e4SDavid E. O'Brien int lp, iskcode;
1154c80476e4SDavid E. O'Brien Char *dstr1;
1155c80476e4SDavid E. O'Brien struct varent *vp;
1156c80476e4SDavid E. O'Brien
1157c80476e4SDavid E. O'Brien /* if variable "nokanji" is set, multi-byte display is disabled */
1158c80476e4SDavid E. O'Brien if ((vp = adrof(CHECK_MBYTEVAR)) && !adrof(STRnokanji)) {
1159c80476e4SDavid E. O'Brien _enable_mbdisp = 1;
1160c80476e4SDavid E. O'Brien dstr1 = vp->vec[0];
1161c80476e4SDavid E. O'Brien if (eq (dstr1, STRsjis))
1162c80476e4SDavid E. O'Brien iskcode = 1;
1163c80476e4SDavid E. O'Brien else if (eq(dstr1, STReuc))
1164c80476e4SDavid E. O'Brien iskcode = 2;
1165c80476e4SDavid E. O'Brien else if (eq(dstr1, STRbig5))
1166c80476e4SDavid E. O'Brien iskcode = 3;
1167c80476e4SDavid E. O'Brien else if (eq(dstr1, STRutf8))
1168c80476e4SDavid E. O'Brien iskcode = 4;
1169c80476e4SDavid E. O'Brien else if ((dstr1[0] - '0') >= 0 && (dstr1[0] - '0') <= 3) {
1170c80476e4SDavid E. O'Brien iskcode = 0;
1171c80476e4SDavid E. O'Brien }
1172c80476e4SDavid E. O'Brien else {
1173c80476e4SDavid E. O'Brien xprintf(CGETS(18, 2,
1174c80476e4SDavid E. O'Brien "Warning: unknown multibyte display; using default(euc(JP))\n"));
1175c80476e4SDavid E. O'Brien iskcode = 2;
1176c80476e4SDavid E. O'Brien }
1177c80476e4SDavid E. O'Brien if (dstr1 && vp->vec[1] && eq(vp->vec[1], STRls))
1178c80476e4SDavid E. O'Brien dspmbyte_ls = 1;
1179c80476e4SDavid E. O'Brien else
1180c80476e4SDavid E. O'Brien dspmbyte_ls = 0;
1181c80476e4SDavid E. O'Brien for (lp = 0; lp < 256 && iskcode > 0; lp++) {
1182c80476e4SDavid E. O'Brien switch (iskcode) {
1183c80476e4SDavid E. O'Brien case 1:
1184c80476e4SDavid E. O'Brien /* Shift-JIS */
118545e5710bSMark Peek _cmap[lp] = _cmap_mbyte[lp];
1186c80476e4SDavid E. O'Brien _mbmap[lp] = _mbmap_sjis[lp];
118745e5710bSMark Peek break;
118845e5710bSMark Peek case 2:
1189c80476e4SDavid E. O'Brien /* 2 ... euc */
1190c80476e4SDavid E. O'Brien _cmap[lp] = _cmap_mbyte[lp];
1191c80476e4SDavid E. O'Brien _mbmap[lp] = _mbmap_euc[lp];
1192c80476e4SDavid E. O'Brien break;
1193c80476e4SDavid E. O'Brien case 3:
1194c80476e4SDavid E. O'Brien /* 3 ... big5 */
1195c80476e4SDavid E. O'Brien _cmap[lp] = _cmap_mbyte[lp];
119645e5710bSMark Peek _mbmap[lp] = _mbmap_big5[lp];
1197c80476e4SDavid E. O'Brien break;
1198c80476e4SDavid E. O'Brien case 4:
119945e5710bSMark Peek /* 4 ... utf8 */
1200c80476e4SDavid E. O'Brien _cmap[lp] = _cmap_mbyte[lp];
1201c80476e4SDavid E. O'Brien _mbmap[lp] = _mbmap_utf8[lp];
1202c80476e4SDavid E. O'Brien break;
120323338178SMark Peek default:
120423338178SMark Peek xprintf(CGETS(18, 3,
120523338178SMark Peek "Warning: unknown multibyte code %d; multibyte disabled\n"),
120623338178SMark Peek iskcode);
120723338178SMark Peek _cmap[lp] = _cmap_c[lp];
120823338178SMark Peek _mbmap[lp] = 0; /* Default map all 0 */
1209b2d5d167SMark Peek _enable_mbdisp = 0;
121023338178SMark Peek break;
1211b2d5d167SMark Peek }
121223338178SMark Peek }
121323338178SMark Peek if (iskcode == 0) {
121423338178SMark Peek /* check original table */
121523338178SMark Peek if (Strlen(dstr1) != 256) {
1216c80476e4SDavid E. O'Brien xprintf(CGETS(18, 4,
1217c80476e4SDavid E. O'Brien "Warning: Invalid multibyte table length (%d); multibyte disabled\n"),
121845e5710bSMark Peek Strlen(dstr1));
121945e5710bSMark Peek _enable_mbdisp = 0;
122023338178SMark Peek }
122123338178SMark Peek for (lp = 0; lp < 256 && _enable_mbdisp == 1; lp++) {
122223338178SMark Peek if (!((dstr1[lp] - '0') >= 0 && (dstr1[lp] - '0') <= 3)) {
122323338178SMark Peek xprintf(CGETS(18, 4,
122423338178SMark Peek "Warning: bad multibyte code at offset +%d; multibyte diabled\n"),
122523338178SMark Peek lp);
122623338178SMark Peek _enable_mbdisp = 0;
122723338178SMark Peek break;
122823338178SMark Peek }
122923338178SMark Peek }
123023338178SMark Peek /* set original table */
123145e5710bSMark Peek for (lp = 0; lp < 256; lp++) {
123223338178SMark Peek if (_enable_mbdisp == 1) {
123345e5710bSMark Peek _cmap[lp] = _cmap_mbyte[lp];
123423338178SMark Peek _mbmap[lp] = (unsigned short) ((dstr1[lp] - '0') & 0x0f);
123523338178SMark Peek }
123623338178SMark Peek else {
123723338178SMark Peek _cmap[lp] = _cmap_c[lp];
123823338178SMark Peek _mbmap[lp] = 0; /* Default map all 0 */
123923338178SMark Peek }
1240c80476e4SDavid E. O'Brien }
1241c80476e4SDavid E. O'Brien }
1242c80476e4SDavid E. O'Brien }
1243c80476e4SDavid E. O'Brien else {
1244c80476e4SDavid E. O'Brien for (lp = 0; lp < 256; lp++) {
124545e5710bSMark Peek _cmap[lp] = _cmap_c[lp];
124623338178SMark Peek _mbmap[lp] = 0; /* Default map all 0 */
124745e5710bSMark Peek }
1248c80476e4SDavid E. O'Brien _enable_mbdisp = 0;
1249c80476e4SDavid E. O'Brien dspmbyte_ls = 0;
1250c80476e4SDavid E. O'Brien }
1251c80476e4SDavid E. O'Brien #ifdef MBYTEDEBUG /* Sorry, use for beta testing */
1252c80476e4SDavid E. O'Brien {
1253c80476e4SDavid E. O'Brien Char mbmapstr[300];
1254 for (lp = 0; lp < 256; lp++)
1255 mbmapstr[lp] = _mbmap[lp] + '0';
1256 mbmapstr[lp] = 0;
1257 setcopy(STRmbytemap, mbmapstr, VAR_READWRITE);
1258 }
1259 #endif /* MBYTEMAP */
1260 }
1261
1262 /* dspkanji/dspmbyte autosetting */
1263 /* PATCH IDEA FROM Issei.Suzuki VERY THANKS */
1264 void
autoset_dspmbyte(const Char * pcp)1265 autoset_dspmbyte(const Char *pcp)
1266 {
1267 int i;
1268 static const struct dspm_autoset_Table {
1269 Char *n;
1270 Char *v;
1271 } dspmt[] = {
1272 { STRLANGEUCJP, STReuc },
1273 { STRLANGEUCKR, STReuc },
1274 { STRLANGEUCZH, STReuc },
1275 { STRLANGEUCJPB, STReuc },
1276 { STRLANGEUCKRB, STReuc },
1277 { STRLANGEUCZHB, STReuc },
1278 #ifdef __linux__
1279 { STRLANGEUCJPC, STReuc },
1280 #endif
1281 { STRLANGSJIS, STRsjis },
1282 { STRLANGSJISB, STRsjis },
1283 { STRLANGBIG5, STRbig5 },
1284 { STRstarutfstar8, STRutf8 },
1285 { NULL, NULL }
1286 };
1287 #if defined(HAVE_NL_LANGINFO) && defined(CODESET)
1288 static const struct dspm_autoset_Table dspmc[] = {
1289 { STRstarutfstar8, STRutf8 },
1290 { STReuc, STReuc },
1291 { STRGB2312, STReuc },
1292 { STRLANGBIG5, STRbig5 },
1293 { NULL, NULL }
1294 };
1295 Char *codeset;
1296
1297 codeset = str2short(nl_langinfo(CODESET));
1298 if (*codeset != '\0') {
1299 for (i = 0; dspmc[i].n; i++) {
1300 const Char *estr;
1301 if (dspmc[i].n[0] && t_pmatch(pcp, dspmc[i].n, &estr, 0) > 0) {
1302 setcopy(CHECK_MBYTEVAR, dspmc[i].v, VAR_READWRITE);
1303 update_dspmbyte_vars();
1304 return;
1305 }
1306 }
1307 }
1308 #endif
1309
1310 if (*pcp == '\0')
1311 return;
1312
1313 for (i = 0; dspmt[i].n; i++) {
1314 const Char *estr;
1315 if (dspmt[i].n[0] && t_pmatch(pcp, dspmt[i].n, &estr, 0) > 0) {
1316 setcopy(CHECK_MBYTEVAR, dspmt[i].v, VAR_READWRITE);
1317 update_dspmbyte_vars();
1318 break;
1319 }
1320 }
1321 }
1322 # elif defined(AUTOSET_KANJI)
1323 void
autoset_kanji(void)1324 autoset_kanji(void)
1325 {
1326 char *codeset = nl_langinfo(CODESET);
1327
1328 if (*codeset == '\0') {
1329 if (adrof(STRnokanji) == NULL)
1330 setNS(STRnokanji);
1331 return;
1332 }
1333
1334 if (strcasestr(codeset, "SHIFT_JIS") == (char*)0) {
1335 if (adrof(STRnokanji) == NULL)
1336 setNS(STRnokanji);
1337 return;
1338 }
1339
1340 if (adrof(STRnokanji) != NULL)
1341 unsetv(STRnokanji);
1342 }
1343 #endif
1344 #endif
1345
1346 void
update_wordchars(void)1347 update_wordchars(void)
1348 {
1349 if ((word_chars == STR_WORD_CHARS) || (word_chars == STR_WORD_CHARS_VI)) {
1350 word_chars = (VImode ? STR_WORD_CHARS_VI : STR_WORD_CHARS);
1351 }
1352 }
1353