6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-12-22 21:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Include vf-file.fth in v4th.com and use sfileint.fth in tests.

Browse Source
This commit is contained in:
Philip Zembrod 2024-11-09 17:10:56 +01:00
parent 268d291b8d
commit 7c826f085f
3 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
8080/CPM/Makefile
View File

@ -104,7 +104,7 @@ $(patsubst %, $(cpmfilesdir)/%, kernel.com \
$(cpmfilesdir)/v4th.com: \
$(patsubst %, $(cpmfilesdir)/%, tc-base.com \
target.fb v4th.fth vf-core.fth \
target.fb v4th.fth vf-core.fth vf-file.fth \
vf-io.fth vf-bufs.fth vf-sys.fth vf-end.fth vf-bdos.fth) \
Makefile | emu
rm -f $(runcpmdir)/A/0/V4TH.COM $(runcpmdir)/A/0/LOGFILE.TXT $@
@ -168,42 +168,42 @@ test-kernel.log: \
dos2unix -n $(runcpmdir)/logfile.txt $@
test-min.log: \
$(patsubst %, $(cpmfilesdir)/%, v4th.com fileint.fb \
include.fb log2file.fb \
$(patsubst %, $(cpmfilesdir)/%, v4th.com sfileint.fth \
log2file.fb \
ans-shim.fth prelim.fth tester.fth core.fr test-min.fth) \
| emu
./emulator/run-in-runcpm.sh \
"v4th fileint.fb" \
"1 load onlyforth" \
"include include.fb" \
"v4th sfileint.fth" \
"include-isfile" \
"onlyforth" \
"include test-min.fth" \
"bye" \
"exit"
dos2unix -n $(runcpmdir)/logfile.txt $@
test-std.log: \
$(patsubst %, $(cpmfilesdir)/%, v4th.com fileint.fb \
include.fb log2file.fb core.fr) \
$(patsubst %, $(cpmfilesdir)/%, v4th.com sfileint.fth \
log2file.fb core.fr) \
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fth)) \
| emu
./emulator/run-in-runcpm.sh \
"v4th fileint.fb" \
"1 load onlyforth" \
"include include.fb" \
"v4th sfileint.fth" \
"include-isfile" \
"onlyforth" \
"include test-std.fth" \
"bye" \
"exit"
dos2unix -n $(runcpmdir)/logfile.txt $@
test-blk.log: \
$(patsubst %, $(cpmfilesdir)/%, v4th.com fileint.fb \
include.fb log2file.fb core.fr) \
$(patsubst %, $(cpmfilesdir)/%, v4th.com sfileint.fth \
log2file.fb core.fr) \
$(patsubst tests/%, $(cpmfilesdir)/%, $(wildcard tests/*.fth) \
tests/empty.fb) | emu
./emulator/run-in-runcpm.sh \
"v4th fileint.fb" \
"1 load onlyforth" \
"include include.fb" \
"v4th sfileint.fth" \
"include-isfile" \
"onlyforth" \
"include test-blk.fth" \
"bye" \
"exit"

1
8080/CPM/src/v4th.fth
View File

@ -8,6 +8,7 @@ Target definitions $100 here!
include vf-bufs.fth
include vf-sys.fth
include vf-bdos.fth
include vf-file.fth
include vf-end.fth
cr .( unresolved: ) .unresolved ( ' .blk is .status )

2
8080/CPM/src/vf-io.fth
View File

@ -45,7 +45,7 @@ Defer .status ' noop Is .status
Defer prompt ' (prompt Is prompt
: (quit BEGIN prompt query interpret REPEAT ;
: (quit clear-tibstash BEGIN prompt query interpret REPEAT ;
Defer 'quit ' (quit Is 'quit
: quit r0 @ rp! level off [compile] [ 'quit ;