P2 Taqoz V2.8: Include for SD-files
Christof Eb.
Posts: 1,441
in Forth
Hi,
like so many things in Forth here is a solution so simple, that it might be too trivial to post. But perhaps it might come handy?
The parent-file contains
include
The child must end with
endInclude
to go back to the parent.
(Tested with version _BOOT_P2.BIX in Taqoz.zip in https://sourceforge.net/projects/tachyon-
forth/files/TAQOZ/binaries/ . )
Have Fun! Christof
long incDepth incDepth ~
pre include \ <filename>
incDepth ++
filesect @ >L
_fread @ >L
[C] FOPEN
@FILE OPEN-SECTOR
;
: endInclude \ resume to the including file
incDepth @ 0exit
incDepth --
L> _fread !
L> filesect !
get$ drop \ drop the file name
;
include test2.fth
." Welcome back from test1.fth"
{
\ test2.fth
." Hello from test2!"
endInclude
}
Comments
I like trivial Christof , whenever you have these thoughts put it out there I will sit and read all you have to tell, ty.