Overview
| Comment: | Added switch to set number of rows in a dashboard screen |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4d44659fb3d87fe1edcc5eb82c50d7fd |
| User & Date: | mrwellan on 2011-06-16 14:01:35 |
| Other Links: | manifest | tags |
Context
|
2011-06-26
| ||
| 23:38 | Merged refactor of dashboard to trunk check-in: d73b2c1642 user: mrwellan tags: trunk | |
|
2011-06-18
| ||
| 13:20 | Added PATH and DISPLAY to nbfake check-in: 6f0c4b417a user: mrwellan tags: experimental | |
|
2011-06-16
| ||
| 14:01 | Added switch to set number of rows in a dashboard screen check-in: 4d44659fb3 user: mrwellan tags: trunk | |
| 10:15 | Fixed annoying 'remove steps on re-run' bug check-in: 51810ab5ab user: mrwellan tags: trunk | |
Changes
Modified dashboard.scm from [d72b4fee0f] to [f9bbef1e8d].
| ︙ | ︙ | |||
24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
(include "items.scm")
(include "db.scm")
(include "configf.scm")
(include "process.scm")
(include "launch.scm")
(include "runs.scm")
(include "gui.scm")
(if (not (setup-for-run))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *db* (open-db))
| > > > > > > > > > > > > > > > > > > > > > > > > > > > | 24 25 26 27 28 29 30 31 32 33 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 59 60 61 62 63 64 |
(include "items.scm")
(include "db.scm")
(include "configf.scm")
(include "process.scm")
(include "launch.scm")
(include "runs.scm")
(include "gui.scm")
(define help "
Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
version 0.1
license GPL, Copyright Matt Welland 2011
Usage: dashboard [options]
-h : this help
Misc
-rows N : set number of rows
")
;; process args
(define remargs (args:get-args
(argv)
(list "-rows"
)
(list "-h"
)
args:arg-hash
0))
(if (args:get-arg "-h")
(begin
(print help)
(exit)))
(if (not (setup-for-run))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *db* (open-db))
|
| ︙ | ︙ | |||
458 459 460 461 462 463 464 |
(iup:vbox
;; the header
(apply iup:hbox (reverse hdrlst))
(apply iup:hbox (reverse bdylst))))))
controls)))
(vector lftcol header runsvec)))
| > > > > > > | | 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 |
(iup:vbox
;; the header
(apply iup:hbox (reverse hdrlst))
(apply iup:hbox (reverse bdylst))))))
controls)))
(vector lftcol header runsvec)))
(if (or (args:get-arg "-rows")
(get-environment-variable "DASHBOARDROWS" ))
(begin
(set! *num-tests* (string->number (or (args:get-arg "-rows")
(get-environment-variable "DASHBOARDROWS"))))
(update-rundat "%" *num-runs* "%" "%"))
(set! *num-tests* (min (max (update-rundat "%" *num-runs* "%" "%") 8) 20)))
(set! uidat (make-dashboard-buttons *num-runs* *num-tests* dbkeys))
;; (megatest-dashboard)
(define (run-update other-thread)
(let loop ((i 0))
(thread-sleep! 0.1)
|
| ︙ | ︙ |
Modified utils/nbfake from [81bcd8f6dc] to [033159a590].
1 2 3 4 5 6 7 8 9 10 11 | #!/bin/bash # ssh localhost "nohup $* > nbfake.log 2> nbfake.err < /dev/null" if [[ $TARGETHOST == "" ]]; then TARGETHOST=localhost fi # Can't always trust $PWD CURRWD=`pwd` | | | 1 2 3 4 5 6 7 8 9 10 11 12 | #!/bin/bash # ssh localhost "nohup $* > nbfake.log 2> nbfake.err < /dev/null" if [[ $TARGETHOST == "" ]]; then TARGETHOST=localhost fi # Can't always trust $PWD CURRWD=`pwd` ssh -n -f $TARGETHOST "sh -c \"cd $CURRWD; export PATH=$PATH; nohup $* > NBFAKE-`date +%GWW%V.%u_%T` 2>&1 &\"" |