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

  1. package require sqlite3
  2. sqlite3 db
  3. db eval {
  4. create table t1 (
  5. c1 text
  6. )
  7. }
  8. set value [binary format H* f09f9299]
  9. puts [::tcl::unsupported::representation $value]
  10. db eval {
  11. insert into t1 values ('f09f9299')
  12. }
  13. puts [db eval {select typeof(c1) from t1}]
  14. puts [db eval {select typeof(c1) from t1 where c1 = $value}]
  15.