gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

version 1.13, 1999/08/29 21:44:46	version 1.14, 1999/12/03 18:49:52
Line 68 Defer key ( -- char ) \ core	Line 68 Defer key ( -- char ) \ core

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

Defer key? ( -- flag ) \ facility	Defer key? ( -- flag ) \ facility key-question
\G Determine whether a character is available. If a character is	\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 available, @var{flag} is true; the next call to @code{key} will
\G yield the character. Once @code{key?} returns true, subsequent	\G yield the character. Once @code{key?} returns true, subsequent
Line 94 all-words	Line 94 all-words
0A constant #lf ( -- c ) \ gforth	0A constant #lf ( -- c ) \ gforth

: bell #bell emit [ has? os [IF] ] outfile-id flush-file drop [ [THEN] ] ;	: bell #bell emit [ has? os [IF] ] outfile-id flush-file drop [ [THEN] ] ;
: cr ( -- ) \ core	: cr ( -- ) \ core c-r
\G Output a carriage-return and (if appropriate for the host operating system)	\G Output a carriage-return and (if appropriate for the host operating system)
\G a line feed.	\G a line feed.
[ has? crlf [IF] ] #cr emit #lf emit	[ has? crlf [IF] ] #cr emit #lf emit