28/44: system: gnu: Add %bootstrap-{gcc, binutils, glibc} for devel profile.

[guix-commits]

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

commit d9c21df422a5e68b191b00cc3377c2be82986b7c
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sun Apr 19 11:15:14 2020 +0200

    system: gnu: Add %bootstrap-{gcc,binutils,glibc} for devel profile.
    
    * gnu/system/hurd.scm (system-profile): Add them.
    ("/root/.gitconfig"): Add git configuration for GNU.
---
 gnu/system/hurd.scm | 34 ++++++++++++++++++++++++++++++----
 1 file changed, 30 insertions(+), 4 deletions(-)

diff --git a/gnu/system/hurd.scm b/gnu/system/hurd.scm
index f3360f2..f0ef9e0 100644
--- a/gnu/system/hurd.scm
+++ b/gnu/system/hurd.scm
@@ -30,6 +30,7 @@
   #:use-module (gnu packages admin)
   #:use-module (gnu packages base)
   #:use-module (gnu packages bash)
+  #:use-module (gnu packages bootstrap)
   #:use-module (gnu packages commencement)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages cross-base)
@@ -243,9 +244,23 @@ fi\n")))
       (dependencies (map cross-built-entry
                          (manifest-entry-dependencies entry)))))
 
+  (define (cross-bootstrap thing)
+    (with-parameters ((%current-system "i586-gnu"))
+      thing))
+
+  (define (cross-bootstrap-entry entry)
+    (manifest-entry
+      (inherit entry)
+      (item (cross-bootstrap (manifest-entry-item entry)))))
+
   (define system-profile
-    (map-manifest-entries cross-built-entry
-                          (packages->manifest (operating-system-packages os))))
+    (concatenate-manifests
+     (list (map-manifest-entries cross-built-entry
+                                 (packages->manifest 
(operating-system-packages os)))
+           (map-manifest-entries cross-bootstrap-entry
+                                 (packages->manifest (list %bootstrap-gcc
+                                                           %bootstrap-binutils
+                                                           
%bootstrap-glibc))))))
 
   (define grub.cfg
     (let ((hurd (cross-built hurd))
@@ -310,6 +325,15 @@ sshd:x:2:2:sshd:/var/empty:/bin/no-sh
     (with-parameters ((%current-target-system "i586-pc-gnu"))
       (operating-system-activation-script os)))
 
+  (define root-.gitconfig
+    (plain-file "root-.gitconfig"
+                "\
+[url \"git+ssh://git.sv.gnu.org/srv/git/\"]
+       insteadof = gnu-ssh:
+[url \"git://git.savannah.gnu.org/\"]
+       insteadof = gnu:
+")) ;" help Emacs
+
   (define hurd-directives
     `((directory "/servers")
       ,@(map (lambda (server)
@@ -368,7 +392,8 @@ sshd:x:2:2:sshd:/var/empty:/bin/no-sh
       ("/bin/sh" -> ,(file-append (with-parameters ((%current-target-system
                                                      "i586-pc-gnu"))
                                     bash)
-                                  "/bin/sh"))))
+                                  "/bin/sh"))
+      ("/root/.gitconfig" -> ,root-.gitconfig)))
 
   (qemu-image #:file-system-type "ext2"
               #:file-system-options '("-o" "hurd")
@@ -380,7 +405,8 @@ sshd:x:2:2:sshd:/var/empty:/bin/no-sh
                          ("group" ,group)
                          ("shadow" ,shadow)
                          ("shepherd.conf" ,shepherd.conf)
-                         ("boot-activation" ,boot-activation))
+                         ("boot-activation" ,boot-activation)
+                         ("root-.gitconfig" ,root-.gitconfig))
               #:copy-inputs? #t
               #:os system-profile
               #:bootcfg-drv grub.cfg