gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

version 1.9, 1999/03/23 20:24:25	version 1.10, 1999/03/29 22:52:34
Line 57 Defer emit ( c -- ) \ core	Line 57 Defer emit ( c -- ) \ core

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

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

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

Defer key? ( -- flag ) \ core	Defer key? ( -- flag ) \ facility
	\G Determine whether a character is available. If a character is
	\G available, @var{flag} is true; the next call to @code{key} will
	\G yield the character. Once @code{key?} returns true, subsequent
	\G calls to @code{key?} without calling @code{key} or @code{ekey} will
	\G also return true.
: (key?) ( -- flag ) \ gforth	: (key?) ( -- flag ) \ gforth
0 key?-file ;	0 key?-file ;