wrath/shaniqua-smeggdrop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Evaluated rename csplit csplit_fuckyou

Browse Source
This commit is contained in:
radical_honesty on #flashsupport
2023-01-13 11:30:43 -08:00
committed by dupa dup
parent 3611d1ceeb
commit c43404514c
2 changed files with 54 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4 Normal file
View File

@ -0,0 +1,53 @@
s {
set f 0;
set r [list];
set a [list];
set e [list];
set i 0;
foreach c [split $s ""] {
switch -- $f {
0 {
switch -- $c {
{set f 1;set b }
{lappend e [list $i ]}
{lappend e [list $i ]}
{lappend e [list $i ]}
{lappend e [list $i ]}
default {lappend a $c;incr i}
}
}
1 {
switch -regexp -- $c {
\\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
2 {
switch -regexp -- $c {
\\d {append b $c;incr f}
, {append b $c;set f 4}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
3 {
switch -- $c {
, {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
4 {
switch -regexp -- $c {
\\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
5 {
switch -regexp -- $c {
\\d {append b $c;lappend e [list $i $b];set f 0}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
}
}
}
}
return [list $a $e]
}