[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.46 emacs/lisp/gdb-ui.el:1.47
*** emacs/lisp/gdb-ui.el:1.46   Thu Oct 16 15:26:49 2003
--- emacs/lisp/gdb-ui.el        Tue Oct 21 18:38:59 2003
***************
*** 54,64 ****
  (defvar gdb-previous-address nil)
  (defvar gdb-previous-frame nil)
  (defvar gdb-current-frame "main")
! (defvar gdb-view-source t "Non-nil means that source code can be viewed")
! (defvar gdb-selected-view 'source "Code type that user wishes to view")
! (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-update-flag t "Non-il means update buffers")
  (defvar gdb-buffer-type nil)
  (defvar gdb-variables '()
    "A list of variables that are local to the GUD buffer.")
--- 54,64 ----
  (defvar gdb-previous-address nil)
  (defvar gdb-previous-frame nil)
  (defvar gdb-current-frame "main")
! (defvar gdb-current-language nil)
! (defvar gdb-view-source t "Non-nil means that source code can be viewed.")
! (defvar gdb-selected-view 'source "Code type that user wishes to view.")
! (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-buffer-type nil)
  (defvar gdb-variables '()
    "A list of variables that are local to the GUD buffer.")
***************
*** 156,162 ****
    (setq gdb-selected-view 'source)
    (setq gdb-var-list nil)
    (setq gdb-var-changed nil)
-   (setq gdb-update-flag t)
    ;;
    (mapc 'make-local-variable gdb-variables)
    (setq gdb-buffer-type 'gdba)
--- 156,161 ----
***************
*** 174,183 ****
    (run-hooks 'gdba-mode-hook))
  
  (defun gud-watch ()
!   "Watch expression."
    (interactive)
    (let ((expr (tooltip-identifier-from-point (point))))
!     (setq expr (concat gdb-current-frame "::" expr))
      (catch 'already-watched
        (dolist (var gdb-var-list)
        (if (string-equal expr (car var)) (throw 'already-watched nil)))
--- 173,183 ----
    (run-hooks 'gdba-mode-hook))
  
  (defun gud-watch ()
!   "Watch expression at point."
    (interactive)
    (let ((expr (tooltip-identifier-from-point (point))))
!     (if (string-equal gdb-current-language "c")
!       (setq expr (concat gdb-current-frame "::" expr)))
      (catch 'already-watched
        (dolist (var gdb-var-list)
        (if (string-equal expr (car var)) (throw 'already-watched nil)))
***************
*** 215,228 ****
    (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
      (goto-char (point-min))
      (re-search-forward ".*value=\"\\(.*?\\)\"" nil t)
!     (let ((var-list nil))
!       (dolist (var gdb-var-list)
!       (if (string-equal varnum (cadr var))
!           (progn
!             (push (nreverse (cons (match-string-no-properties 1) 
!                                   (cdr (nreverse var)))) var-list))
!         (push var var-list)))
!       (setq gdb-var-list (nreverse var-list))))
    (setq gdb-var-changed t))
  
  (defun gdb-var-list-children (varnum)
--- 215,230 ----
    (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
      (goto-char (point-min))
      (re-search-forward ".*value=\"\\(.*?\\)\"" nil t)
!     (catch 'var-found
!       (let ((var-list nil) (num 0))
!       (dolist (var gdb-var-list)
!         (if (string-equal varnum (cadr var))
!             (progn
!               (setcar (nthcdr 4 var) 
!                       (match-string-no-properties 1))
!               (setcar (nthcdr num gdb-var-list) var)
!               (throw 'var-found nil)))
!         (setq num (+ num 1))))))
    (setq gdb-var-changed t))
  
  (defun gdb-var-list-children (varnum)
***************
*** 263,269 ****
         (setq gdb-var-list (nreverse var-list))))))
  
  (defun gdb-var-update ()
-   (setq gdb-update-flag nil)
    (if (not (member 'gdb-var-update (gdb-get-pending-triggers)))
        (progn
        (gdb-enqueue-input (list "server interpreter mi \"-var-update *\"\n" 
--- 265,270 ----
***************
*** 567,585 ****
  (defun gdb-dequeue-input ()
    (let ((queue (gdb-get-input-queue)))
      (and queue
!        (if (not (cdr queue))
!            (let ((answer (car queue)))
!              (gdb-set-input-queue '())
!              answer)
!          (gdb-take-last-elt queue)))))
! 
! ;; Don't use this in general.
! (defun gdb-take-last-elt (l)
!   (if (cdr (cdr l))
!       (gdb-take-last-elt (cdr l))
!     (let ((answer (car (cdr l))))
!       (setcdr l '())
!       answer)))
  
  
  ;;
--- 568,576 ----
  (defun gdb-dequeue-input ()
    (let ((queue (gdb-get-input-queue)))
      (and queue
!        (let ((last (car (last queue))))
!          (unless (nbutlast queue) (gdb-set-input-queue '()))
!          last))))
  
  
  ;;
***************
*** 729,735 ****
  (defun gdb-post-prompt (ignored)
    "An annotation handler for `post-prompt'. This begins the collection of
  output from the current command if that happens to be appropriate."
!   (if (and (not (gdb-get-pending-triggers)) gdb-update-flag)
        (progn
        (gdb-get-current-frame)
        (gdb-invalidate-frames)
--- 720,726 ----
  (defun gdb-post-prompt (ignored)
    "An annotation handler for `post-prompt'. This begins the collection of
  output from the current command if that happens to be appropriate."
!   (if (not (gdb-get-pending-triggers))
        (progn
        (gdb-get-current-frame)
        (gdb-invalidate-frames)
***************
*** 737,744 ****
        (gdb-invalidate-assembler)
        (gdb-invalidate-registers)
        (gdb-invalidate-locals)
!       (gdb-invalidate-threads)))
!   (setq gdb-update-flag t)
    (let ((sink (gdb-get-output-sink)))
      (cond
       ((eq sink 'user) t)
--- 728,735 ----
        (gdb-invalidate-assembler)
        (gdb-invalidate-registers)
        (gdb-invalidate-locals)
!       (gdb-invalidate-threads)
!       (gdb-var-update)))
    (let ((sink (gdb-get-output-sink)))
      (cond
       ((eq sink 'user) t)
***************
*** 1901,1907 ****
                 gdb-source-window
                 (gdb-get-create-buffer 'gdb-assembler-buffer))
                ;;update with new frame for machine code if necessary
!               (gdb-invalidate-assembler)))))))
  
  (provide 'gdb-ui)
  
--- 1892,1900 ----
                 gdb-source-window
                 (gdb-get-create-buffer 'gdb-assembler-buffer))
                ;;update with new frame for machine code if necessary
!               (gdb-invalidate-assembler))))))
!     (if (looking-at "source language  \\(\\S-*\\)")
!       (setq gdb-current-language (match-string 1))))
  
  (provide 'gdb-ui)