gforth/ekey.fs - diff

Return to ekey.fs CVS log

Up to [gforth] / gforth

version 1.14, 2006/04/02 09:18:56	version 1.16, 2006/12/31 13:39:12
Line 1	Line 1
\ ekey etc.	\ ekey etc.

\ Copyright (C) 1999,2002,2003,2004,2005 Free Software Foundation, Inc.	\ Copyright (C) 1999,2002,2003,2004,2005,2006 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 219 set-current	Line 219 set-current

: ekey>char ( u -- u false \| c true ) \ facility-ext e-key-to-char	: ekey>char ( u -- u false \| c true ) \ facility-ext e-key-to-char
\G Convert keyboard event @var{u} into character @code{c} if possible.	\G Convert keyboard event @var{u} into character @code{c} if possible.
dup 256 u< ;	dup k-left u< ; \ k-left must be first!

' key? alias ekey? ( -- flag ) \ facility-ext e-key-question	' key? alias ekey? ( -- flag ) \ facility-ext e-key-question
\G True if a keyboard event is available.	\G True if a keyboard event is available.