1# $NetBSD: devs,v 1.2 2019/05/09 07:59:49 mrg Exp $ 2 3define devs 4 set $i = 0 5 6 while ($i < 2) 7 if ($i == 0) 8 set $d = alldevs.tqh_first 9 end 10 if ($d) 11 printf " device_t parent private dv_xname\n" 12 end 13 while ($d) 14 printf "%16lx %16lx %16lx %s\n", \ 15 $d, $d->dv_parent, $d->dv_private, $d->dv_xname 16 set $d = $d->dv_list.tqe_next 17 end 18 set $i++ 19 end 20end 21document devs 22dump a list of all devices known on the system with their name, 23and these pointers: this device, parent device, device private. 24end 25