Posted to tcl by stu at Tue Aug 09 18:07:46 GMT 2022view pretty
return -code {*}[expr { $subcommand eq "list" ? [llength $args] == 0 ? [list ok [dict keys $pkgconfig]] : [list error "wrong # args: should be \"[namespace current]::pkgconfig list\""] : $subcommand eq "get" ? [llength $args] == 1 ? [dict exists $pkgconfig [set key [lindex $args 0]]] ? [list ok [dict get $pkgconfig $key]] : [list error "key \"$key\" not known"] : [list error "wrong # args: should be \"[namespace current]::pkgconfig get key\""] : [list uh oh] }]