sys/gdbscripts/lwps

   1 #       $NetBSD: lwps,v 1.1 2008/02/20 20:56:35 ad Exp $
   2
   3 define 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_sibling.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
  30 end