gforth/engine/io.c - diff

Return to io.c CVS log

Up to [gforth] / gforth / engine

version 1.27, 2007/07/01 18:32:11	version 1.28, 2007/07/01 19:05:00
Line 622 long key_avail (FILE * stream)	Line 622 long key_avail (FILE * stream)
{	{
int tty = fileno (stream);	int tty = fileno (stream);
fd_set selin;	fd_set selin;
static long int now[2] = { 0 , 0 };	static struct timespec now = { 0 , 0 };
int res;	int res;

setvbuf(stream, NULL, _IONBF, 0);	setvbuf(stream, NULL, _IONBF, 0);
Line 631 long key_avail (FILE * stream)	Line 631 long key_avail (FILE * stream)

FD_ZERO(&selin);	FD_ZERO(&selin);
FD_SET(tty, &selin);	FD_SET(tty, &selin);
return select(1, &selin, NULL, NULL, now);	return select(1, &selin, NULL, NULL, &now);
}	}

/* Get a key from the buffer of characters to be read.	/* Get a key from the buffer of characters to be read.