8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(declare (unit runconfig))
(declare (uses common))
(include "common_records.scm")
(define (setup-env-defaults db fname run-id already-seen #!key (environ-patt #f)(change-env #t))
(let* ((keys (db:get-keys db))
(keyvals (if run-id (db:get-key-vals db run-id) #f))
(thekey (if keyvals (string-intersperse (map (lambda (x)(if x x "-na-")) keyvals) "/")
(if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(args:get-arg "-target")
(begin
(debug:print 0 "ERROR: setup-env-defaults called with no run-id or -target or -reqtarg")
|
|
>
|
|
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(declare (unit runconfig))
(declare (uses common))
(include "common_records.scm")
;; (define (setup-env-defaults db fname run-id already-seen #!key (environ-patt #f)(change-env #t))
(define (setup-env-defaults fname run-id already-seen keys keyvals #!key (environ-patt #f)(change-env #t))
(let* (;; (keys (db:get-keys db))
;; (keyvals (if run-id (db:get-key-vals db run-id) #f))
(thekey (if keyvals (string-intersperse (map (lambda (x)(if x x "-na-")) keyvals) "/")
(if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(args:get-arg "-target")
(begin
(debug:print 0 "ERROR: setup-env-defaults called with no run-id or -target or -reqtarg")
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
(for-each (lambda (fullkey)
(debug:print 2 (format #f "~20a ~a\n" fullkey (hash-table-ref/default whatfound fullkey 0))))
sections)
(debug:print 2 "---")
(set! *already-seen-runconfig-info* #t)))
finaldat))
(define (set-run-config-vars db run-id)
(let ((runconfigf (conc *toppath* "/runconfigs.config"))
(targ (or (args:get-arg "-target")
(args:get-arg "-reqtarg")
(db:get-target db run-id))))
(if (file-exists? runconfigf)
(setup-env-defaults db runconfigf run-id #t environ-patt: (conc "(default"
(if targ
(conc "|" targ ")")
")")))
(debug:print 0 "WARNING: You do not have a run config file: " runconfigf))))
|
|
>
|
|
|
|
|
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
(for-each (lambda (fullkey)
(debug:print 2 (format #f "~20a ~a\n" fullkey (hash-table-ref/default whatfound fullkey 0))))
sections)
(debug:print 2 "---")
(set! *already-seen-runconfig-info* #t)))
finaldat))
(define (set-run-config-vars db run-id keys keyvals)
(let ((runconfigf (conc *toppath* "/runconfigs.config"))
(targ (or (args:get-arg "-target")
(args:get-arg "-reqtarg")
(db:get-target db run-id))))
(if (file-exists? runconfigf)
(setup-env-defaults runconfigf run-id #t keys keyvals
environ-patt: (conc "(default"
(if targ
(conc "|" targ ")")
")")))
(debug:print 0 "WARNING: You do not have a run config file: " runconfigf))))
|