Overview
| Comment: | Better emulation of old -itempatt behaviour |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.505 |
| Files: | files | file ages | folders |
| SHA1: |
fbe644714427b5e28351e3f0e6dcaf1c |
| User & Date: | mrwellan on 2012-10-17 15:12:07 |
| Other Links: | manifest | tags |
Context
|
2012-10-17
| ||
| 15:21 | Another tweak to how -itempatt works with new matching. check-in: 273fe5758e user: mrwellan tags: trunk, v1.505 | |
| 15:12 | Better emulation of old -itempatt behaviour check-in: fbe6447144 user: mrwellan tags: trunk, v1.505 | |
| 14:19 | Better emulation of old -itempatt behaviour check-in: ed14608d1b user: mrwellan tags: trunk, v1.504 | |
Changes
Modified megatest.scm from [be73152413] to [93aad1ce68].
| ︙ | ︙ | |||
222 223 224 225 226 227 228 |
(if (> *verbosity* 3) ;; we are obviously debugging
(set! open-run-close open-run-close-no-exception-handling))
;; a,b,c % => a/%,b/%,c/%
(define (tack-on-patt srcstr patt)
(let ((strlst (string-split srcstr ",")))
| | > > > > > > | 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 |
(if (> *verbosity* 3) ;; we are obviously debugging
(set! open-run-close open-run-close-no-exception-handling))
;; a,b,c % => a/%,b/%,c/%
(define (tack-on-patt srcstr patt)
(let ((strlst (string-split srcstr ",")))
(string-intersperse
(map (lambda (str)
(if (substring-index "/" str)
(conc str "/" patt)
str))
strlst)
",")))
;; to try and not burden Kim too much...
(if (args:get-arg "-itempatt")
(let ((old-testpatt (args:get-arg "-testpatt")))
;; (debug:print 0 "ERROR: parameter \"-itempatt\" has been deprecated. For now I will tweak your -testpatt for you")
(if (args:get-arg "-testpatt")
(hash-table-set! args:arg-hash "-testpatt" (tack-on-patt old-testpatt (args:get-arg "-itempatt"))))
|
| ︙ | ︙ |