Changeset View
Changeset View
Standalone View
Standalone View
usr.bin/tip/tip/value.c
Show First 20 Lines • Show All 63 Lines • ▼ Show 20 Lines | vinit(void) | ||||
char file[FILENAME_MAX], *cp; | char file[FILENAME_MAX], *cp; | ||||
value_t *p; | value_t *p; | ||||
FILE *fp; | FILE *fp; | ||||
for (p = vtable; p->v_name != NULL; p++) { | for (p = vtable; p->v_name != NULL; p++) { | ||||
if (p->v_type&ENVIRON) | if (p->v_type&ENVIRON) | ||||
if ((cp = getenv(p->v_name))) | if ((cp = getenv(p->v_name))) | ||||
p->v_value = cp; | p->v_value = cp; | ||||
if (p->v_type&IREMOTE) | if (p->v_type&IREMOTE) { | ||||
setnumber(p->v_value, *address(p->v_value)); | switch (p->v_type&TMASK) { | ||||
case STRING: | |||||
p->v_value = *(char **)p->v_value; | |||||
break; | |||||
case NUMBER: | |||||
setnumber(p->v_value, *(long *)p->v_value); | |||||
break; | |||||
case BOOL: | |||||
setboolean(p->v_value, *(short *)p->v_value); | |||||
break; | |||||
case CHAR: | |||||
setcharacter(p->v_value, *(char *)p->v_value); | |||||
break; | |||||
} | |||||
} | |||||
} | } | ||||
/* | /* | ||||
* Read the .tiprc file in the HOME directory | * Read the .tiprc file in the HOME directory | ||||
* for sets | * for sets | ||||
*/ | */ | ||||
cp = value(HOME); | cp = value(HOME); | ||||
if (cp == NULL) { | if (cp == NULL) { | ||||
(void)fprintf(stderr, | (void)fprintf(stderr, | ||||
▲ Show 20 Lines • Show All 270 Lines • Show Last 20 Lines |