tcsh-65/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);
81     else if (eq(vp, STRpromptchars)) {
82 	Char *pn = varval(vp);
87     else if (eq(vp, STRhistlit)) {
90     else if (eq(vp, STRuser)) {
91 	tsetenv(STRKUSER, varval(vp));
92 	tsetenv(STRLOGNAME, varval(vp));
94     else if (eq(vp, STRgroup)) {
95 	tsetenv(STRKGROUP, varval(vp));
97     else if (eq(vp, STRwordchars)) {
98 	word_chars = varval(vp);
100     else if (eq(vp, STRloginsh)) {
103     else if (eq(vp, STRsymlinks)) {
104 	Char *pn = varval(vp);
115     else if (eq(vp, STRterm)) {
116 	Char *cp = varval(vp);
132     else if (eq(vp, STRhome)) {
135 	cp = Strsave(varval(vp));	/* get the old value back */
146 	setcopy(vp, canon, VAR_READWRITE);	/* have to save the new val */
154     else if (eq(vp, STRedit)) {
159     else if (eq(vp, STRshlvl)) {
160 	tsetenv(STRKSHLVL, varval(vp));
162     else if (eq(vp, STRignoreeof)) {
174     else if (eq(vp, STRbackslash_quote)) {
177     else if (eq(vp, STRcompat_expr)) {
180     else if (eq(vp, STRdirstack)) {
183     else if (eq(vp, STRrecognize_only_executables)) {
186     else if (eq(vp, STRkillring)) {
187 	SetKillRing(getn(varval(vp)));
190     else if (eq(vp, STRwatch)) {
194     else if (eq(vp, STRimplicitcd)) {
195 	implicit_cd = ((eq(varval(vp), STRverbose)) ? 2 : 1);
198     else if (eq(vp, STRcolor)) {
203     else if(eq(vp, CHECK_MBYTEVAR) || eq(vp, STRnokanji)) {
208     else if (eq(vp, STRcatalog)) {
213     else if (eq(vp, STRfilec))
225     Char   *vp, op;
264 	vp = p;
268 	if (vp == p || !letter(*vp))
306 	    set1(vp, vecp, &shvhed, flags);
315 	    asx(vp, subscr, copy);
320 	    setv(vp, Strsave(p), flags);
321 	update_vars(vp);
338 asx(Char *vp, int subscr, Char *p)
340     struct varent *v = getvx(vp, subscr);
352 getvx(Char *vp, int subscr)
354     struct varent *v = adrof(vp);
357 	udvar(vp);
368     Char   *vp, c, op;
381 	vp = p;
385 	if (vp == p || !letter(*vp))
405 	vp = Strsave(vp);
406 	cleanup_push(vp, xfree);
432 		asx(vp, subscr, p);
434 		setv(vp, p, VAR_READWRITE);
438 	    struct varent *gv = getvx(vp, subscr);
443 	    asx(vp, subscr, val);
450 	    val = operate(op, varval(vp), p);
452 	    setv(vp, val, VAR_READWRITE);
456 	update_vars(vp);
457 	cleanup_until(vp);
462 xset(Char *cp, Char ***vp)
468 	--(*vp);
469 	xfree(** vp);
470 	**vp = dp;
472     return (putn(expr(vp)));
476 operate(int op, Char *vp, Char *p)
485 	if (*vp)
486 	    *v++ = vp;
566     struct varent *vp;
571     vp = adrof1(var, head);
572     return ((vp == NULL || vp->vec == NULL || vp->vec[0] == NULL) ?
573 	STRNULL : vp->vec[0]);
577 madrof(Char *pat, struct varent *vp)
581     for (vp = vp->v_left; vp; vp = vp->v_right) {
582 	if (vp->v_left && (vp1 = madrof(pat, vp)) != NULL)
584 	if (Gmatch(vp->v_name, pat))
585 	    return vp;
587     return vp;
795     struct varent *vp;
800 	while ((vp = madrof(*v, head)) != NULL)
801 	    if (vp->v_flags & VAR_READONLY)
802 		stderror(ERR_READONLY|ERR_NAME, vp->v_name);
804 		unsetv1(vp), cnt++;
813     struct varent *vp;
815     if ((vp = adrof1(var, &shvhed)) == 0)
817     unsetv1(vp);
1102     struct varent *vp;
1105     if ((vp = adrof(CHECK_MBYTEVAR)) && !adrof(STRnokanji)) {
1107 	dstr1 = vp->vec[0];
1124 	if (dstr1 && vp->vec[1] && eq(vp->vec[1], STRls))