Em algum lugar no topo, adicione algo como
if {[llength $argv] == 0} {
puts stderr "Usage: $argv0 file"
exit 1
}
Consulte llength(n)
para detalhes sobre o procedimento de comprimento de lista. Para precisamente apenas A
ou B
como o único argumento (uma limitação muito estranha) if
aceita expr(n)
expressões então
if {[llength $argv] != 1} {
puts stderr "Usage: $argv0 (A|B)"
exit 1
}
set firstarg [lindex $argv 0]
if {!($firstarg eq "A" || $firstarg eq "B")} {
puts stderr "Usage: $argv0 (A|B)"
exit 1
}