Posted to tcl by oldlaptop at Fri Jun 17 18:18:36 GMT 2022view pretty

eltclsh > package require tdbc::postgres
1.1.3
eltclsh > tdbc::postgres::connection create db
::db
eltclsh > db allrows { create table foo(id integer generated by default as identity, p boolean) }
eltclsh > db columns foo
id {name id type integer precision 32 scale 0 nullable 0} p {name p nullable 1}
eltclsh > dict exists [dict get [db columns foo] p] type ;# deviation: shouldn't the key exist?
0
eltclsh >