This commit is contained in:
radical_honesty on #flashsupport 2023-01-13 12:53:22 -08:00 committed by dupa dup
parent 510acda9e8
commit bf91966b98

View File

@ -8,7 +8,7 @@ s {
switch -- $f { switch -- $f {
0 { 0 {
switch -- $c { switch -- $c {
\003 {set f 1;set b "\003"} \003 {lappend a $c; set f 1;set b \003}
\002 {lappend e [list $i \002]} \002 {lappend e [list $i \002]}
\037 {lappend e [list $i \037]} \037 {lappend e [list $i \037]}
\026 {lappend e [list $i \026]} \026 {lappend e [list $i \026]}
@ -18,13 +18,13 @@ s {
} }
1 { 1 {
switch -regexp -- $c { switch -regexp -- $c {
\d {append b $c;incr f} \\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }
2 { 2 {
switch -regexp -- $c { switch -regexp -- $c {
\d {append b $c;incr f} \\d {append b $c;incr f}
, {append b $c;set f 4} , {append b $c;set f 4}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
@ -37,13 +37,13 @@ s {
} }
4 { 4 {
switch -regexp -- $c { switch -regexp -- $c {
\d {append b $c;incr f} \\d {append b $c;incr f}
default {lappend e [list $i $b];lappend a $c;incr i;set f 0} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }
5 { 5 {
switch -regexp -- $c { switch -regexp -- $c {
\d {append b $c;lappend e [list $i $b];set f 0} \\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} default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
} }
} }