Diff for /gforth/kernel/require.fs between versions 1.11 and 1.13

version 1.11, 2000/08/17 12:46:59 version 1.13, 2000/09/06 08:47:15
Line 117  create image-included-files  1 , A, ( po Line 117  create image-included-files  1 , A, ( po
     \G @code{include-file} @var{file} only if it is not included already.      \G @code{include-file} @var{file} only if it is not included already.
     name required ;      name required ;
   
 0 [IF]  \ : \I
 : \I  \   here 
   here   \   0 word count
   0 word count  \   string,
   string,  \   needsrcs^ @ ! ;
   needsrcs^ @ ! ;  
   \ : .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}  \   cr
   cr  \   needs^ @
   needs^ @  \   BEGIN               dup 
   BEGIN         dup   \   WHILE               dup cell+ count type cr
   WHILE         dup cell+ count type cr  \               5 spaces
                 5 spaces  \               dup cell+ count + aligned
                 dup cell+ count + aligned  \               @ dup IF count type ELSE drop THEN cr
                 @ dup IF count type ELSE drop THEN cr  \               @
                 @  \   REPEAT
   REPEAT  \   drop ;
   drop ;  
   \ : loadfilename#>str ( n -- adr len )
 : loadfilename#>str ( n -- adr len )  \ \ this converts the filenumber into the string
 \ this converts the filenumber into the string  \   loadfilenamecount @ swap -
   loadfilenamecount @ swap -  \   needs^ @
   needs^ @  \   swap 0 ?DO dup 0= IF LEAVE THEN @ LOOP 
   swap 0 ?DO dup 0= IF LEAVE THEN @ LOOP   \   dup IF cell+ count ELSE drop s" NOT FOUND" THEN ;
   dup IF cell+ count ELSE drop s" NOT FOUND" THEN ;  
 [THEN]  
   
 : loadfilename#>str ( n -- adr len )  : loadfilename#>str ( n -- adr len )
     included-files 2@ drop swap 2* cells + 2@ ;      included-files 2@ drop swap 2* cells + 2@ ;
   
 : .included ( -- ) \ gforth  : .strings ( addr u -- ) \ gforth
     \G list the names of the files that have been @code{included}      \G list the strings from an array of string descriptors at addr
       \G with u entries, one per line.
     included-files 2@ 2* cells bounds ?DO      included-files 2@ 2* cells bounds ?DO
         cr I 2@ type  2 cells +LOOP ;            cr I 2@ type 2 cells +LOOP ;
   
   : .included ( -- ) \ gforth
       \G list the names of the files that have been @code{included}
       included-files 2@ .strings ;
       
 \ contains tools/newrequire.fs  \ contains tools/newrequire.fs
 \ \I $Id$  \ \I $Id$
   

Removed from v.1.11  
changed lines
  Added in v.1.13


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