@verb #3797:"c_info" this none this rxdo #833
@program #3797:"c_info" this none this
{?comm = caller} = args
comm:isa($comm) || raise(E_INVARG)
d = {"Active channels:"}
if (chans = this:ls_chan(comm))
  d = {@d, @this:chan_info(@chans)}
else
  d = {@d, "    (none)"}
endif
return d
.