ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Define 'target-x86?' predicate.

Browse source 
* guix/utils.scm (target-x86?): New predicate.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Denis 'GNUtoo' Carikli 2022-05-10 01:24:50 +02:00 committed by Mathieu Othacehe
parent 14518fcc54
commit 242fad357e
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/utils.scm
View file

@ -14,6 +14,7 @@
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2018 Steve Sprang <scs@stevesprang.com> ;;; Copyright © 2018 Steve Sprang <scs@stevesprang.com>
;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info> ;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -92,6 +93,7 @@ (define-module (guix utils)
target-mingw? target-mingw?
target-x86-32? target-x86-32?
target-x86-64? target-x86-64?
target-x86?
target-arm32? target-arm32?
target-aarch64? target-aarch64?
target-arm? target-arm?
@ -697,6 +699,10 @@ (define* (target-x86-64? #:optional (target (or (%current-target-system)
architecture (x86_64)?" architecture (x86_64)?"
(string-prefix? "x86_64-" target)) (string-prefix? "x86_64-" target))
(define* (target-x86? #:optional (target (or (%current-target-system)
(%current-system))))
(or (target-x86-32? target) (target-x86-64? target)))
(define* (target-arm32? #:optional (target (or (%current-target-system) (define* (target-arm32? #:optional (target (or (%current-target-system)
(%current-system)))) (%current-system))))
(string-prefix? "arm" target)) (string-prefix? "arm" target))