gforth/engine/support.c - diff

Return to support.c CVS log

Up to [gforth] / gforth / engine

version 1.7, 2003/03/09 15:17:04	version 1.8, 2003/08/30 19:55:13
Line 76 char tilde_cstr(Char from, UCell size,	Line 76 char tilde_cstr(Char from, UCell size,
if (size<2 \|\| from[1]=='/') {	if (size<2 \|\| from[1]=='/') {
s1 = (char *)getenv ("HOME");	s1 = (char *)getenv ("HOME");
if(s1 == NULL)	if(s1 == NULL)
	#if defined(_WIN32) \|\| defined (MSDOS)
	s1 = (char *)getenv ("TEMP");
	if(s1 == NULL)
	s1 = (char *)getenv ("TMP");
	if(s1 == NULL)
	#endif
s1 = "";	s1 = "";
s2 = from+1;	s2 = from+1;
s2_len = size-1;	s2_len = size-1;