string:replace()

Author: Michal-Martinek

std/ds/strings.mx

@@ -93,6 +93,18 @@
 		%seg:store(%this, %array:size)
 	}
 
+	; this, from: char, to: char ->
+	; replace every occurence of from with to
+	%void_method{ replace, 3, 0,
+		%array:foreach{
+			%seg:load(%arg, 1)
+			%if {%seg:dest(0, lmeqr), ; this[idx] == from
+				%seg:load(%arg, 2)
+				%seg:store(%dest, 0)
+			}
+		}
+	}
+
 	; this -> (stdout)
 	%void_method{ string_print, 1, 0,
 		%array:foreach {

tests/std-strings.mx

@@ -140,7 +140,30 @@
 	outc '\n'
 	%reprString(0)
 	%reprString(1)
+	outc '\n'
+
+	;; replace ---------------
+	%clearString(0)
+	%if_else {ld %MANUAL_TEST,
+		%addChar(0, '$')
+		%addChar(0, '6')
+		%addChar(0, '7')
+		%addChar(0, '$')
+		%addChar(0, '{')
+		%addChar(0, '$')
+		%addChar(0, 'Z')
+		%addChar(0, '}')
+		%addChar(0, '$')
+	,
+		%seg:push(%local, 0)
+		%call(read_line)
+	}
+	%seg:push(%local, 0)
+	%stack:push('$')
+	%stack:push('#')
+	%call(replace)
 
+	%reprString(0)
 }
 
 %call(main)

tests/std-strings.txt

@@ -1,6 +1,6 @@
 :returncode 0
 
-:stdout 192
+:stdout 204
 "" -> ""
 " " -> ""
 ^"
@@ -15,8 +15,11 @@ F: 2050 2055 2060
 2048: 3 1 2071 2 8 3 1 2065
 2056: 0 4 3 1 2081 3 4
 "A"""
+"#67#{#Z}#"
 
-:stdin 8
+:stdin 19
 AB DEFG
+$67${$Z}$
+