procs revision 1.3 
1#	$NetBSD: procs,v 1.3 2019/05/06 02:41:02 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
23