Overview
| Comment: | Added beginnings of hierarcial browser for runs/tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | development |
| Files: | files | file ages | folders |
| SHA1: |
7eba48f076bda68a8dd60a61fe386454 |
| User & Date: | matt on 2013-03-20 01:22:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-03-20
| ||
| 15:56 | Tree working for target check-in: f9fa5243ad user: mrwellan tags: development | |
| 01:22 | Added beginnings of hierarcial browser for runs/tests check-in: 7eba48f076 user: matt tags: development | |
| 01:13 | Added beginnings of hierarcial browser for runs/tests check-in: 0354dc0594 user: matt tags: development | |
Changes
Modified newdashboard.scm from [c4f927772d] to [57ed781660].
| ︙ | ︙ | |||
440 441 442 443 444 445 446 | (col-name (conc (string-intersperse key-vals "\n") "\n" run-name))) (iup:attribute-set! *runs-matrix* (conc rownum ":" colnum) col-name) (hash-table-set! runid-to-col run-id (list colnum run-record)) ;; Here we update *tests-treebox* and *tests-node-map* (let loop ((hed (car key-vals)) (tal (cdr key-vals)) (depth 0) | | > | > | | | | | | 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 | (col-name (conc (string-intersperse key-vals "\n") "\n" run-name))) (iup:attribute-set! *runs-matrix* (conc rownum ":" colnum) col-name) (hash-table-set! runid-to-col run-id (list colnum run-record)) ;; Here we update *tests-treebox* and *tests-node-map* (let loop ((hed (car key-vals)) (tal (cdr key-vals)) (depth 0) (pathl '())) (let* ((newpath (append pathl (list hed))) (nodenum (tree-find-node *tests-treebox* newpath))) (debug:print-info 0 "nodenum: " nodenum ", newpath: " newpath) (if nodenum ;; (if (not (null? tal)) ;; if null here then this path has already been added (loop (car tal)(cdr tal)(+ depth 1) newpath)) ;; (if (eq? depth 0) (iup:attribute-set! *tests-treebox* "INSERTBRANCH" hed) ;; (debug:print 0 "ERROR: Failed to add " hed " no parent matching " pathl))))) ))) ;; (let* ((path (string-intersperse pathl "/")) ;; (parent-found (hash-table-ref/default *tests-node-map* prevpath #f)) ;; (found (hash-table-ref/default *tests-node-map* path #f)) ;; (refnode (if parent-found parent-found 0))) ;; add to this node ;; (if (not found) ;; this level in the hierarchy might have already been added |
| ︙ | ︙ |