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