Fix white spaces.

[pforth] / fth / strings.fth

diff --git a/fth/strings.fth b/fth/strings.fth
index dc998ad..c32c538 100644 (file)
--- a/fth/strings.fth
+++ b/fth/strings.fth
@@ -1,97 +1,97 @@
-\ @(#) strings.fth 98/01/26 1.2\r
-\ String support for PForth\r
-\\r
-\ Copyright Phil Burk 1994\r
-\r
-ANEW TASK-STRINGS.FTH\r
-\r
-: -TRAILING  ( c-addr u1 -- c-addr u2 , strip trailing blanks )\r
-       dup 0>\r
-       IF\r
-               BEGIN\r
-                       2dup 1- chars + c@ bl =\r
-                       over 0> and\r
-               WHILE\r
-                       1-\r
-               REPEAT\r
-       THEN\r
-;\r
-\r
-\ Structure of string table\r
-: $ARRAY  (  )\r
-    CREATE  ( #strings #chars_max --  )\r
-        dup ,\r
-        2+ * even-up allot\r
-    DOES>    ( index -- $addr )\r
-        dup @  ( get #chars )\r
-        rot * + cell+\r
-;\r
-\r
-\ Compare two strings\r
-: $= ( $1 $2 -- flag , true if equal )\r
-    -1 -rot\r
-    dup c@ 1+ 0\r
-    DO  dup c@ tolower\r
-        2 pick c@ tolower -\r
-        IF rot drop 0 -rot LEAVE\r
-        THEN\r
-               1+ swap 1+ swap\r
-    LOOP 2drop\r
-;\r
-\r
-: TEXT=  ( addr1 addr2 count -- flag )\r
-    >r -1 -rot\r
-       r> 0\r
-    ?DO  dup c@ tolower\r
-        2 pick c@ tolower -\r
-        IF rot drop 0 -rot LEAVE\r
-        THEN\r
-               1+ swap 1+ swap\r
-    LOOP 2drop\r
-;\r
-\r
-: TEXT=?  ( addr1 count addr2 -- flag , for JForth compatibility )\r
-       swap text=\r
-;\r
-\r
-: $MATCH?  ( $string1 $string2 -- flag , case INsensitive )\r
-       dup c@ 1+ text=\r
-;\r
-\r
-\r
-: INDEX ( $string char -- false | address_char true , search for char in string )\r
-    >r >r 0 r> r>\r
-    over c@ 1+ 1\r
-    DO  over i + c@ over =\r
-        IF  rot drop\r
-            over i + rot rot LEAVE\r
-        THEN\r
-    LOOP 2drop\r
-    ?dup 0= 0=\r
-;\r
-\r
-\r
-: $APPEND.CHAR  ( $string char -- ) \ ugly stack diagram\r
-    over count chars + c!\r
-    dup c@ 1+ swap c!\r
-;\r
-\r
-\ ----------------------------------------------\r
-: ($ROM)  ( index address -- $string )\r
-    ( -- index address )\r
-    swap 0\r
-    ?DO dup c@ 1+ + aligned\r
-    LOOP\r
-;\r
-\r
-: $ROM ( packed array of strings, unalterable )\r
-    CREATE ( <name> -- )\r
-    DOES> ( index -- $string )  ($rom)\r
-;\r
-\r
-: TEXTROM ( packed array of strings, unalterable )\r
-    CREATE ( <name> -- )\r
-    DOES> ( index -- address count )  ($rom) count\r
-;\r
-\r
-\ -----------------------------------------------\r
+\ @(#) strings.fth 98/01/26 1.2
+\ String support for PForth
+\
+\ Copyright Phil Burk 1994
+
+ANEW TASK-STRINGS.FTH
+
+: -TRAILING  ( c-addr u1 -- c-addr u2 , strip trailing blanks )
+    dup 0>
+    IF
+        BEGIN
+            2dup 1- chars + c@ bl =
+            over 0> and
+        WHILE
+            1-
+        REPEAT
+    THEN
+;
+
+\ Structure of string table
+: $ARRAY  (  )
+    CREATE  ( #strings #chars_max --  )
+        dup ,
+        2+ * even-up allot
+    DOES>    ( index -- $addr )
+        dup @  ( get #chars )
+        rot * + cell+
+;
+
+\ Compare two strings
+: $= ( $1 $2 -- flag , true if equal )
+    -1 -rot
+    dup c@ 1+ 0
+    DO  dup c@ tolower
+        2 pick c@ tolower -
+        IF rot drop 0 -rot LEAVE
+        THEN
+        1+ swap 1+ swap
+    LOOP 2drop
+;
+
+: TEXT=  ( addr1 addr2 count -- flag )
+    >r -1 -rot
+    r> 0
+    ?DO  dup c@ tolower
+        2 pick c@ tolower -
+        IF rot drop 0 -rot LEAVE
+        THEN
+        1+ swap 1+ swap
+    LOOP 2drop
+;
+
+: TEXT=?  ( addr1 count addr2 -- flag , for JForth compatibility )
+    swap text=
+;
+
+: $MATCH?  ( $string1 $string2 -- flag , case INsensitive )
+    dup c@ 1+ text=
+;
+
+
+: INDEX ( $string char -- false | address_char true , search for char in string )
+    >r >r 0 r> r>
+    over c@ 1+ 1
+    DO  over i + c@ over =
+        IF  rot drop
+            over i + rot rot LEAVE
+        THEN
+    LOOP 2drop
+    ?dup 0= 0=
+;
+
+
+: $APPEND.CHAR  ( $string char -- ) \ ugly stack diagram
+    over count chars + c!
+    dup c@ 1+ swap c!
+;
+
+\ ----------------------------------------------
+: ($ROM)  ( index address -- $string )
+    ( -- index address )
+    swap 0
+    ?DO dup c@ 1+ + aligned
+    LOOP
+;
+
+: $ROM ( packed array of strings, unalterable )
+    CREATE ( <name> -- )
+    DOES> ( index -- $string )  ($rom)
+;
+
+: TEXTROM ( packed array of strings, unalterable )
+    CREATE ( <name> -- )
+    DOES> ( index -- address count )  ($rom) count
+;
+
+\ -----------------------------------------------