gforth/engine/io.c - diff

Return to io.c CVS log

Up to [gforth] / gforth / engine

version 1.18, 2006/02/19 17:27:13	version 1.19, 2006/04/04 13:36:37
Line 619 void deprep_terminal ()	Line 619 void deprep_terminal ()

/* If a character is available to be read, then read it	/* If a character is available to be read, then read it
and stuff it into IBUFFER. Otherwise, just return. */	and stuff it into IBUFFER. Otherwise, just return. */

long pending = -1L;	long pending = -1L;
	/* !! This is a bug: if key_avail(file1) is followed by getkey(file2),
	the getkey(file2) can return the character from file1. - anton */

	/* Moreover, key_avail and getkey bypass the buffering of the FILE *,
	leading to unpleasant effects if KEY-FILE and KEY?-FILE are mixed
	with READ-FILE and READ-LINE */

long key_avail (FILE * stream)	long key_avail (FILE * stream)
{	{
Line 631 long key_avail (FILE * stream)	Line 636 long key_avail (FILE * stream)
if(!terminal_prepped) prep_terminal();	if(!terminal_prepped) prep_terminal();

#if defined(FIONREAD) && !defined(_WIN32)	#if defined(FIONREAD) && !defined(_WIN32)
	/* !! What is the point of this part? it does not affect
	chars_avail, and "result" is never used - anton */
if(isatty (tty)) {	if(isatty (tty)) {
result = ioctl (tty, FIONREAD, &chars_avail);	result = ioctl (tty, FIONREAD, &chars_avail);
}	}