Megatest

Check-in [0f21dbf014]
Login
Overview
Comment:Merged in d6543
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | areas-work-merge
Files: files | file ages | folders
SHA1: 0f21dbf014d71b8639946e5851c9051bb0af4167
User & Date: mrwellan on 2017-11-17 16:02:58
Other Links: branch diff | manifest | tags
Context
2017-11-17
16:10
Merged 1f5e check-in: b289de052e user: mrwellan tags: areas-work-merge (unpublished)
16:02
Merged in d6543 check-in: 0f21dbf014 user: mrwellan tags: areas-work-merge (unpublished)
15:52
Pulled in da67 check-in: 6db9365e99 user: mrwellan tags: areas-work-merge (unpublished)
2017-08-22
20:56
Added usage to plot-code. Removed defunct switch -use-db-cache from dashboard. check-in: d654343818 user: matt tags: v1.64-areas-dashboard
Changes

Modified dashboard.scm from [f1ca685f34] to [7bc58d3172].

52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
  version " megatest-version "
  license GPL, Copyright (C) Matt Welland 2012-2016

Usage: dashboard [options]
  -h                    : this help
  -test run-id,test-id  : control test identified by testid
  -skip-version-check   : skip the version check
  -use-db-cache         : access database via cache 

Misc
  -rows R         : set number of rows
  -cols C         : set number of columns
"))

;;   -server host:port     : connect to host:port instead of db access







<







52
53
54
55
56
57
58

59
60
61
62
63
64
65
  version " megatest-version "
  license GPL, Copyright (C) Matt Welland 2012-2016

Usage: dashboard [options]
  -h                    : this help
  -test run-id,test-id  : control test identified by testid
  -skip-version-check   : skip the version check


Misc
  -rows R         : set number of rows
  -cols C         : set number of columns
"))

;;   -server host:port     : connect to host:port instead of db access
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
			) 
		 (list  "-h"
			"-use-server"
			"-guimonitor"
			"-main"
			"-v"
			"-q"
			"-use-db-cache"
			"-skip-version-check"
			"-repl"
                        "-rh5.11" ;; fix to allow running on rh5.11
			)
		 args:arg-hash
		 0))








|







80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
			) 
		 (list  "-h"
			"-use-server"
			"-guimonitor"
			"-main"
			"-v"
			"-q"
			;; "-use-db-cache"
			"-skip-version-check"
			"-repl"
                        "-rh5.11" ;; fix to allow running on rh5.11
			)
		 args:arg-hash
		 0))

Modified utils/plot-code.scm from [2b672145e0] to [6d50d1bd96].

11
12
13
14
15
16
17





18
19
20
21
22
23
24

;;                 1                   2        remainder
;; plot-code file1.scm,file2.scm... fn-regex file1.scm file2.scm ...

(define targs #f)

(define args (argv))





(define files (cdddr args))

(let ((targdat (cadr args)))
  (if (equal? targdat "-")
      (set! targs files)
      (set! targs (string-split targdat ","))))








>
>
>
>
>







11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

;;                 1                   2        remainder
;; plot-code file1.scm,file2.scm... fn-regex file1.scm file2.scm ...

(define targs #f)

(define args (argv))
(if (< (length args) 2) ;; no args provided
    (begin
       (print "Usage: plot-code file1.scm,file2.scm... 'your.*regex' file3.scm file4.scm file5.scm  ...")
       (exit)))

(define files (cdddr args))

(let ((targdat (cadr args)))
  (if (equal? targdat "-")
      (set! targs files)
      (set! targs (string-split targdat ","))))