ADDED   debugger.scm
Index: debugger.scm
==================================================================
--- /dev/null
+++ debugger.scm
@@ -0,0 +1,71 @@
+(use iup)
+
+(define *debugger-control* #f)
+(define *debugger-rownum*  0)
+(define *debugger-matrix*  #f)
+(define *debugger*         #f)
+
+(define (debugger)
+  (if (not *debugger*)
+      (set! *debugger* 
+	    (thread-start!
+	     (make-thread
+	      (lambda ()
+		(show
+		 (dialog
+		  (let ((pause #f)
+			(mtrx  (matrix
+				#:expand "YES"
+				#:numlin 30
+				#:numcol 3
+				#:numlin-visible 20
+				#:numcol-visible 3
+				)))
+		    (set! pause (button "Pause" 
+					#:action (lambda (obj)
+						   (set! *debugger-control* (not *debugger-control*))
+						   (attribute-set! pause "BGCOLOR" (if *debugger-control*
+										       "200 0 0"
+										       "0 0 200")))))
+		    (set! *debugger-matrix* mtrx)
+		    (attribute-set! mtrx "WIDTH1" "200")
+		    (vbox
+		     mtrx
+		     (hbox
+		      pause)))))
+		(main-loop)))))))
+
+(define (debugger-start #!key (start 1))
+  (set! *debugger-rownum* start))
+
+(define (debugger-trace-var varname varval)
+  (let ((oldval (attribute *debugger-matrix* (conc *debugger-rownum* ":1")))
+	(newval (conc varval)))
+    (if (not (equal? oldval newval))
+	(begin
+	  ;; (print "DEBUG: " varname " = " newval)
+	  (attribute-set! *debugger-matrix* (conc *debugger-rownum* ":0") varname)
+	  (attribute-set! *debugger-matrix* (conc *debugger-rownum* ":1") (conc varval))
+	  ;; (attribute-set! *debugger-matrix* "FITTOTEXT" "C1")
+	  ))
+    (set! *debugger-rownum* (+ *debugger-rownum* 1))))
+
+
+(define (debugger-pauser)
+  (debugger)
+  (attribute-set! *debugger-matrix* "REDRAW" "ALL")
+  (let loop ()
+    (if *debugger-control*
+	(begin
+	  (print "PAUSED!")
+	  (thread-sleep! 1)
+	  (loop))
+	(thread-sleep! 0.01))))
+		  
+;;    ;; lets use the debugger eh?
+;;    (debugger-start)
+;;    (debugger-trace-var "can-run-more"     can-run-more)
+;;    (debugger-trace-var "hed"              hed)
+;;    (debugger-trace-var "prereqs-not-met"  (runs:pretty-string prereqs-not-met))
+;;    (debugger-pauser)
+

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -27,10 +27,12 @@
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 (include "test_records.scm")
+
+(include "debugger.scm")
 
 (define (runs:test-get-full-path test)
   (let* ((testname (db:test-get-testname   test))
 	 (itempath (db:test-get-item-path test)))
     (conc testname (if (equal? itempath "") "" (conc "(" itempath ")")))))
@@ -486,10 +488,17 @@
 		      "\n (member 'toplevel testmode): " (member 'toplevel testmode)
 		      "\n (null? non-completed):    " (null? non-completed)
 		      "\n reruns:          " reruns
 		      "\n items:           " items
 		      "\n can-run-more:    " can-run-more)
+
+    ;; lets use the debugger eh?
+    (debugger-start)
+    (debugger-trace-var "can-run-more"     can-run-more)
+    (debugger-trace-var "hed"              hed)
+    (debugger-trace-var "prereqs-not-met"  (runs:pretty-string prereqs-not-met))
+    (debugger-pauser)
 
     (cond
      ;; all prereqs met, fire off the test
      ;; or, if it is a 'toplevel test and all prereqs not met are COMPLETED then launch
 
@@ -1030,10 +1039,19 @@
 		     "\n  reruns:      " reruns
 		     "\n  regfull:     " regfull
 		     "\n  reglen:      " reglen
 		     "\n  length reg:  " (length reg)
 		     "\n  reg:         " reg)
+
+	;; lets use the debugger eh?
+	(debugger-start start: 5)
+	(debugger-trace-var "runs:run-tests-queue" "")
+	(debugger-trace-var "items"            items)
+	(debugger-trace-var "hed"              hed)
+	(debugger-trace-var "waitons"          waitons) 
+	(debugger-pauser)
+
 
 	;; check for hed in waitons => this would be circular, remove it and issue an
 	;; error
 	(if (member test-name waitons)
 	    (begin