Re: gdba probs

[Nick Roberts <nick@nick.uklinux.net>]

 > I feel like it must be possible to have a single filter deal with both cases.
 > The worst case would be to have a `gud-gdb-undecided-marker-filer' which
 > would call either one of the two filters or could even replace itself with
 > the appropriate filter once it has determined which case it's dealing with.

How about :

--- gud.el.~1.169.~	Wed Dec 11 18:41:06 2002
+++ gud.el	Wed Dec 11 22:16:45 2002
@@ -85,6 +85,8 @@
   (let ((sym (gud-symbol sym t minor-mode)))
     (if (boundp sym) (symbol-value sym))))
 
+(defvar gud-first-time)
+
 (defvar gud-running nil
   "Non-nil if debuggee is running.
 Used to grey out relevant toolbar icons.")
@@ -453,6 +455,7 @@
 and source-file directory for your debugger."
   (interactive (list (gud-query-cmdline 'gdb)))
 
+  (setq gud-first-time t)
   (gud-common-init command-line nil 'gud-gdb-marker-filter)
   (set (make-local-variable 'gud-minor-mode) 'gdb)
 
@@ -2344,6 +2347,42 @@
 
 (defun gud-filter (proc string)
   ;; Here's where the actual buffer insertion is done
+  (when (and gud-first-time (string-match 
+       "\n\032\032[a-z]" string))
+    (with-current-buffer gud-comint-buffer    
+      (setq gud-minor-mode 'gdba)
+      (setq gud-marker-filter 'gdba-marker-filter)
+      (setq comint-input-sender 'gdb-send))
+    (gud-def gud-break (if (not (string-equal mode-name "Assembler"))
+			   (gud-call "break %f:%l" arg)
+			 (save-excursion
+			   (beginning-of-line)
+			   (forward-char 2)
+			   (gud-call "break *%a" arg)))
+	     "\C-b" "Set breakpoint at current line or address.")
+
+    (gud-def gud-remove (if (not (string-equal mode-name "Assembler"))
+			    (gud-call "clear %f:%l" arg)
+			  (save-excursion
+			    (beginning-of-line)
+			    (forward-char 2)
+			    (gud-call "clear *%a" arg)))
+	     "\C-d" "Remove breakpoint at current line or address.")
+
+    ;; (re-)initialise
+    (setq gdb-main-or-pc "main")
+    (setq gdb-current-address nil)
+    (setq gdb-display-in-progress nil)
+    (setq gdb-dive nil)
+
+    (gdb-make-instance)
+    (gdb-clear-inferior-io)
+
+    ;; find source file and compilation directory here
+    (gdb-instance-enqueue-idle-input (list "server list\n" 'ignore))
+    (gdb-instance-enqueue-idle-input (list "server info source\n"
+					   'gdb-source-info))
+    (setq gud-first-time nil))
   (let (output process-window)
     (if (buffer-name (process-buffer proc))
 	(if gud-filter-defer-flag