version 1.9, 1999/12/03 18:49:52
|
version 1.10, 2000/07/01 07:59:10
|
Line 124 create image-included-files 1 , A, ( po
|
Line 124 create image-included-files 1 , A, ( po
|
string, |
string, |
needsrcs^ @ ! ; |
needsrcs^ @ ! ; |
|
|
: .modules |
: .included ( -- ) \ gforth |
|
\G list the names of the files that have been @code{included} |
cr |
cr |
needs^ @ |
needs^ @ |
BEGIN dup |
BEGIN dup |
Line 147 create image-included-files 1 , A, ( po
|
Line 148 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@ ; |
|
|
: .modules |
: .included ( -- ) \ gforth |
|
\G list the names of the files that have been @code{included} |
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 ; |
|
|