Megatest

		 0))

(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))

;; Globals and constants
;;
(define *panels* (make-hash-table))
(define blank-line-rx (regexp "^\\s*$"))


(define (dboard:panel toppath)
  (let* ((db                    (open-db toppath))
	 (db-file-path          (conc toppath "/megatest.db"))
	 (read-only             (not (file-read-access? db-file-path)))
	 (toplevel              #f)
	 (dlg                   #f)

	 (delayed-update        0)
	 (tests-sort-reverse    #f)
	 (hide-empty-runs       #f)
	 (ui-dat                #f)
	 (megatest-config       (setup-for-run toppath))
	 (megatest-configdat    #f)
	 (my-run-shell          (cmdshell:make-shell "/bin/bash" toppath))
	 (my-env-vars          '()) ;; stack up all var val pairs here 
	 (collapsed             (make-hash-table))
	 ;; functions
	 (db:been-changed       (lambda ()
				  (> (file-modification-time (conc toppath*"/megatest.db")) last-db-update-time))))

; (define *row-lookup* (make-hash-table)) ;; testname => (rownum lableobj)

    (if (not megatest-config)
	(begin
	  (print "Failed to find megatest.config, canceling open of " toppath)
	  (sqlite3:finalize! db))
	(begin
	  (set! megatest-configdat (if (car megatest-config)(car megatest-config) #f))
	  ;; (cmdshell:set-env-var my-run-shell "MT_RUN_AREA_HOME" toppath) ;;; NOPE, cache up the vars
	  (set! my-env-vars (append my-env-vars (list (list "MT_RUN_AREA_HOME" toppath))))
	  ;; here is where the persistent proc lives (to be run in a thread)
	  (lambda ()
	    (set!last-db-update-time (file-modification-time (conc toppath "/megatest.db")))
(define (db:set-db-update-time)
  (set! *last-db-update-time* (file-modification-time (conc *toppath* "/megatest.db"))))

	    
	    
      
(define *verbosity* (cond
		     ((args:get-arg "-debug")(string->number (args:get-arg "-debug")))
		     ((args:get-arg "-v")    2)
		     ((args:get-arg "-q")    0)

	    (set! *header*  header)
	    (set! *allruns* result)
	    (debug:print 6 "*allruns* has " (length *allruns*) " runs")
	    ;; (set! *tot-run-count* (+ 1 (length *allruns*)))
	    maxtests))
	*num-tests*))) ;; FIXME, naughty coding eh?




(define (toggle-hide lnum) ; fulltestname)
  (let* ((btn (vector-ref (dboard:uidat-get-lftcol uidat) lnum))
	 (fulltestname (iup:attribute btn "TITLE"))
	 (parts        (string-split fulltestname "("))
	 (basetestname (if (null? parts) "" (car parts))))
    ;(print "Toggling " basetestname " currently " (hash-table-ref/default *collapsed* basetestname #f))
    (if (hash-table-ref/default *collapsed* basetestname #f)
	(begin
	  ;(iup:attribute-set! btn "FGCOLOR" "0 0 0")
	  (hash-table-delete! *collapsed* basetestname))
	(begin
	  ;(iup:attribute-set! btn "FGCOLOR" "0 192 192")
	  (hash-table-set! *collapsed* basetestname #t)))))
  


(define (run-item-name->vectors lst)
  (map (lambda (x)
	 (let ((splst (string-split x "("))
	       (res   (vector "" "")))
	   (vector-set! res 0 (car splst))
	   (if (> (length splst) 1)
	       (vector-set! res 1 (car (string-split (cadr splst) ")"))))

(define *tim* (iup:timer))
(define *ord* #f)
(iup:attribute-set! *tim* "TIME" 300)
(iup:attribute-set! *tim* "RUN" "YES")

;; Move this stuff to db.scm FIXME
;;






(define (run-update x)
  (update-buttons uidat *num-runs* *num-tests*)
  ;; (if (db:been-changed)
  (begin
    (update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs*
		   (hash-table-ref/default *searchpatts* "test-name" "%")
		   (hash-table-ref/default *searchpatts* "item-name" "%")