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