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