retroforth/package/dict-words-listing.forth

39 lines
1.1 KiB
Text
Raw Normal View History

# Listing Words in the Dictionary
The basic word listing is provided by `d:words`.
~~~
:d:words (-) [ d:name s:put sp ] d:for-each ;
~~~
This isn't very useful though: a raw list of names is difficult
to read through, and may be intimidating to users. Kiyoshi Yoneda
has implemented some variations that are much more useful.
The first of these is is a variant of `d:words` which displays
words containing a specific substring. It's useful to see words
in a specific namespace, e.g., by doing `'s: d:words-with`, or
words that likely display something: `':put d:words-with`.
~~~
:d:words-with (s-)
here s:copy
[ d:name dup here
(put-match s:contains-string? [ s:put sp ] [ drop ] choose )
] d:for-each ;
~~~
This does have a drawback if you want words in a namespace as
it does not care where in the name the substring is found. To
deal with this, `d:words-beginning-with` is provided.
~~~
{{
:display-if-left (s-)
dup here s:begins-with? [ s:put sp ] [ drop ] choose ;
---reveal---
:d:words-beginning-with (s-)
here s:copy [ d:name display-if-left ] d:for-each ;
}}
~~~