gforth/engine/io.c - diff

Return to io.c CVS log

Up to [gforth] / gforth / engine

version 1.36, 2009/06/29 20:21:28	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();

result = fread(&c, sizeof(c), 1, stream);	result = fread(&c, sizeof(c), 1, stream);
	if (result>0)
	gf_regetc(stream);
return result==0 ? (errno == EINTR ? 12 : 4) : c;	return result==0 ? (errno == EINTR ? 12 : 4) : c;
}	}