179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
(let* ((c1 (map string->number (string-split color1)))
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
(define (update-rundat runnamepatt numruns testnamepatt itemnamepatt keypatts)
(let* ((allruns (db:get-runs *db* runnamepatt (+ numruns (/ numruns 2)) *start-run-offset* keypatts))
(header (db:get-header allruns))
(runs (db:get-rows allruns))
(result '())
(maxtests 0)
(states (hash-table-keys *state-ignore-hash*))
(statuses (hash-table-keys *status-ignore-hash*)))
;; Instead of this mechanism lets try setting number of runs based on "result" below
|
|
>
|
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
(let* ((c1 (map string->number (string-split color1)))
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
(define (update-rundat runnamepatt numruns testnamepatt itemnamepatt keypatts)
(let* ((allruns (db:get-runs *db* runnamepatt numruns ;; (+ numruns 1) ;; (/ numruns 2))
*start-run-offset* keypatts))
(header (db:get-header allruns))
(runs (db:get-rows allruns))
(result '())
(maxtests 0)
(states (hash-table-keys *state-ignore-hash*))
(statuses (hash-table-keys *status-ignore-hash*)))
;; Instead of this mechanism lets try setting number of runs based on "result" below
|
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
|
(hash-table-set! *state-ignore-hash* "NOT_STARTED" #t)
(hash-table-delete! *state-ignore-hash* "NOT_STARTED"))))
(iup:toggle "KILLED" #:action (lambda (obj val)
(if (eq? val 1)
(hash-table-set! *state-ignore-hash* "KILLED" #t)
(hash-table-delete! *state-ignore-hash* "KILLED")))))))
(iup:valuator #:valuechanged_cb (lambda (obj)
(let ((val (inexact->exact (round (+ 0.5 (string->number (iup:attribute obj "VALUE"))))))
(maxruns *tot-run-count*)) ;;; (+ *num-runs* (length *allruns*))))
(set! *start-run-offset* val)
(debug:print 3 "maxruns: " maxruns ", val: " val)
(iup:attribute-set! obj "MAX" maxruns)))
#:expand "YES"
#:max (+ ;; *num-runs*
(length *allruns*)))
|
|
|
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
|
(hash-table-set! *state-ignore-hash* "NOT_STARTED" #t)
(hash-table-delete! *state-ignore-hash* "NOT_STARTED"))))
(iup:toggle "KILLED" #:action (lambda (obj val)
(if (eq? val 1)
(hash-table-set! *state-ignore-hash* "KILLED" #t)
(hash-table-delete! *state-ignore-hash* "KILLED")))))))
(iup:valuator #:valuechanged_cb (lambda (obj)
(let ((val (inexact->exact (round (+ 0.0 (string->number (iup:attribute obj "VALUE"))))))
(maxruns *tot-run-count*)) ;;; (+ *num-runs* (length *allruns*))))
(set! *start-run-offset* val)
(debug:print 3 "maxruns: " maxruns ", val: " val)
(iup:attribute-set! obj "MAX" maxruns)))
#:expand "YES"
#:max (+ ;; *num-runs*
(length *allruns*)))
|