11.2Sgwr#	$NetBSD: pgrpdump,v 1.2 1997/02/12 23:35:08 gwr Exp $
21.2Sgwr
31.1Sgwr#	@(#)pgrpdump	8.1 (Berkeley) 6/10/93
41.1Sgwr
51.1Sgwrdefine allpgrps
61.1Sgwr	set $lim = pidhashmask + 1
71.1Sgwr	set $i = 0
81.1Sgwr	while ($i < $lim)
91.1Sgwr		if (pgrphash[$i])
101.1Sgwr			printf "--- pgrphash[%d] ---\n", $i
111.1Sgwr			pgrpchain pgrphash[$i]
121.1Sgwr		end
131.1Sgwr		set $i++
141.1Sgwr	end
151.1Sgwrend
161.1Sgwr
171.1Sgwrdefine pgrpchain
181.1Sgwr	set $pgrp = (struct pgrp *)$arg0
191.1Sgwr	while ($pgrp)
201.1Sgwr		print *$pgrp
211.1Sgwr		set $pgrp = $pgrp->pg_hforw
221.1Sgwr	end
231.1Sgwrend
24