gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

version 1.10, 1999/03/29 22:52:34	version 1.11, 1999/05/05 12:07:11
Line 59 Defer emit ( c -- ) \ core	Line 59 Defer emit ( c -- ) \ core

Defer key ( -- char ) \ core	Defer key ( -- char ) \ core
\G Receive (but do not display) one character, @var{char}.	\G Receive (but do not display) one character, @var{char}.
: (key) ( -- c ) \ gforth
0 key-file ;

[IFDEF] (key) ' (key) IS key [THEN]	[IFDEF] (key) ' (key) IS key [THEN]

Line 70 Defer key? ( -- flag ) \ facility	Line 68 Defer key? ( -- flag ) \ facility
\G yield the character. Once @code{key?} returns true, subsequent	\G yield the character. Once @code{key?} returns true, subsequent
\G calls to @code{key?} without calling @code{key} or @code{ekey} will	\G calls to @code{key?} without calling @code{key} or @code{ekey} will
\G also return true.	\G also return true.
: (key?) ( -- flag ) \ gforth
0 key?-file ;

[IFDEF] (key?) ' (key?) IS key? [THEN]	[IFDEF] (key?) ' (key?) IS key? [THEN]