Evaluated rename split_on_formatting split_on_formatting_FUCKYOU

2023-01-08 17:03:06 -08:00
parent 870c1f218d
commit 2131e7500c
2 changed files with 2 additions and 0 deletions
--- a/procs/ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
+++ b/procs/ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
@ -0,0 +1 @@
+str {set ret [list]; while {[string length $str]} {regexp {^(((\d{0,2})(,(\d{0,2}))?)?||||)?([^]*)(.*)} $str {} f {} {} {} {} t r; if {$f eq ""} {set f }; lappend ret $f $t; set str $r}; return $ret}
				`@ -0,0 +1 @@`
				`str {set ret [list]; while {[string length $str]} {regexp {^(((\d{0,2})(,(\d{0,2}))?)?\|\|\|\|)?([^])(.)} $str {} f {} {} {} {} t r; if {$f eq ""} {set f }; lappend ret $f $t; set str $r}; return $ret}`