1# xps 2# kernel ps 3# 4# @(#)xps 8.3 (Berkeley) 08/22/94 5 6define xps 7 8 set $i = 0 9 10 while ($i < 2) 11 12 if ($i == 0) 13 set $p = allproc.lh_first 14 end 15 if ($i == 1) 16 set $p = zombproc.lh_first 17 end 18 19 printf " proc pid flag st wchan comm\n" 20 while ($p) 21 printf "%#10x %5d %8x %2x %#10x %s", $p, $p->p_pid, \ 22 $p->p_flag, $p->p_stat, $p->p_wchan, \ 23 (char *) $p->p_comm 24 if ($p->p_wmesg) 25 printf " (%s)", $p->p_wmesg 26 end 27 printf "\n" 28 set $p = $p->p_list.le_next 29 end 30 set $i++ 31 end 32end 33