version 1.11, 2000/08/17 12:46:59
|
version 1.12, 2000/08/26 13:29:49
|
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@ ; |