1# @(#)pgrpdump 8.1 (Berkeley) 06/10/93 2 3define allpgrps 4 set $lim = pidhashmask + 1 5 set $i = 0 6 while ($i < $lim) 7 if (pgrphash[$i]) 8 printf "--- pgrphash[%d] ---\n", $i 9 pgrpchain pgrphash[$i] 10 end 11 set $i++ 12 end 13end 14 15define pgrpchain 16 set $pgrp = (struct pgrp *)$arg0 17 while ($pgrp) 18 print *$pgrp 19 set $pgrp = $pgrp->pg_hforw 20 end 21end 22