gforth/ekey.fs - diff

Return to ekey.fs CVS log

Up to [gforth] / gforth

version 1.12, 2005/10/02 11:30:32	version 1.15, 2006/06/05 23:55:18
Line 1	Line 1
\ ekey etc.	\ ekey etc.

\ Copyright (C) 1999,2002,2003,2004 Free Software Foundation, Inc.	\ Copyright (C) 1999,2002,2003,2004,2005 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 even is available.	\G True if a keyboard event is available.

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