Posted to tcl by oldlaptop at Fri Jun 17 18:18:36 GMT 2022view raw
- 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 >