[gforth] / gforth / kernel / io.fs  

gforth: gforth/kernel/io.fs

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

version 1.1, Wed May 21 20:40:15 1997 UTC version 1.2, Sun Jul 6 16:09:55 1997 UTC
Line 18 
Line 18 
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
   \ Output                                               13feb93py
   
   has-os [IF]
   0 Value outfile-id ( -- file-id ) \ gforth
   
   : (type) ( c-addr u -- ) \ gforth
       outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
   ;
   
   : (emit) ( c -- ) \ gforth
       outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
   ;
   [THEN]
   
   Defer type ( c-addr u -- ) \ core
   ' (type) IS Type
   
   Defer emit ( c -- ) \ core
   ' (Emit) IS Emit
   
   Defer key ( -- c ) \ core
   ' (key) IS key
   
   : (.")     "lit count type ;
   : (S")     "lit count ;
   
 \ Input                                                13feb93py  \ Input                                                13feb93py
   
 07 constant #bell ( -- c ) \ gforth  07 constant #bell ( -- c ) \ gforth
Line 59 
Line 85 
   
 [THEN]  [THEN]
   
 \ Output                                               13feb93py  
   
 has-os [IF]  
 0 Value outfile-id ( -- file-id ) \ gforth  
   
 : (type) ( c-addr u -- ) \ gforth  
     outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?  
 ;  
   
 : (emit) ( c -- ) \ gforth  
     outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?  
 ;  
 [THEN]  
   
 Defer type ( c-addr u -- ) \ core  
 ' (type) IS Type  
   
 Defer emit ( c -- ) \ core  
 ' (Emit) IS Emit  
   
 Defer key ( -- c ) \ core  
 ' (key) IS key  
   
 : (.")     "lit count type ;  
 : (S")     "lit count ;  
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help