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] }
proc as_dict {query} { uplevel 1 db eval [list $query res { lappend results [dict remove [array get res] *] }] return [uplevel set results] }