Ignorieren von "-" in Tcl

Question

Ich schreibe einen Code, um etw zu tun, wenn er "-" in einer Zeichenfolge erkennt. wenn ich das tue:

switch [string index $code $j] { 
    "-" { set mem($ptr) [expr $mem($ptr) - 1] ; } 

Aber Tcl interpretiert dies als es ist "-" als switch Option prefix:

bad option "-": must be -exact, -glob, -regexp, -command procname or -- 

Ich habe versucht, zu ersetzen "-" mit einem anderen Charakter:

regsub -all "-" $code "m" code 

Aber es ist dasselbe:

bad switch "-": must be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or -- 

Es kommt sogar vor, wenn ich \u2d verwenden:

regsub -all \u2d $code "m" code 
switch $code \u2d {puts "hi" ;} 

Answer 1

Das ist ein bekanntes Problem ist, und zu lösen, dass die besondere Option -- eingeführt wurde. Es bedeutet Ende der Schalter, das heißt nach -- es keine anderen Schalter sein, das nächste Token als Daten behandeln ...

So wird Ihr Code funktioniert, wenn Sie nur

switch -- [string index $code $j] { 
    "-" {set mem($ptr) [expr $mem($ptr) - 1]} 
}