Lines Matching +defs:set +defs:language +defs:info +defs:alist
35 ;; (see the GDB Graphical Interface section in the Emacs info manual).
44 ;; section in the GDB info manual.
113 (defvar gdb-current-language nil)
125 (defvar gdb-location-alist nil
131 (defvar gdb-macro-info nil
132 "Non-nil if GDB knows that the inferior includes preprocessor macro info.")
297 (defcustom gdb-cpp-define-alist-program "gcc -E -dM -"
303 Set `gdb-cpp-define-alist-flags' for any include paths or
309 (defcustom gdb-cpp-define-alist-flags ""
310 "Preprocessor flags for `gdb-cpp-define-alist-program'."
382 (defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.")
384 (defun gdb-create-define-alist ()
385 "Create an alist of #define directives for GUD tooltips."
393 (concat gdb-cpp-define-alist-program " "
394 gdb-cpp-define-alist-flags)))))
396 (setq gdb-define-alist nil)
399 (push (cons name define) gdb-define-alist))))
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)
442 (make-local-variable 'gdb-define-alist)
443 (gdb-create-define-alist)
444 (add-hook 'after-save-hook 'gdb-create-define-alist nil t))))))
466 (set (make-local-variable 'gud-minor-mode) 'gdba)
467 (set (make-local-variable 'gud-marker-filter) 'gud-gdba-marker-filter)
506 'gdb-mouse-set-clear-breakpoint)
508 'gdb-mouse-set-clear-breakpoint)
540 gdb-current-language nil
552 gdb-location-alist nil
555 gdb-macro-info nil
571 ;; Hack to see test for GDB 6.4+ (-stack-info-frame was implemented in 6.4)
572 (gdb-enqueue-input (list "server interpreter mi -stack-info-frame\n"
577 (gdb-enqueue-input (list "set new-console off\n" 'ignore)))
578 (gdb-enqueue-input (list "set height 0\n" 'ignore))
579 (gdb-enqueue-input (list "set width 0\n" 'ignore))
583 (gdb-enqueue-input (list (concat gdb-server-prefix "info sources\n")
584 'gdb-set-gud-minor-mode-existing-buffers))
592 'gdb-set-gud-minor-mode-existing-buffers-1))
598 (gdb-enqueue-input (list "server info source\n" 'gdb-source-info))
692 (if event (posn-set-point (event-end event)))
703 (set-text-properties 0 (length expr) nil expr)
721 (if (and (string-equal gdb-current-language "c")
948 ;; named according to the rules set forth in the gdb-buffer-rules-assoc
970 (set (make-local-variable 'gud-minor-mode)
972 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
981 (set-buffer (car bufs))
1000 (defun gdb-set-buffer-rules (buffer-type &rest rules)
1008 (gdb-set-buffer-rules 'gdba 'error)
1013 (gdb-set-buffer-rules 'gdb-partial-output-buffer
1023 (gdb-set-buffer-rules 'gdb-inferior-io
1051 (special-display-frame-alist gdb-frame-parameters))
1399 It is just like `gdb-stopping', except that if we already set the output
1506 (set-window-buffer source-window buffer))
1663 (set-window-start window start)
1664 (set-window-point window p)))))
1683 ;; Breakpoint buffer : This displays the output of `info breakpoints'.
1685 (gdb-set-buffer-rules 'gdb-breakpoints-buffer
1698 "server info breakpoints\n"
1703 gdb-info-breakpoints-handler
1705 gdb-info-breakpoints-custom)
1795 ;; Put breakpoint icons in relevant margins (even those set in the GUD buffer).
1796 (defun gdb-info-breakpoints-custom ()
1833 (setq file (cdr (assoc bptno gdb-location-alist))))
1838 (set (make-local-variable 'gud-minor-mode)
1840 (set (make-local-variable 'tool-bar-map)
1853 (list (concat gdb-server-prefix "info source\n")
1871 (defun gdb-mouse-set-clear-breakpoint (event)
1918 (set-buffer (window-buffer (selected-window)))
1947 (special-display-frame-alist gdb-frame-parameters))
2016 (if event (posn-set-point (event-end event)))
2026 (cdr (assoc bptno gdb-location-alist)))))
2032 (set-window-point window (point))))))
2048 (gdb-set-buffer-rules 'gdb-stack-buffer
2054 (concat "server info stack " (number-to-string gdb-max-frames) "\n")
2055 gdb-info-stack-handler
2056 gdb-info-stack-custom)
2058 (defun gdb-info-stack-custom ()
2079 (set-marker gdb-stack-position (point)))
2113 (match-string 1) "\n") 'gdb-set-hollow))
2120 (defun gdb-set-hollow ()
2123 (setq fringe-indicator-alist
2140 (special-display-frame-alist gdb-frame-parameters))
2180 (if event (posn-set-point (event-end event)))
2194 (gdb-set-buffer-rules 'gdb-threads-buffer
2200 (concat gdb-server-prefix "info threads\n")
2201 gdb-info-threads-handler
2202 gdb-info-threads-custom)
2204 (defun gdb-info-threads-custom ()
2230 (special-display-frame-alist gdb-frame-parameters))
2257 (set (make-local-variable 'font-lock-defaults)
2270 (if event (posn-set-point (event-end event)))
2286 (gdb-set-buffer-rules 'gdb-registers-buffer
2293 gdb-server-prefix "info " (if gdb-all-registers "all-") "registers\n")
2294 gdb-info-registers-handler
2295 gdb-info-registers-custom)
2297 (defun gdb-info-registers-custom ()
2318 (if event (posn-set-point (event-end event)))
2323 (list (concat gdb-server-prefix "set $" register "=" value "\n")
2365 (special-display-frame-alist gdb-frame-parameters))
2413 (gdb-set-buffer-rules 'gdb-memory-buffer
2436 (defun gdb-memory-set-address (event)
2445 (defun gdb-memory-set-repeat-count (event)
2454 (customize-set-variable 'gdb-memory-repeat-count count)
2460 (customize-set-variable 'gdb-memory-format "t")
2466 (customize-set-variable 'gdb-memory-format "o")
2472 (customize-set-variable 'gdb-memory-format "u")
2478 (customize-set-variable 'gdb-memory-format "d")
2484 (customize-set-variable 'gdb-memory-format "x")
2528 (customize-set-variable 'gdb-memory-unit "g")
2534 (customize-set-variable 'gdb-memory-unit "w")
2540 (customize-set-variable 'gdb-memory-unit "h")
2546 (customize-set-variable 'gdb-memory-unit "b")
2646 'help-echo "mouse-1: set memory address"
2650 #'gdb-memory-set-address))
2654 'help-echo "mouse-1: set repeat count"
2658 #'gdb-memory-set-repeat-count))
2671 (set (make-local-variable 'font-lock-defaults)
2690 (special-display-frame-alist
2700 (gdb-set-buffer-rules 'gdb-locals-buffer
2706 "server info locals\n"
2707 gdb-info-locals-handler)
2716 (mouse-set-point event)
2736 (defun gdb-info-locals-handler ()
2760 (set-window-start window start)
2761 (set-window-point window p))
2763 (run-hooks 'gdb-info-locals-hook))
2780 (set (make-local-variable 'font-lock-defaults)
2802 (special-display-frame-alist gdb-frame-parameters))
2820 (set-window-buffer window buf)
2828 (set-window-buffer answer buf)
2829 (set-window-dedicated-p answer dedicated)))
2897 (special-display-frame-alist
2909 (defun gdb-set-window-buffer (name)
2910 (set-window-buffer (selected-window) (get-buffer name))
2911 (set-window-dedicated-p (selected-window) t))
2926 (gdb-set-window-buffer (gdb-locals-buffer-name))
2940 (gdb-set-window-buffer
2943 (gdb-set-window-buffer (gdb-stack-buffer-name))
2946 (gdb-set-window-buffer (gdb-breakpoints-buffer-name))
2979 (kill-local-variable 'gdb-define-alist))))))
2983 (setq fringe-indicator-alist '((overlay-arrow . right-triangle)))
2991 (remove-hook 'after-save-hook 'gdb-create-define-alist t))
2993 (defun gdb-source-info ()
3001 (if (search-forward "Includes preprocessor macro info." nil t)
3002 (setq gdb-macro-info t))
3017 (delete (cons bptno "File not found") gdb-location-alist)
3018 (push (cons bptno (match-string 0)) gdb-location-alist))
3020 (unless (assoc bptno gdb-location-alist)
3021 (push (cons bptno "File not found") gdb-location-alist)
3028 (set (make-local-variable 'gud-minor-mode) 'gdba)
3029 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map))
3045 ;;Pre GDB 6.3 "info sources" doesn't give absolute file name.
3051 (set (make-local-variable 'gud-minor-mode)
3053 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)))))
3114 (set-window-margins
3144 (set-window-margins
3159 (set-window-margins
3167 (gdb-set-buffer-rules 'gdb-assembler-buffer
3186 (set-window-point window p)))))
3203 (setq fringe-indicator-alist
3209 (set-marker gdb-overlay-arrow-position (point))))))
3230 (set-window-point (get-buffer-window buffer 0) pos)))))
3266 (set (make-local-variable 'font-lock-defaults)
3287 (special-display-frame-alist gdb-frame-parameters))
3323 (list (concat gdb-server-prefix "info frame\n") 'gdb-frame-handler))
3354 (setq fringe-indicator-alist
3358 (set-marker gud-overlay-arrow-position position))))))
3360 (if (re-search-forward " source language \\(\\S-+\\)\." nil t)
3361 (setq gdb-current-language (match-string 1)))
3369 (defun gdb-set-gud-minor-mode-existing-buffers-1 ()
3372 is set in them."
3379 (set (make-local-variable 'gud-minor-mode)
3381 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
3383 (make-local-variable 'gdb-define-alist)
3384 (gdb-create-define-alist)
3385 (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))))
3465 (gdb-set-buffer-rules 'gdb-registers-buffer
3511 (set-window-start window start)
3512 (set-window-point window p))))))
3561 (gdb-set-buffer-rules 'gdb-locals-buffer
3595 (if event (posn-set-point (event-end event)))
3600 (list (concat gdb-server-prefix"set variable " var " = " value "\n")
3650 (set-window-start window start)
3651 (set-window-point window p))))))))