Lines Matching refs:p

31 	value_t *p;  in vinit()  local
36 for (p = vtable; p->v_name != NULL; p++) { in vinit()
37 if (p->v_type&ENVIRON) in vinit()
38 if (cp = getenv(p->v_name)) in vinit()
39 p->v_value = cp; in vinit()
40 if (p->v_type&IREMOTE) in vinit()
41 number(p->v_value) = *address(p->v_value); in vinit()
73 vassign(value_t *p, char *v) in vassign() argument
76 if (!vaccess(p->v_access, WRITE)) { in vassign()
80 switch (p->v_type&TMASK) { in vassign()
83 if (p->v_value != (char *)NULL) { in vassign()
84 if (equal(p->v_value, v)) in vassign()
86 if (!(p->v_type&(ENVIRON|INIT))) in vassign()
87 free(p->v_value); in vassign()
89 if ((p->v_value = malloc(strlen(v)+1)) == NOSTR) { in vassign()
93 p->v_type &= ~(ENVIRON|INIT); in vassign()
94 (void) strcpy(p->v_value, v); in vassign()
98 if (number(p->v_value) == number(v)) in vassign()
100 number(p->v_value) = number(v); in vassign()
104 if (boolean(p->v_value) == (*v != '!')) in vassign()
106 boolean(p->v_value) = (*v != '!'); in vassign()
110 if (character(p->v_value) == *v) in vassign()
112 character(p->v_value) = *v; in vassign()
114 p->v_access |= CHANGED; in vassign()
120 value_t *p; in vlex() local
123 for (p = vtable; p->v_name; p++) in vlex()
124 if (vaccess(p->v_access, READ)) in vlex()
125 vprint(p); in vlex()
145 value_t *p; in vtoken() local
150 if (p = vlookup(s)) { in vtoken()
152 if (p->v_type&NUMBER) in vtoken()
153 vassign(p, (char *)atoi(cp)); in vtoken()
158 vassign(p, cp); in vtoken()
164 if ((p = vlookup(s)) != NULL && vaccess(p->v_access, READ)) { in vtoken()
165 vprint(p); in vtoken()
170 p = vlookup(s); in vtoken()
172 p = vlookup(s+1); in vtoken()
173 if (p != NOVAL) { in vtoken()
174 if (p->v_type&BOOL) in vtoken()
175 vassign(p, s); in vtoken()
185 vprint(value_t *p) in vprint() argument
192 col += strlen(p->v_name); in vprint()
193 switch (p->v_type&TMASK) { in vprint()
196 if (boolean(p->v_value) == FALSE) { in vprint()
200 (void) printf("%s", p->v_name); in vprint()
204 (void) printf("%s=", p->v_name); in vprint()
206 if (p->v_value) { in vprint()
207 cp = interp(p->v_value); in vprint()
215 (void) printf("%s=%-5d", p->v_name, number(p->v_value)); in vprint()
219 (void) printf("%s=", p->v_name); in vprint()
221 if (p->v_value) { in vprint()
222 cp = ctrl(character(p->v_value)); in vprint()
249 value_t *p; in vlookup() local
251 for (p = vtable; p->v_name; p++) in vlookup()
252 if (equal(p->v_name, s) || (p->v_abrev && equal(p->v_abrev, s))) in vlookup()
253 return (p); in vlookup()
260 char *p = s, c; in vinterp() local
268 *p++ = *s++ - 0100; in vinterp()
270 *p++ = c; in vinterp()
283 *p++ = *q; in vinterp()
286 *p++ = c; in vinterp()
298 *p++ = num; in vinterp()
302 *p++ = c; in vinterp()
304 *p = '\0'; in vinterp()
314 value_t *p; in vstring() local
317 p = vlookup(s); in vstring()
318 if (p == 0) in vstring()
320 if (p->v_type&NUMBER) in vstring()
321 vassign(p, (char *)atoi(v)); in vstring()
326 vassign(p, v); in vstring()