version 1.13, 2005/12/31 15:46:07
|
version 1.15, 2006/12/17 16:18:09
|
Line 52 vocabulary ans-report-words ans-report-w
|
Line 52 vocabulary ans-report-words ans-report-w
|
wordlist constant wordsets wordsets set-current |
wordlist constant wordsets wordsets set-current |
create CORE 0 , 0 0 2, |
create CORE 0 , 0 0 2, |
wordset CORE-EXT |
wordset CORE-EXT |
|
wordset CORE-EXT-obsolescent |
wordset BLOCK |
wordset BLOCK |
wordset BLOCK-EXT |
wordset BLOCK-EXT |
wordset DOUBLE |
wordset DOUBLE |
Line 72 wordset SEARCH-EXT
|
Line 73 wordset SEARCH-EXT
|
wordset STRING |
wordset STRING |
wordset TOOLS |
wordset TOOLS |
wordset TOOLS-EXT |
wordset TOOLS-EXT |
|
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 |
|
|