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

proc as_dict {query} {
  uplevel 1 db eval [list $query res {
    lappend results [dict remove [array get res] *]
  }]
  return [uplevel set results]
}