Differences

This shows you the differences between two versions of the page.

--- en:pfw:string_handling [2024-04-17 15:55] – [The idea] willem
+++ en:pfw:string_handling [2024-06-05 22:53] (current) – [Generic Forth] willem
@@ Line 26: / Line 26: @@
 {{https://user-images.githubusercontent.com/11397265/142727480-4cb13037-c118-4d05-9eec-529aeaf23cad.jpg| string usage example}}
-However it more useful to use a construct of a cell containing a byte count followed by that many bytes.
-You should not store a count in a character unless there is a dire need to conserve space.
-Also a string in Chinese is some of the UTF representation is a sequence,
-where an interpretation of a byte is dependant on previous bytes.
-The abstraction presented here work equally well on this kind of data structure.
 ===== Pseudo code =====
@@ Line 84: / Line 80: @@
 : C+!   ( n a -- )      >r  r@ c@ +  r> c! ;    \ Incr. byte with n at a
 : $@    ( s -- c )      count ;                 \ Fetch string
-: $+!   ( c s -- )      >r  tuck  r@ $@ +  swap cmove  r> c+! ; \ Extend string
+: $+!   ( c s -- )      >r  tuck  r@ $@ +  swap move  r> c+! ; \ Extend string
 : $!    ( c s -- )      0 over c!  $+! ;        \ Store string
 : $.    ( c -- )        type ;                  \ Print string
@@ Line 90: / Line 86: @@
 </code>
-The version where the count is stored in a cell is hardly different, but simpler.
+Here is a version where the count is stored in a cell, it is hardly different.
 Note that it uses the non Generic Forth word ''%%@+%%'' you can find an implementation example in
 the [[https://project-forth-works.github.io/well-known-words.txt|well known words]] list.
@@ Line 101: / Line 97: @@
 : $@    ( s -- c )      @+  ;                  \ Fetch string
-: $+!   ( c s -- )      >r  tuck  r@ $@ +  swap cmove  r> +! ; \ Extend string
+: $+!   ( c s -- )      >r  tuck  r@ $@ +  swap move  r> +! ; \ Extend string
 : $!    ( c s -- )      0 over !  $+! ;        \ Store string
 : $.    ( c -- )        type ;                 \ Print string