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 506988b6 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

plot: Size plots shows space savings rather than raw size.

* parse-log.scm (parse-log): Add 'input-size' entry.
* plot.scm (make-size-plot): Plot space savings rather than the raw size.
parent 99029791
......@@ -97,6 +97,8 @@ LINE-PROC on each line, and returning the result."
(put result 'block-indexer indexer))
(("^ requested block size: ([[:digit:]]+)" number)
(put result 'block-size (string->number number)))
(("^ input size: ([[:digit:]]+)" number)
(put result 'input-size (string->number number)))
(("^ actual data size.*: ([[:digit:]]+) bytes" number)
(put result 'size (string->number number)))
(("^ throughput: +([0-9.]+)" number)
......
......@@ -131,13 +131,15 @@ DATA is an alist as returned by by 'parse-log'."
(make-performance-chart #:title "Resulting data size for each configuration"
#:box-width 20
#:data (data->performance-series
data (lambda (run)
(/ (assoc-ref run 'size)
1024.)))
data
(lambda (run)
(alist-let run ((size size)
(input-size input-size))
(* 100. (/ size input-size)))))
#:chart-height 400
#:chart-params
`(#:x-axis-label "Configuration"
#:y-axis-label "Size (KiB/s)"
#:y-axis-label "Space savings (%)"
#:make-surface ,(pdf-surface file))))
(cairo-surface-finish surface)
......
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