Diff for /gforth/kernel/require.fs between versions 1.25 and 1.30

version 1.25, 2003/01/20 22:16:04 version 1.30, 2006/01/31 17:08:07
Line 1 Line 1
 \ require.fs  \ require.fs
   
 \ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 74  create image-included-files 1 , A, ( poi Line 74  create image-included-files 1 , A, ( poi
   
 has? new-input [IF]  has? new-input [IF]
 : included1 ( i*x file-id c-addr u -- j*x ) \ gforth  : included1 ( i*x file-id c-addr u -- j*x ) \ gforth
     \G Include the file file-id with the name given by @var{c-addr u}.  \G Include the file file-id with the name given by @var{c-addr u}.
     save-mem 2dup add-included-file ( file-id )      save-mem 2dup add-included-file
     ['] include-file2 catch      includefilename 2@ 2>r 2dup includefilename 2!
     throw ;      ['] read-loop execute-parsing-named-file
       2r> includefilename 2! ;
 [ELSE]  [ELSE]
 : included1 ( i*x file-id c-addr u -- j*x ) \ gforth  : included1 ( i*x file-id c-addr u -- j*x ) \ gforth
 \G Include the file file-id with the name given by @var{c-addr u}.  \G Include the file file-id with the name given by @var{c-addr u}.
     loadfilename 2@ 2>r      save-mem 2dup loadfilename>r
     save-mem 2dup loadfilename 2!      includefilename 2@ 2>r 2dup includefilename 2!
     add-included-file ( file-id )      add-included-file ( file-id )
     ['] include-file2 catch      ['] include-file2 catch
     2r> loadfilename 2!      2r> includefilename 2! r>loadfilename
     throw ;      throw ;
 [THEN]  [THEN]
   
Line 94  has? new-input [IF] Line 95  has? new-input [IF]
     \G @var{c-addr u}.      \G @var{c-addr u}.
     open-fpath-file throw included1 ;      open-fpath-file throw included1 ;
   
 : required ( i*x addr u -- j*x ) \ gforth  : required ( i*x addr u -- i*x ) \ gforth
     \G @code{include-file} the file with the name given by @var{addr      \G @code{include-file} the file with the name given by @var{addr
     \G u}, if it is not @code{included} (or @code{required})      \G u}, if it is not @code{included} (or @code{required})
     \G already. Currently this works by comparing the name of the file      \G already. Currently this works by comparing the name of the file

Removed from v.1.25  
changed lines
  Added in v.1.30


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