TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

utils: 'target-arm32?' & co. take an optional parameter.

Browse source 
* guix/utils.scm (target-arm32?, target-aarch64?)
(target-arm?, target-64bit?): Make 'target' an optional parameter.
This commit is contained in:
Ludovic Courtès 2020-05-15 22:22:03 +02:00
parent 644cb40cd8
commit 300a54bb98
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
guix/utils.scm
View file

@ -490,18 +490,21 @@ (define* (target-mingw? #:optional (target (%current-target-system)))
(and target
(string-suffix? "-mingw32" target)))
(define (target-arm32?)
(string-prefix? "arm" (or (%current-target-system) (%current-system))))
(define* (target-arm32? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "arm" target))
(define (target-aarch64?)
(string-prefix? "aarch64" (or (%current-target-system) (%current-system))))
(define* (target-aarch64? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "aarch64" target))
(define (target-arm?)
(or (target-arm32?) (target-aarch64?)))
(define* (target-arm? #:optional (target (or (%current-target-system)
(%current-system))))
(or (target-arm32? target) (target-aarch64? target)))
(define (target-64bit?)
(let ((system (or (%current-target-system) (%current-system))))
(any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" "ppc64"))))
(define* (target-64bit? #:optional (system (or (%current-target-system)
(%current-system))))
(any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" "ppc64")))
(define version-compare
(let ((strverscmp