623
624
625
626
627
628
629
630
631
632
633
634
635
|
;; Want to dedicate no more than 50% of the time to this so skip if
;; 2x delta time has not passed since last query
(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 #f "CHANGE(S): " (car changes) "..."))
(debug:print-info 11 #f "Server overloaded"))))))
(dboard:data-set-updaters! *data* (make-hash-table))
(newdashboard *dbstruct-local*)
(iup:main-loop)
|
|
|
623
624
625
626
627
628
629
630
631
632
633
634
635
|
;; Want to dedicate no more than 50% of the time to this so skip if
;; 2x delta time has not passed since last query
(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 *default-log-port* "CHANGE(S): " (car changes) "..."))
(debug:print-info 11 #f "Server overloaded"))))))
(dboard:data-set-updaters! *data* (make-hash-table))
(newdashboard *dbstruct-local*)
(iup:main-loop)
|