distro: Add package that builds a tarball of the bootstrap Guile.

* distro/packages/base.scm (%guile-static-stripped): New variable.
This commit is contained in:
Ludovic Courtès 2012-10-17 17:52:12 +02:00
parent eb1db76e34
commit 9735a7b6ea

View file

@ -2101,4 +2101,32 @@ (define (copy-recursively source destination)
#t))))
(inputs `(("guile" ,%guile-static)))))
(define %guile-bootstrap-tarball
;; A tarball with the statically-linked, relocatable Guile.
(package (inherit %guile-static)
(name "guile-bootstrap-tarball")
(build-system trivial-build-system)
(inputs `(("tar" ,tar)
("xz" ,xz)
("guile" ,%guile-static-stripped)))
(arguments
(lambda (system)
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let ((out (assoc-ref %outputs "out"))
(guile (assoc-ref %build-inputs "guile"))
(tar (assoc-ref %build-inputs "tar"))
(xz (assoc-ref %build-inputs "xz")))
(mkdir out)
(set-path-environment-variable "PATH" '("bin") (list tar xz))
(with-directory-excursion guile
(zero? (system* "tar" "cJvf"
(string-append out "/guile-bootstrap-"
,(package-version %guile-static)
"-" ,system
".tar.xz")
"."))))))))))
;;; base.scm ends here