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