Megatest

Check-in [9e26eb744c]
Login
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: 9e26eb744c85cc56a8794325470c2f1d3b9aca43
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")