9 lines
119 B
Plaintext
9 lines
119 B
Plaintext
|
|
||
|
if {[expr ! [exists -proc escape]]} {
|
||
|
proc escape {str} {
|
||
|
regsub -all -- {"} "$str" "\\\"" str
|
||
|
return $str
|
||
|
}
|
||
|
}
|
||
|
|