Mercurial > emacs

changeset 48293:3a409a9620a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-find-file): Set up GDB tool bar. (gud-menu-map): New commands: run, goto. Enable some commands for gdba. (gud-query-cmdline): Pass default directory to gdba. (gdb): Defune gud-goto and gud-run. (gud-gdb-complete-command): Maybe use gdba-complete-filter. (gud-mode): Set up local tool bar. (gud-display-line): For gdba, call gdb-display-source-buffer. (gud-basic-call): For gdba, maybe delete the current prompt. (gud-tool-bar-map): New variable. (gud-read-address): Correction.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 14 Nov 2002 01:56:58 +0000
parents 27d9e4538750
children 284b6e04edbe
files lisp/gud.el
diffstat 1 files changed, 62 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gud.el	Thu Nov 14 01:53:27 2002 +0000
+++ b/lisp/gud.el	Thu Nov 14 01:56:58 2002 +0000
@@ -94,22 +94,29 @@
     (when buf
       ;; Copy `gud-minor-mode' to the found buffer to turn on the menu.
       (with-current-buffer buf
-	(set (make-local-variable 'gud-minor-mode) minor-mode))
+	(set (make-local-variable 'gud-minor-mode) minor-mode)
+	(set (make-local-variable 'tool-bar-map) gud-tool-bar-map))
       buf)))
 
 (easy-mmode-defmap gud-menu-map
   '(([refresh]	"Refresh" . gud-refresh)
+    ([run]	menu-item "Run" gud-run
+			:enable (memq gud-minor-mode '(gdba gdb)))
+    ([goto]	menu-item "Continue to selection" gud-goto
+			:enable (memq gud-minor-mode '(gdba gdb)))
     ([remove]	"Remove Breakpoint" . gud-remove)
     ([tbreak]	menu-item "Temporary Breakpoint" gud-tbreak
-			:enable (memq gud-minor-mode '(gdb sdb xdb)))
+			:enable (memq gud-minor-mode '(gdba gdb sdb xdb)))
     ([break]	"Set Breakpoint" . gud-break)
     ([up]	menu-item "Up Stack" gud-up
-			:enable (memq gud-minor-mode '(gdb dbx xdb jdb)))
+			:enable (memq gud-minor-mode '(gdba gdb dbx xdb jdb)))
     ([down]	menu-item "Down Stack" gud-down
-			:enable (memq gud-minor-mode '(gdb dbx xdb jdb)))
+			:enable (memq gud-minor-mode '(gdba gdb dbx xdb jdb)))
     ([print]	"Print Expression" . gud-print)
+    ([display]	menu-item "Display Expression" gud-display
+			:enable (eq gud-minor-mode 'gdba))
     ([finish]	menu-item "Finish Function" gud-finish
-			:enable (memq gud-minor-mode '(gdb xdb jdb)))
+			:enable (memq gud-minor-mode '(gdba gdb xdb jdb)))
     ([stepi]	"Step Instruction" . gud-stepi)
     ([step]	"Step Line" . gud-step)
     ([next]	"Next Line" . gud-next)
@@ -386,7 +393,7 @@
      (format "Run %s (like this): " minor-mode)
      (or (car-safe (symbol-value hist-sym))
 	 (concat (or cmd-name (symbol-name minor-mode))
-		 " "
+		 " " default-directory
 		 (or init
 		     (let ((file nil))
 		       (dolist (f (directory-files default-directory) file)
@@ -422,6 +429,8 @@
   (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
   (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
   (gud-def gud-print  "print %e"     "\C-p" "Evaluate C expression at point.")
+  (gud-def gud-goto  "until %l"     "\C-u" "Continue up to current line.")
+  (gud-def gud-run    "run"	     nil    "Run the program.")
 
   (local-set-key "\C-i" 'gud-gdb-complete-command)
   (local-set-key [menu-bar debug tbreak] '("Temporary Breakpoint" . gud-tbreak))
@@ -464,7 +473,9 @@
     (setq gud-gdb-complete-break (match-beginning 2)
 	  command-word (substring command gud-gdb-complete-break))
     ;; Temporarily install our filter function.
-    (let ((gud-marker-filter 'gud-gdb-complete-filter))
+    (let ((gud-marker-filter (if (eq gud-minor-mode 'gdba)
+				 'gdba-complete-filter
+			       'gud-gdb-complete-filter)))
       ;; Issue the command to GDB.
       (gud-basic-call (concat "complete " command))
       (setq gud-gdb-complete-in-progress t
@@ -2208,6 +2219,7 @@
   (setq mode-line-process '(":%s"))
   (define-key (current-local-map) "\C-c\C-l" 'gud-refresh)
   (set (make-local-variable 'gud-last-frame) nil)
+  (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
   (make-local-variable 'comint-prompt-regexp)
   ;; Don't put repeated commands in command history many times.
   (set (make-local-variable 'comint-input-ignoredups) t)
@@ -2231,7 +2243,6 @@
 (defun gud-common-init (command-line massage-args marker-filter &optional find-file)
   (let* ((words (split-string command-line))
 	 (program (car words))
-	 (dir default-directory)
 	 ;; Extract the file name from WORDS
 	 ;; and put t in its place.
 	 ;; Later on we will put the modified file name arg back there.
@@ -2255,7 +2266,6 @@
 		      file-subst)))
 	 (filepart (and file-word (concat "-" (file-name-nondirectory file)))))
     (pop-to-buffer (concat "*gud" filepart "*"))
-    (setq default-directory dir)
     ;; Set default-directory to the file's directory.
     (and file-word
 	 gud-chdir-before-run
@@ -2424,7 +2434,9 @@
 		(set-buffer gud-comint-buffer))
 	    (gud-find-file true-file)))
 	 (window (and buffer (or (get-buffer-window buffer)
-				 (display-buffer buffer))))
+				 (if (eq gud-minor-mode 'gdba)
+				     (gdb-display-source-buffer buffer)
+				   (display-buffer buffer)))))
 	 (pos))
     (if buffer
 	(progn
@@ -2494,22 +2506,23 @@
 
 (defun gud-read-address ()
   "Return a string containing the core-address found in the buffer at point."
-  (save-excursion
-    (let ((pt (point)) found begin)
-      (setq found (if (search-backward "0x" (- pt 7) t) (point)))
-      (cond
-       (found (forward-char 2)
-	      (buffer-substring found
-				(progn (re-search-forward "[^0-9a-f]")
-				       (forward-char -1)
-				       (point))))
-       (t (setq begin (progn (re-search-backward "[^0-9]")
-			     (forward-char 1)
-			     (point)))
-	  (forward-char 1)
-	  (re-search-forward "[^0-9]")
-	  (forward-char -1)
-	  (buffer-substring begin (point)))))))
+  (save-match-data
+    (save-excursion
+      (let ((pt (point)) found begin)
+	(setq found (if (search-backward "0x" (- pt 7) t) (point)))
+	(cond
+	 (found (forward-char 2)
+		(buffer-substring found
+				  (progn (re-search-forward "[^0-9a-f]")
+					 (forward-char -1)
+					 (point))))
+	 (t (setq begin (progn (re-search-backward "[^0-9]")
+			       (forward-char 1)
+			       (point)))
+	    (forward-char 1)
+	    (re-search-forward "[^0-9]")
+	    (forward-char -1)
+	    (buffer-substring begin (point))))))))
 
 (defun gud-call (fmt &optional arg)
   (let ((msg (gud-format-command fmt arg)))
@@ -2521,8 +2534,7 @@
   "Invoke the debugger COMMAND displaying source in other window."
   (interactive)
   (gud-set-buffer)
-  (let ((command (concat command "\n"))
-	(proc (get-buffer-process gud-comint-buffer)))
+  (let ((proc (get-buffer-process gud-comint-buffer)))
     (or proc (error "Current buffer has no process"))
     ;; Arrange for the current prompt to get deleted.
     (save-excursion
@@ -2532,8 +2544,10 @@
 	(goto-char (process-mark proc))
 	(forward-line 0)
 	(if (looking-at comint-prompt-regexp)
-	    (set-marker gud-delete-prompt-marker (point)))))
-    (process-send-string proc command)))
+	    (set-marker gud-delete-prompt-marker (point)))
+	(if (eq gud-minor-mode 'gdba)
+	    (apply comint-input-sender (list proc command))
+	  (process-send-string proc (concat command "\n")))))))
 
 (defun gud-refresh (&optional arg)
   "Fix up a possibly garbled display, and redraw the arrow."
@@ -2719,6 +2733,23 @@
 	(message "gud-find-class: class for file %s not found in gud-jdb-class-source-alist!" f)
 	nil))))
 
-(provide 'gud)
+(defvar gud-tool-bar-map
+  (if (display-graphic-p)
+      (let ((tool-bar-map (make-sparse-keymap)))
+        (tool-bar-add-item-from-menu 'gud-break "gud-break" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-remove "gud-remove" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-print "gud-print" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-display "gud-display" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-run "gud-run" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-goto "gud-goto" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-cont "gud-cont" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-step "gud-step" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-next "gud-next" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-finish "gud-finish" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-up "gud-up" gud-minor-mode-map)
+        (tool-bar-add-item-from-menu 'gud-down "gud-down" gud-minor-mode-map)
+        tool-bar-map)))
+
+(provide 'mygud)
 
 ;;; gud.el ends here