Overview
| Comment: | Missing function |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-real-new-runs-view |
| Files: | files | file ages | folders |
| SHA1: |
9e26eb744c85cc56a8794325470c2f1d |
| User & Date: | matt on 2021-02-21 11:25:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-22
| ||
| 00:01 | More function shuffling check-in: b705777b20 user: matt tags: v1.65-real-new-runs-view | |
|
2021-02-21
| ||
| 11:25 | Missing function check-in: 9e26eb744c user: matt tags: v1.65-real-new-runs-view | |
|
2021-02-20
| ||
| 23:27 | Added back couple missed fucntions for ezsteps check-in: e748d20487 user: matt tags: v1.65-real-new-runs-view | |
Changes
Modified commonmod.scm from [fabb765ce1] to [ed030edf10].
| ︙ | |||
2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 | 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
(print (if (or (member key ignorevars)
(string-search whitesp key)
(string-search ":" key)) ;; internal only values to be skipped.
"# export "
"export ")
key "=" delim (mungeval val) delim)))
envvars)))))
;;======================================================================
;;
(define (common:propogate-mt-vars-to-subrun proc propogate-vars)
(let ((vars (make-hash-table))
(var-patt "^MT_.*"))
(for-each
(lambda (vardat) ;; each env var
;(for-each
;(lambda (var-patt)
(if (string-match var-patt (car vardat))
(let ((var (car vardat))
(val (cdr vardat)))
(hash-table-set! vars var val)
(if (member var propogate-vars)
(begin
(print var " " (string-substitute "MT_" "PARENT_" var))
(setenv (string-substitute "MT_" "PARENT_" var) val)))
(unsetenv var))))
; var-patts))
(get-environment-variables))
(cond
((string? proc)(system proc))
(proc (proc)))
(hash-table-for-each
vars
(lambda (var val)
(if (member var propogate-vars)
(unsetenv (string-substitute "MT_" "PARENT_" var)))
(setenv var val)))
vars))
(define (common:get-param-mapping #!key (flavor #f))
"returns alist mapping string keys in testconfig/subrun to megatest command line switches; if flavor is switch-symbol, maps tcmt symbolic switches to megatest switches"
(let ((default '(("tag-expr" . "-tagexpr")
("mode-patt" . "-modepatt")
("run-name" . "-runname")
|
| ︙ |