code: purgatorio

Download patch

ref: 63392be12a1a657419af2d2966995428721f18f3
parent: 7643cb226276d64cdc62c4740eed9980d5b9a531
author: henesy <devnull@localhost>
date: Thu Dec 10 09:23:38 EST 2020

string(2): add replace() for string replacement

--- a/appl/lib/string.b
+++ b/appl/lib/string.b
@@ -425,3 +425,73 @@
 		return unquoted(s + "'");
 	return args;
 }
+
+# Replace up to 'max' instances of 's' with 'with' in 'in'
+replace(in, s, with: string, max: int): string {
+	if(max == 0 || s == "") {
+		# Nothing to replace
+		return in;
+	}
+	if(len in < 1) {
+		# No string given
+		return "";
+	}
+	
+	n := 0;
+	
+	# For each rune 'in' the original string
+	for(r0 := 0; r0 < len in ; r0++) {
+		# Try to build 's'	
+		r1: int;
+		
+		substring:
+		for(r1 = 0; r1 < len s; r1++) {
+			if(in[r0 + r1] == s[r1]) {
+				# Match so far
+				continue substring;
+			} else {
+				# No longer matches
+				break substring;
+			}
+		}
+		
+		# We didn't break the loop, this is a match 
+		# String will be [r0 , r0+len(s))
+		if(r1 >= len s) {
+			left, right: string;
+			
+			# Left side
+			case r0 {
+			0 =>
+				# First rune, no left side
+				left = "";
+			* =>
+				left = in[:r0];
+			}
+			
+			# Right side
+			redge := r0 + len s;
+
+			if(redge == len in - 1)
+				# Last rune
+				right = "";
+			else
+				right = in[redge:];
+			
+			# Insert
+			in = left + with + right;
+			
+			# Skip forward to end of replacement string
+			r0 = r0 + (len with - 1);
+			
+			# Tick counts
+			n++;
+			if(n == max && max > 0) {
+				# We hit max and care about the number of replacements
+				return in;
+			}
+		}
+	}
+	
+	return in;
+}
--- a/man/2/string
+++ b/man/2/string
@@ -13,6 +13,7 @@
 prefix:    fn(pre, s: string): int;
 splitl:    fn(s, cl: string): (string, string);
 splitr:    fn(s, cl: string): (string, string);
+replace:   fn(in, s, with: string, max: int): string;
 splitstrl: fn(s, t: string): (string, string);
 splitstrr: fn(s, t: string): (string, string);
 take:      fn(s, cl: string): string;
@@ -110,6 +111,30 @@
 .IR s ,
 the result is
 .RI ( nil, s ).
+
+.PP
+.B Replace
+returns the string
+.I in
+with up to
+.I max
+instances of
+.I s
+removed and replaced by
+.IR with .
+If 
+.I max
+is less than 0, there is no limit to the number of replacements.
+If 
+.I max
+is 0 or 
+.I s
+is
+.IR nil ,
+the string
+.I in
+is returned unchanged. 
+
 .PP
 .B Take
 returns the maximal prefix of string
--- a/module/string.m
+++ b/module/string.m
@@ -20,6 +20,7 @@
 	# in these, the second string is a string to match, not a class
 	splitstrl:	fn(s, t: string): (string, string);
 	splitstrr:	fn(s, t: string): (string, string);
+	replace:	fn(in, s, with: string, max: int): string;
 
 	# is first arg a prefix of second?
 	prefix:		fn(pre, s: string): int;