/[emacs]/emacs/lisp/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by nickrob, Wed Jun 18 22:37:40 2003 UTC revision 1.37 by nickrob, Sun Jun 29 13:52:50 2003 UTC
# Line 710  output from the current command if that Line 710  output from the current command if that
710    (gdb-clear-partial-output)    (gdb-clear-partial-output)
711    (setq gdb-display-in-progress t))    (setq gdb-display-in-progress t))
712    
713  (defvar gdb-expression-buffer-name)  (defvar gdb-expression-buffer-name nil)
714  (defvar gdb-display-number)  (defvar gdb-display-number nil)
715  (defvar gdb-dive-display-number)  (defvar gdb-dive-display-number nil)
716    
717  (defun gdb-display-number-end (ignored)  (defun gdb-display-number-end (ignored)
718    (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))    (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))
# Line 730  output from the current command if that Line 730  output from the current command if that
730              (gdb-expressions-mode)              (gdb-expressions-mode)
731              (setq gdb-dive-display-number number)))              (setq gdb-dive-display-number number)))
732        (set-buffer (get-buffer-create gdb-expression-buffer-name))        (set-buffer (get-buffer-create gdb-expression-buffer-name))
733        (gdb-expressions-mode)        (if (display-graphic-p)
       (if (and (display-graphic-p) (not gdb-dive))  
734            (catch 'frame-exists            (catch 'frame-exists
735              (dolist (frame (frame-list))              (dolist (frame (frame-list))
736                (if (string-equal (frame-parameter frame 'name)                (if (string-equal (frame-parameter frame 'name)
737                                  gdb-expression-buffer-name)                                  gdb-expression-buffer-name)
738                    (throw 'frame-exists nil)))                    (throw 'frame-exists nil)))
739                (gdb-expressions-mode)
740              (make-frame `((height . ,gdb-window-height)              (make-frame `((height . ,gdb-window-height)
741                            (width . ,gdb-window-width)                            (width . ,gdb-window-width)
742                            (tool-bar-lines . nil)                            (tool-bar-lines . nil)
743                            (menu-bar-lines . nil)                            (menu-bar-lines . nil)
744                            (minibuffer . nil))))                            (minibuffer . nil))))
745            (gdb-expressions-mode)
746          (gdb-display-buffer (get-buffer gdb-expression-buffer-name)))))          (gdb-display-buffer (get-buffer gdb-expression-buffer-name)))))
747    (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))    (set-buffer (gdb-get-buffer 'gdb-partial-output-buffer))
748    (setq gdb-dive nil))    (setq gdb-dive nil))
749    
750  (defvar gdb-nesting-level)  (defvar gdb-nesting-level nil)
751  (defvar gdb-expression)  (defvar gdb-expression nil)
752  (defvar gdb-point)  (defvar gdb-point nil)
753  (defvar gdb-annotation-arg)  (defvar gdb-annotation-arg nil)
754    
755  (defun gdb-delete-line ()  (defun gdb-delete-line ()
756    "Delete the current line."    "Delete the current line."
# Line 954  output from the current command if that Line 955  output from the current command if that
955                             'local-map gdb-dive-map)))                             'local-map gdb-dive-map)))
956      (delete-region start end)))      (delete-region start end)))
957    
958  (defvar gdb-values)  (defvar gdb-values nil)
959    
960  (defun gdb-array-format ()  (defun gdb-array-format ()
961    (while (re-search-forward "##" nil t)    (while (re-search-forward "##" nil t)
# Line 980  output from the current command if that Line 981  output from the current command if that
981            (setq gdb-nesting-level (- gdb-nesting-level 1))            (setq gdb-nesting-level (- gdb-nesting-level 1))
982            (gdb-array-format)))))            (gdb-array-format)))))
983    
984  (defvar gdb-array-start)  (defvar gdb-array-start nil)
985  (defvar gdb-array-stop)  (defvar gdb-array-stop nil)
986    
987  (defvar gdb-array-slice-map  (defvar gdb-array-slice-map
988    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
989      (define-key map [mouse-2] 'gdb-array-slice)      (define-key map "\r" 'gdb-array-slice)
990        (define-key map [mouse-2] 'gdb-mouse-array-slice)
991      map))      map))
992    
993  (defun gdb-array-slice (event)  (defun gdb-mouse-array-slice (event)
994    "Select an array slice to display."    "Select an array slice to display."
995    (interactive "e")    (interactive "e")
996    (mouse-set-point event)    (mouse-set-point event)
997      (gdb-array-slice))
998    
999    (defun gdb-array-slice ()
1000      (interactive)
1001    (save-excursion    (save-excursion
1002      (let ((n -1) (stop 0) (start 0) (point (point)))      (let ((n -1) (stop 0) (start 0) (point (point)))
1003        (beginning-of-line)        (beginning-of-line)
# Line 1003  output from the current command if that Line 1009  output from the current command if that
1009        (aset gdb-array-stop n stop)))        (aset gdb-array-stop n stop)))
1010    (gdb-array-format1))    (gdb-array-format1))
1011    
1012  (defvar gdb-display-string)  (defvar gdb-display-string nil)
1013  (defvar gdb-array-size)  (defvar gdb-array-size nil)
1014    
1015  (defun gdb-array-format1 ()  (defun gdb-array-format1 ()
1016    (setq gdb-display-string "")    (setq gdb-display-string "")
# Line 2002  the source buffer." Line 2008  the source buffer."
2008                          "Display other windows" "Many Windows %s"                          "Display other windows" "Many Windows %s"
2009                          "Display locals, stack and breakpoint information"))                          "Display locals, stack and breakpoint information"))
2010    
2011   (let ((menu (make-sparse-keymap "GDB-Frames")))  (let ((menu (make-sparse-keymap "GDB-Frames")))
2012    (define-key gud-menu-map [frames]    (define-key gud-menu-map [frames]
2013      `(menu-item "GDB-Frames" ,menu :visible (eq gud-minor-mode 'gdba)))      `(menu-item "GDB-Frames" ,menu :visible (eq gud-minor-mode 'gdba)))
2014    (define-key menu [gdb] '("Gdb" . gdb-frame-gdb-buffer))    (define-key menu [gdb] '("Gdb" . gdb-frame-gdb-buffer))
# Line 2036  the source buffer." Line 2042  the source buffer."
2042     (define-key menu [assembler] '(menu-item "Assembler" gdb-view-assembler     (define-key menu [assembler] '(menu-item "Assembler" gdb-view-assembler
2043                 :help "Display assembler only"                 :help "Display assembler only"
2044                 :button (:radio . (eq gdb-selected-view 'assembler))))                 :button (:radio . (eq gdb-selected-view 'assembler))))
2045     (define-key menu [source] '(menu-item "Source" gdb-view-source     (define-key menu [source] '(menu-item "Source" gdb-view-source-function
2046                 :help "Display source only"                 :help "Display source only"
2047                 :button (:radio . (eq gdb-selected-view 'source)))))                 :button (:radio . (eq gdb-selected-view 'source)))))
2048    
# Line 2052  the source buffer." Line 2058  the source buffer."
2058    
2059  (defvar gdb-main-file nil "Source file from which program execution begins.")  (defvar gdb-main-file nil "Source file from which program execution begins.")
2060    
2061  (defun gdb-view-source()  (defun gdb-view-source-function ()
2062    (interactive)    (interactive)
2063    (if gdb-view-source    (if gdb-view-source
2064        (if gud-last-last-frame        (if gud-last-last-frame

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26