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