Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 106697:ac408704629c
lisp/*: Fix typos in docstrings and messages.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sat, 02 Jan 2010 02:05:44 +0100 |
parents | 63c5fb6b67fc |
children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
106696:9084997e41f6 | 106697:ac408704629c |
---|---|
138 (defvar gdb-overlay-arrow-position nil) | 138 (defvar gdb-overlay-arrow-position nil) |
139 (defvar gdb-stack-position nil) | 139 (defvar gdb-stack-position nil) |
140 (defvar gdb-server-prefix nil) | 140 (defvar gdb-server-prefix nil) |
141 (defvar gdb-flush-pending-output nil) | 141 (defvar gdb-flush-pending-output nil) |
142 (defvar gdb-location-alist nil | 142 (defvar gdb-location-alist nil |
143 "Alist of breakpoint numbers and full filenames. Only used for files that | 143 "Alist of breakpoint numbers and full filenames. |
144 Emacs can't find.") | 144 Only used for files that Emacs can't find.") |
145 (defvar gdb-active-process nil | 145 (defvar gdb-active-process nil |
146 "GUD tooltips display variable values when t, and macro definitions otherwise.") | 146 "GUD tooltips display variable values when t, and macro definitions otherwise.") |
147 (defvar gdb-recording nil | 147 (defvar gdb-recording nil |
148 "If t, then record session for playback and reverse execution") | 148 "If t, then record session for playback and reverse execution") |
149 (defvar gdb-error "Non-nil when GDB is reporting an error.") | 149 (defvar gdb-error "Non-nil when GDB is reporting an error.") |
518 (substring string 0 (- (length string) 1)))) | 518 (substring string 0 (- (length string) 1)))) |
519 (or gud-tooltip-echo-area tooltip-use-echo-area | 519 (or gud-tooltip-echo-area tooltip-use-echo-area |
520 (not (display-graphic-p))))) | 520 (not (display-graphic-p))))) |
521 | 521 |
522 ;; If expr is a macro for a function don't print because of possible dangerous | 522 ;; If expr is a macro for a function don't print because of possible dangerous |
523 ;; side-effects. Also printing a function within a tooltip generates an | 523 ;; side-effects. Also printing a function within a tooltip generates an |
524 ;; unexpected starting annotation (phase error). | 524 ;; unexpected starting annotation (phase error). |
525 (defun gdb-tooltip-print-1 (expr) | 525 (defun gdb-tooltip-print-1 (expr) |
526 (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer) | 526 (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer) |
527 (goto-char (point-min)) | 527 (goto-char (point-min)) |
528 (if (search-forward "expands to: " nil t) | 528 (if (search-forward "expands to: " nil t) |
1077 (let* ((var (assoc token gdb-var-list)) | 1077 (let* ((var (assoc token gdb-var-list)) |
1078 (expr (nth 1 var)) (children (nth 2 var))) | 1078 (expr (nth 1 var)) (children (nth 2 var))) |
1079 (if (or (<= (string-to-number children) gdb-max-children) | 1079 (if (or (<= (string-to-number children) gdb-max-children) |
1080 (y-or-n-p | 1080 (y-or-n-p |
1081 (format | 1081 (format |
1082 "%s has %s children. Continue? " expr children))) | 1082 "%s has %s children. Continue? " expr children))) |
1083 (if (and (eq (buffer-local-value | 1083 (if (and (eq (buffer-local-value |
1084 'gud-minor-mode gud-comint-buffer) 'gdba) | 1084 'gud-minor-mode gud-comint-buffer) 'gdba) |
1085 (string-equal gdb-version "pre-6.4")) | 1085 (string-equal gdb-version "pre-6.4")) |
1086 (gdb-var-list-children token) | 1086 (gdb-var-list-children token) |
1087 (gdb-var-list-children-1 token))))) | 1087 (gdb-var-list-children-1 token))))) |
1486 (setq gdb-stack-update t) | 1486 (setq gdb-stack-update t) |
1487 ;; Temporarily set gud-running to nil to force "info stack" onto queue. | 1487 ;; Temporarily set gud-running to nil to force "info stack" onto queue. |
1488 (let ((gud-running nil)) | 1488 (let ((gud-running nil)) |
1489 (gdb-invalidate-frames) | 1489 (gdb-invalidate-frames) |
1490 (unless (or gdb-register-names | 1490 (unless (or gdb-register-names |
1491 (string-equal gdb-version "pre-6.4")) | 1491 (string-equal gdb-version "pre-6.4")) |
1492 (gdb-enqueue-input | 1492 (gdb-enqueue-input |
1493 (list "server interpreter mi -data-list-register-names\n" | 1493 (list "server interpreter mi -data-list-register-names\n" |
1494 'gdb-get-register-names)))) | 1494 'gdb-get-register-names)))) |
1495 (setq gdb-inferior-status "running") | 1495 (setq gdb-inferior-status "running") |
1496 (setq gdb-signalled nil) | 1496 (setq gdb-signalled nil) |
1813 | 1813 |
1814 Field names are wrapped in double quotes and equal signs are | 1814 Field names are wrapped in double quotes and equal signs are |
1815 replaced with semicolons. | 1815 replaced with semicolons. |
1816 | 1816 |
1817 If FIX-KEY is non-nil, strip all \"FIX-KEY=\" occurences from | 1817 If FIX-KEY is non-nil, strip all \"FIX-KEY=\" occurences from |
1818 partial output. This is used to get rid of useless keys in lists | 1818 partial output. This is used to get rid of useless keys in lists |
1819 in MI messages, e.g.: [key=.., key=..]. -stack-list-frames and | 1819 in MI messages, e.g.: [key=.., key=..]. -stack-list-frames and |
1820 -break-info are examples of MI commands which issue such | 1820 -break-info are examples of MI commands which issue such |
1821 responses. | 1821 responses. |
1822 | 1822 |
1823 If FIX-LIST is non-nil, \"FIX-LIST={..}\" is replaced with | 1823 If FIX-LIST is non-nil, \"FIX-LIST={..}\" is replaced with |
1824 \"FIX-LIST=[..]\" prior to parsing. This is used to fix broken | 1824 \"FIX-LIST=[..]\" prior to parsing. This is used to fix broken |
1825 -break-info output when it contains breakpoint script field | 1825 -break-info output when it contains breakpoint script field |
1826 incompatible with GDB/MI output syntax." | 1826 incompatible with GDB/MI output syntax." |
1827 (save-excursion | 1827 (save-excursion |
1828 (goto-char (point-min)) | 1828 (goto-char (point-min)) |
1829 ;; Sometimes missing symbol information precedes "^done" record. | 1829 ;; Sometimes missing symbol information precedes "^done" record. |
1895 ;; The trigger function is suitable for use in the assoc GDB-ANNOTATION-RULES | 1895 ;; The trigger function is suitable for use in the assoc GDB-ANNOTATION-RULES |
1896 ;; It adds an input for the command we are tracking. It should be the | 1896 ;; It adds an input for the command we are tracking. It should be the |
1897 ;; annotation rule binding of whatever gdb sends to tell us this command | 1897 ;; annotation rule binding of whatever gdb sends to tell us this command |
1898 ;; might have changed it's output. | 1898 ;; might have changed it's output. |
1899 ;; | 1899 ;; |
1900 ;; NAME is the function name. DEMAND-PREDICATE tests if output is really needed. | 1900 ;; NAME is the function name. DEMAND-PREDICATE tests if output is really needed. |
1901 ;; GDB-COMMAND is a string of such. OUTPUT-HANDLER is the function bound to the | 1901 ;; GDB-COMMAND is a string of such. OUTPUT-HANDLER is the function bound to the |
1902 ;; input in the input queue (see comment about ``gdb communications'' above). | 1902 ;; input in the input queue (see comment about ``gdb communications'' above). |
1903 | 1903 |
1904 (defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command | 1904 (defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command |
1905 output-handler) | 1905 output-handler) |
2268 (define-key map (vector 'header-line 'down-mouse-1) 'ignore) | 2268 (define-key map (vector 'header-line 'down-mouse-1) 'ignore) |
2269 map)) | 2269 map)) |
2270 | 2270 |
2271 (defmacro gdb-propertize-header (name buffer help-echo mouse-face face) | 2271 (defmacro gdb-propertize-header (name buffer help-echo mouse-face face) |
2272 `(propertize ,name | 2272 `(propertize ,name |
2273 'help-echo ,help-echo | 2273 'help-echo ,help-echo |
2274 'mouse-face ',mouse-face | 2274 'mouse-face ',mouse-face |
2275 'face ',face | 2275 'face ',face |
2276 'local-map | 2276 'local-map |
2277 (gdb-make-header-line-mouse-map | 2277 (gdb-make-header-line-mouse-map |
2278 'mouse-1 | 2278 'mouse-1 |
2387 (setq gdb-source-window window) | 2387 (setq gdb-source-window window) |
2388 (with-current-buffer buffer | 2388 (with-current-buffer buffer |
2389 (goto-char (point-min)) | 2389 (goto-char (point-min)) |
2390 (forward-line (1- (string-to-number line))) | 2390 (forward-line (1- (string-to-number line))) |
2391 (set-window-point window (point)))))) | 2391 (set-window-point window (point)))))) |
2392 (error "No location specified.")))) | 2392 (error "No location specified")))) |
2393 | 2393 |
2394 | 2394 |
2395 ;; Frames buffer. This displays a perpetually correct backtrace | 2395 ;; Frames buffer. This displays a perpetually correct backtrace |
2396 ;; (from the command `where'). | 2396 ;; (from the command `where'). |
2397 ;; | 2397 ;; |
3282 :visible (eq gud-minor-mode 'gdba) | 3282 :visible (eq gud-minor-mode 'gdba) |
3283 :help "Toggle separate IO for debugged program." | 3283 :help "Toggle separate IO for debugged program." |
3284 :button (:toggle . gdb-use-separate-io-buffer))) | 3284 :button (:toggle . gdb-use-separate-io-buffer))) |
3285 (define-key menu [gdb-many-windows] | 3285 (define-key menu [gdb-many-windows] |
3286 '(menu-item "Display Other Windows" gdb-many-windows | 3286 '(menu-item "Display Other Windows" gdb-many-windows |
3287 :help "Toggle display of locals, stack and breakpoint information" | 3287 :help "Toggle display of locals, stack and breakpoint information." |
3288 :button (:toggle . gdb-many-windows))) | 3288 :button (:toggle . gdb-many-windows))) |
3289 (define-key menu [gdb-restore-windows] | 3289 (define-key menu [gdb-restore-windows] |
3290 '(menu-item "Restore Window Layout" gdb-restore-windows | 3290 '(menu-item "Restore Window Layout" gdb-restore-windows |
3291 :help "Restore standard layout for debug session."))) | 3291 :help "Restore standard layout for debug session."))) |
3292 | 3292 |
4027 (push (match-string 1) gdb-changed-registers))) | 4027 (push (match-string 1) gdb-changed-registers))) |
4028 | 4028 |
4029 | 4029 |
4030 ;; Locals buffer. | 4030 ;; Locals buffer. |
4031 ;; | 4031 ;; |
4032 ;; uses "-stack-list-locals --simple-values". Needs GDB 6.1 onwards. | 4032 ;; uses "-stack-list-locals --simple-values". Needs GDB 6.1 onwards. |
4033 (gdb-set-buffer-rules 'gdb-locals-buffer | 4033 (gdb-set-buffer-rules 'gdb-locals-buffer |
4034 'gdb-locals-buffer-name | 4034 'gdb-locals-buffer-name |
4035 'gdb-locals-mode) | 4035 'gdb-locals-mode) |
4036 | 4036 |
4037 (def-gdb-auto-update-trigger gdb-invalidate-locals-1 | 4037 (def-gdb-auto-update-trigger gdb-invalidate-locals-1 |