comparison lisp/progmodes/gdb-ui.el @ 68941:b41d1af1839d

(gdba, gdb-var-list): Improve doc strings. (menu): Re-order menu items. (gdb-var-update-regexp, gdb-var-update-regexp-1): Match "in_scope" field. (gdb-var-update-handler-1): Use it for GDB 6.4+. (gdb-post-prompt): Speed things by not forcing update.

68940:808f636eb13e

;;; Known Bugs:

;; 1) Strings that are watched don't update in the speedbar when their
;; contents change.
;; 2) Watch expressions go out of scope when the inferior is re-run.
;; 3) Cannot handle multiple debug sessions.

;;; TODO:

;; 1) Use MI command -data-read-memory for memory window.
;; 2) Use tree-widget.el instead of the speedbar for watch-expressions?

(defvar gdb-memory-address "main")
(defvar gdb-previous-frame nil)
(defvar gdb-selected-frame nil)
(defvar gdb-frame-number nil)
(defvar gdb-current-language nil)
(defvar gdb-var-list nil "List of variables in watch window.")
(defvar gdb-var-changed nil "Non-nil means that `gdb-var-list' has changed.")
(defvar gdb-main-file nil "Source file from which program execution begins.")
(defvar gdb-overlay-arrow-position nil)
(defvar gdb-server-prefix nil)
(defvar gdb-flush-pending-output nil)

    (gdb-enqueue-input
     (list "server interpreter mi \"-var-update *\"\n"
	   'gdb-var-update-handler))
    (push 'gdb-var-update gdb-pending-triggers)))

(defconst gdb-var-update-regexp "name=\"\\(.*?\\)\"")

(defun gdb-var-update-handler ()
  (goto-char (point-min))
  (while (re-search-forward gdb-var-update-regexp nil t)
    (catch 'var-found-1

    (gdb-invalidate-threads)
    (unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3.
      ;; FIXME: with GDB-6 on Darwin, this might very well work.
      ;; Only needed/used with speedbar/watch expressions.
      (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame))
	(setq gdb-var-changed t)    ; force update
	(dolist (var gdb-var-list)
	  (setcar (nthcdr 5 var) nil))
	(if (string-equal gdb-version "pre-6.4")
	    (gdb-var-update)
	  (gdb-var-update-1)))))

	      "server interpreter mi \"-var-update --all-values *\"\n"
	    "-var-update --all-values *\n")
	  'gdb-var-update-handler-1))
	(push 'gdb-var-update gdb-pending-triggers))))

(defconst gdb-var-update-regexp-1 "name=\"\\(.*?\\)\",value=\\(\".*?\"\\),")

(defun gdb-var-update-handler-1 ()
  (goto-char (point-min))
  (while (re-search-forward gdb-var-update-regexp-1 nil t)
    (let ((varnum (match-string 1)))

	(let ((num 0))
	  (dolist (var gdb-var-list)
	    (if (string-equal varnum (cadr var))
		(progn
		  (setcar (nthcdr 5 var) t)
		  (setcar (nthcdr 4 var) (read (match-string 2)))
		  (setcar (nthcdr num gdb-var-list) var)
		  (throw 'var-found1 nil)))
	    (setq num (+ num 1))))))
    (setq gdb-var-changed t))
  (setq gdb-pending-triggers

68941:b41d1af1839d

;;; Known Bugs:

;; 1) Strings that are watched don't update in the speedbar when their
;; contents change.
;; 2) Cannot handle multiple debug sessions.

;;; Problems with watch expressions:

;; 1) They go out of scope when the inferior is re-run.
;; 2) -var-update reports that an out of scope variable has changed:
;;    changelist=[{name="var1",in_scope="false"}], but the value can't be accessed.
;;    (-var-list-children, in contrast allows you to create variable objects of
;;      the children when they are out of scope and get their values).
;; 3) VARNUM increments even when vaiable object is not created (maybe trivial).

;;; TODO:

;; 1) Use MI command -data-read-memory for memory window.
;; 2) Use tree-widget.el instead of the speedbar for watch-expressions?

(defvar gdb-memory-address "main")
(defvar gdb-previous-frame nil)
(defvar gdb-selected-frame nil)
(defvar gdb-frame-number nil)
(defvar gdb-current-language nil)
(defvar gdb-var-list nil
 "List of variables in watch window.
Each element has the form (EXPRESSION VARNUM NUMCHILD TYPE VALUE CHANGED-P).")
(defvar gdb-var-changed nil "Non-nil means that `gdb-var-list' has changed.")
(defvar gdb-main-file nil "Source file from which program execution begins.")
(defvar gdb-overlay-arrow-position nil)
(defvar gdb-server-prefix nil)
(defvar gdb-flush-pending-output nil)

    (gdb-enqueue-input
     (list "server interpreter mi \"-var-update *\"\n"
	   'gdb-var-update-handler))
    (push 'gdb-var-update gdb-pending-triggers)))

(defconst gdb-var-update-regexp "name=\"\\(.*?\\)\",in_scope=\"\\(.*?\\)\"")

(defun gdb-var-update-handler ()
  (goto-char (point-min))
  (while (re-search-forward gdb-var-update-regexp nil t)
    (catch 'var-found-1

    (gdb-invalidate-threads)
    (unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3.
      ;; FIXME: with GDB-6 on Darwin, this might very well work.
      ;; Only needed/used with speedbar/watch expressions.
      (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame))
	(dolist (var gdb-var-list)
	  (setcar (nthcdr 5 var) nil))
	(if (string-equal gdb-version "pre-6.4")
	    (gdb-var-update)
	  (gdb-var-update-1)))))

	      "server interpreter mi \"-var-update --all-values *\"\n"
	    "-var-update --all-values *\n")
	  'gdb-var-update-handler-1))
	(push 'gdb-var-update gdb-pending-triggers))))

(defconst gdb-var-update-regexp-1
  "name=\"\\(.*?\\)\",\\(?:value=\\(\".*?\"\\),\\)?in_scope=\"\\(.*?\\)\"")

(defun gdb-var-update-handler-1 ()
  (goto-char (point-min))
  (while (re-search-forward gdb-var-update-regexp-1 nil t)
    (let ((varnum (match-string 1)))

	(let ((num 0))
	  (dolist (var gdb-var-list)
	    (if (string-equal varnum (cadr var))
		(progn
		  (setcar (nthcdr 5 var) t)
		  (setcar (nthcdr 4 var)
			  (if (string-equal (match-string 3) "true")
			      (read (match-string 2))
			    "*changed*"))
		  (setcar (nthcdr num gdb-var-list) var)
		  (throw 'var-found1 nil)))
	    (setq num (+ num 1))))))
    (setq gdb-var-changed t))
  (setq gdb-pending-triggers