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