version 1.12, 2000/08/26 13:29:49
|
version 1.13, 2000/09/06 08:47:15
|
Line 146 create image-included-files 1 , A, ( po
|
Line 146 create image-included-files 1 , A, ( po
|
: 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$ |
|
|