Data commit

Task/Multisplit/Tcl/multisplit-1.tcl

@@ -0,0 +1,5 @@
+proc simplemultisplit {text sep} {
+    set map {}; foreach s $sep {lappend map $s "\uffff"}
+    return [split [string map $map $text] "\uffff"]
+}
+puts [simplemultisplit "a!===b=!=c" {"==" "!=" "="}]

Task/Multisplit/Tcl/multisplit-2.tcl

@@ -0,0 +1,14 @@
+proc multisplit {text sep} {
+    foreach s $sep {lappend sr [regsub -all {\W} $s {\\&}]}
+    set sepRE [join $sr "|"]
+    set pieces {}
+    set match {}
+    set start 0
+    while {[regexp -indices -start $start -- $sepRE $text found]} {
+	lassign $found x y
+	lappend pieces [string range $text $start [expr {$x-1}]]
+	lappend match [lsearch -exact $sep [string range $text {*}$found]] $x
+	set start [expr {$y + 1}]
+    }
+    return [list [lappend pieces [string range $text $start end]] $match]
+}

Task/Multisplit/Tcl/multisplit-3.tcl

@@ -0,0 +1,5 @@
+set input "a!===b=!=c"
+set matchers {"==" "!=" "="}
+lassign [multisplit $input $matchers] substrings matchinfo
+puts $substrings
+puts $matchinfo