MAJ terminée. Nous sommes passés en version 14.6.2 . Pour consulter les "releases notes" associées c'est ici :

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

Return PDF charts.

* guix.scm (benchmark-charts): New variable.  Return it.
parent 2e0cc14b
......@@ -20,7 +20,10 @@
(use-modules (guix) (gnu)
(guix git-download)
(gnu packages gtk)
(gnu packages guile)
(gnu packages guile-xyz)
(gnu packages plotutils)
(past packages backup)
(srfi srfi-1)
(ice-9 match))
......@@ -234,6 +237,7 @@ built-in:lout-distributions ogg-vorbis mailbox\"\n"))
(computed-file "evaluation" build)))
(define benchmark-results
;; Performance data, as an association list ("alist").
(computed-file "benchmark-results.txt"
(with-imported-modules '((parse-log))
......@@ -250,7 +254,25 @@ built-in:lout-distributions ogg-vorbis mailbox\"\n"))
(display ";; Benchmarking results.\n\n" port)
(pretty-print result port)))))))
(define benchmark-charts
;; PDF charts showing the throughput and size for each configuration and
;; file set.
(computed-file "benchmark-charts"
(with-extensions (list guile-cairo guile-charting)
(with-imported-modules '((plot)
(guix build utils))
(use-modules (plot)
(guix build utils))
(let ((data (call-with-input-file #$benchmark-results
(make-throughput-plot data "throughput.pdf")
(make-size-plot data "size.pdf")
(install-file "throughput.pdf" #$output)
(install-file "size.pdf" #$output)))))))
;; Add "." to the load path so that 'parse-log.scm' is found.
(add-to-load-path ".")
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