Diff for /gforth/kernel/files.fs between versions 1.3 and 1.8

version 1.3, 1998/04/12 21:49:29 version 1.8, 2000/05/20 14:25:42
Line 1 Line 1
 \ File specifiers                                       11jun93jaw  \ File specifiers                                       11jun93jaw
   
 \ Copyright (C) 1995-1997 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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.
   
 4 Constant w/o ( -- fam ) \ file        w-o  4 Constant w/o ( -- ntype ) \ file      w-o
 2 Constant r/w ( -- fam ) \ file        r-w  2 Constant r/w ( -- ntype ) \ file      r-w
 0 Constant r/o ( -- fam ) \ file        r-o  0 Constant r/o ( -- ntype ) \ file      r-o
   
 : bin ( fam1 -- fam2 ) \ file  : bin ( ntype1 -- ntype2 ) \ file
     1 or ;      1 or ;
   
 \ BIN WRITE-LINE                                        11jun93jaw  \ BIN WRITE-LINE                                        11jun93jaw
Line 32 Line 32
     ?dup IF      ?dup IF
         r> drop EXIT          r> drop EXIT
     THEN      THEN
     #lf r> emit-file ;      newline r> write-file ;
   
 \ include-file                                         07apr93py  \ include-file                                         07apr93py
   
Line 69 Line 69
 : read-loop ( i*x -- j*x )  : read-loop ( i*x -- j*x )
   BEGIN  refill  WHILE  interpret  REPEAT ;    BEGIN  refill  WHILE  interpret  REPEAT ;
   
 : include-file ( i*x fid -- j*x ) \ file  : include-file ( i*x wfileid -- j*x ) \ file
   push-file  loadfile !      \G Interpret (process using the text interpreter) the contents of
   0 loadline ! blk off  ['] read-loop catch      \G the file @var{wfileid}.
   loadfile @ close-file swap 2dup or      push-file  loadfile !
   pop-file  drop throw throw ;      0 loadline ! blk off  ['] read-loop catch
       loadfile @ close-file swap 2dup or
       pop-file  drop throw throw ;
   
 \ additional words only needed if there is file support  \ additional words only needed if there is file support
   

Removed from v.1.3  
changed lines
  Added in v.1.8


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