1#         $NetBSD: procs,v 1.4 2019/05/09 07:59:49 mrg Exp $
2
3define procs
4          set $i = 0
5
6          while ($i < 2)
7                    if ($i == 0)
8                              set $p = allproc.lh_first
9                    end
10                    if ($p)
11                              printf "            proc   pid     flag stat nlwps            lwp  comm\n"
12                    end
13                    while ($p)
14                              printf "%16lx %5d %8x %4x %5d %16lx %s\n", \
15                                        $p, $p->p_pid, \
16                                        $p->p_flag, $p->p_stat, $p->p_nlwps, $p->p_lwps.lh_first, \
17                                        (char *) $p->p_comm
18                              set $p = $p->p_list.le_next
19                    end
20                    set $i++
21          end
22end
23document procs
24list all processes.
25displays struct proc *, pid, flags, status, nlwps, first lwp addr
26and command name.
27end
28