Overview
| Comment: | Added precmd to wildcard run calls |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.66 |
| Files: | files | file ages | folders |
| SHA1: |
fd34fd6bb564eeafeafdc934351a845a |
| User & Date: | matt on 2020-06-15 21:58:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-06-17
| ||
| 00:04 | Updated manual with TODO/road map check-in: 27469a2e6e user: matt tags: v1.66 | |
|
2020-06-15
| ||
| 21:58 | Added precmd to wildcard run calls check-in: fd34fd6bb5 user: matt tags: v1.66 | |
|
2020-06-14
| ||
| 23:49 | Added support for wildcards in target and runname for -run* operations check-in: 1f37773a2d user: matt tags: v1.66 | |
Changes
Modified megatest.scm from [081aaa6006] to [7055cf560a].
| ︙ | ︙ | |||
1799 1800 1801 1802 1803 1804 1805 | (string-search "%" runname)) ;; we are being asked to re-run multiple runs (let* ((run-specs (rmt:simple-get-runs runname #f #f target #f))) ;; list of simple-run records (debug:print-info 0 *default-log-port* "Pattern supplied for target or runname with " (length run-specs) " matches round. Running each in turn.") (if (null? run-specs) (debug:print 0 *default-log-port* "WARNING: No runs match target " target " and runname " runname)) (for-each (lambda (spec) | > > > | | | | | | | | 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 | (string-search "%" runname)) ;; we are being asked to re-run multiple runs (let* ((run-specs (rmt:simple-get-runs runname #f #f target #f))) ;; list of simple-run records (debug:print-info 0 *default-log-port* "Pattern supplied for target or runname with " (length run-specs) " matches round. Running each in turn.") (if (null? run-specs) (debug:print 0 *default-log-port* "WARNING: No runs match target " target " and runname " runname)) (for-each (lambda (spec) (let* ((precmd (if (args:get-arg "-precmd")(conc (args:get-arg "-precmd") " ") "")) (newcmdline (conc precmd (string-substitute (conc "target " target) (conc "target " (simple-run-target spec)) (string-substitute (conc "runname " runname) (conc "runname " (simple-run-runname spec)) orig-cmdline))))) (debug:print 0 *default-log-port* "ORIG: " orig-cmdline) (debug:print 0 *default-log-port* "NEW: " newcmdline) (system newcmdline))) run-specs)) (handle-run-requests target runname keys keyvals need-clean)))))) ;;====================================================================== |
| ︙ | ︙ |