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