Overview
| Comment: | Another tweak to how -itempatt works with new matching. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.505 |
| Files: | files | file ages | folders |
| SHA1: |
273fe5758e494f3b045df59b5345fae3 |
| User & Date: | mrwellan on 2012-10-17 15:21:41 |
| Other Links: | manifest | tags |
Context
|
2012-10-17
| ||
| 20:11 | Tweaked delays to reduce db load. Shrunk maxretries to match check-in: da9a8edadb user: mrwellan tags: trunk, v1.507 | |
| 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 | |
Changes
Modified megatest.scm from [93aad1ce68] to [b816eb81d1].
| ︙ | ︙ | |||
224 225 226 227 228 229 230 |
(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)
| | | 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 |
(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 (not (substring-index "/" str))
(conc str "/" patt)
str))
strlst)
",")))
;; to try and not burden Kim too much...
(if (args:get-arg "-itempatt")
|
| ︙ | ︙ |