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
}