Differences From Artifact [2b672145e0]:
- File utils/plot-code.scm — part of check-in [da673f0c80] at 2017-08-21 18:10:51 on branch v1.64-areas-dashboard — Fixed plot-code.scm to work when compiled. (user: mrwellan, size: 5732) [annotate] [blame] [check-ins using] [more...]
To Artifact [6d50d1bd96]:
- File utils/plot-code.scm — part of check-in [d654343818] at 2017-08-22 20:56:32 on branch v1.64-areas-dashboard — Added usage to plot-code. Removed defunct switch -use-db-cache from dashboard. (user: matt, size: 5910) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | 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 ","))))
|
| ︙ |