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 ","))))
|