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 \ Permission to use, copy, modify, and/or distribute this
12 \ software for any purpose with or without fee is hereby granted.
14 \ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
15 \ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
16 \ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
17 \ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
18 \ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
19 \ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
20 \ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
21 \ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
23 anew task-wordslik.fth
27 : PARTIAL.MATCH.NAME ( $str1 nfa -- flag , is $str1 in nfa ??? )
34 : WORDS.LIKE ( <name> -- , print all words containing substring )
38 prevname dup 0<> \ get previous name in dictionary
40 2dup partial.match.name