Evaluated eval [wget https://dpaste.com/HS975PZ3C.txt]
This commit is contained in:
parent
510acda9e8
commit
bf91966b98
@ -8,7 +8,7 @@ s {
|
||||
switch -- $f {
|
||||
0 {
|
||||
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]}
|
||||
\037 {lappend e [list $i \037]}
|
||||
\026 {lappend e [list $i \026]}
|
||||
@ -18,13 +18,13 @@ s {
|
||||
}
|
||||
1 {
|
||||
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}
|
||||
}
|
||||
}
|
||||
2 {
|
||||
switch -regexp -- $c {
|
||||
\d {append b $c;incr f}
|
||||
\\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}
|
||||
}
|
||||
@ -37,13 +37,13 @@ s {
|
||||
}
|
||||
4 {
|
||||
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}
|
||||
}
|
||||
}
|
||||
5 {
|
||||
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}
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user