25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(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 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
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
(list "-rows"
"-run"
"-test"
"-debug"
)
(list "-h"
"-guimonitor"
"-v"
"-q"
)
args:arg-hash
0))
(if (args:get-arg "-h")
|
>
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
(list "-rows"
"-run"
"-test"
"-debug"
)
(list "-h"
"-guimonitor"
"-main"
"-v"
"-q"
)
args:arg-hash
0))
(if (args:get-arg "-h")
|
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
|
(if testid
(examine-test *db* 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)
|
>
>
|
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
|
(if testid
(examine-test *db* 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)))
(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)
|