1define xps 2 3 set $p = allproc 4 5 printf " proc pid flag st wchan comm\n" 6 while ($p) 7 printf "%#10x %5d %8x %2x %#10x %s", $p, $p->p_pid, \ 8 $p->p_flag, $p->p_stat, $p->p_wchan, \ 9 (char *) $p->p_comm 10 if ($p->p_wmesg) 11 printf " (%s)", $p->p_wmesg 12 end 13 printf "\n" 14 set $p = $p->p_nxt 15 end 16end 17