ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Add 'cxx-for-target'.

Browse source 
* guix/utils.scm (cxx-for-target): New procedure.
This commit is contained in:
Danny Milosavljevic 2020-11-16 10:26:46 +01:00
parent cbd104bf6f
commit b720cf90e7
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
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

@ -78,6 +78,7 @@ (define-module (guix utils)
target-arm? target-arm?
target-64bit? target-64bit?
cc-for-target cc-for-target
cxx-for-target
version-compare version-compare
version>? version>?
@ -542,6 +543,11 @@ (define* (cc-for-target #:optional (target (%current-target-system)))
(string-append target "-gcc") (string-append target "-gcc")
"gcc")) "gcc"))
(define* (cxx-for-target #:optional (target (%current-target-system)))
(if target
(string-append target "-g++")
"g++"))
(define version-compare (define version-compare
(let ((strverscmp (let ((strverscmp
(let ((sym (or (dynamic-func "strverscmp" (dynamic-link)) (let ((sym (or (dynamic-func "strverscmp" (dynamic-link))