git.gag.com Git - debian/pforth/blob - fth/wordslik.fth

   1 \ @(#) wordslik.fth 98/01/26 1.2
   2 \
   3 \ WORDS.LIKE  ( <string> -- , search for words that contain string )
   4 \
   5 \ Enter:   WORDS.LIKE +
   6 \ Enter:   WORDS.LIKE EMIT
   7 \
   8 \ Author: Phil Burk
   9 \ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
  10 \
  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.
  19
  20 anew task-wordslik.fth
  21 decimal
  22
  23
  24 : PARTIAL.MATCH.NAME  ( $str1 nfa  -- flag , is $str1 in nfa ??? )
  25     count $ 1F and
  26     rot count
  27     search
  28     >r 2drop r>
  29 ;
  30
  31 : WORDS.LIKE  ( <name> -- , print all words containing substring )
  32     BL word latest
  33     >newline
  34     BEGIN
  35         prevname dup 0<> \ get previous name in dictionary
  36     WHILE
  37         2dup partial.match.name
  38         IF
  39             dup id. tab
  40             cr?
  41         THEN
  42     REPEAT 2drop
  43     >newline
  44 ;