Posted to tcl by bairui at Fri Feb 01 00:31:12 GMT 2019view raw

  1. proc as_dict {query} {
  2. uplevel 1 db eval [list $query res {
  3. lappend results [dict remove [array get res] *]
  4. }]
  5. return [uplevel set results]
  6. }
  7.