fileprint

[Michail Maksimov]

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 ;

[Mark Cave-Ayland]

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.