Overview
Comment: | Sorted tests properly |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.61 |
Files: | files | file ages | folders |
SHA1: |
84fe581b50c27af0e0862616ccd3846f |
User & Date: | mrwellan on 2016-07-19 18:28:08 |
Other Links: | branch diff | manifest | tags |
Context
2016-07-19
| ||
18:33 | Process tests in bundles check-in: 3340b7c0bd user: mrwellan tags: v1.61 | |
18:28 | Sorted tests properly check-in: 84fe581b50 user: mrwellan tags: v1.61 | |
2016-07-18
| ||
23:30 | Pretty good view now with run-times check-in: 833e7f9f3e user: matt tags: v1.61 | |
Changes
Modified dashboard.scm from [fcba9d1f53] to [067e2d457d].
︙ | |||
134 135 136 137 138 139 140 | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | - + | (let* ((tnum (or tab-num (dboard:commondat-curr-tab-num commondat))) (updaters (hash-table-ref/default (dboard:commondat-updaters commondat) tnum '()))) (debug:print 0 *default-log-port* "Found these updaters: " updaters " for tab-num: " tnum) (for-each (lambda (updater) |
︙ | |||
1064 1065 1066 1067 1068 1069 1070 | 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 | - - + + | (let ((drawing (dboard:tabdat-drawing tabdat)) (old-xadj (dboard:tabdat-xadj tabdat)) (old-yadj (dboard:tabdat-yadj tabdat))) (if (not (and (eq? xadj old-xadj)(eq? yadj old-yadj))) (begin (print "xadj: " xadj " yadj: " yadj "changed: "(eq? xadj old-xadj) " " (eq? yadj old-yadj)) (dboard:tabdat-view-changed-set! tabdat #t) |
︙ | |||
2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 | 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ((and (<= x1 bx1)(>= x2 bx2))(set! collision #t))))) rowdat) collision)) (define-inline (dashboard:add-bar rowhash rownum x1 x2) (hash-table-set! rowhash rownum (cons (cons x1 x2) (hash-table-ref/default rowhash rownum '())))) ;; get min or max, use > for max and < for min, this works around the limits on apply ;; (define (dboard:min-max comp lst) (if (null? lst) #f ;; better than an exception for my needs (fold (lambda (a b) (if (comp a b) a b)) (car lst) lst))) (define-inline (dboard:sort-testsdat-by-event-time testsdat) (sort testsdat (lambda (a b) (< (db:test-get-event_time a) (db:test-get-event_time b))))) ;; first group items into lists, then sort by time ;; finally sort by first item time ;; (define (dboard:tests-sort-by-time-group-by-item testsdat) (let* ((tests (let ((ht (make-hash-table))) (for-each (lambda (tdat) (let ((testname (db:test-get-testname tdat))) (hash-table-set! ht testname (cons tdat (hash-table-ref/default ht testname '()))))) testsdat) ht))) ;; remove toplevel tests from iterated tests, sort tests in the list by event time (for-each (lambda (testname) (let ((testslst (hash-table-ref tests testname))) (if (> (length testslst) 1) ;; must be iterated (hash-table-set! tests testname (dboard:sort-testsdat-by-event-time (filter (lambda (tdat) (equal? (db:test-get-item-path tdat) "")) testslst))) ))) (hash-table-keys tests)) (sort (hash-table-values tests) (lambda (a b) (< (db:test-get-event_time (car a)) (db:test-get-event_time (car b))))))) (define (dashboard:run-times-tab-updater commondat tab-num) ;; each test is an object in the run component ;; each run is a component ;; all runs stored in runslib library (let* ((tabdat (dboard:common-get-tabdat commondat tab-num: tab-num)) (canvas-margin 10) |
︙ | |||
2297 2298 2299 2300 2301 2302 2303 | 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 | - - + + - - + - - - + + | (cnv (dboard:tabdat-cnv tabdat))) (let-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv)) ((originx originy) (canvas-origin cnv))) ;; (print "allruns: " allruns) (for-each (lambda (rundat) (if (vector? rundat) |
︙ | |||
2391 2392 2393 2394 2395 2396 2397 | 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 | - + | (set! max-row (+ max-row 1))))) allruns) (vg:drawing-cnv-set! (dboard:tabdat-drawing tabdat)(dboard:tabdat-cnv tabdat)) ;; cnv-obj) (canvas-clear! (dboard:tabdat-cnv tabdat)) ;; -obj) (print "Number of objs: " (length (vg:draw (dboard:tabdat-drawing tabdat) #t))) (dboard:tabdat-view-changed-set! tabdat #f) ))) |
︙ |