- if {[catch { elite-unpackcmdr cmdr [read-file $a] } err]} {
- puts stderr "$argv0: couldn't read `$a': $err"
- exit 1
+ set n 0
+ foreach aa $attrs {
+ if {[string match $a $aa]} {
+ incr n
+ puts [format "%-20s %s" $aa [eval \
+ get/[lindex $attr($aa) 0] \
+ [lrange $attr($aa) 1 end] [list $aa]]]
+ }
+ }
+ if {$n} {
+ set acted 1
+ } else {
+ if {[catch { elite-unpackcmdr cmdr [read-file $a] } err]} {
+ puts stderr "$argv0: couldn't read `$a': $err"
+ exit 1
+ }