[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/18: glib-or-gtk-build-system: Look up the interpreter in 'inputs'.
From: |
guix-commits |
Subject: |
03/18: glib-or-gtk-build-system: Look up the interpreter in 'inputs'. |
Date: |
Fri, 4 Jun 2021 17:29:21 -0400 (EDT) |
civodul pushed a commit to branch core-updates
in repository guix.
commit 1dbc3b2b0c514508246b15c0f818fd9736a1e5ef
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Jun 1 21:47:01 2021 +0200
glib-or-gtk-build-system: Look up the interpreter in 'inputs'.
* guix/build/glib-or-gtk-build-system.scm (wrap-all-programs): Pass
the shell interpreter from 'inputs' to 'wrap-program' using
'search-input-file'.
Partially-Fixes: <https://issues.guix.gnu.org/47869>
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
guix/build/glib-or-gtk-build-system.scm | 20 +++++++++++++-------
1 file changed, 13 insertions(+), 7 deletions(-)
diff --git a/guix/build/glib-or-gtk-build-system.scm
b/guix/build/glib-or-gtk-build-system.scm
index ccb3138..8d3c368 100644
--- a/guix/build/glib-or-gtk-build-system.scm
+++ b/guix/build/glib-or-gtk-build-system.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -136,6 +137,11 @@ Wrapping is not applied to outputs whose name is listed in
GLIB-OR-GTK-WRAP-EXCLUDED-OUTPUTS. This is useful when an output is known not
to contain any GLib or GTK+ binaries, and where wrapping would gratuitously
add a dependency of that output on GLib and GTK+."
+ ;; Do not require bash to be present in the package inputs
+ ;; even when there is nothing to wrap.
+ ;; Also, calculate (sh) only once to prevent some I/O.
+ (define %sh (delay (search-input-file inputs "bin/bash")))
+ (define (sh) (force %sh))
(define handle-output
(match-lambda
((output . directory)
@@ -165,36 +171,36 @@ add a dependency of that output on GLib and GTK+."
#f)))
(cond
((and data-env-var gtk-mod-env-var gio-mod-env-var)
- (for-each (cut wrap-program <>
+ (for-each (cut wrap-program <> #:sh (sh)
data-env-var
gtk-mod-env-var
gio-mod-env-var)
bin-list))
((and data-env-var gtk-mod-env-var (not gio-mod-env-var))
- (for-each (cut wrap-program <>
+ (for-each (cut wrap-program <> #:sh (sh)
data-env-var
gtk-mod-env-var)
bin-list))
((and data-env-var (not gtk-mod-env-var) gio-mod-env-var)
- (for-each (cut wrap-program <>
+ (for-each (cut wrap-program <> #:sh (sh)
data-env-var
gio-mod-env-var)
bin-list))
((and (not data-env-var) gtk-mod-env-var gio-mod-env-var)
- (for-each (cut wrap-program <>
+ (for-each (cut wrap-program <> #:sh (sh)
gio-mod-env-var
gtk-mod-env-var)
bin-list))
((and data-env-var (not gtk-mod-env-var) (not gio-mod-env-var))
- (for-each (cut wrap-program <>
+ (for-each (cut wrap-program <> #:sh (sh)
data-env-var)
bin-list))
((and (not data-env-var) gtk-mod-env-var (not gio-mod-env-var))
- (for-each (cut wrap-program <>
+ (for-each (cut wrap-program <> #:sh (sh)
gtk-mod-env-var)
bin-list))
((and (not data-env-var) (not gtk-mod-env-var) gio-mod-env-var)
- (for-each (cut wrap-program <>
+ (for-each (cut wrap-program <> #:sh (sh)
gio-mod-env-var)
bin-list))))))))
- branch core-updates updated (0fdf2cd -> d1827d5), guix-commits, 2021/06/04
- 01/18: utils: Allow overriding the shell interpreter in ‘wrap-program’., guix-commits, 2021/06/04
- 02/18: utils: Define ‘search-input-file’ procedure., guix-commits, 2021/06/04
- 03/18: glib-or-gtk-build-system: Look up the interpreter in 'inputs'.,
guix-commits <=
- 05/18: qt-build-system: Look up the interpreter in 'inputs'., guix-commits, 2021/06/04
- 11/18: gnu: gess: Set #:guile argument of 'wrap-script'., guix-commits, 2021/06/04
- 08/18: gnu: bats: Set #:guile argument of 'wrap-script'., guix-commits, 2021/06/04
- 10/18: gnu: prinseq: Set #:guile argument of 'wrap-script'., guix-commits, 2021/06/04
- 06/18: rakudo-build-system: Look up the interpreter in 'inputs'., guix-commits, 2021/06/04
- 04/18: python-build-system: Look up the interpreter in 'inputs'., guix-commits, 2021/06/04
- 07/18: gnu: carla: Set #:guile argument of 'wrap-script'., guix-commits, 2021/06/04
- 09/18: gnu: proteinortho: Set #:guile argument of 'wrap-script'., guix-commits, 2021/06/04
- 12/18: gnu: nanopolish: Set #:guile argument of 'wrap-script'., guix-commits, 2021/06/04
- 13/18: gnu: sieve-connect: Set #:guile argument of 'wrap-script'., guix-commits, 2021/06/04