Overview
Comment: | More clean up |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | multi-area |
Files: | files | file ages | folders |
SHA1: |
3eb16c4cd988e55b34f49fd94ddfdb05 |
User & Date: | mrwellan on 2015-04-08 18:22:52 |
Other Links: | branch diff | manifest | tags |
Context
2015-04-08
| ||
23:20 | Back to having the dashboard compile and start check-in: 133c9d4183 user: matt tags: multi-area | |
18:22 | More clean up check-in: 3eb16c4cd9 user: mrwellan tags: multi-area | |
2015-04-07
| ||
09:07 | Stuff eh. On the shuttle check-in: 5baad3fe0b user: matt tags: multi-area | |
Changes
Modified common.scm from [609c3adc2f] to [5db22c5710].
︙ | |||
34 35 36 37 38 39 40 | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | - - - - - - - - - - + + + + + + + + + + + | (debug:print 0 "ERROR: bad value for setenv, key=" key ", value=" val))) (define home (getenv "HOME")) (define user (getenv "USER")) ;; GLOBAL GLETCHES (define-record megatest:area |
︙ |
Modified dashboard.scm from [42ca30b425] to [50bbb611aa].
︙ | |||
29 30 31 32 33 34 35 | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | - + | (declare (uses configf)) (include "common_records.scm") (include "db_records.scm") (include "key_records.scm") (define help (conc |
︙ | |||
52 53 54 55 56 57 58 | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | - + - - - - - - - - - - - - - - - - - | (argv) (list "-group" ;; display this group of areas "-debug" ) (list "-h" "-v" "-q" |
︙ | |||
198 199 200 201 202 203 204 | 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 | - + | (list setup-matrix jobtools-matrix validvals-matrix envovrd-matrix)) (iup:attribute-set! validvals-matrix "WIDTH1" "290") (iup:attribute-set! envovrd-matrix "WIDTH1" "290") (iup:vbox (iup:hbox |
︙ | |||
248 249 250 251 252 253 254 | 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 | - + | (iup:frame #:title "Validvalues" validvals-matrix) )))) (iup:attribute-set! tabs "TABTITLE0" "Required settings") (iup:attribute-set! tabs "TABTITLE1" "Optional settings") tabs)) |
︙ | |||
356 357 358 359 360 361 362 | 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 | - - + + | (lambda (mat) ;; (iup:attribute-set! mat "0:1" "Value") ;; (iup:attribute-set! mat "0:0" "Var") (iup:attribute-set! mat "HEIGHT0" 0) (iup:attribute-set! mat "ALIGNMENT1" "ALEFT") ;; (iup:attribute-set! mat "FIXTOTEXT" "C1") (iup:attribute-set! mat "RESIZEMATRIX" "YES")) |
︙ | |||
404 405 406 407 408 409 410 | 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 | - + - - - - - - + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + | keys) (iup:attribute-set! mat "REDRAW" "ALL"))) (list (list run-info-matrix '("Run Id" "Target" "Runname" "Run Start Time" )) (list test-info-matrix '("Test Id" "Testname" "Itempath" "State" "Status" "Test Start Time" "Comment")) (list test-run-matrix '("Hostname" "Host info" "Disk Free" "CPU Load" "Run Duration")) (list meta-dat-matrix '("Author" "Owner" "Last Reviewed" "Tags" "Description")))) |
︙ | |||
476 477 478 479 480 481 482 | 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 | - + | (run-id (db:test-get-run_id test-data)) (targ/runname (hash-table-ref/default (dboard:data-get-run-keys *data*) run-id '())) (target (if (null? targ/runname) "" (string-intersperse (reverse (cdr (reverse targ/runname))) "/"))) (runname (if (null? targ/runname) "" (car (cdr targ/runname)))) (steps-dat (tests:get-compressed-steps *dbstruct-local* run-id test-id))) |
︙ | |||
523 524 525 526 527 528 529 | 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 | - - - + + + - + | (db:test-get-uname test-data) (db:test-get-diskfree test-data) (db:test-get-cpuload test-data) (seconds->hr-min-sec (db:test-get-run_duration test-data))) (make-list 5 ""))) )) (dcommon:populate-steps steps-dat steps-matrix)))))) |
︙ | |||
566 567 568 569 570 571 572 | 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 | - + - + | (iup:hbox)) ;;====================================================================== ;; D A S H B O A R D ;;====================================================================== (define (make-area-panel data area-name window-id) |
︙ | |||
592 593 594 595 596 597 598 | 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 | - + - - - - - - - - - - - - + + + + + + + + + + + + + - - - + + + - - - - - + + + + + + + + + + | (area-panels (map (lambda (aname) (make-area-panel data aname window-id)) area-names)) (tabtop (apply iup:tabs areas))) (let loop ((index 0) (hed (car area-names)) (tal (cdr area-names))) |
︙ |
Modified dcommon.scm from [f5b7561c68] to [5d6b4a68c6].
︙ | |||
44 45 46 47 48 49 50 | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | - - - - | areas ;; hash of areaname -> area-rec current-window-id ) (define-record dboard:area tree matrix |
︙ |