Отрицания в TCL

Question

мне не удалось выяснить, как свести на нет булевых в TCL ... Я пробовал:

set x true 
puts !$x #prints '!true' 
puts ![$x] #prints ! 
puts [!$x] #prints no event matches "true" 
puts !{$x} #prints !{true} 
puts {!$x} #prints !$x 

Answer 1

Логические «не» является арифметическим оператором, так что вам нужно expr

% set x true 
true 
% puts [expr {!$x}] 
0 
% puts [expr {!!$x}] 
1