tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-25 10:31:49 +02:00
Code Activity

gnu: glibc-mesboot: Improve style.

Browse Source 
* gnu/packages/commencement.scm (glibc-mesboot)
[native-inputs]: Drop input labels.
[arguments]<#:make-flags, #:phases>: Improve style, use G-expressions
and search-input-file.

Change-Id: I981447b416bfb7ef313b41ec8f4647e1614e56e2
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Nicolas Graves
2026-02-18 10:09:04 +01:00
committed by Ludovic Courtès
parent eb504359c7
commit 0749348e9a
1 changed files with 29 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/packages/commencement.scm
+29 -27
View File
@@ -1680,34 +1680,36 @@ ac_cv_c_float_format='IEEE (little-endian)'
(package (package
(inherit glibc-headers-mesboot) (inherit glibc-headers-mesboot)
(name "glibc-mesboot") (name "glibc-mesboot")
(native-inputs `(("headers" ,glibc-headers-mesboot) (native-inputs (cons* glibc-headers-mesboot
,@(%boot-mesboot3-inputs))) (map cadr (%boot-mesboot3-inputs))))
(arguments (arguments
`(#:validate-runpath? #f ; fails when using --enable-shared (cons*
,@(substitute-keyword-arguments arguments #:validate-runpath? #f ; fails when using --enable-shared
((#:make-flags make-flags) (substitute-keyword-arguments (package-arguments glibc-headers-mesboot)
#~(let ((bash (assoc-ref %build-inputs "bash"))) ((#:make-flags make-flags)
(list (string-append "SHELL=" bash "/bin/sh")))) #~(let ((bash (search-input-file %build-inputs "/bin/sh")))
((#:phases phases) (list (string-append "SHELL=" bash))))
#~(modify-phases #$phases ((#:phases phases)
(add-after 'unpack 'simplify-intl-tests #~(modify-phases #$phases
(lambda _ (add-after 'unpack 'simplify-intl-tests
;; The bootstrap Guile (2.0.9) crashes trying to (lambda _
;; perform a regex on non-ASCII text. This gets ;; The bootstrap Guile (2.0.9) crashes trying to
;; triggered by 'intl/po2test.sed' running over ;; perform a regex on non-ASCII text. This gets
;; 'po/de.po'. If we ever remove the bootstrap ;; triggered by 'intl/po2test.sed' running over
;; Guile or add pure-Scheme regex to Gash, this can ;; 'po/de.po'. If we ever remove the bootstrap
;; be removed. ;; Guile or add pure-Scheme regex to Gash, this can
(substitute* '("catgets/Makefile" ;; be removed.
"intl/Makefile") (substitute* '("catgets/Makefile"
(("de\\.po") "en_GB.po")))) "intl/Makefile")
(replace 'install (("de\\.po") "en_GB.po"))))
(lambda* (#:key outputs make-flags #:allow-other-keys) (replace 'install
(let* ((kernel-headers (assoc-ref %build-inputs "kernel-headers")) (lambda* (#:key make-flags #:allow-other-keys)
(out (assoc-ref outputs "out")) (let* ((ioctl.h (search-input-file %build-inputs
(install-flags (cons "install" make-flags))) "/include/asm/ioctl.h"))
(apply invoke "make" install-flags) (kernel-headers (dirname (dirname (dirname ioctl.h))))
(copy-recursively kernel-headers out))))))))))) (install-flags (cons "install" make-flags)))
(apply invoke "make" install-flags)
(copy-recursively kernel-headers #$output)))))))))))
(define (%boot-mesboot4-inputs) (define (%boot-mesboot4-inputs)
`(("libc" ,glibc-mesboot) `(("libc" ,glibc-mesboot)