mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-08-04 19:49:36 -04:00
24 lines
403 B
Plaintext
24 lines
403 B
Plaintext
# $NetBSD: pgrpdump,v 1.2 1997/02/12 23:35:08 gwr Exp $
|
|
|
|
# @(#)pgrpdump 8.1 (Berkeley) 6/10/93
|
|
|
|
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
|