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

utils: Add ar-for-target and ld-for-target procedures.

Browse source 
* guix/utils.scm (ar-for-target, ld-for-target): New procedures.
This commit is contained in:
Maxim Cournoyer 2022-03-08 08:46:56 -05:00
parent 93e9712952
commit cd85f8bb95
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/utils.scm
View file

@ -99,8 +99,10 @@ (define-module (guix utils)
target-powerpc?
target-riscv64?
target-64bit?
ar-for-target
cc-for-target
cxx-for-target
ld-for-target
pkg-config-for-target
version-compare
@ -715,6 +717,11 @@ (define* (target-64bit? #:optional (system (or (%current-target-system)
(any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64"
"powerpc64" "riscv64")))
(define* (ar-for-target #:optional (target (%current-target-system)))
(if target
(string-append target "-ar")
"ar"))
(define* (cc-for-target #:optional (target (%current-target-system)))
(if target
(string-append target "-gcc")
@ -725,6 +732,11 @@ (define* (cxx-for-target #:optional (target (%current-target-system)))
(string-append target "-g++")
"g++"))
(define* (ld-for-target #:optional (target (%current-target-system)))
(if target
(string-append target "-ld")
"ld"))
(define* (pkg-config-for-target #:optional (target (%current-target-system)))
(if target
(string-append target "-pkg-config")