[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/42: gnu: guix: Cross-build fixup for wrap-program.
From: |
guix-commits |
Subject: |
05/42: gnu: guix: Cross-build fixup for wrap-program. |
Date: |
Sat, 25 Apr 2020 13:45:00 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 4bfd4a75b0694fa1e3bc801ff0487ee711a671c0
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Wed Apr 8 09:43:51 2020 +0200
gnu: guix: Cross-build fixup for wrap-program.
This allows running:
guix build hello
* gnu/packages/package-management.scm (guix)[arguments]: When
cross-compiling,
add 'wrap-program:substitute-host-bash phase to fixup the shebang generated
by
wrap-program.
[inputs]: When cross-compiling, include bash-minimal.
---
gnu/packages/package-management.scm | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/package-management.scm
b/gnu/packages/package-management.scm
index 0dc5b10..864390f 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -37,6 +37,7 @@
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
#:use-module (gnu packages base)
+ #:use-module (gnu packages bash)
#:use-module (gnu packages bdw-gc)
#:use-module (gnu packages bison)
#:use-module (gnu packages bootstrap) ;for 'bootstrap-guile-origin'
@@ -183,7 +184,14 @@ $(prefix)/etc/init.d\n")))
(invoke "sh" "bootstrap")))
,@(if (%current-target-system)
- '()
+ `((add-after 'wrap-program
'wrap-program:substitute-host-bash
+ (lambda* (#:key inputs outputs
#:allow-other-keys)
+ ;; XXX Touching wrap-program rebuilds world
+ (let ((out (assoc-ref outputs "out"))
+ (bash (assoc-ref inputs "bash")))
+ (substitute* (string-append out "/bin/guix")
+ (("^#!.*/bash") (string-append "#! " bash
"/bin/bash")))
+ #t))))
`((add-before 'check 'copy-bootstrap-guile
(lambda* (#:key system inputs #:allow-other-keys)
;; Copy the bootstrap guile tarball in the
store used
@@ -333,6 +341,9 @@ $(prefix)/etc/init.d\n")))
(string=? (%current-system) "x86_64-linux"))
`(("boot-guile/i686" ,(bootstrap-guile-origin "i686-linux")))
'())
+ ,@(if (%current-target-system)
+ `(("bash" ,bash-minimal))
+ '())
;; Tests also rely on these bootstrap executables.
("bootstrap/bash" ,(bootstrap-executable "bash" (%current-system)))
- branch wip-hurd-vm created (now e460289), guix-commits, 2020/04/25
- 03/42: gnu: guix: Indent `copy-bootstrap-guile' code., guix-commits, 2020/04/25
- 01/42: gnu: guix: Apply courage for the Hurd., guix-commits, 2020/04/25
- 02/42: gnu: guix: Do not copy bootstrap-guile when cross-compiling., guix-commits, 2020/04/25
- 06/42: gnu: guix: Use gnutls-3.6.13 when cross-compiling., guix-commits, 2020/04/25
- 05/42: gnu: guix: Cross-build fixup for wrap-program.,
guix-commits <=
- 08/42: gnu: guix: Update to eeb87326d8., guix-commits, 2020/04/25
- 04/42: gnu: guix: Cross-build workaround: Run native guile for version., guix-commits, 2020/04/25
- 09/42: vm: Make the device node procedure a parameter., guix-commits, 2020/04/25
- 13/42: gnu: Add dde-sources., guix-commits, 2020/04/25
- 10/42: gnu: hurd: Build DDE libraries., guix-commits, 2020/04/25
- 14/42: gnu: Add netdde., guix-commits, 2020/04/25
- 17/42: system: hurd: Add less, which to %base-packages/hurd., guix-commits, 2020/04/25
- 18/42: system: hurd: Add /etc/group., guix-commits, 2020/04/25
- 15/42: gnu: hurd: Add NFS support., guix-commits, 2020/04/25
- 21/42: services: Add hurd-ttys-service-type., guix-commits, 2020/04/25