Evaluated eval [wget https://dpaste.com/5FS85HBAX.txt]

2023-01-08 17:06:40 -08:00
parent 5c9e4f2660
commit 7f8aedc682
2 changed files with 12 additions and 0 deletions
--- a/procs/a07fa5b8c3bdcc395bb9e27240b191b0f767a294
+++ b/procs/a07fa5b8c3bdcc395bb9e27240b191b0f767a294
@ -0,0 +1,11 @@
+string {
+    set result [list]
+    while {[string length $string]} {
+      regexp {^(\003((\d{0,2})(,(\d{0,2}))?)?|\002|\037|\026|\017)?([^\003\002\037\026\017]*)(.*)} \
+        $string {} format {} {} {} {} text remainder
+      if {$format eq ""} {set format \017}
+      lappend result $format $text
+      set string $remainder
+    }
+    return $result
+  }