gforth/ekey.fs - diff

Return to ekey.fs CVS log

Up to [gforth] / gforth

version 1.13, 2005/12/31 15:46:08	version 1.15, 2006/06/05 23:55:18
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 even is available.	\G True if a keyboard event is available.

\ : esc? ( -- flag ) recursive	\ : esc? ( -- flag ) recursive
\ key? 0=	\ key? 0=