gforth/engine/io.c - diff

Return to io.c CVS log

Up to [gforth] / gforth / engine

version 1.37, 2009/06/29 20:29:54	version 1.38, 2009/06/30 19:22:24
Line 672 long key_avail (FILE *stream)	Line 672 long key_avail (FILE *stream)
static struct timeval now = { 0 , 0 };	static struct timeval now = { 0 , 0 };
int chars_avail;	int chars_avail;

	if (gf_ungottenc(stream))
	return 1;
setvbuf(stream, NULL, _IONBF, 0);	setvbuf(stream, NULL, _IONBF, 0);
if(!terminal_prepped && stream == stdin)	if(!terminal_prepped && stream == stdin)
prep_terminal();	prep_terminal();
if (gf_ungottenc(stream))
return 1;

FD_ZERO(&selin);	FD_ZERO(&selin);
FD_SET(tty, &selin);	FD_SET(tty, &selin);
Line 703 Cell getkey(FILE * stream)	Line 703 Cell getkey(FILE * stream)
Cell result;	Cell result;
unsigned char c;	unsigned char c;

setvbuf(stream, NULL, _IONBF, 0);	if (!gf_ungottenc(stream))
	setvbuf(stream, NULL, _IONBF, 0);
if(!terminal_prepped && stream == stdin)	if(!terminal_prepped && stream == stdin)
prep_terminal();	prep_terminal();