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

Add the "lout-distributions" file set.

* guix.scm (lout-tarball): New procedure.
(file-set/lout-distributions): New variable.
(file-set-cache): Use it.
(evaluation): Add tar to $PATH and add the "built-in:lout-distributions"
file set.
parent 4393f27f
......@@ -43,6 +43,38 @@
(base32
"1mq83dzh6r27yrmb1qsclgzxk9by7pkqd1vwkhy4r02gfxzb064y")))))
(define (lout-tarball file hash)
(origin
(method url-fetch)
(uri (string-append "mirror://savannah/lout/" file))
(sha256 (base32 hash))))
(define file-set/lout-distributions
;; The "lout-distributions" file set.
(map (match-lambda
((file sha256)
(lout-tarball file sha256)))
'(("lout-3.20.tar.gz"
"0swj8jk2l3pkw1ryrlscgpbpxz0p0bx544cz0hkx845lp18bhqmg")
("lout-3.21.tar.gz"
"1kmp164i33kj0h1vng44bdwqqgqc9lw70qlnrz8mpks7yz3ng109")
("lout-3.22.tar.gz"
"1hpzqxl3nxbk1smvlij2dzkks3qw45y76kbcjin40xwpzwf97g6q")
("lout-3.23.tar.gz"
"0fpxyb3d60cyybjf0h1p2nhk4g71sg7l4a9jmadakdjs0qwqm227")
("lout-3.24.tar.gz"
"15fj8ylai86k0a8ds9scrn9py5zbbm21ibjljz7z84jbq7cgnhs9")
("lout-3.25.tar.gz"
"1zz28pnp75y2dsn7q8zg4mshfivk7263zg0a84iv8vqm5x8c7ihn")
("lout-3.26.tar.gz"
"1yaq47ysy0rjjabj1g64v2x73gk7hc7lx45byfisgc3zhvkn4fxa")
("lout-3.27.tar.gz"
"0cfr5b35834hrrf57l71hzhxdb2lxx4g1w761za6s5fgk5p3zqmj")
("lout-3.28.tar.gz"
"1yia1kyhjc271nb67c9cbcsplgdvjwbcs2zbg43q6zy3zbnpwvfg")
("lout-3.29.tar.gz"
"0pzplr76wc4rvspv2z8ms1k2khwnfvrm6lcivwrshjw1hdf4hhg9"))))
(define file-set-cache
;; Cache for use as ~/.chop-eval/cache/web.
(computed-file "file-set-cache"
......@@ -53,7 +85,13 @@
(for-each (lambda (file)
(install-file file #$output))
(find-files #$file-set/gnu-manuals
"\\.ps.gz"))))))
"\\.ps.gz"))
(for-each (lambda (file)
(let* ((base (strip-store-file-name file))
(cached (string-append #$output "/"
base)))
(copy-file file cached)))
'#$file-set/lout-distributions)))))
;;;
......@@ -98,6 +136,7 @@
#$(specification->package "coreutils")
#$(specification->package "bash")
#$(specification->package "gzip")
#$(specification->package "tar")
;; Fun fact: if 'system*' fails to
;; execv(2), the child process keeps
......@@ -124,10 +163,10 @@
(copy-recursively #$file-set-cache
".chop-eval/cache/web")
;; FIXME: For now, limit to that one file set.
;; FIXME: For now, limit to these file sets.
(substitute* "run.sh"
(("^file_sets=.*")
"file_sets=built-in:gnu-manuals-postscript\n"))
"file_sets=\"built-in:gnu-manuals-postscript built-in:lout-distributions\"\n"))
;; Capture stdout, which contains benchmarking results, for
;; post-processing.
......
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