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
|