Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit cc65a0bd authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

parse-log: Capture the zip method.

* parse-log.scm (parse-log): Add regexp clause to capture the zip method.
parent cefd60a3
......@@ -73,12 +73,24 @@ LINE-PROC on each line, and returning the result."
;; Add the KEY/VALUE pair to the first alist of RESULT.
(match result
((first rest ...)
`(((,key . ,value) ,@first) ,@rest))))))
`(((,key . ,value) ,@first) ,@rest)))))
(current-zip #f))
(parse/fold result '()
(("^\\*\\*\\* c=.* z=([[:graph:]]*)$" zip)
;; XXX: The input/block compression method is not printed
;; for every run, hence this ugly hack.
(begin
(set! current-zip
(match zip
("" #f)
("--zip-blocks" 'blocks)
("--zip-input" 'input)))
result))
(("^file set: ([[:graph:]]+)" file-set)
;; This is the first line of a run: add a new alist for this
;; run to RESULT.
(cons `((file-set . ,file-set)) result))
(cons `((file-set . ,file-set) (zip . ,current-zip))
result))
(("^ chopper class: ([[:graph:]]+)" chopper)
(put result 'chopper chopper))
(("^ block indexer class: ([[:graph:]]+)" indexer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment