[Syntax-highlighting] Added UNFINISHED support for lookaround

1 files changed, 32 insertions, 0 deletions

diff --git a/awk-edits/#strings.awk b/awk-edits/#strings.awk
index a34757e..cc469e8 100644
--- a/awk-edits/#strings.awk
+++ b/awk-edits/#strings.awk
@@ -43,3 +43,35 @@ function gesub(regexp, exregexp, replacement, target) {
 
 	return result target;
 }
+
+# glsub(lbregexp, regexp, largexp, replacement [, empt, target])
+# Aka global sub with non-capturing look-around (lookbehind and lookahead)
+function glsub(lbregexp, regexp, laregexp, replacement, empt, target) {
+	if (!length(target)) {
+		target = $0;
+	}
+	if (empt >= 2) {
+		RSTART = 1;
+		RLENGTH = 0;
+		empt -= 2;
+	}
+
+	result = "";
+	subst = "";
+	while ((RSTART == 1 && RLENGTH == 0 && length(result) == 0) || match(target, lbregexp)) {
+		result = result substr(target, 1, RSTART + RLENGTH - 1);
+		target = substr(target, RSTART + RLENGTH);
+		match(target, regexp);
+		if (RSTART == 1) {
+			subst = substr(target, RSTART, RLENGTH);
+			target = substr(target, RSTART + RLENGTH);
+			match(target, laregexp);
+			if ((empt == 1 && length(target) == 0) || RSTART == 1) {
+				sub(/.*/, replacement, subst);
+			}
+			result = result subst;
+		}
+	}
+
+	return result target;
+}