[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
12/14: gnu: cross-base: Update phase style.
From: |
Tobias Geerinckx-Rice |
Subject: |
12/14: gnu: cross-base: Update phase style. |
Date: |
Tue, 20 Feb 2018 10:06:36 -0500 (EST) |
nckx pushed a commit to branch core-updates
in repository guix.
commit 273cab96d799e821fee82d017225c23e33f14794
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Tue Feb 20 04:56:03 2018 +0100
gnu: cross-base: Update phase style.
* gnu/packages/cross-base.scm (cross-kernel-headers, cross-libc): Use
MODIFY-PHASES syntax and end phases with #t.
---
gnu/packages/cross-base.scm | 74 ++++++++++++++++++++++-----------------------
1 file changed, 37 insertions(+), 37 deletions(-)
diff --git a/gnu/packages/cross-base.scm b/gnu/packages/cross-base.scm
index 0f59979..8dede77 100644
--- a/gnu/packages/cross-base.scm
+++ b/gnu/packages/cross-base.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2014, 2015 Mark H Weaver <address@hidden>
;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <address@hidden>
+;;; Copyright © 2018 Tobias Geerinckx-Rice <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -314,14 +315,14 @@ target that libc."
`(#:modules ((guix build gnu-build-system)
(guix build utils)
(srfi srfi-26))
- #:phases (alist-cons-before
- 'configure 'set-cross-headers-path
- (lambda* (#:key inputs #:allow-other-keys)
- (let* ((mach (assoc-ref inputs "cross-gnumach-headers"))
- (cpath (string-append mach "/include")))
- (for-each (cut setenv <> cpath)
- ',%gcc-cross-include-paths)))
- %standard-phases)
+ #:phases (modify-phases %standard-phases
+ (add-before 'configure 'set-cross-headers-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let* ((mach (assoc-ref inputs
"cross-gnumach-headers"))
+ (cpath (string-append mach "/include")))
+ (for-each (cut setenv <> cpath)
+ ',%gcc-cross-include-paths)
+ #t))))
#:configure-flags (list ,(string-append "--target=" target))
,@(package-arguments mig)))
@@ -352,16 +353,16 @@ target that libc."
(srfi srfi-26))
,@(package-arguments glibc/hurd-headers))
((#:phases phases)
- `(alist-cons-before
- 'pre-configure 'set-cross-headers-path
- (lambda* (#:key inputs #:allow-other-keys)
- (let* ((mach (assoc-ref inputs "gnumach-headers"))
- (hurd (assoc-ref inputs "hurd-headers"))
- (cpath (string-append mach "/include:"
- hurd "/include")))
- (for-each (cut setenv <> cpath)
- ',%gcc-cross-include-paths)))
- ,phases))))
+ `(modify-phases ,phases
+ (add-before 'pre-configure 'set-cross-headers-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let* ((mach (assoc-ref inputs "gnumach-headers"))
+ (hurd (assoc-ref inputs "hurd-headers"))
+ (cpath (string-append mach "/include:"
+ hurd "/include")))
+ (for-each (cut setenv <> cpath)
+ ',%gcc-cross-include-paths)
+ #t)))))))
(propagated-inputs `(("gnumach-headers" ,xgnumach-headers)
("hurd-headers" ,xhurd-headers)))
@@ -382,14 +383,14 @@ target that libc."
(srfi srfi-26))
,@(package-arguments hurd-minimal))
((#:phases phases)
- `(alist-cons-before
- 'configure 'set-cross-headers-path
- (lambda* (#:key inputs #:allow-other-keys)
- (let* ((glibc-headers (assoc-ref inputs
"cross-glibc-hurd-headers"))
- (cpath (string-append glibc-headers "/include")))
- (for-each (cut setenv <> cpath)
- ',%gcc-cross-include-paths)))
- ,phases))))
+ `(modify-phases ,phases
+ (add-before 'configure 'set-cross-headers-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let* ((glibc-headers (assoc-ref inputs
"cross-glibc-hurd-headers"))
+ (cpath (string-append glibc-headers "/include")))
+ (for-each (cut setenv <> cpath)
+ ',%gcc-cross-include-paths)
+ #t)))))))
(inputs `(("cross-glibc-hurd-headers" ,xglibc/hurd-headers)))
@@ -456,17 +457,16 @@ XBINUTILS and the cross tool chain."
`(cons ,(string-append "--host=" target)
,flags))
((#:phases phases)
- `(alist-cons-before
- 'configure 'set-cross-kernel-headers-path
- (lambda* (#:key inputs #:allow-other-keys)
- (let* ((kernel (assoc-ref inputs "kernel-headers"))
- (cpath (string-append kernel "/include")))
- (for-each (cut setenv <> cpath)
- ',%gcc-cross-include-paths)
- (setenv "CROSS_LIBRARY_PATH"
- (string-append kernel "/lib")) ;for Hurd's libihash
- #t))
- ,phases))))
+ `(modify-phases ,phases
+ (add-before 'configure 'set-cross-kernel-headers-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let* ((kernel (assoc-ref inputs "kernel-headers"))
+ (cpath (string-append kernel "/include")))
+ (for-each (cut setenv <> cpath)
+ ',%gcc-cross-include-paths)
+ (setenv "CROSS_LIBRARY_PATH"
+ (string-append kernel "/lib")) ; for Hurd's
libihash
+ #t)))))))
;; Shadow the native "kernel-headers" because glibc's recipe expects
the
;; "kernel-headers" input to point to the right thing.
- branch core-updates updated (cb4a178 -> 3d2d5eb), Tobias Geerinckx-Rice, 2018/02/20
- 14/14: gnu: gnurl: Add HTTP/2 support., Tobias Geerinckx-Rice, 2018/02/20
- 10/14: gnu: intltool: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 02/14: gnu: gts: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 06/14: gnu: glibc-hurd-headers: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 04/14: gnu: commencement: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 07/14: gnu: dblatex: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 05/14: gnu: address@hidden: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 03/14: gnu: address@hidden: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 09/14: gnu: make-bootstrap: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 12/14: gnu: cross-base: Update phase style.,
Tobias Geerinckx-Rice <=
- 13/14: gnu: patchelf: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 01/14: gnu: util-macros: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 11/14: gnu: indent: Update phase style., Tobias Geerinckx-Rice, 2018/02/20
- 08/14: gnu: libffi: Update phase style., Tobias Geerinckx-Rice, 2018/02/20