Posted to tcl by Poor Yorick at Tue Mar 08 13:41:04 GMT 2022view pretty

package require sqlite3
sqlite3 db
db eval {
	create table t1 (
		c1 text
	)
}
set value [binary format H* f09f9299]
puts [::tcl::unsupported::representation $value]
db eval {
	insert into t1 values ('f09f9299')
}
puts [db eval {select typeof(c1) from t1}]
puts [db eval {select typeof(c1) from t1 where c1 = $value}]