Diff for /gforth/kernel/require.fs between versions 1.24 and 1.26

version 1.24, 2003/01/20 19:17:59 version 1.26, 2003/01/22 10:59:55
Line 23 Line 23
 create included-files 0 , 0 , ( pointer to and count of included files )  create included-files 0 , 0 , ( pointer to and count of included files )
 \ note: these names must not contain a "/" or "\"; otherwise a part of  \ note: these names must not contain a "/" or "\"; otherwise a part of
 \ that name might be used when expanding "./" (see expandtopic).  \ that name might be used when expanding "./" (see expandtopic).
 here ," *a file*" dup c@ swap 1 + swap  here ," *somewhere*" dup c@ swap 1 + swap
 here ," *a block*" dup c@ swap 1 + swap  , A, here 2 cells -
 here ," *evaluated string*" dup c@ swap 1 + swap  create image-included-files 1 , A, ( pointer to and count of included files )
 here ," *the terminal*" dup c@ swap 1 + swap  
 , A, , A, , A, , A, here 8 cells -  
 create image-included-files 4 , A, ( pointer to and count of included files )  
 \ included-files points to ALLOCATEd space, while image-included-files  \ included-files points to ALLOCATEd space, while image-included-files
 \ points to ALLOTed objects, so it survives a save-system  \ points to ALLOTed objects, so it survives a save-system
   
Line 84  has? new-input [IF] Line 81  has? new-input [IF]
 [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!  
     add-included-file ( file-id )      add-included-file ( file-id )
     ['] include-file2 catch      ['] include-file2 catch
     2r> loadfilename 2!      r>loadfilename
     throw ;      throw ;
 [THEN]  [THEN]
   
Line 151  has? new-input [IF] Line 147  has? new-input [IF]
   
 : .included ( -- ) \ gforth  : .included ( -- ) \ gforth
     \G list the names of the files that have been @code{included}      \G list the names of the files that have been @code{included}
     included-files 2@ .strings ;      included-files 2@ 2 cells under+ 1- .strings ;

Removed from v.1.24  
changed lines
  Added in v.1.26


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