33 	value_t *p;  in vinit()  local
38 	for (p = vtable; p->v_name != NULL; p++) {  in vinit()
39 		if (p->v_type&ENVIRON)  in vinit()
40 			if (cp = getenv(p->v_name))  in vinit()
41 				p->v_value = cp;  in vinit()
42 		if (p->v_type&IREMOTE)  in vinit()
43 			number(p->v_value) = *address(p->v_value);  in vinit()
75 vassign(value_t *p, char *v)  in vassign()  argument
78 	if (!vaccess(p->v_access, WRITE)) {  in vassign()
82 	switch (p->v_type&TMASK) {  in vassign()
85 		if (p->v_value != (char *)NULL) {  in vassign()
86 			if (equal(p->v_value, v))  in vassign()
88 			if (!(p->v_type&(ENVIRON|INIT)))  in vassign()
89 				free(p->v_value);  in vassign()
91 		if ((p->v_value = malloc(strlen(v)+1)) == NOSTR) {  in vassign()
95 		p->v_type &= ~(ENVIRON|INIT);  in vassign()
96 		(void) strcpy(p->v_value, v);  in vassign()
100 		if (number(p->v_value) == number(v))  in vassign()
102 		number(p->v_value) = number(v);  in vassign()
106 		if (boolean(p->v_value) == (*v != '!'))  in vassign()
108 		boolean(p->v_value) = (*v != '!');  in vassign()
112 		if (character(p->v_value) == *v)  in vassign()
114 		character(p->v_value) = *v;  in vassign()
116 	p->v_access |= CHANGED;  in vassign()
122 	value_t *p;  in vlex()  local
125 		for (p = vtable; p->v_name; p++)  in vlex()
126 			if (vaccess(p->v_access, READ))  in vlex()
127 				vprint(p);  in vlex()
147 	value_t *p;  in vtoken()  local
152 		if (p = vlookup(s)) {  in vtoken()
154 			if (p->v_type&NUMBER)  in vtoken()
155 				vassign(p, (char *)atoi(cp));  in vtoken()
160 				vassign(p, cp);  in vtoken()
166 		if ((p = vlookup(s)) != NULL && vaccess(p->v_access, READ)) {  in vtoken()
167 			vprint(p);  in vtoken()
172 			p = vlookup(s);  in vtoken()
174 			p = vlookup(s+1);  in vtoken()
175 		if (p != NOVAL) {  in vtoken()
176 			if (p->v_type&BOOL)  in vtoken()
177 				vassign(p, s);  in vtoken()
187 vprint(value_t *p)  in vprint()  argument
194 	col += strlen(p->v_name);  in vprint()
195 	switch (p->v_type&TMASK) {  in vprint()
198 		if (boolean(p->v_value) == FALSE) {  in vprint()
202 		(void) printf("%s", p->v_name);  in vprint()
206 		(void) printf("%s=", p->v_name);  in vprint()
208 		if (p->v_value) {  in vprint()
209 			cp = interp(p->v_value);  in vprint()
217 		(void) printf("%s=%-5d", p->v_name, number(p->v_value));  in vprint()
221 		(void) printf("%s=", p->v_name);  in vprint()
223 		if (p->v_value) {  in vprint()
224 			cp = ctrl(character(p->v_value));  in vprint()
251 	value_t *p;  in vlookup()  local
253 	for (p = vtable; p->v_name; p++)  in vlookup()
254 		if (equal(p->v_name, s) || (p->v_abrev && equal(p->v_abrev, s)))  in vlookup()
255 			return (p);  in vlookup()
262 	char *p = s, c;  in vinterp()  local
270 				*p++ = *s++ - 0100;  in vinterp()
272 				*p++ = c;  in vinterp()
285 						*p++ = *q;  in vinterp()
288 				*p++ = c;  in vinterp()
300 			*p++ = num;  in vinterp()
304 			*p++ = c;  in vinterp()
306 	*p = '\0';  in vinterp()
316 	value_t *p;  in vstring()  local
319 	p = vlookup(s);  in vstring()
320 	if (p == 0)  in vstring()
322 	if (p->v_type&NUMBER)  in vstring()
323 		vassign(p, (char *)atoi(v));  in vstring()
328 		vassign(p, v);  in vstring()