Overview
| Comment: | Cherry-picked b04e |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6512a |
| Files: | files | file ages | folders |
| SHA1: |
52591d24f412f3dedf650c931009dfe9 |
| User & Date: | mrwellan on 2018-08-01 10:58:32 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-08-10
| ||
| 11:52 | Trimmed mtutil chattiness Leaf check-in: 7a8dbd3299 user: jmoon18 tags: v1.6512a | |
|
2018-08-01
| ||
| 10:58 | Cherry-picked b04e check-in: 52591d24f4 user: mrwellan tags: v1.6512a | |
|
2018-07-02
| ||
| 11:44 | Updated megatest version file check-in: fb7e6638f8 user: jmoon18 tags: v1.65, v1.6512 | |
Changes
Modified common.scm from [2027cc1cac] to [eee99cc654].
| ︙ | ︙ | |||
57 58 59 60 61 62 63 |
(print-error-message exn) ))))
(debug:print-info 0 *default-log-port* " -- continuing after nonfatal condition...")
#f)
(thunk)))
(define getenv get-environment-variable)
(define (safe-setenv key val)
| | | | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
(print-error-message exn) ))))
(debug:print-info 0 *default-log-port* " -- continuing after nonfatal condition...")
#f)
(thunk)))
(define getenv get-environment-variable)
(define (safe-setenv key val)
(if (or (substring-index "!" key) (substring-index ":" key)) ;; variables containing : are for internal use and cannot be environment variables.
(debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"")
(if (and (string? val)
(string? key))
(handle-exceptions
exn
(debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)
(setenv key val))
(debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val))))
|
| ︙ | ︙ |
Modified launch.scm from [46cdbaf4d6] to [7244e4f2ae].
| ︙ | ︙ | |||
652 653 654 655 656 657 658 | (lambda (section) (for-each (lambda (varval) (let ((var (car varval)) (val (cadr varval))) (if (and (string? var)(string? val)) (begin | | | 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 |
(lambda (section)
(for-each
(lambda (varval)
(let ((var (car varval))
(val (cadr varval)))
(if (and (string? var)(string? val))
(begin
(safe-setenv var (config:eval-string-in-environment val))) ;; val)
(debug:print-error 0 *default-log-port* "bad variable spec, " var "=" val))))
(configf:get-section rconfig section)))
(list "default" target)))
;;(bb-check-path msg: "launch:execute post block 1")
;; NFS might not have propagated the directory meta data to the run host - give it time if needed
(let loop ((count 0))
|
| ︙ | ︙ |
Modified mtut.scm from [9ba5c38876] to [8ce8acd5f2].
| ︙ | ︙ | |||
1025 1026 1027 1028 1029 1030 1031 |
;;(target . ,(list new-target)) ;; overriding with result from runing the script
))
(aval (or (configf:lookup mtconf "areas" area) ""))
(aval-alist (common:val->alist aval))
(targets (map-targets mtconf aval-alist runkey area contour)))
(pp targets)
| | | 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 |
;;(target . ,(list new-target)) ;; overriding with result from runing the script
))
(aval (or (configf:lookup mtconf "areas" area) ""))
(aval-alist (common:val->alist aval))
(targets (map-targets mtconf aval-alist runkey area contour)))
(pp targets)
(for-each (lambda (target) (create-run-pkt mtconf action area runkey target new-runname mode-patt
tag-expr pktsdir reason contour sched dbdest append
runtrans)) targets)
;;(create-run-pkt mtconf action area runkey target runname
;; pktsdir reason contour dbdest append
;; runtrans)
(print "key-msg: " key-msg)
|
| ︙ | ︙ |