[gforth] / gforth / kernel / io.fs  

gforth: gforth/kernel/io.fs

Diff for /gforth/kernel/io.fs between version 1.4 and 1.5

version 1.4, Sat May 2 21:29:07 1998 UTC version 1.5, Sun Oct 18 23:16:53 1998 UTC
Line 22 
Line 22 
   
 has? os [IF]  has? os [IF]
 0 Value outfile-id ( -- file-id ) \ gforth  0 Value outfile-id ( -- file-id ) \ gforth
   0 Value infile-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 30 
Line 31 
 : (emit) ( c -- ) \ gforth  : (emit) ( c -- ) \ gforth
     outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?      outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
 ;  ;
   
   : (key) ( -- c ) \ gforth
       infile-id key-file ;
   
   : (key?) ( -- flag ) \ gforth
       infile-id key?-file ;
 [THEN]  [THEN]
   
 [IFUNDEF] (type)  [IFUNDEF] (type)
Line 46 
Line 53 
 Defer key ( -- c ) \ core  Defer key ( -- c ) \ core
 ' (key) IS key  ' (key) IS key
   
   Defer key? ( -- flag ) \ core
   ' (key?) IS key?
   
 : (.")     "lit count type ;  : (.")     "lit count type ;
 : (S")     "lit count ;  : (S")     "lit count ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help