gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

version 1.27, 2007/03/18 21:46:17	version 1.28, 2007/03/25 21:30:59
Line 65 Defer emit ( c -- ) \ core	Line 65 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
	infile-id key-file ;
	: infile-id stdin ;

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

Line 74 Defer key? ( -- flag ) \ facility key-qu	Line 77 Defer key? ( -- flag ) \ facility key-qu
\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?} before calling @code{key} or @code{ekey} will	\G calls to @code{key?} before calling @code{key} or @code{ekey} will
\G also return true.	\G also return true.
	: (key?) ( -- flag ) \ gforth
	infile-id key?-file ;
	: infile-id stdin ;

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