sys/gdbscripts/msgbuf

   1 # $NetBSD: msgbuf,v 1.4 2005/12/11 12:24:29 christos Exp $
   2 #
   3 # Copyright (c) 2000 The NetBSD Foundation, Inc.
   4 # All rights reserved.
   5 #
   6 # This code is derived from software contributed to The NetBSD Foundation
   7 # by John A. Hawkinson
   8 #
   9 # Redistribution and use in source and binary forms, with or without
  10 # modification, are permitted provided that the following conditions
  11 # are met:
  12 # 1. Redistributions of source code must retain the above copyright
  13 #    notice, this list of conditions and the following disclaimer.
  14 # 2. Redistributions in binary form must reproduce the above copyright
  15 #    notice, this list of conditions and the following disclaimer in the
  16 #    documentation and/or other materials provided with the distribution.
  17 #
  18 # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  19 # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  20 # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  21 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  22 # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  23 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  24 # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  25 # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  26 # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  27 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  28 # POSSIBILITY OF SUCH DAMAGE.
  29 #
  30
  31 define msgbuf
  32   set $bufx=*(long*)((char *)msgbufp+1*sizeof(long))
  33   set $bufr=*(long*)((char *)msgbufp+2*sizeof(long))
  34   set $bufs=*(long*)((char *)msgbufp+3*sizeof(long))
  35
  36   printf "msgbufp %#x: bufx %d bufr %d bufs %d\n", msgbufp, $bufx, $bufr, $bufs
  37
  38 # Dump the unread section
  39 #  set $l = $bufx - $bufr
  40 #  if ($l < 0)
  41 #    set $l = $bufs - $bufr
  42 #  end
  43 #  set $p = (long)msgbufp+4*sizeof(long)+$bufr
  44 #  set print elements $l
  45 #  x/s $p
  46
  47 # Dump the whole thing
  48 # Presume each section is null-terminated. Possibly bad presumption?
  49   set $p = (long)msgbufp+4*sizeof(long)+$bufx
  50   set $l = $bufs - $bufx
  51   set print elements $l
  52   printf "Dumping %#x length %d\n", $p, $l
  53   # XXX (unsupported by gdb): printf "%.*s\n", $l, $p
  54   printf "%s\n", $p
  55   set $p = (long)msgbufp+4*sizeof(long)
  56   set $l = $bufx
  57   set print elements $l
  58   printf "Dumping %#x length %d\n", $p, $l
  59   # XXX (unsupported by gdb): printf "%.*s\n\n", $l, $p
  60   printf "%s\n\n", $p
  61 end
  62
  63 document msgbuf
  64   Dump the kernel message buffer.
  65 end