crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix some bugs in autopsy

Browse source 
FossilOrigin-Name: b550719db948ea92469f021fe813a2b1aacbdf46d4ba146220b75028948118bf
This commit is contained in:
crc 2017-10-25 12:06:01 +00:00
parent ac12c7dcec
commit 1f3541bfd3
1 changed files with 9 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
example/Autopsy.forth
View file

@ -1,20 +1,7 @@
# example|Autopsy
# Autopsy
Autopsy is a debugging tool for Retro.
Declare module constant (prevents reloading with multiple `import` statements)
````
:example|Autopsy ;
````
Import dependencies:
````
'FormattedStringOutput import:module
'Strings import:module
````
----
This module provides words to aid in debugging your code.
@ -24,13 +11,13 @@ This module provides words to aid in debugging your code.
here #128 allot 'NEEDLE const
---reveal---
:words<in-namespace> (s-)
dup '\n%s_contains:\n putsf
dup '\n%s_contains:\n s:with-format puts
NEEDLE over s:length n:inc copy
&Dictionary
repeat
fetch 0;
dup d:name #0 NEEDLE s:length s:substr
NEEDLE s:eq? [ dup d:name NEEDLE s:length + '__%s\n putsf ] if
NEEDLE s:eq? [ dup d:name NEEDLE s:length + '__%s\n s:with-format puts ] if
again ;
}}
````
@ -43,7 +30,7 @@ A simple binary dump is pretty easy:
````
:dump (an-)
[ fetch-next over '%n_%n\n putsf ] times drop ;
[ fetch-next over '%n_%n\n s:with-format puts ] times drop ;
````
This can be useful, but the output doesn't help a lot. Consider an example:
@ -130,3 +117,8 @@ And tying together:
putn nl (opcode)
] times drop ;
````
~~~
:test #2 #2 + ;
&test here over - disassemble
~~~