gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

version 1.2, 1997/07/06 16:09:55	version 1.3, 1997/09/13 12:05:52
Line 20	Line 20

\ Output 13feb93py	\ Output 13feb93py

has-os [IF]	has? os [IF]
0 Value outfile-id ( -- file-id ) \ gforth	0 Value outfile-id ( -- file-id ) \ gforth

: (type) ( c-addr u -- ) \ gforth	: (type) ( c-addr u -- ) \ gforth
Line 55 Defer key ( -- c ) \ core	Line 55 Defer key ( -- c ) \ core
0C constant #ff ( -- c ) \ gforth	0C constant #ff ( -- c ) \ gforth
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
\ emit a newline	\ emit a newline
[ ?? has-crlf [IF] ] #cr emit #lf emit	[ has? crlf [IF] ] #cr emit #lf emit
[ [ELSE] ] #lf emit	[ [ELSE] ] #lf emit
[ [THEN] ]	[ [THEN] ]
;	;