Megatest

Check-in [10a73916b7]
Login
Overview
Comment:Buttondat approach, not looking feasible, trying the matrix approach
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | buttons_defunct
Files: files | file ages | folders
SHA1: 10a73916b7640e2b14133e0d4dd5331d39ed3f25
User & Date: ritikaag on 2016-09-20 18:10:02
Other Links: branch diff | manifest | tags
Context
2016-09-20
18:10
Buttondat approach, not looking feasible, trying the matrix approach Closed-Leaf check-in: 10a73916b7 user: ritikaag tags: buttons_defunct
2016-09-16
17:21
Commit with compilation errors check-in: 3fe6358ed8 user: ritikaag tags: db
Changes

Modified dashboard.scm from [21e076a240] to [d7b2d2d402].

1358
1359
1360
1361
1362
1363
1364
1365
1366


1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
								  (+ scalex
								     (if (> step 0)
									 (* scalex  0.02)
									 (* scalex -0.02))))))
				      "wheel-cb"))
		       )))
	cnv-obj)
      (let* ((hb1 (iup:hbox))
             (buttondat (dboard:tabdat-graph-button-dat tabdat)))


             ;; (b1 (iup:button "testbutton")))
        (dboard:tabdat-graph-button-box-set! tabdat hb1)
        (for-each
         (lambda (buttondat)
           (let* ((b1 (iup:button "buttondat-graph-name")))
           (iup:child-add! b1 hb1))))
        hb1)
      ))))

;;======================================================================
;; R U N
;;======================================================================
;;
;; display and manage a single run at a time







|
|
>
>
|
|
<
<
<
|
|







1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370



1371
1372
1373
1374
1375
1376
1377
1378
1379
								  (+ scalex
								     (if (> step 0)
									 (* scalex  0.02)
									 (* scalex -0.02))))))
				      "wheel-cb"))
		       )))
	cnv-obj)
      (let* ((hb1 (iup:hbox (iup:button "Checking"))))
        (dboard:tabdat-graph-button-box-set! tabdat hb1)
        hb1)
      ;; (let* ((hb2 (iup:hbox))
      ;;        (b1 (iup:button "Checking")))
      ;;   (dboard:tabdat-graph-button-box-set! tabdat hb2)



      ;;   (iup:child-add! b1 hb2)
      ;;   hb2)
      ))))

;;======================================================================
;; R U N
;;======================================================================
;;
;; display and manage a single run at a time
2550
2551
2552
2553
2554
2555
2556
2557

2558
2559
2560
2561
2562
2563
2564
  (let* ((dwg      (dboard:tabdat-drawing tabdat))
	 (lib      (vg:get/create-lib dwg "runslib"))
	 (cnv      (dboard:tabdat-cnv tabdat))
	 (dur      (- tstart tend)) ;; time duration
	 (cmp      (vg:get-component dwg "runslib" compname))
	 (cfg      (configf:get-section *configdat* "graph"))
	 (stdcolor (vg:rgb->number 120 130 140))
	 (delta-y  (- uly lly)))

    (vg:add-obj-to-comp
     cmp 
     (vg:make-rect-obj llx lly ulx uly))
    (vg:add-obj-to-comp
     cmp
     (vg:make-text-obj (- (tfn tstart) 10)(- lly 10)(seconds->year-week/day-time tstart)))
    (let*-values (((span timeunit time-blk first timesym) (common:find-start-mark-and-mark-delta tstart tend)))







|
>







2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
  (let* ((dwg      (dboard:tabdat-drawing tabdat))
	 (lib      (vg:get/create-lib dwg "runslib"))
	 (cnv      (dboard:tabdat-cnv tabdat))
	 (dur      (- tstart tend)) ;; time duration
	 (cmp      (vg:get-component dwg "runslib" compname))
	 (cfg      (configf:get-section *configdat* "graph"))
	 (stdcolor (vg:rgb->number 120 130 140))
	 (delta-y  (- uly lly))
         (hb1      (dboard:tabdat-graph-button-box tabdat)))
    (vg:add-obj-to-comp
     cmp 
     (vg:make-rect-obj llx lly ulx uly))
    (vg:add-obj-to-comp
     cmp
     (vg:make-text-obj (- (tfn tstart) 10)(- lly 10)(seconds->year-week/day-time tstart)))
    (let*-values (((span timeunit time-blk first timesym) (common:find-start-mark-and-mark-delta tstart tend)))
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589








2590
2591
2592
2593
2594
2595
2596
			    (vg:make-text-obj (- smark 1)(- lly 10) label))))
		     (if (< mark (- tend time-blk))
			 (loop (+ mark time-blk)(+ count 1))))))
    (for-each 
     (lambda (cf)
       (let* ((alldat  (dboard:graph-read-data (cadr cf) tstart tend)))
	 (if alldat
             ;; RA => generate canvas
	     (for-each
	      (lambda (fieldn)
		(let* ((dat     (hash-table-ref alldat fieldn))
		       (vals    (map (lambda (x)(vector-ref x 2)) dat))
                       (buttondat (tabdat-graph-button-dat)))








                  ;; Check if the dat is already added in the buttondat table; if not add it
		  (if (not (null? vals))
		      (let* ((maxval   (apply max vals))
			     (minval   (min 0 (apply min vals)))
			     (yoff     (- minval lly)) ;;  minval))
			     (deltaval (- maxval minval))
			     (yscale   (/ delta-y (if (zero? deltaval) 1 deltaval)))







<




|
>
>
>
>
>
>
>
>







2577
2578
2579
2580
2581
2582
2583

2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
			    (vg:make-text-obj (- smark 1)(- lly 10) label))))
		     (if (< mark (- tend time-blk))
			 (loop (+ mark time-blk)(+ count 1))))))
    (for-each 
     (lambda (cf)
       (let* ((alldat  (dboard:graph-read-data (cadr cf) tstart tend)))
	 (if alldat

	     (for-each
	      (lambda (fieldn)
		(let* ((dat     (hash-table-ref alldat fieldn))
		       (vals    (map (lambda (x)(vector-ref x 2)) dat))
                       (buttondat (dboard:tabdat-graph-button-dat tabdat)))
                  (if (not (hash-table-exists? buttondat fieldn))
                      (let* ((b1 (iup:button fieldn)))
                        (hash-table-set! buttondat fieldn b1)
                        (print "fieldn is " fieldn "hb1: " hb1)
                        (iup:child-add! b1 hb1)))

                  ;; (print "graph-button-dat in runtimes is " (dboard:tabdat-graph-button-dat tabdat))
                  ;; (print "fieldn alldat dat vals buttondat " fieldn alldat dat vals buttondat)
                  ;; Check if the dat is already added in the buttondat table; if not add it
		  (if (not (null? vals))
		      (let* ((maxval   (apply max vals))
			     (minval   (min 0 (apply min vals)))
			     (yoff     (- minval lly)) ;;  minval))
			     (deltaval (- maxval minval))
			     (yscale   (/ delta-y (if (zero? deltaval) 1 deltaval)))
2637
2638
2639
2640
2641
2642
2643


2644
2645
2646

2647
2648
2649
2650
2651
2652
2653
			;; 	  (stval (tfn tval))
			;; 	  (syval (yfunc yval)))
			;;      (vg:add-obj-to-comp
			;;       cmp 
			;;       (vg:make-rect-obj (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
			;; 			fill-color: stdcolor))))
			;;  dat)


			)))) ;; for each data point in the series
	      (hash-table-keys alldat)))))
     cfg)))

	 
;; run times tab
;;
(define (dashboard:run-times-tab-layout-updater commondat tabdat tab-num)
  ;; each test is an object in the run component
  ;; each run is a component
  ;; all runs stored in runslib library







>
>
|


>







2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
			;; 	  (stval (tfn tval))
			;; 	  (syval (yfunc yval)))
			;;      (vg:add-obj-to-comp
			;;       cmp 
			;;       (vg:make-rect-obj (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
			;; 			fill-color: stdcolor))))
			;;  dat)
			))
                  (iup:redraw hb1 #:children? #t)
                  (iup:refresh hb1))) ;; for each data point in the series
	      (hash-table-keys alldat)))))
     cfg)))

	 
;; run times tab
;;
(define (dashboard:run-times-tab-layout-updater commondat tabdat tab-num)
  ;; each test is an object in the run component
  ;; each run is a component
  ;; all runs stored in runslib library