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