version 1.26, 2010/07/01 21:43:38 |
version 1.27, 2010/07/01 21:47:09 |
|
|
FILE *fp; |
FILE *fp; |
|
|
/* Read environment variables. */ |
/* Read environment variables. */ |
if (cp = getenv("HOME")) |
if ((cp = getenv("HOME"))) |
vsetstr(HOME, cp); |
vsetstr(HOME, cp); |
if (cp = getenv("SHELL")) |
if ((cp = getenv("SHELL"))) |
vsetstr(SHELL, cp); |
vsetstr(SHELL, cp); |
|
|
/* Read the .tiprc file in the HOME directory. */ |
/* Read the .tiprc file in the HOME directory. */ |
|
|
} |
} |
} else if ((cp = strchr(s, '?'))) { |
} else if ((cp = strchr(s, '?'))) { |
*cp = '\0'; |
*cp = '\0'; |
if (p = vlookup(s)) { |
if ((p = vlookup(s))) { |
vprint(p); |
vprint(p); |
return; |
return; |
} |
} |