[BACK]Return to io.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/io.fs between versions 1.30 and 1.31

version 1.30, 2007/12/31 18:40:26 version 1.31, 2012/07/27 23:28:10
Line 22  require ./basics.fs Line 22  require ./basics.fs
 \ Output                                               13feb93py  \ Output                                               13feb93py
   
 has? os [IF]  has? os [IF]
 0 Value outfile-id ( -- file-id ) \ gforth  
 0 Value infile-id ( -- file-id ) \ gforth  0 Value infile-id ( -- file-id ) \ gforth
   0 Value outfile-id ( -- file-id ) \ gforth
   0 Value errfile-id ( -- file-id ) \ gforth
           
 : (type) ( c-addr u -- ) \ gforth  : (type) ( c-addr u -- ) \ gforth
     outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?      outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
Line 100  all-words Line 101  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 c-r  Defer cr ( -- ) \ core c-r
     \G Output a newline (of the favourite kind of the host OS).  Note      \G Output a newline (of the favourite kind of the host OS).  Note
     \G that due to the way the Forth command line interpreter inserts      \G that due to the way the Forth command line interpreter inserts
     \G newlines, the preferred way to use @code{cr} is at the start      \G newlines, the preferred way to use @code{cr} is at the start
     \G of a piece of text; e.g., @code{cr ." hello, world"}.      \G of a piece of text; e.g., @code{cr ." hello, world"}.
   : (cr) ( -- )
     newline type ;      newline type ;
   ' (cr) IS cr
   
 : space ( -- ) \ core  : space ( -- ) \ core
   \G Display one space.    \G Display one space.
Removed from v.1.30  
changed lines
  Added in v.1.31

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>