Lines Matching +defs:gud +defs:remove +defs:all
38 ;; gud-gdb-command-name, then start it with M-x gdba.
83 ;; (gud-go) sends "continue" to GDB (should be "run").
100 (require 'gud)
120 (defvar gud-old-arrow nil)
172 gdba (gdb-ui.el) uses all five values, gdbmi (gdb-mi.el) only two
222 "Run gdb on program FILE in buffer *gud-FILE*.
271 (interactive (list (gud-query-cmdline 'gdba)))
273 ;; Let's start with a basic gud-gdb buffer and then modify it a bit.
279 :group 'gud
294 :group 'gud
301 GDB, when gud-tooltip-mode is t.
306 :group 'gud
312 :group 'gud
319 :group 'gud
329 :group 'gud
335 :group 'gud
339 (let ((buffer gud-comint-buffer))
358 (if (and gud-comint-buffer
359 (buffer-name gud-comint-buffer))
374 (if (and gud-comint-buffer
375 (buffer-name gud-comint-buffer))
409 ;; remove newline for gud-tooltip-echo-area
411 (or gud-tooltip-echo-area tooltip-use-echo-area)))
427 (defun gdb-set-gud-minor-mode-existing-buffers ()
439 (set (make-local-variable 'gud-minor-mode) 'gdba)
440 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
441 (when gud-tooltip-mode
466 (set (make-local-variable 'gud-minor-mode) 'gdba)
467 (set (make-local-variable 'gud-marker-filter) 'gud-gdba-marker-filter)
469 (gud-def gud-break (if (not (string-match "Machine" mode-name))
470 (gud-call "break %f:%l" arg)
474 (gud-call "break *%a" arg)))
477 (gud-def gud-remove (if (not (string-match "Machine" mode-name))
478 (gud-call "clear %f:%l" arg)
482 (gud-call "clear *%a" arg)))
485 (gud-def gud-until (if (not (string-match "Machine" mode-name))
486 (gud-call "until %f:%l" arg)
490 (gud-call "until *%a" arg)))
493 (gud-def gud-go (gud-call (if gdb-active-process "continue" "run") arg)
497 (gud-def gud-pp
498 (gud-call
505 (define-key gud-minor-mode-map [left-margin mouse-1]
507 (define-key gud-minor-mode-map [left-fringe mouse-1]
509 (define-key gud-minor-mode-map [left-margin C-mouse-1]
511 (define-key gud-minor-mode-map [left-fringe C-mouse-1]
514 (define-key gud-minor-mode-map [left-margin drag-mouse-1]
516 (define-key gud-minor-mode-map [left-fringe drag-mouse-1]
518 (define-key gud-minor-mode-map [left-margin mouse-3]
520 (define-key gud-minor-mode-map [left-fringe mouse-3]
523 (define-key gud-minor-mode-map [left-margin C-drag-mouse-1]
525 (define-key gud-minor-mode-map [left-fringe C-drag-mouse-1]
527 (define-key gud-minor-mode-map [left-fringe C-mouse-3]
529 (define-key gud-minor-mode-map [left-margin C-mouse-3]
565 gud-old-arrow nil)
584 'gdb-set-gud-minor-mode-existing-buffers))
592 'gdb-set-gud-minor-mode-existing-buffers-1))
627 (gdb-if-arrow gud-overlay-arrow-position
629 (gud-call (concat "until " (number-to-string line))))
634 (gud-call (concat "until *%a"))))))
645 (gdb-if-arrow gud-overlay-arrow-position
648 (gud-call (concat "tbreak " (number-to-string line)))
649 (gud-call (concat "jump " (number-to-string line)))))
655 (gud-call (concat "tbreak *%a"))
656 (gud-call (concat "jump *%a")))))))
662 :group 'gud
679 :group 'gud
682 (define-key gud-minor-mode-map "\C-c\C-w" 'gud-watch)
683 (define-key global-map (concat gud-key-prefix "\C-w") 'gud-watch)
685 (defun gud-watch (&optional arg event)
689 (let ((minor-mode (buffer-local-value 'gud-minor-mode gud-comint-buffer)))
698 'gud-gdb-complete-command)
711 (message "gud-watch is a no-op in this mode."))))
736 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
841 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
854 (if (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
866 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
877 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
893 :group 'gud
899 :group 'gud
907 (if (and gud-comint-buffer (buffer-name gud-comint-buffer))
917 'gud-minor-mode gud-comint-buffer) 'gdba)
933 (with-current-buffer gud-comint-buffer
934 gud-target-name))
970 (set (make-local-variable 'gud-minor-mode)
971 (buffer-local-value 'gud-minor-mode gud-comint-buffer))
972 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
1077 (setq proc (get-buffer-process gud-comint-buffer))
1085 (get-buffer-process gud-comint-buffer) comint-ptyp))
1091 (get-buffer-process gud-comint-buffer) comint-ptyp))
1097 (get-buffer-process gud-comint-buffer) comint-ptyp))
1103 (get-buffer-process gud-comint-buffer)))
1127 (with-current-buffer gud-comint-buffer
1129 (remove-text-properties (point-min) (point-max) '(face))))
1130 (if gud-running
1146 (if (not gud-running)
1164 (let ((process (get-buffer-process gud-comint-buffer)))
1165 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
1175 ;; case: eq gud-minor-mode 'gdbmi
1197 (defcustom gud-gdba-command-name "gdb -annotate=3"
1200 :group 'gud
1228 (setq gud-running nil)
1243 (setq gud-last-frame
1291 (gud-display-frame)))))
1307 (setq gud-running t)
1312 (gdb-remove-text-properties)
1313 (setq gud-old-arrow gud-overlay-arrow-position)
1314 (setq gud-overlay-arrow-position nil)
1349 (setq gud-overlay-arrow-position nil)
1352 (setq gud-old-arrow nil)
1376 :group 'gud
1382 :group 'gud
1401 (setq gud-running nil)
1402 (unless (or gud-overlay-arrow-position gud-last-frame)
1404 (setq gud-overlay-arrow-position gud-old-arrow)
1484 (defun gdb-remove-text-properties ()
1490 (remove-text-properties
1497 (let* ((last-window (if gud-last-last-frame
1499 (gud-find-file (car gud-last-last-frame)))))
1509 (defun gud-gdba-marker-filter (string)
1510 "A gud marker filter for gdb. Handle a burst of output from GDB."
1518 ;; Recall the left over gud-marker-acc from last time.
1519 (setq gud-marker-acc (concat gud-marker-acc string))
1523 ;; Process all the complete markers in this chunk.
1524 (while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)
1525 (let ((annotation (match-string 1 gud-marker-acc)))
1533 (substring gud-marker-acc 0 (match-beginning 0))))
1535 ;; Take that stuff off the gud-marker-acc.
1536 (setq gud-marker-acc (substring gud-marker-acc (match-end 0)))
1554 ;; If it does, then keep part of the gud-marker-acc until we get more.
1556 gud-marker-acc)
1561 (substring gud-marker-acc 0
1565 (setq gud-marker-acc (substring gud-marker-acc
1568 ;; In case we know the gud-marker-acc contains no partial annotations:
1570 (setq output (gdb-concat-output output gud-marker-acc))
1571 (setq gud-marker-acc "")))
1768 ;; Bitmap for gud-overlay-arrow in fringe
1777 :group 'gud)
1790 :group 'gud)
1798 ;; Remove all breakpoint-icons in source buffers but not assembler buffer.
1801 (if (and (memq gud-minor-mode '(gdba gdbmi))
1803 (gdb-remove-breakpoint-icons (point-min) (point-max)))))
1838 (set (make-local-variable 'gud-minor-mode)
1841 gud-tool-bar-map)
1883 (gud-remove nil)
1884 (gud-break nil)))))))
1934 (with-current-buffer gud-comint-buffer
1978 (kill-all-local-variables)
1984 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
2045 :group 'gud
2121 (if gud-last-last-frame
2122 (with-current-buffer (gud-find-file (car gud-last-last-frame))
2127 (with-current-buffer gud-comint-buffer
2156 (kill-all-local-variables)
2165 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
2217 (with-current-buffer gud-comint-buffer
2252 (kill-all-local-variables)
2274 (gud-display-frame))
2280 (defcustom gdb-all-registers nil
2283 :group 'gud
2293 gdb-server-prefix "info " (if gdb-all-registers "all-") "registers\n")
2331 (define-key map " " 'gdb-all-registers)
2339 (kill-all-local-variables)
2347 (if gdb-all-registers (setq mode-name "Registers:All"))
2352 (with-current-buffer gud-comint-buffer
2368 (defun gdb-all-registers ()
2372 (if gdb-all-registers
2374 (setq gdb-all-registers nil)
2377 (setq gdb-all-registers t)
2381 (if gdb-all-registers "en" "dis")))
2391 :group 'gud
2401 :group 'gud
2410 :group 'gud
2604 (kill-all-local-variables)
2677 (with-current-buffer gud-comint-buffer
2714 (gud-watch)))
2718 (gud-watch)))
2735 ;; These can be expanded using gud-display.
2775 (kill-all-local-variables)
2783 (if (and (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
2789 (with-current-buffer gud-comint-buffer
2814 (pop-to-buffer gud-comint-buffer) ;Select the right frame.
2817 (not (memq window `(,(get-buffer-window gud-comint-buffer)
2837 (define-key gud-menu-map [displays]
2839 :visible (memq gud-minor-mode '(gdbmi gdba))))
2855 (define-key gud-menu-map [frames]
2857 :visible (memq gud-minor-mode '(gdbmi gdba))))
2872 (define-key gud-menu-map [ui]
2873 `(menu-item (if (eq gud-minor-mode 'gdba) "GDB-UI" "GDB-MI")
2874 ,menu :visible (memq gud-minor-mode '(gdbmi gdba))))
2877 :visible (eq gud-minor-mode 'gdba)
2882 :visible (eq gud-minor-mode 'gdba)
2898 (remove '(menu-bar-lines) (remove '(tool-bar-lines)
2901 (display-buffer gud-comint-buffer)))
2907 (pop-to-buffer gud-comint-buffer)))
2921 (pop-to-buffer gud-comint-buffer)
2929 (if gud-last-last-frame
2930 (gud-find-file (car gud-last-last-frame))
2932 (gud-find-file gdb-main-file)
2953 (pop-to-buffer gud-comint-buffer) ;Select the right window and frame.
2957 (when (or gud-last-last-frame gdb-show-main)
2961 (if gud-last-last-frame
2962 (gud-find-file (car gud-last-last-frame))
2963 (gud-find-file gdb-main-file)))
2971 (unless (eq buffer gud-comint-buffer)
2973 (if (memq gud-minor-mode '(gdbmi gdba))
2976 (gdb-remove-breakpoint-icons (point-min) (point-max) t)
2977 (setq gud-minor-mode nil)
2988 (setq gud-running nil)
2991 (remove-hook 'after-save-hook 'gdb-create-define-alist t))
3008 (display-buffer (gud-find-file gdb-main-file))))))
3028 (set (make-local-variable 'gud-minor-mode) 'gdba)
3029 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map))
3040 (if (and (buffer-name gud-comint-buffer)
3041 ;; in case gud or gdb-ui is just loaded
3042 gud-comint-buffer
3043 (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
3051 (set (make-local-variable 'gud-minor-mode)
3052 (buffer-local-value 'gud-minor-mode gud-comint-buffer))
3053 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)))))
3073 ;;from remove-images
3074 (defun gdb-remove-strings (start end &optional buffer)
3097 (gdb-remove-breakpoint-icons start end)
3151 (defun gdb-remove-breakpoint-icons (start end &optional remove-margin)
3152 (gdb-remove-strings start end)
3154 (remove-images start end))
3155 (when remove-margin
3210 ;; remove all breakpoint-icons in assembler buffer before updating.
3211 (gdb-remove-breakpoint-icons (point-min) (point-max))))
3257 (kill-all-local-variables)
3272 (with-current-buffer gud-comint-buffer
3303 (with-current-buffer gud-comint-buffer
3347 (if (and (match-string 3) gud-overlay-arrow-position)
3348 (let ((buffer (marker-buffer gud-overlay-arrow-position))
3349 (position (marker-position gud-overlay-arrow-position)))
3358 (set-marker gud-overlay-arrow-position position))))))
3369 (defun gdb-set-gud-minor-mode-existing-buffers-1 ()
3371 If buffers already exist for any of these files, gud-minor-mode
3379 (set (make-local-variable 'gud-minor-mode)
3380 (buffer-local-value 'gud-minor-mode gud-comint-buffer))
3381 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
3382 (when gud-tooltip-mode
3389 ; Uses "-var-list-children --all-values". Needs GDB 6.1 onwards.
3393 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3394 (concat "server interpreter mi \"-var-list-children --all-values "
3396 (concat "-var-list-children --all-values " varnum "\n"))
3426 ; Uses "-var-update --all-values". Needs GDB 6.4 onwards.
3432 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3433 "server interpreter mi \"-var-update --all-values *\"\n"
3434 "-var-update --all-values *\n")
3471 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3540 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3567 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3578 (define-key map "\r" 'gud-watch)
3579 (define-key map [mouse-2] 'gud-watch)
3604 ;; These can be expanded using gud-watch.