Differences From Artifact [8ecdd4ecf2]:
- File dashboard.scm — part of check-in [53c81338a0] at 2015-04-04 11:57:43 on branch multi-area — Moved dashboard to olddashboard and newdashboard to dashboard (user: matt, size: 20721) [annotate] [blame] [check-ins using]
- File newdashboard.scm — part of check-in [1fb33719ba] at 2015-03-08 22:28:44 on branch better-html-update-control — Use db:dbfile instead of constructing path to db (user: matt, size: 20721) [annotate] [blame] [check-ins using]
To Artifact [99bb436233]:
- File dashboard.scm — part of check-in [bc256de3e4] at 2015-04-04 23:18:38 on branch multi-area — Made *runremote* overrideable via a local var (user: matt, size: 20735) [annotate] [blame] [check-ins using]
︙ | ︙ | |||
72 73 74 75 76 77 78 | (if (not (launch:setup-for-run)) (begin (print "Failed to find megatest.config, exiting") (exit 1))) ;; (if (args:get-arg "-host") ;; (begin | | | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | (if (not (launch:setup-for-run)) (begin (print "Failed to find megatest.config, exiting") (exit 1))) ;; (if (args:get-arg "-host") ;; (begin ;; (set! (common:get-remote remote) (string-split (args:get-arg "-host" ":"))) ;; (client:launch)) ;; (client:launch)) ;; ease debugging by loading ~/.dashboardrc (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc"))) (if (file-exists? debugcontrolf) (load debugcontrolf))) |
︙ | ︙ | |||
598 599 600 601 602 603 604 | (iup:attribute-set! tabtop "TABTITLE2" "Run Control") (iup:attribute-set! tabtop "TABTITLE3" "megatest.config") (iup:attribute-set! tabtop "TABTITLE4" "runconfigs.config") tabtop))) (define *current-window-id* 0) | | < | | 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 | (iup:attribute-set! tabtop "TABTITLE2" "Run Control") (iup:attribute-set! tabtop "TABTITLE3" "megatest.config") (iup:attribute-set! tabtop "TABTITLE4" "runconfigs.config") tabtop))) (define *current-window-id* 0) (define (newdashboard data) (let* ((keys (db:get-keys dbstruct)) (runname "%") (testpatt "%") (keypatts (map (lambda (k)(list k "%")) keys)) (states '()) (statuses '()) (nextmintime (current-milliseconds)) (my-window-id *current-window-id*)) |
︙ | ︙ | |||
625 626 627 628 629 630 631 | (if (< nextmintime (current-milliseconds)) (let* ((starttime (current-milliseconds)) (changes (dcommon:run-update keys data runname keypatts testpatt states statuses 'full my-window-id)) (endtime (current-milliseconds))) (set! nextmintime (+ endtime (* 2 (- endtime starttime)))) (debug:print 11 "CHANGE(S): " (car changes) "...")) (debug:print-info 11 "Server overloaded")))))) | | > | | | | 624 625 626 627 628 629 630 631 632 633 634 635 | (if (< nextmintime (current-milliseconds)) (let* ((starttime (current-milliseconds)) (changes (dcommon:run-update keys data runname keypatts testpatt states statuses 'full my-window-id)) (endtime (current-milliseconds))) (set! nextmintime (+ endtime (* 2 (- endtime starttime)))) (debug:print 11 "CHANGE(S): " (car changes) "...")) (debug:print-info 11 "Server overloaded")))))) ;;; main ;;; (let ((data (make-hash-table))) ;; data will have "areaname" => "area record" entries (newdashboard data) (iup:main-loop)) |