From fe2d6e25d1ebffd8129e59013a268de4f5d118b4 Mon Sep 17 00:00:00 2001 From: Philip Zembrod Date: Sun, 16 Jan 2022 13:43:38 +0100 Subject: [PATCH] Add a tweak to log2file.fb such that it can also be included as log2file.fth --- 8086/msdos/tests/log2file.fb | 2 +- 8086/msdos/tests/log2file.fth | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/8086/msdos/tests/log2file.fb b/8086/msdos/tests/log2file.fb index 052e86a..50cdd7d 100644 --- a/8086/msdos/tests/log2file.fb +++ b/8086/msdos/tests/log2file.fb @@ -1 +1 @@ -\ logging to a text file phz 03jan22 \ load screen phz 04jan22 1 2 +thru \ log-type log-emit log-cr alsologtofile phz 04jan22 context @ dos also context ! \ vocabulary log dos also log definitions file logfile variable logfcb : log-type 2dup (type ds@ -rot logfcb @ lfputs ; : log-emit dup (emit logfcb @ fputc ; : log-cr (cr #cr logfcb @ fputc #lf logfcb @ fputc ; Output: alsologtofile log-emit log-cr log-type (del (page (at (at? ; \ logopen logclose phz 11jan22 : logopen ( -- ) isfile push logfile make isfile@ dup freset logfcb ! alsologtofile ; : logclose ( -- ) display logfcb @ fclose ; \ No newline at end of file +\ logging to a text file phz 03jan22 \ load screen phz 16jan22 : (blk blk @ 0= IF ascii ) parse 2drop THEN ; (blk 1 2 +thru ( ) \ log-type log-emit log-cr alsologtofile phz 04jan22 context @ dos also context ! \ vocabulary log dos also log definitions file logfile variable logfcb : log-type 2dup (type ds@ -rot logfcb @ lfputs ; : log-emit dup (emit logfcb @ fputc ; : log-cr (cr #cr logfcb @ fputc #lf logfcb @ fputc ; Output: alsologtofile log-emit log-cr log-type (del (page (at (at? ; \ logopen logclose phz 11jan22 : logopen ( -- ) isfile push logfile make isfile@ dup freset logfcb ! alsologtofile ; : logclose ( -- ) display logfcb @ fclose ; \ No newline at end of file diff --git a/8086/msdos/tests/log2file.fth b/8086/msdos/tests/log2file.fth index 968255d..8f246c7 100644 --- a/8086/msdos/tests/log2file.fth +++ b/8086/msdos/tests/log2file.fth @@ -20,11 +20,11 @@ \ *** Block No. 1, Hexblock 1 -\ load screen phz 04jan22 - - 1 2 +thru +\ load screen phz 16jan22 + : (blk blk @ 0= IF ascii ) parse 2drop THEN ; + (blk 1 2 +thru ( )