gforth/engine/io.c - diff

Return to io.c CVS log

Up to [gforth] / gforth / engine

version 1.43, 2012/04/06 16:34:07	version 1.44, 2012/07/22 22:24:50
Line 681 long key_avail (FILE *stream)	Line 681 long key_avail (FILE *stream)
{	{
chars_avail = poll(&fds, 1, 0);	chars_avail = poll(&fds, 1, 0);
}	}
	#ifndef __ANDROID__
if (chars_avail > 0) {	if (chars_avail > 0) {
/* getc won't block */	/* getc won't block */
int c = getc(stream);	int c = getc(stream);
Line 688 long key_avail (FILE *stream)	Line 689 long key_avail (FILE *stream)
return 0;	return 0;
gf_ungetc(c, stream);	gf_ungetc(c, stream);
}	}
	#endif
return (chars_avail == -1) ? 0 : chars_avail;	return (chars_avail == -1) ? 0 : chars_avail;
}	}