comparison lisp/gud.el @ 10448:ec596f12f13f

(gud-gdb-find-file): Propagate debug menu to found buffers. (gud-dbx-find-file, gud-xdb-find-file, gud-sdb-find-file, gud-perldb-find-file): Likewise. (gud-menu-map): New variable. (gud-mode): Use gud-menu-map and move the menu-setting outside.

10447:55bc74681031

(defun gud-find-file (file)
  ;; Don't get confused by double slashes in the name that comes from GDB.
  (while (string-match "//+" file)
    (setq file (replace-match "/" t t file)))
  (funcall gud-find-file file))

;; ======================================================================
;; command definition

;; This macro is used below to define some basic debugger interface commands.

	    gud-marker-acc ""))

    output))

(defun gud-gdb-find-file (f)
  (find-file-noselect f))

(defvar gdb-minibuffer-local-map nil
  "Keymap for minibuffer prompting of gdb startup command.")
(if gdb-minibuffer-local-map
    ()

	      (substring gud-marker-acc start)
	    nil)))
  string)

(defun gud-sdb-find-file (f)
  (if gud-sdb-needs-tags
      (find-tag-noselect f)
    (find-file-noselect f)))

;;;###autoload
(defun sdb (command-line)
  "Run sdb on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

			 result (match-beginning 1) (match-end 1)))))))
	  (setq result (substring result 0 (match-beginning 0))))))
    (or result "")))

(defun gud-dbx-find-file (f)
  (find-file-noselect f))

;;;###autoload
(defun dbx (command-line)
  "Run dbx on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

              (if file
                  (setq gud-last-frame (cons file line))))))
    (or result "")))    
               
(defun gud-xdb-find-file (f)
  (let ((realf (gud-xdb-file-name f)))
    (if realf (find-file-noselect realf))))

;;;###autoload
(defun xdb (command-line)
  "Run xdb on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

	    gud-marker-acc ""))

    output))

(defun gud-perldb-find-file (f)
  (find-file-noselect f))

;;;###autoload
(defun perldb (command-line)
  "Run perldb on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

  (setq major-mode 'gud-mode)
  (setq mode-name "Debugger")
  (setq mode-line-process '(":%s"))
  (use-local-map (copy-keymap comint-mode-map))
  (define-key (current-local-map) "\C-c\C-l" 'gud-refresh)
  ;; Keymap definitions for menu bar entries common to all debuggers
  ;; and slots for debugger-dependent ones.  The menu should be made
  ;; to propagate to buffers found by gud-find-file.
  (define-key (current-local-map) [menu-bar debug]
    (cons "Gud" (make-sparse-keymap "Gud")))
  (define-key (current-local-map) [menu-bar debug refresh]
    '("Refresh" . gud-refresh))
  (define-key (current-local-map) [menu-bar debug remove]
    '("Remove breakpoint" . gud-remove))
  (define-key (current-local-map) [menu-bar debug tbreak] ; gdb, sdb and xdb
    nil)
  (define-key (current-local-map) [menu-bar debug break]
    '("Set breakpoint" . gud-break))
  (define-key (current-local-map) [menu-bar debug up] ; gdb, dbx, and xdb
    nil)
  (define-key (current-local-map) [menu-bar debug down]	; gdb, dbx, and xdb
    nil)
  (define-key (current-local-map) [menu-bar debug print]
    '("Print expression" . gud-print))  ; though not in the source
                                        ; buffer until it gets a menu...
  (define-key (current-local-map) [menu-bar debug finish] ; gdb or xdb
    nil)
  (define-key (current-local-map) [menu-bar debug stepi]
    '("Step instruction" . gud-stepi))
  (define-key (current-local-map) [menu-bar debug step]
    '("Step line" . gud-step))
  (define-key (current-local-map) [menu-bar debug next]
    '("Next line" . gud-next))
  (define-key (current-local-map) [menu-bar debug cont]
    '("Continue" . gud-cont))
  (make-local-variable 'gud-last-frame)
  (setq gud-last-frame nil)
  (make-local-variable 'comint-prompt-regexp)
  (make-local-variable 'paragraph-start)
  (make-local-variable 'gud-delete-prompt-marker)

10448:ec596f12f13f

(defun gud-find-file (file)
  ;; Don't get confused by double slashes in the name that comes from GDB.
  (while (string-match "//+" file)
    (setq file (replace-match "/" t t file)))
  (funcall gud-find-file file))

;; Keymap definitions for menu bar entries common to all debuggers and
;; slots for debugger-dependent ones in sensible places.  (Defined here
;; before use.)
(defvar gud-menu-map (make-sparse-keymap "Gud") nil)
(define-key gud-menu-map [refresh] '("Refresh" . gud-refresh))
(define-key gud-menu-map [remove] '("Remove breakpoint" . gud-remove))
(define-key gud-menu-map [tbreak] nil)	; gdb, sdb and xdb
(define-key gud-menu-map [break] '("Set breakpoint" . gud-break))
(define-key gud-menu-map [up] nil)	; gdb, dbx, and xdb
(define-key gud-menu-map [down] nil)	; gdb, dbx, and xdb
(define-key gud-menu-map [print] '("Print expression" . gud-print))
(define-key gud-menu-map [finish] nil)	; gdb or xdb
(define-key gud-menu-map [stepi] '("Step instruction" . gud-stepi))
(define-key gud-menu-map [step] '("Step line" . gud-step))
(define-key gud-menu-map [next] '("Next line" . gud-next))
(define-key gud-menu-map [cont] '("Continue" . gud-cont))

;; ======================================================================
;; command definition

;; This macro is used below to define some basic debugger interface commands.

	    gud-marker-acc ""))

    output))

(defun gud-gdb-find-file (f)
  (save-excursion
    (let ((buf (find-file-noselect f)))
      (set-buffer buf)
      (define-key (current-local-map) [menu-bar debug]
	;; The copy-keymap here avoids redefining the gud-menu-map
	;; items in other buffers.
	(cons "Gud" (copy-keymap gud-menu-map)))
      (local-set-key [menu-bar debug tbreak]
		     '("Temporary breakpoint" . gud-tbreak))
      (local-set-key [menu-bar debug finish] '("Finish function" . gud-finish))
      (local-set-key [menu-bar debug up] '("Up stack" . gud-up))
      (local-set-key [menu-bar debug down] '("Down stack" . gud-down))
      buf)))

(defvar gdb-minibuffer-local-map nil
  "Keymap for minibuffer prompting of gdb startup command.")
(if gdb-minibuffer-local-map
    ()

	      (substring gud-marker-acc start)
	    nil)))
  string)

(defun gud-sdb-find-file (f)
  (save-excursion
    (let ((buf (if gud-sdb-needs-tags
		   (find-tag-noselect f)
		 (find-file-noselect f))))
      (set-buffer buf)
      (define-key (current-local-map) [menu-bar debug] (cons "Gud" (copy-keymap gud-menu-map)))
      (local-set-key [menu-bar debug tbreak] '("Temporary breakpoint" . gud-tbreak))
      buf)))

;;;###autoload
(defun sdb (command-line)
  "Run sdb on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

			 result (match-beginning 1) (match-end 1)))))))
	  (setq result (substring result 0 (match-beginning 0))))))
    (or result "")))

(defun gud-dbx-find-file (f)
  (save-excursion
    (let ((buf (find-file-noselect f)))
      (set-buffer buf)
      (local-set-key [menu-bar debug] (cons "Gud" (copy-keymap gud-menu-map)))
      (local-set-key [menu-bar debug up] '("Up stack" . gud-up))
      (local-set-key [menu-bar debug down] '("Down stack" . gud-down))
      buf)))

;;;###autoload
(defun dbx (command-line)
  "Run dbx on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

              (if file
                  (setq gud-last-frame (cons file line))))))
    (or result "")))    
               
(defun gud-xdb-find-file (f)
  (save-excursion
    (let ((realf (gud-xdb-file-name f)))
      (if realf
	  (let ((buf (find-file-noselect realf)))
	    (set-buffer buf)
	    (local-set-key [menu-bar debug] (cons "Gud" (copy-keymap gud-menu-map)))
	    (local-set-key [menu-bar debug tbreak]
			   '("Temporary breakpoint" . gud-tbreak))
	    (local-set-key [menu-bar debug finish]
			   '("Finish function" . gud-finish))
	    (local-set-key [menu-bar debug up] '("Up stack" . gud-up))
	    (local-set-key [menu-bar debug up] '("Up stack" . gud-up))
	    (local-set-key [menu-bar debug down] '("Down stack" . gud-down))
	    buf)
	nil))))

;;;###autoload
(defun xdb (command-line)
  "Run xdb on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

	    gud-marker-acc ""))

    output))

(defun gud-perldb-find-file (f)
  (save-excursion
    (let ((buf (find-file-noselect f)))
      (set-buffer buf)
      (define-key (current-local-map) [menu-bar debug] (cons "Gud" (copy-keymap gud-menu-map)))
      buf)))

;;;###autoload
(defun perldb (command-line)
  "Run perldb on program FILE in buffer *gud-FILE*.
The directory containing FILE becomes the initial working directory

  (setq major-mode 'gud-mode)
  (setq mode-name "Debugger")
  (setq mode-line-process '(":%s"))
  (use-local-map (copy-keymap comint-mode-map))
  (define-key (current-local-map) "\C-c\C-l" 'gud-refresh)
  (define-key (current-local-map) [menu-bar debug]
    (cons "Gud" gud-menu-map))
  (make-local-variable 'gud-last-frame)
  (setq gud-last-frame nil)
  (make-local-variable 'comint-prompt-regexp)
  (make-local-variable 'paragraph-start)
  (make-local-variable 'gud-delete-prompt-marker)