version 1.24, 2003/01/20 19:17:59
|
version 1.25, 2003/01/20 22:16:04
|
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 151 has? new-input [IF]
|
Line 148 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 ; |