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

add example of generating an array of defined namespaces

Browse source 
FossilOrigin-Name: d235718eeec6ad108f7b11f910b73eeeccab8dae1a0ef9f4c9e3a472b98f9e9b
This commit is contained in:
crc 2019-08-23 20:32:38 +00:00
parent 980211218e
commit cd9f9de76c
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
example/namespaces.retro Normal file
View file

@ -0,0 +1,33 @@
This is a little set of words to create an array with all of the
currently defined namespaces in a RETRO image.
Three words will be exposed.
Namespace Array, holds the namespace strings
namespaces:identify Rebuild the array
namespaces:put Display the namespaces
~~~
'Namespaces d:create #513 allot
{{
:has-namespace? dup $: s:contains-char? ;
:get-namespace $: s:split nip ;
:known? dup &Namespaces a:contains-string? ;
:add s:keep buffer:add &Namespaces v:inc ;
:process get-namespace known? &drop &add choose ;
---reveal---
:namespaces:identify
[ &Namespaces buffer:set #0 buffer:add
[ d:name has-namespace? &process &drop choose ] d:for-each
] buffer:preserve ;
:namespaces:put &Namespaces [ s:put sp ] a:for-each ;
}}
~~~
A quick test:
```
namespaces:identify
namespaces:put nl
```