1# $NetBSD: lwps,v 1.1 2008/02/20 20:56:35 ad Exp $ 2 3define lwps 4 set $i = 0 5 6 while ($i < 2) 7 if ($i == 0) 8 set $p = allproc.lh_first 9 end 10 if ($p) 11 printf "\t lwp pid lid flag wchan\n" 12 end 13 while ($p) 14 set $l = $p->p_lwps.lh_first 15 set $j = 0 16 while ($j < $p->p_nlwps) 17 printf "%16lx %5d %5d %8x %16lx", \ 18 $l, $p->p_pid, $l->l_lid, $l->l_flag, $l->l_wchan 19 if ($l->l_wmesg) 20 printf " (%s)", (char *)$l->l_wmesg 21 end 22 set $l = $l->l_list.le_next 23 printf "\n" 24 set $j++ 25 end 26 set $p = $p->p_list.le_next 27 end 28 set $i++ 29 end 30end 31