version 1.14, 2006/12/17 15:38:26
|
version 1.15, 2006/12/17 16:18:09
|
Line 74 wordset STRING
|
Line 74 wordset STRING
|
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 |
|
|