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

example: d:used-in no longer leaves garbage on stack, add section on limitations, correct a typo

Browse source 
FossilOrigin-Name: 74c0fe41403c86a19cba5a88bc3627196cb50b89c98587e3515aa0fafecc52b0
This commit is contained in:
crc 2019-04-17 11:58:17 +00:00
parent 47e8c5a586
commit 8932429b2b
1 changed files with 21 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
example/DictionaryUsedIn.forth
View file

@ -41,8 +41,8 @@ The name of `w1` may be found by `'a1 d:lookup d:name`
in which `a1` is `w1`'s address. in which `a1` is `w1`'s address.
Variables `Used` contains `a0` and `In` contains `a1`. Variables `Used` contains `a0` and `In` contains `a1`.
Make sure the word's class is `class:word` and not something els, Make sure the word's class is `class:word` and not something
like `class:primitive`, `class:data`, etc. else, like `class:primitive`, `class:data`, etc.
~~~ ~~~
'Used var (a0 'Used var (a0
@ -124,7 +124,7 @@ Final product.
:used-in (a-) :used-in (a-)
used used
[ dup class:word? [ dup class:word?
[ in uses? [ @In d:name s:put sp ] if ] [ drop ] choose [ in uses? [ @In d:name s:put sp ] if drop ] [ drop ] choose
] d:for-each drop ; ] d:for-each drop ;
:d:used-in (s-) d:lookup used-in ; :d:used-in (s-) d:lookup used-in ;
~~~ ~~~
@ -139,3 +139,21 @@ Hide unnecessary words.
'LICA.... d:lookup d:link fetch 'LICA.... d:lookup d:link fetch
'd:used-in d:lookup d:link store 'd:used-in d:lookup d:link store
~~~~ ~~~~
# Limitations
This only searches visible words. Any headers that are hidden
from the dictionary are no longer visible. So:
:foo dup * + ;
{{
:test #2 #3 foo ;
----reveal--
:bar test n:put nl ;
}}
'foo d:used-in
This will not see the use of `foo` in `test` as the header for
`test` is not visible after the closing `}}`.