usr/src/sys/scripts/pgrpdump

#       @(#)pgrpdump    8.1 (Berkeley) %G%

define allpgrps
        set $lim = pidhashmask + 1
        set $i = 0
        while ($i < $lim)
                if (pgrphash[$i])
                        printf "--- pgrphash[%d] ---\n", $i
                        pgrpchain pgrphash[$i]
                end
                set $i++
        end
end

define pgrpchain
        set $pgrp = (struct pgrp *)$arg0
        while ($pgrp)
                print *$pgrp
                set $pgrp = $pgrp->pg_hforw
        end
end