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)) |
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." |
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) |
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) |
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 "") |
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)) |
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 |
|
|
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 |