[OpenBIOS] fileprint
Mark Cave-Ayland
mark.cave-ayland at ilande.co.uk
Wed Jun 20 00:13:27 CEST 2012
On 19/06/12 19:18, Michail Maksimov wrote:
> i not found file viewer
> suggest:
>
> : sourceprint source type cr
> ['] interpret >data token@ >r
> interpret_save is interpret
> exit? if 777 throw then
> r> is interpret ;
>
> : fileprint ( adr len -- )
> ['] interpret >data token@ to interpret_save
> ['] sourceprint is interpret
> ['] included catch
> interpret_save is interpret
> dup 777 = if drop 0 then
> throw ;
>
> : fp ( "name" -- )
> safe-parse-word fileprint ;
I must admit I'm still not the best at Forth, but does this patch simply
print out the name of the current word during execution? Note that
OpenBIOS Forth also has an in-built debugger which you may find useful
(see Documentation/README.debugger).
HTH,
Mark.
More information about the OpenBIOS
mailing list