Megatest

Check-in [7eba48f076]
Login
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: 7eba48f076bda68a8dd60a61fe386454a111ad0a
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
447
448




449
450
451
452
453
454
455





456
457
458
459
460
461
462
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    (list (car key-vals))))
		      (let ((nodenum (tree-find-node *tests-treebox* pathl)))
			       (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)(append pathl (list hed))))
			    (if (eq? depth 0)
				(iup:attribute-set! *tests-treebox* "INSERTBRANCH" hed)
				(debug:print 0 "ERROR: Failed to add " hed " no parent matching " pathl)))))
			    
				(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