497 |
;; Check for annotations and change gud-minor-mode to 'gdba if |
;; Check for annotations and change gud-minor-mode to 'gdba if |
498 |
;; they are found. |
;; they are found. |
499 |
(while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc) |
(while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc) |
500 |
(when (string-equal (match-string 1 gud-marker-acc) "prompt") |
(let ((match (match-string 1 gud-marker-acc))) |
501 |
(require 'gdb-ui) |
(when (string-equal match "prompt") |
502 |
(gdb-prompt nil)) |
(require 'gdb-ui) |
503 |
|
(gdb-prompt nil)) |
504 |
(setq |
|
505 |
;; Append any text before the marker to the output we're going |
(setq |
506 |
;; to return - we don't include the marker in this text. |
;; Append any text before the marker to the output we're going |
507 |
output (concat output |
;; to return - we don't include the marker in this text. |
508 |
(substring gud-marker-acc 0 (match-beginning 0))) |
output (concat output |
509 |
|
(substring gud-marker-acc 0 (match-beginning 0))) |
510 |
;; Set the accumulator to the remaining text. |
|
511 |
gud-marker-acc (substring gud-marker-acc (match-end 0)))) |
;; Set the accumulator to the remaining text. |
512 |
|
|
513 |
|
gud-marker-acc (substring gud-marker-acc (match-end 0))) |
514 |
|
(if (string-equal match "error-begin") |
515 |
|
(put-text-property 0 (length gud-marker-acc) |
516 |
|
'face font-lock-warning-face |
517 |
|
gud-marker-acc)))) |
518 |
|
|
519 |
;; Does the remaining text look like it might end with the |
;; Does the remaining text look like it might end with the |
520 |
;; beginning of another marker? If it does, then keep it in |
;; beginning of another marker? If it does, then keep it in |
3262 |
(when gud-tooltip-dereference |
(when gud-tooltip-dereference |
3263 |
(setq expr (concat "*" expr))) |
(setq expr (concat "*" expr))) |
3264 |
(case gud-minor-mode |
(case gud-minor-mode |
3265 |
(gdba (concat "server print " expr)) |
(gdba (concat "server print " expr)) |
3266 |
((dbx gdbmi) (concat "print " expr)) |
((dbx gdbmi) (concat "print " expr)) |
3267 |
(xdb (concat "p " expr)) |
(xdb (concat "p " expr)) |
3268 |
(sdb (concat expr "/")) |
(sdb (concat expr "/")) |
3269 |
(perldb expr))) |
(perldb expr))) |
3270 |
|
|
3271 |
(defun gud-tooltip-tips (event) |
(defun gud-tooltip-tips (event) |
3272 |
"Show tip for identifier or selection under the mouse. |
"Show tip for identifier or selection under the mouse. |