contrib/tcsh/sh.set.c

64 update_vars(Char *vp)
66     if (eq(vp, STRpath)) {
75     else if (eq(vp, STRhistchars)) {
76 	Char *pn = varval(vp);
84     else if (eq(vp, STRpromptchars)) {
85 	Char *pn = varval(vp);
93     else if (eq(vp, STRhistlit)) {
96     else if (eq(vp, STRuser)) {
97 	tsetenv(STRKUSER, varval(vp));
98 	tsetenv(STRLOGNAME, varval(vp));
100     else if (eq(vp, STRgroup)) {
101 	tsetenv(STRKGROUP, varval(vp));
103     else if (eq(vp, STRwordchars)) {
104 	word_chars = varval(vp);
106     else if (eq(vp, STRloginsh)) {
109     else if (eq(vp, STRanyerror)) {
112     else if (eq(vp, STRsymlinks)) {
113 	Char *pn = varval(vp);
124     else if (eq(vp, STRterm)) {
125 	Char *cp = varval(vp);
141     else if (eq(vp, STRhome)) {
144 	cp = Strsave(varval(vp));	/* get the old value back */
155 	setcopy(vp, canon, VAR_READWRITE);	/* have to save the new val */
163     else if (eq(vp, STRedit)) {
168     else if (eq(vp, STRshlvl)) {
169 	tsetenv(STRKSHLVL, varval(vp));
171     else if (eq(vp, STRignoreeof)) {
183     else if (eq(vp, STRbackslash_quote)) {
186     else if (eq(vp, STRcompat_expr)) {
189     else if (eq(vp, STRdirstack)) {
192     else if (eq(vp, STRrecognize_only_executables)) {
195     else if (eq(vp, STRkillring)) {
196 	SetKillRing((int)getn(varval(vp)));
199     else if (eq(vp, STRwatch)) {
203     else if (eq(vp, STRimplicitcd)) {
204 	implicit_cd = ((eq(varval(vp), STRverbose)) ? 2 : 1);
207     else if (eq(vp, STRcolor)) {
212     else if(eq(vp, CHECK_MBYTEVAR) || eq(vp, STRnokanji)) {
217     else if (eq(vp, STRcatalog)) {
222     else if (eq(vp, STRfilec))
234     Char   *vp;
273 	vp = p;
314 	    set1(vp, vecp, &shvhed, flags);
323 	    asx(vp, subscr, copy);
328 	    setv(vp, Strsave(p), flags);
329 	update_vars(vp);
346 asx(Char *vp, int subscr, Char *p)
348     struct varent *v = getvx(vp, subscr);
360 getvx(Char *vp, int subscr)
362     struct varent *v = adrof(vp);
365 	udvar(vp);
376     Char   *vp, c, op;
389 	vp = p;
393 	if (vp == p || !letter(*vp))
413 	vp = Strsave(vp);
414 	cleanup_push(vp, xfree);
440 		asx(vp, subscr, p);
442 		setv(vp, p, VAR_READWRITE);
446 	    struct varent *gv = getvx(vp, subscr);
451 	    asx(vp, subscr, val);
458 	    val = operate(op, varval(vp), p);
460 	    setv(vp, val, VAR_READWRITE);
464 	update_vars(vp);
465 	cleanup_until(vp);
470 xset(Char *cp, Char ***vp)
476 	--(*vp);
477 	xfree(** vp);
478 	**vp = dp;
480     return (putn(expr(vp)));
484 operate(int op, Char *vp, Char *p)
493 	if (*vp)
494 	    *v++ = vp;
574     struct varent *vp;
579     vp = adrof1(var, head);
580     return ((vp == NULL || vp->vec == NULL || vp->vec[0] == NULL) ?
581 	STRNULL : vp->vec[0]);
585 madrof(Char *pat, struct varent *vp)
589     for (vp = vp->v_left; vp; vp = vp->v_right) {
590 	if (vp->v_left && (vp1 = madrof(pat, vp)) != NULL)
592 	if (Gmatch(vp->v_name, pat))
593 	    return vp;
595     return vp;
805     struct varent *vp;
810 	while ((vp = madrof(*v, head)) != NULL)
811 	    if (vp->v_flags & VAR_READONLY)
812 		stderror(ERR_READONLY|ERR_NAME, vp->v_name);
814 		unsetv1(vp), cnt++;
823     struct varent *vp;
825     if ((vp = adrof1(var, &shvhed)) == 0)
827     unsetv1(vp);
1114     struct varent *vp;
1117     if ((vp = adrof(CHECK_MBYTEVAR)) && !adrof(STRnokanji)) {
1119 	dstr1 = vp->vec[0];
1136 	if (dstr1 && vp->vec[1] && eq(vp->vec[1], STRls))