[gforth] / gforth / kernel / io.fs  

gforth: gforth/kernel/io.fs

Diff for /gforth/kernel/io.fs between version 1.2 and 1.3

version 1.2, Sun Jul 6 16:09:55 1997 UTC version 1.3, Sat Sep 13 12:05:52 1997 UTC
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 
Line 55 
 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] ]
     ;      ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help