Tcl defines :
In all case 1 or 0 is stored. These tokens are case insensitive, which means Yes, yes, and YES are the same.
If in the condition clause of an IF statement, TCL has :
/> set var 1
1
/> string is true $var
1
/> set var on
on
/> string is true $var
1
/> set var yes
yes
/> string is true $var
1
/> set var y
y
/> string is true $var
1
/> set var 0
0
/> string is false $var
1
/> set var off
off
/> string is false $var
1
/> set var no
no
/> string is false $var
1
/> set var n
n
/> string is false $var
1
/> set var false
false
/> string is false $var
1
If in the condition clause of an IF statement, TCL has :
/> set var -1
-1
/> if {$var} then {puts "true"} else {puts "false"}
true