procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gdb-var-create-handler): Handle just MI case.

Browse source 
(gdb-send, gdb-send-item): Log items sent from gdb-send too.
This commit is contained in:
Nick Roberts 2005-03-07 01:55:18 +00:00
parent 3d182f9d1a
commit bd7a628ab6
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/progmodes/gdb-ui.el
View file

@ -341,8 +341,12 @@ detailed description of this mode.
(speedbar 1)
(if (equal (nth 2 var) "0")
(gdb-enqueue-input
(list (concat "server interpreter mi \"-var-evaluate-expression "
(nth 1 var) "\"\n")
(list
(if (with-current-buffer
gud-comint-buffer (eq gud-minor-mode 'gdba))
(concat "server interpreter mi \"-var-evaluate-expression "
(nth 1 var) "\"\n")
(concat "-var-evaluate-expression " (nth 1 var) "\n"))
`(lambda () (gdb-var-evaluate-expression-handler
,(nth 1 var) nil))))
(setq gdb-var-changed t)))
@ -368,8 +372,8 @@ detailed description of this mode.
(defun gdb-var-list-children (varnum)
(gdb-enqueue-input
(list (concat "server interpreter mi \"-var-list-children " varnum "\"\n")
`(lambda () (gdb-var-list-children-handler ,varnum)))))
(list (concat "server interpreter mi \"-var-list-children " varnum "\"\n")
`(lambda () (gdb-var-list-children-handler ,varnum)))))
(defconst gdb-var-list-children-regexp
"name=\"\\(.*?\\)\",exp=\"\\(.*?\\)\",numchild=\"\\(.*?\\)\"")
@ -674,9 +678,12 @@ The key should be one of the cars in `gdb-buffer-rules-assoc'."
(defun gdb-send (proc string)
"A comint send filter for gdb.
This filter may simply queue input for a later time."
(if gud-running
(process-send-string proc (concat string "\n"))
(gdb-enqueue-input (concat string "\n"))))
(let ((item (concat string "\n")))
(if gud-running
(progn
(if gdb-enable-debug-log (push (cons 'send item) gdb-debug-log))
(process-send-string proc item))
(gdb-enqueue-input item))))
;; Note: Stuff enqueued here will be sent to the next prompt, even if it
;; is a query, or other non-top-level prompt.
@ -697,7 +704,7 @@ This filter may simply queue input for a later time."
(defun gdb-send-item (item)
(setq gdb-flush-pending-output nil)
(if gdb-enable-debug-log (push (cons 'send item) gdb-debug-log))
(if gdb-enable-debug-log (push (cons 'send-item item) gdb-debug-log))
(setq gdb-current-item item)
(with-current-buffer gud-comint-buffer
(if (eq gud-minor-mode 'gdba)