[OpenBIOS] 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 ;




-- 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.openbios.org/pipermail/openbios/attachments/20120619/691f5143/attachment.html>