| wordset TOOLS |
wordset TOOLS |
| wordset TOOLS-EXT |
wordset TOOLS-EXT |
| wordset TOOLS-EXT-obsolescent |
wordset TOOLS-EXT-obsolescent |
| |
|
| |
\ www.forth200x.org CfV extension names |
| |
wordset X:deferred |
| |
wordset X:extension-query |
| |
wordset X:parse-name |
| |
wordset X:defined |
| |
wordset X:required |
| |
wordset X:ekeys |
| |
wordset X:fp-stack |
| |
|
| wordset non-ANS |
wordset non-ANS |
| |
|
| ans-report-words definitions |
ans-report-words definitions |
| |
|
| : answord ( "name wordset pronounciation" -- ) |
: standardword { D: wordname D: wordset -- } |
| \ check the documentaion of an ans word |
|
| name { D: wordname } |
|
| name { D: wordset } |
|
| name { D: pronounciation } |
|
| wordname find-name |
wordname find-name |
| ?dup-if |
?dup-if |
| sp@ cell nextname create drop |
sp@ cell nextname create drop |
| wordset wordsets search-wordlist 0= abort" wordlist unknown" , |
wordset wordsets search-wordlist 0= abort" wordset unknown" , |
| endif ; |
endif ; |
| |
|
| |
: answord ( "name wordset pronounciation" -- ) |
| |
\ check the documentation of an ans word |
| |
parse-name parse-name parse-name 2drop standardword ; |
| |
|
| |
: xword ( "name wordset" ) |
| |
parse-name parse-name standardword ; |
| |
|
| table constant answords answords set-current |
table constant answords answords set-current |
| warnings @ warnings off |
warnings @ warnings off |
| include ./answords.fs |
include ./answords.fs |
| |
include ./xwords.fs |
| warnings ! |
warnings ! |
| ans-report-words definitions |
ans-report-words definitions |
| |
|
