#       $NetBSD: devs,v 1.2 2019/05/09 07:59:49 mrg Exp $

define devs
       set $i = 0

       while ($i < 2)
               if ($i == 0)
                       set $d = alldevs.tqh_first
               end
               if ($d)
                       printf "        device_t            parent           private  dv_xname\n"
               end
               while ($d)
                       printf "%16lx  %16lx  %16lx  %s\n", \
                               $d, $d->dv_parent, $d->dv_private, $d->dv_xname
                       set $d = $d->dv_list.tqe_next
               end
               set $i++
       end
end
document devs
dump a list of all devices known on the system with their name,
and these pointers: this device, parent device, device private.
end