1*69506806Sgwr# $NetBSD: pgrpdump,v 1.2 1997/02/12 23:35:08 gwr Exp $ 2*69506806Sgwr 348faabf3Sgwr# @(#)pgrpdump 8.1 (Berkeley) 6/10/93 448faabf3Sgwr 548faabf3Sgwrdefine allpgrps 648faabf3Sgwr set $lim = pidhashmask + 1 748faabf3Sgwr set $i = 0 848faabf3Sgwr while ($i < $lim) 948faabf3Sgwr if (pgrphash[$i]) 1048faabf3Sgwr printf "--- pgrphash[%d] ---\n", $i 1148faabf3Sgwr pgrpchain pgrphash[$i] 1248faabf3Sgwr end 1348faabf3Sgwr set $i++ 1448faabf3Sgwr end 1548faabf3Sgwrend 1648faabf3Sgwr 1748faabf3Sgwrdefine pgrpchain 1848faabf3Sgwr set $pgrp = (struct pgrp *)$arg0 1948faabf3Sgwr while ($pgrp) 2048faabf3Sgwr print *$pgrp 2148faabf3Sgwr set $pgrp = $pgrp->pg_hforw 2248faabf3Sgwr end 2348faabf3Sgwrend 24