25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(declare (uses db))
(declare (uses configf))
(declare (uses process))
(declare (uses launch))
(declare (uses runs))
(declare (uses dashboard-tests))
(declare (uses dashboard-guimonitor))
(declare (uses dashboard-main))
(declare (uses megatest-version))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(define help (conc
|
|
|
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(declare (uses db))
(declare (uses configf))
(declare (uses process))
(declare (uses launch))
(declare (uses runs))
(declare (uses dashboard-tests))
(declare (uses dashboard-guimonitor))
;; (declare (uses dashboard-main))
(declare (uses megatest-version))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(define help (conc
|
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
|
(if testid
(examine-test testid)
(begin
(print "ERROR: testid is not a number " (args:get-arg "-test"))
(exit 1)))))
((args:get-arg "-guimonitor")
(gui-monitor *db*))
((args:get-arg "-main")
(iup:show (main-panel)))
|
<
<
|
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
|
(if testid
(examine-test testid)
(begin
(print "ERROR: testid is not a number " (args:get-arg "-test"))
(exit 1)))))
((args:get-arg "-guimonitor")
(gui-monitor *db*))
(else
(set! uidat (make-dashboard-buttons *num-runs* *num-tests* *dbkeys*))
(iup:callback-set! *tim*
"ACTION_CB"
(lambda (x)
(run-update x)))))
;(print x)))))
(iup:main-loop)
|