version 1.29, 2007/07/01 20:01:32
|
version 1.33, 2008/08/09 13:24:25
|
Line 1
|
Line 1
|
/* direct key io driver |
/* direct key io driver |
|
|
Copyright (C) 1995,1996,1997,1998,1999,2002,2003,2006 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,1999,2002,2003,2006,2007 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Gforth is free software; you can redistribute it and/or |
Gforth is free software; you can redistribute it and/or |
modify it under the terms of the GNU General Public License |
modify it under the terms of the GNU General Public License |
as published by the Free Software Foundation; either version 2 |
as published by the Free Software Foundation, either version 3 |
of the License, or (at your option) any later version. |
of the License, or (at your option) any later version. |
|
|
This program is distributed in the hope that it will be useful, |
This program is distributed in the hope that it will be useful, |
Line 15
|
Line 15
|
GNU General Public License for more details. |
GNU General Public License for more details. |
|
|
You should have received a copy of the GNU General Public License |
You should have received a copy of the GNU General Public License |
along with this program; if not, write to the Free Software |
along with this program; if not, see http://www.gnu.org/licenses/. |
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
|
The following is stolen from the readline library for bash |
The following is stolen from the readline library for bash |
*/ |
*/ |
Line 622 long key_avail (FILE * stream)
|
Line 621 long key_avail (FILE * stream)
|
{ |
{ |
int tty = fileno (stream); |
int tty = fileno (stream); |
fd_set selin; |
fd_set selin; |
static struct timespec now = { 0 , 0 }; |
static struct timeval now = { 0 , 0 }; |
int res; |
|
|
|
setvbuf(stream, NULL, _IONBF, 0); |
setvbuf(stream, NULL, _IONBF, 0); |
if(!terminal_prepped && stream == stdin) |
if(!terminal_prepped && stream == stdin) |
Line 651 Cell getkey(FILE * stream)
|
Line 649 Cell getkey(FILE * stream)
|
prep_terminal(); |
prep_terminal(); |
|
|
result = fread(&c, sizeof(c), 1, stream); |
result = fread(&c, sizeof(c), 1, stream); |
return result==0 ? (errno == EINTR ? 12 : EOF) : c; |
return result==0 ? (errno == EINTR ? 12 : 4) : c; |
} |
} |
|
|
#ifdef STANDALONE |
#ifdef STANDALONE |