alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added vlist

Browse Source
This commit is contained in:
Brad Nelson
2021-02-06 15:12:02 -08:00
parent 1a628074ce
commit 84a2ae26b1
2 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/vocabulary.fs
View File

@ -2,3 +2,5 @@
: forth [ current @ ] literal context ! ; : forth [ current @ ] literal context ! ;
: vocabulary ( "name" ) create 0 , current @ 2 cells + , does> cell+ context ! ; : vocabulary ( "name" ) create 0 , current @ 2 cells + , does> cell+ context ! ;
: definitions context @ current ! ; : definitions context @ current ! ;
: vlist 0 context @ @ begin onlines dup see. >link dup 0= if 2drop cr exit then
dup >name nip 0= until 2drop cr ;

11
ueforth/common/vocabulary_tests.fs
View File

@ -7,7 +7,18 @@ e: test-vocabularies
foo test foo test
bar test bar test
foo test foo test
forth definitions
out: AAAA out: AAAA
out: BBBB out: BBBB
out: AAAA out: AAAA
;e ;e
e: test-vlist
vocabulary foo
foo definitions
: pig ; : cow ; : sheep ;
forth definitions
foo vlist
forth definitions
out: sheep cow pig
;e