[src/trunk]: src/sys/gdbscripts Add dmesg functionality.

[christos <christos%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/5707e41d3a44
branches:  trunk
changeset: 930817:5707e41d3a44
user:      christos <christos%NetBSD.org@localhost>
date:      Tue Apr 14 13:58:11 2020 +0000

description:
Add dmesg functionality.

diffstat:

 sys/gdbscripts/dmesg |  47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 47 insertions(+), 0 deletions(-)

diffs (51 lines):

diff -r 543a0352d1a4 -r 5707e41d3a44 sys/gdbscripts/dmesg
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/sys/gdbscripts/dmesg      Tue Apr 14 13:58:11 2020 +0000
@@ -0,0 +1,47 @@
+#      $NetBSD: dmesg,v 1.1 2020/04/14 13:58:11 christos Exp $
+
+define dmesg
+       set $mbp = msgbufp
+       set $bufdata = &$mbp->msg_bufc[0]
+       set $print = $mbp->msg_bufs
+       set $newl = 0
+       set $skip = 0
+       set $i = -1 
+       set $p = $bufdata + $mbp->msg_bufx - 1
+
+       while ($i < $mbp->msg_bufs)
+               set $i = $i + 1
+               set $p = $p + 1
+               if ($p == $bufdata + $mbp->msg_bufs)
+                       set $p = $bufdata
+               end
+               if ($i < $mbp->msg_bufs - $print)
+                       loop_continue
+               end
+               set $c = $p[0]
+               # Skip syslog sequences
+               if ($skip)
+                       if ($c == '>')
+                               set $newl = 0
+                               set $skip = 0
+                       end
+                       loop_continue
+               end
+               if ($newl && $c == '<')
+                       set $skip = 1
+                       loop_continue
+               end
+               if ($c == '\0')
+                       loop_continue
+               end
+               set $newl = $c == '\n'
+               printf "%c", $c
+       end
+       if (!$newl)
+               printf "\n"
+       end
+end
+
+document dmesg
+print the message buffer
+end