gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.68, 2000/12/24 15:54:18	version 1.70, 2001/01/14 22:53:19
Line 2157 if(dent == NULL) {	Line 2157 if(dent == NULL) {
flag = 0;	flag = 0;
} else {	} else {
u2 = strlen(dent->d_name);	u2 = strlen(dent->d_name);
if(u2 > u1)	if(u2 > u1) {
u2 = u1;	u2 = u1;
	wior = -512-ENAMETOOLONG;
	}
memmove(c_addr, dent->d_name, u2);	memmove(c_addr, dent->d_name, u2);
}	}

Line 2175 flag = FLAG(!fnmatch(pattern, string, 0)	Line 2177 flag = FLAG(!fnmatch(pattern, string, 0)
newline ( -- c_addr u ) gforth	newline ( -- c_addr u ) gforth
""String containing the newline sequence of the host OS""	""String containing the newline sequence of the host OS""
char newline[] = {	char newline[] = {
#ifdef unix	#if defined(unix) \|\| defined(__MACH__)
	/* Darwin/MacOS X sets __MACH__, but not unix. */
'\n'	'\n'
#else	#else
'\r','\n'	'\r','\n'