1 \ @(#) wordslik.fth 98/01/26 1.2
3 \ WORDS.LIKE ( <string> -- , search for words that contain string )
6 \ Enter: WORDS.LIKE EMIT
9 \ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
11 \ The pForth software code is dedicated to the public domain,
12 \ and any third party may reproduce, distribute and modify
13 \ the pForth software code or any derivative works thereof
14 \ without any compensation or license. The pForth software
15 \ code is provided on an "as is" basis without any warranty
16 \ of any kind, including, without limitation, the implied
17 \ warranties of merchantability and fitness for a particular
18 \ purpose and their equivalents under the laws of any jurisdiction.
20 anew task-wordslik.fth
24 : PARTIAL.MATCH.NAME ( $str1 nfa -- flag , is $str1 in nfa ??? )
31 : WORDS.LIKE ( <name> -- , print all words containing substring )
35 prevname dup 0<> \ get previous name in dictionary
37 2dup partial.match.name