me/guix
Archived
1
0
Fork 0
Code Activity

gnu: make-autoconf-wrapper: Remove input labels.

Browse source 
* gnu/packages/autotools.scm (make-autoconf-wrapper)[inputs]: Remove labels.
[arguments]: Use G-expression and SEARCH-INPUT-FILE.
This commit is contained in:
Marius Bakke 2022-07-17 00:00:48 +02:00
parent 8fa17cb6d5
commit 9e4b3391c5
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 47 additions and 52 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/autotools.scm
View file

@ -205,31 +205,27 @@ know anything about Autoconf or M4.")
use our own Bash instead of /bin/sh in shebangs. For that reason, it should
only be used internally---users should not end up distributing `configure'
files with a system-specific shebang."
(package (inherit autoconf)
(package
(inherit autoconf)
(name (string-append (package-name autoconf) "-wrapper"))
(build-system trivial-build-system)
(inputs `(("guile"
(inputs
(list
;; XXX: Kludge to hide the circular dependency.
,(module-ref (resolve-interface '(gnu packages guile))
'guile-3.0/fixed))
("autoconf" ,autoconf)
("bash" ,bash-minimal)))
(module-ref (resolve-interface '(gnu packages guile))
'guile-3.0/fixed)
autoconf
bash-minimal))
(arguments
'(#:modules ((guix build utils))
(list
#:modules '((guix build utils))
#:builder
(begin
#~(begin
(use-modules (guix build utils))
(let* ((out (assoc-ref %outputs "out"))
(bin (string-append out "/bin"))
(autoconf (string-append
(assoc-ref %build-inputs "autoconf")
"/bin/autoconf"))
(guile (string-append
(assoc-ref %build-inputs "guile")
"/bin/guile"))
(sh (string-append
(assoc-ref %build-inputs "bash")
"/bin/sh"))
(let ((bin (string-append #$output "/bin"))
(autoconf (search-input-file %build-inputs "/bin/autoconf"))
(guile (search-input-file %build-inputs "/bin/guile"))
(sh (search-input-file %build-inputs "/bin/sh"))
(modules ((compose dirname dirname dirname)
(search-path %load-path
"guix/build/utils.scm"))))
@ -267,8 +263,7 @@ exec ~a --no-auto-compile \"$0\" \"$@\"
(patch-shebang "configure"))
(exit (status:exit-val result))))
port)))
(chmod (string-append bin "/autoconf") #o555)
#t))))
(chmod (string-append bin "/autoconf") #o555)))))
;; Do not show it in the UI since it's meant for internal use.
(properties '((hidden? . #t)))))