Overview
| Comment: | update mtut to use coalesced param mapper |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | 1.65-subrun-ancilliary-usecases |
| Files: | files | file ages | folders |
| SHA1: |
bb9a5850abab77c03ad61c6ad04728f5 |
| User & Date: | bjbarcla on 2017-12-22 16:58:00 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-22
| ||
| 17:50 | wip check-in: ce123f377a user: bjbarcla tags: 1.65-subrun-ancilliary-usecases | |
| 16:58 | update mtut to use coalesced param mapper check-in: bb9a5850ab user: bjbarcla tags: 1.65-subrun-ancilliary-usecases | |
|
2017-12-20
| ||
| 17:53 | wip check-in: ddb7261be3 user: bjbarcla tags: 1.65-subrun-ancilliary-usecases | |
Changes
Modified mtut.scm from [fc44892821] to [381ac4c5d5].
| ︙ | ︙ | |||
253 254 255 256 257 258 259 | ;; U T I L S ;;====================================================================== ;; given a mtutil param, return the old megatest equivalent ;; (define (param-translate param) (or (alist-ref (string->symbol param) | < < < | < < | 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 |
;; U T I L S
;;======================================================================
;; given a mtutil param, return the old megatest equivalent
;;
(define (param-translate param)
(or (alist-ref (string->symbol param)
(common:get-param-mapping flavor: 'switch-symbol))
param))
(define (val->alist val)
(let ((val-list (string-split-fields ";\\s*" val #:infix)))
(if val-list
(map (lambda (x)
(let ((f (string-split-fields "\\s*=\\s*" x #:infix)))
|
| ︙ | ︙ |