Evaluated eval [wget https://dpaste.com/GKWSV7XME.txt]
This commit is contained in:
parent
a168a48563
commit
d4b00068ac
@ -9,10 +9,10 @@ s {
|
|||||||
0 {
|
0 {
|
||||||
switch -- $c {
|
switch -- $c {
|
||||||
\003 {set f 1;set b \003}
|
\003 {set f 1;set b \003}
|
||||||
\002 {lappend e [list $i \002]}
|
\002 {lappend a $c; lappend e [list $i \002]}
|
||||||
\037 {lappend e [list $i \037]}
|
\037 {lappend a $c; lappend e [list $i \037]}
|
||||||
\026 {lappend e [list $i \026]}
|
\026 {lappend a $c; lappend e [list $i \026]}
|
||||||
\017 {lappend e [list $i \017]}
|
\017 {lappend a $c; lappend e [list $i \017]}
|
||||||
default {lappend a $c;incr i}
|
default {lappend a $c;incr i}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user