06/35: bootstrap: Add %bootstrap-gash. WIP

[guix-commits]

janneke pushed a commit to branch wip-boot
in repository guix.

commit ac6f6dfc23105f0f80f9f90cd44837010a662cdb
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Sun Oct 28 01:24:28 2018 +0200

    bootstrap: Add %bootstrap-gash.  WIP
    
    Built with
    
        XXX5d2729d5be414669b11ab7242a4618059fe71b9e
        XXXbootstrap: Add %guile-gash-stripped, %guile-gash-bootstrap-tarball.
    
    * gnu/packages/bootstrap.scm (%bootstrap-gash): New variable.
---
 gnu/packages/bootstrap.scm | 68 +++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 67 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/bootstrap.scm b/gnu/packages/bootstrap.scm
index ee713db..f84f20e 100644
--- a/gnu/packages/bootstrap.scm
+++ b/gnu/packages/bootstrap.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès 
<address@hidden>
 ;;; Copyright © 2014, 2015, 2018, 2019 Mark H Weaver <address@hidden>
 ;;; Copyright © 2017 Efraim Flashner <address@hidden>
-;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <address@hidden>
+;;; Copyright © 2018, 2019 Jan (janneke) Nieuwenhuizen <address@hidden>
 ;;; Copyright © 2019 Carl Dong <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -48,6 +48,7 @@
             bootstrap-guile-origin
 
             %bootstrap-guile
+            %bootstrap-gash
             %bootstrap-coreutils&co
             %bootstrap-linux-libre-headers
             %bootstrap-binutils
@@ -800,6 +801,71 @@ exec ~a/bin/.gcc-wrapped -B~a/lib \
     (home-page #f)
     (license gpl3+)))
 
+(define %bootstrap-gash
+  ;; The initial Gash.  Uses .go files from a tarball typically built by
+  ;; %GASH-BOOTSTRAP-GUILE-TARBALL.
+  (package
+    (name "bootstrap-gash")
+    (version "36")
+    (source #f)
+    (build-system trivial-build-system)
+    (arguments
+     `(#:guile ,%bootstrap-guile
+       #:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils)
+                      (ice-9 match)
+                      (ice-9 popen))
+         (let ((out     (assoc-ref %outputs "out"))
+               (guile   (assoc-ref %build-inputs "guile"))
+               (tar     (assoc-ref %build-inputs "tar"))
+               (xz      (assoc-ref %build-inputs "xz"))
+               (tarball (assoc-ref %build-inputs "tarball")))
+
+           (mkdir out)
+           (copy-file tarball "binaries.tar.xz")
+           (invoke xz "-d" "binaries.tar.xz")
+           (let ((build   (getcwd))
+                 (bin     (string-append out "/bin")))
+
+           (define (rewire-script script)
+             (substitute* script
+               (("/gnu/store/[^ ]*guile-bootstrap[^/]*") guile)
+               (("/gnu/store/[^ ]*gash-bootstrap[^/]*") out)))
+
+             (with-directory-excursion out
+               (invoke tar "xvf"
+                       (string-append build "/binaries.tar")))
+             (chmod bin #o755)
+             (for-each rewire-script (find-files bin)))))))
+    (inputs
+     `(("guile" ,%bootstrap-guile)
+       ("tar" ,(bootstrap-executable "tar" (%current-system)))
+       ("xz"  ,(bootstrap-executable "xz" (%current-system)))
+       ("tarball" ,(bootstrap-origin
+                    (origin
+                      (method url-fetch)
+                      (uri (string-append
+                            "http://lilypond.org/janneke/mes/";
+                            (match (%current-system)
+                              ("x86_64-linux"
+                               
"gash-bootstrap-guile-0.1-9.32188ac-x86_64-linux.tar.xz")
+                              ("i686-linux"
+                               
"gash-bootstrap-guile-0.1-9.32188ac-i686-linux.tar.xz"))))
+                      (sha256
+                       (base32
+                        (match (%current-system)
+                          ("x86_64-linux"
+                           
"0kwdcryg5all9lxf9h31cv0lzb3yn9cfpxchiwpfdzyx8jkclb3r")
+                          ("i686-linux"
+                           
"13b27pcc7mc4g664971bjwjp56dzaqijwh7yfr89kym6v892fb8f")))))))))
+    (supported-systems '("i686-linux" "x86_64-linux"))
+    (synopsis "Bootstrap binaries of Gash")
+    (description synopsis)
+    (home-page #f)
+    (license gpl3+)))
+
 (define (%bootstrap-inputs)
   ;; The initial, pre-built inputs.  From now on, we can start building our
   ;; own packages.