Add dbgr-srcbuf-info-describe(). And revise dbgr-cmdbuf-info-describe.

diff --git a/dbgr/common/buffer/command.el b/dbgr/common/buffer/command.el
index 88955b6952b00455efbd3fd9a271137c279ed2aa..e621d751c03d6925de45af8bf04708d6b4841273 100644 (file)
--- a/dbgr/common/buffer/command.el
+++ b/dbgr/common/buffer/command.el
@@ -1,5 +1,5 @@
 ;;; process-command buffer things
-;;; Copyright (C) 2010, 2011 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2010, 2011, 2012 Rocky Bernstein <rocky@gnu.org>
 
 (require 'load-relative)
 (require-relative-list
@@ -37,7 +37,7 @@
 
 (defstruct dbgr-cmdbuf-info
   "The debugger object/structure specific to a process buffer."
-  in-srcbuf?           ;; If true, selected window be the source buffer.
+  in-srcbuf?           ;; If true, selected window should be the source buffer.
                       ;; Otherwise, the command buffer?
   debugger-name        ;; Name of debugger
   frame-switch?        ;; Should the selected window be the source buffer or
@@ -87,6 +87,10 @@
 (dbgr-struct-field-setter "dbgr-cmdbuf-info" "in-debugger?")
 
 (defun dbgr-cmdbuf-info-describe (&optional buffer)
+  "Display dbgr-cmdcbuf-info fields of BUFFER.
+BUFFER is either a debugger command or source buffer. If BUFFER is not given
+the current buffer is used as a starting point.
+Information is put in an internal buffer called *Describe*."
   (interactive "")
   (setq buffer (dbgr-get-cmdbuf buffer))
   (if buffer
@@ -95,28 +99,30 @@
              (cmdbuf-name (buffer-name)))
          (switch-to-buffer (get-buffer-create "*Describe*"))
          (delete-region (point-min) (point-max))
-         (insert (format "cmdbuf-info for %s\n" cmdbuf-name))
-         (insert (format "Debugger-name: %s\n" 
-                         (dbgr-cmdbuf-info-debugger-name info)))
-         (insert (format "Selected window should contain source?: %s\n" 
-                         (dbgr-cmdbuf-info-in-srcbuf? info)))
-         (insert (format "Command-line args: %s\n" 
-                         (dbgr-cmdbuf-info-cmd-args info)))
-         (insert (format "Source should go into shortkey?: %s\n"
-                         (dbgr-cmdbuf-info-src-shortkey? info)))
-         (insert (format "Breakpoint list: %s\n"
-                         (dbgr-cmdbuf-info-bp-list info)))
-         (insert (format "Remap table for debugger commands: %s\n"
-                         (dbgr-cmdbuf-info-cmd-hash info)))
-         (insert (format "Source buffers seen: %s\n"
-                         (dbgr-cmdbuf-info-srcbuf-list info)))
-         (insert (format "Backtrace buffer: %s\n"
-                         (dbgr-cmdbuf-info-bt-buf info)))
-         (insert (format "In debugger?: %s\n"
-                         (dbgr-cmdbuf-info-in-debugger? info)))
-         )
+         (mapc 'insert
+               (list 
+                (format "dbgr-cmdbuf-info for %s\n\n" cmdbuf-name)
+                (format "Debugger name (debugger-name): %s\n" 
+                        (dbgr-cmdbuf-info-debugger-name info))
+                (format "Selected window should contain source? (in-srcbuf?): %s\n" 
+                        (dbgr-cmdbuf-info-in-srcbuf? info))
+                (format "Command-line args (cmd-args): %s\n" 
+                        (dbgr-cmdbuf-info-cmd-args info))
+                (format "Source should go into short-key mode? (src-shortkey?): %s\n"
+                        (dbgr-cmdbuf-info-src-shortkey? info))
+                (format "Breakpoint list (bp-list): %s\n"
+                        (dbgr-cmdbuf-info-bp-list info))
+                (format "Remap table for debugger commands: %s\n"
+                        (dbgr-cmdbuf-info-cmd-hash info))
+                (format "Source buffers seen (srcbuf-list): %s\n"
+                        (dbgr-cmdbuf-info-srcbuf-list info))
+                (format "Backtrace buffer (bt): %s\n"
+                        (dbgr-cmdbuf-info-bt-buf info))
+                (format "In debugger? (in-debugger?): %s\n"
+                        (dbgr-cmdbuf-info-in-debugger? info))
+                )))
        )
-    (message "Buffer %s is not a debugger buffer; nothing done."
+    (message "Buffer %s is not a debugger source or command buffer; nothing done."
             (or buffer (current-buffer)))
     )
   )

diff --git a/dbgr/common/buffer/source.el b/dbgr/common/buffer/source.el
index a231575eabfbe4fc6be98ca47fc040bc0124a70a..3e5057bdca0aaf3548a76b759138401aa5a07b86 100644 (file)
--- a/dbgr/common/buffer/source.el
+++ b/dbgr/common/buffer/source.el
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2010 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2010, 2012 Rocky Bernstein <rocky@gnu.org>
 ;;; source-code buffer code
 (eval-when-compile 
   (require 'cl)
@@ -41,6 +41,47 @@ to be debugged."
                        ;; to this buffer. Each item is (brkpt-name . marker)
   ;; 
 )
+
+(declare-function dbgr-get-srcbuf(&optional opt-buffer opt-loc))
+
+(defun dbgr-srcbuf-info-describe (&optional buffer)
+  "Display dbgr-srcbuf-info fields of BUFFER.
+BUFFER is either a debugger command or source buffer. If BUFFER is not given
+the current buffer is used as a starting point.
+Information is put in an internal buffer called *Describe*."
+  (interactive "")
+  (setq buffer (dbgr-get-srcbuf buffer))
+  (if buffer
+      (with-current-buffer buffer
+       (let ((info dbgr-srcbuf-info)
+             (srcbuf-name (buffer-name)))
+         (switch-to-buffer (get-buffer-create "*Describe*"))
+         (delete-region (point-min) (point-max))
+         (mapc 'insert
+               (list 
+                (format "dbgr-srcbuf-info for %s\n\n" srcbuf-name)
+                (format "Debugger name (debugger-name): %s\n" 
+                        (dbgr-srcbuf-info-debugger-name info))
+                (format "Command-line args (cmd-args): %s\n" 
+                        (dbgr-srcbuf-info-cmd-args info))
+                (format "Command process buffer (cmdproc): %s\n" 
+                        (dbgr-srcbuf-info-cmdproc info))
+                (format "Current debugger position (cur-pos): %s\n"
+                        (dbgr-srcbuf-info-cur-pos info))
+                (format "Was source previously in short-key mode? (short-key?): %s\n"
+                        (dbgr-srcbuf-info-short-key? info))
+
+                (format "Was source previously read only? (was-read-only): %s\n"
+                        (dbgr-srcbuf-info-was-read-only? info))
+
+                )))
+       )
+    (message "Buffer %s is not a debugger buffer; nothing done."
+            (or buffer (current-buffer)))
+    )
+  )
+
+
 (defalias 'dbgr-srcbuf-info? 'dbgr-srcbuf-p)
 
 ;; FIXME: figure out how to put in a loop.

diff --git a/dbgr/common/core.el b/dbgr/common/core.el
index 6bf36d630d69476293051a4a9276ceb718ebd333..f06a4278e087ce2d20d2c13ff8c7c1bc37b3978e 100644 (file)
--- a/dbgr/common/core.el
+++ b/dbgr/common/core.el
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2010, 2011 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2010, 2011, 2012 Rocky Bernstein <rocky@gnu.org>
 ; (require 'term)
 (if (< emacs-major-version 23)
     (error

diff --git a/dbgr/common/shortkey.el b/dbgr/common/shortkey.el
index 88689a2f4d61f7b036bfb713a216db1bb7434db8..75695a722c133728136b951de396e7d97aedb47e 100644 (file)
--- a/dbgr/common/shortkey.el
+++ b/dbgr/common/shortkey.el
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2010, 2011 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2010, 2011, 2012 Rocky Bernstein <rocky@gnu.org>
 (require 'load-relative)
 (require-relative-list '("custom" "key" "menu") "dbgr-")
 (require-relative-list '("buffer/helper") "dbgr-buffer-")