# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1066775939 0
# Node ID f27266006051ea380de2a785e6c22a0088ac8325
# Parent  6aed8d350153fcff81fb869ba6816eaff25816ec
(gdb-current-language): New variable.
(gdb-update-flag): Remove variable.
(gud-watch,gdb-frame-handler): Adapt for other languages (Fortran).
(gdb-take-last-elt): Remove function.
(gdb-dequeue-input): Avoid recursion by not using gdb-take-last-elt.
(gdb-post-prompt): Check for variable object changes here.

diff -r 6aed8d350153 -r f27266006051 lisp/gdb-ui.el
--- a/lisp/gdb-ui.el	Tue Oct 21 22:37:29 2003 +0000
+++ b/lisp/gdb-ui.el	Tue Oct 21 22:38:59 2003 +0000
@@ -54,11 +54,11 @@
 (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-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,7 +156,6 @@
   (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)
@@ -174,10 +173,11 @@
   (run-hooks 'gdba-mode-hook))
 
 (defun gud-watch ()
-  "Watch expression."
+  "Watch expression at point."
   (interactive)
   (let ((expr (tooltip-identifier-from-point (point))))
-    (setq expr (concat gdb-current-frame "::" expr))
+    (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,14 +215,16 @@
   (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))))
+    (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,7 +265,6 @@
        (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" 
@@ -567,19 +568,9 @@
 (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)))
+	 (let ((last (car (last queue))))
+	   (unless (nbutlast queue) (gdb-set-input-queue '()))
+	   last))))
 
 
 ;;
@@ -729,7 +720,7 @@
 (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)
+  (if (not (gdb-get-pending-triggers))
       (progn
 	(gdb-get-current-frame)
 	(gdb-invalidate-frames)
@@ -737,8 +728,8 @@
 	(gdb-invalidate-assembler)
 	(gdb-invalidate-registers)
 	(gdb-invalidate-locals)
-	(gdb-invalidate-threads)))
-  (setq gdb-update-flag t)
+	(gdb-invalidate-threads)
+	(gdb-var-update)))
   (let ((sink (gdb-get-output-sink)))
     (cond
      ((eq sink 'user) t)
@@ -1901,7 +1892,9 @@
 		 gdb-source-window
 		 (gdb-get-create-buffer 'gdb-assembler-buffer))
 		;;update with new frame for machine code if necessary
-		(gdb-invalidate-assembler)))))))
+		(gdb-invalidate-assembler))))))
+    (if (looking-at "source language  \\(\\S-*\\)")
+	(setq gdb-current-language (match-string 1))))
 
 (provide 'gdb-ui)