X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..HEAD:/fth/wordslik.fth

diff --git a/fth/wordslik.fth b/fth/wordslik.fth
index ff73c63..b99e3ed 100644
--- a/fth/wordslik.fth
+++ b/fth/wordslik.fth
@@ -1,44 +1,47 @@
-\ @(#) wordslik.fth 98/01/26 1.2
-\
-\ WORDS.LIKE  ( <string> -- , search for words that contain string )
-\
-\ Enter:   WORDS.LIKE +
-\ Enter:   WORDS.LIKE EMIT
-\
-\ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
-\
-\ The pForth software code is dedicated to the public domain,
-\ and any third party may reproduce, distribute and modify
-\ the pForth software code or any derivative works thereof
-\ without any compensation or license.  The pForth software
-\ code is provided on an "as is" basis without any warranty
-\ of any kind, including, without limitation, the implied
-\ warranties of merchantability and fitness for a particular
-\ purpose and their equivalents under the laws of any jurisdiction.
-
-anew task-wordslik.fth
-decimal
-
-
-: PARTIAL.MATCH.NAME  ( $str1 nfa  -- flag , is $str1 in nfa ??? )
-	count $ 1F and
-	rot count
-	search
-	>r 2drop r>
-;
-
-: WORDS.LIKE  ( <name> -- , print all words containing substring )
-	BL word latest
-	>newline
-	BEGIN
-		prevname dup 0<> \ get previous name in dictionary
-	WHILE
-		2dup partial.match.name
-		IF
-			dup id. tab
-			cr?
-		THEN
-	REPEAT 2drop
-	>newline
-;
+\ @(#) wordslik.fth 98/01/26 1.2
+\
+\ WORDS.LIKE  ( <string> -- , search for words that contain string )
+\
+\ Enter:   WORDS.LIKE +
+\ Enter:   WORDS.LIKE EMIT
+\
+\ Author: Phil Burk
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
+\
+\ Permission to use, copy, modify, and/or distribute this
+\ software for any purpose with or without fee is hereby granted.
+\
+\ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+\ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+\ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
+\ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+\ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+\ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+\ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+\ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+anew task-wordslik.fth
+decimal
+
+
+: PARTIAL.MATCH.NAME  ( $str1 nfa  -- flag , is $str1 in nfa ??? )
+    count $ 1F and
+    rot count
+    search
+    >r 2drop r>
+;
+
+: WORDS.LIKE  ( <name> -- , print all words containing substring )
+    BL word latest
+    >newline
+    BEGIN
+        prevname dup 0<> \ get previous name in dictionary
+    WHILE
+        2dup partial.match.name
+        IF
+            dup id. tab
+            cr?
+        THEN
+    REPEAT 2drop
+    >newline
+;