Overview
| Comment: | updated code that maps items to emit error in case of itemmap directive having invalid regex / mismatched backreferences in replacement that previously caused silent exceptions and only clue was ZERO_ITEMS status |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
90452f880b21795692a2ac3d5113aefc |
| User & Date: | bjbarcla on 2018-02-20 10:58:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-02-21
| ||
| 12:48 | Added arch brainstorming file and a fix to the clean target. check-in: c2d166b052 user: mrwellan tags: v1.65 | |
|
2018-02-20
| ||
| 15:50 | fixed success message to print actual path of genrated path check-in: f8b993531b user: pjhatwal tags: v1.65 | |
| 10:58 | updated code that maps items to emit error in case of itemmap directive having invalid regex / mismatched backreferences in replacement that previously caused silent exceptions and only clue was ZERO_ITEMS status check-in: 90452f880b user: bjbarcla tags: v1.65 | |
|
2018-02-19
| ||
| 09:05 | Fixed missing text in COPYING file. check-in: c280060f24 user: matt tags: v1.65 | |
Changes
Modified db.scm from [155dddacd7] to [6cb6757c5a].
| ︙ | ︙ | |||
4257 4258 4259 4260 4261 4262 4263 4264 4265 |
(if (null? all-patts)
item-path
(let loop ((hed (car all-patts))
(tal (cdr all-patts))
(res item-path))
(let* ((parts (string-split hed))
(patt (car parts))
(repl (if (> (length parts) 1)(cadr parts) ""))
(newr (if (and patt repl)
| > > > > > > > > > | > > > > | > > > | 4257 4258 4259 4260 4261 4262 4263 4264 4265 4266 4267 4268 4269 4270 4271 4272 4273 4274 4275 4276 4277 4278 4279 4280 4281 4282 4283 4284 4285 4286 4287 4288 4289 4290 4291 4292 4293 4294 4295 |
(if (null? all-patts)
item-path
(let loop ((hed (car all-patts))
(tal (cdr all-patts))
(res item-path))
(let* ((parts (string-split hed))
(patt (car parts))
(repl (if (> (length parts) 1)(cadr parts) ""))
(newr (if (and patt repl)
(begin
(handle-exceptions
exn
(begin
(debug:print 0 *default-log-port*
"WARNING: itemmap has problem \"" itemmap "\", patt: " patt ", repl: " repl)
res)
(string-substitute patt repl res))
)
(begin
(debug:print 0 *default-log-port*
"WARNING: itemmap has problem \"" itemmap "\", patt: " patt ", repl: " repl)
res))))
(if (null? tal)
newr
(loop (car tal)(cdr tal) newr)))))))
;; the new prereqs calculation, looks also at itempath if specified
;; all prereqs must be met
;; if prereq test with itempath='' is COMPLETED and PASS, WARN, CHECK, or WAIVED then prereq is met
;; if prereq test with itempath=ref-item-path and COMPLETED with PASS, WARN, CHECK, or WAIVED then prereq is met
;;
;; Note: mode 'normal means that tests must be COMPLETED and ok (i.e. PASS, WARN, CHECK, SKIP or WAIVED)
|
| ︙ | ︙ |