Posted to tcl by hypnotoad at Wed Oct 11 14:27:07 GMT 2017view pretty
basra:irm seandeelywoods$ cat lol.tcl
package require sqlite3
sqlite3 db {}
set a [expr {1}]
set b 1
puts [db eval {select $a=1}]
puts [db eval {select $b='1'}]
basra:irm seandeelywoods$ tclsh lol.tcl
1
1
basra:irm seandeelywoods$ tclsh
% source lol.tcl
1
0
%